GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-25 02:38:55 -06:00
Code Issues Packages Projects Releases Wiki Activity

restored passives in Extensions for Bul,Fre,Ita,Spa ; PassAgentVPSlash in ExtraBul to be verified

Browse Source
This commit is contained in:
aarne
2014-04-09 16:16:32 +00:00
parent 1602eab5b6
commit 1397bb4528
11 changed files with 23 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lib/src/bulgarian/ExtraBul.gf
View File

@@ -109,4 +109,9 @@ concrete ExtraBul of ExtraBulAbs = CatBul **
PassVPSlash vp = insertObj (\\a => vp.s ! Perf ! VPassive (aform a.gn Indef (RObj Acc)) ++ PassVPSlash vp = insertObj (\\a => vp.s ! Perf ! VPassive (aform a.gn Indef (RObj Acc)) ++
vp.compl1 ! a ++ vp.compl2 ! a) Pos (predV verbBe) ; vp.compl1 ! a ++ vp.compl2 ! a) Pos (predV verbBe) ;
PassAgentVPSlash vp np = ---- AR 9/4/2014: to be verified
insertObj (\\_ => "÷ðåç" ++ np.s ! RObj Acc) Pos
(insertObj (\\a => vp.s ! Perf ! VPassive (aform a.gn Indef (RObj Acc)) ++
vp.compl1 ! a ++ vp.compl2 ! a) Pos (predV verbBe)) ;
} }

2
lib/src/catalan/ExtraRomanceCat.gf
View File

@@ -1,2 +1,2 @@
concrete ExtraRomanceCat of ExtraRomanceAbs = CatCat ** ExtraRomance with concrete ExtraRomanceCat of ExtraRomanceAbs = CatCat ** ExtraRomance with
(ResRomance = ResCat) ; (ResRomance = ResCat), (Grammar = GrammarCat) ;

6
lib/src/french/ExtraFre.gf
View File

@@ -77,8 +77,8 @@ concrete ExtraFre of ExtraFreAbs = ExtraRomanceFre **
ExistsNP np = ExistsNP np =
mkClause "il" True False np.a (insertComplement (\\_ => (np.s ! Nom).ton) (predV (regV "exister"))) ; mkClause "il" True False np.a (insertComplement (\\_ => (np.s ! Nom).ton) (predV (regV "exister"))) ;
--- in ExtraRomance
PassAgentVPSlash vps np = passVPSlash -- PassAgentVPSlash vps np = passVPSlash
vps ("par" ++ (np.s ! Acc).ton) ; -- vps ("par" ++ (np.s ! Acc).ton) ;
} }

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

@@ -1,2 +1,2 @@
concrete ExtraRomanceFre of ExtraRomanceAbs = CatFre ** ExtraRomance - [ProDrop] with concrete ExtraRomanceFre of ExtraRomanceAbs = CatFre ** ExtraRomance - [ProDrop] with
(ResRomance = ResFre) ; (ResRomance = ResFre), (Grammar = GrammarFre) ;

2
lib/src/italian/ExtraRomanceIta.gf
View File

@@ -1,2 +1,2 @@
concrete ExtraRomanceIta of ExtraRomanceAbs = CatIta ** ExtraRomance with concrete ExtraRomanceIta of ExtraRomanceAbs = CatIta ** ExtraRomance with
(ResRomance = ResIta) ; (ResRomance = ResIta), (Grammar = GrammarIta) ;

6
lib/src/romance/ExtraRomance.gf
View File

@@ -3,7 +3,7 @@ incomplete concrete ExtraRomance of ExtraRomanceAbs = CatRomance **
CommonRomance, CommonRomance,
Coordination, Coordination,
ResRomance, ResRomance,
(G = Grammar), Grammar,
Prelude in { Prelude in {
lin TPasseSimple = {s = []} ** {t = RPasse} ; --# notpresent lin TPasseSimple = {s = []} ** {t = RPasse} ; --# notpresent
@@ -77,8 +77,8 @@ incomplete concrete ExtraRomance of ExtraRomanceAbs = CatRomance **
} ; } ;
PassVPSlash vps = passVPSlash vps [] ; PassVPSlash vps = passVPSlash vps [] ;
---- PassAgentVPSlash vps np = passVPSlash PassAgentVPSlash vps np = passVPSlash
---- vps (let by = <Grammar.by8agent_Prep : Prep> in by.s ++ (np.s ! by.c).ton) ; vps (let by = <Grammar.by8agent_Prep : Prep> in by.s ++ (np.s ! by.c).ton) ;
oper oper
passVPSlash : VPSlash -> Str -> ResRomance.VP = \vps, ag -> passVPSlash : VPSlash -> Str -> ResRomance.VP = \vps, ag ->

2
lib/src/spanish/ExtraRomanceSpa.gf
View File

@@ -1,2 +1,2 @@
concrete ExtraRomanceSpa of ExtraRomanceAbs = CatSpa ** ExtraRomance with concrete ExtraRomanceSpa of ExtraRomanceAbs = CatSpa ** ExtraRomance with
(ResRomance = ResSpa) ; (ResRomance = ResSpa), (Grammar = GrammarSpa) ;

4
lib/src/translator/ExtensionsBul.gf
View File

@@ -30,8 +30,8 @@ lin
---- GenIP = E.GenIP ; ---- GenIP = E.GenIP ;
---- GenRP = E.GenRP ; ---- GenRP = E.GenRP ;
---- PassVPSlash = E.PassVPSlash ; PassVPSlash = E.PassVPSlash ;
---- PassAgentVPSlash = E.PassAgentVPSlash ; PassAgentVPSlash = E.PassAgentVPSlash ;
EmptyRelSlash = E.EmptyRelSlash ; EmptyRelSlash = E.EmptyRelSlash ;

4
lib/src/translator/ExtensionsFre.gf
View File

@@ -26,8 +26,8 @@ lin
---- GenIP = E.GenIP ; ---- GenIP = E.GenIP ;
---- GenRP = E.GenRP ; ---- GenRP = E.GenRP ;
---- PassVPSlash = E.PassVPSlash ; PassVPSlash = E.PassVPSlash ;
---- PassAgentVPSlash = E.PassAgentVPSlash ; PassAgentVPSlash = E.PassAgentVPSlash ;
lin lin

4
lib/src/translator/ExtensionsIta.gf
View File

@@ -26,8 +26,8 @@ lin
---- GenIP = E.GenIP ; ---- GenIP = E.GenIP ;
---- GenRP = E.GenRP ; ---- GenRP = E.GenRP ;
---- PassVPSlash = E.PassVPSlash ; PassVPSlash = E.PassVPSlash ;
---- PassAgentVPSlash = E.PassAgentVPSlash ; PassAgentVPSlash = E.PassAgentVPSlash ;
lin lin

4
lib/src/translator/ExtensionsSpa.gf
View File

@@ -26,8 +26,8 @@ lin
---- GenIP = E.GenIP ; ---- GenIP = E.GenIP ;
---- GenRP = E.GenRP ; ---- GenRP = E.GenRP ;
---- PassVPSlash = E.PassVPSlash ; PassVPSlash = E.PassVPSlash ;
---- PassAgentVPSlash = E.PassAgentVPSlash ; PassAgentVPSlash = E.PassAgentVPSlash ;
lin lin