summaryrefslogtreecommitdiff
path: root/next-lib/src/interlingua/SentenceIna.gf
diff options
context:
space:
mode:
authoraarne <aarne@chalmers.se>2009-06-22 15:39:08 +0000
committeraarne <aarne@chalmers.se>2009-06-22 15:39:08 +0000
commite89fdae2fa1626348d8025824a7469252fa85e42 (patch)
treec7d46bbd0494043b4bd6f917a25a7687517d0547 /next-lib/src/interlingua/SentenceIna.gf
parent3049b59b35b25381a7c6787444165c200d66e08b (diff)
next-lib renamed to lib, lib to old-lib
Diffstat (limited to 'next-lib/src/interlingua/SentenceIna.gf')
-rw-r--r--next-lib/src/interlingua/SentenceIna.gf45
1 files changed, 0 insertions, 45 deletions
diff --git a/next-lib/src/interlingua/SentenceIna.gf b/next-lib/src/interlingua/SentenceIna.gf
deleted file mode 100644
index cc0640811..000000000
--- a/next-lib/src/interlingua/SentenceIna.gf
+++ /dev/null
@@ -1,45 +0,0 @@
-concrete SentenceIna of Sentence = CatIna ** open Prelude, ResIna in {
-
-flags optimize=all_subs ;
-
-lin
-
- PredVP np vp = mkClause (np.s ! Nom) np.a vp ;
-
- PredSCVP sc vp = mkClause sc.s Sp3 vp ;
-
- 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} ;
-
- SlashVS np vs slash =
- mkClause (np.s ! Nom) np.a
- (insertInvarObj ("que" ++ slash.s) (predV vs)) **
- {c2 = slash.c2; p2 = slash.p2} ;
-
- AdvSlash slash adv = {
- s = \\use_irreg,t,a,b,o => slash.s ! use_irreg ! t ! a ! b ! o ++ adv.s ;
- c2 = slash.c2;
- p2 = slash.p2
- } ;
-
- SlashPrep cl prep = cl ** {c2 = prep.c; p2 = prep.s} ;
-
-
-
- EmbedS s = {s = "que" ++ s.s} ;
- EmbedQS qs = {s = qs.s ! ODir} ;
- EmbedVP vp = {s = infVP vp} ;
-
- 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} ;
-
- AdvS a s = {s = a.s ++ "," ++ s.s} ;
-
- RelS s r = {s = s.s ++ "," ++ r.s ! agrP3 Sg} ;
-
-}