forked from GitHub/gf-core
52 lines
912 B
Plaintext
52 lines
912 B
Plaintext
--# -path=.:../abstract:../common:../../prelude
|
|
|
|
concrete AdjectiveMon of Adjective = CatMon ** open ResMon, Prelude in {
|
|
|
|
flags coding=utf8 ;
|
|
|
|
lin
|
|
|
|
PositA a = a ;
|
|
|
|
-- Comparative forms are used with an object of comparison, as adjectival phrases.
|
|
|
|
ComparA a np = {
|
|
s = np.s ! Abl ++ a.s
|
|
} ;
|
|
|
|
UseComparA a = a ;
|
|
|
|
-- $SuperlA$ belongs to determiner syntax in $Noun$.
|
|
|
|
ComplA2 a2 np = {
|
|
s = np.s ! a2.c2.rc ++ a2.c2.s ++ a2.s
|
|
} ;
|
|
|
|
ReflA2 a = {
|
|
s = reflPron ! Sg ! a.c2.rc ++ a.c2.s ++ a.s
|
|
} ;
|
|
|
|
AdAP ada ap = {
|
|
s = ada.s ++ ap.s
|
|
} ;
|
|
|
|
UseA2 a = a ;
|
|
|
|
CAdvAP cadv ap np = {
|
|
s = np.s ! cadv.c2.rc ++ cadv.c2.s ++ cadv.s ++ ap.s
|
|
} ;
|
|
|
|
AdvAP ap adv = {
|
|
s = adv.s ++ ap.s
|
|
} ;
|
|
|
|
AdjOrd ord = {
|
|
s = ord.s
|
|
} ;
|
|
|
|
SentAP ap sc = {
|
|
s = sc.s ++ "нь" ++ ap.s
|
|
} ;
|
|
|
|
}
|