GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-09-16 23:36:00 -06:00
Code Issues Packages Projects Releases Wiki Activity

reduce the number of variants in Interlingua

Browse Source
This commit is contained in:
krasimir
2009-06-16 07:53:01 +00:00
parent b2b4a7064b
commit b442cde3bd
9 changed files with 79 additions and 60 deletions
Download Patch File Download Diff File Expand all files Collapse all files
next-lib/src/interlingua/SentenceIna.gf
+6 -6
View File
@@ -8,7 +8,7 @@ lin
PredSCVP sc vp = mkClause sc.s Sp3 vp ;
ImpVP vp = {s = \\pol,n=> (mkClause [] {n = n; p = P2} vp).s!Pres!Simul!pol!ODir};
ImpVP vp = {s = \\pol,n=> (mkClause [] {n = n; p = P2} vp).s!variants {True;False}!Pres!Simul!pol!ODir};
SlashVP np vp = mkClause (np.s ! Nom) np.a vp ** {c2 = vp.c2; p2 = vp.p2} ;
@@ -18,7 +18,7 @@ lin
{c2 = slash.c2; p2 = slash.p2} ;
AdvSlash slash adv = {
s = \\t,a,b,o => slash.s ! t ! a ! b ! o ++ adv.s ;
s = \\use_irreg,t,a,b,o => slash.s ! use_irreg ! t ! a ! b ! o ++ adv.s ;
c2 = slash.c2;
p2 = slash.p2
} ;
@@ -31,10 +31,10 @@ lin
EmbedQS qs = {s = qs.s ! ODir} ;
EmbedVP vp = {s = infVP vp} ;
UseCl t p cl = {s = t.s ++ p.s ++ cl.s ! t.t ! t.a ! p.p ! ODir} ;
UseQCl t p cl = {s = \\o => t.s ++ p.s ++ cl.s ! t.t ! t.a ! p.p ! o} ;
UseRCl t p cl = {s = \\agr => t.s ++ p.s ++ cl.s ! t.t ! t.a ! p.p ! agr};
UseSlash t p cl = {s = t.s ++ p.s ++ cl.s ! t.t ! t.a ! p.p ! ODir;
UseCl t p cl = {s = t.s ++ p.s ++ cl.s ! variants {True;False} ! t.t ! t.a ! p.p ! ODir} ;
UseQCl t p cl = {s = \\o => t.s ++ p.s ++ cl.s ! variants {True;False} ! t.t ! t.a ! p.p ! o} ;
UseRCl t p cl = {s = \\agr => t.s ++ p.s ++ cl.s ! variants {True;False} ! t.t ! t.a ! p.p ! agr};
UseSlash t p cl = {s = t.s ++ p.s ++ cl.s ! variants {True;False} ! t.t ! t.a ! p.p ! ODir;
c2 = cl.c2;
p2 = cl.p2} ;