"Committed_by_peb"

grammars/testConversions/MicroAbs.gf

@@ -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;
 }

grammars/testConversions/MicroCnc.gf

@@ -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};
 }
 
 

src/GF/Infra/Ident.hs

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