complete Thai resource syntax (but many unverified rules)

lib/src/thai/IdiomTha.gf

@@ -1,30 +1,32 @@
---concrete IdiomTha of Idiom = CatTha ** open Prelude, ResTha 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 np.a.n) 
---        (insertObj (\\_ => np.s ! Acc) (predAux auxBe)) ;
---
---    ExistIP ip = 
---      mkQuestion (ss (ip.s ! Nom)) 
---        (mkClause "there" (agrP3 ip.n) (predAux auxBe)) ;
---
---    ProgrVP vp = insertObj (\\a => vp.ad ++ vp.prp ++ vp.s2 ! a) (predAux auxBe) ;
---
---    ImpPl1 vp = {s = "let's" ++ infVP True vp {n = Pl ; p = P1}} ;
---
---}
---
+concrete IdiomTha of Idiom = CatTha ** open Prelude, ResTha in {
+
+  lin
+    ImpersCl vp = mkClause (mkNP []) vp ;
+    GenericCl vp = mkClause (mkNP []) vp ; ---- ??
+
+    CleftNP np rs = {s = \\q,p => thbind (case p of{      ---- ??
+      Pos => thbind np.s pen_s rs.s ;
+      Neg => thbind np.s may_s chay_s rs.s
+      })  (case q of {ClQuest => m'ay_s ; _ => []})
+    } ;
+
+    CleftAdv ad s = {s = \\q,p => thbind (negation p) ad.s s.s (case q of {ClQuest => m'ay_s ; _ => []})} ; ---- ??
+
+    ExistNP np = {
+      s = \\q,p => thbind (case p of {
+        Pos => thbind pen_s np.s ;
+        Neg => thbind may_s chay_s np.s
+      }) (case q of {ClQuest => m'ay_s ; _ => []})
+    } ;
+
+    ExistIP ip = mkPolClause ip (predV (regV [])) ; ----
+
+    ProgrVP vp = {
+      s = \\p => thbind kam_s lag2_s (vp.s ! p) ;
+      } ;
+
+    ImpPl1 vp = ss (infVP vp) ; ----
+
+}
+
+