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

(Ger) reflexive RNP in ExtraGer completed ;

Browse Source 
improved Slash-rules in tests/german/TestLangGer
This commit is contained in:
Hans Leiss
2022-07-16 12:18:13 +02:00
parent 0e8ac21976
commit 1379ba6c77
19 changed files with 266 additions and 97 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
tests/german/TestLangEng.gf
View File

@@ -5,7 +5,9 @@ concrete TestLangEng of TestLang =
GrammarEng
, TestLexiconEng
, ConstructionEng
** open (R=ResEng), (P=ParadigmsEng), Prelude, (E=ExtendEng)
, ExtendEng[PastPartAP,PassVPSlash,
RNP,ReflRNP,ReflPron,ReflPoss,PredetRNP,AdvRNP,ReflA2RNP,PossPronRNP,ReflPossPron]
** open (R=ResEng), (P=ParadigmsEng), Prelude --, (E=ExtendEng)
in {
flags
@@ -43,8 +45,8 @@ concrete TestLangEng of TestLang =
let vps = R.insertObj (\\_ => v.s ! R.VPPart ++ v.p) (R.predAux R.auxBe) ** {c2 = v.c2}
in R.insertObj (\\_ => vps.c2 ++ np.s ! R.NPAcc) vps ;
PastPartAP = E.PastPartAP ;
PassVPSlash = E.PassVPSlash ;
-- PastPartAP = E.PastPartAP ;
-- PassVPSlash = E.PassVPSlash ;
Pass2V4 v np =
let vpss = R.insertObj (\\_ => v.s ! R.VPPart ++ v.p) (R.predAux R.auxBe) ** {c2 = v.c3 ; c3 = v.c4}