diff --git a/src/turkish/AdjectiveTur.gf b/src/turkish/AdjectiveTur.gf new file mode 100644 index 00000000..a005a279 --- /dev/null +++ b/src/turkish/AdjectiveTur.gf @@ -0,0 +1,10 @@ +concrete AdjectiveTur of Adjective = CatTur ** open ResTur, Prelude in { + + lin + PositA a = {s=a.s} ; + + ComparA a np = { + s = \\n,c => np.s ! Ablat ++ a.s ! n ! c ; + } ; + +} diff --git a/src/turkish/CatTur.gf b/src/turkish/CatTur.gf index a80fa791..e3ace03f 100644 --- a/src/turkish/CatTur.gf +++ b/src/turkish/CatTur.gf @@ -21,6 +21,10 @@ concrete CatTur of Cat = CommonX ** open ResTur, Prelude in { Numeral = {s : CardOrd => Number => Case => Str ; n : Number} ; Digits = {s : CardOrd => Number => Case => Str ; n : Number; tail : DTail} ; +-- Adjective + + AP = {s : Number => Case => Str} ; + -- Open lexical classes, e.g. Lexicon V, VS, VQ, VA = Verb ; V2, V2Q, V2V, V2A, V2S = Verb ** {c : Compl} ; diff --git a/src/turkish/GrammarTur.gf b/src/turkish/GrammarTur.gf index 8d6c94b9..bea10806 100644 --- a/src/turkish/GrammarTur.gf +++ b/src/turkish/GrammarTur.gf @@ -2,6 +2,7 @@ concrete GrammarTur of Grammar = NounTur, + AdjectiveTur, NumeralTur, StructuralTur ** { diff --git a/src/turkish/NounTur.gf b/src/turkish/NounTur.gf index 9c5b5148..05091d98 100644 --- a/src/turkish/NounTur.gf +++ b/src/turkish/NounTur.gf @@ -36,4 +36,8 @@ concrete NounTur of Noun = CatTur ** open ResTur, Prelude in { } ; UseN n = n ; -} \ No newline at end of file + + AdjCN ap cn = { + s = \\n,c => ap.s ! n ! c ++ cn.s ! n ! c + } ; +}