From 65f012d15513814bd2cc4ad74f54edd35ade13fe Mon Sep 17 00:00:00 2001
From: bringert <unknown>
Date: Mon, 23 Aug 2004 07:51:36 +0000
Subject: Added CFGM format (pm -printer=cfgm) and utf8 conversion for pm.

---
 src/GF/CFGM/AbsCFG.hs | 50 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 50 insertions(+)
 create mode 100644 src/GF/CFGM/AbsCFG.hs

(limited to 'src/GF/CFGM/AbsCFG.hs')

diff --git a/src/GF/CFGM/AbsCFG.hs b/src/GF/CFGM/AbsCFG.hs
new file mode 100644
index 000000000..c709aee38
--- /dev/null
+++ b/src/GF/CFGM/AbsCFG.hs
@@ -0,0 +1,50 @@
+module AbsCFG where
+
+-- Haskell module generated by the BNF converter
+
+newtype Ident = Ident String deriving (Eq,Ord,Show)
+data Grammars =
+   Grammars [Grammar]
+  deriving (Eq,Ord,Show)
+
+data Grammar =
+   Grammar Ident [Flag] [Rule]
+  deriving (Eq,Ord,Show)
+
+data Flag =
+   StartCat Category
+  deriving (Eq,Ord,Show)
+
+data Rule =
+   Rule Ident Name Profile Category [Symbol]
+  deriving (Eq,Ord,Show)
+
+data Profile =
+   Profile [Ints]
+  deriving (Eq,Ord,Show)
+
+data Ints =
+   Ints [Integer]
+  deriving (Eq,Ord,Show)
+
+data Symbol =
+   CatS Category
+ | TermS String
+  deriving (Eq,Ord,Show)
+
+data Name =
+   Name [IdentParam] Category
+  deriving (Eq,Ord,Show)
+
+data Category =
+   Category IdentParam Ident [Param]
+  deriving (Eq,Ord,Show)
+
+data IdentParam =
+   IdentParam Ident [Param]
+  deriving (Eq,Ord,Show)
+
+data Param =
+   Param Ident
+  deriving (Eq,Ord,Show)
+
-- 
cgit v1.2.3