1
0
forked from GitHub/gf-core

proper parameters in Chi IDet

This commit is contained in:
aarne
2013-10-08 19:14:56 +00:00
parent adc952a61d
commit 3ef9eea5eb
7 changed files with 22 additions and 6 deletions

View File

@@ -21,11 +21,24 @@ concrete QuestionChi of Question = CatChi **
AdvIP ip adv = ss (adv.s ++ possessive_s ++ ip.s) ; ---- adding de
IdetCN det cn = {s = det.s ++ cn.c ++ cn.s} ; ---- number?
IdetCN det cn = case det.detType of {
DTFull Sg => {s = det.s ++ cn.c ++ cn.s} ; -- which house
DTFull Pl => {s = det.s ++ xie_s ++ cn.s} ; -- which houses
DTNum => {s = det.s ++ cn.c ++ cn.s} ; -- (which) five houses
DTPoss => {s = det.s ++ cn.s} -- whose (five) houses
} ;
IdetIP idet = idet ;
IdetQuant iquant num = ss (iquant.s ++ num.s) ; ----
IdetQuant iquant num = {
s = iquant.s ++ num.s ;
detType = case num.numType of {
NTFull => DTNum ; -- which five
NTVoid n => DTFull n ---- TODO: whose
}
} ;
AdvIAdv i a = ss (a.s ++ i.s) ;