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

included stranding variants to Rel and Quest in TranslateEng - strangely omitted before

Browse Source
This commit is contained in:
aarne
2016-05-23 07:13:44 +00:00
parent 43f1878b8e
commit 2a9153a2ee
1 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -31,8 +31,12 @@ concrete TranslateEng of Translate =
QuestionEng - [ QuestionEng - [
QuestVP -- replaced by QuestVP | contracted QuestVP QuestVP -- replaced by QuestVP | contracted QuestVP
,QuestIComp ,QuestIComp
,QuestSlash -- replaced by QuestSlash | StrandQuestSlash
], ],
RelativeEng - [IdRP], RelativeEng - [
IdRP -- with variants that/who/which/-
,RelSlash -- replaced by RelSlash | StrandRelSlash
],
IdiomEng, IdiomEng,
ConstructionEng, ConstructionEng,
DocumentationEng, DocumentationEng,
@@ -73,6 +77,8 @@ lin
in {s = \\t,a,b,_ => cl.s ! t ! a ! b ! ODir True} in {s = \\t,a,b,_ => cl.s ! t ! a ! b ! ODir True}
; ;
QuestSlash ip cls = G.QuestSlash ip cls | E.StrandQuestSlash ip cls ;
ComplVS vs s = G.ComplVS vs s | E.ComplBareVS vs s ; ComplVS vs s = G.ComplVS vs s | E.ComplBareVS vs s ;
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 ;
@@ -86,6 +92,8 @@ lin
IdRP = E.that_RP | G.IdRP | E.who_RP | E.emptyRP ; --- "that" safest when gender is not known IdRP = E.that_RP | G.IdRP | E.who_RP | E.emptyRP ; --- "that" safest when gender is not known
RelSlash rp cls = G.RelSlash rp cls | E.StrandRelSlash rp cls ;
DetNP d = G.DetNP d | G.DetCN d (UseN (mkN "one")) ; -- I like this / I like this one ; it / the one DetNP d = G.DetNP d | G.DetCN d (UseN (mkN "one")) ; -- I like this / I like this one ; it / the one
OrdNumeralSuperl n a = G.OrdNumeralSuperl n a | {s = \\c => n.s ! NOrd ! Nom ++ Predef.BIND ++ "-" ++ Predef.BIND ++ a.s ! AAdj Superl c} ; OrdNumeralSuperl n a = G.OrdNumeralSuperl n a | {s = \\c => n.s ! NOrd ! Nom ++ Predef.BIND ++ "-" ++ Predef.BIND ++ a.s ! AAdj Superl c} ;