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/english/ExtraEng.gf | |
| parent | 101df06f6c8380328d4266adadac3ab6d1bac0b3 (diff) | |
moving a few things to deprecated
Diffstat (limited to 'old-lib/resource/english/ExtraEng.gf')
| -rw-r--r-- | old-lib/resource/english/ExtraEng.gf | 53 |
1 files changed, 0 insertions, 53 deletions
diff --git a/old-lib/resource/english/ExtraEng.gf b/old-lib/resource/english/ExtraEng.gf deleted file mode 100644 index 7f6b3fde3..000000000 --- a/old-lib/resource/english/ExtraEng.gf +++ /dev/null @@ -1,53 +0,0 @@ -concrete ExtraEng of ExtraEngAbs = CatEng ** - open ResEng, Coordination, Prelude in { - - lin - GenNP np = {s = \\_ => np.s ! Gen} ; - ComplBareVS v s = insertObj (\\_ => s.s) (predV v) ; - - StrandRelSlash rp slash = { - s = \\t,a,p,ag => - rp.s ! RC (fromAgr ag).g Acc ++ slash.s ! t ! a ! p ! ODir ++ slash.c2 ; - c = Acc - } ; - EmptyRelSlash rp slash = { - s = \\t,a,p,_ => slash.s ! t ! a ! p ! ODir ++ slash.c2 ; - c = Acc - } ; - - StrandQuestSlash ip slash = - {s = \\t,a,b,q => - (mkQuestion (ss (ip.s ! Acc)) slash).s ! t ! a ! b ! q ++ slash.c2 - }; - - lincat - VPI = {s : VPIForm => Agr => Str} ; - [VPI] = {s1,s2 : VPIForm => Agr => Str} ; - - lin - BaseVPI = twoTable2 VPIForm Agr ; - ConsVPI = consrTable2 VPIForm Agr comma ; - - MkVPI vp = { - s = \\v,a => vp.ad ++ vp.inf ++ vp.s2 ! a - } ; - ConjVPI = conjunctDistrTable2 VPIForm Agr ; - ComplVPIVV vv vpi = - insertObj (\\a => (if_then_Str vv.isAux [] "to") ++ vpi.s ! VPIInf ! a) (predVV vv) ; - - UncNegCl t a cl = {s = t.s ++ a.s ++ cl.s ! t.t ! a.a ! neg ! ODir} ; - UncNegQCl t a cl = {s = \\q => t.s ++ a.s ++ cl.s ! t.t ! a.a ! neg !q} ; - UncNegRCl t a cl = { - s = \\r => t.s ++ a.s ++ cl.s ! t.t ! a.a ! neg ! r ; - c = cl.c - } ; - UncNegImpSg imp = {s = imp.s ! neg ! ImpF Sg False} ; - UncNegImpPl imp = {s = imp.s ! neg ! ImpF Pl False} ; - - CompoundCN a b = {s = \\n,c => a.s ! Sg ! Nom ++ b.s ! n ! c ; g = b.g} ; - - - oper - neg = CNeg False ; - -} |
