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

Added tests for pronoun-switch and object ordering in Ger (see tests/object-order.*)

Browse Source
This commit is contained in:
Hans Leiss
2019-07-03 19:16:35 +02:00
parent d3c6dddf2c
commit b521089274
14 changed files with 2552 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

51
tests/german/TestLexiconEng.gf Normal file
View File

@@ -0,0 +1,51 @@
--# -path=.:../abstract:../common:../prelude: HL 19/06/2019
-- Some english interpretations of the verbs in TestLexiconGerAbs to test
-- translations and corresponding c2,c3,c4-objects under Slash?V3, Slash?V4.
concrete TestLexiconEng of TestLexiconGerAbs =
CatEng ** open (R=ResEng), (P=Prelude), ParadigmsEng
in {
lincat
V4 = R.Verb ** {c2,c3,c4 : Str} ;
oper
reflV2 : V -> Prep -> V2 ; -- reflexive, with prep-object
reflV2 v p = prepV2 (reflV v) p ;
reflV3 : V -> Prep -> Prep -> V3 ; -- reflexive, with two prep-objects
reflV3 v p q = mkV3 (reflV v) p q ;
-- quaternary verbs:
mkV4 : V -> Prep -> Prep -> Prep -> V4 =
\v,p2,p3,p4 -> lin V4 (v ** { c2=p2.s ; c3=p3.s ; c4=p4.s }) ;
dirV4 : V -> Prep -> Prep -> V4 = \v,c,d -> mkV4 v noPrep c d ;
lin
aendern_rV = (regV "change") ;
anstrengen_rV = let v : R.Verb = (irregV "make" "made" "made") ;
compl : Str = "an effort"
in {s = \\vf => v.s!vf ++ compl ; isRefl = P.False ; p = []} ;
bedienen_gen_rV2 = dirV2 (regV "use") ;
stuetzen_auf_rV2 = mkV2 (irregV "rely" "relied" "relied") (mkPrep "on") ;
ergeben_dat_rV2 = mkV2 (regV "surrender") (mkPrep "to") ;
merken_rV2 = dirV2 (regV "remember") ;
anklagen_gen_V3 = dirV3 (regV "accuse") (mkPrep "of") ;
erklaeren_dat_V3 = dirV3 (regV "explain") (mkPrep "to") ;
erinnern_an_V3 = dirV3 (regV "remind") (mkPrep "of") ;
danken_dat_fuer_V3 = dirV3 (regV "thank") (mkPrep "for") ;
lehren_V3 = mkV3 (irregV "teach" "taught" "taught") noPrep noPrep ;
abschauen_bei_rV3 = dirV3 (regV "copy") (mkPrep "from") ;
leihen_von_rV3 = dirV3 (regV "borrow") (mkPrep "from") ;
entschuldigen_bei_fuer_rV3 = mkV3 (regV "apologize") (mkPrep "to") (mkPrep "for") ;
raechen_am_fuer_rV3 = mkV3 (regV "revenge") (mkPrep "on") (mkPrep "for") ;
kaufen_bei_fuer_V4 = dirV4 (irregV "buy" "bought" "bought") (mkPrep "from") (mkPrep "for") ;
mieten_von_fuer_V4 = dirV4 (regV "rent") (mkPrep "from") (mkPrep "for") ;
neugierig_auf_A2 = mkA2 (regA "curious") (mkPrep "about") ;
}