forked from GitHub/gf-rgl
Krasimir Angelov
31 lines
731 B
Plaintext
31 lines
731 B
Plaintext
concrete ExtendTur of Extend = CatTur ** open ResTur, SuffixTur, Predef in {
|
|
|
|
lin
|
|
GenRP n cn = {
|
|
s = cn.gen ! n.n
|
|
} ;
|
|
|
|
GenModNP num np cn = {
|
|
s = \\c => np.s ! Nom ++ num.s ! num.n ! c ++ cn.gen ! num.n ! np.a ;
|
|
h = cn.h ;
|
|
a = {n=num.n; p=P3} ;
|
|
} ;
|
|
|
|
UttVPShort vp = {s = vp.s ! Perf ! VInf Pos} ;
|
|
|
|
TPastSimple = {s = []} ** {t = Past} ; --# notpresent
|
|
|
|
PositAdVAdj a = {s = a.s ! Sg ! Nom} ;
|
|
|
|
PassVPSlash vps = {
|
|
s = mkVerbForms {
|
|
s = vps.stems ! VPass ++ BIND ++ suffixStr vps.h infinitiveSuffix ;
|
|
stems = \\_ => vps.stems ! VPass ;
|
|
aoristType = vps.aoristType ;
|
|
h = vps.h ;
|
|
} ;
|
|
compl = []
|
|
} ;
|
|
|
|
}
|