GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-24 03:52:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

"Committed_by_peb"

Browse Source
This commit is contained in:
peb
2005-03-15 10:18:51 +00:00
parent a061ad4ee0
commit 37fe08c0a7
3 changed files with 11 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
grammars/testConversions/MicroAbs.gf
View File

@@ -1,16 +1,10 @@
abstract MicroAbs = {
cat S; V; VV; W;
cat A;
fun
sv : V -> S;
vars : VV;
ww : W -> W;
svw : V -> W -> S;
a, ab : A;
redup : A -> A;
supr : V -> V -> S;
supredup : S -> S -> S;
suplbl : V -> S;
reorder : V -> V -> V;
}

22
grammars/testConversions/MicroCnc.gf
View File

@@ -1,26 +1,14 @@
concrete MicroCnc of MicroAbs = open MicroRes in {
concrete MicroCnc of MicroAbs = {
lincat
S = {s : Str};
VV = {a : {s1:Str ; s2:Str}};
V = {s1 : Str ; s2 : Str ; p : PQ};
W = {s : Num => Str ; p : PQ => Num};
A = {s : Str};
lin
sv x = {s = x.s1 ++ x.s2};
vars = {a = variants { {s1="a" ; s2=variants{"b";"c"}} ; {s1="d";s2="e"} }};
ww x = {s = table {Sg => x.s!(x.p!P);
Pl => x.s!(x.p!Q Pl)};
p = table {P => Sg ; Q n => n}};
svw x y = {s = x.s2 ++ y.s!(y.p!x.p) ++ x.s1};
a = {s = "a"};
ab = {s = variants{"c";"b"}};
redup x = {s = x.s ++ x.s};
supr x y = {s = x.s1 ++ "a" ++ x.s2};
supredup x y = {s = x.s ++ "b" ++ x.s};
suplbl x = {s = x.s1};
reorder x y = {s1 = x.s2 ++ y.s1 ++ x.s1;
s2 = y.s2 ++ y.s1;
p = x.p};
}