From 9e341cc7f9020eda842c8ad0f1f57bf6326eb89d Mon Sep 17 00:00:00 2001 From: aarne Date: Thu, 18 Dec 2008 14:21:28 +0000 Subject: Hindi and Thai compile in 1.5 --- next-lib/src/thai/AdjectiveTha.gf | 36 ++++++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) create mode 100644 next-lib/src/thai/AdjectiveTha.gf (limited to 'next-lib/src/thai/AdjectiveTha.gf') 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 ; +-- +} -- cgit v1.2.3