mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-16 08:19:31 -06:00
20 lines
325 B
Plaintext
20 lines
325 B
Plaintext
concrete ExtraPol of ExtraPolAbs = CatPol ** open ResPol in {
|
|
|
|
lin
|
|
|
|
QualifierCN adj cn = {
|
|
s = \\n,c => (cn.s ! n ! c) ++ (adj.s ! AF (cast_gennum!<cn.g,n>) c);
|
|
g = cn.g
|
|
};
|
|
|
|
ProDrop p = {
|
|
nom = [] ;
|
|
voc = p.voc ;
|
|
dep = p.dep ;
|
|
sp = p.sp ;
|
|
n = p.n ;
|
|
p = p.p ;
|
|
g = p.g ;
|
|
} ;
|
|
}
|