GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-07 10:12:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

restest completed, English ready in exper

Browse Source
This commit is contained in:
aarne
2008-04-24 06:33:57 +00:00
parent 29302378c6
commit 1008ec8625
10 changed files with 84 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lib/resource/exper/english/ExtraEng.gf
View File

@@ -6,7 +6,8 @@ concrete ExtraEng of ExtraEngAbs = CatEng **
ComplBareVS v s = insertObj (\\_ => s.s) (predV v) ;
StrandRelSlash rp slash = {
s = \\t,a,p,_ => rp.s ! RC Acc ++ slash.s ! t ! a ! p ! ODir ++ slash.c2 ;
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 = {
@@ -43,7 +44,7 @@ concrete ExtraEng of ExtraEngAbs = CatEng **
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} ;
CompoundCN a b = {s = \\n,c => a.s ! Sg ! Nom ++ b.s ! n ! c ; g = b.g} ;
oper