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

PassAgentVPSlash in Ger

Browse Source
This commit is contained in:
aarne
2013-12-06 09:05:52 +00:00
parent 61b07c5b08
commit be58b6f224
4 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/src/french/ParseFre.gf
View File

@@ -13,7 +13,7 @@ concrete ParseFre of ParseEngAbs =
SentenceFre - [ SlashVP, SlashVS],
QuestionFre,
RelativeFre,
IdiomFre [NP, VP, Tense, Cl, ProgrVP, ExistNP],
IdiomFre [NP, VP, Tense, Cl, ProgrVP, ExistNP, SelfAdvVP, SelfAdVVP, SelfNP],
ExtraFre [NP, Quant, VPSlash, VP, Tense, GenNP, PassVPSlash, PassAgentVPSlash,
Temp, Pol, Conj, VPS, ListVPS, S, Num, CN, RP, MkVPS, BaseVPS, ConsVPS, ConjVPS, PredVPS, GenRP,
VPI, VPIForm, VPIInf, VPIPresPart, ListVPI, VV, MkVPI, BaseVPI, ConsVPI, ConjVPI, ComplVPIVV,

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

@@ -1,6 +1,6 @@
--# -coding=latin1
concrete ExtraGer of ExtraGerAbs = CatGer **
open ResGer, Coordination, Prelude, IrregGer in {
open ResGer, Coordination, Prelude, IrregGer, (P = ParadigmsGer) in {
lincat
VPI = {s : Bool => Str} ;
@@ -58,7 +58,9 @@ concrete ExtraGer of ExtraGerAbs = CatGer **
} ;
PassVPSlash vps =
insertInf (vps.s.s ! VPastPart APred) (predV werdenPass);
insertInf (vps.s.s ! VPastPart APred) (predV werdenPass) ;
PassAgentVPSlash vps np = ---- "von" here, "durch" in StructuralGer
insertAdv (appPrep P.von_Prep np.s) (insertInf (vps.s.s ! VPastPart APred) (predV werdenPass)) ;
lincat
VPS = {s : Order => Agr => Str} ;

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

@@ -1,7 +1,7 @@
abstract ExtraGerAbs = Extra [
VPI,ListVPI,BaseVPI,ConsVPI,MkVPI,ComplVPIVV,ConjVPI,ClSlash,RCl,
VPS,ListVPS,BaseVPS,ConsVPS,ConjVPS,MkVPS,PredVPS,EmptyRelSlash,
VPSlash,PassVPSlash,CompIQuant,
VPSlash, PassVPSlash, PassAgentVPSlash, CompIQuant,
Temp,Tense,Pol,S,NP,VV,VP,Conj,IAdv,IQuant,IComp,ICompAP,IAdvAdv,Adv,AP] ** {
flags coding=utf8;
fun

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

@@ -13,7 +13,7 @@ concrete ParseGer of ParseEngAbs =
QuestionGer,
RelativeGer,
IdiomGer [NP, VP, Tense, Cl, ProgrVP, ExistNP, SelfAdvVP, SelfAdVVP, SelfNP],
ExtraGer [NP, Quant, VPSlash, VP, Tense, GenNP, PassVPSlash,
ExtraGer [NP, Quant, VPSlash, VP, Tense, GenNP, PassVPSlash, PassAgentVPSlash,
Temp, Pol, Conj, VPS, ListVPS, S, MkVPS, BaseVPS, ConsVPS, ConjVPS, PredVPS,
VPI, VPIForm, VPIInf, VPIPresPart, ListVPI, VV, MkVPI, BaseVPI, ConsVPI, ConjVPI, ComplVPIVV,
ClSlash, RCl, EmptyRelSlash],