GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 19:42:50 -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}; A = {s : AForm => Str};
N = {s : Case => Number => Str; g : AGender}; 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 = { UsePN pn = {
s = pn.s; s = pn.s;
a = {g=agender2gender pn.g; n=Sg; p=P3}; a = {g=agender2gender pn.g; n=pn.n; p=P3};
isPron = False isPron = False
} ; } ;

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

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