diff --git a/lib/src/slovenian/ParadigmsSlv.gf b/lib/src/slovenian/ParadigmsSlv.gf index 2b13ba6a3..56673d226 100644 --- a/lib/src/slovenian/ParadigmsSlv.gf +++ b/lib/src/slovenian/ParadigmsSlv.gf @@ -288,7 +288,20 @@ oper } ; a = {g=g; n=n; p=p} } ; - + + mkNP : (_,_,_,_,_,_ : Str) -> Gender -> Number -> NP = + \nom,acc,gen,dat,loc,instr,g,n -> + lin NP {s = table { + Nom => nom; + Acc => acc; + Gen => gen; + Dat => dat; + Loc => loc; + Instr=>instr + } ; + a = {g=Neut; n=n; p=P3} + } ; + mkInterj : Str -> Interj = \s -> lin Interj {s=s} ; diff --git a/lib/src/slovenian/StructuralSlv.gf b/lib/src/slovenian/StructuralSlv.gf index 9ff40bc25..f8045c88c 100644 --- a/lib/src/slovenian/StructuralSlv.gf +++ b/lib/src/slovenian/StructuralSlv.gf @@ -12,4 +12,9 @@ lin youSg_Pron = mkPron "tí" "tébe" "tébe" "tébi" "tébi" ("tebój"|"tábo") Masc Sg P2 ; youPl_Pron = mkPron "ví" "vàs" "vàs" "vàm" "vàs" "vàmi" Masc Pl P2 ; youPol_Pron = mkPron "ví" "vàs" "vàs" "vàm" "vàs" "vàmi" Masc Pl P2 ; + somebody_NP = mkNP "nekdo" "nekóga" "nekóga" "nekómu" "nekóm" "nekóm" Masc Sg ; + something_NP = mkNP "nekaj" "nekaj" "nečésa" "nečému" "nečém" "nečīm" Neut Sg ; + nobody_NP = mkNP "nihčè" "nikȏgar" "nikȏgar" "nikȏmur" "nikȏmer" "nikȏmer" Masc Sg ; + nothing_NP = mkNP "nìč" "nìč" "ničȇsar" "ničȇmur" "ničȇmer" "ničîmer" Masc Sg ; + }