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

hundreds of earlier prep and part verbs turned out to be bogus in DictionarySwe. Replaced by standard derived verbs. Still uncertain, but clearly better.

Browse Source
This commit is contained in:
aarne
2014-12-11 19:11:14 +00:00
parent dc3fd2c044
commit 5056e91cc2
2 changed files with 575 additions and 602 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1174
lib/src/translator/DictionarySwe.gf
View File

File diff suppressed because it is too large Load Diff

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

@@ -20,6 +20,7 @@ concrete TranslateEng of Translate =
PassV2, -- generalized in Extensions PassV2, -- generalized in Extensions
AdvVP, -- more liberal placement of adv AdvVP, -- more liberal placement of adv
ComplVS, SlashV2S, ComplSlash -- Eng exceptions ComplVS, SlashV2S, ComplSlash -- Eng exceptions
---- ,UseV -- variant progressive
], ],
AdverbEng, AdverbEng,
PhraseEng, PhraseEng,
@@ -66,6 +67,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 ;
---- UseV v = G.UseV v | G.ProgrVP (UseV v) ; ---- error in variant compilation
AdvVP vp adv = G.AdvVP vp adv | insertObjPre (\\_ => adv.s) vp ; -- I bought a car today | I bought today a car 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} ;