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

genitives in possessives in Nor (and Scand)

Browse Source
This commit is contained in:
aarne
2010-05-28 13:29:13 +00:00
parent 7a96cfc1b6
commit da5ecd322e
8 changed files with 11 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/src/norwegian/ExtraNor.gf
View File

@@ -2,10 +2,8 @@ concrete ExtraNor of ExtraNorAbs = ExtraScandNor ** open CommonScand, ResNor, Pr
lin
PossNP np pro = {
s = table {
NPPoss _ => np.s ! NPNom ++ pro.s ! NPPoss (gennumAgr np.a) ++ BIND ++ "s" ; ----
_ => np.s ! NPNom ++ pro.s ! NPPoss (gennumAgr np.a)
} ;
s = \\c => np.s ! NPNom ++ pro.s ! NPPoss (gennumAgr np.a) (caseNP c) ;
a = np.a
} ;
}

2
lib/src/norwegian/ParadigmsNor.gf
View File

@@ -325,7 +325,7 @@ oper
makeNP : Str -> Str -> Number -> Gender -> NP ;
makeNP x y n g =
{s = table {NPPoss _ => x ; _ => y} ; a = agrP3 (ngen2gen g) n ;
{s = table {NPPoss _ _ => x ; _ => y} ; a = agrP3 (ngen2gen g) n ;
lock_NP = <>} ;
mk3A = mk3ADeg ; ---- (mkAdject a b c [] []) ** {isComp = False ; lock_A = <>} ;

2
lib/src/norwegian/StructuralNor.gf
View File

@@ -74,7 +74,7 @@ concrete StructuralNor of Structural = CatNor **
Sg => \\_,_ => genderForms ["den der"] ["det der"] ;
Pl => \\_,_,_ => ["de der"]
} ;
det = DDef Indef
det = DDef Def
} ;
there_Adv = ss "der" ;
there7to_Adv = ss "dit" ;