(Ara) misc small additions/tweaks

AdvAP: reuse implementation of AdAP
BaseNP, ConsNP, ConjNP: don't make NP by default heavy.
This commit is contained in:
Inari Listenmaa
2019-01-05 21:32:27 +02:00
parent b2ea7a5497
commit 98b5cf9ab9
2 changed files with 9 additions and 13 deletions
+3 -1
View File
@@ -3,7 +3,6 @@ concrete AdjectiveAra of Adjective = CatAra ** open ResAra, Prelude in {
flags coding = utf8 ;
lin
PositA a = {
s = \\h,g,n,d,c => case h of {
Hum => a.s ! APosit g n d c;
@@ -33,6 +32,9 @@ concrete AdjectiveAra of Adjective = CatAra ** open ResAra, Prelude in {
s = \\sp,g,n,st,c => ap.s ! sp ! g ! n ! st ! c ++ ada.s
} ;
AdvAP,
SentAP = \ap,ss -> AdAP ss ap ;
UseA2 = PositA ;
UseComparA a = {