33 lines
837 B
Plaintext
33 lines
837 B
Plaintext
concrete AdjectiveFao of Adjective = CatFao ** open ResFao in {
|
|
lin
|
|
PositA a = a ;
|
|
ComparA a np = {
|
|
s = \\af,g,n,c => "meir" ++ a.s ! af ! g ! n ! c ++ "enn" ++ np.s ! Nom
|
|
} ;
|
|
ComplA2 a np = {
|
|
s = \\af,g,n,c => a.s ! af ! g ! n ! c ++ a.c2.s ++ np.s ! a.c2.c
|
|
} ;
|
|
ReflA2 a = {
|
|
s = \\af,g,n,c => a.s ! af ! g ! n ! c ++ a.c2.s ++ "seg"
|
|
} ;
|
|
UseA2 a = a ;
|
|
UseComparA a = {
|
|
s = \\af,g,n,c => "meir" ++ a.s ! af ! g ! n ! c
|
|
} ;
|
|
CAdvAP cadv ap np = {
|
|
s = \\af,g,n,c => cadv.s ++ ap.s ! af ! g ! n ! c ++ cadv.p ++ np.s ! Nom
|
|
} ;
|
|
AdjOrd ord = {
|
|
s = ord.s
|
|
} ;
|
|
SentAP ap sc = {
|
|
s = \\af,g,n,c => ap.s ! af ! g ! n ! c ++ sc.s
|
|
} ;
|
|
AdAP ada ap = {
|
|
s = \\af,g,n,c => ada.s ++ ap.s ! af ! g ! n ! c
|
|
} ;
|
|
AdvAP ap adv = {
|
|
s = \\af,g,n,c => ap.s ! af ! g ! n ! c ++ adv.s
|
|
} ;
|
|
}
|