diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-12-18 14:21:28 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-12-18 14:21:28 +0000 |
| commit | 9e341cc7f9020eda842c8ad0f1f57bf6326eb89d (patch) | |
| tree | 1c0e78a1c3790286a0fabf408ea15ee179f8749d /next-lib/src/thai/AdjectiveTha.gf | |
| parent | 98a4b6a8088273dfa55dfa1c3ea78e85cd9c7a8d (diff) | |
Hindi and Thai compile in 1.5
Diffstat (limited to 'next-lib/src/thai/AdjectiveTha.gf')
| -rw-r--r-- | next-lib/src/thai/AdjectiveTha.gf | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/next-lib/src/thai/AdjectiveTha.gf b/next-lib/src/thai/AdjectiveTha.gf new file mode 100644 index 000000000..68e8acba9 --- /dev/null +++ b/next-lib/src/thai/AdjectiveTha.gf @@ -0,0 +1,36 @@ +concrete AdjectiveTha of Adjective = CatTha ** open ResTha, Prelude in { + + lin + + PositA a = a ; + +-- ComparA a np = { +-- s = \\_ => a.s ! AAdj Compar ++ "than" ++ np.s ! Nom ; +-- isPre = False +-- } ; +-- +---- $SuperlA$ belongs to determiner syntax in $Noun$. +-- +-- ComplA2 a np = { +-- s = \\_ => a.s ! AAdj Posit ++ a.c2 ++ np.s ! Acc ; +-- isPre = False +-- } ; +-- +-- ReflA2 a = { +-- s = \\ag => a.s ! AAdj Posit ++ a.c2 ++ reflPron ! ag ; +-- isPre = False +-- } ; +-- +-- SentAP ap sc = { +-- s = \\a => ap.s ! a ++ sc.s ; +-- isPre = False +-- } ; +-- +-- AdAP ada ap = { +-- s = \\a => ada.s ++ ap.s ! a ; +-- isPre = ap.isPre +-- } ; +-- +-- UseA2 a = a ; +-- +} |
