summaryrefslogtreecommitdiff
path: root/old-lib/resource/interlingua/NounIna.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/NounIna.gf
parent101df06f6c8380328d4266adadac3ab6d1bac0b3 (diff)
moving a few things to deprecated
Diffstat (limited to 'old-lib/resource/interlingua/NounIna.gf')
-rw-r--r--old-lib/resource/interlingua/NounIna.gf142
1 files changed, 0 insertions, 142 deletions
diff --git a/old-lib/resource/interlingua/NounIna.gf b/old-lib/resource/interlingua/NounIna.gf
deleted file mode 100644
index e99aed813..000000000
--- a/old-lib/resource/interlingua/NounIna.gf
+++ /dev/null
@@ -1,142 +0,0 @@
-concrete NounIna of Noun = CatIna ** open ResIna, Prelude in {
-
- flags optimize=all_subs ;
-
- lin
- DetCN det cn = {
- s = \\c => det.s!c ++ cn.s ! det.n ;
- a = agrP3 det.n ;
- isPronoun = False
- }; -- iste pizza
-
- UsePN pn = {
- s = \\_ => pn.s;
- a = agrP3 Sg;
- isPronoun = False
- };
-
- UsePron p = p; -- io, tu, ille, etc.
-
- PredetNP pred np = {
- s = \\c => pred.s ++ np.s ! c ;
- isPronoun = False;
- a = np.a
- } ;
-
- PPartNP np v2 = {
- s = \\c => np.s ! c ++ v2.s ! VPPart ;
- isPronoun = False;
- a = np.a
- } ;
-
- AdvNP np adv = {
- isPronoun = False;
- s = \\c => np.s ! c ++ adv.s ;
- a = Sp3;
- } ;
-
--- version 1.4 changes by AR 16/6/2008
-
- DetNP det = {
- s = \\c => det.s ! c ;
- a = agrP3 det.n ;
- isPronoun = False
- }; -- iste pizza
-
- DetQuantOrd quant num ord = {
- s = \\c=>(quant.s ! num.n !c) ++ num.s ++ ord.s ;
- n = num.n
- } ;
-
- DetQuant quant num = {
- s = \\c=>(quant.s ! num.n !c) ++ num.s ;
- n = num.n
- } ;
-
- DetArtOrd art num ord = {
- s = \\c=>(art.s ! num.n !c) ++ num.s ++ ord.s ;
- n = num.n
- } ;
-
- DetArtCard art num = {
- s = \\c=>(art.s ! num.n !c) ++ num.s ;
- n = num.n
- } ;
-
- DetArtSg art cn = {
- s = \\c => art.s ! Sg ! c ++ cn.s ! Sg ;
- a = agrP3 Sg ;
- isPronoun = False
- }; -- iste pizza
-
- DetArtPl art cn = {
- s = \\c => art.s ! Pl ! c ++ cn.s ! Pl ;
- a = agrP3 Pl ;
- isPronoun = False
- }; -- iste pizza
-
- PossPron p = {s = \\_,c => casePrep [] c ++ p.possForm} ;
-
- NumPl = {s = []; n = Pl } ;
- NumSg = {s = []; n = Sg } ;
-
- NumCard c = c ;
-
- NumDigits n = {s = n.s ! NCard ; n = n.n} ;
-
- OrdDigits n = {s = n.s ! NOrd} ;
-
- NumNumeral numeral = {s = numeral.s ! NCard; n = numeral.n } ;
- OrdNumeral numeral = {s = numeral.s ! NOrd} ;
-
- AdNum adn num = {s = adn.s ++ num.s; n = num.n } ;
-
- OrdSuperl a = {s = a.s ! AAdj Superl} ;
-
- DefArt = {s = \\_ => table {
- Dat => "al";
- Gen | Abl => "del";
- _ => "le"}} ;
-
- IndefArt = {s =
- \\n,c => casePrep [] c ++ case n of {
- Sg => "un" ;
- Pl => []
- }
- } ;
-
- MassNP cn = {
- s = \\_ => cn.s ! Sg ;
- a = agrP3 Sg;
- isPronoun = False
- };
-
- UseN n = n ;
- UseN2 n = n ;
--- UseN3 n = n ;
- Use2N3 f = {s = \\n => f.s ! n ; c2 = f.c2; p2 = f.p2} ;
- Use3N3 f = {s = \\n => f.s ! n ; c2 = f.c3; p2 = f.p3} ;
-
- ComplN2 f x = {s = \\n => f.s ! n ++ f.p2 ++ x.s ! f.c2} ;
- ComplN3 f x = {s = \\n => f.s ! n ++ f.p2 ++ x.s ! f.c2 ; c2 = f.c3; p2 = f.p3} ;
-
- AdjCN ap cn = {
- s = \\n => preOrPost ap.isPre (ap.s ! agrP3 n) (cn.s ! n)
- } ;
-
- RelCN cn rs = {s = \\n => cn.s ! n ++ rs.s ! agrP3 n} ;
- AdvCN cn ad = {s = \\n => cn.s ! n ++ ad.s} ;
-
- SentCN cn sc = {s = \\n => cn.s ! n ++ sc.s} ;
-
- ApposCN cn np = {s = \\n => cn.s ! n ++ np.s ! Nom} ;
- --- ??? The use of the Nom case is somewhat strange here. The
- --- abstract rule is dubious anyway, so ...
-
- RelNP np rs = {s =
- \\c => np.s ! c ++ "," ++ rs.s ! np.a ;
- a = np.a ;
- isPronoun = np.isPronoun ---- ?? AR
- } ;
-
-}