summaryrefslogtreecommitdiff
path: root/next-lib/src/common/CommonX.gf
diff options
context:
space:
mode:
Diffstat (limited to 'next-lib/src/common/CommonX.gf')
-rw-r--r--next-lib/src/common/CommonX.gf34
1 files changed, 0 insertions, 34 deletions
diff --git a/next-lib/src/common/CommonX.gf b/next-lib/src/common/CommonX.gf
deleted file mode 100644
index 5dcd7ce15..000000000
--- a/next-lib/src/common/CommonX.gf
+++ /dev/null
@@ -1,34 +0,0 @@
-concrete CommonX of Common = open (R = ParamX) in {
-
- lincat
- Text = {s : Str} ; --lock_Text : {}} ;
- Phr = {s : Str} ; --lock_Phr : {}} ;
- Utt = {s : Str} ; --lock_Utt : {}} ;
- Voc = {s : Str} ; --lock_Voc : {}} ;
- SC = {s : Str} ; --lock_SC : {}} ;
- Adv = {s : Str} ; --lock_Adv : {}} ;
- AdV = {s : Str} ; --lock_AdV : {}} ;
- AdA = {s : Str} ; --lock_AdA : {}} ;
- AdN = {s : Str} ; --lock_AdN : {}} ;
- IAdv = {s : Str} ; --lock_IAdv : {}} ;
- CAdv = {s,p : 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} ;
- 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} ; --# notpresent
-
-}