partial adjectives support

2008-02-20 17:01:19 +00:00
parent d5c53ccb7e
commit 5330d189ed
6 changed files with 36 additions and 1 deletions
--- a/lib/resource/bulgarian/NounBul.gf
+++ b/lib/resource/bulgarian/NounBul.gf
@@ -64,4 +64,9 @@ concrete NounBul of Noun = CatBul ** open ResBul, Prelude in {
      } ;

    UseN noun = noun ;
+
+    AdjCN ap cn = {
+      s = \\nf => preOrPost ap.isPre (ap.s ! nform2aform nf cn.g) (cn.s ! (indefNForm nf)) ;
+      g = cn.g
+      } ;
 }