forked from GitHub/gf-core
chinese (Chi) in place and compiles, based on work by Jolene Zhuo Lin Qiqige
This commit is contained in:
40
lib/src/chinese/QuestionChi.gf
Normal file
40
lib/src/chinese/QuestionChi.gf
Normal file
@@ -0,0 +1,40 @@
|
||||
concrete QuestionChi of Question = CatChi **
|
||||
open ResChi, Prelude in {
|
||||
|
||||
flags optimize=all_subs ;
|
||||
|
||||
lin
|
||||
|
||||
QuestCl cl = {s = \\p,a => cl.s ! p ! a ++ question_s} ; --- plus redup questions
|
||||
|
||||
QuestVP ip vp = {
|
||||
s = \\p,a => ip.s ++ vp.prePart ++ useVerb vp.verb ! p ! a ++ vp.compl
|
||||
} ;
|
||||
|
||||
QuestSlash ip cls = {
|
||||
s =\\p,a => cls.c2.prepPre ++ cls.np ++ cls.c2.prepMain ++ cls.vp ! p ! a ++
|
||||
possessive_s ++ di_s ++ ip.s
|
||||
} ;
|
||||
|
||||
QuestIAdv iadv cl = {s = \\p,a => cl.np ++ iadv.s ++ cl.vp ! p ! a} ;
|
||||
|
||||
QuestIComp icomp np = {s = \\p,a => np.s ++ icomp.s} ; ---- order
|
||||
|
||||
PrepIP p ip = ss (appPrep p ip.s) ;
|
||||
|
||||
AdvIP ip adv = ss (adv.s ++ possessive_s ++ ip.s) ; ---- adding de
|
||||
|
||||
IdetCN det cn = {s = det.s ++ cn.c ++ cn.s} ; ---- number?
|
||||
|
||||
IdetIP idet = idet ;
|
||||
|
||||
IdetQuant iquant num = ss (iquant.s ++ num.s) ; ----
|
||||
|
||||
AdvIAdv i a = ss (a.s ++ i.s) ;
|
||||
|
||||
CompIAdv a = ss (zai_s ++ a.s) ;
|
||||
|
||||
CompIP ip = ss (copula_s ++ ip.s) ;
|
||||
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user