diff options
Diffstat (limited to 'next-lib/src/turkish/ParadigmsTur.gf')
| -rw-r--r-- | next-lib/src/turkish/ParadigmsTur.gf | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/next-lib/src/turkish/ParadigmsTur.gf b/next-lib/src/turkish/ParadigmsTur.gf index 102098c8c..969a17bee 100644 --- a/next-lib/src/turkish/ParadigmsTur.gf +++ b/next-lib/src/turkish/ParadigmsTur.gf @@ -40,4 +40,30 @@ oper VInfinitive => inf } } ; + + add_number : Number -> Str -> Str = \n,base -> + case n of { + Sg => base ; + Pl => harmony2 base "ler" + } ; + + regN : Str -> Noun = \base -> { + s = \\n => table { + Nom => add_number n base ; + Acc => harmony4 (add_number n base) "i" ; + Dat => harmony2 (add_number n base) "e" ; + Gen => harmony4 (add_number n base) "in" ; + Loc => harmony2 (add_number n base) "de" ; + Ablat => add_number n base ; + Abess => add_number n base + } ; + gen = \\n => table { + {n=Sg; p=P1} => harmony4 (add_number n base) "im" ; + {n=Sg; p=P2} => harmony4 (add_number n base) "in" ; + {n=Sg; p=P3} => harmony4 (add_number n base) "i" ; + {n=Pl; p=P1} => harmony4 (add_number n base) "imiz" ; + {n=Pl; p=P2} => harmony4 (add_number n base) "iniz" ; + {n=Pl; p=P3} => harmony4 (add_number n base) "i" + } + } ; }
\ No newline at end of file |