zulu inclusion

2022-04-28 08:53:37 +02:00
parent a72600b27c
commit 8b05843585
66 changed files with 43788 additions and 0 deletions
@@ -0,0 +1,62 @@
+concrete IdiomZul of Idiom = CatZul ** open Prelude, ResZul,ParamX in {
+
+  flags optimize=all_subs ;
+
+  -- lin
+  --   ImpersCl vp = mkClause "it" (agrP3 Sg) vp ;
+  --   GenericCl vp = mkClause "one" (agrP3 Sg) vp ;
+  --
+  --   CleftNP np rs = mkClause "it" (agrP3 Sg)
+  --     (insertObj (\\_ => rs.s ! np.a)
+  --       (insertObj (\\_ => np.s ! rs.c) (predAux auxBe))) ;
+  --
+  --   CleftAdv ad s = mkClause "it" (agrP3 Sg)
+  --     (insertObj (\\_ => conjThat ++ s.s)
+  --       (insertObj (\\_ => ad.s) (predAux auxBe))) ;
+  --
+  --   ExistNP np =
+  --     mkClause "there" (agrP3 (fromAgr np.a).n)
+  --       (insertObj (\\_ => np.s ! NPAcc) (predAux auxBe)) ;
+  --
+  --   ExistIP ip =
+  --     mkQuestion (ss (ip.s ! npNom))
+  --       (mkClause "there" (agrP3 ip.n) (predAux auxBe)) ;
+  --
+  --   ExistNPAdv np adv =
+  --     mkClause "there" (agrP3 (fromAgr np.a).n)
+  --       (insertObj (\\_ => np.s ! NPAcc ++ adv.s) (predAux auxBe)) ;
+  --
+  --   ExistIPAdv ip adv =
+  --     mkQuestion (ss (ip.s ! npNom))
+  --       (mkClause "there" (agrP3 ip.n) (insertObj (\\_ => adv.s) (predAux auxBe))) ;
+
+    -- ProgrVP vp = {
+    --   s = vp.s ;
+    --   perfSuff = vp.perfSuff ;
+    --   oc = vp.oc ;
+    --   comp = vp.comp ;
+    --   hasComp = vp.hasComp ;
+    --   r = vp.r ;
+    --   syl = vp.syl ;
+    --   asp = Prog ;
+    --   asp_pref = \\vform => vp.asp_pref!vform ++ (progPref vform) ;
+    --   vptype = vp.vptype ;
+    --   comp_agr = vp.comp_agr ;
+    --   ap_comp = vp.ap_comp ;
+    --   ap_bool = vp.ap_bool ;
+    --   aux_root = vp.aux_root ;
+    --   hasAux = vp.hasAux
+    -- } ;
+
+  --   ImpPl1 vp = {s = "let's" ++ infVP VVAux vp False Simul CPos (AgP1 Pl)} ;
+  --
+  --   ImpP3 np vp = {s = "let" ++ np.s ! NPAcc ++ infVP VVAux vp False Simul CPos np.a} ;
+  --
+  --   SelfAdvVP vp = insertObj reflPron vp ;
+  --   SelfAdVVP vp = insertAdVAgr reflPron vp ;
+  --   SelfNP np = {
+  --     s = \\c => np.s ! c ++ reflPron ! np.a ;
+  --     a = np.a
+  --     } ;
+
+}