adjectival predication now without copula by default in Chi

2013-10-03 07:37:17 +00:00
parent e09104c6d9
commit 84c1422e6f
6 changed files with 29 additions and 18 deletions
--- a/lib/src/chinese/VerbChi.gf
+++ b/lib/src/chinese/VerbChi.gf
@@ -54,7 +54,11 @@ concrete VerbChi of Verb = CatChi ** open ResChi, Prelude in {

    PassV2 v = insertAdv (mkNP passive_s) (predV v v.part) ; ----

-    CompAP ap = insertObj (mkNP (ap.s ++ possessive_s)) (predV copula []) ; ---- hen / bu
+    CompAP ap = insertObj (mkNP ap.s) (
+      case ap.hasAdA of {
+         True => predV nocopula [] ; 
+         False => predV hen_copula []}
+         ) ; 

    CompNP np = insertObj np (predV copula []) ; ----