blob: 587be71362d7e990fdca1801b2e926f863182641 (
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 FragmentSwedish of FragmentAbstract = open FragmentResource in {
lincat
S = { s : Order => Str };
VP = { s1 : Str; s2 : Str };
N = { s : Num => Str; g : Gen };
D = { s : Gen => Str; n : Num };
lin
s_p x y = { s = table { Indir => y.s1 ++ x.s ++ y.s2;
Top => y.s2 ++ y.s1 ++ x.s;
_ => x.s ++ y.s1 ++ y.s2 } };
np_d x y = { s = x.s!y.g ++ y.s!x.n };
np_p x = { s = x.s!Pl };
vp_t x y = { s1 = x.s; s2 = y.s };
d_a = { s = table { Utr => "en"; Neu => "ett" }; n = Sg };
d_m = { s = table { _ => "maanga" }; n = Pl };
n_c = { s = table { _ => "lejon" }; g = Neu };
n_f = { s = table { Sg => "fisk"; Pl => "fiskar" }; g = Utr };
v_e = { s = "aeter" };
v_h = { s = "jagar" };
}
|
