complete Thai resource syntax (but many unverified rules)

lib/src/thai/RelativeTha.gf

@@ -1,48 +1,10 @@
---concrete RelativeTha of Relative = CatTha ** open ResTha in {
---
---  flags optimize=all_subs ;
---
---  lin
---
---    RelCl cl = {
---      s = \\t,a,p,_ => "such" ++ "that" ++ cl.s ! t ! a ! p ! ODir ; 
---      c = Nom
---      } ;
---
---    RelVP rp vp = {
---      s = \\t,ant,b,ag => 
---        let 
---          agr = case rp.a of {
---            RNoAg => ag ;
---            RAg a => a
---            } ;
---          cl = mkClause (rp.s ! RC Nom) agr vp
---        in
---        cl.s ! t ! ant ! b ! ODir ;
---      c = Nom
---      } ;
---
----- Pied piping: "at which we are looking". Stranding and empty
----- relative are defined in $ExtraTha.gf$ ("that we are looking at", 
----- "we are looking at").
---
---    RelSlash rp slash = {
---      s = \\t,a,p,_ => slash.c2 ++ rp.s ! RPrep ++ slash.s ! t ! a ! p ! ODir ;
---      c = Acc
---      } ;
---
---    FunRP p np rp = {
---      s = \\c => np.s ! Acc ++ p.s ++ rp.s ! RPrep ;
---      a = RAg np.a
---      } ;
---
---    IdRP = {
---      s = table {
---        RC Gen => "whose" ; 
---        RC _   => "that" ;
---        RPrep  => "which"
---        } ;
---      a = RNoAg
---      } ;
---
---}
+concrete RelativeTha of Relative = CatTha ** open ResTha, Prelude in {
+
+  lin
+    RelCl cl = {s = \\p => thbind thii_s (cl.s ! ClDecl ! p)} ; ---- ??
+    RelVP rp vp = mkPolClause rp vp ;
+    RelSlash rp slash = {s = \\p => thbind slash.c2 rp.s (slash.s ! p)} ;
+    FunRP p np rp = {s = thbind np.s p.s rp.s} ; ---- ??
+    IdRP = ss thii_s ;
+
+}