summaryrefslogtreecommitdiff
path: root/src/GF/Canon/SkelGFC.hs
diff options
context:
space:
mode:
authorbringert <unknown>2005-06-17 13:15:16 +0000
committerbringert <unknown>2005-06-17 13:15:16 +0000
commit2c48a10236bb19d8b04382cb1e957ce18b9d29fd (patch)
tree1194fc1981b5cd2a144b72f4fff261edfeb1af2e /src/GF/Canon/SkelGFC.hs
parent05b5ffe5bf03a870f6fe0728ace6c0d8de69b89e (diff)
Changed name of Con constructor in GFC.cf to avoid errors on Windows when generating Java code with BNFC for the GFC grammar. CON is a reserved filename on Windows. Con was changed to Par, and all the code using was changed too.
Diffstat (limited to 'src/GF/Canon/SkelGFC.hs')
-rw-r--r--src/GF/Canon/SkelGFC.hs14
1 files changed, 12 insertions, 2 deletions
diff --git a/src/GF/Canon/SkelGFC.hs b/src/GF/Canon/SkelGFC.hs
index fd3fc9086..a1d9331d8 100644
--- a/src/GF/Canon/SkelGFC.hs
+++ b/src/GF/Canon/SkelGFC.hs
@@ -1,10 +1,11 @@
-
module GF.Canon.SkelGFC where
-- Haskell module generated by the BNF converter
import GF.Canon.AbsGFC
import GF.Data.ErrM
+import GF.Infra.Ident
+
type Result = Err String
failure :: Show a => a -> Result
@@ -21,6 +22,15 @@ transCanon x = case x of
Gr modules -> failure x
+transLine :: Line -> Result
+transLine x = case x of
+ LMulti ids id -> failure x
+ LHeader modtype extend open -> failure x
+ LFlag flag -> failure x
+ LDef def -> failure x
+ LEnd -> failure x
+
+
transModule :: Module -> Result
transModule x = case x of
Mod modtype extend open flags defs -> failure x
@@ -142,7 +152,7 @@ transTerm :: Term -> Result
transTerm x = case x of
Arg argvar -> failure x
I cident -> failure x
- Con cident terms -> failure x
+ Par cident terms -> failure x
LI id -> failure x
R assigns -> failure x
P term label -> failure x