msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

disambiguated Number in Slovenian

Browse Source
This commit is contained in:
aarneranta
2023-09-08 13:11:10 +02:00
parent 5f9322683c
commit 03d3a8cbc2
3 changed files with 21 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
src/slovenian/DocumentationSlv.gf
View File

@@ -1,6 +1,6 @@
--# -path=.:../abstract:../common --# -path=.:../abstract:../common
concrete DocumentationSlv of Documentation = CatSlv ** open concrete DocumentationSlv of Documentation = CatSlv ** open
ResSlv, ParamX, ResSlv, (P=ParamX),
HTML in { HTML in {
flags coding=utf8 ; flags coding=utf8 ;
@@ -73,8 +73,8 @@ lin
t = "li" ; t = "li" ;
s1= heading1 ("Dano Ime"++ s1= heading1 ("Dano Ime"++
case n.g of { case n.g of {
Male => "(moški)" ; P.Male => "(moški)" ;
Female => "(ženski)" P.Female => "(ženski)"
}) ; }) ;
s2= frameTable ( s2= frameTable (
tr (th "imen." ++ td (n.s!Nom))++ tr (th "imen." ++ td (n.s!Nom))++
@@ -90,12 +90,12 @@ lin
t = "li" ; t = "li" ;
s1= heading1 "Družinsko Ime" ; s1= heading1 "Družinsko Ime" ;
s2= frameTable ( s2= frameTable (
tr (th "imen." ++ td (n.s!Male!Nom))++ tr (th "imen." ++ td (n.s!P.Male!Nom))++
tr (th "rod." ++ td (n.s!Male!Gen))++ tr (th "rod." ++ td (n.s!P.Male!Gen))++
tr (th "daj." ++ td (n.s!Male!Dat))++ tr (th "daj." ++ td (n.s!P.Male!Dat))++
tr (th "tož." ++ td (n.s!Male!Acc))++ tr (th "tož." ++ td (n.s!P.Male!Acc))++
tr (th "mest." ++ td (n.s!Male!Loc))++ tr (th "mest." ++ td (n.s!P.Male!Loc))++
tr (th "orod."++td (n.s!Male!Instr)) tr (th "orod."++td (n.s!P.Male!Instr))
) )
} ; } ;

6
src/slovenian/NamesSlv.gf
View File

@@ -1,4 +1,4 @@
concrete NamesSlv of Names = CatSlv ** open ResSlv, ParamX, Prelude in { concrete NamesSlv of Names = CatSlv ** open ResSlv, (P=ParamX), Prelude in {
lin GivenName = \n -> { lin GivenName = \n -> {
s = n.s; s = n.s;
@@ -6,12 +6,12 @@ lin GivenName = \n -> {
isPron = False isPron = False
} ; } ;
lin MaleSurname = \n -> { lin MaleSurname = \n -> {
s = n.s ! Male; s = n.s ! P.Male;
a = {g=Masc; n=Sg; p=P3}; a = {g=Masc; n=Sg; p=P3};
isPron = False isPron = False
} ; } ;
lin FemaleSurname = \n -> { lin FemaleSurname = \n -> {
s = n.s ! Female; s = n.s ! P.Female;
a = {g=Fem; n=Sg; p=P3}; a = {g=Fem; n=Sg; p=P3};
isPron = False isPron = False
} ; } ;

18
src/slovenian/ParadigmsSlv.gf
View File

@@ -1,4 +1,4 @@
resource ParadigmsSlv = open CatSlv, ResSlv, ParamX, Prelude, Predef in { resource ParadigmsSlv = open CatSlv, ResSlv, (P=ParamX), Prelude, Predef in {
oper oper
nominative : Case = Nom ; nominative : Case = Nom ;
@@ -16,12 +16,12 @@ oper
feminine = AFem; feminine = AFem;
neuter = ANeut; neuter = ANeut;
male = Male ; male = P.Male ;
female = Female ; female = P.Female ;
singular : Number = Sg ; singular : ResSlv.Number = ResSlv.Sg ;
dual : Number = Dl ; dual : ResSlv.Number = Dl ;
plural : Number = Pl ; plural : ResSlv.Number = ResSlv.Pl ;
definite : Species = Def ; definite : Species = Def ;
indefinite : Species = Indef ; indefinite : Species = Indef ;
@@ -45,7 +45,7 @@ oper
--In case the genitive singular has an extra vowel in the end, it is dropped before coming here. --In case the genitive singular has an extra vowel in the end, it is dropped before coming here.
mascAll : (_,_ : Str) -> Animacy -> N = \oce,ocet,anim -> mascAll : (_,_ : Str) -> Animacy -> N = \oce,ocet,anim ->
let accsg = case anim of {Animate => ocet + "a"; _ => oce}; --Special case: Masc Sg Acc Animate let accsg = case anim of {Animate => ocet + "a"; _ => oce}; --Special case: Masc ResSlv.Sg Acc Animate
oceto : Str oceto : Str
= case ocet of { = case ocet of {
_ + ("c"|"j"|"ž"|"š"|"č") => ocet+"e" ; _ + ("c"|"j"|"ž"|"š"|"č") => ocet+"e" ;
@@ -208,12 +208,12 @@ oper
} ; } ;
mkGN = overload { mkGN = overload {
mkGN : Str -> Sex -> GN = mkGN : Str -> P.Sex -> GN =
\s,g -> lin GN { \s,g -> lin GN {
s = \\_ => s ; s = \\_ => s ;
g = g g = g
}; };
mkGN : (_,_,_,_,_,_ : Str) -> Sex -> GN = mkGN : (_,_,_,_,_,_ : Str) -> P.Sex -> GN =
\nom,gen,dat,acc,loc,instr,g -> lin GN { \nom,gen,dat,acc,loc,instr,g -> lin GN {
s = table { s = table {
Nom => nom; Nom => nom;