msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Regenerated transfer bnfc stuff with latest bnfc, happy and alex, to be able to compile on GHC CVS.

Browse Source
This commit is contained in:
bringert
2006-05-20 01:41:53 +00:00
parent 49b171a4d5
commit f757f2ea1e
10 changed files with 224 additions and 270 deletions
Download Patch File Download Diff File Expand all files Collapse all files

137
src/Transfer/Core/Abs.hs
View File

@@ -196,71 +196,72 @@ johnMajorEq _ _ = False
instance Ord (Tree c) where instance Ord (Tree c) where
compare x y = compare (index x) (index y) `mappend` compareSame x y compare x y = compare (index x) (index y) `mappend` compareSame x y
where index :: Tree c -> Int
index (Module _) = 0 index (Module _) = 0
index (DataDecl _ _ _) = 1 index (DataDecl _ _ _) = 1
index (TypeDecl _ _) = 2 index (TypeDecl _ _) = 2
index (ValueDecl _ _) = 3 index (ValueDecl _ _) = 3
index (ConsDecl _ _) = 4 index (ConsDecl _ _) = 4
index (PCons _ _) = 5 index (PCons _ _) = 5
index (PVar _) = 6 index (PVar _) = 6
index (PRec _) = 7 index (PRec _) = 7
index (PStr _) = 8 index (PStr _) = 8
index (PInt _) = 9 index (PInt _) = 9
index (FieldPattern _ _) = 10 index (FieldPattern _ _) = 10
index (PVVar _) = 11 index (PVVar _) = 11
index (PVWild ) = 12 index (PVWild ) = 12
index (ELet _ _) = 13 index (ELet _ _) = 13
index (ECase _ _) = 14 index (ECase _ _) = 14
index (EAbs _ _) = 15 index (EAbs _ _) = 15
index (EPi _ _ _) = 16 index (EPi _ _ _) = 16
index (EApp _ _) = 17 index (EApp _ _) = 17
index (EProj _ _) = 18 index (EProj _ _) = 18
index (ERecType _) = 19 index (ERecType _) = 19
index (ERec _) = 20 index (ERec _) = 20
index (EVar _) = 21 index (EVar _) = 21
index (EType ) = 22 index (EType ) = 22
index (EStr _) = 23 index (EStr _) = 23
index (EInteger _) = 24 index (EInteger _) = 24
index (EDouble _) = 25 index (EDouble _) = 25
index (EMeta _) = 26 index (EMeta _) = 26
index (LetDef _ _) = 27 index (LetDef _ _) = 27
index (Case _ _ _) = 28 index (Case _ _ _) = 28
index (FieldType _ _) = 29 index (FieldType _ _) = 29
index (FieldValue _ _) = 30 index (FieldValue _ _) = 30
index (TMeta _) = 31 index (TMeta _) = 31
index (CIdent _) = 32 index (CIdent _) = 32
compareSame (Module decls) (Module decls_) = compare decls decls_ compareSame :: Tree c -> Tree c -> Ordering
compareSame (DataDecl cident exp consdecls) (DataDecl cident_ exp_ consdecls_) = mappend (compare cident cident_) (mappend (compare exp exp_) (compare consdecls consdecls_)) compareSame (Module decls) (Module decls_) = compare decls decls_
compareSame (TypeDecl cident exp) (TypeDecl cident_ exp_) = mappend (compare cident cident_) (compare exp exp_) compareSame (DataDecl cident exp consdecls) (DataDecl cident_ exp_ consdecls_) = mappend (compare cident cident_) (mappend (compare exp exp_) (compare consdecls consdecls_))
compareSame (ValueDecl cident exp) (ValueDecl cident_ exp_) = mappend (compare cident cident_) (compare exp exp_) compareSame (TypeDecl cident exp) (TypeDecl cident_ exp_) = mappend (compare cident cident_) (compare exp exp_)
compareSame (ConsDecl cident exp) (ConsDecl cident_ exp_) = mappend (compare cident cident_) (compare exp exp_) compareSame (ValueDecl cident exp) (ValueDecl cident_ exp_) = mappend (compare cident cident_) (compare exp exp_)
compareSame (PCons cident patterns) (PCons cident_ patterns_) = mappend (compare cident cident_) (compare patterns patterns_) compareSame (ConsDecl cident exp) (ConsDecl cident_ exp_) = mappend (compare cident cident_) (compare exp exp_)
compareSame (PVar patternvariable) (PVar patternvariable_) = compare patternvariable patternvariable_ compareSame (PCons cident patterns) (PCons cident_ patterns_) = mappend (compare cident cident_) (compare patterns patterns_)
compareSame (PRec fieldpatterns) (PRec fieldpatterns_) = compare fieldpatterns fieldpatterns_ compareSame (PVar patternvariable) (PVar patternvariable_) = compare patternvariable patternvariable_
compareSame (PStr str) (PStr str_) = compare str str_ compareSame (PRec fieldpatterns) (PRec fieldpatterns_) = compare fieldpatterns fieldpatterns_
compareSame (PInt n) (PInt n_) = compare n n_ compareSame (PStr str) (PStr str_) = compare str str_
compareSame (FieldPattern cident pattern) (FieldPattern cident_ pattern_) = mappend (compare cident cident_) (compare pattern pattern_) compareSame (PInt n) (PInt n_) = compare n n_
compareSame (PVVar cident) (PVVar cident_) = compare cident cident_ compareSame (FieldPattern cident pattern) (FieldPattern cident_ pattern_) = mappend (compare cident cident_) (compare pattern pattern_)
compareSame PVWild PVWild = EQ compareSame (PVVar cident) (PVVar cident_) = compare cident cident_
compareSame (ELet letdefs exp) (ELet letdefs_ exp_) = mappend (compare letdefs letdefs_) (compare exp exp_) compareSame PVWild PVWild = EQ
compareSame (ECase exp cases) (ECase exp_ cases_) = mappend (compare exp exp_) (compare cases cases_) compareSame (ELet letdefs exp) (ELet letdefs_ exp_) = mappend (compare letdefs letdefs_) (compare exp exp_)
compareSame (EAbs patternvariable exp) (EAbs patternvariable_ exp_) = mappend (compare patternvariable patternvariable_) (compare exp exp_) compareSame (ECase exp cases) (ECase exp_ cases_) = mappend (compare exp exp_) (compare cases cases_)
compareSame (EPi patternvariable exp0 exp1) (EPi patternvariable_ exp0_ exp1_) = mappend (compare patternvariable patternvariable_) (mappend (compare exp0 exp0_) (compare exp1 exp1_)) compareSame (EAbs patternvariable exp) (EAbs patternvariable_ exp_) = mappend (compare patternvariable patternvariable_) (compare exp exp_)
compareSame (EApp exp0 exp1) (EApp exp0_ exp1_) = mappend (compare exp0 exp0_) (compare exp1 exp1_) compareSame (EPi patternvariable exp0 exp1) (EPi patternvariable_ exp0_ exp1_) = mappend (compare patternvariable patternvariable_) (mappend (compare exp0 exp0_) (compare exp1 exp1_))
compareSame (EProj exp cident) (EProj exp_ cident_) = mappend (compare exp exp_) (compare cident cident_) compareSame (EApp exp0 exp1) (EApp exp0_ exp1_) = mappend (compare exp0 exp0_) (compare exp1 exp1_)
compareSame (ERecType fieldtypes) (ERecType fieldtypes_) = compare fieldtypes fieldtypes_ compareSame (EProj exp cident) (EProj exp_ cident_) = mappend (compare exp exp_) (compare cident cident_)
compareSame (ERec fieldvalues) (ERec fieldvalues_) = compare fieldvalues fieldvalues_ compareSame (ERecType fieldtypes) (ERecType fieldtypes_) = compare fieldtypes fieldtypes_
compareSame (EVar cident) (EVar cident_) = compare cident cident_ compareSame (ERec fieldvalues) (ERec fieldvalues_) = compare fieldvalues fieldvalues_
compareSame EType EType = EQ compareSame (EVar cident) (EVar cident_) = compare cident cident_
compareSame (EStr str) (EStr str_) = compare str str_ compareSame EType EType = EQ
compareSame (EInteger n) (EInteger n_) = compare n n_ compareSame (EStr str) (EStr str_) = compare str str_
compareSame (EDouble d) (EDouble d_) = compare d d_ compareSame (EInteger n) (EInteger n_) = compare n n_
compareSame (EMeta tmeta) (EMeta tmeta_) = compare tmeta tmeta_ compareSame (EDouble d) (EDouble d_) = compare d d_
compareSame (LetDef cident exp) (LetDef cident_ exp_) = mappend (compare cident cident_) (compare exp exp_) compareSame (EMeta tmeta) (EMeta tmeta_) = compare tmeta tmeta_
compareSame (Case pattern exp0 exp1) (Case pattern_ exp0_ exp1_) = mappend (compare pattern pattern_) (mappend (compare exp0 exp0_) (compare exp1 exp1_)) compareSame (LetDef cident exp) (LetDef cident_ exp_) = mappend (compare cident cident_) (compare exp exp_)
compareSame (FieldType cident exp) (FieldType cident_ exp_) = mappend (compare cident cident_) (compare exp exp_) compareSame (Case pattern exp0 exp1) (Case pattern_ exp0_ exp1_) = mappend (compare pattern pattern_) (mappend (compare exp0 exp0_) (compare exp1 exp1_))
compareSame (FieldValue cident exp) (FieldValue cident_ exp_) = mappend (compare cident cident_) (compare exp exp_) compareSame (FieldType cident exp) (FieldType cident_ exp_) = mappend (compare cident cident_) (compare exp exp_)
compareSame (TMeta str) (TMeta str_) = compare str str_ compareSame (FieldValue cident exp) (FieldValue cident_ exp_) = mappend (compare cident cident_) (compare exp exp_)
compareSame (CIdent str) (CIdent str_) = compare str str_ compareSame (TMeta str) (TMeta str_) = compare str str_
compareSame x y = error "BNFC error:" compareSame compareSame (CIdent str) (CIdent str_) = compare str str_
compareSame x y = error "BNFC error:" compareSame

