From 98665df78b8018af30051cb4a9a31f845e0ba19d Mon Sep 17 00:00:00 2001 From: aarne Date: Mon, 22 Sep 2008 11:49:15 +0000 Subject: moved lib/next-resource to next-lib/src, to enable linking with next-lib as value of GF_LIB_PATH --- next-lib/src/common/CommonX.gf | 34 ++++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) create mode 100644 next-lib/src/common/CommonX.gf (limited to 'next-lib/src/common/CommonX.gf') diff --git a/next-lib/src/common/CommonX.gf b/next-lib/src/common/CommonX.gf new file mode 100644 index 000000000..9401e1ea5 --- /dev/null +++ b/next-lib/src/common/CommonX.gf @@ -0,0 +1,34 @@ +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 : 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 + +} -- cgit v1.2.3