blob: 82829d0d126b3d862b28ba09491e30f85b1765ad (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
concrete FragmentNumber of FragmentAbstract = open FragmentResource in {
lincat
N = { s : Num => Str };
V = { s : Num => Str };
VP = { s : Num => Str };
D = { s : Str; n : Num };
NP = { s : Str; n : Num };
lin
s_p x y = { s = x.s ++ y.s!x.n };
np_d x y = { s = x.s ++ y.s!x.n; n = x.n };
np_p x = { s = x.s!Pl; n = Pl };
vp_t x y = { s = table { z => x.s!z ++ y.s } };
d_a = { s = "a"; n = Sg };
d_m = { s = "many"; n = Pl };
n_c = { s = table { Sg => "lion"; Pl => "lions" } };
n_f = { s = table { _ => "fish" } };
v_e = { s = table { Sg => "eats" ; Pl => "eat" } };
v_h = { s = table { Sg => "hunts" ; Pl => "hunt" } };
}
|
