added ExtAdvNP and ExtAdvVP in the resource grammar

2013-09-03 08:59:47 +00:00
parent fd17023eeb
commit d3d4400c0e
5 changed files with 13 additions and 0 deletions
--- a/lib/src/bulgarian/NounBul.gf
+++ b/lib/src/bulgarian/NounBul.gf
@@ -61,6 +61,11 @@ concrete NounBul of Noun = CatBul ** open ResBul, Prelude in {
      a = np.a
      } ;

+    ExtAdvNP np adv = {
+      s = \\c => np.s ! c ++ "," ++ adv.s ;
+      a = np.a
+      } ;
+
    DetQuant quant num = {
      s  = \\sp,g,c => let sp' = case num.nonEmpty of { True  => True ;
                                                        False => sp   }