1
0
forked from GitHub/gf-core

"Committed_by_peb"

This commit is contained in:
peb
2005-04-11 12:57:45 +00:00
parent 716e7986c5
commit a1546c25e7
81 changed files with 7080 additions and 181 deletions

View File

@@ -0,0 +1,26 @@
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" } };
}