13
src/Transfer/Core/Lex.hs
View File

@@ -1,8 +1,8 @@
{-# OPTIONS -fglasgow-exts -cpp #-} {-# OPTIONS -fglasgow-exts -cpp #-}
{-# LINE 3 "Transfer/Core/Lex.x" #-} {-# LINE 3 "Transfer/Core/Lex.x" #-}
{-# OPTIONS -fno-warn-incomplete-patterns #-}
module Transfer.Core.Lex where module Transfer.Core.Lex where
import Transfer.ErrM
#if __GLASGOW_HASKELL__ >= 603 #if __GLASGOW_HASKELL__ >= 603
@@ -161,18 +161,9 @@ alex_action_9 = tok (\p s -> PT p (TD $ share s))
-- ----------------------------------------------------------------------------- -- -----------------------------------------------------------------------------
-- INTERNALS and main scanner engine -- INTERNALS and main scanner engine
{-# LINE 35 "GenericTemplate.hs" #-} {-# LINE 35 "GenericTemplate.hs" #-}
{-# LINE 45 "GenericTemplate.hs" #-}
data AlexAddr = AlexA# Addr# data AlexAddr = AlexA# Addr#

2
src/Transfer/Core/Lex.x
View File

@@ -1,9 +1,9 @@
-- -*- haskell -*- -- -*- haskell -*-
-- This Alex file was machine-generated by the BNF converter -- This Alex file was machine-generated by the BNF converter
{ {
{-# OPTIONS -fno-warn-incomplete-patterns #-}
module Transfer.Core.Lex where module Transfer.Core.Lex where
import Transfer.ErrM
} }

22
src/Transfer/Core/Par.hs
View File

@@ -1,4 +1,5 @@
{-# OPTIONS -fglasgow-exts -cpp #-} {-# OPTIONS -fglasgow-exts -cpp #-}
{-# OPTIONS -fno-warn-incomplete-patterns -fno-warn-overlapping-patterns #-}
module Transfer.Core.Par where module Transfer.Core.Par where
import Transfer.Core.Abs import Transfer.Core.Abs
import Transfer.Core.Lex import Transfer.Core.Lex
@@ -903,7 +904,6 @@ myLexer = tokens
{-# LINE 1 "GenericTemplate.hs" #-} {-# LINE 1 "GenericTemplate.hs" #-}
-- $Id$ -- $Id$
{-# LINE 28 "GenericTemplate.hs" #-} {-# LINE 28 "GenericTemplate.hs" #-}
@@ -913,20 +913,11 @@ data Happy_IntList = HappyCons Int# Happy_IntList
{-# LINE 49 "GenericTemplate.hs" #-} {-# LINE 49 "GenericTemplate.hs" #-}
{-# LINE 59 "GenericTemplate.hs" #-} {-# LINE 59 "GenericTemplate.hs" #-}
{-# LINE 68 "GenericTemplate.hs" #-}
infixr 9 `HappyStk` infixr 9 `HappyStk`
data HappyStk a = HappyStk a (HappyStk a) data HappyStk a = HappyStk a (HappyStk a)
@@ -978,14 +969,7 @@ happyDoAction i tk st
action | check = indexShortOffAddr happyTable off_i action | check = indexShortOffAddr happyTable off_i
| otherwise = indexShortOffAddr happyDefActions st | otherwise = indexShortOffAddr happyDefActions st
{-# LINE 127 "GenericTemplate.hs" #-}
indexShortOffAddr (HappyA# arr) off = indexShortOffAddr (HappyA# arr) off =

1
src/Transfer/Core/Par.y
View File

@@ -1,5 +1,6 @@
-- This Happy file was machine-generated by the BNF converter -- This Happy file was machine-generated by the BNF converter
{ {
{-# OPTIONS -fno-warn-incomplete-patterns -fno-warn-overlapping-patterns #-}
module Transfer.Core.Par where module Transfer.Core.Par where
import Transfer.Core.Abs import Transfer.Core.Abs
import Transfer.Core.Lex import Transfer.Core.Lex

281
src/Transfer/Syntax/Abs.hs
View File

@@ -342,143 +342,144 @@ johnMajorEq _ _ = False
instance Ord (Tree c) where instance Ord (Tree c) where
compare x y = compare (index x) (index y) `mappend` compareSame x y compare x y = compare (index x) (index y) `mappend` compareSame x y
where index :: Tree c -> Int
index (Module _ _) = 0 index (Module _ _) = 0
index (Import _) = 1 index (Import _) = 1
index (DataDecl _ _ _) = 2 index (DataDecl _ _ _) = 2
index (TypeDecl _ _) = 3 index (TypeDecl _ _) = 3
index (ValueDecl _ _ _ _) = 4 index (ValueDecl _ _ _ _) = 4
index (DeriveDecl _ _) = 5 index (DeriveDecl _ _) = 5
index (ConsDecl _ _) = 6 index (ConsDecl _ _) = 6
index (GuardExp _) = 7 index (GuardExp _) = 7
index (GuardNo ) = 8 index (GuardNo ) = 8
index (POr _ _) = 9 index (POr _ _) = 9
index (PListCons _ _) = 10 index (PListCons _ _) = 10
index (PConsTop _ _ _) = 11 index (PConsTop _ _ _) = 11
index (PCons _ _) = 12 index (PCons _ _) = 12
index (PRec _) = 13 index (PRec _) = 13
index (PEmptyList ) = 14 index (PEmptyList ) = 14
index (PList _) = 15 index (PList _) = 15
index (PTuple _ _) = 16 index (PTuple _ _) = 16
index (PStr _) = 17 index (PStr _) = 17
index (PInt _) = 18 index (PInt _) = 18
index (PVar _) = 19 index (PVar _) = 19
index (PWild ) = 20 index (PWild ) = 20
index (CommaPattern _) = 21 index (CommaPattern _) = 21
index (FieldPattern _ _) = 22 index (FieldPattern _ _) = 22
index (EPi _ _ _) = 23 index (EPi _ _ _) = 23
index (EPiNoVar _ _) = 24 index (EPiNoVar _ _) = 24
index (EAbs _ _) = 25 index (EAbs _ _) = 25
index (ELet _ _) = 26 index (ELet _ _) = 26
index (ECase _ _) = 27 index (ECase _ _) = 27
index (EIf _ _ _) = 28 index (EIf _ _ _) = 28
index (EDo _ _) = 29 index (EDo _ _) = 29
index (EBind _ _) = 30 index (EBind _ _) = 30
index (EBindC _ _) = 31 index (EBindC _ _) = 31
index (EOr _ _) = 32 index (EOr _ _) = 32
index (EAnd _ _) = 33 index (EAnd _ _) = 33
index (EEq _ _) = 34 index (EEq _ _) = 34
index (ENe _ _) = 35 index (ENe _ _) = 35
index (ELt _ _) = 36 index (ELt _ _) = 36
index (ELe _ _) = 37 index (ELe _ _) = 37
index (EGt _ _) = 38 index (EGt _ _) = 38
index (EGe _ _) = 39 index (EGe _ _) = 39
index (EListCons _ _) = 40 index (EListCons _ _) = 40
index (EAdd _ _) = 41 index (EAdd _ _) = 41
index (ESub _ _) = 42 index (ESub _ _) = 42
index (EMul _ _) = 43 index (EMul _ _) = 43
index (EDiv _ _) = 44 index (EDiv _ _) = 44
index (EMod _ _) = 45 index (EMod _ _) = 45
index (ENeg _) = 46 index (ENeg _) = 46
index (EApp _ _) = 47 index (EApp _ _) = 47
index (EProj _ _) = 48 index (EProj _ _) = 48
index (ERecType _) = 49 index (ERecType _) = 49
index (ERec _) = 50 index (ERec _) = 50
index (EEmptyList ) = 51 index (EEmptyList ) = 51
index (EList _) = 52 index (EList _) = 52
index (ETuple _ _) = 53 index (ETuple _ _) = 53
index (EVar _) = 54 index (EVar _) = 54
index (EType ) = 55 index (EType ) = 55
index (EStr _) = 56 index (EStr _) = 56
index (EInteger _) = 57 index (EInteger _) = 57
index (EDouble _) = 58 index (EDouble _) = 58
index (EMeta ) = 59 index (EMeta ) = 59
index (VVar _) = 60 index (VVar _) = 60
index (VWild ) = 61 index (VWild ) = 61
index (LetDef _ _) = 62 index (LetDef _ _) = 62
index (Case _ _ _) = 63 index (Case _ _ _) = 63
index (BindVar _ _) = 64 index (BindVar _ _) = 64
index (BindNoVar _) = 65 index (BindNoVar _) = 65
index (FieldType _ _) = 66 index (FieldType _ _) = 66
index (FieldValue _ _) = 67 index (FieldValue _ _) = 67
index (Ident _) = 68 index (Ident _) = 68
compareSame (Module imports decls) (Module imports_ decls_) = mappend (compare imports imports_) (compare decls decls_) compareSame :: Tree c -> Tree c -> Ordering
compareSame (Import i) (Import i_) = compare i i_ compareSame (Module imports decls) (Module imports_ decls_) = mappend (compare imports imports_) (compare decls decls_)
compareSame (DataDecl i exp consdecls) (DataDecl i_ exp_ consdecls_) = mappend (compare i i_) (mappend (compare exp exp_) (compare consdecls consdecls_)) compareSame (Import i) (Import i_) = compare i i_
compareSame (TypeDecl i exp) (TypeDecl i_ exp_) = mappend (compare i i_) (compare exp exp_) compareSame (DataDecl i exp consdecls) (DataDecl i_ exp_ consdecls_) = mappend (compare i i_) (mappend (compare exp exp_) (compare consdecls consdecls_))
compareSame (ValueDecl i patterns guard exp) (ValueDecl i_ patterns_ guard_ exp_) = mappend (compare i i_) (mappend (compare patterns patterns_) (mappend (compare guard guard_) (compare exp exp_))) compareSame (TypeDecl i exp) (TypeDecl i_ exp_) = mappend (compare i i_) (compare exp exp_)
compareSame (DeriveDecl i0 i1) (DeriveDecl i0_ i1_) = mappend (compare i0 i0_) (compare i1 i1_) compareSame (ValueDecl i patterns guard exp) (ValueDecl i_ patterns_ guard_ exp_) = mappend (compare i i_) (mappend (compare patterns patterns_) (mappend (compare guard guard_) (compare exp exp_)))
compareSame (ConsDecl i exp) (ConsDecl i_ exp_) = mappend (compare i i_) (compare exp exp_) compareSame (DeriveDecl i0 i1) (DeriveDecl i0_ i1_) = mappend (compare i0 i0_) (compare i1 i1_)
compareSame (GuardExp exp) (GuardExp exp_) = compare exp exp_ compareSame (ConsDecl i exp) (ConsDecl i_ exp_) = mappend (compare i i_) (compare exp exp_)
compareSame GuardNo GuardNo = EQ compareSame (GuardExp exp) (GuardExp exp_) = compare exp exp_
compareSame (POr pattern0 pattern1) (POr pattern0_ pattern1_) = mappend (compare pattern0 pattern0_) (compare pattern1 pattern1_) compareSame GuardNo GuardNo = EQ
compareSame (PListCons pattern0 pattern1) (PListCons pattern0_ pattern1_) = mappend (compare pattern0 pattern0_) (compare pattern1 pattern1_) compareSame (POr pattern0 pattern1) (POr pattern0_ pattern1_) = mappend (compare pattern0 pattern0_) (compare pattern1 pattern1_)
compareSame (PConsTop i pattern patterns) (PConsTop i_ pattern_ patterns_) = mappend (compare i i_) (mappend (compare pattern pattern_) (compare patterns patterns_)) compareSame (PListCons pattern0 pattern1) (PListCons pattern0_ pattern1_) = mappend (compare pattern0 pattern0_) (compare pattern1 pattern1_)
compareSame (PCons i patterns) (PCons i_ patterns_) = mappend (compare i i_) (compare patterns patterns_) compareSame (PConsTop i pattern patterns) (PConsTop i_ pattern_ patterns_) = mappend (compare i i_) (mappend (compare pattern pattern_) (compare patterns patterns_))
compareSame (PRec fieldpatterns) (PRec fieldpatterns_) = compare fieldpatterns fieldpatterns_ compareSame (PCons i patterns) (PCons i_ patterns_) = mappend (compare i i_) (compare patterns patterns_)
compareSame PEmptyList PEmptyList = EQ compareSame (PRec fieldpatterns) (PRec fieldpatterns_) = compare fieldpatterns fieldpatterns_
compareSame (PList commapatterns) (PList commapatterns_) = compare commapatterns commapatterns_ compareSame PEmptyList PEmptyList = EQ
compareSame (PTuple commapattern commapatterns) (PTuple commapattern_ commapatterns_) = mappend (compare commapattern commapattern_) (compare commapatterns commapatterns_) compareSame (PList commapatterns) (PList commapatterns_) = compare commapatterns commapatterns_
compareSame (PStr str) (PStr str_) = compare str str_ compareSame (PTuple commapattern commapatterns) (PTuple commapattern_ commapatterns_) = mappend (compare commapattern commapattern_) (compare commapatterns commapatterns_)
compareSame (PInt n) (PInt n_) = compare n n_ compareSame (PStr str) (PStr str_) = compare str str_
compareSame (PVar i) (PVar i_) = compare i i_ compareSame (PInt n) (PInt n_) = compare n n_
compareSame PWild PWild = EQ compareSame (PVar i) (PVar i_) = compare i i_
compareSame (CommaPattern pattern) (CommaPattern pattern_) = compare pattern pattern_ compareSame PWild PWild = EQ
compareSame (FieldPattern i pattern) (FieldPattern i_ pattern_) = mappend (compare i i_) (compare pattern pattern_) compareSame (CommaPattern pattern) (CommaPattern pattern_) = compare pattern pattern_
compareSame (EPi varorwild exp0 exp1) (EPi varorwild_ exp0_ exp1_) = mappend (compare varorwild varorwild_) (mappend (compare exp0 exp0_) (compare exp1 exp1_)) compareSame (FieldPattern i pattern) (FieldPattern i_ pattern_) = mappend (compare i i_) (compare pattern pattern_)
compareSame (EPiNoVar exp0 exp1) (EPiNoVar exp0_ exp1_) = mappend (compare exp0 exp0_) (compare exp1 exp1_) compareSame (EPi varorwild exp0 exp1) (EPi varorwild_ exp0_ exp1_) = mappend (compare varorwild varorwild_) (mappend (compare exp0 exp0_) (compare exp1 exp1_))
compareSame (EAbs varorwild exp) (EAbs varorwild_ exp_) = mappend (compare varorwild varorwild_) (compare exp exp_) compareSame (EPiNoVar exp0 exp1) (EPiNoVar exp0_ exp1_) = mappend (compare exp0 exp0_) (compare exp1 exp1_)
compareSame (ELet letdefs exp) (ELet letdefs_ exp_) = mappend (compare letdefs letdefs_) (compare exp exp_) compareSame (EAbs varorwild exp) (EAbs varorwild_ exp_) = mappend (compare varorwild varorwild_) (compare exp exp_)
compareSame (ECase exp cases) (ECase exp_ cases_) = mappend (compare exp exp_) (compare cases cases_) compareSame (ELet letdefs exp) (ELet letdefs_ exp_) = mappend (compare letdefs letdefs_) (compare exp exp_)
compareSame (EIf exp0 exp1 exp2) (EIf exp0_ exp1_ exp2_) = mappend (compare exp0 exp0_) (mappend (compare exp1 exp1_) (compare exp2 exp2_)) compareSame (ECase exp cases) (ECase exp_ cases_) = mappend (compare exp exp_) (compare cases cases_)
compareSame (EDo binds exp) (EDo binds_ exp_) = mappend (compare binds binds_) (compare exp exp_) compareSame (EIf exp0 exp1 exp2) (EIf exp0_ exp1_ exp2_) = mappend (compare exp0 exp0_) (mappend (compare exp1 exp1_) (compare exp2 exp2_))
compareSame (EBind exp0 exp1) (EBind exp0_ exp1_) = mappend (compare exp0 exp0_) (compare exp1 exp1_) compareSame (EDo binds exp) (EDo binds_ exp_) = mappend (compare binds binds_) (compare exp exp_)
compareSame (EBindC exp0 exp1) (EBindC exp0_ exp1_) = mappend (compare exp0 exp0_) (compare exp1 exp1_) compareSame (EBind exp0 exp1) (EBind exp0_ exp1_) = mappend (compare exp0 exp0_) (compare exp1 exp1_)
compareSame (EOr exp0 exp1) (EOr exp0_ exp1_) = mappend (compare exp0 exp0_) (compare exp1 exp1_) compareSame (EBindC exp0 exp1) (EBindC exp0_ exp1_) = mappend (compare exp0 exp0_) (compare exp1 exp1_)
compareSame (EAnd exp0 exp1) (EAnd exp0_ exp1_) = mappend (compare exp0 exp0_) (compare exp1 exp1_) compareSame (EOr exp0 exp1) (EOr exp0_ exp1_) = mappend (compare exp0 exp0_) (compare exp1 exp1_)
compareSame (EEq exp0 exp1) (EEq exp0_ exp1_) = mappend (compare exp0 exp0_) (compare exp1 exp1_) compareSame (EAnd exp0 exp1) (EAnd exp0_ exp1_) = mappend (compare exp0 exp0_) (compare exp1 exp1_)
compareSame (ENe exp0 exp1) (ENe exp0_ exp1_) = mappend (compare exp0 exp0_) (compare exp1 exp1_) compareSame (EEq exp0 exp1) (EEq exp0_ exp1_) = mappend (compare exp0 exp0_) (compare exp1 exp1_)
compareSame (ELt exp0 exp1) (ELt exp0_ exp1_) = mappend (compare exp0 exp0_) (compare exp1 exp1_) compareSame (ENe exp0 exp1) (ENe exp0_ exp1_) = mappend (compare exp0 exp0_) (compare exp1 exp1_)
compareSame (ELe exp0 exp1) (ELe exp0_ exp1_) = mappend (compare exp0 exp0_) (compare exp1 exp1_) compareSame (ELt exp0 exp1) (ELt exp0_ exp1_) = mappend (compare exp0 exp0_) (compare exp1 exp1_)
compareSame (EGt exp0 exp1) (EGt exp0_ exp1_) = mappend (compare exp0 exp0_) (compare exp1 exp1_) compareSame (ELe exp0 exp1) (ELe exp0_ exp1_) = mappend (compare exp0 exp0_) (compare exp1 exp1_)
compareSame (EGe exp0 exp1) (EGe exp0_ exp1_) = mappend (compare exp0 exp0_) (compare exp1 exp1_) compareSame (EGt exp0 exp1) (EGt exp0_ exp1_) = mappend (compare exp0 exp0_) (compare exp1 exp1_)
compareSame (EListCons exp0 exp1) (EListCons exp0_ exp1_) = mappend (compare exp0 exp0_) (compare exp1 exp1_) compareSame (EGe exp0 exp1) (EGe exp0_ exp1_) = mappend (compare exp0 exp0_) (compare exp1 exp1_)
compareSame (EAdd exp0 exp1) (EAdd exp0_ exp1_) = mappend (compare exp0 exp0_) (compare exp1 exp1_) compareSame (EListCons exp0 exp1) (EListCons exp0_ exp1_) = mappend (compare exp0 exp0_) (compare exp1 exp1_)
compareSame (ESub exp0 exp1) (ESub exp0_ exp1_) = mappend (compare exp0 exp0_) (compare exp1 exp1_) compareSame (EAdd exp0 exp1) (EAdd exp0_ exp1_) = mappend (compare exp0 exp0_) (compare exp1 exp1_)
compareSame (EMul exp0 exp1) (EMul exp0_ exp1_) = mappend (compare exp0 exp0_) (compare exp1 exp1_) compareSame (ESub exp0 exp1) (ESub exp0_ exp1_) = mappend (compare exp0 exp0_) (compare exp1 exp1_)
compareSame (EDiv exp0 exp1) (EDiv exp0_ exp1_) = mappend (compare exp0 exp0_) (compare exp1 exp1_) compareSame (EMul exp0 exp1) (EMul exp0_ exp1_) = mappend (compare exp0 exp0_) (compare exp1 exp1_)
compareSame (EMod exp0 exp1) (EMod exp0_ exp1_) = mappend (compare exp0 exp0_) (compare exp1 exp1_) compareSame (EDiv exp0 exp1) (EDiv exp0_ exp1_) = mappend (compare exp0 exp0_) (compare exp1 exp1_)
compareSame (ENeg exp) (ENeg exp_) = compare exp exp_ compareSame (EMod exp0 exp1) (EMod exp0_ exp1_) = mappend (compare exp0 exp0_) (compare exp1 exp1_)
compareSame (EApp exp0 exp1) (EApp exp0_ exp1_) = mappend (compare exp0 exp0_) (compare exp1 exp1_) compareSame (ENeg exp) (ENeg exp_) = compare exp exp_
compareSame (EProj exp i) (EProj exp_ i_) = mappend (compare exp exp_) (compare i i_) compareSame (EApp exp0 exp1) (EApp exp0_ exp1_) = mappend (compare exp0 exp0_) (compare exp1 exp1_)
compareSame (ERecType fieldtypes) (ERecType fieldtypes_) = compare fieldtypes fieldtypes_ compareSame (EProj exp i) (EProj exp_ i_) = mappend (compare exp exp_) (compare i i_)
compareSame (ERec fieldvalues) (ERec fieldvalues_) = compare fieldvalues fieldvalues_ compareSame (ERecType fieldtypes) (ERecType fieldtypes_) = compare fieldtypes fieldtypes_
compareSame EEmptyList EEmptyList = EQ compareSame (ERec fieldvalues) (ERec fieldvalues_) = compare fieldvalues fieldvalues_
compareSame (EList exps) (EList exps_) = compare exps exps_ compareSame EEmptyList EEmptyList = EQ
compareSame (ETuple exp exps) (ETuple exp_ exps_) = mappend (compare exp exp_) (compare exps exps_) compareSame (EList exps) (EList exps_) = compare exps exps_
compareSame (EVar i) (EVar i_) = compare i i_ compareSame (ETuple exp exps) (ETuple exp_ exps_) = mappend (compare exp exp_) (compare exps exps_)
compareSame EType EType = EQ compareSame (EVar i) (EVar i_) = compare i i_
compareSame (EStr str) (EStr str_) = compare str str_ compareSame EType EType = EQ
compareSame (EInteger n) (EInteger n_) = compare n n_ compareSame (EStr str) (EStr str_) = compare str str_
compareSame (EDouble d) (EDouble d_) = compare d d_ compareSame (EInteger n) (EInteger n_) = compare n n_
compareSame EMeta EMeta = EQ compareSame (EDouble d) (EDouble d_) = compare d d_
compareSame (VVar i) (VVar i_) = compare i i_ compareSame EMeta EMeta = EQ
compareSame VWild VWild = EQ compareSame (VVar i) (VVar i_) = compare i i_
compareSame (LetDef i exp) (LetDef i_ exp_) = mappend (compare i i_) (compare exp exp_) compareSame VWild VWild = EQ
compareSame (Case pattern guard exp) (Case pattern_ guard_ exp_) = mappend (compare pattern pattern_) (mappend (compare guard guard_) (compare exp exp_)) compareSame (LetDef i exp) (LetDef i_ exp_) = mappend (compare i i_) (compare exp exp_)
compareSame (BindVar varorwild exp) (BindVar varorwild_ exp_) = mappend (compare varorwild varorwild_) (compare exp exp_) compareSame (Case pattern guard exp) (Case pattern_ guard_ exp_) = mappend (compare pattern pattern_) (mappend (compare guard guard_) (compare exp exp_))
compareSame (BindNoVar exp) (BindNoVar exp_) = compare exp exp_ compareSame (BindVar varorwild exp) (BindVar varorwild_ exp_) = mappend (compare varorwild varorwild_) (compare exp exp_)
compareSame (FieldType i exp) (FieldType i_ exp_) = mappend (compare i i_) (compare exp exp_) compareSame (BindNoVar exp) (BindNoVar exp_) = compare exp exp_
compareSame (FieldValue i exp) (FieldValue i_ exp_) = mappend (compare i i_) (compare exp exp_) compareSame (FieldType i exp) (FieldType i_ exp_) = mappend (compare i i_) (compare exp exp_)
compareSame (Ident str) (Ident str_) = compare str str_ compareSame (FieldValue i exp) (FieldValue i_ exp_) = mappend (compare i i_) (compare exp exp_)
compareSame x y = error "BNFC error:" compareSame compareSame (Ident str) (Ident str_) = compare str str_
compareSame x y = error "BNFC error:" compareSame

13
src/Transfer/Syntax/Lex.hs
View File

@@ -1,8 +1,8 @@
{-# OPTIONS -fglasgow-exts -cpp #-} {-# OPTIONS -fglasgow-exts -cpp #-}
{-# LINE 3 "Transfer/Syntax/Lex.x" #-} {-# LINE 3 "Transfer/Syntax/Lex.x" #-}
{-# OPTIONS -fno-warn-incomplete-patterns #-}
module Transfer.Syntax.Lex where module Transfer.Syntax.Lex where
import Transfer.ErrM
#if __GLASGOW_HASKELL__ >= 603 #if __GLASGOW_HASKELL__ >= 603
@@ -155,18 +155,9 @@ alex_action_7 = tok (\p s -> PT p (TD $ share s))
-- ----------------------------------------------------------------------------- -- -----------------------------------------------------------------------------
-- INTERNALS and main scanner engine -- INTERNALS and main scanner engine
{-# LINE 35 "GenericTemplate.hs" #-} {-# LINE 35 "GenericTemplate.hs" #-}
{-# LINE 45 "GenericTemplate.hs" #-}
data AlexAddr = AlexA# Addr# data AlexAddr = AlexA# Addr#

2
src/Transfer/Syntax/Lex.x
View File

@@ -1,9 +1,9 @@
-- -*- haskell -*- -- -*- haskell -*-
-- This Alex file was machine-generated by the BNF converter -- This Alex file was machine-generated by the BNF converter
{ {
{-# OPTIONS -fno-warn-incomplete-patterns #-}
module Transfer.Syntax.Lex where module Transfer.Syntax.Lex where
import Transfer.ErrM
} }

22
src/Transfer/Syntax/Par.hs
View File

@@ -1,4 +1,5 @@
{-# OPTIONS -fglasgow-exts -cpp #-} {-# OPTIONS -fglasgow-exts -cpp #-}
{-# OPTIONS -fno-warn-incomplete-patterns -fno-warn-overlapping-patterns #-}
module Transfer.Syntax.Par where module Transfer.Syntax.Par where
import Transfer.Syntax.Abs import Transfer.Syntax.Abs
import Transfer.Syntax.Lex import Transfer.Syntax.Lex
@@ -1576,7 +1577,6 @@ myLexer = tokens
{-# LINE 1 "GenericTemplate.hs" #-} {-# LINE 1 "GenericTemplate.hs" #-}
-- $Id$ -- $Id$
{-# LINE 28 "GenericTemplate.hs" #-} {-# LINE 28 "GenericTemplate.hs" #-}
@@ -1586,20 +1586,11 @@ data Happy_IntList = HappyCons Int# Happy_IntList
{-# LINE 49 "GenericTemplate.hs" #-} {-# LINE 49 "GenericTemplate.hs" #-}
{-# LINE 59 "GenericTemplate.hs" #-} {-# LINE 59 "GenericTemplate.hs" #-}
{-# LINE 68 "GenericTemplate.hs" #-}
infixr 9 `HappyStk` infixr 9 `HappyStk`
data HappyStk a = HappyStk a (HappyStk a) data HappyStk a = HappyStk a (HappyStk a)
@@ -1651,14 +1642,7 @@ happyDoAction i tk st
action | check = indexShortOffAddr happyTable off_i action | check = indexShortOffAddr happyTable off_i
| otherwise = indexShortOffAddr happyDefActions st | otherwise = indexShortOffAddr happyDefActions st
{-# LINE 127 "GenericTemplate.hs" #-}
indexShortOffAddr (HappyA# arr) off = indexShortOffAddr (HappyA# arr) off =

1
src/Transfer/Syntax/Par.y
View File

@@ -1,5 +1,6 @@
-- This Happy file was machine-generated by the BNF converter -- This Happy file was machine-generated by the BNF converter
{ {
{-# OPTIONS -fno-warn-incomplete-patterns -fno-warn-overlapping-patterns #-}
module Transfer.Syntax.Par where module Transfer.Syntax.Par where
import Transfer.Syntax.Abs import Transfer.Syntax.Abs
import Transfer.Syntax.Lex import Transfer.Syntax.Lex