mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-27 17:08:54 -06:00
add AdvNP in Slovenian
This commit is contained in:
@@ -29,6 +29,12 @@ concrete NounSlv of Noun = CatSlv ** open ResSlv,Prelude in {
|
|||||||
isPron = True
|
isPron = True
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
|
AdvNP np adv = {
|
||||||
|
s = \\c => np.s ! c ++ adv.s ;
|
||||||
|
a = np.a ;
|
||||||
|
isPron = False -- KA: guessed
|
||||||
|
} ;
|
||||||
|
|
||||||
DetQuant quant num = {
|
DetQuant quant num = {
|
||||||
s = \\g,c => quant.s ! g ! c ! (numAgr2num ! num.n) ++ num.s ! g ! c;
|
s = \\g,c => quant.s ! g ! c ! (numAgr2num ! num.n) ++ num.s ! g ! c;
|
||||||
spec = quant.spec ;
|
spec = quant.spec ;
|
||||||
|
|||||||
Reference in New Issue
Block a user