GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-28 14:02:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

Pred: proper forms of Eng auxiliaries; variants for Swe negation and future aux

Browse Source
This commit is contained in:
aarne
2014-02-12 18:40:18 +00:00
parent 286c5a035a
commit 6a4dd4aa41
11 changed files with 38 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
lib/src/experimental/PredInstanceEng.gf
View File

@@ -9,8 +9,8 @@ oper
Agr = ResEng.Agr ;
Case = ResEng.Case ;
NPCase = ResEng.NPCase ;
VForm = ResEng.VForm ;
VVType = ResEng.VVType ;
VForm = ResEng.VForm ; ---- VVForm to get contracted aux verbs
VVType = ResEng.VVType ;
SVoice = Voice ;
VAgr = EVAgr ;
@@ -146,7 +146,10 @@ oper
case <t,a> of {
<Pres|Past, Simul> =>
case v.vtype of {
VTAux => <sta ++ v.s ! vt, [], []> ;
VTAux => case t of {
Pres => <sta ++ v.s ! VPres, [], []> ; -- can I/she/we
_ => <sta ++ v.s ! vt, [], []> -- could ...
} ;
_ => case p of {
Pos => <[], sta ++ v.s ! vt, []> ; -- this is the deviating case
Neg => <do_Aux vt Pos, not_Str p, sta ++ v.s ! VInf>