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

PassAgentVPSlash in Ger

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

2
src/french/ParseFre.gf
View File

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

4
src/german/ExtraGer.gf
View File

@@ -1,6 +1,6 @@
--# -coding=latin1 --# -coding=latin1
concrete ExtraGer of ExtraGerAbs = CatGer ** concrete ExtraGer of ExtraGerAbs = CatGer **
open ResGer, Coordination, Prelude, IrregGer in { open ResGer, Coordination, Prelude, IrregGer, (P = ParadigmsGer) in {
lincat lincat
VPI = {s : Bool => Str} ; VPI = {s : Bool => Str} ;
@@ -59,6 +59,8 @@ concrete ExtraGer of ExtraGerAbs = CatGer **
PassVPSlash vps = 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 lincat
VPS = {s : Order => Agr => Str} ; VPS = {s : Order => Agr => Str} ;

2
src/german/ExtraGerAbs.gf
View File

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

2
src/german/ParseGer.gf
View File

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