summaryrefslogtreecommitdiff
path: root/old-lib/resource/interlingua/SentenceIna.gf
diff options
context:
space:
mode:
authoraarne <aarne@chalmers.se>2009-12-09 09:47:16 +0000
committeraarne <aarne@chalmers.se>2009-12-09 09:47:16 +0000
commitc8ceed08efcc0bdc1fcbd89bce643d9f52f0991b (patch)
tree5f0b314341c129eba1bc67b8b887fb8a4486fad8 /old-lib/resource/interlingua/SentenceIna.gf
parent101df06f6c8380328d4266adadac3ab6d1bac0b3 (diff)
moving a few things to deprecated
Diffstat (limited to 'old-lib/resource/interlingua/SentenceIna.gf')
-rw-r--r--old-lib/resource/interlingua/SentenceIna.gf45
1 files changed, 0 insertions, 45 deletions
diff --git a/old-lib/resource/interlingua/SentenceIna.gf b/old-lib/resource/interlingua/SentenceIna.gf
deleted file mode 100644
index 908fde7df..000000000
--- a/old-lib/resource/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!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 = \\t,a,b,o => slash.s ! 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 a p cl = {s = t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! ODir} ;
- UseQCl t a p cl = {s = \\o => t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! o} ;
- UseRCl t a p cl = {s = \\agr => t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! agr};
- UseSlash t a p cl={s = t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.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} ;
-
-}