GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-27 17:08:54 -06:00
Code Issues Packages Projects Releases Wiki Activity

some Slo fixes from Slavomír

Browse Source
This commit is contained in:
Aarne Ranta
2020-05-02 21:07:09 +02:00
parent dbe7264371
commit 8878024901
3 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/slovak/AdjectiveSlo.gf
View File

@@ -18,6 +18,6 @@ concrete AdjectiveSlo of Adjective = CatSlo ** open ResSlo, Prelude in {
UseComparA a = adjFormsAdjective a ** {isPost = False} ; ---- TODO: this gives positive forms UseComparA a = adjFormsAdjective a ** {isPost = False} ; ---- TODO: this gives positive forms
AdvAP ap adv = ap ** {s = \\g,n,c => ap.s ! g ! n ! c ++ adv.s} ; AdvAP ap adv = ap ** {s = \\g,n,c => ap.s ! g ! n ! c ++ adv.s ; isPost = True} ;
} }

2
src/slovak/NounSlo.gf
View File

@@ -63,7 +63,7 @@ lin
} ; } ;
AdjCN ap cn = { AdjCN ap cn = {
s = \\n,c => ap.s ! cn.g ! n ! c ++ cn.s ! n ! c ; s = \\n,c => preOrPost (notB ap.isPost) (ap.s ! cn.g ! n ! c) (cn.s ! n ! c) ;
g = cn.g g = cn.g
} ; } ;

5
src/slovak/StructuralSlo.gf
View File

@@ -11,11 +11,12 @@ lin
in_Prep = mkPrep (pre {"v" => "vo" ; _ => "v"}) Loc ; ---- in_Prep = mkPrep (pre {"v" => "vo" ; _ => "v"}) Loc ; ----
many_Det = regNumeral "mnoho" "mnohých" "mnohým" "mnohými" ; ---- alternative: invarNumeral "veľa" ; many_Det = regNumeral "mnoho" "mnohých" "mnohým" "mnohými" ; ---- alternative: invarNumeral "veľa" ;
or_Conj = mkConj "alebo" ; or_Conj = mkConj "alebo" ;
somePl_Det = {s = \\g,c => (demPronFormsAdjective (mkDemPronForms "niektor") "").s ! g ! Pl ! c ; size = Num5} ; somePl_Det = invarDeterminer "niekoľko" Num5 ;
--- somePl_Det = {s = \\g,c => (demPronFormsAdjective (mkDemPronForms "niekoľko") "").s ! g ! Pl ! c ; size = Num5} ;
something_NP = {s,clit,prep = \\c => "nie" + coForms ! c ; a = Ag Neutr Sg P3 ; hasClit = False} ; -- CEG 5.6.3 something_NP = {s,clit,prep = \\c => "nie" + coForms ! c ; a = Ag Neutr Sg P3 ; hasClit = False} ; -- CEG 5.6.3
possess_Prep = mkPrep "" Gen ; possess_Prep = mkPrep "" Gen ;
that_Quant = demPronFormsAdjective (tenDemPronForms "tam") "" ; that_Quant = demPronFormsAdjective (tenDemPronForms "tam") "" ;
this_Quant = demPronFormsAdjective (tenDemPronForms "" ** {msgen = "toh"}) "to" ; this_Quant = demPronFormsAdjective (tenDemPronForms "" ** {msgen = "toho"}) "" ;
to_Prep = mkPrep "do" Gen ; to_Prep = mkPrep "do" Gen ;
with_Prep = mkPrep (pre {"s" => "so" ; _ => "s"}) Ins ; with_Prep = mkPrep (pre {"s" => "so" ; _ => "s"}) Ins ;