summaryrefslogtreecommitdiff
path: root/old-lib/resource/thai/AdjectiveTha.gf
diff options
context:
space:
mode:
authoraarne <aarne@chalmers.se>2009-06-22 15:39:08 +0000
committeraarne <aarne@chalmers.se>2009-06-22 15:39:08 +0000
commite89fdae2fa1626348d8025824a7469252fa85e42 (patch)
treec7d46bbd0494043b4bd6f917a25a7687517d0547 /old-lib/resource/thai/AdjectiveTha.gf
parent3049b59b35b25381a7c6787444165c200d66e08b (diff)
next-lib renamed to lib, lib to old-lib
Diffstat (limited to 'old-lib/resource/thai/AdjectiveTha.gf')
-rw-r--r--old-lib/resource/thai/AdjectiveTha.gf36
1 files changed, 36 insertions, 0 deletions
diff --git a/old-lib/resource/thai/AdjectiveTha.gf b/old-lib/resource/thai/AdjectiveTha.gf
new file mode 100644
index 000000000..68e8acba9
--- /dev/null
+++ b/old-lib/resource/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 ;
+--
+}