substantive and relative nouns in the Bulgarian library

2013-05-23 10:15:10 +00:00
parent 6ca2fe5898
commit af8cec11f9
6 changed files with 1137 additions and 646 deletions
--- a/lib/src/bulgarian/ParseBul.gf
+++ b/lib/src/bulgarian/ParseBul.gf
@@ -28,8 +28,18 @@ flags
  coding = utf8 ;

 lin
+  CompoundCN num noun cn = {
+    s = \\nf => (noun.rel ! nform2aform nf cn.g) ++ (cn.s ! (indefNForm nf)) ;
+    g = cn.g
+  } ;
+
  GerundN v = {
-    s = \\nform => v.s ! Imperf ! VNoun nform ;
+    s   = \\nform => v.s ! Imperf ! VNoun nform ;
+    rel = \\aform => v.s ! Imperf ! VPresPart aform ++
+                     case v.vtype of {
+                       VMedial c => reflClitics ! c;
+                       _         => []
+                     };
    g = ANeut
  } ;