From e89fdae2fa1626348d8025824a7469252fa85e42 Mon Sep 17 00:00:00 2001 From: aarne Date: Mon, 22 Jun 2009 15:39:08 +0000 Subject: next-lib renamed to lib, lib to old-lib --- next-lib/src/thai/CatTha.gf | 77 --------------------------------------------- 1 file changed, 77 deletions(-) delete mode 100644 next-lib/src/thai/CatTha.gf (limited to 'next-lib/src/thai/CatTha.gf') diff --git a/next-lib/src/thai/CatTha.gf b/next-lib/src/thai/CatTha.gf deleted file mode 100644 index d13983f4a..000000000 --- a/next-lib/src/thai/CatTha.gf +++ /dev/null @@ -1,77 +0,0 @@ -concrete CatTha of Cat = CommonX ** open ResTha, Prelude in { - - flags optimize=all_subs ; - - lincat - --- Tensed/Untensed - - S = {s : Str} ; - QS = {s : QForm => Str} ; --- RS = {s : Agr => Str ; c : Case} ; -- c for it clefts --- ----- Sentence --- - Cl = {s : Polarity => Str} ; --- Slash = { --- s : Tense => Anteriority => CPolarity => Order => Str ; --- c2 : Str --- } ; - Imp = {s : Polarity => Str} ; --- ----- Question --- - QCl = {s : Polarity => Str} ; --- IP = {s : Case => Str ; n : Number} ; --- IComp = {s : Str} ; --- IDet = {s : Str ; n : Number} ; --- ----- Relative --- --- RCl = {s : Tense => Anteriority => CPolarity => Agr => Str ; c : Case} ; --- RP = {s : RCase => Str ; a : RAgr} ; --- ----- Verb --- - VP = ResTha.VP ; - Comp = ResTha.VP ; --- ----- Adjective --- --- AP = {s : Agr => Str ; isPre : Bool} ; --- --- Noun --- - CN = Noun ; - NP, Pron = SS ; - Det = Determiner ; --- Predet, Ord = {s : Str} ; - Num, Quant = {s : Str ; hasC : Bool} ; - --- Numeral - - Numeral = {s : Str} ; - ----- Structural --- --- Conj = {s : Str ; n : Number} ; --- DConj = {s1,s2 : Str ; n : Number} ; --- Subj = {s : Str} ; --- Prep = {s : Str} ; --- --- Open lexical classes, e.g. Lexicon - - V, VS, VQ, VA = Verb ; - V2, V2A = Verb ** {c2 : Str} ; - V3 = Verb ** {c2, c3 : Str} ; - VV = VVerb ; --- --- A = {s : AForm => Str} ; --- A2 = {s : AForm => Str ; c2 : Str} ; --- - N = Noun ; --- N2 = {s : Number => Case => Str} ** {c2 : Str} ; --- N3 = {s : Number => Case => Str} ** {c2,c3 : Str} ; --- PN = {s : Case => Str} ; --- -} -- cgit v1.2.3