forked from GitHub/gf-rgl
19 lines
512 B
Plaintext
19 lines
512 B
Plaintext
--# -path=.:../abstract:../common:prelude
|
|
concrete ExtendBul of Extend = CatBul ** open ResBul in {
|
|
|
|
lin
|
|
CompoundN n1 n2 =
|
|
let aform = ASg (case n2.g of {
|
|
AMasc _ => Masc ;
|
|
AFem => Fem ;
|
|
ANeut => Neut
|
|
}) Indef
|
|
in {
|
|
s = \\nf => n1.rel ! nform2aform nf n2.g ++ n2.s ! (indefNForm nf) ;
|
|
rel = \\af => n1.rel ! aform ++ n2.s ! NF Sg Indef ;
|
|
g = n2.g
|
|
} ;
|
|
|
|
}
|
|
|