GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-13 23:09:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

allow plural PNs in Slovenian

Browse Source
This commit is contained in:
krasimir
2016-12-06 11:39:56 +00:00
parent 0380ec8e17
commit b75bca14de
3 changed files with 10 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/src/slovenian/CatSlv.gf
View File

@@ -47,6 +47,6 @@ lincat
A = {s : AForm => Str};
N = {s : Case => Number => Str; g : AGender};
PN = {s : Case => Str; g : AGender};
PN = {s : Case => Str; g : AGender; n : Number};
}

2
lib/src/slovenian/NounSlv.gf
View File

@@ -19,7 +19,7 @@ concrete NounSlv of Noun = CatSlv ** open ResSlv,Prelude in {
UsePN pn = {
s = pn.s;
a = {g=agender2gender pn.g; n=Sg; p=P3};
a = {g=agender2gender pn.g; n=pn.n; p=P3};
isPron = False
} ;

13
lib/src/slovenian/ParadigmsSlv.gf
View File

@@ -129,14 +129,16 @@ oper
mkPN = overload {
mkPN : N -> PN = \noun -> lin PN {
s = \\c => noun.s ! c ! Sg ;
g = noun.g
g = noun.g ;
n = Sg
};
mkPN : N -> Number -> PN = \noun,nr -> lin PN {
s = \\c => noun.s ! c ! nr ;
g = noun.g
g = noun.g ;
n = nr
};
mkPN : (_,_,_,_,_,_ : Str) -> AGender -> PN =
\nom,gen,dat,acc,loc,instr,g -> lin PN {
mkPN : (_,_,_,_,_,_ : Str) -> AGender -> Number -> PN =
\nom,gen,dat,acc,loc,instr,g,n -> lin PN {
s = table {
Nom => nom;
Gen => gen;
@@ -145,7 +147,8 @@ oper
Loc => loc;
Instr => instr
};
g = g
g = g ;
n = n
};
} ;