Text as startcat in ResourceDemo ; adjustments in Finnish NP's

2012-05-28 15:14:45 +00:00
parent 9a8381df11
commit 8c289f8ba1
5 changed files with 32 additions and 20 deletions
@@ -11,17 +11,17 @@ lin
  CNIntNP cn i = {
    s = \\c => cn.s ! NCase Sg (npform2case Sg c) ++ i.s ;
    a = agrP3 Sg ;
-    isPron = False
+    isPron = False ; isNeg = False
    } ;
  CNSymbNP det cn xs = let detcn = NounFin.DetCN det cn in {
    s = \\c => detcn.s ! c ++ xs.s ;
    a = detcn.a ;
-    isPron = False
+    isPron = False ; isNeg = False
    } ;
  CNNumNP cn i = {
    s = \\c => cn.s ! NCase Sg (npform2case Sg c) ++ i.s ! Sg ! Nom ;
    a = agrP3 Sg ;
-    isPron = False
+    isPron = False ; isNeg = False
    } ;

  SymbS sy = sy ;