add AdvNP in Slovenian

This commit is contained in:
krangelov
2021-04-06 21:22:56 +02:00
parent 1dc1530b20
commit 6e95fbbbb9

View File

@@ -29,6 +29,12 @@ concrete NounSlv of Noun = CatSlv ** open ResSlv,Prelude in {
isPron = True
} ;
AdvNP np adv = {
s = \\c => np.s ! c ++ adv.s ;
a = np.a ;
isPron = False -- KA: guessed
} ;
DetQuant quant num = {
s = \\g,c => quant.s ! g ! c ! (numAgr2num ! num.n) ++ num.s ! g ! c;
spec = quant.spec ;