ExtAdvS added to more languages

lib/src/Make.hs

@@ -77,7 +77,7 @@ langsIncomplete = ["Amh","Ara","Hin","Lat","Tha","Tur"]
 langsAPI = langsLang `except` langsIncomplete
 
 -- languages for which to compile Symbolic
-langsSymbolic = langsLang `except` (langsIncomplete ++ ["Afr","Ina","Pes","Pnb","Rus"])
+langsSymbolic = langsLang `except` (langsIncomplete ++ ["Afr","Ina","Nep","Pes","Pnb","Rus"])
 
 -- languages for which to compile minimal Syntax
 langsMinimal = langs `only` ["Ara","Eng","Bul","Rus"]

lib/src/bulgarian/SentenceBul.gf

@@ -66,7 +66,8 @@ concrete SentenceBul of Sentence = CatBul ** open Prelude, ResBul in {
       c2 = cl.c2
     } ;
 
-    AdvS a s = {s = a.s ++ "," ++ s.s} ;
+    ExtAdvS a s = {s = a.s ++ "," ++ s.s} ;
+    AdvS a s = {s = a.s ++ s.s} ;
 
     RelS s r = {s = s.s ++ "," ++ r.s ! {gn=gennum ANeut Sg; p=P3}} ;
 }

lib/src/dutch/SentenceDut.gf

@@ -61,6 +61,7 @@ concrete SentenceDut of Sentence = CatDut ** open ResDut, Prelude in {
       } ;
 
     AdvS a s = {s = \\o => a.s ++ s.s ! Inv} ;
+    ExtAdvS a s = {s = \\o => a.s ++ "," ++ s.s ! Inv} ;
 
     RelS s r = {s = \\o => s.s ! o ++ "," ++ r.s ! Neutr ! Sg} ;
 

lib/src/hindustani/SentenceHindustani.gf

@@ -98,6 +98,7 @@ incomplete concrete SentenceHindustani of Sentence =
     } ;
 
     AdvS a s = {s = a.s ! Masc ++ s.s} ;
+    ExtAdvS a s = {s = a.s ! Masc ++ "," ++ s.s} ;
 
     RelS s r = {s = s.s ++ r.s ! agrP3 Masc Sg} ;
     SSubjS s sj s = { s = s.s ++ sj.s ++ s.s};

lib/src/romanian/SentenceRon.gf

@@ -92,6 +92,7 @@
     } ;
 
     AdvS a s = {s = \\o => a.s ++ s.s ! o} ;
+    ExtAdvS a s = {s = \\o => a.s ++ "," ++ s.s ! o} ;
 
     RelS s r = {
       s = \\o => s.s ! o ++ "," ++ r.s ! Indic ! agrP3 Masc Sg

lib/src/russian/SentenceRus.gf

@@ -129,7 +129,8 @@ concrete SentenceRus of Sentence = CatRus ** open Prelude, ResRus in {
     };
 
 
-    AdvS a s = {s = a.s ++ "," ++ s.s} ; ---- AR 19/6/2007
+    AdvS a s = {s = a.s ++ s.s} ; ---- AR 19/6/2007
+    ExtAdvS a s = {s = a.s ++ "," ++ s.s} ; ---- AR 1/9/2011
 
     ---- AR 17/12/2008
     RelS s r = {s = s.s ++ "," ++ r.s ! gennum Neut Sg ! Nom ! Inanimate} ; ---- ?