64 lines
2.6 KiB
Plaintext
64 lines
2.6 KiB
Plaintext
concrete ConjunctionFao of Conjunction = CatFao ** open ResFao, Prelude in {
|
|
|
|
lincat
|
|
[S] = {s1,s2 : Str} ;
|
|
[RS] = {s1,s2 : Gender => PersNum => Str} ;
|
|
[Adv], [AdV], [IAdv] = {s1,s2 : Str} ;
|
|
[NP] = {s1,s2 : Case => Str ; g : Gender ; n : Number ; p : Person} ;
|
|
[AP] = {s1,s2 : Declension => Gender => Number => Case => Str} ;
|
|
[CN] = {s1,s2 : Species => Number => Case => Str ; p1,p2 : Number => Case => Str ; g : Gender} ;
|
|
[DAP] = {s1,s2 : Gender => Case => Str ; n : Number ; sp : Species ; d : Declension} ;
|
|
|
|
lin
|
|
ConjS conj xs = {s = xs.s1 ++ conj.s ++ xs.s2} ;
|
|
ConjRS conj xs = {s = \\g,p => xs.s1 ! g ! p ++ conj.s ++ xs.s2 ! g ! p} ;
|
|
ConjAdv conj xs = {s = xs.s1 ++ conj.s ++ xs.s2} ;
|
|
ConjAdV conj xs = {s = xs.s1 ++ conj.s ++ xs.s2} ;
|
|
ConjIAdv conj xs = {s = xs.s1 ++ conj.s ++ xs.s2} ;
|
|
ConjNP conj xs = {
|
|
s = \\c => xs.s1 ! c ++ conj.s ++ xs.s2 ! c ;
|
|
g = xs.g ;
|
|
n = Pl ;
|
|
p = P3
|
|
} ;
|
|
ConjAP conj xs = {
|
|
s = \\af,g,n,c => xs.s1 ! af ! g ! n ! c ++ conj.s ++ xs.s2 ! af ! g ! n ! c
|
|
} ;
|
|
ConjCN conj xs = {
|
|
s = \\sp,n,c => xs.s1 ! sp ! n ! c ++ conj.s ++ xs.s2 ! sp ! n ! c ;
|
|
p = \\n,c => xs.p1 ! n ! c ++ conj.s ++ xs.p2 ! n ! c ;
|
|
g = xs.g
|
|
} ;
|
|
ConjDet conj xs = {
|
|
s = \\g,c => xs.s1 ! g ! c ++ conj.s ++ xs.s2 ! g ! c ;
|
|
n = xs.n ;
|
|
sp = xs.sp ;
|
|
d = xs.d
|
|
} ;
|
|
|
|
BaseS x y = {s1 = x.s ; s2 = y.s} ;
|
|
ConsS x xs = {s1 = x.s ++ "," ++ xs.s1 ; s2 = xs.s2} ;
|
|
BaseRS x y = {s1 = x.s ; s2 = y.s} ;
|
|
ConsRS x xs = {s1 = \\g,p => x.s ! g ! p ++ "," ++ xs.s1 ! g ! p ; s2 = xs.s2} ;
|
|
BaseAdv x y = {s1 = x.s ; s2 = y.s} ;
|
|
ConsAdv x xs = {s1 = x.s ++ "," ++ xs.s1 ; s2 = xs.s2} ;
|
|
BaseAdV x y = {s1 = x.s ; s2 = y.s} ;
|
|
ConsAdV x xs = {s1 = x.s ++ "," ++ xs.s1 ; s2 = xs.s2} ;
|
|
BaseIAdv x y = {s1 = x.s ; s2 = y.s} ;
|
|
ConsIAdv x xs = {s1 = x.s ++ "," ++ xs.s1 ; s2 = xs.s2} ;
|
|
BaseNP x y = {s1 = x.s ; s2 = y.s ; g = x.g ; n = Pl ; p = P3} ;
|
|
ConsNP x xs = {s1 = \\c => x.s ! c ++ "," ++ xs.s1 ! c ; s2 = xs.s2 ; g = xs.g ; n = Pl ; p = P3} ;
|
|
BaseAP x y = {s1 = x.s ; s2 = y.s} ;
|
|
ConsAP x xs = {
|
|
s1 = \\af,g,n,c => x.s ! af ! g ! n ! c ++ "," ++ xs.s1 ! af ! g ! n ! c ;
|
|
s2 = xs.s2
|
|
} ;
|
|
BaseCN x y = {s1 = x.s ; s2 = y.s ; p1 = x.p ; p2 = y.p ; g = x.g} ;
|
|
ConsCN x xs = {
|
|
s1 = \\sp,n,c => x.s ! sp ! n ! c ++ "," ++ xs.s1 ! sp ! n ! c ; s2 = xs.s2 ;
|
|
p1 = \\n,c => x.p ! n ! c ++ "," ++ xs.p1 ! n ! c ; p2 = xs.p2 ; g = xs.g
|
|
} ;
|
|
BaseDAP x y = {s1 = x.s ; s2 = y.s ; n = y.n ; sp = y.sp ; d = y.d} ;
|
|
ConsDAP x xs = {s1 = \\g,c => x.s ! g ! c ++ "," ++ xs.s1 ! g ! c ; s2 = xs.s2 ; n = xs.n ; sp = xs.sp ; d = xs.d} ;
|
|
}
|