1
0
forked from GitHub/gf-rgl

Merge pull request #258 from hleiss/accdatV3

(Ger) Readjusting accdatV3 in ParadigmsGer and modifying V3-examples …
This commit is contained in:
Inari Listenmaa
2019-07-18 19:55:25 +02:00
committed by GitHub
9 changed files with 344 additions and 183 deletions

View File

@@ -169,8 +169,8 @@ lin
sea_N = reg2N "Meer" "Meere" neuter ;
seek_V2 = dirV2 (regV "suchen") ;
see_V2 = dirV2 Irreg.sehen_V ;
sell_V3 = accdatV3 (no_geV (regV "verkaufen")) ;
send_V3 = accdatV3 (regV "schicken") ;
sell_V3 = mkV3 (no_geV (regV "verkaufen")) ; -- Eng: mkV3 v noPrep toPrep
send_V3 = mkV3 (regV "schicken") ; -- Ger mkV3 v = Ger: mkV3 v accPrep datPrep
sheep_N = reg2N "Schaf" "Schafe" neuter ;
ship_N = reg2N "Schiff" "Schiffe" neuter ;
shirt_N = reg2N "Hemd" "Hemden" neuter ; ---- infl
@@ -316,7 +316,8 @@ lin
flow_V = seinV (Irreg.fließen_V) ;
fly_V = seinV (Irreg.fliegen_V) ;
freeze_V = Irreg.frieren_V ;
give_V3 = accdatV3 Irreg.geben_V ;
give_V3 = accdatV3 Irreg.geben_V ; -- c2=datPrep, c3=accPrep, to fit
-- to Eng ditransitive: give sb(indir) sth(dir) (no preposition)
laugh_V = regV "lachen" ;
lie_V = Irreg.lügen_V ;
play_V = regV "spielen" ;

View File

@@ -286,11 +286,11 @@ mkV2 : overload {
-- Three-place (ditransitive) verbs need two prepositions, of which
-- the first one or both can be absent.
accdatV3 : V -> V3 ; -- geben + dat + acc (no prepositions)
accdatV3 : V -> V3 ; -- geben + dat(c2) + acc(c3) (Eng: no prepositions)
dirV3 : V -> Prep -> V3 ; -- senden + acc + nach (preposition on second arg)
mkV3 : overload {
mkV3 : V -> V3 ; -- geben + dat + acc
mkV3 : V -> V3 ; -- geben + dat(c3) + acc(c2) (Eng: give sth to-sb)
mkV3 : V -> Prep -> Prep -> V3 ; -- sprechen + mit + über
} ;
@@ -588,9 +588,8 @@ mkV2 : overload {
} ;
dirV3 v p = mkV3 v accPrep p ; -- accPrep sets isPrep=False
-- accdatV3 v = mkV3 v datPrep accPrep ;
accdatV3 v = dirV3 v datPrep ; -- to fit to Eng: direct obj = c2, HL 6/2019
accdatV3 v = mkV3 v datPrep accPrep ; -- to fit to Eng ditransitives (no preposition):
-- give sb(indir) sth(dir) = geben jmdm(dat) etwas(acc)
mkVS v = v ** {lock_VS = <>} ;
mkVQ v = v ** {lock_VQ = <>} ;
mkVV v = v ** {isAux = False ; lock_VV = <>} ;