added ExtAdvNP and ExtAdvVP in the resource grammar
This commit is contained in:
1 parent
420ef54132
commit
3a2f05066b
5 files changed
+13
No files matched your search
@@ -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 }
|
||||
|
||||
Reference in new issue
Block a user