From 587549a871b86559c3e69b399e56a73e708dfd44 Mon Sep 17 00:00:00 2001 From: krasimir Date: Fri, 27 Mar 2009 08:43:43 +0000 Subject: some fragments of Turkish noun morphology --- next-lib/src/turkish/ParadigmsTur.gf | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) (limited to 'next-lib/src/turkish/ParadigmsTur.gf') 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 -- cgit v1.2.3