GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-22 17:42:51 -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 2edae8de54
commit 581ead0a73
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 = { abstract MicroAbs = {
cat S; V; VV; W; cat A;
fun fun
sv : V -> S; a, ab : A;
vars : VV; redup : A -> A;
ww : W -> W;
svw : V -> W -> S;
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 lincat
S = {s : Str}; A = {s : Str};
VV = {a : {s1:Str ; s2:Str}};
V = {s1 : Str ; s2 : Str ; p : PQ};
W = {s : Num => Str ; p : PQ => Num};
lin lin
sv x = {s = x.s1 ++ x.s2}; a = {s = "a"};
vars = {a = variants { {s1="a" ; s2=variants{"b";"c"}} ; {s1="d";s2="e"} }}; ab = {s = variants{"c";"b"}};
ww x = {s = table {Sg => x.s!(x.p!P); redup x = {s = x.s ++ x.s};
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};
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};
} }

5
src/GF/Infra/Ident.hs
View File

@@ -5,9 +5,9 @@
-- Stability : (stable) -- Stability : (stable)
-- Portability : (portable) -- Portability : (portable)
-- --
-- > CVS $Date: 2005/02/24 11:46:34 $ -- > CVS $Date: 2005/03/15 11:18:07 $
-- > CVS $Author: peb $ -- > CVS $Author: peb $
-- > CVS $Revision: 1.5 $ -- > CVS $Revision: 1.6 $
-- --
-- (Description of the module) -- (Description of the module)
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
@@ -36,6 +36,7 @@ data Ident =
| IV (Int,String) -- ^ /INTERNAL/ variable | IV (Int,String) -- ^ /INTERNAL/ variable
| IA (String,Int) -- ^ /INTERNAL/ argument of cat at position | IA (String,Int) -- ^ /INTERNAL/ argument of cat at position
| IAV (String,Int,Int) -- ^ /INTERNAL/ argument of cat with bindings at position | IAV (String,Int,Int) -- ^ /INTERNAL/ argument of cat with bindings at position
--
deriving (Eq, Ord, Show, Read) deriving (Eq, Ord, Show, Read)