GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-08 02:32:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

Chinese verbal adjective predication and repeated verb questions

Browse Source
This commit is contained in:
aarne
2013-10-08 14:19:16 +00:00
parent 227b9ef0a8
commit 0e14ae92e8
7 changed files with 53 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
lib/src/chinese/ExtraChi.gf
View File

@@ -1,8 +1,9 @@
concrete ExtraChi of ExtraChiAbs = CatChi **
open ResChi, Coordination, Prelude in {
flags coding = utf8 ;
lincat
Aspect = {s : Str ; a : ResChi.Aspect} ;
VPS = {s : Str} ;
[VPS] = {s1,s2 : Str} ;
VPI = {s : Str} ; --- ???
@@ -27,4 +28,28 @@ concrete ExtraChi of ExtraChiAbs = CatChi **
GenRP nu cn = {s = cn.s ++ relative_s} ; ---- ??
-----------------------
-- Chinese-only extras
lincat
Aspect = {s : Str ; a : ResChi.Aspect} ;
lin
PredBareAP np ap = case ap.hasAdA of {
True => mkClause np.s (insertObj (mkNP ap.s) (predV nocopula [])) ;
False => mkClause np.s (insertObj (mkNP ap.s) (predV hen_copula []))
} ;
QuestRepV cl = {
s = \\p,a =>
let
v = cl.vp.verb ;
verb = case a of {
APlain => v.s ++ v.neg ++ v.sn ;
APerf => v.s ++ "不" ++ v.sn ++ v.pp ;
ADurStat => v.s ++ "不" ++ v.sn ;
ADurProg => v.dp ++ v.neg ++ v.dp ++ v.sn ; -- mei or bu
AExper => v.s ++ v.neg ++ v.sn ++ v.ep
}
in
cl.np ++ cl.vp.prePart ++ verb ++ cl.vp.compl
} ;
}