thai questions and negations

This commit is contained in:
aarne
2007-01-21 20:41:35 +00:00
parent b768aa780f
commit edbfc31000
15 changed files with 196 additions and 122 deletions

View File

@@ -1,7 +1,9 @@
--concrete AdverbTha of Adverb = CatTha ** open ResTha, Prelude in {
--
-- lin
-- PositAdvAdj a = {s = a.s ! AAdv} ;
concrete AdverbTha of Adverb = CatTha **
open ResTha, StringsTha, Prelude in {
lin
PositAdvAdj a = a ;
-- ComparAdvAdj cadv a np = {
-- s = cadv.s ++ a.s ! AAdv ++ "than" ++ np.s ! Nom
-- } ;
@@ -18,4 +20,4 @@
--
-- AdnCAdv cadv = {s = cadv.s ++ "than"} ;
--
--}
}