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

Temp = Tense + Ant in next-resource

Browse Source
This commit is contained in:
aarne
2008-09-05 13:27:56 +00:00
parent 98184c5016
commit 7d82132b9e
6 changed files with 29 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lib/next-resource/common/CommonX.gf
View File

@@ -14,11 +14,14 @@ concrete CommonX of Common = open (R = ParamX) in {
CAdv = {s : Str} ; --lock_CAdv : {}} ;
PConj = {s : Str} ; --lock_PConj : {}} ;
Temp = {s : Str ; t : R.Tense ; a : R.Anteriority} ;
Tense = {s : Str ; t : R.Tense} ;
Ant = {s : Str ; a : R.Anteriority} ;
Pol = {s : Str ; p : R.Polarity} ;
lin
TTAnt t a = {s = t.s ++ a.s ; t = t.t ; a = a.a} ;
PPos = {s = []} ** {p = R.Pos} ;
PNeg = {s = []} ** {p = R.Neg} ;
TPres = {s = []} ** {t = R.Pres} ;