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

another way to fix the tests for Czech

Browse Source
This commit is contained in:
Krasimir Angelov
2026-10-03 10:39:21 +02:00
parent 2be1ed9598
commit dfbb267505
3 changed files with 17 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/api/TryCze.gf
+13 -7
View File
@@ -1,12 +1,18 @@
--# -path=.:../czech:../common:../abstract:../prelude --# -path=.:../czech:../common:../abstract:../prelude
resource TryCze = ExtraCze, SyntaxCze, LexiconCze, ParadigmsCze -[mkAdv,mkAdN,mkIAdv,mkDet,mkIDet,mkIP,mkQuant,mkCard,mkPConj,mkVoc]** resource TryCze = ExtraCze, SyntaxCze-[mkVoc], LexiconCze, ParadigmsCze -[mkAdv,mkAdN,mkIAdv,mkDet,mkIDet,mkIP,mkQuant,mkCard,mkPConj,mkVoc]**
open (P = ParadigmsCze) in { open (P = ParadigmsCze),(S = SyntaxCze) in {
-- oper oper
mkAdv = overload SyntaxCze {
-- mkAdv = overload SyntaxCze { mkAdv : Str -> Adv = P.mkAdv ;
-- mkAdv : Str -> Adv = P.mkAdv ; } ;
-- } ; mkVoc = overload {
mkVoc : NP -> Voc = S.mkVoc ;
mkVoc : Str -> Voc = P.mkVoc ;
} ;
mkIP = overload SyntaxCze {
mkIP : Str -> IP = P.mkIP ;
} ;
} }
src/czech/ParadigmsCze.gf
+1 -1
View File
@@ -285,7 +285,7 @@ oper
c = {s = [] ; c = Acc ; hasPrep = False}}) ; c = {s = [] ; c = Acc ; hasPrep = False}}) ;
mkV2V : Str -> V2V = \s -> lin V2V ((mkVerb s) ** { mkV2V : Str -> V2V = \s -> lin V2V ((mkVerb s) ** {
c = {s = [] ; c = Acc ; hasPrep = False}}) ; c = {s = [] ; c = Acc ; hasPrep = False}}) ;
mkVoc : Str -> {s : Str} = \s -> {s = s} ; mkVoc : Str -> CatCze.Voc = \s -> lin Voc {s = s} ;
} }
tests/czech/regressions.gfs
+3 -3
View File
@@ -19,7 +19,7 @@ cc -one ((zenaN "Zoja").sgen ++ (zenaN "Zoja").sdat)
cc -one (L.school_N.sdat ++ (zenaN "váza").sdat ++ (zenaN "mísa").sdat ++ (zenaN "banka").sdat) cc -one (L.school_N.sdat ++ (zenaN "váza").sdat ++ (zenaN "mísa").sdat ++ (zenaN "banka").sdat)
cc -one (L.salt_N.snom ++ L.salt_N.sacc ++ L.salt_N.svoc) cc -one (L.salt_N.snom ++ L.salt_N.sacc ++ L.salt_N.svoc)
cc -one (SyntaxCze.mkAdv in_Prep (mkNP plNum L.milk_N)) cc -one (SyntaxCze.mkAdv in_Prep (mkNP plNum L.milk_N))
cc -one (SyntaxCze.mkVoc (mkNP L.year_N)) cc -one (mkVoc (mkNP L.year_N))
cc -one (SyntaxCze.mkAdv in_Prep (mkNP plNum L.apple_N)) cc -one (SyntaxCze.mkAdv in_Prep (mkNP plNum L.apple_N))
-- Náš/váš inflect for the possessed noun, independently of addressee number. -- Náš/váš inflect for the possessed noun, independently of addressee number.
@@ -245,8 +245,8 @@ cc -one (SyntaxCze.mkAdv with_Prep (mkNP (mkCN (mkAP L.young_A (mkNP he_Pron)) (
-- A ProDrop comparison pronoun must still be overt. -- A ProDrop comparison pronoun must still be overt.
cc -one (mkUtt (mkS (mkCl (mkNP (E.ProDrop i_Pron)) (mkAP L.young_A (mkNP (E.ProDrop she_Pron)))))) cc -one (mkUtt (mkS (mkCl (mkNP (E.ProDrop i_Pron)) (mkAP L.young_A (mkNP (E.ProDrop she_Pron))))))
-- Addressing a quantified group retains genitive government. -- Addressing a quantified group retains genitive government.
cc -one (SyntaxCze.mkVoc (mkNP (mkCard "5") L.child_N)) cc -one (mkVoc (mkNP (mkCard "5") L.child_N))
cc -one (SyntaxCze.mkVoc (mkNP all_Predet (mkNP (mkCard "5") L.child_N))) cc -one (mkVoc (mkNP all_Predet (mkNP (mkCard "5") L.child_N)))
-- Pronominal heads retain their order after modification and binding. -- Pronominal heads retain their order after modification and binding.
cc -one (SyntaxCze.mkAdv with_Prep (mkNP all_Predet (mkNP youPl_Pron))) cc -one (SyntaxCze.mkAdv with_Prep (mkNP all_Predet (mkNP youPl_Pron)))
-- The outer pronoun controls all, independently of the reflexive's antecedent. -- The outer pronoun controls all, independently of the reflexive's antecedent.