GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 11:42:49 -06:00
Code Issues Packages Projects Releases Wiki Activity

alternative placement of adverb in TranslateEng.AdvVP: before object. Should increase coverage. After object still the first variant.

Browse Source
This commit is contained in:
aarne
2014-12-06 11:35:33 +00:00
parent 87c62e0d70
commit c3c1334bc3
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lib/src/translator/TranslateEng.gf
View File

@@ -18,6 +18,7 @@ concrete TranslateEng of Translate =
VerbEng - [ VerbEng - [
UseCopula, -- just removed: not needed UseCopula, -- just removed: not needed
PassV2, -- generalized in Extensions PassV2, -- generalized in Extensions
AdvVP, -- more liberal placement of adv
ComplVS, SlashV2S, ComplSlash -- Eng exceptions ComplVS, SlashV2S, ComplSlash -- Eng exceptions
], ],
AdverbEng, AdverbEng,
@@ -65,6 +66,8 @@ lin
SlashV2S vs s = G.SlashV2S vs s | E.SlashBareV2S vs s ; SlashV2S vs s = G.SlashV2S vs s | E.SlashBareV2S vs s ;
ComplSlash vps np = G.ComplSlash vps np | E.ComplSlashPartLast vps np ; ComplSlash vps np = G.ComplSlash vps np | E.ComplSlashPartLast vps np ;
AdvVP vp adv = G.AdvVP vp adv | insertObjPre (\\_ => adv.s) vp ; -- I bought a car today | I bought today a car
PPos = {s = [] ; p = CPos} ; PPos = {s = [] ; p = CPos} ;
PNeg = {s = [] ; p = CNeg True} | {s = [] ; p = CNeg False} ; PNeg = {s = [] ; p = CNeg True} | {s = [] ; p = CNeg False} ;