GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-18 15:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

refinementsNep-11-06-27

Browse Source
This commit is contained in:
virk.shafqat
2011-06-27 14:55:51 +00:00
parent a98d4bb0aa
commit a7fede8ee4
21 changed files with 113 additions and 71 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
lib/src/nepali/SymbolNep.gf
View File

@@ -5,21 +5,30 @@ concrete SymbolNep of Symbol = CatNep ** open Prelude, ResNep in {
flags coding = utf8;
lin
SymbPN i = {s = addGenitiveS i.s ; g = Masc} ;
IntPN i = {s = addGenitiveS i.s ; g = Masc} ;
FloatPN i = {s = addGenitiveS i.s ; g = Masc} ;
NumPN i = {s = \\_ =>i.s ; g = Masc} ;
SymbPN i = {s = addGenitiveS i.s ; g = Masc ; t = NonLiving ; h = Pers3_L } ;
IntPN i = {s = addGenitiveS i.s ; g = Masc ; t = NonLiving ; h = Pers3_L } ;
FloatPN i = {s = addGenitiveS i.s ; g = Masc ; t = NonLiving ; h = Pers3_L } ;
NumPN i = {s = \\_ =>i.s ; g = Masc ; t = NonLiving ; h = Pers3_L } ;
CNIntNP cn i = {
s = \\c => cn.s ! Sg ! Nom ++ i.s ;
a = agrP3 cn.g Sg
a = agrP3 cn.g Sg ;
t = NonLiving
} ;
CNSymbNP det cn xs = {
s = \\c => det.s!Sg!Masc ++ cn.s ! det.n ! Nom ++ xs.s ;
a = agrP3 cn.g det.n
a = agrP3 cn.g det.n ;
t = NonLiving
} ;
CNNumNP cn i = {
s = \\c => cn.s ! Sg ! Nom ++ i.s ;
a = agrP3 cn.g Sg
a = agrP3 cn.g Sg ;
t = NonLiving
} ;
SymbS sy = sy ;
@@ -40,7 +49,6 @@ oper
-- Note: this results in a space before 's, but there's
-- not mauch we can do about that.
addGenitiveS : Str -> Case => Str = \s ->
table {_ => s ++ "दा" } ;
table {_ => Prelude.glue s "दा" } ;
}