added ExtAdvNP and ExtAdvVP in the resource grammar

2026-05-07 18:22:50 -06:00 · 2013-09-03 08:59:47 +00:00
parent fd17023eeb
commit d3d4400c0e
5 changed files with 13 additions and 0 deletions
--- a/lib/src/english/NounEng.gf
+++ b/lib/src/english/NounEng.gf
@@ -31,6 +31,11 @@ concrete NounEng of Noun = CatEng ** open MorphoEng, ResEng, Prelude in {
      a = np.a
      } ;

+    ExtAdvNP np adv = {
+      s = \\c => np.s ! c ++ "," ++ adv.s ++ finalComma;
+      a = np.a
+      } ;
+
    DetQuant quant num = {
      s  = quant.s ! num.hasCard ! num.n ++ num.s ! Nom;
      sp = \\c => case num.hasCard of {