summaryrefslogtreecommitdiff
path: root/next-lib/src/thai/CatTha.gf
diff options
context:
space:
mode:
authoraarne <aarne@cs.chalmers.se>2008-12-18 14:21:28 +0000
committeraarne <aarne@cs.chalmers.se>2008-12-18 14:21:28 +0000
commit9e341cc7f9020eda842c8ad0f1f57bf6326eb89d (patch)
tree1c0e78a1c3790286a0fabf408ea15ee179f8749d /next-lib/src/thai/CatTha.gf
parent98a4b6a8088273dfa55dfa1c3ea78e85cd9c7a8d (diff)
Hindi and Thai compile in 1.5
Diffstat (limited to 'next-lib/src/thai/CatTha.gf')
-rw-r--r--next-lib/src/thai/CatTha.gf77
1 files changed, 77 insertions, 0 deletions
diff --git a/next-lib/src/thai/CatTha.gf b/next-lib/src/thai/CatTha.gf
new file mode 100644
index 000000000..d13983f4a
--- /dev/null
+++ b/next-lib/src/thai/CatTha.gf
@@ -0,0 +1,77 @@
+concrete CatTha of Cat = CommonX ** open ResTha, Prelude in {
+
+ flags optimize=all_subs ;
+
+ lincat
+
+-- Tensed/Untensed
+
+ S = {s : Str} ;
+ QS = {s : QForm => Str} ;
+-- RS = {s : Agr => Str ; c : Case} ; -- c for it clefts
+--
+---- Sentence
+--
+ Cl = {s : Polarity => Str} ;
+-- Slash = {
+-- s : Tense => Anteriority => CPolarity => Order => Str ;
+-- c2 : Str
+-- } ;
+ Imp = {s : Polarity => Str} ;
+--
+---- Question
+--
+ QCl = {s : Polarity => Str} ;
+-- IP = {s : Case => Str ; n : Number} ;
+-- IComp = {s : Str} ;
+-- IDet = {s : Str ; n : Number} ;
+--
+---- Relative
+--
+-- RCl = {s : Tense => Anteriority => CPolarity => Agr => Str ; c : Case} ;
+-- RP = {s : RCase => Str ; a : RAgr} ;
+--
+---- Verb
+--
+ VP = ResTha.VP ;
+ Comp = ResTha.VP ;
+--
+---- Adjective
+--
+-- AP = {s : Agr => Str ; isPre : Bool} ;
+--
+-- Noun
+--
+ CN = Noun ;
+ NP, Pron = SS ;
+ Det = Determiner ;
+-- Predet, Ord = {s : Str} ;
+ Num, Quant = {s : Str ; hasC : Bool} ;
+
+-- Numeral
+
+ Numeral = {s : Str} ;
+
+---- Structural
+--
+-- Conj = {s : Str ; n : Number} ;
+-- DConj = {s1,s2 : Str ; n : Number} ;
+-- Subj = {s : Str} ;
+-- Prep = {s : Str} ;
+--
+-- Open lexical classes, e.g. Lexicon
+
+ V, VS, VQ, VA = Verb ;
+ V2, V2A = Verb ** {c2 : Str} ;
+ V3 = Verb ** {c2, c3 : Str} ;
+ VV = VVerb ;
+--
+-- A = {s : AForm => Str} ;
+-- A2 = {s : AForm => Str ; c2 : Str} ;
+--
+ N = Noun ;
+-- N2 = {s : Number => Case => Str} ** {c2 : Str} ;
+-- N3 = {s : Number => Case => Str} ** {c2,c3 : Str} ;
+-- PN = {s : Case => Str} ;
+--
+}