From b442cde3bd01fb935c215446097592510cf8e713 Mon Sep 17 00:00:00 2001 From: krasimir Date: Tue, 16 Jun 2009 07:53:01 +0000 Subject: reduce the number of variants in Interlingua --- next-lib/src/interlingua/SentenceIna.gf | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'next-lib/src/interlingua/SentenceIna.gf') diff --git a/next-lib/src/interlingua/SentenceIna.gf b/next-lib/src/interlingua/SentenceIna.gf index 9fc97023d..cc0640811 100644 --- a/next-lib/src/interlingua/SentenceIna.gf +++ b/next-lib/src/interlingua/SentenceIna.gf @@ -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} ; -- cgit v1.2.3