GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-10-03 07:33:39 -06:00
Code Issues Packages Projects Releases Wiki Activity

more changes to fix the testsuite

Browse Source
This commit is contained in:
Krasimir Angelov
2026-10-03 11:01:03 +02:00
parent a52e08bcff
commit ed55dfa22e
3 changed files with 18 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/api/TryCze.gf
+5 -2
View File
@@ -11,11 +11,14 @@ oper
mkVoc : NP -> Voc = S.mkVoc ;
mkVoc : Str -> Voc = P.mkVoc ;
} ;
mkDet = overload SyntaxCze {
mkDet : Str -> Det = P.mkDeterminer ;
} ;
mkIP = overload SyntaxCze {
mkIP : Str -> IP = P.mkIP ;
mkIP : Str -> IP = P.mkIPron ;
} ;
mkCard = overload SyntaxCze {
mkCard : Str -> Card = P.mkCard ;
mkCard : Str -> Card = P.mkCardinal ;
} ;
}
src/czech/ParadigmsCze.gf
+3 -3
View File
@@ -254,8 +254,8 @@ oper
mkVerb : Str -> VerbForms = guessVerbForms ;
mkCard : Str -> Card = \s -> lin Card (invarDeterminer s Num5) ;
mkDet : Str -> Det = \s -> lin Det (invarDeterminer s Num5) ;
mkCardinal : Str -> Card = \s -> lin Card (invarDeterminer s Num5) ;
mkDeterminer : Str -> Det = \s -> lin Det (invarDeterminer s Num5) ;
mkQuant : Str -> Quant = \s ->
lin Quant (adjFormsAdjective (guessAdjForms s)) ;
@@ -267,7 +267,7 @@ oper
mkGN : Str -> GN = \s -> lin GN {s = s} ;
mkIAdv : Str -> IAdv = \s -> lin IAdv {s = s} ;
mkIDet : Str -> IDet = \s -> lin IDet {s = \\_,_=>s; size=Num1; head=CountedHead} ;
mkIP : Str -> IP = \s -> lin IP {s = \\_=>s; a = Ag (Masc Anim) Sg P3} ;
mkIPron : Str -> IP = \s -> lin IP {s = \\_=>s; a = Ag (Masc Anim) Sg P3} ;
mkIQuant : Str -> IQuant = \s -> lin IQuant {s = \\_,_,_=>s} ;
mkInterj : Str -> Interj = \s -> lin Interj {s = s} ;
mkLN : Str -> LN = \s -> lin LN {s = s} ;