diff options
| author | aarne <aarne@chalmers.se> | 2009-12-09 09:47:16 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2009-12-09 09:47:16 +0000 |
| commit | c8ceed08efcc0bdc1fcbd89bce643d9f52f0991b (patch) | |
| tree | 5f0b314341c129eba1bc67b8b887fb8a4486fad8 /old-lib/resource/romance/RelativeRomance.gf | |
| parent | 101df06f6c8380328d4266adadac3ab6d1bac0b3 (diff) | |
moving a few things to deprecated
Diffstat (limited to 'old-lib/resource/romance/RelativeRomance.gf')
| -rw-r--r-- | old-lib/resource/romance/RelativeRomance.gf | 50 |
1 files changed, 0 insertions, 50 deletions
diff --git a/old-lib/resource/romance/RelativeRomance.gf b/old-lib/resource/romance/RelativeRomance.gf deleted file mode 100644 index 40b83c1b3..000000000 --- a/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 - } ; - -} |
