summaryrefslogtreecommitdiff
path: root/deprecated/old-lib/resource/romance/RelativeRomance.gf
diff options
context:
space:
mode:
authoraarne <aarne@chalmers.se>2010-12-22 14:11:55 +0000
committeraarne <aarne@chalmers.se>2010-12-22 14:11:55 +0000
commitc5b963769539c8a7c9bd154585686d263c7d6d8a (patch)
treec1bc4129d94e51c5e68ed4b7c1888ae120aac3fd /deprecated/old-lib/resource/romance/RelativeRomance.gf
parentce15ec7b787479ca4c7295863ea7fa5cfdd16755 (diff)
removed GF/deprecated
Diffstat (limited to 'deprecated/old-lib/resource/romance/RelativeRomance.gf')
-rw-r--r--deprecated/old-lib/resource/romance/RelativeRomance.gf50
1 files changed, 0 insertions, 50 deletions
diff --git a/deprecated/old-lib/resource/romance/RelativeRomance.gf b/deprecated/old-lib/resource/romance/RelativeRomance.gf
deleted file mode 100644
index 40b83c1b3..000000000
--- a/deprecated/old-lib/resource/romance/RelativeRomance.gf
+++ /dev/null
@@ -1,50 +0,0 @@
-incomplete concrete RelativeRomance of Relative =
- CatRomance ** open Prelude, CommonRomance, ResRomance in {
-
- flags optimize=all_subs ;
-
- lin
-
- RelCl cl = {
- s = \\ag,t,a,p,m => pronSuch ! ag ++ conjThat ++
- cl.s ! DDir ! t ! a ! p ! m ;
- c = Nom
- } ;
-
- --- more efficient to compile than case inside mkClause; see log.txt
- RelVP rp vp = case rp.hasAgr of {
- True => {s = \\ag =>
- (mkClause
- (rp.s ! False ! {g = ag.g ; n = ag.n} ! Nom) False
- {g = rp.a.g ; n = rp.a.n ; p = P3}
- vp).s ! DDir ; c = Nom} ;
- False => {s = \\ag =>
- (mkClause
- (rp.s ! False ! {g = ag.g ; n = ag.n} ! Nom) False
- ag
- vp).s ! DDir ; c = Nom
- }
- } ;
-
- RelSlash rp slash = {
- s = \\ag,t,a,p,m =>
- let aag = {g = ag.g ; n = ag.n}
- in
- slash.c2.s ++
- rp.s ! False ! aag ! slash.c2.c ++
- slash.s ! aag ! DDir ! t ! a ! p ! m ; --- ragr
- c = Acc
- } ;
-
- FunRP p np rp = {
- s = \\_,a,c => np.s ! Ton Nom ++ p.s ++ rp.s ! True ! a ! p.c ;
- a = {g = np.a.g ; n = np.a.n} ;
- hasAgr = True
- } ;
- IdRP = {
- s = relPron ;
- a = {g = Masc ; n = Sg} ;
- hasAgr = False
- } ;
-
-}