Thai complete with what is needed to compile Sentences in Phrasebook

This commit is contained in:
aarne
2011-11-07 15:46:21 +00:00
parent 3148e305d5
commit 06630f223f
9 changed files with 55 additions and 31 deletions

View File

@@ -10,6 +10,15 @@ oper
= \s,c -> lin N {s = s ; c = c} ;
} ;
personN : Str -> N
= \s -> mkN s "คน" ;
fooddishN : Str -> N
= \s -> mkN s "จาน" ;
vehicleN : Str -> N
= \s -> mkN s "คัน" ;
houseN : Str -> N
= \s -> mkN s "หลัง" ;
mkA : Str -> A = \s -> lin A (mkAdj s) ;
mkV = overload {