mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-27 17:08:54 -06:00
make it compile again
This commit is contained in:
@@ -1,13 +1,15 @@
|
||||
concrete CatSqi of Cat = CommonX ** open ParamX,Prelude,ResSqi in {
|
||||
flags
|
||||
coding = "UTF-8" ;
|
||||
lincat A = {s : Case => Gender => Number => Str; clit : Bool} ;
|
||||
lincat A2 = {s : Case => Gender => Number => Str; clit : Bool;
|
||||
c2 : {s : Str}} ;
|
||||
lincat A = Adj ;
|
||||
lincat A2 = Adj ** {c2 : Compl} ;
|
||||
lincat V, VA, VV, VS, VQ = Verb ;
|
||||
lincat V2, V2S, V2Q = Verb ** {c2 : Compl} ;
|
||||
lincat V3, V2A, V2V = Verb ** {c2,c3 : Compl} ;
|
||||
lincat Prep = Compl ;
|
||||
lincat ACard = {s : Str} ;
|
||||
lincat AP = {s : Case => Gender => Number => Str; isPre : Bool} ;
|
||||
lincat CN = {s : Species => Case => Number => Case => Str;
|
||||
g : Gender} ;
|
||||
lincat AP = {s : Species => Case => Gender => Number => Str} ;
|
||||
lincat CN = Noun ;
|
||||
lincat Card = {s : Str} ;
|
||||
lincat Cl = {s : Str} ;
|
||||
lincat ClSlash = {s : Str} ;
|
||||
@@ -15,7 +17,7 @@ concrete CatSqi of Cat = CommonX ** open ParamX,Prelude,ResSqi in {
|
||||
lincat Conj = {s : Str} ;
|
||||
lincat DAP = {s : Str} ;
|
||||
lincat Decimal = {s : Str; n : Number; hasDot : Bool} ;
|
||||
lincat Det = {s : Str; n : Number; sp : Species} ;
|
||||
lincat Det = {s : Case => Gender => Str; spec : Species; n : Number} ;
|
||||
lincat Digits = {s : Str; n : Number; tail : DTail} ;
|
||||
lincat GN = {s : Str} ;
|
||||
lincat IComp = {s : Str} ;
|
||||
@@ -24,23 +26,21 @@ concrete CatSqi of Cat = CommonX ** open ParamX,Prelude,ResSqi in {
|
||||
lincat IQuant = {s : Str} ;
|
||||
lincat Imp = {s : Str} ;
|
||||
lincat LN = {s : Str} ;
|
||||
lincat N = {s : Species => Case => Number => Str; g : Gender} ;
|
||||
lincat N = Noun ;
|
||||
lincat N2 = {s : Species => Case => Number => Str; g : Gender;
|
||||
c2 : {s : Str}} ;
|
||||
lincat N3 = {s : Species => Case => Number => Str; g : Gender;
|
||||
c2 : {s : Str}; c3 : {s : Str}} ;
|
||||
lincat NP = {s : Case => Str; g : Gender} ;
|
||||
lincat NP = {s : Case => Str; a : Agr} ;
|
||||
lincat Num = {s : Str; n : Number} ;
|
||||
lincat Numeral = {s : Str} ;
|
||||
lincat Ord = {s : Str} ;
|
||||
lincat PN = {s : Str} ;
|
||||
lincat Predet = {s : Str} ;
|
||||
lincat Prep = {s : Str} ;
|
||||
lincat Pron = {s : Case => Str; acc_clit : Str; dat_clit : Str;
|
||||
a : {gn : GenNum; p : Person}} ;
|
||||
lincat Pron = {s: Case => Str; acc_clit, dat_clit : Str; a : Agr} ;
|
||||
lincat QCl = {s : Str} ;
|
||||
lincat QS = {s : Str} ;
|
||||
lincat Quant = {s : Str; sp : Species} ;
|
||||
lincat Quant = {s : Case => Gender => Number => Str; spec : Species} ;
|
||||
lincat RCl = {s : Str} ;
|
||||
lincat RP = {s : Str} ;
|
||||
lincat RS = {s : Str} ;
|
||||
@@ -48,57 +48,6 @@ concrete CatSqi of Cat = CommonX ** open ParamX,Prelude,ResSqi in {
|
||||
lincat SN = {s : Str} ;
|
||||
lincat SSlash = {s : Str} ;
|
||||
lincat Subj = {s : Str} ;
|
||||
lincat V = {indicative : Tense => Number => Person => Str;
|
||||
imperative : Number => Str; participle : Str;
|
||||
pres_optative : Number => Person => Str;
|
||||
perf_optative : Number => Person => Str;
|
||||
pres_admirative : Number => Person => Str;
|
||||
imperf_admirative : Number => Person => Str} ;
|
||||
lincat V2 = {indicative : Tense => Number => Person => Str;
|
||||
imperative : Number => Str; participle : Str;
|
||||
pres_optative : Number => Person => Str;
|
||||
perf_optative : Number => Person => Str;
|
||||
pres_admirative : Number => Person => Str;
|
||||
imperf_admirative : Number => Person => Str; c2 : {s : Str}} ;
|
||||
lincat V2A = {indicative : Tense => Number => Person => Str;
|
||||
imperative : Number => Str; participle : Str;
|
||||
pres_optative : Number => Person => Str;
|
||||
perf_optative : Number => Person => Str;
|
||||
pres_admirative : Number => Person => Str;
|
||||
imperf_admirative : Number => Person => Str; c2 : {s : Str};
|
||||
c3 : {s : Str}} ;
|
||||
lincat V2Q = {indicative : Tense => Number => Person => Str;
|
||||
imperative : Number => Str; participle : Str;
|
||||
pres_optative : Number => Person => Str;
|
||||
perf_optative : Number => Person => Str;
|
||||
pres_admirative : Number => Person => Str;
|
||||
imperf_admirative : Number => Person => Str; c2 : {s : Str}} ;
|
||||
lincat V2S = {indicative : Tense => Number => Person => Str;
|
||||
imperative : Number => Str; participle : Str;
|
||||
pres_optative : Number => Person => Str;
|
||||
perf_optative : Number => Person => Str;
|
||||
pres_admirative : Number => Person => Str;
|
||||
imperf_admirative : Number => Person => Str; c2 : {s : Str}} ;
|
||||
lincat V2V = {indicative : Tense => Number => Person => Str;
|
||||
imperative : Number => Str; participle : Str;
|
||||
pres_optative : Number => Person => Str;
|
||||
perf_optative : Number => Person => Str;
|
||||
pres_admirative : Number => Person => Str;
|
||||
imperf_admirative : Number => Person => Str; c2 : {s : Str};
|
||||
c3 : {s : Str}} ;
|
||||
lincat V3 = {indicative : Tense => Number => Person => Str;
|
||||
imperative : Number => Str; participle : Str;
|
||||
pres_optative : Number => Person => Str;
|
||||
perf_optative : Number => Person => Str;
|
||||
pres_admirative : Number => Person => Str;
|
||||
imperf_admirative : Number => Person => Str; c2 : {s : Str};
|
||||
c3 : {s : Str}} ;
|
||||
lincat VA = {indicative : Tense => Number => Person => Str;
|
||||
imperative : Number => Str; participle : Str;
|
||||
pres_optative : Number => Person => Str;
|
||||
perf_optative : Number => Person => Str;
|
||||
pres_admirative : Number => Person => Str;
|
||||
imperf_admirative : Number => Person => Str} ;
|
||||
lincat VP = {indicative : Tense => Number => Person => Case => Str;
|
||||
participle : Case => Str;
|
||||
pres_optative : Number => Person => Case => Str;
|
||||
@@ -111,22 +60,4 @@ concrete CatSqi of Cat = CommonX ** open ParamX,Prelude,ResSqi in {
|
||||
perf_optative : Number => Person => Str;
|
||||
pres_admirative : Number => Person => Str;
|
||||
imperf_admirative : Number => Person => Str} ;
|
||||
lincat VQ = {indicative : Tense => Number => Person => Str;
|
||||
imperative : Number => Str; participle : Str;
|
||||
pres_optative : Number => Person => Str;
|
||||
perf_optative : Number => Person => Str;
|
||||
pres_admirative : Number => Person => Str;
|
||||
imperf_admirative : Number => Person => Str} ;
|
||||
lincat VS = {indicative : Tense => Number => Person => Str;
|
||||
imperative : Number => Str; participle : Str;
|
||||
pres_optative : Number => Person => Str;
|
||||
perf_optative : Number => Person => Str;
|
||||
pres_admirative : Number => Person => Str;
|
||||
imperf_admirative : Number => Person => Str} ;
|
||||
lincat VV = {indicative : Tense => Number => Person => Str;
|
||||
imperative : Number => Str; participle : Str;
|
||||
pres_optative : Number => Person => Str;
|
||||
perf_optative : Number => Person => Str;
|
||||
pres_admirative : Number => Person => Str;
|
||||
imperf_admirative : Number => Person => Str} ;
|
||||
}
|
||||
}
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@@ -8,7 +8,7 @@ concrete NounSqi of Noun = CatSqi ** open MorphoSqi, ResSqi in {
|
||||
a = agrgP3 cn.g det.n
|
||||
} ;
|
||||
|
||||
UsePron p = p ;
|
||||
-- UsePron p = p ;
|
||||
|
||||
DetQuant quant num = {
|
||||
s = \\c,g => quant.s ! c ! g ! num.n ++ num.s ;
|
||||
@@ -30,7 +30,6 @@ concrete NounSqi of Noun = CatSqi ** open MorphoSqi, ResSqi in {
|
||||
} ;
|
||||
|
||||
UseN n = n ;
|
||||
UseN2 n = n ;
|
||||
|
||||
AdjCN ap cn = {
|
||||
s = \\spec,c,n => cn.s ! spec ! c ! n ++ ap.s ! spec ! c ! cn.g ! n ;
|
||||
|
||||
Reference in New Issue
Block a user