forked from GitHub/comp-syntax-gu-mlt
32 lines
715 B
Plaintext
32 lines
715 B
Plaintext
concrete AgreementEng of Agreement = open MorphologyEng in {
|
|
lincat
|
|
NP = {s: Str; n: Number} ;
|
|
CN = Noun ;
|
|
N = Noun ;
|
|
A = {s: Str} ;
|
|
Det = {s: Str; n: Number} ;
|
|
|
|
lin
|
|
DetCN d cn = {
|
|
s = d.s ++ (cn.s ! d.n) ;
|
|
n = d.n ;
|
|
} ;
|
|
AdjCN a cn = {
|
|
s = \\n => a.s ++ (cn.s ! n) ;
|
|
} ;
|
|
UseN n = n ;
|
|
|
|
cat_N = regNoun "cat" ;
|
|
house_N = regNoun "house" ;
|
|
black_A = {s = "black"} ;
|
|
big_A = {s = "big"} ;
|
|
this_Det = {
|
|
s = "this";
|
|
n = Sg ;
|
|
} ;
|
|
these_Det = {
|
|
s = "these";
|
|
n = Pl ;
|
|
} ;
|
|
|
|
} |