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

contracted questions in TranslateEng: who's as a variant of who is etc.

Browse Source
This commit is contained in:
aarne
2014-07-20 08:25:54 +00:00
parent 78bd8f98a8
commit c6ca698101
1 changed files with 10 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -24,7 +24,9 @@ concrete TranslateEng of Translate =
SentenceEng - [
UseCl -- replaced by UseCl | ContractedUseCl
],
QuestionEng,
QuestionEng - [
QuestVP -- replaced by QuestVP | contracted QuestVP
],
RelativeEng - [IdRP],
IdiomEng,
ConstructionEng,
@@ -49,6 +51,13 @@ lin
| E.ContractedUseCl t p cl -- I'm here
;
QuestVP qp vp =
G.QuestVP qp vp -- who is there
|
let cl = mkClause (qp.s ! npNom) (agrP3 qp.n) vp -- who's there
in {s = \\t,a,b,_ => cl.s ! t ! a ! b ! ODir True}
;
ComplVS vs s = G.ComplVS vs s | E.ComplBareVS vs s ;
SlashV2S vs s = G.SlashV2S vs s | E.SlashBareV2S vs s ;
ComplSlash vps np = G.ComplSlash vps np | E.ComplSlashPartLast vps np ;