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

Hrv: make API compilable

Browse Source
This commit is contained in:
Aarne Ranta
2022-09-30 11:34:11 +02:00
parent ac3b8bba6b
commit 0b7ad68400
3 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/croatian/ResHrv.gf
View File

@@ -391,7 +391,7 @@ adjFormsAdjective : AdjForms -> Adjective = \afs -> {
(velk + "o") ;
msgen = velk + "og" ;
fsgen = velk + "e" ;
msdat = velk + "omu" ;
msdat = velk + "om" ;
fsdat = velk + "oj" ;
fsacc = velk + "u" ;
msloc = velk + "om" ;

4
src/croatian/StructuralHrv.gf
View File

@@ -15,8 +15,8 @@ lin
---- 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
possess_Prep = mkPrep "" Gen ;
---- that_Quant = demPronFormsAdjective (tenDemPronForms "") "" ;
---- this_Quant = demPronFormsAdjective (tenDemPronForms "" ** {msgen = "toh"}) "to" ;
that_Quant = adjFormsAdjective (velikA "oni" ** {msnom = "onaj"}) ; ---- TODO: taj, ta, to
this_Quant = adjFormsAdjective (velikA "ovi" ** {msnom = "ovaj"}) ;
to_Prep = mkPrep "u" Acc ;
with_Prep = mkPrep (pre {"s"|"z"|"š"|"ž"|"mnom" => "sa" ; _ => "s"}) Ins ;

6
src/croatian/SymbolHrv.gf
View File

@@ -8,8 +8,8 @@ lin
MkSymb s = s ;
SymbPN s = lin PN {s = \\_ => s.s ; g = Neutr} ;
--AW SymbolEng.IntPN
--AW SymbolEng.SymbNum
--AW SymbolicEng.mkSymb
IntPN s = lin PN {s = \\_ => s.s ; g = Neutr} ;
SymbNum s = lin Card {s = \\_,_ => s.s ; size = NS_20_} ; --- size
}