GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-30 02:18:55 -06:00
Code Issues Packages Projects Releases Wiki Activity

nounAdjVerbNumerals

Browse Source
This commit is contained in:
e1560697
2010-03-22 08:44:21 +00:00
parent 699e84d26e
commit 01d0bcdb12
13 changed files with 48408 additions and 260 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/turkish/NounTur.gf
View File

@@ -1,3 +1,5 @@
--# -path=.:../abstract:../common:../../prelude
concrete NounTur of Noun = CatTur ** open ResTur, Prelude in {
flags optimize=all_subs ;
@@ -11,20 +13,20 @@ concrete NounTur of Noun = CatTur ** open ResTur, Prelude in {
UsePron p = p ;
DetQuant quant num = {
s = quant.s ++ num.s ;
s = quant.s ++ num.s ! Sg ! Nom ;
n = num.n
} ;
NumSg = {s = []; n = Sg} ;
NumPl = {s = []; n = Pl} ;
NumSg = {s = \\num,c => []; n = Sg} ;
NumPl = {s = \\num,c => []; n = Pl} ;
NumCard n = n ** {n = Sg} ;
NumNumeral numeral = {s = numeral.s ! NCard} ;
OrdDigits dig = {s = dig.s ! NOrd} ;
OrdNumeral num = {s = num.s ! NOrd} ;
OrdSuperl a = {s = "daha" ++ a.s ! Sg ! Nom} ;
OrdDigits dig = {s = \\c => dig.s ! NOrd ! c} ;
OrdNumeral num = {s = \\c => num.s ! NOrd ! c} ;
OrdSuperl a = {s = \\n,c => "en" ++ a.s ! n ! c} ;
DefArt = {
s = []