interlingua updated for new resource

1 files changed, 34 insertions, 0 deletions

diff --git a/next-lib/src/interlingua/IdiomIna.gf b/next-lib/src/interlingua/IdiomIna.gf
new file mode 100644
index 000000000..6aac72fc5
--- /dev/null
+++ b/next-lib/src/interlingua/IdiomIna.gf
@@ -0,0 +1,34 @@
+concrete IdiomIna of Idiom = CatIna ** open Prelude, ResIna in {
+
+  flags optimize=all_subs ;
+
+  lin
+    ImpersCl vp = mkClause "il"  Sp3 vp ;
+    GenericCl vp = mkClause "on" Sp3 vp ;
+
+    CleftNP np rs = mkClause "lo" Sp3
+      (insertObj [] Acc (mkInvarNP (rs.s ! Sp3))
+         (insertObj []  Acc np 
+	    (predV esserV)));
+	 -- ??? number/case agreement
+
+    CleftAdv ad s = mkClause "lo" Sp3
+      (insertObj [] Acc (mkInvarNP ("que" ++ s.s))
+        (insertObj [] Acc (mkInvarNP (ad.s)) (predV esserV))) ;
+
+
+    ExistNP np = 
+      mkClause "il" Sp3 ((insertObj "" Acc np) (predV haberV)) ;
+    -- Il ha colonias que non pote reclamar mesmo un tal origine. (sample text 3)
+
+    ExistIP ip = mkQuestion {s=ip.s ! Acc} (mkClause "il" Sp3 (predV haberV)) ;
+    -- Never seen the above, but we can deduce it exists, since it's
+    -- merely an interrogative form of ExistNP.
+
+    ProgrVP vp = vp; -- progressive tense is the same as present in Interlingua. 
+    -- (parag. 80+ of Grammatica de Interlingua)
+
+    ImpPl1 vp = {s = "que" ++ (mkClause "nos" {n = Pl ; p = P1} vp).s ! Pres ! Simul ! Pos ! ODir};
+
+}
+