mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-10 13:29:32 -06:00
35 lines
828 B
Plaintext
35 lines
828 B
Plaintext
|
|
concrete SimpleEng of SimpleAbs = open SimpleEngRes in {
|
|
|
|
lincat
|
|
S = {s : Str};
|
|
VP = {s : Num => Str};
|
|
NP = {s : Str ; n : Num};
|
|
V = {s : Num => Str};
|
|
N = {s : Num => Str};
|
|
D = {s : Str ; n : Num};
|
|
P = {s : Str};
|
|
PP = {s : Str};
|
|
|
|
lin
|
|
cyclic x = x;
|
|
mkS x y = {s = x.s ++ y.s ! x.n};
|
|
mkVP x y = {s = table {n => x.s ! n ++ y.s}};
|
|
mkNP1 x y = {s = x.s ++ y.s ! x.n ; n = x.n};
|
|
mkNP2 x = {s = x.s ! Pl ; n = Pl};
|
|
mkNP3 x y = {s = x.s ++ y.s; n = x.n};
|
|
mkPP x y = {s = y.s ++ x.s};
|
|
|
|
robin = {s = "Robin" ; n = Sg};
|
|
dog = {s = table {Sg => "dog" ; Pl => "dogs"}};
|
|
child = {s = table {Sg => "child" ; Pl => "children"}};
|
|
love = {s = table {Sg => "loves" ; Pl => "love"}};
|
|
hate = {s = table {Sg => "hates" ; Pl => "hate"}};
|
|
one = {s = "one" ; n = Sg};
|
|
all = {s = "all" ; n = Pl};
|
|
inside= {s = "in"};
|
|
|
|
}
|
|
|
|
|