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

PossPron, DetNP and PrepNP in Slovenian

Browse Source
This commit is contained in:
krasimir
2016-05-06 09:02:21 +00:00
parent 309d7c5cad
commit 73c76ec927
6 changed files with 32 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/src/slovenian/AdverbSlv.gf Normal file
View File

@@ -0,0 +1,6 @@
concrete AdverbSlv of Adverb = CatSlv ** open ResSlv in {
lin
PrepNP prep np = {s = prep.s ++ np.s ! prep.c} ;
}

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

@@ -17,7 +17,7 @@ lincat
CN = {s : Species => Case => Number => Str; g : Gender} ;
NP = {s : Case => Str ; a : Agr} ;
Pron = {s : Case => Str ; a : Agr} ;
Pron = {s : Case => Str; poss : Str; a : Agr} ;
Det = {s : Gender => Case => Str; spec : Species; n : NumAgr} ;
Num = {s : Gender => Case => Str ; n : NumAgr} ;

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

@@ -4,7 +4,7 @@ concrete GrammarSlv of Grammar =
NounSlv,
VerbSlv,
AdjectiveSlv,
{- AdverbSlv,-}
AdverbSlv,
NumeralSlv,
SentenceSlv,
{- QuestionSlv,

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

@@ -24,6 +24,16 @@ concrete NounSlv of Noun = CatSlv ** open ResSlv in {
n = num.n ;
} ;
DetNP det = {
s = det.s ! Masc ;
a = {g=Masc; n=case det.n of {UseNum n=>n; UseGen=>Pl}; p=P3};
} ;
PossPron p = {
s = p.poss ;
spec = Indef
} ;
NumSg = {s = \\_,_ => []; n = UseNum Sg} ;
NumPl = {s = \\_,_ => []; n = UseNum Pl} ;

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

@@ -279,8 +279,8 @@ oper
mkAdV : Str -> AdV = \s -> lin AdV {s=s} ;
mkPron : (_,_,_,_,_,_ : Str) -> Gender -> Number -> Person -> Pron =
\nom,acc,gen,dat,loc,instr,g,n,p ->
mkPron : (_,_,_,_,_,_,_ : Str) -> Gender -> Number -> Person -> Pron =
\nom,acc,gen,dat,loc,instr,poss,g,n,p ->
lin Pron {s = table {
Nom => nom;
Acc => acc;
@@ -289,6 +289,7 @@ oper
Loc => loc;
Instr=>instr
} ;
poss = poss ;
a = {g=g; n=n; p=p}
} ;

22
lib/src/slovenian/StructuralSlv.gf
View File

@@ -1,17 +1,17 @@
concrete StructuralSlv of Structural = CatSlv ** open ResSlv, ParadigmsSlv in {
lin
he_Pron = mkPron "òn" "njêga" "njêga" "njêmu" "njêm" "njím" Masc Sg P3 ;
i_Pron = mkPron "jàz" "méne" "méne" "méni" "méni" ("menój"|"máno") Masc Sg P1 ;
it_Pron = mkPron "ôno" "njêga" "njêga" "njêmu" "njêm" "njím" Neut Sg P3 ;
she_Pron = variants {mkPron "ôna" "njó" "njé" "njéj" "njéj" "njó" Fem Sg P3 ;
mkPron "ôna" "njó" "njé" "njèj" "njèj" "njó" Fem Sg P3 ;
mkPron "ôna" "njó" "njé" "njì" "njì" "njó" Fem Sg P3 } ;
they_Pron = mkPron "ôni" "njìh" "njìh" "njìm" "njìh" "njími" Masc Pl P3 ;
we_Pron = mkPron "mí" "nàs" "nàs" "nàm" "nàs" "nàmi" Masc Pl P1 ;
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 ;
he_Pron = mkPron "òn" "njêga" "njêga" "njêmu" "njêm" "njím" "njegôv" Masc Sg P3 ;
i_Pron = mkPron "jàz" "méne" "méne" "méni" "méni" ("menój"|"máno") "mój" Masc Sg P1 ;
it_Pron = mkPron "ôno" "njêga" "njêga" "njêmu" "njêm" "njím" ("njegôv"|"njegòv") Neut Sg P3 ;
she_Pron = variants {mkPron "ôna" "njó" "njé" "njéj" "njéj" "njó" "njén" Fem Sg P3 ;
mkPron "ôna" "njó" "njé" "njèj" "njèj" "njó" "njén" Fem Sg P3 ;
mkPron "ôna" "njó" "njé" "njì" "njì" "njó" "njén" Fem Sg P3 } ;
they_Pron = mkPron "ôni" "njìh" "njìh" "njìm" "njìh" "njími" "njíhov" Masc Pl P3 ;
we_Pron = mkPron "mí" "nàs" "nàs" "nàm" "nàs" "nàmi" "nàš" Masc Pl P1 ;
youSg_Pron = mkPron "tí" "tébe" "tébe" "tébi" "tébi" ("tebój"|"tábo") "tvój" Masc Sg P2 ;
youPl_Pron = mkPron "ví" "vàs" "vàs" "vàm" "vàs" "vàmi" "vàš" Masc Pl P2 ;
youPol_Pron = mkPron "ví" "vàs" "vàs" "vàm" "vàs" "vàmi" "vàš" 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 ;