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

some new functionalities in Ger

Browse Source
This commit is contained in:
aarne
2017-06-05 12:46:53 +00:00
parent 7900258691
commit afd93c62fa
4 changed files with 18 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/src/german/CatGer.gf
View File

@@ -86,9 +86,9 @@ concrete CatGer of Cat =
-- Open lexical classes, e.g. Lexicon -- Open lexical classes, e.g. Lexicon
V, VS, VQ, VA = ResGer.Verb ; -- = {s : VForm => Str} ; V, VS, VQ = ResGer.Verb ; -- = {s : VForm => Str} ;
VV = Verb ** {isAux : Bool} ; VV = Verb ** {isAux : Bool} ;
V2, V2A, V2S, V2Q = Verb ** {c2 : Preposition} ; V2, VA, V2A, V2S, V2Q = Verb ** {c2 : Preposition} ;
V2V = Verb ** {c2 : Preposition ; isAux : Bool} ; V2V = Verb ** {c2 : Preposition ; isAux : Bool} ;
V3 = Verb ** {c2, c3 : Preposition} ; V3 = Verb ** {c2, c3 : Preposition} ;

6
lib/src/german/MakeStructuralGer.gf
View File

@@ -24,4 +24,10 @@ oper
a = case b of {True => PAg n ; _ => PAgNone} a = case b of {True => PAg n ; _ => PAgNone}
} }
} ; } ;
-- e.g. das selbe
mmkQuant : Quant -> A -> Quant = \q,a -> q ** {
s,sp = \\x,n,g,c => q.s ! x ! n ! g ! c ++ a.s ! Posit ! agrAdj g q.a n ((prepC c).c)
} ;
} }

8
lib/src/german/ParadigmsGer.gf
View File

@@ -327,7 +327,10 @@ mkV2 : overload {
mkVV : V -> VV ; -- with zu mkVV : V -> VV ; -- with zu
auxVV : V -> VV ; -- without zu auxVV : V -> VV ; -- without zu
mkVA : overload {
mkVA : V -> VA ; mkVA : V -> VA ;
mkVA : V -> Prep -> VA ;
} ;
mkVQ : V -> VQ ; mkVQ : V -> VQ ;
@@ -630,7 +633,10 @@ mkV2 : overload {
= \v,p -> prepV2 v p ** {isAux = False ; lock_V2Q = <>} ; = \v,p -> prepV2 v p ** {isAux = False ; lock_V2Q = <>} ;
} ; } ;
mkVA v = v ** {lock_VA = <>} ; mkVA = overload {
mkVA : V -> VA = \v -> lin VA (dirV2 v) ;
mkVA : V -> Prep -> VA = \v,p -> lin VA (v ** {c2 = p}) ;
} ;
mkAS v = v ** {lock_A = <>} ; mkAS v = v ** {lock_A = <>} ;
mkA2S v p = mkA2 v p ** {lock_A = <>} ; mkA2S v p = mkA2 v p ** {lock_A = <>} ;

2
lib/src/german/VerbGer.gf
View File

@@ -19,7 +19,7 @@ concrete VerbGer of Verb = CatGer ** open Prelude, ResGer, Coordination in {
insertExtrapos (comma ++ conjThat ++ s.s ! Sub) (predV v) ; insertExtrapos (comma ++ conjThat ++ s.s ! Sub) (predV v) ;
ComplVQ v q = ComplVQ v q =
insertExtrapos (comma ++ q.s ! QIndir) (predV v) ; insertExtrapos (comma ++ q.s ! QIndir) (predV v) ;
ComplVA v ap = insertAdj (ap.s ! APred) ap.c ap.ext (predV v) ; -- changed ComplVA v ap = insertAdj (v.c2.s ++ ap.s ! APred) ap.c ap.ext (predV v) ; -- changed
SlashV2a v = predV v ** {c2 = v.c2} ; SlashV2a v = predV v ** {c2 = v.c2} ;