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

resource specialized to present tense ; preprocessor flag

Browse Source
This commit is contained in:
aarne
2006-02-25 18:59:32 +00:00
parent af0dfe0921
commit 9b0036457c
57 changed files with 6560 additions and 6493 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/resource-1.0/common/CommonX.gf
View File

@@ -11,10 +11,10 @@ concrete CommonX of Common = open (R = ParamX) in {
PPos = {s = []} ** {p = R.Pos} ;
PNeg = {s = []} ** {p = R.Neg} ;
TPres = {s = []} ** {t = R.Pres} ;
TPast = {s = []} ** {t = R.Past} ;
TFut = {s = []} ** {t = R.Fut} ;
TCond = {s = []} ** {t = R.Cond} ;
TPast = {s = []} ** {t = R.Past} ; --# notpresent
TFut = {s = []} ** {t = R.Fut} ; --# notpresent
TCond = {s = []} ** {t = R.Cond} ; --# notpresent
ASimul = {s = []} ** {a = R.Simul} ;
AAnter = {s = []} ** {a = R.Anter} ;
AAnter = {s = []} ** {a = R.Anter} ; --# notpresent
}

15
lib/resource-1.0/common/ParamX.gf
View File

@@ -5,8 +5,19 @@ resource ParamX = open Prelude in {
Person = P1 | P2 | P3 ;
Degree = Posit | Compar | Superl ;
Anteriority = Simul | Anter ;
Tense = Pres | Past | Fut | Cond ;
Anteriority =
Simul
| Anter --# notpresent
;
Tense =
Pres
| Past --# notpresent
| Fut --# notpresent
| Cond --# notpresent
;
param
Polarity = Pos | Neg ;
QForm = QDir | QIndir ;