forked from GitHub/gf-rgl
Aarne Ranta
52 lines
974 B
Plaintext
52 lines
974 B
Plaintext
concrete ExtendHrv of Extend = CatHrv **
|
|
ExtendFunctor - [
|
|
--- ReflPossPron
|
|
CardCNCard
|
|
---- constant not found (yet)
|
|
,GenRP
|
|
,youPolFem_Pron
|
|
,UttVPShort
|
|
,UttAccIP
|
|
,UttDatIP
|
|
,SubjRelNP
|
|
,StrandRelSlash
|
|
,StrandQuestSlash
|
|
,SlashBareV2S
|
|
,PredIAdvVP
|
|
,PredAPVP
|
|
,ExistsNP
|
|
,ExistS
|
|
,ExistPluralCN
|
|
,ExistNPQS
|
|
,ExistMassCN
|
|
,ExistIPQS
|
|
,ExistCN
|
|
,EmptyRelSlash
|
|
,DetNPMasc
|
|
,DetNPFem
|
|
,ComplBareVS
|
|
,CompIQuant
|
|
,CompBareCN
|
|
,PiedPipingQuestSlash
|
|
,PiedPipingRelSlash
|
|
]
|
|
with (Grammar = GrammarHrv)
|
|
**
|
|
open
|
|
ResHrv, ParadigmsHrv
|
|
in {
|
|
|
|
---lin ReflPossPron = justDemPronFormsAdjective reflPossessivePron ;
|
|
|
|
lin
|
|
CardCNCard card cn = {
|
|
s = \\g,c => card.s ! g ! c ++ numSizeForm cn.s card.size c ;
|
|
size = NS_20_
|
|
} ;
|
|
|
|
GenRP num cn = {
|
|
s = \\g, n, c => (adjFormsAdjective (mkA "čiji").posit).s ! g ! n ! c ++ num.s ! cn.g ! c ++ cn.s ! n ! c
|
|
} ;
|
|
|
|
}
|