Changed CFGM format and printer to allow constants in profiles.

2005-05-17 13:04:35 +00:00
parent 31044ec728
commit 8abf80dc4d
7 changed files with 148 additions and 132 deletions
--- a/src/GF/CFGM/AbsCFG.hs
+++ b/src/GF/CFGM/AbsCFG.hs
@@ -17,7 +17,7 @@ data Flag =
  deriving (Eq,Ord,Show)

 data Rule =
-   Rule Fun Profile Category [Symbol]
+   Rule Fun Profiles Category [Symbol]
  deriving (Eq,Ord,Show)

 data Fun =
@@ -25,12 +25,13 @@ data Fun =
 | Coerce
  deriving (Eq,Ord,Show)

-data Profile =
-   Profile [Ints]
+data Profiles =
+   Profiles [Profile]
  deriving (Eq,Ord,Show)

-data Ints =
-   Ints [Integer]
+data Profile =
+   UnifyProfile [Integer]
+ | ConstProfile Ident
  deriving (Eq,Ord,Show)

 data Symbol =