diff options
| author | krasimir <krasimir@chalmers.se> | 2009-03-27 08:43:43 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2009-03-27 08:43:43 +0000 |
| commit | 587549a871b86559c3e69b399e56a73e708dfd44 (patch) | |
| tree | b4ae65b57752c3f0801d63ddc14f9f586fbf420e /next-lib/src/turkish/ParadigmsTur.gf | |
| parent | 5ced40f789bc8ef4ec824e6dca4aeb856bf5eac9 (diff) | |
some fragments of Turkish noun morphology
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 |