summaryrefslogtreecommitdiff
path: root/src/GF/Canon
diff options
context:
space:
mode:
authoraarne <unknown>2004-09-14 17:05:46 +0000
committeraarne <unknown>2004-09-14 17:05:46 +0000
commitfe045070cf4333cee0e634db5c877493d1b16030 (patch)
tree285273eb564dbd3ad510a183a1c701ec02a1b57a /src/GF/Canon
parent35f884ddfd984edb7d580cd54c6f2f1ad9358a34 (diff)
gfcm header
Diffstat (limited to 'src/GF/Canon')
-rw-r--r--src/GF/Canon/AbsGFC.hs7
-rw-r--r--src/GF/Canon/GFC.cf3
-rw-r--r--src/GF/Canon/LexGFC.hs273
-rw-r--r--src/GF/Canon/MkGFC.hs7
-rw-r--r--src/GF/Canon/ParGFC.hs671
-rw-r--r--src/GF/Canon/PrintGFC.hs1
-rw-r--r--src/GF/Canon/SkelGFC.hs3
-rw-r--r--src/GF/Canon/TestGFC.hs20
8 files changed, 624 insertions, 361 deletions
diff --git a/src/GF/Canon/AbsGFC.hs b/src/GF/Canon/AbsGFC.hs
index a95dbce0f..da8ea3804 100644
--- a/src/GF/Canon/AbsGFC.hs
+++ b/src/GF/Canon/AbsGFC.hs
@@ -7,7 +7,8 @@ import Ident --H
-- newtype Ident = Ident String deriving (Eq,Ord,Show) --H
data Canon =
- Gr [Module]
+ MGr [Ident] Ident [Module]
+ | Gr [Module]
deriving (Eq,Ord,Show)
data Module =
@@ -27,8 +28,8 @@ data Extend =
deriving (Eq,Ord,Show)
data Open =
- NoOpens
- | Opens [Ident]
+ Opens [Ident]
+ | NoOpens
deriving (Eq,Ord,Show)
data Flag =
diff --git a/src/GF/Canon/GFC.cf b/src/GF/Canon/GFC.cf
index 4289b4c24..236bd72ca 100644
--- a/src/GF/Canon/GFC.cf
+++ b/src/GF/Canon/GFC.cf
@@ -4,7 +4,8 @@
entrypoints Canon ;
-Gr. Canon ::= [Module] ;
+MGr. Canon ::= "grammar" [Ident] "of" Ident ";" [Module] ;
+Gr. Canon ::= [Module] ;
Mod. Module ::= ModType "=" Extend Open "{" [Flag] [Def] "}" ;
diff --git a/src/GF/Canon/LexGFC.hs b/src/GF/Canon/LexGFC.hs
index a4b4de7d7..6bcd1aa36 100644
--- a/src/GF/Canon/LexGFC.hs
+++ b/src/GF/Canon/LexGFC.hs
@@ -1,17 +1,33 @@
-
+{-# OPTIONS -cpp #-}
+{-# LINE 3 "LexGFC.x" #-}
module LexGFC where
-import Alex
import ErrM
-pTSpec p = PT p . TS
+#if __GLASGOW_HASKELL__ >= 503
+import Data.Array
+import Data.Char (ord)
+import Data.Array.Base (unsafeAt)
+#else
+import Array
+import Char (ord)
+#endif
+alex_base :: Array Int Int
+alex_base = listArray (0,14) [1,57,66,0,9,29,11,32,154,362,0,277,485,211,51]
+
+alex_table :: Array Int Int
+alex_table = listArray (0,740) [0,-1,-1,-1,-1,-1,-1,-1,-1,-1,2,2,2,2,2,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,2,3,11,-1,3,-1,-1,-1,3,3,7,5,3,6,3,3,14,14,14,14,14,14,14,14,14,14,3,3,3,4,3,3,3,2,2,2,2,2,3,3,3,3,2,2,2,2,2,0,0,0,0,0,0,0,0,0,2,0,0,3,3,3,-1,3,-1,2,14,14,14,14,14,14,14,14,14,14,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,3,3,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,9,0,0,0,0,0,0,0,0,9,9,9,9,9,9,9,9,9,9,0,0,0,0,-1,0,0,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,12,0,0,-1,9,12,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,0,0,0,0,0,0,0,0,0,0,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,12,0,0,0,0,0,0,0,10,0,0,0,0,0,0,0,0,0,12,0,0,0,0,0,12,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,13,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,0,0,0,0,0,0,0,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,0,0,0,0,9,0,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,0,0,0,0,0,0,0,0,0,0,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,13,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,0,9,9,9,9,9,9,9,9,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]
-ident p = PT p . eitherResIdent TV
+alex_check :: Array Int Int
+alex_check = listArray (0,740) [-1,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,9,10,11,12,13,62,43,62,42,9,10,11,12,13,-1,-1,-1,-1,-1,-1,-1,-1,-1,32,-1,-1,91,92,93,94,95,96,32,48,49,50,51,52,53,54,55,56,57,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,123,124,125,126,127,128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143,144,145,146,147,148,149,150,151,152,153,154,155,156,157,158,159,160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175,176,177,178,179,180,181,182,183,184,185,186,187,188,189,190,191,39,-1,-1,-1,-1,-1,-1,-1,-1,48,49,50,51,52,53,54,55,56,57,-1,-1,-1,-1,215,-1,-1,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,34,-1,-1,247,95,39,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,10,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,92,-1,-1,-1,-1,-1,-1,-1,34,-1,-1,-1,-1,-1,-1,-1,-1,-1,110,-1,-1,-1,-1,-1,116,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207,208,209,210,211,212,213,214,92,216,217,218,219,220,221,222,223,224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239,240,241,242,243,244,245,246,39,248,249,250,251,252,253,254,255,48,49,50,51,52,53,54,55,56,57,-1,-1,-1,-1,-1,-1,-1,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,-1,-1,-1,-1,95,-1,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,10,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,34,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207,208,209,210,211,212,213,214,92,216,217,218,219,220,221,222,223,224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239,240,241,242,243,244,245,246,-1,248,249,250,251,252,253,254,255,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1]
-string p = PT p . TL . unescapeInitTail
+alex_deflt :: Array Int Int
+alex_deflt = listArray (0,14) [8,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,12,12,-1,-1]
-int p = PT p . TI
+alex_accept = listArray (0::Int,14) [[],[],[(AlexAccSkip)],[(AlexAcc (alex_action_1))],[(AlexAcc (alex_action_1))],[(AlexAcc (alex_action_1))],[],[],[(AlexAcc (alex_action_2))],[(AlexAcc (alex_action_2))],[(AlexAcc (alex_action_3))],[],[],[],[(AlexAcc (alex_action_4))]]
+{-# LINE 31 "LexGFC.x" #-}
+tok f p s = f p s
data Tok =
TS String -- reserved words
@@ -32,27 +48,21 @@ tokenPos (PT (Pn _ l _) _ :_) = "line " ++ show l
tokenPos (Err (Pn _ l _) :_) = "line " ++ show l
tokenPos _ = "end of file"
+posLineCol (Pn _ l c) = (l,c)
+mkPosToken t@(PT p _) = (posLineCol p, prToken t)
+
prToken t = case t of
PT _ (TS s) -> s
PT _ (TI s) -> s
PT _ (TV s) -> s
PT _ (TD s) -> s
PT _ (TC s) -> s
- _ -> show t
-tokens:: String -> [Token]
-tokens inp = scan tokens_scan inp
-
-tokens_scan:: Scan Token
-tokens_scan = load_scan (tokens_acts,stop_act) tokens_lx
- where
- stop_act p "" = []
- stop_act p inp = [Err p]
eitherResIdent :: (String -> Tok) -> String -> Tok
eitherResIdent tv s = if isResWord s then (TS s) else (tv s) where
isResWord s = isInTree s $
- B "lincat" (B "data" (B "abstract" (B "Type" (B "Str" N N) N) (B "concrete" (B "cat" N N) N)) (B "in" (B "fun" (B "flags" N N) N) (B "lin" N N))) (B "pre" (B "oper" (B "open" (B "of" N N) N) (B "param" N N)) (B "transfer" (B "table" (B "resource" N N) N) (B "variants" N N)))
+ B "lin" (B "data" (B "abstract" (B "Type" (B "Str" N N) N) (B "concrete" (B "cat" N N) N)) (B "grammar" (B "fun" (B "flags" N N) N) (B "in" N N))) (B "pre" (B "open" (B "of" (B "lincat" N N) N) (B "param" (B "oper" N N) N)) (B "transfer" (B "table" (B "resource" N N) N) (B "variants" N N)))
data BTree = N | B String BTree BTree deriving (Show)
@@ -74,32 +84,207 @@ unescapeInitTail = unesc . tail where
c:cs -> c : unesc cs
_ -> []
-tokens_acts = [("ident",ident),("int",int),("pTSpec",pTSpec),("string",string)]
-
-tokens_lx :: [(Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)]))]
-tokens_lx = [lx__0_0,lx__1_0,lx__2_0,lx__3_0,lx__4_0,lx__5_0,lx__6_0,lx__7_0,lx__8_0,lx__9_0,lx__10_0,lx__11_0]
-lx__0_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)]))
-lx__0_0 = (False,[],-1,(('\t','\255'),[('\t',1),('\n',1),('\v',1),('\f',1),('\r',1),(' ',1),('!',6),('"',8),('$',6),('(',6),(')',6),('*',3),('+',5),(',',6),('-',2),('.',6),('/',6),('0',11),('1',11),('2',11),('3',11),('4',11),('5',11),('6',11),('7',11),('8',11),('9',11),(':',6),(';',6),('<',6),('=',4),('>',6),('?',6),('@',6),('A',7),('B',7),('C',7),('D',7),('E',7),('F',7),('G',7),('H',7),('I',7),('J',7),('K',7),('L',7),('M',7),('N',7),('O',7),('P',7),('Q',7),('R',7),('S',7),('T',7),('U',7),('V',7),('W',7),('X',7),('Y',7),('Z',7),('[',6),('\\',6),(']',6),('_',6),('a',7),('b',7),('c',7),('d',7),('e',7),('f',7),('g',7),('h',7),('i',7),('j',7),('k',7),('l',7),('m',7),('n',7),('o',7),('p',7),('q',7),('r',7),('s',7),('t',7),('u',7),('v',7),('w',7),('x',7),('y',7),('z',7),('{',6),('|',6),('}',6),('\192',7),('\193',7),('\194',7),('\195',7),('\196',7),('\197',7),('\198',7),('\199',7),('\200',7),('\201',7),('\202',7),('\203',7),('\204',7),('\205',7),('\206',7),('\207',7),('\208',7),('\209',7),('\210',7),('\211',7),('\212',7),('\213',7),('\214',7),('\216',7),('\217',7),('\218',7),('\219',7),('\220',7),('\221',7),('\222',7),('\223',7),('\224',7),('\225',7),('\226',7),('\227',7),('\228',7),('\229',7),('\230',7),('\231',7),('\232',7),('\233',7),('\234',7),('\235',7),('\236',7),('\237',7),('\238',7),('\239',7),('\240',7),('\241',7),('\242',7),('\243',7),('\244',7),('\245',7),('\246',7),('\248',7),('\249',7),('\250',7),('\251',7),('\252',7),('\253',7),('\254',7),('\255',7)]))
-lx__1_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)]))
-lx__1_0 = (True,[(0,"",[],Nothing,Nothing)],-1,(('\t',' '),[('\t',1),('\n',1),('\v',1),('\f',1),('\r',1),(' ',1)]))
-lx__2_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)]))
-lx__2_0 = (False,[],-1,(('>','>'),[('>',6)]))
-lx__3_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)]))
-lx__3_0 = (False,[],-1,(('*','*'),[('*',6)]))
-lx__4_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)]))
-lx__4_0 = (True,[(1,"pTSpec",[],Nothing,Nothing)],-1,(('>','>'),[('>',6)]))
-lx__5_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)]))
-lx__5_0 = (True,[(1,"pTSpec",[],Nothing,Nothing)],-1,(('+','+'),[('+',6)]))
-lx__6_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)]))
-lx__6_0 = (True,[(1,"pTSpec",[],Nothing,Nothing)],-1,(('0','0'),[]))
-lx__7_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)]))
-lx__7_0 = (True,[(2,"ident",[],Nothing,Nothing)],-1,(('\'','\255'),[('\'',7),('0',7),('1',7),('2',7),('3',7),('4',7),('5',7),('6',7),('7',7),('8',7),('9',7),('A',7),('B',7),('C',7),('D',7),('E',7),('F',7),('G',7),('H',7),('I',7),('J',7),('K',7),('L',7),('M',7),('N',7),('O',7),('P',7),('Q',7),('R',7),('S',7),('T',7),('U',7),('V',7),('W',7),('X',7),('Y',7),('Z',7),('_',7),('a',7),('b',7),('c',7),('d',7),('e',7),('f',7),('g',7),('h',7),('i',7),('j',7),('k',7),('l',7),('m',7),('n',7),('o',7),('p',7),('q',7),('r',7),('s',7),('t',7),('u',7),('v',7),('w',7),('x',7),('y',7),('z',7),('\192',7),('\193',7),('\194',7),('\195',7),('\196',7),('\197',7),('\198',7),('\199',7),('\200',7),('\201',7),('\202',7),('\203',7),('\204',7),('\205',7),('\206',7),('\207',7),('\208',7),('\209',7),('\210',7),('\211',7),('\212',7),('\213',7),('\214',7),('\216',7),('\217',7),('\218',7),('\219',7),('\220',7),('\221',7),('\222',7),('\223',7),('\224',7),('\225',7),('\226',7),('\227',7),('\228',7),('\229',7),('\230',7),('\231',7),('\232',7),('\233',7),('\234',7),('\235',7),('\236',7),('\237',7),('\238',7),('\239',7),('\240',7),('\241',7),('\242',7),('\243',7),('\244',7),('\245',7),('\246',7),('\248',7),('\249',7),('\250',7),('\251',7),('\252',7),('\253',7),('\254',7),('\255',7)]))
-lx__8_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)]))
-lx__8_0 = (False,[],8,(('\n','\\'),[('\n',-1),('"',10),('\\',9)]))
-lx__9_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)]))
-lx__9_0 = (False,[],-1,(('"','t'),[('"',8),('\'',8),('\\',8),('n',8),('t',8)]))
-lx__10_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)]))
-lx__10_0 = (True,[(3,"string",[],Nothing,Nothing)],-1,(('0','0'),[]))
-lx__11_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)]))
-lx__11_0 = (True,[(4,"int",[],Nothing,Nothing)],-1,(('0','9'),[('0',11),('1',11),('2',11),('3',11),('4',11),('5',11),('6',11),('7',11),('8',11),('9',11)]))
+-------------------------------------------------------------------
+-- Alex wrapper code.
+-- A modified "posn" wrapper.
+-------------------------------------------------------------------
+
+data Posn = Pn !Int !Int !Int
+ deriving (Eq, Show)
+
+alexStartPos :: Posn
+alexStartPos = Pn 0 1 1
+
+alexMove :: Posn -> Char -> Posn
+alexMove (Pn a l c) '\t' = Pn (a+1) l (((c+7) `div` 8)*8+1)
+alexMove (Pn a l c) '\n' = Pn (a+1) (l+1) 1
+alexMove (Pn a l c) _ = Pn (a+1) l (c+1)
+
+type AlexInput = (Posn, -- current position,
+ Char, -- previous char
+ String) -- current input string
+
+tokens :: String -> [Token]
+tokens str = go (alexStartPos, '\n', str)
+ where
+ go :: (Posn, Char, String) -> [Token]
+ go inp@(pos, _, str) =
+ case alexScan inp 0 of
+ AlexEOF -> []
+ AlexError (pos, _, _) -> fail $ show pos ++ ": lexical error"
+ AlexSkip inp' len -> go inp'
+ AlexToken inp' len act -> act pos (take len str) : (go inp')
+
+alexGetChar :: AlexInput -> Maybe (Char,AlexInput)
+alexGetChar (p, c, []) = Nothing
+alexGetChar (p, _, (c:s)) =
+ let p' = alexMove p c
+ in p' `seq` Just (c, (p', c, s))
+
+alexInputPrevChar :: AlexInput -> Char
+alexInputPrevChar (p, c, s) = c
+
+alex_action_1 = tok (\p s -> PT p (TS s))
+alex_action_2 = tok (\p s -> PT p (eitherResIdent TV s))
+alex_action_3 = tok (\p s -> PT p (TL $ unescapeInitTail s))
+alex_action_4 = tok (\p s -> PT p (TI s))
+{-# LINE 1 "GenericTemplate.hs" #-}
+-- -----------------------------------------------------------------------------
+-- ALEX TEMPLATE
+--
+-- This code is in the PUBLIC DOMAIN; you may copy it freely and use
+-- it for any purpose whatsoever.
+
+-- -----------------------------------------------------------------------------
+-- INTERNALS and main scanner engine
+
+{-# LINE 22 "GenericTemplate.hs" #-}
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+{-# LINE 66 "GenericTemplate.hs" #-}
+
+alexIndexShortOffAddr arr off = arr ! off
+
+
+-- -----------------------------------------------------------------------------
+-- Main lexing routines
+
+data AlexReturn a
+ = AlexEOF
+ | AlexError !AlexInput
+ | AlexSkip !AlexInput !Int
+ | AlexToken !AlexInput !Int a
+
+-- alexScan :: AlexInput -> StartCode -> Maybe (AlexInput,Int,act)
+alexScan input (sc)
+ = alexScanUser undefined input (sc)
+
+alexScanUser user input (sc)
+ = case alex_scan_tkn user input (0) input sc AlexNone of
+ (AlexNone, input') ->
+ case alexGetChar input of
+ Nothing ->
+
+
+
+ AlexEOF
+ Just _ ->
+
+
+
+ AlexError input
+
+ (AlexLastSkip input len, _) ->
+
+
+
+ AlexSkip input len
+
+ (AlexLastAcc k input len, _) ->
+
+
+
+ AlexToken input len k
+
+
+-- Push the input through the DFA, remembering the most recent accepting
+-- state it encountered.
+
+alex_scan_tkn user orig_input len input s last_acc =
+ input `seq` -- strict in the input
+ case s of
+ (-1) -> (last_acc, input)
+ _ -> alex_scan_tkn' user orig_input len input s last_acc
+
+alex_scan_tkn' user orig_input len input s last_acc =
+ let
+ new_acc = check_accs (alex_accept `unsafeAt` (s))
+ in
+ new_acc `seq`
+ case alexGetChar input of
+ Nothing -> (new_acc, input)
+ Just (c, new_input) ->
+
+
+
+ let
+ base = alexIndexShortOffAddr alex_base s
+ (ord_c) = ord c
+ offset = (base + ord_c)
+ check = alexIndexShortOffAddr alex_check offset
+
+ new_s = if (offset >= (0)) && (check == ord_c)
+ then alexIndexShortOffAddr alex_table offset
+ else alexIndexShortOffAddr alex_deflt s
+ in
+ alex_scan_tkn user orig_input (len + (1)) new_input new_s new_acc
+
+ where
+ check_accs [] = last_acc
+ check_accs (AlexAcc a : _) = AlexLastAcc a input (len)
+ check_accs (AlexAccSkip : _) = AlexLastSkip input (len)
+ check_accs (AlexAccPred a pred : rest)
+ | pred user orig_input (len) input
+ = AlexLastAcc a input (len)
+ check_accs (AlexAccSkipPred pred : rest)
+ | pred user orig_input (len) input
+ = AlexLastSkip input (len)
+ check_accs (_ : rest) = check_accs rest
+
+data AlexLastAcc a
+ = AlexNone
+ | AlexLastAcc a !AlexInput !Int
+ | AlexLastSkip !AlexInput !Int
+
+data AlexAcc a user
+ = AlexAcc a
+ | AlexAccSkip
+ | AlexAccPred a (AlexAccPred user)
+ | AlexAccSkipPred (AlexAccPred user)
+
+type AlexAccPred user = user -> AlexInput -> Int -> AlexInput -> Bool
+
+-- -----------------------------------------------------------------------------
+-- Predicates on a rule
+
+alexAndPred p1 p2 user in1 len in2
+ = p1 user in1 len in2 && p2 user in1 len in2
+
+--alexPrevCharIsPred :: Char -> AlexAccPred _
+alexPrevCharIs c _ input _ _ = c == alexInputPrevChar input
+
+--alexPrevCharIsOneOfPred :: Array Char Bool -> AlexAccPred _
+alexPrevCharIsOneOf arr _ input _ _ = arr ! alexInputPrevChar input
+
+--alexRightContext :: Int -> AlexAccPred _
+alexRightContext (sc) user _ _ input =
+ case alex_scan_tkn user input (0) input sc AlexNone of
+ (AlexNone, _) -> False
+ _ -> True
+ -- TODO: there's no need to find the longest
+ -- match when checking the right context, just
+ -- the first match will do.
+-- used by wrappers
+iUnbox (i) = i
diff --git a/src/GF/Canon/MkGFC.hs b/src/GF/Canon/MkGFC.hs
index 8f1e46b21..9d2fad49b 100644
--- a/src/GF/Canon/MkGFC.hs
+++ b/src/GF/Canon/MkGFC.hs
@@ -15,7 +15,14 @@ prCanonModInfo = prt . info2mod
prCanon :: CanonGrammar -> String
prCanon = unlines . map prCanonModInfo . M.modules
+prCanonMGr :: CanonGrammar -> String
+prCanonMGr g = header ++++ prCanon g where
+ header = case M.greatestAbstract g of
+ Just a -> prt (MGr (M.allConcretes g a) a [])
+ _ -> []
+
canon2grammar :: Canon -> CanonGrammar
+canon2grammar (MGr _ _ modules) = canon2grammar (Gr modules) ---- ignoring the header
canon2grammar (Gr modules) = M.MGrammar $ map mod2info modules where
mod2info m = case m of
Mod mt e os flags defs ->
diff --git a/src/GF/Canon/ParGFC.hs b/src/GF/Canon/ParGFC.hs
index f6ccdb676..d207eafdb 100644
--- a/src/GF/Canon/ParGFC.hs
+++ b/src/GF/Canon/ParGFC.hs
@@ -1,15 +1,19 @@
{-# OPTIONS -fglasgow-exts -cpp #-}
--- parser produced by Happy Version 1.11
+-- parser produced by Happy Version 1.13
module ParGFC where
import AbsGFC
import LexGFC
-import Ident --H
import ErrM
-import GlaExts
+import Ident --H
import Array
+#if __GLASGOW_HASKELL__ >= 503
+import GHC.Exts
+#else
+import GlaExts
+#endif
-data HappyAbsSyn t4 t5 t6 = HappyAbsSyn
+newtype HappyAbsSyn t4 t5 t6 = HappyAbsSyn (() -> ())
happyIn4 :: t4 -> (HappyAbsSyn t4 t5 t6)
happyIn4 x = unsafeCoerce# x
{-# INLINE happyIn4 #-}
@@ -335,22 +339,22 @@ happyOutTok :: (HappyAbsSyn t4 t5 t6) -> Token
happyOutTok x = unsafeCoerce# x
{-# INLINE happyOutTok #-}
-happyActOffsets :: Addr
-happyActOffsets = A# "\x00\x00\x01\x02\x00\x00\xff\x01\x18\x01\x00\x00\x1e\x02\xfe\x01\xfe\x01\xfe\x01\xfe\x01\x0f\x02\x00\x00\xfd\x01\x00\x00\xfc\x01\x1b\x02\xfb\x01\xf1\x01\xf1\x01\x19\x02\x00\x00\x1a\x02\xee\x01\x00\x00\x00\x02\xf6\x01\x00\x00\xe9\x01\x00\x00\xfa\x01\x00\x00\xe8\x01\x00\x00\x0d\x02\x6d\x00\xe6\x01\x11\x02\xf4\x01\x08\x02\x00\x00\xe1\x01\xe1\x01\xe1\x01\xe1\x01\xe1\x01\xe1\x01\xe1\x01\x00\x00\x0e\x02\x0c\x02\x0a\x02\x09\x02\x05\x02\x04\x02\xf9\x01\x00\x00\xe4\x01\x00\x00\xdc\x01\x00\x00\xdc\x01\xdc\x01\x0d\x00\xdc\x01\x5f\x00\x5f\x00\xdc\x01\x0d\x00\xf8\x01\x00\x00\x00\x00\x00\x00\x8c\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xd2\x01\x0d\x00\xd2\x01\xd2\x01\xce\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xe0\x01\x00\x00\x00\x00\xf7\x01\x51\x00\x5f\x00\x00\x00\xf3\x01\xf2\x01\xf0\x01\xec\x01\xdf\x01\xdd\x01\x00\x00\xb6\x01\xe3\x01\x0d\x00\x0d\x00\xd9\x01\x14\x00\xcf\x01\x00\x00\xd8\x01\xda\x01\xd1\x01\xa4\x01\x14\x00\xb0\x01\x5f\x00\x00\x00\x00\x00\xc3\x01\xdd\x00\xc5\x01\xcc\x01\xcd\x01\x00\x00\x0d\x00\x9e\x01\x00\x00\xba\x01\x73\x00\x00\x00\x0d\x00\x00\x00\x0d\x00\x00\x00\x00\x00\x00\x00\xfc\xff\x00\x00\x00\x00\xc1\x01\xbb\x01\xad\x01\x00\x00\x00\x00\x51\x00\x3f\x00\x14\x00\x92\x01\x92\x01\x5f\x00\xbe\x01\x00\x00\x00\x00\x5f\x00\x51\x00\x5f\x00\xa4\x00\x90\x01\x00\x00\x00\x00\x00\x00\x00\x00\x90\x01\xf1\x00\xa3\x01\xb9\x01\x14\x00\x14\x00\xae\x01\x00\x00\x00\x00\x00\x00\xb8\x01\x00\x00\x00\x00\xc7\x00\x00\x00\x00\x00\xa8\x01\xaf\x01\xac\x01\x4e\x00\x51\x00\x7d\x01\x7d\x01\xa0\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0d\x00\x7c\x01\x00\x00\x00\x00\x00\x00\x00\x00\xa7\x01\x91\x01\x00\x00\x00\x00\x00\x00\x00\x00\x14\x00\x51\x00\x09\x00\x00\x00\x47\x00\xa6\x01\x43\x00\x00\x00\x8b\x01\x88\x01\x14\x00\x6d\x01\x00\x00\x00\x00\x84\x00\x00\x00\x00\x00\x95\x01\x97\x01\x57\x00\x00\x00\x00\x00\x6f\x00\x00\x00\x86\x01\x68\x01\x0d\x00\x99\x00\x00\x00\x00\x00\x00\x00\x83\x01\x1d\x00\x94\x01\x00\x00\x00\x00\x51\x00\x67\x01\x00\x00\x14\x00\x00\x00\x8a\x01\x14\x00\x76\x01\x00\x00\x76\x01\x00\x00\x89\x01\x80\x01\x85\x01\x7f\x01\x00\x00\xf2\xff\x00\x00\x55\x01\x00\x00\x00\x00\x51\x00\x0c\x00\x22\x00\x00\x00\x00\x00\x00\x00\x00\x00"#
+happyActOffsets :: HappyAddr
+happyActOffsets = HappyA# "\x07\x02\x03\x02\x00\x00\x02\x02\x2d\x01\xfe\x01\x11\x02\x01\x02\x00\x00\x24\x02\xf9\x01\xf9\x01\xf9\x01\xf9\x01\x1f\x02\x00\x00\x00\x02\x00\x00\xf3\x01\xf3\x01\xf3\x01\x00\x00\x21\x02\x15\x02\xfd\x01\xf1\x01\xf1\x01\x1a\x02\x00\x00\x16\x02\xee\x01\x00\x00\x00\x00\x2d\x01\xfb\x01\x00\x00\xed\x01\x00\x00\xfa\x01\x00\x00\x17\x02\x67\x00\xea\x01\x14\x02\xf7\x01\x13\x02\x00\x00\xe5\x01\xe5\x01\xe5\x01\xe5\x01\xe5\x01\xe5\x01\xe5\x01\x00\x00\x10\x02\x0f\x02\x0b\x02\x0d\x02\x09\x02\x05\x02\xff\x01\x00\x00\xe4\x01\x00\x00\xcf\x01\x00\x00\xcf\x01\xcf\x01\x0a\x00\xcf\x01\x58\x00\x58\x00\xcf\x01\x0a\x00\xe0\x01\x00\x00\x00\x00\x00\x00\x98\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xcb\x01\x0a\x00\xcb\x01\xcb\x01\xd4\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xe7\x01\x00\x00\x00\x00\xf8\x01\x3d\x00\x58\x00\x00\x00\xf6\x01\xf5\x01\xec\x01\xe8\x01\xe3\x01\xe9\x01\x00\x00\xb9\x01\xe6\x01\x0a\x00\x0a\x00\xdc\x01\x12\x00\xd2\x01\x00\x00\xd9\x01\xd7\x01\xd5\x01\xa9\x01\x12\x00\xa7\x01\x58\x00\x00\x00\x00\x00\xc8\x01\x10\x01\xc9\x01\xcd\x01\xc5\x01\x00\x00\x0a\x00\xa4\x01\x00\x00\xc7\x01\x6e\x00\x00\x00\x0a\x00\x00\x00\x0a\x00\x00\x00\x00\x00\x00\x00\xa7\x00\x00\x00\x00\x00\xbc\x01\xb6\x01\xb1\x01\x00\x00\x00\x00\x3d\x00\x1c\x00\x12\x00\x95\x01\x95\x01\x58\x00\xb5\x01\x00\x00\x00\x00\x58\x00\x3d\x00\x58\x00\xb2\x00\x94\x01\x00\x00\x00\x00\x00\x00\x00\x00\x94\x01\x26\x01\xa8\x01\xbb\x01\x12\x00\x12\x00\xaa\x01\x00\x00\x00\x00\x00\x00\xb3\x01\x00\x00\x00\x00\xaf\x00\x00\x00\x00\x00\xb4\x01\xb2\x01\xaf\x01\x51\x00\x3d\x00\x74\x01\x74\x01\xa3\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0a\x00\x82\x01\x00\x00\x00\x00\x00\x00\x00\x00\x9d\x01\x98\x01\x00\x00\x00\x00\x00\x00\x00\x00\x12\x00\x3d\x00\x0c\x00\x00\x00\x47\x00\x9e\x01\x41\x00\x00\x00\x91\x01\x8f\x01\x12\x00\x71\x01\x00\x00\x00\x00\x60\x00\x00\x00\x00\x00\x9f\x01\x99\x01\x57\x00\x00\x00\x00\x00\x7e\x00\x00\x00\x89\x01\x62\x01\x0a\x00\x9f\x00\x00\x00\x00\x00\x00\x00\x92\x01\x70\x00\x8e\x01\x00\x00\x00\x00\x3d\x00\x60\x01\x00\x00\x12\x00\x00\x00\x8d\x01\x12\x00\x7a\x01\x00\x00\x7a\x01\x00\x00\x8c\x01\x8b\x01\x87\x01\x78\x01\x00\x00\x68\x00\x00\x00\x51\x01\x00\x00\x00\x00\x3d\x00\x5b\x00\x21\x00\x00\x00\x00\x00\x00\x00\x00\x00"#
-happyGotoOffsets :: Addr
-happyGotoOffsets = A# "\x6e\x00\x00\x00\x00\x00\x00\x00\xe6\x00\x00\x00\x00\x00\x84\x01\x7b\x01\x7a\x01\x77\x01\x00\x00\x00\x00\x00\x00\x00\x00\xd6\x00\x00\x00\x6e\x01\x75\x01\x73\x01\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00\x00\x4c\x01\x64\x01\x00\x00\xfa\xff\x00\x00\x01\x00\x00\x00\x00\x00\xdf\x00\x61\x01\x00\x00\x47\x01\x00\x00\x00\x00\x50\x01\x49\x01\x42\x01\x3d\x01\x3c\x01\x31\x01\x25\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x1c\x01\x00\x00\x14\x01\x22\x01\xed\x01\xd3\x00\x3b\x01\x2b\x01\x5c\x00\xdb\x01\x00\x00\x00\x00\x00\x00\x00\x00\xf5\x01\x00\x00\x00\x00\x00\x00\x00\x00\xfd\x00\x12\x01\xc9\x01\xb4\x00\x0e\x01\x0f\x01\x00\x00\x00\x00\x00\x00\x00\x00\xe2\x00\x00\x00\x00\x00\x00\x00\x00\x00\x4c\x00\x02\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x1a\x01\x00\x00\xb7\x01\xa5\x01\x00\x00\x0c\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x01\x03\x01\x0a\x00\xd9\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf7\xff\x00\x00\x93\x01\x05\x01\x00\x00\x00\x00\xaf\x00\x00\x00\x81\x01\x00\x00\x6f\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x75\x00\x00\x00\xfa\x00\xab\x00\xfc\x00\xd8\x00\x00\x00\x00\x00\x00\x00\xbe\x00\x12\x00\xa1\x00\x00\x00\x60\x00\x00\x00\x00\x00\xcf\x00\x00\x00\x7c\x00\x00\x00\x00\x00\x00\x00\xe3\x00\x23\x01\x00\x00\x00\x00\x00\x00\xc4\x00\x00\x00\x00\x00\xb3\x00\x00\x00\x00\x00\x90\x00\x00\x00\x00\x00\x00\x00\x33\x01\x04\x00\xc1\x00\xb5\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x5d\x01\x7b\x00\x00\x00\x00\x00\xa0\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xda\x00\x68\x00\x8f\x00\x00\x00\x2c\x01\x35\x01\x2c\x01\x00\x00\x00\x00\x00\x00\xd1\x00\x41\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x4b\x00\x00\x00\x00\x00\x48\x01\x00\x00\x00\x00\x80\x00\x4b\x01\xaf\x00\x00\x00\x00\x00\x00\x00\x00\x00\x5a\x00\x00\x00\x00\x00\x00\x00\x06\x00\x10\x00\x00\x00\xb2\x00\x00\x00\x32\x01\xa9\x00\x00\x00\x00\x00\x00\x00\xde\xff\x00\x00\x00\x00\x00\x00\x00\x00\xdd\xff\x36\x01\x00\x00\x30\x00\x00\x00\x00\x00\x05\x00\x48\x00\x3a\x00\x00\x00\x00\x00\x00\x00\x00\x00"#
+happyGotoOffsets :: HappyAddr
+happyGotoOffsets = HappyA# "\x59\x00\x00\x00\x00\x00\x00\x00\xd6\x00\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x01\x7f\x01\x7e\x01\x7d\x01\x00\x00\x00\x00\x00\x00\x00\x00\x11\x01\x7c\x01\x02\x00\x00\x00\x00\x00\x00\x00\x72\x01\x79\x01\x70\x01\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00\x69\x01\xd6\x00\x00\x00\x48\x01\x6d\x01\x00\x00\x17\x00\x00\x00\x00\x00\x84\x00\x6a\x01\x00\x00\x5c\x01\x00\x00\x00\x00\x67\x01\x5e\x01\x5a\x01\x57\x01\x50\x01\x4f\x01\x44\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x43\x01\x00\x00\x42\x01\x21\x01\xf4\x01\x3c\x01\x32\x01\x09\x01\x40\x00\xe2\x01\x00\x00\x00\x00\x00\x00\x00\x00\xfc\x01\x00\x00\x00\x00\x00\x00\x00\x00\x2b\x01\x38\x01\xd0\x01\x0c\x01\x2c\x01\x27\x01\x00\x00\x00\x00\x00\x00\x00\x00\xfa\x00\x00\x00\x00\x00\x00\x00\x00\x00\x4c\x00\xe0\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xa3\x00\x00\x00\xbe\x01\xac\x01\x00\x00\x13\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x18\x01\x0a\x01\x08\x00\xdf\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf7\xff\x00\x00\x9a\x01\x12\x01\x00\x00\x00\x00\xe7\x00\x00\x00\x88\x01\x00\x00\x76\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x83\x00\x00\x00\x01\x01\x03\x01\x00\x01\xc5\x00\x00\x00\x00\x00\x00\x00\xa8\x00\x05\x00\x7d\x00\x00\x00\x6f\x00\x00\x00\x00\x00\xe5\x00\x00\x00\xe4\x00\x00\x00\x00\x00\x00\x00\xea\x00\x2a\x01\x00\x00\x00\x00\x00\x00\xc3\x00\x00\x00\x00\x00\xb7\x00\x00\x00\x00\x00\xbf\x00\x00\x00\x00\x00\x00\x00\x3a\x01\x11\x00\xdb\x00\xc0\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x64\x01\xe3\x00\x00\x00\x00\x00\xab\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xe1\x00\x7b\x00\x9b\x00\x00\x00\x33\x01\xea\xff\x33\x01\x00\x00\x00\x00\x00\x00\xd8\x00\x6c\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x31\x00\x00\x00\x00\x00\x3b\x01\x00\x00\x00\x00\x91\x00\x52\x01\xe7\x00\x00\x00\x00\x00\x00\x00\x00\x00\x75\x00\x00\x00\x00\x00\x00\x00\x07\x00\xb6\x00\x00\x00\xb9\x00\x00\x00\xe4\xff\xb0\x00\x00\x00\x00\x00\x00\x00\x15\x00\x00\x00\x00\x00\x00\x00\x00\x00\xdb\xff\x4f\x00\x00\x00\x0d\x00\x00\x00\x00\x00\x06\x00\x22\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00"#
-happyDefActions :: Addr
-happyDefActions = A# "\xf5\xff\x00\x00\xfe\xff\x00\x00\xfb\xff\xf4\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf7\xff\x00\x00\xf9\xff\xf2\xff\x00\x00\xf1\xff\x00\x00\x00\x00\x00\x00\xf8\xff\x00\x00\x7e\xff\xf3\xff\x7d\xff\x00\x00\xa1\xff\x00\x00\xf6\xff\x9f\xff\xf0\xff\x7e\xff\x7c\xff\x00\x00\x00\x00\x00\x00\x00\x00\xe4\xff\x00\x00\xfa\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xa0\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x9e\xff\x00\x00\xe5\xff\x00\x00\xef\xff\x00\x00\xd2\xff\x00\x00\x00\x00\x00\x00\x00\x00\x9d\xff\x00\x00\x00\x00\xc7\xff\xc6\xff\xcb\xff\xdd\xff\xec\xff\xe1\xff\xc5\xff\xdc\xff\xcd\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xd9\xff\xdb\xff\xfd\xff\xfc\xff\x9a\xff\x9c\xff\xeb\xff\xc1\xff\x00\x00\x90\xff\x00\x00\xc0\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xd1\xff\xe7\xff\xd2\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xaa\xff\x8f\xff\x00\x00\x00\x00\x00\x00\x00\x00\x9d\xff\xe6\xff\xc8\xff\xc9\xff\x00\x00\x00\x00\x00\x00\x00\x00\xcf\xff\xe2\xff\x00\x00\x00\x00\xe3\xff\x00\x00\x00\x00\xde\xff\x00\x00\xda\xff\x00\x00\xca\xff\x99\xff\x9b\xff\x00\x00\xaf\xff\xbd\xff\xb2\xff\xb0\xff\xea\xff\xb9\xff\xbe\xff\x96\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xa9\xff\xc3\xff\x00\x00\x90\xff\x00\x00\x00\x00\x93\xff\xed\xff\xc4\xff\x98\xff\xd0\xff\xee\xff\x00\x00\x92\xff\x00\x00\x00\x00\x00\x00\x00\x00\x8e\xff\xbf\xff\x8a\xff\x00\x00\xbb\xff\x8a\xff\x00\x00\xb8\xff\x88\xff\x95\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xdf\xff\xd6\xff\xd5\xff\xd4\xff\xce\xff\x00\x00\x00\x00\xd3\xff\xcc\xff\xcf\xff\xd8\xff\x00\x00\x00\x00\xa8\xff\xb6\xff\xb4\xff\xba\xff\x00\x00\x96\xff\x00\x00\xb7\xff\x00\x00\x80\xff\x00\x00\xc2\xff\xb1\xff\xe9\xff\x00\x00\x93\xff\x97\xff\x91\xff\x00\x00\x89\xff\xb3\xff\x8c\xff\x00\x00\x00\x00\xbc\xff\x87\xff\x86\xff\x94\xff\xad\xff\x00\x00\x00\x00\x00\x00\xd7\xff\xe0\xff\xa7\xff\x85\xff\x00\x00\x00\x00\xa5\xff\x7f\xff\x83\xff\x00\x00\xa4\xff\x00\x00\xb5\xff\x80\xff\x00\x00\xe8\xff\x8b\xff\xac\xff\x80\xff\x00\x00\x82\xff\x00\x00\x00\x00\x88\xff\x86\xff\x84\xff\xab\xff\xae\xff\xa3\xff\x83\xff\x00\x00\x00\x00\xa6\xff\xa2\xff\x81\xff"#
+happyDefActions :: HappyAddr
+happyDefActions = HappyA# "\xf4\xff\x00\x00\xfe\xff\x00\x00\xfa\xff\x7d\xff\x7c\xff\x00\x00\xf3\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf6\xff\x00\x00\xf8\xff\xf1\xff\x00\x00\x7d\xff\x7b\xff\x00\x00\x00\x00\xef\xff\x00\x00\x00\x00\x00\x00\xf7\xff\x00\x00\x7d\xff\xf2\xff\xf4\xff\xfb\xff\x00\x00\xa0\xff\x00\x00\xf5\xff\x9e\xff\xf0\xff\x00\x00\x00\x00\x00\x00\x00\x00\xe3\xff\x00\x00\xf9\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x9f\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x9d\xff\x00\x00\xe4\xff\x00\x00\xee\xff\x00\x00\xd1\xff\x00\x00\x00\x00\x00\x00\x00\x00\x9c\xff\x00\x00\x00\x00\xc6\xff\xc5\xff\xca\xff\xdc\xff\xeb\xff\xe0\xff\xc4\xff\xdb\xff\xcc\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xd8\xff\xda\xff\xfd\xff\xfc\xff\x99\xff\x9b\xff\xea\xff\xc0\xff\x00\x00\x8f\xff\x00\x00\xbf\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xd0\xff\xe6\xff\xd1\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xa9\xff\x8e\xff\x00\x00\x00\x00\x00\x00\x00\x00\x9c\xff\xe5\xff\xc7\xff\xc8\xff\x00\x00\x00\x00\x00\x00\x00\x00\xce\xff\xe1\xff\x00\x00\x00\x00\xe2\xff\x00\x00\x00\x00\xdd\xff\x00\x00\xd9\xff\x00\x00\xc9\xff\x98\xff\x9a\xff\x00\x00\xae\xff\xbc\xff\xb1\xff\xaf\xff\xe9\xff\xb8\xff\xbd\xff\x95\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xa8\xff\xc2\xff\x00\x00\x8f\xff\x00\x00\x00\x00\x92\xff\xec\xff\xc3\xff\x97\xff\xcf\xff\xed\xff\x00\x00\x91\xff\x00\x00\x00\x00\x00\x00\x00\x00\x8d\xff\xbe\xff\x89\xff\x00\x00\xba\xff\x89\xff\x00\x00\xb7\xff\x87\xff\x94\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xde\xff\xd5\xff\xd4\xff\xd3\xff\xcd\xff\x00\x00\x00\x00\xd2\xff\xcb\xff\xce\xff\xd7\xff\x00\x00\x00\x00\xa7\xff\xb5\xff\xb3\xff\xb9\xff\x00\x00\x95\xff\x00\x00\xb6\xff\x00\x00\x7f\xff\x00\x00\xc1\xff\xb0\xff\xe8\xff\x00\x00\x92\xff\x96\xff\x90\xff\x00\x00\x88\xff\xb2\xff\x8b\xff\x00\x00\x00\x00\xbb\xff\x86\xff\x85\xff\x93\xff\xac\xff\x00\x00\x00\x00\x00\x00\xd6\xff\xdf\xff\xa6\xff\x84\xff\x00\x00\x00\x00\xa4\xff\x7e\xff\x82\xff\x00\x00\xa3\xff\x00\x00\xb4\xff\x7f\xff\x00\x00\xe7\xff\x8a\xff\xab\xff\x7f\xff\x00\x00\x81\xff\x00\x00\x00\x00\x87\xff\x85\xff\x83\xff\xaa\xff\xad\xff\xa2\xff\x82\xff\x00\x00\x00\x00\xa5\xff\xa1\xff\x80\xff"#
-happyCheck :: Addr
-happyCheck = A# "\xff\xff\x00\x00\x00\x00\x09\x00\x00\x00\x00\x00\x00\x00\x0b\x00\x16\x00\x12\x00\x00\x00\x02\x00\x15\x00\x30\x00\x02\x00\x02\x00\x00\x00\x33\x00\x00\x00\x17\x00\x18\x00\x0b\x00\x02\x00\x0a\x00\x0c\x00\x0c\x00\x0e\x00\x07\x00\x0f\x00\x0d\x00\x11\x00\x12\x00\x0c\x00\x27\x00\x30\x00\x0f\x00\x02\x00\x11\x00\x22\x00\x22\x00\x22\x00\x1c\x00\x25\x00\x25\x00\x1a\x00\x20\x00\x0c\x00\x0d\x00\x0e\x00\x01\x00\x28\x00\x16\x00\x22\x00\x34\x00\x34\x00\x32\x00\x32\x00\x30\x00\x00\x00\x2f\x00\x2f\x00\x30\x00\x31\x00\x2d\x00\x2c\x00\x00\x00\x2e\x00\x2f\x00\x30\x00\x02\x00\x03\x00\x08\x00\x00\x00\x02\x00\x07\x00\x00\x00\x00\x00\x30\x00\x07\x00\x0c\x00\x02\x00\x2f\x00\x0f\x00\x0c\x00\x11\x00\x07\x00\x0f\x00\x10\x00\x11\x00\x02\x00\x0c\x00\x01\x00\x00\x00\x0f\x00\x24\x00\x11\x00\x00\x00\x02\x00\x11\x00\x0c\x00\x23\x00\x0e\x00\x1a\x00\x0b\x00\x00\x00\x2a\x00\x13\x00\x0c\x00\x24\x00\x2c\x00\x22\x00\x24\x00\x03\x00\x03\x00\x2f\x00\x30\x00\x06\x00\x00\x00\x2f\x00\x30\x00\x05\x00\x2d\x00\x1b\x00\x00\x00\x00\x00\x2f\x00\x30\x00\x0c\x00\x2f\x00\x0e\x00\x02\x00\x23\x00\x28\x00\x16\x00\x2f\x00\x1f\x00\x0d\x00\x0d\x00\x22\x00\x1e\x00\x2c\x00\x09\x00\x2f\x00\x22\x00\x01\x00\x24\x00\x25\x00\x2b\x00\x1f\x00\x28\x00\x29\x00\x22\x00\x0c\x00\x15\x00\x2d\x00\x0f\x00\x2f\x00\x11\x00\x12\x00\x30\x00\x2b\x00\x00\x00\x2f\x00\x30\x00\x31\x00\x0c\x00\x0d\x00\x0e\x00\x1c\x00\x00\x00\x01\x00\x00\x00\x20\x00\x09\x00\x0d\x00\x00\x00\x01\x00\x02\x00\x00\x00\x01\x00\x00\x00\x15\x00\x0d\x00\x02\x00\x0d\x00\x15\x00\x19\x00\x2f\x00\x30\x00\x31\x00\x00\x00\x0d\x00\x30\x00\x0d\x00\x13\x00\x02\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x2f\x00\x30\x00\x31\x00\x0d\x00\x23\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x00\x00\x01\x00\x00\x00\x0d\x00\x23\x00\x00\x00\x19\x00\x00\x00\x00\x00\x00\x00\x01\x00\x15\x00\x07\x00\x0d\x00\x00\x00\x0d\x00\x04\x00\x2f\x00\x00\x00\x01\x00\x0d\x00\x0d\x00\x0d\x00\x0b\x00\x0a\x00\x04\x00\x05\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x0d\x00\x19\x00\x19\x00\x2f\x00\x23\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x2a\x00\x00\x00\x01\x00\x00\x00\x23\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x00\x00\x00\x00\x01\x00\x00\x00\x23\x00\x0d\x00\x17\x00\x18\x00\x02\x00\x29\x00\x00\x00\x01\x00\x00\x00\x0d\x00\x0d\x00\x02\x00\x00\x00\x16\x00\x00\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x0d\x00\x00\x00\x19\x00\x00\x00\x23\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x00\x00\x00\x00\x01\x00\x00\x00\x23\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x00\x00\x00\x00\x01\x00\x14\x00\x23\x00\x0d\x00\x00\x00\x18\x00\x00\x00\x01\x00\x1d\x00\x14\x00\x1f\x00\x0d\x00\x0d\x00\x18\x00\x00\x00\x00\x00\x00\x00\x1b\x00\x1c\x00\x0d\x00\x1e\x00\x00\x00\x2b\x00\x19\x00\x2d\x00\x23\x00\x1b\x00\x0d\x00\x00\x00\x1e\x00\x00\x00\x01\x00\x02\x00\x1b\x00\x23\x00\x00\x00\x1e\x00\x20\x00\x0c\x00\x19\x00\x20\x00\x23\x00\x21\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x2e\x00\x00\x00\x17\x00\x2e\x00\x00\x00\x33\x00\x30\x00\x31\x00\x33\x00\x21\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x26\x00\x00\x00\x17\x00\x00\x00\x08\x00\x00\x00\x30\x00\x31\x00\x00\x00\x00\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x00\x00\x30\x00\x17\x00\x08\x00\x03\x00\x09\x00\x01\x00\x15\x00\x09\x00\x03\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x2f\x00\x03\x00\x17\x00\x31\x00\x03\x00\x15\x00\x2f\x00\x15\x00\x09\x00\x14\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x17\x00\x03\x00\x17\x00\x2f\x00\x05\x00\x0d\x00\x31\x00\x03\x00\x01\x00\x09\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x02\x00\x0d\x00\x17\x00\x1a\x00\x05\x00\x2f\x00\x02\x00\x2f\x00\x15\x00\x09\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x0b\x00\x2f\x00\x17\x00\x14\x00\x03\x00\x05\x00\x0d\x00\x10\x00\x03\x00\x31\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x04\x00\x2f\x00\x17\x00\x09\x00\x13\x00\x0a\x00\x01\x00\x2f\x00\x09\x00\x08\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x04\x00\x01\x00\x17\x00\x01\x00\x01\x00\x00\x00\x01\x00\x02\x00\x01\x00\x19\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x31\x00\x07\x00\x2f\x00\x0d\x00\x0b\x00\x17\x00\x10\x00\x11\x00\x23\x00\x04\x00\x04\x00\x01\x00\x2f\x00\x17\x00\x01\x00\x04\x00\x01\x00\x2f\x00\x09\x00\x01\x00\x04\x00\x20\x00\x2f\x00\x09\x00\x2f\x00\x2f\x00\x23\x00\x1a\x00\x21\x00\x02\x00\x2f\x00\x05\x00\x01\x00\x2f\x00\x06\x00\x27\x00\x26\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x2f\x00\xff\xff\x2f\x00\xff\xff\xff\xff\x2f\x00\xff\xff\x33\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff"#
+happyCheck :: HappyAddr
+happyCheck = HappyA# "\xff\xff\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x12\x00\x20\x00\x30\x00\x15\x00\x03\x00\x01\x00\x03\x00\x00\x00\x00\x00\x2e\x00\x0b\x00\x0a\x00\x03\x00\x0c\x00\x33\x00\x2e\x00\x0f\x00\x08\x00\x11\x00\x12\x00\x33\x00\x0c\x00\x1a\x00\x09\x00\x0f\x00\x00\x00\x11\x00\x03\x00\x09\x00\x1c\x00\x22\x00\x22\x00\x22\x00\x20\x00\x25\x00\x25\x00\x0c\x00\x0d\x00\x0e\x00\x28\x00\x00\x00\x2d\x00\x22\x00\x24\x00\x34\x00\x34\x00\x34\x00\x32\x00\x32\x00\x30\x00\x31\x00\x32\x00\x31\x00\x27\x00\x2d\x00\x00\x00\x2f\x00\x30\x00\x31\x00\x03\x00\x04\x00\x24\x00\x2b\x00\x33\x00\x08\x00\x03\x00\x0b\x00\x00\x00\x0c\x00\x11\x00\x08\x00\x0f\x00\x30\x00\x11\x00\x0c\x00\x03\x00\x24\x00\x0f\x00\x10\x00\x11\x00\x08\x00\x03\x00\x03\x00\x03\x00\x0c\x00\x03\x00\x06\x00\x0f\x00\x01\x00\x11\x00\x0c\x00\x0c\x00\x0e\x00\x1a\x00\x0c\x00\x28\x00\x0e\x00\x13\x00\x04\x00\x00\x00\x30\x00\x22\x00\x00\x00\x21\x00\x30\x00\x31\x00\x1b\x00\x06\x00\x15\x00\x01\x00\x30\x00\x31\x00\x2d\x00\x0c\x00\x00\x00\x0e\x00\x00\x00\x16\x00\x30\x00\x31\x00\x30\x00\x31\x00\x00\x00\x00\x00\x1e\x00\x16\x00\x30\x00\x30\x00\x22\x00\x0d\x00\x30\x00\x25\x00\x26\x00\x0a\x00\x23\x00\x29\x00\x2a\x00\x23\x00\x02\x00\x16\x00\x2e\x00\x19\x00\x30\x00\x2c\x00\x31\x00\x1f\x00\x2c\x00\x01\x00\x22\x00\x30\x00\x31\x00\x32\x00\x31\x00\x1f\x00\x00\x00\x0c\x00\x22\x00\x2b\x00\x0f\x00\x00\x00\x11\x00\x12\x00\x0c\x00\x0d\x00\x0e\x00\x2b\x00\x31\x00\x00\x00\x01\x00\x0b\x00\x01\x00\x1c\x00\x0d\x00\x00\x00\x14\x00\x20\x00\x00\x00\x01\x00\x18\x00\x0d\x00\x0d\x00\x17\x00\x18\x00\x15\x00\x19\x00\x02\x00\x0d\x00\x15\x00\x00\x00\x0d\x00\x15\x00\x30\x00\x31\x00\x32\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x30\x00\x31\x00\x32\x00\x0d\x00\x23\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x00\x00\x01\x00\x04\x00\x05\x00\x23\x00\x02\x00\x19\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x0d\x00\x2f\x00\x00\x00\x01\x00\x02\x00\x00\x00\x01\x00\x0d\x00\x0d\x00\x0d\x00\x30\x00\x0d\x00\x0d\x00\x2f\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x0d\x00\x19\x00\x19\x00\x13\x00\x23\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x00\x00\x00\x00\x01\x00\x00\x00\x23\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x00\x00\x00\x00\x01\x00\x00\x00\x23\x00\x0d\x00\x2a\x00\x0d\x00\x00\x00\x00\x00\x00\x00\x01\x00\x05\x00\x0d\x00\x0d\x00\x07\x00\x0d\x00\x02\x00\x0b\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x0d\x00\x00\x00\x19\x00\x29\x00\x23\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x02\x00\x00\x00\x01\x00\x00\x00\x23\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x00\x00\x00\x00\x01\x00\x14\x00\x23\x00\x0d\x00\x00\x00\x18\x00\x00\x00\x01\x00\x00\x00\x17\x00\x18\x00\x0d\x00\x0d\x00\x16\x00\x00\x00\x00\x00\x00\x00\x1b\x00\x1c\x00\x0d\x00\x1e\x00\x0d\x00\x1d\x00\x19\x00\x1f\x00\x23\x00\x1b\x00\x00\x00\x00\x00\x1e\x00\x00\x00\x01\x00\x02\x00\x1b\x00\x23\x00\x00\x00\x1e\x00\x2c\x00\x00\x00\x2e\x00\x21\x00\x23\x00\x00\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x00\x00\x0c\x00\x17\x00\x00\x00\x30\x00\x31\x00\x00\x00\x26\x00\x06\x00\x00\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x00\x00\x08\x00\x17\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x09\x00\x31\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x04\x00\x01\x00\x17\x00\x02\x00\x15\x00\x30\x00\x04\x00\x04\x00\x01\x00\x32\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x04\x00\x15\x00\x17\x00\x01\x00\x30\x00\x04\x00\x06\x00\x15\x00\x14\x00\x32\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x17\x00\x0d\x00\x17\x00\x30\x00\x04\x00\x02\x00\x01\x00\x03\x00\x0d\x00\x03\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x06\x00\x1a\x00\x17\x00\x30\x00\x30\x00\x15\x00\x0b\x00\x01\x00\x04\x00\x14\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x06\x00\x30\x00\x17\x00\x0d\x00\x30\x00\x10\x00\x04\x00\x01\x00\x32\x00\x05\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x13\x00\x0a\x00\x17\x00\x02\x00\x30\x00\x01\x00\x0b\x00\x09\x00\x05\x00\x02\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x02\x00\x02\x00\x17\x00\x02\x00\x30\x00\x00\x00\x01\x00\x02\x00\x30\x00\x19\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x32\x00\x08\x00\x24\x00\x0d\x00\x05\x00\x17\x00\x10\x00\x11\x00\x05\x00\x02\x00\x05\x00\x02\x00\x02\x00\x17\x00\x01\x00\x30\x00\x02\x00\x20\x00\x01\x00\x03\x00\x30\x00\x21\x00\x07\x00\x30\x00\x30\x00\x24\x00\x06\x00\x30\x00\x01\x00\x30\x00\x05\x00\x28\x00\x02\x00\x27\x00\x27\x00\x30\x00\x23\x00\x1a\x00\xff\xff\xff\xff\x30\x00\xff\xff\xff\xff\xff\xff\xff\xff\x30\x00\xff\xff\xff\xff\x34\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff"#
-happyTable :: Addr
-happyTable = A# "\x00\x00\x19\x00\x19\x00\x22\x00\x6e\x00\x6e\x00\x6e\x00\x80\x00\x88\xff\x81\x00\x58\x00\xe4\x00\x82\x00\x03\x01\xf2\x00\x4f\x00\x45\x00\x08\x01\x6e\x00\xba\x00\xbb\x00\x59\x00\x93\x00\x50\x00\xf3\x00\x51\x00\xf4\x00\x94\x00\x52\x00\xfb\x00\x53\x00\x54\x00\x95\x00\x23\x00\x88\xff\x96\x00\xf2\x00\x97\x00\xca\x00\xfc\x00\xfc\x00\x55\x00\xfd\x00\xfd\x00\x6f\x00\x56\x00\xf3\x00\x0a\x01\xf4\x00\xe2\x00\x89\x00\x01\x01\x70\x00\x21\x00\x1a\x00\x0b\x01\xfe\x00\x57\x00\xef\x00\x03\x00\x03\x00\x57\x00\x58\x00\xab\x00\x98\x00\xa5\x00\x99\x00\x03\x00\x57\x00\x93\x00\xde\x00\xb3\x00\xef\x00\x93\x00\x94\x00\xef\x00\x6e\x00\x57\x00\x94\x00\x95\x00\x93\x00\x03\x00\x96\x00\x95\x00\x97\x00\x94\x00\x96\x00\xe2\x00\x97\x00\xf2\x00\x95\x00\xe2\x00\x58\x00\x96\x00\xf0\x00\x97\x00\xa5\x00\x5e\x00\x73\x00\xf3\x00\xa6\x00\xf4\x00\x6f\x00\x59\x00\x6e\x00\xb4\x00\xf5\x00\x5f\x00\x0a\x01\xda\x00\x70\x00\xf0\x00\x29\x00\x03\x00\x03\x00\x57\x00\x04\x00\x6e\x00\x03\x00\x57\x00\xc2\x00\x71\x00\x60\x00\x45\x00\x45\x00\x03\x00\x57\x00\xc3\x00\x03\x00\xc4\x00\xeb\x00\xa6\x00\x5a\x00\x88\xff\x03\x00\xb4\x00\xc5\x00\xd9\x00\xb5\x00\x2a\x00\xa7\x00\xf8\x00\x03\x00\x2b\x00\xe2\x00\x2c\x00\x2d\x00\xe4\x00\xb4\x00\x2e\x00\x2f\x00\xb5\x00\x7f\x00\xaa\x00\x30\x00\x52\x00\x03\x00\x53\x00\x54\x00\x88\xff\xb6\x00\x45\x00\x03\x00\x57\x00\x58\x00\xc3\x00\xea\x00\xc4\x00\x55\x00\x8a\x00\x8b\x00\x45\x00\x56\x00\xa9\x00\x5b\x00\xbd\x00\xbe\x00\xbf\x00\x8a\x00\x8b\x00\x45\x00\xe8\x00\x8c\x00\xc8\x00\xb0\x00\xaa\x00\xaa\x00\x03\x00\x57\x00\x58\x00\x45\x00\x8c\x00\xcf\x00\x78\x00\xc0\x00\xc9\x00\x8d\x00\x8e\x00\xf8\x00\x90\x00\x03\x00\x57\x00\x58\x00\x5b\x00\x91\x00\x8d\x00\x8e\x00\xfa\x00\x90\x00\x8a\x00\x8b\x00\x45\x00\xd1\x00\x91\x00\x10\x00\xac\x00\x45\x00\x45\x00\x8a\x00\x8b\x00\xaa\x00\x11\x00\x8c\x00\x26\x00\x61\x00\x87\x00\xd1\x00\x8a\x00\x8b\x00\x5b\x00\x5b\x00\x8c\x00\x80\x00\x27\x00\x05\x00\x06\x00\x8d\x00\x8e\x00\xdb\x00\x90\x00\x8c\x00\xae\x00\x88\x00\xd3\x00\x91\x00\x8d\x00\x8e\x00\xe5\x00\x90\x00\xa4\x00\x8a\x00\x8b\x00\xaf\x00\x91\x00\x8d\x00\x8e\x00\xd6\x00\x90\x00\x45\x00\x8a\x00\x8b\x00\x80\x00\x91\x00\x8c\x00\xba\x00\xbb\x00\x99\x00\x75\x00\x8a\x00\x8b\x00\x77\x00\x5b\x00\x8c\x00\x76\x00\x7b\x00\x7c\x00\x66\x00\x8d\x00\x8e\x00\xb1\x00\x90\x00\x8c\x00\x63\x00\x6d\x00\x3c\x00\x91\x00\x8d\x00\x8e\x00\x8f\x00\x90\x00\x63\x00\x8a\x00\x8b\x00\x31\x00\x91\x00\x8d\x00\x8e\x00\x9e\x00\x90\x00\x45\x00\x8a\x00\x8b\x00\xa3\x00\x91\x00\x8c\x00\x32\x00\x65\x00\x8a\x00\x8b\x00\x08\x00\x64\x00\x09\x00\x5b\x00\x8c\x00\x65\x00\x45\x00\x33\x00\x34\x00\x8d\x00\xd5\x00\x8c\x00\x90\x00\x35\x00\x0a\x00\x5c\x00\x0b\x00\x91\x00\xdc\x00\x5b\x00\x36\x00\x90\x00\x45\x00\x46\x00\x47\x00\xcb\x00\x91\x00\x37\x00\x90\x00\xde\x00\x39\x00\x60\x00\xde\x00\x91\x00\xec\x00\x48\x00\x49\x00\xea\x00\x4b\x00\x4c\x00\x45\x00\x46\x00\x47\x00\xf9\x00\x25\x00\x4d\x00\xdf\x00\x1d\x00\xe0\x00\xed\x00\x02\x01\xe0\x00\xec\x00\x48\x00\x49\x00\xc6\x00\x4b\x00\x4c\x00\x45\x00\x46\x00\x47\x00\x1e\x00\x14\x00\x4d\x00\x15\x00\x16\x00\x0b\x00\xed\x00\xee\x00\x0c\x00\x0d\x00\x48\x00\x49\x00\xbb\x00\x4b\x00\x4c\x00\x45\x00\x46\x00\x47\x00\x0e\x00\x57\x00\x4d\x00\x05\x01\x06\x01\x07\x01\x08\x01\xaa\x00\x02\x01\x8d\xff\x48\x00\x49\x00\xbc\x00\x4b\x00\x4c\x00\x45\x00\x46\x00\x47\x00\x03\x00\x00\x01\x4d\x00\x58\x00\xf6\x00\xaa\x00\x03\x00\xaa\x00\xf7\x00\xb8\x00\x48\x00\x49\x00\x7a\x00\x4b\x00\x4c\x00\x45\x00\x46\x00\x47\x00\xe7\x00\x8d\xff\x4d\x00\x03\x00\xe8\x00\xc8\x00\x58\x00\xcd\x00\xce\x00\xcf\x00\x48\x00\x49\x00\xa0\x00\x4b\x00\x4c\x00\x45\x00\x46\x00\x47\x00\xd3\x00\xd5\x00\x4d\x00\xd9\x00\xd8\x00\x03\x00\xae\x00\x03\x00\xaa\x00\xc5\x00\x48\x00\x49\x00\xa1\x00\x4b\x00\x4c\x00\x79\x00\x46\x00\x47\x00\xb9\x00\x03\x00\x4d\x00\xb8\x00\x84\x00\x85\x00\x86\x00\x88\x00\x9b\x00\x58\x00\x48\x00\x49\x00\x7a\x00\x4b\x00\x4c\x00\x45\x00\x46\x00\x47\x00\x9c\x00\x03\x00\x4d\x00\x9d\x00\x9e\x00\xa0\x00\xa3\x00\x03\x00\x68\x00\x69\x00\x48\x00\x49\x00\x4a\x00\x4b\x00\x4c\x00\x45\x00\x46\x00\x47\x00\x6a\x00\x6b\x00\x4d\x00\x6c\x00\x6d\x00\x45\x00\x46\x00\x47\x00\x74\x00\x75\x00\x48\x00\x49\x00\x62\x00\x4b\x00\x4c\x00\x58\x00\x3f\x00\x03\x00\x48\x00\x80\x00\x4d\x00\x7d\x00\x4c\x00\x3e\x00\x40\x00\x41\x00\x42\x00\x03\x00\x4d\x00\x44\x00\x43\x00\x45\x00\x03\x00\x39\x00\x3c\x00\x14\x00\x3b\x00\x03\x00\x31\x00\x03\x00\x03\x00\x20\x00\x21\x00\x25\x00\x1c\x00\x03\x00\x1d\x00\x10\x00\x03\x00\x19\x00\x18\x00\x13\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x03\x00\x00\x00\x03\x00\x00\x00\x00\x00\x03\x00\x00\x00\xff\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"#
+happyTable :: HappyAddr
+happyTable = HappyA# "\x00\x00\x06\x00\x06\x00\x06\x00\xe4\x00\x74\x00\x74\x00\x74\x00\x5e\x00\x87\x00\xe4\x00\x09\x01\x88\x00\x55\x00\xe8\x00\xea\x00\xf5\x00\x74\x00\xff\x00\x5f\x00\x56\x00\x99\x00\x57\x00\xe6\x00\xe5\x00\x58\x00\x9a\x00\x59\x00\x5a\x00\xe6\x00\x9b\x00\x75\x00\x28\x00\x9c\x00\xf5\x00\x9d\x00\xf8\x00\xb9\x00\x5b\x00\x76\x00\x02\x01\x02\x01\x5c\x00\x03\x01\x03\x01\xf9\x00\x10\x01\xfa\x00\x8f\x00\xf5\x00\xb1\x00\xd0\x00\xf6\x00\x22\x00\x15\x00\x07\x00\x11\x01\x04\x01\x03\x00\x5d\x00\x5e\x00\x5d\x00\x29\x00\x9e\x00\x5e\x00\x9f\x00\x03\x00\x5d\x00\x99\x00\xe4\x00\x10\x01\xba\x00\x0e\x01\x9a\x00\x99\x00\x5f\x00\x74\x00\x9b\x00\x79\x00\x9a\x00\x9c\x00\x03\x00\x9d\x00\x9b\x00\x99\x00\xf6\x00\x9c\x00\xe8\x00\x9d\x00\x9a\x00\xf8\x00\x64\x00\x03\x00\x9b\x00\xf8\x00\x04\x00\x9c\x00\xfe\x00\x9d\x00\xf9\x00\x65\x00\xfa\x00\x75\x00\xf9\x00\x60\x00\xfa\x00\xfb\x00\x2f\x00\xab\x00\x03\x00\x76\x00\xab\x00\xf2\x00\x03\x00\x5d\x00\x66\x00\xc8\x00\xb0\x00\xe8\x00\x03\x00\x5d\x00\x77\x00\xc9\x00\x74\x00\xca\x00\x4b\x00\x87\xff\xf3\x00\x08\x01\x03\x00\x5d\x00\x74\x00\x2c\x00\x30\x00\x07\x01\x03\x00\x03\x00\x31\x00\x61\x00\x03\x00\x32\x00\x33\x00\x2d\x00\xac\x00\x34\x00\x35\x00\xac\x00\xf1\x00\x87\xff\x36\x00\xb0\x00\x03\x00\xe0\x00\x87\xff\xba\x00\xad\x00\xe8\x00\xbb\x00\x03\x00\x5d\x00\x5e\x00\x5d\x00\xba\x00\x69\x00\x85\x00\xbb\x00\xea\x00\x58\x00\x4b\x00\x59\x00\x5a\x00\xc9\x00\xf0\x00\xca\x00\xbc\x00\x87\xff\x90\x00\x91\x00\x86\x00\xaf\x00\x5b\x00\x61\x00\x4b\x00\xa9\x00\x5c\x00\x90\x00\x91\x00\x6b\x00\xd7\x00\x92\x00\xc0\x00\xc1\x00\xee\x00\xb2\x00\xce\x00\x01\x01\xb0\x00\x4b\x00\x92\x00\xb0\x00\x03\x00\x5d\x00\x5e\x00\x93\x00\x94\x00\xfe\x00\x96\x00\x03\x00\x5d\x00\x5e\x00\x61\x00\x97\x00\x93\x00\x94\x00\x00\x01\x96\x00\x90\x00\x91\x00\x08\x00\x09\x00\x97\x00\xcf\x00\xb4\x00\x4b\x00\x4b\x00\x90\x00\x91\x00\x4b\x00\x4b\x00\x92\x00\xd7\x00\xc3\x00\xc4\x00\xc5\x00\x90\x00\x91\x00\x61\x00\x61\x00\x92\x00\xd5\x00\xcb\x00\xdf\x00\xd9\x00\x93\x00\x94\x00\xe1\x00\x96\x00\x92\x00\x8e\x00\x73\x00\xc6\x00\x97\x00\x93\x00\x94\x00\xeb\x00\x96\x00\xb5\x00\x90\x00\x91\x00\x4b\x00\x97\x00\x93\x00\x94\x00\xdc\x00\x96\x00\x4b\x00\x90\x00\x91\x00\x4b\x00\x97\x00\x92\x00\xaa\x00\xb6\x00\x17\x00\x86\x00\x90\x00\x91\x00\x8d\x00\x61\x00\x92\x00\x18\x00\x7e\x00\x9f\x00\x86\x00\x93\x00\x94\x00\xb7\x00\x96\x00\x92\x00\x69\x00\x62\x00\x7b\x00\x97\x00\x93\x00\x94\x00\x95\x00\x96\x00\x7c\x00\x90\x00\x91\x00\x7d\x00\x97\x00\x93\x00\x94\x00\xa4\x00\x96\x00\x4b\x00\x90\x00\x91\x00\x6a\x00\x97\x00\x92\x00\x81\x00\x6b\x00\x90\x00\x91\x00\x4b\x00\xc0\x00\xc1\x00\x61\x00\x92\x00\x82\x00\x6c\x00\x42\x00\x37\x00\x93\x00\xdb\x00\x92\x00\x96\x00\x67\x00\x0b\x00\x66\x00\x0c\x00\x97\x00\xe2\x00\x38\x00\x39\x00\x96\x00\x4b\x00\x4c\x00\x4d\x00\xd1\x00\x97\x00\x3a\x00\x96\x00\x0d\x00\x3b\x00\x0e\x00\xf2\x00\x97\x00\x3c\x00\x4e\x00\x4f\x00\xf0\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\x3d\x00\x3f\x00\x53\x00\x2b\x00\xf3\x00\xf4\x00\x25\x00\x26\x00\x21\x00\x1b\x00\x4e\x00\x4f\x00\xcc\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\x1c\x00\x1d\x00\x53\x00\x16\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x0b\x01\x5d\x00\x4e\x00\x4f\x00\xc1\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\x0c\x01\x0d\x01\x53\x00\x0e\x01\xb0\x00\x03\x00\x8c\xff\x06\x01\x08\x01\x5e\x00\x4e\x00\x4f\x00\xc2\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\xfc\x00\xb0\x00\x53\x00\xfd\x00\x03\x00\x8c\xff\xee\x00\xb0\x00\xbe\x00\x5e\x00\x4e\x00\x4f\x00\x80\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\xed\x00\xce\x00\x53\x00\x03\x00\xd3\x00\xd4\x00\xd5\x00\xd9\x00\xdb\x00\xb4\x00\x4e\x00\x4f\x00\xa6\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\xde\x00\xdf\x00\x53\x00\x03\x00\x03\x00\xb0\x00\xbf\x00\xcb\x00\x8a\x00\xbe\x00\x4e\x00\x4f\x00\xa7\x00\x51\x00\x52\x00\x7f\x00\x4c\x00\x4d\x00\x8b\x00\x03\x00\x53\x00\x8c\x00\x03\x00\x8e\x00\xa1\x00\xa3\x00\x5e\x00\xa2\x00\x4e\x00\x4f\x00\x80\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\xa4\x00\xa6\x00\x53\x00\xa9\x00\x03\x00\x6e\x00\x86\x00\x6f\x00\x70\x00\x71\x00\x4e\x00\x4f\x00\x50\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\x72\x00\x73\x00\x53\x00\x7a\x00\x03\x00\x4b\x00\x4c\x00\x4d\x00\x03\x00\x7b\x00\x4e\x00\x4f\x00\x68\x00\x51\x00\x52\x00\x5e\x00\x45\x00\x44\x00\x4e\x00\x46\x00\x53\x00\x83\x00\x52\x00\x47\x00\x48\x00\x49\x00\x4a\x00\x4b\x00\x53\x00\x3f\x00\x03\x00\x42\x00\x41\x00\x37\x00\x24\x00\x03\x00\x2b\x00\x20\x00\x03\x00\x03\x00\x28\x00\x25\x00\x03\x00\x21\x00\x03\x00\x1b\x00\x1f\x00\x13\x00\x1a\x00\x14\x00\x03\x00\x06\x00\x15\x00\x00\x00\x00\x00\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x03\x00\x00\x00\x00\x00\xff\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"#
-happyReduceArr = array (1, 131) [
+happyReduceArr = array (1, 132) [
(1 , happyReduce_1),
(2 , happyReduce_2),
(3 , happyReduce_3),
@@ -481,10 +485,11 @@ happyReduceArr = array (1, 131) [
(128 , happyReduce_128),
(129 , happyReduce_129),
(130 , happyReduce_130),
- (131 , happyReduce_131)
+ (131 , happyReduce_131),
+ (132 , happyReduce_132)
]
-happy_n_terms = 52 :: Int
+happy_n_terms = 53 :: Int
happy_n_nonterms = 53 :: Int
happyReduce_1 = happySpecReduce_1 0# happyReduction_1
@@ -508,15 +513,30 @@ happyReduction_3 happy_x_1
((read happy_var_1) :: Integer
)}
-happyReduce_4 = happySpecReduce_1 3# happyReduction_4
-happyReduction_4 happy_x_1
+happyReduce_4 = happyReduce 6# 3# happyReduction_4
+happyReduction_4 (happy_x_6 `HappyStk`
+ happy_x_5 `HappyStk`
+ happy_x_4 `HappyStk`
+ happy_x_3 `HappyStk`
+ happy_x_2 `HappyStk`
+ happy_x_1 `HappyStk`
+ happyRest)
+ = case happyOut56 happy_x_2 of { happy_var_2 ->
+ case happyOut4 happy_x_4 of { happy_var_4 ->
+ case happyOut10 happy_x_6 of { happy_var_6 ->
+ happyIn7
+ (MGr happy_var_2 happy_var_4 (reverse happy_var_6)
+ ) `HappyStk` happyRest}}}
+
+happyReduce_5 = happySpecReduce_1 3# happyReduction_5
+happyReduction_5 happy_x_1
= case happyOut10 happy_x_1 of { happy_var_1 ->
happyIn7
(Gr (reverse happy_var_1)
)}
-happyReduce_5 = happyReduce 8# 4# happyReduction_5
-happyReduction_5 (happy_x_8 `HappyStk`
+happyReduce_6 = happyReduce 8# 4# happyReduction_6
+happyReduction_6 (happy_x_8 `HappyStk`
happy_x_7 `HappyStk`
happy_x_6 `HappyStk`
happy_x_5 `HappyStk`
@@ -534,16 +554,16 @@ happyReduction_5 (happy_x_8 `HappyStk`
(Mod happy_var_1 happy_var_3 happy_var_4 (reverse happy_var_6) (reverse happy_var_7)
) `HappyStk` happyRest}}}}}
-happyReduce_6 = happySpecReduce_2 5# happyReduction_6
-happyReduction_6 happy_x_2
+happyReduce_7 = happySpecReduce_2 5# happyReduction_7
+happyReduction_7 happy_x_2
happy_x_1
= case happyOut4 happy_x_2 of { happy_var_2 ->
happyIn9
(MTAbs happy_var_2
)}
-happyReduce_7 = happyReduce 4# 5# happyReduction_7
-happyReduction_7 (happy_x_4 `HappyStk`
+happyReduce_8 = happyReduce 4# 5# happyReduction_8
+happyReduction_8 (happy_x_4 `HappyStk`
happy_x_3 `HappyStk`
happy_x_2 `HappyStk`
happy_x_1 `HappyStk`
@@ -554,16 +574,16 @@ happyReduction_7 (happy_x_4 `HappyStk`
(MTCnc happy_var_2 happy_var_4
) `HappyStk` happyRest}}
-happyReduce_8 = happySpecReduce_2 5# happyReduction_8
-happyReduction_8 happy_x_2
+happyReduce_9 = happySpecReduce_2 5# happyReduction_9
+happyReduction_9 happy_x_2
happy_x_1
= case happyOut4 happy_x_2 of { happy_var_2 ->
happyIn9
(MTRes happy_var_2
)}
-happyReduce_9 = happyReduce 6# 5# happyReduction_9
-happyReduction_9 (happy_x_6 `HappyStk`
+happyReduce_10 = happyReduce 6# 5# happyReduction_10
+happyReduction_10 (happy_x_6 `HappyStk`
happy_x_5 `HappyStk`
happy_x_4 `HappyStk`
happy_x_3 `HappyStk`
@@ -577,13 +597,13 @@ happyReduction_9 (happy_x_6 `HappyStk`
(MTTrans happy_var_2 happy_var_4 happy_var_6
) `HappyStk` happyRest}}}
-happyReduce_10 = happySpecReduce_0 6# happyReduction_10
-happyReduction_10 = happyIn10
+happyReduce_11 = happySpecReduce_0 6# happyReduction_11
+happyReduction_11 = happyIn10
([]
)
-happyReduce_11 = happySpecReduce_2 6# happyReduction_11
-happyReduction_11 happy_x_2
+happyReduce_12 = happySpecReduce_2 6# happyReduction_12
+happyReduction_12 happy_x_2
happy_x_1
= case happyOut10 happy_x_1 of { happy_var_1 ->
case happyOut8 happy_x_2 of { happy_var_2 ->
@@ -591,24 +611,19 @@ happyReduction_11 happy_x_2
(flip (:) happy_var_1 happy_var_2
)}}
-happyReduce_12 = happySpecReduce_2 7# happyReduction_12
-happyReduction_12 happy_x_2
+happyReduce_13 = happySpecReduce_2 7# happyReduction_13
+happyReduction_13 happy_x_2
happy_x_1
= case happyOut4 happy_x_1 of { happy_var_1 ->
happyIn11
(Ext happy_var_1
)}
-happyReduce_13 = happySpecReduce_0 7# happyReduction_13
-happyReduction_13 = happyIn11
+happyReduce_14 = happySpecReduce_0 7# happyReduction_14
+happyReduction_14 = happyIn11
(NoExt
)
-happyReduce_14 = happySpecReduce_0 8# happyReduction_14
-happyReduction_14 = happyIn12
- (NoOpens
- )
-
happyReduce_15 = happySpecReduce_3 8# happyReduction_15
happyReduction_15 happy_x_3
happy_x_2
@@ -618,8 +633,13 @@ happyReduction_15 happy_x_3
(Opens happy_var_2
)}
-happyReduce_16 = happyReduce 4# 9# happyReduction_16
-happyReduction_16 (happy_x_4 `HappyStk`
+happyReduce_16 = happySpecReduce_0 8# happyReduction_16
+happyReduction_16 = happyIn12
+ (NoOpens
+ )
+
+happyReduce_17 = happyReduce 4# 9# happyReduction_17
+happyReduction_17 (happy_x_4 `HappyStk`
happy_x_3 `HappyStk`
happy_x_2 `HappyStk`
happy_x_1 `HappyStk`
@@ -630,8 +650,8 @@ happyReduction_16 (happy_x_4 `HappyStk`
(Flg happy_var_2 happy_var_4
) `HappyStk` happyRest}}
-happyReduce_17 = happyReduce 7# 10# happyReduction_17
-happyReduction_17 (happy_x_7 `HappyStk`
+happyReduce_18 = happyReduce 7# 10# happyReduction_18
+happyReduction_18 (happy_x_7 `HappyStk`
happy_x_6 `HappyStk`
happy_x_5 `HappyStk`
happy_x_4 `HappyStk`
@@ -646,8 +666,8 @@ happyReduction_17 (happy_x_7 `HappyStk`
(AbsDCat happy_var_2 happy_var_4 (reverse happy_var_7)
) `HappyStk` happyRest}}}
-happyReduce_18 = happyReduce 6# 10# happyReduction_18
-happyReduction_18 (happy_x_6 `HappyStk`
+happyReduce_19 = happyReduce 6# 10# happyReduction_19
+happyReduction_19 (happy_x_6 `HappyStk`
happy_x_5 `HappyStk`
happy_x_4 `HappyStk`
happy_x_3 `HappyStk`
@@ -661,8 +681,8 @@ happyReduction_18 (happy_x_6 `HappyStk`
(AbsDFun happy_var_2 happy_var_4 happy_var_6
) `HappyStk` happyRest}}}
-happyReduce_19 = happyReduce 4# 10# happyReduction_19
-happyReduction_19 (happy_x_4 `HappyStk`
+happyReduce_20 = happyReduce 4# 10# happyReduction_20
+happyReduction_20 (happy_x_4 `HappyStk`
happy_x_3 `HappyStk`
happy_x_2 `HappyStk`
happy_x_1 `HappyStk`
@@ -673,8 +693,8 @@ happyReduction_19 (happy_x_4 `HappyStk`
(AbsDTrans happy_var_2 happy_var_4
) `HappyStk` happyRest}}
-happyReduce_20 = happyReduce 4# 10# happyReduction_20
-happyReduction_20 (happy_x_4 `HappyStk`
+happyReduce_21 = happyReduce 4# 10# happyReduction_21
+happyReduction_21 (happy_x_4 `HappyStk`
happy_x_3 `HappyStk`
happy_x_2 `HappyStk`
happy_x_1 `HappyStk`
@@ -685,8 +705,8 @@ happyReduction_20 (happy_x_4 `HappyStk`
(ResDPar happy_var_2 happy_var_4
) `HappyStk` happyRest}}
-happyReduce_21 = happyReduce 6# 10# happyReduction_21
-happyReduction_21 (happy_x_6 `HappyStk`
+happyReduce_22 = happyReduce 6# 10# happyReduction_22
+happyReduction_22 (happy_x_6 `HappyStk`
happy_x_5 `HappyStk`
happy_x_4 `HappyStk`
happy_x_3 `HappyStk`
@@ -700,8 +720,8 @@ happyReduction_21 (happy_x_6 `HappyStk`
(ResDOper happy_var_2 happy_var_4 happy_var_6
) `HappyStk` happyRest}}}
-happyReduce_22 = happyReduce 8# 10# happyReduction_22
-happyReduction_22 (happy_x_8 `HappyStk`
+happyReduce_23 = happyReduce 8# 10# happyReduction_23
+happyReduction_23 (happy_x_8 `HappyStk`
happy_x_7 `HappyStk`
happy_x_6 `HappyStk`
happy_x_5 `HappyStk`
@@ -718,8 +738,8 @@ happyReduction_22 (happy_x_8 `HappyStk`
(CncDCat happy_var_2 happy_var_4 happy_var_6 happy_var_8
) `HappyStk` happyRest}}}}
-happyReduce_23 = happyReduce 11# 10# happyReduction_23
-happyReduction_23 (happy_x_11 `HappyStk`
+happyReduce_24 = happyReduce 11# 10# happyReduction_24
+happyReduction_24 (happy_x_11 `HappyStk`
happy_x_10 `HappyStk`
happy_x_9 `HappyStk`
happy_x_8 `HappyStk`
@@ -740,8 +760,8 @@ happyReduction_23 (happy_x_11 `HappyStk`
(CncDFun happy_var_2 happy_var_4 happy_var_7 happy_var_9 happy_var_11
) `HappyStk` happyRest}}}}}
-happyReduce_24 = happyReduce 4# 10# happyReduction_24
-happyReduction_24 (happy_x_4 `HappyStk`
+happyReduce_25 = happyReduce 4# 10# happyReduction_25
+happyReduction_25 (happy_x_4 `HappyStk`
happy_x_3 `HappyStk`
happy_x_2 `HappyStk`
happy_x_1 `HappyStk`
@@ -753,8 +773,8 @@ happyReduction_24 (happy_x_4 `HappyStk`
(AnyDInd happy_var_1 happy_var_2 happy_var_4
) `HappyStk` happyRest}}}
-happyReduce_25 = happySpecReduce_2 11# happyReduction_25
-happyReduction_25 happy_x_2
+happyReduce_26 = happySpecReduce_2 11# happyReduction_26
+happyReduction_26 happy_x_2
happy_x_1
= case happyOut4 happy_x_1 of { happy_var_1 ->
case happyOut45 happy_x_2 of { happy_var_2 ->
@@ -762,19 +782,19 @@ happyReduction_25 happy_x_2
(ParD happy_var_1 (reverse happy_var_2)
)}}
-happyReduce_26 = happySpecReduce_1 12# happyReduction_26
-happyReduction_26 happy_x_1
+happyReduce_27 = happySpecReduce_1 12# happyReduction_27
+happyReduction_27 happy_x_1
= happyIn16
(Canon
)
-happyReduce_27 = happySpecReduce_0 12# happyReduction_27
-happyReduction_27 = happyIn16
+happyReduce_28 = happySpecReduce_0 12# happyReduction_28
+happyReduction_28 = happyIn16
(NonCan
)
-happyReduce_28 = happySpecReduce_3 13# happyReduction_28
-happyReduction_28 happy_x_3
+happyReduce_29 = happySpecReduce_3 13# happyReduction_29
+happyReduction_29 happy_x_3
happy_x_2
happy_x_1
= case happyOut4 happy_x_1 of { happy_var_1 ->
@@ -783,8 +803,8 @@ happyReduction_28 happy_x_3
(CIQ happy_var_1 happy_var_3
)}}
-happyReduce_29 = happySpecReduce_2 14# happyReduction_29
-happyReduction_29 happy_x_2
+happyReduce_30 = happySpecReduce_2 14# happyReduction_30
+happyReduction_30 happy_x_2
happy_x_1
= case happyOut18 happy_x_1 of { happy_var_1 ->
case happyOut20 happy_x_2 of { happy_var_2 ->
@@ -792,15 +812,15 @@ happyReduction_29 happy_x_2
(EApp happy_var_1 happy_var_2
)}}
-happyReduce_30 = happySpecReduce_1 14# happyReduction_30
-happyReduction_30 happy_x_1
+happyReduce_31 = happySpecReduce_1 14# happyReduction_31
+happyReduction_31 happy_x_1
= case happyOut20 happy_x_1 of { happy_var_1 ->
happyIn18
(happy_var_1
)}
-happyReduce_31 = happyReduce 7# 15# happyReduction_31
-happyReduction_31 (happy_x_7 `HappyStk`
+happyReduce_32 = happyReduce 7# 15# happyReduction_32
+happyReduction_32 (happy_x_7 `HappyStk`
happy_x_6 `HappyStk`
happy_x_5 `HappyStk`
happy_x_4 `HappyStk`
@@ -815,8 +835,8 @@ happyReduction_31 (happy_x_7 `HappyStk`
(EProd happy_var_2 happy_var_4 happy_var_7
) `HappyStk` happyRest}}}
-happyReduce_32 = happyReduce 4# 15# happyReduction_32
-happyReduction_32 (happy_x_4 `HappyStk`
+happyReduce_33 = happyReduce 4# 15# happyReduction_33
+happyReduction_33 (happy_x_4 `HappyStk`
happy_x_3 `HappyStk`
happy_x_2 `HappyStk`
happy_x_1 `HappyStk`
@@ -827,8 +847,8 @@ happyReduction_32 (happy_x_4 `HappyStk`
(EAbs happy_var_2 happy_var_4
) `HappyStk` happyRest}}
-happyReduce_33 = happySpecReduce_3 15# happyReduction_33
-happyReduction_33 happy_x_3
+happyReduce_34 = happySpecReduce_3 15# happyReduction_34
+happyReduction_34 happy_x_3
happy_x_2
happy_x_1
= case happyOut26 happy_x_2 of { happy_var_2 ->
@@ -836,28 +856,28 @@ happyReduction_33 happy_x_3
(EEq (reverse happy_var_2)
)}
-happyReduce_34 = happySpecReduce_1 15# happyReduction_34
-happyReduction_34 happy_x_1
+happyReduce_35 = happySpecReduce_1 15# happyReduction_35
+happyReduction_35 happy_x_1
= case happyOut18 happy_x_1 of { happy_var_1 ->
happyIn19
(happy_var_1
)}
-happyReduce_35 = happySpecReduce_1 16# happyReduction_35
-happyReduction_35 happy_x_1
+happyReduce_36 = happySpecReduce_1 16# happyReduction_36
+happyReduction_36 happy_x_1
= case happyOut27 happy_x_1 of { happy_var_1 ->
happyIn20
(EAtom happy_var_1
)}
-happyReduce_36 = happySpecReduce_1 16# happyReduction_36
-happyReduction_36 happy_x_1
+happyReduce_37 = happySpecReduce_1 16# happyReduction_37
+happyReduction_37 happy_x_1
= happyIn20
(EData
)
-happyReduce_37 = happySpecReduce_3 16# happyReduction_37
-happyReduction_37 happy_x_3
+happyReduce_38 = happySpecReduce_3 16# happyReduction_38
+happyReduction_38 happy_x_3
happy_x_2
happy_x_1
= case happyOut19 happy_x_2 of { happy_var_2 ->
@@ -865,14 +885,14 @@ happyReduction_37 happy_x_3
(happy_var_2
)}
-happyReduce_38 = happySpecReduce_1 17# happyReduction_38
-happyReduction_38 happy_x_1
+happyReduce_39 = happySpecReduce_1 17# happyReduction_39
+happyReduction_39 happy_x_1
= happyIn21
(SType
)
-happyReduce_39 = happySpecReduce_3 18# happyReduction_39
-happyReduction_39 happy_x_3
+happyReduce_40 = happySpecReduce_3 18# happyReduction_40
+happyReduction_40 happy_x_3
happy_x_2
happy_x_1
= case happyOut25 happy_x_1 of { happy_var_1 ->
@@ -881,8 +901,8 @@ happyReduction_39 happy_x_3
(Equ (reverse happy_var_1) happy_var_3
)}}
-happyReduce_40 = happyReduce 4# 19# happyReduction_40
-happyReduction_40 (happy_x_4 `HappyStk`
+happyReduce_41 = happyReduce 4# 19# happyReduction_41
+happyReduction_41 (happy_x_4 `HappyStk`
happy_x_3 `HappyStk`
happy_x_2 `HappyStk`
happy_x_1 `HappyStk`
@@ -893,47 +913,47 @@ happyReduction_40 (happy_x_4 `HappyStk`
(APC happy_var_2 (reverse happy_var_3)
) `HappyStk` happyRest}}
-happyReduce_41 = happySpecReduce_1 19# happyReduction_41
-happyReduction_41 happy_x_1
+happyReduce_42 = happySpecReduce_1 19# happyReduction_42
+happyReduction_42 happy_x_1
= case happyOut4 happy_x_1 of { happy_var_1 ->
happyIn23
(APV happy_var_1
)}
-happyReduce_42 = happySpecReduce_1 19# happyReduction_42
-happyReduction_42 happy_x_1
+happyReduce_43 = happySpecReduce_1 19# happyReduction_43
+happyReduction_43 happy_x_1
= case happyOut5 happy_x_1 of { happy_var_1 ->
happyIn23
(APS happy_var_1
)}
-happyReduce_43 = happySpecReduce_1 19# happyReduction_43
-happyReduction_43 happy_x_1
+happyReduce_44 = happySpecReduce_1 19# happyReduction_44
+happyReduction_44 happy_x_1
= case happyOut6 happy_x_1 of { happy_var_1 ->
happyIn23
(API happy_var_1
)}
-happyReduce_44 = happySpecReduce_1 19# happyReduction_44
-happyReduction_44 happy_x_1
+happyReduce_45 = happySpecReduce_1 19# happyReduction_45
+happyReduction_45 happy_x_1
= happyIn23
(APW
)
-happyReduce_45 = happySpecReduce_0 20# happyReduction_45
-happyReduction_45 = happyIn24
+happyReduce_46 = happySpecReduce_0 20# happyReduction_46
+happyReduction_46 = happyIn24
([]
)
-happyReduce_46 = happySpecReduce_1 20# happyReduction_46
-happyReduction_46 happy_x_1
+happyReduce_47 = happySpecReduce_1 20# happyReduction_47
+happyReduction_47 happy_x_1
= case happyOut28 happy_x_1 of { happy_var_1 ->
happyIn24
((:[]) happy_var_1
)}
-happyReduce_47 = happySpecReduce_3 20# happyReduction_47
-happyReduction_47 happy_x_3
+happyReduce_48 = happySpecReduce_3 20# happyReduction_48
+happyReduction_48 happy_x_3
happy_x_2
happy_x_1
= case happyOut28 happy_x_1 of { happy_var_1 ->
@@ -942,13 +962,13 @@ happyReduction_47 happy_x_3
((:) happy_var_1 happy_var_3
)}}
-happyReduce_48 = happySpecReduce_0 21# happyReduction_48
-happyReduction_48 = happyIn25
+happyReduce_49 = happySpecReduce_0 21# happyReduction_49
+happyReduction_49 = happyIn25
([]
)
-happyReduce_49 = happySpecReduce_2 21# happyReduction_49
-happyReduction_49 happy_x_2
+happyReduce_50 = happySpecReduce_2 21# happyReduction_50
+happyReduction_50 happy_x_2
happy_x_1
= case happyOut25 happy_x_1 of { happy_var_1 ->
case happyOut23 happy_x_2 of { happy_var_2 ->
@@ -956,13 +976,13 @@ happyReduction_49 happy_x_2
(flip (:) happy_var_1 happy_var_2
)}}
-happyReduce_50 = happySpecReduce_0 22# happyReduction_50
-happyReduction_50 = happyIn26
+happyReduce_51 = happySpecReduce_0 22# happyReduction_51
+happyReduction_51 = happyIn26
([]
)
-happyReduce_51 = happySpecReduce_3 22# happyReduction_51
-happyReduction_51 happy_x_3
+happyReduce_52 = happySpecReduce_3 22# happyReduction_52
+happyReduction_52 happy_x_3
happy_x_2
happy_x_1
= case happyOut26 happy_x_1 of { happy_var_1 ->
@@ -971,15 +991,15 @@ happyReduction_51 happy_x_3
(flip (:) happy_var_1 happy_var_2
)}}
-happyReduce_52 = happySpecReduce_1 23# happyReduction_52
-happyReduction_52 happy_x_1
+happyReduce_53 = happySpecReduce_1 23# happyReduction_53
+happyReduction_53 happy_x_1
= case happyOut17 happy_x_1 of { happy_var_1 ->
happyIn27
(AC happy_var_1
)}
-happyReduce_53 = happySpecReduce_3 23# happyReduction_53
-happyReduction_53 happy_x_3
+happyReduce_54 = happySpecReduce_3 23# happyReduction_54
+happyReduction_54 happy_x_3
happy_x_2
happy_x_1
= case happyOut17 happy_x_2 of { happy_var_2 ->
@@ -987,45 +1007,45 @@ happyReduction_53 happy_x_3
(AD happy_var_2
)}
-happyReduce_54 = happySpecReduce_2 23# happyReduction_54
-happyReduction_54 happy_x_2
+happyReduce_55 = happySpecReduce_2 23# happyReduction_55
+happyReduction_55 happy_x_2
happy_x_1
= case happyOut4 happy_x_2 of { happy_var_2 ->
happyIn27
(AV happy_var_2
)}
-happyReduce_55 = happySpecReduce_2 23# happyReduction_55
-happyReduction_55 happy_x_2
+happyReduce_56 = happySpecReduce_2 23# happyReduction_56
+happyReduction_56 happy_x_2
happy_x_1
= case happyOut6 happy_x_2 of { happy_var_2 ->
happyIn27
(AM happy_var_2
)}
-happyReduce_56 = happySpecReduce_1 23# happyReduction_56
-happyReduction_56 happy_x_1
+happyReduce_57 = happySpecReduce_1 23# happyReduction_57
+happyReduction_57 happy_x_1
= case happyOut5 happy_x_1 of { happy_var_1 ->
happyIn27
(AS happy_var_1
)}
-happyReduce_57 = happySpecReduce_1 23# happyReduction_57
-happyReduction_57 happy_x_1
+happyReduce_58 = happySpecReduce_1 23# happyReduction_58
+happyReduction_58 happy_x_1
= case happyOut6 happy_x_1 of { happy_var_1 ->
happyIn27
(AI happy_var_1
)}
-happyReduce_58 = happySpecReduce_1 23# happyReduction_58
-happyReduction_58 happy_x_1
+happyReduce_59 = happySpecReduce_1 23# happyReduction_59
+happyReduction_59 happy_x_1
= case happyOut21 happy_x_1 of { happy_var_1 ->
happyIn27
(AT happy_var_1
)}
-happyReduce_59 = happySpecReduce_3 24# happyReduction_59
-happyReduction_59 happy_x_3
+happyReduce_60 = happySpecReduce_3 24# happyReduction_60
+happyReduction_60 happy_x_3
happy_x_2
happy_x_1
= case happyOut4 happy_x_1 of { happy_var_1 ->
@@ -1034,8 +1054,8 @@ happyReduction_59 happy_x_3
(Decl happy_var_1 happy_var_3
)}}
-happyReduce_60 = happySpecReduce_3 25# happyReduction_60
-happyReduction_60 happy_x_3
+happyReduce_61 = happySpecReduce_3 25# happyReduction_61
+happyReduction_61 happy_x_3
happy_x_2
happy_x_1
= case happyOut49 happy_x_2 of { happy_var_2 ->
@@ -1043,8 +1063,8 @@ happyReduction_60 happy_x_3
(RecType happy_var_2
)}
-happyReduce_61 = happyReduce 5# 25# happyReduction_61
-happyReduction_61 (happy_x_5 `HappyStk`
+happyReduce_62 = happyReduce 5# 25# happyReduction_62
+happyReduction_62 (happy_x_5 `HappyStk`
happy_x_4 `HappyStk`
happy_x_3 `HappyStk`
happy_x_2 `HappyStk`
@@ -1056,21 +1076,21 @@ happyReduction_61 (happy_x_5 `HappyStk`
(Table happy_var_2 happy_var_4
) `HappyStk` happyRest}}
-happyReduce_62 = happySpecReduce_1 25# happyReduction_62
-happyReduction_62 happy_x_1
+happyReduce_63 = happySpecReduce_1 25# happyReduction_63
+happyReduction_63 happy_x_1
= case happyOut17 happy_x_1 of { happy_var_1 ->
happyIn29
(Cn happy_var_1
)}
-happyReduce_63 = happySpecReduce_1 25# happyReduction_63
-happyReduction_63 happy_x_1
+happyReduce_64 = happySpecReduce_1 25# happyReduction_64
+happyReduction_64 happy_x_1
= happyIn29
(TStr
)
-happyReduce_64 = happySpecReduce_3 26# happyReduction_64
-happyReduction_64 happy_x_3
+happyReduce_65 = happySpecReduce_3 26# happyReduction_65
+happyReduction_65 happy_x_3
happy_x_2
happy_x_1
= case happyOut38 happy_x_1 of { happy_var_1 ->
@@ -1079,22 +1099,22 @@ happyReduction_64 happy_x_3
(Lbg happy_var_1 happy_var_3
)}}
-happyReduce_65 = happySpecReduce_1 27# happyReduction_65
-happyReduction_65 happy_x_1
+happyReduce_66 = happySpecReduce_1 27# happyReduction_66
+happyReduction_66 happy_x_1
= case happyOut39 happy_x_1 of { happy_var_1 ->
happyIn31
(Arg happy_var_1
)}
-happyReduce_66 = happySpecReduce_1 27# happyReduction_66
-happyReduction_66 happy_x_1
+happyReduce_67 = happySpecReduce_1 27# happyReduction_67
+happyReduction_67 happy_x_1
= case happyOut17 happy_x_1 of { happy_var_1 ->
happyIn31
(I happy_var_1
)}
-happyReduce_67 = happyReduce 4# 27# happyReduction_67
-happyReduction_67 (happy_x_4 `HappyStk`
+happyReduce_68 = happyReduce 4# 27# happyReduction_68
+happyReduction_68 (happy_x_4 `HappyStk`
happy_x_3 `HappyStk`
happy_x_2 `HappyStk`
happy_x_1 `HappyStk`
@@ -1105,16 +1125,16 @@ happyReduction_67 (happy_x_4 `HappyStk`
(Con happy_var_2 (reverse happy_var_3)
) `HappyStk` happyRest}}
-happyReduce_68 = happySpecReduce_2 27# happyReduction_68
-happyReduction_68 happy_x_2
+happyReduce_69 = happySpecReduce_2 27# happyReduction_69
+happyReduction_69 happy_x_2
happy_x_1
= case happyOut4 happy_x_2 of { happy_var_2 ->
happyIn31
(LI happy_var_2
)}
-happyReduce_69 = happySpecReduce_3 27# happyReduction_69
-happyReduction_69 happy_x_3
+happyReduce_70 = happySpecReduce_3 27# happyReduction_70
+happyReduction_70 happy_x_3
happy_x_2
happy_x_1
= case happyOut47 happy_x_2 of { happy_var_2 ->
@@ -1122,22 +1142,22 @@ happyReduction_69 happy_x_3
(R happy_var_2
)}
-happyReduce_70 = happySpecReduce_1 27# happyReduction_70
-happyReduction_70 happy_x_1
+happyReduce_71 = happySpecReduce_1 27# happyReduction_71
+happyReduction_71 happy_x_1
= case happyOut34 happy_x_1 of { happy_var_1 ->
happyIn31
(K happy_var_1
)}
-happyReduce_71 = happySpecReduce_2 27# happyReduction_71
-happyReduction_71 happy_x_2
+happyReduce_72 = happySpecReduce_2 27# happyReduction_72
+happyReduction_72 happy_x_2
happy_x_1
= happyIn31
(E
)
-happyReduce_72 = happySpecReduce_3 27# happyReduction_72
-happyReduction_72 happy_x_3
+happyReduce_73 = happySpecReduce_3 27# happyReduction_73
+happyReduction_73 happy_x_3
happy_x_2
happy_x_1
= case happyOut33 happy_x_2 of { happy_var_2 ->
@@ -1145,8 +1165,8 @@ happyReduction_72 happy_x_3
(happy_var_2
)}
-happyReduce_73 = happySpecReduce_3 28# happyReduction_73
-happyReduction_73 happy_x_3
+happyReduce_74 = happySpecReduce_3 28# happyReduction_74
+happyReduction_74 happy_x_3
happy_x_2
happy_x_1
= case happyOut31 happy_x_1 of { happy_var_1 ->
@@ -1155,8 +1175,8 @@ happyReduction_73 happy_x_3
(P happy_var_1 happy_var_3
)}}
-happyReduce_74 = happyReduce 5# 28# happyReduction_74
-happyReduction_74 (happy_x_5 `HappyStk`
+happyReduce_75 = happyReduce 5# 28# happyReduction_75
+happyReduction_75 (happy_x_5 `HappyStk`
happy_x_4 `HappyStk`
happy_x_3 `HappyStk`
happy_x_2 `HappyStk`
@@ -1168,8 +1188,8 @@ happyReduction_74 (happy_x_5 `HappyStk`
(T happy_var_2 happy_var_4
) `HappyStk` happyRest}}
-happyReduce_75 = happySpecReduce_3 28# happyReduction_75
-happyReduction_75 happy_x_3
+happyReduce_76 = happySpecReduce_3 28# happyReduction_76
+happyReduction_76 happy_x_3
happy_x_2
happy_x_1
= case happyOut32 happy_x_1 of { happy_var_1 ->
@@ -1178,8 +1198,8 @@ happyReduction_75 happy_x_3
(S happy_var_1 happy_var_3
)}}
-happyReduce_76 = happyReduce 4# 28# happyReduction_76
-happyReduction_76 (happy_x_4 `HappyStk`
+happyReduce_77 = happyReduce 4# 28# happyReduction_77
+happyReduction_77 (happy_x_4 `HappyStk`
happy_x_3 `HappyStk`
happy_x_2 `HappyStk`
happy_x_1 `HappyStk`
@@ -1189,15 +1209,15 @@ happyReduction_76 (happy_x_4 `HappyStk`
(FV (reverse happy_var_3)
) `HappyStk` happyRest}
-happyReduce_77 = happySpecReduce_1 28# happyReduction_77
-happyReduction_77 happy_x_1
+happyReduce_78 = happySpecReduce_1 28# happyReduction_78
+happyReduction_78 happy_x_1
= case happyOut31 happy_x_1 of { happy_var_1 ->
happyIn32
(happy_var_1
)}
-happyReduce_78 = happySpecReduce_3 29# happyReduction_78
-happyReduction_78 happy_x_3
+happyReduce_79 = happySpecReduce_3 29# happyReduction_79
+happyReduction_79 happy_x_3
happy_x_2
happy_x_1
= case happyOut33 happy_x_1 of { happy_var_1 ->
@@ -1206,22 +1226,22 @@ happyReduction_78 happy_x_3
(C happy_var_1 happy_var_3
)}}
-happyReduce_79 = happySpecReduce_1 29# happyReduction_79
-happyReduction_79 happy_x_1
+happyReduce_80 = happySpecReduce_1 29# happyReduction_80
+happyReduction_80 happy_x_1
= case happyOut32 happy_x_1 of { happy_var_1 ->
happyIn33
(happy_var_1
)}
-happyReduce_80 = happySpecReduce_1 30# happyReduction_80
-happyReduction_80 happy_x_1
+happyReduce_81 = happySpecReduce_1 30# happyReduction_81
+happyReduction_81 happy_x_1
= case happyOut5 happy_x_1 of { happy_var_1 ->
happyIn34
(KS happy_var_1
)}
-happyReduce_81 = happyReduce 7# 30# happyReduction_81
-happyReduction_81 (happy_x_7 `HappyStk`
+happyReduce_82 = happyReduce 7# 30# happyReduction_82
+happyReduction_82 (happy_x_7 `HappyStk`
happy_x_6 `HappyStk`
happy_x_5 `HappyStk`
happy_x_4 `HappyStk`
@@ -1235,8 +1255,8 @@ happyReduction_81 (happy_x_7 `HappyStk`
(KP (reverse happy_var_3) happy_var_5
) `HappyStk` happyRest}}
-happyReduce_82 = happySpecReduce_3 31# happyReduction_82
-happyReduction_82 happy_x_3
+happyReduce_83 = happySpecReduce_3 31# happyReduction_83
+happyReduction_83 happy_x_3
happy_x_2
happy_x_1
= case happyOut38 happy_x_1 of { happy_var_1 ->
@@ -1245,8 +1265,8 @@ happyReduction_82 happy_x_3
(Ass happy_var_1 happy_var_3
)}}
-happyReduce_83 = happySpecReduce_3 32# happyReduction_83
-happyReduction_83 happy_x_3
+happyReduce_84 = happySpecReduce_3 32# happyReduction_84
+happyReduction_84 happy_x_3
happy_x_2
happy_x_1
= case happyOut55 happy_x_1 of { happy_var_1 ->
@@ -1255,8 +1275,8 @@ happyReduction_83 happy_x_3
(Cas (reverse happy_var_1) happy_var_3
)}}
-happyReduce_84 = happySpecReduce_3 33# happyReduction_84
-happyReduction_84 happy_x_3
+happyReduce_85 = happySpecReduce_3 33# happyReduction_85
+happyReduction_85 happy_x_3
happy_x_2
happy_x_1
= case happyOut52 happy_x_1 of { happy_var_1 ->
@@ -1265,23 +1285,23 @@ happyReduction_84 happy_x_3
(Var (reverse happy_var_1) (reverse happy_var_3)
)}}
-happyReduce_85 = happySpecReduce_1 34# happyReduction_85
-happyReduction_85 happy_x_1
+happyReduce_86 = happySpecReduce_1 34# happyReduction_86
+happyReduction_86 happy_x_1
= case happyOut4 happy_x_1 of { happy_var_1 ->
happyIn38
(L happy_var_1
)}
-happyReduce_86 = happySpecReduce_2 34# happyReduction_86
-happyReduction_86 happy_x_2
+happyReduce_87 = happySpecReduce_2 34# happyReduction_87
+happyReduction_87 happy_x_2
happy_x_1
= case happyOut6 happy_x_2 of { happy_var_2 ->
happyIn38
(LV happy_var_2
)}
-happyReduce_87 = happySpecReduce_3 35# happyReduction_87
-happyReduction_87 happy_x_3
+happyReduce_88 = happySpecReduce_3 35# happyReduction_88
+happyReduction_88 happy_x_3
happy_x_2
happy_x_1
= case happyOut4 happy_x_1 of { happy_var_1 ->
@@ -1290,8 +1310,8 @@ happyReduction_87 happy_x_3
(A happy_var_1 happy_var_3
)}}
-happyReduce_88 = happyReduce 5# 35# happyReduction_88
-happyReduction_88 (happy_x_5 `HappyStk`
+happyReduce_89 = happyReduce 5# 35# happyReduction_89
+happyReduction_89 (happy_x_5 `HappyStk`
happy_x_4 `HappyStk`
happy_x_3 `HappyStk`
happy_x_2 `HappyStk`
@@ -1304,8 +1324,8 @@ happyReduction_88 (happy_x_5 `HappyStk`
(AB happy_var_1 happy_var_3 happy_var_5
) `HappyStk` happyRest}}}
-happyReduce_89 = happyReduce 4# 36# happyReduction_89
-happyReduction_89 (happy_x_4 `HappyStk`
+happyReduce_90 = happyReduce 4# 36# happyReduction_90
+happyReduction_90 (happy_x_4 `HappyStk`
happy_x_3 `HappyStk`
happy_x_2 `HappyStk`
happy_x_1 `HappyStk`
@@ -1316,21 +1336,21 @@ happyReduction_89 (happy_x_4 `HappyStk`
(PC happy_var_2 (reverse happy_var_3)
) `HappyStk` happyRest}}
-happyReduce_90 = happySpecReduce_1 36# happyReduction_90
-happyReduction_90 happy_x_1
+happyReduce_91 = happySpecReduce_1 36# happyReduction_91
+happyReduction_91 happy_x_1
= case happyOut4 happy_x_1 of { happy_var_1 ->
happyIn40
(PV happy_var_1
)}
-happyReduce_91 = happySpecReduce_1 36# happyReduction_91
-happyReduction_91 happy_x_1
+happyReduce_92 = happySpecReduce_1 36# happyReduction_92
+happyReduction_92 happy_x_1
= happyIn40
(PW
)
-happyReduce_92 = happySpecReduce_3 36# happyReduction_92
-happyReduction_92 happy_x_3
+happyReduce_93 = happySpecReduce_3 36# happyReduction_93
+happyReduction_93 happy_x_3
happy_x_2
happy_x_1
= case happyOut54 happy_x_2 of { happy_var_2 ->
@@ -1338,8 +1358,8 @@ happyReduction_92 happy_x_3
(PR happy_var_2
)}
-happyReduce_93 = happySpecReduce_3 37# happyReduction_93
-happyReduction_93 happy_x_3
+happyReduce_94 = happySpecReduce_3 37# happyReduction_94
+happyReduction_94 happy_x_3
happy_x_2
happy_x_1
= case happyOut38 happy_x_1 of { happy_var_1 ->
@@ -1348,13 +1368,13 @@ happyReduction_93 happy_x_3
(PAss happy_var_1 happy_var_3
)}}
-happyReduce_94 = happySpecReduce_0 38# happyReduction_94
-happyReduction_94 = happyIn42
+happyReduce_95 = happySpecReduce_0 38# happyReduction_95
+happyReduction_95 = happyIn42
([]
)
-happyReduce_95 = happySpecReduce_3 38# happyReduction_95
-happyReduction_95 happy_x_3
+happyReduce_96 = happySpecReduce_3 38# happyReduction_96
+happyReduction_96 happy_x_3
happy_x_2
happy_x_1
= case happyOut42 happy_x_1 of { happy_var_1 ->
@@ -1363,13 +1383,13 @@ happyReduction_95 happy_x_3
(flip (:) happy_var_1 happy_var_2
)}}
-happyReduce_96 = happySpecReduce_0 39# happyReduction_96
-happyReduction_96 = happyIn43
+happyReduce_97 = happySpecReduce_0 39# happyReduction_97
+happyReduction_97 = happyIn43
([]
)
-happyReduce_97 = happySpecReduce_3 39# happyReduction_97
-happyReduction_97 happy_x_3
+happyReduce_98 = happySpecReduce_3 39# happyReduction_98
+happyReduction_98 happy_x_3
happy_x_2
happy_x_1
= case happyOut43 happy_x_1 of { happy_var_1 ->
@@ -1378,20 +1398,20 @@ happyReduction_97 happy_x_3
(flip (:) happy_var_1 happy_var_2
)}}
-happyReduce_98 = happySpecReduce_0 40# happyReduction_98
-happyReduction_98 = happyIn44
+happyReduce_99 = happySpecReduce_0 40# happyReduction_99
+happyReduction_99 = happyIn44
([]
)
-happyReduce_99 = happySpecReduce_1 40# happyReduction_99
-happyReduction_99 happy_x_1
+happyReduce_100 = happySpecReduce_1 40# happyReduction_100
+happyReduction_100 happy_x_1
= case happyOut15 happy_x_1 of { happy_var_1 ->
happyIn44
((:[]) happy_var_1
)}
-happyReduce_100 = happySpecReduce_3 40# happyReduction_100
-happyReduction_100 happy_x_3
+happyReduce_101 = happySpecReduce_3 40# happyReduction_101
+happyReduction_101 happy_x_3
happy_x_2
happy_x_1
= case happyOut15 happy_x_1 of { happy_var_1 ->
@@ -1400,13 +1420,13 @@ happyReduction_100 happy_x_3
((:) happy_var_1 happy_var_3
)}}
-happyReduce_101 = happySpecReduce_0 41# happyReduction_101
-happyReduction_101 = happyIn45
+happyReduce_102 = happySpecReduce_0 41# happyReduction_102
+happyReduction_102 = happyIn45
([]
)
-happyReduce_102 = happySpecReduce_2 41# happyReduction_102
-happyReduction_102 happy_x_2
+happyReduce_103 = happySpecReduce_2 41# happyReduction_103
+happyReduction_103 happy_x_2
happy_x_1
= case happyOut45 happy_x_1 of { happy_var_1 ->
case happyOut29 happy_x_2 of { happy_var_2 ->
@@ -1414,13 +1434,13 @@ happyReduction_102 happy_x_2
(flip (:) happy_var_1 happy_var_2
)}}
-happyReduce_103 = happySpecReduce_0 42# happyReduction_103
-happyReduction_103 = happyIn46
+happyReduce_104 = happySpecReduce_0 42# happyReduction_104
+happyReduction_104 = happyIn46
([]
)
-happyReduce_104 = happySpecReduce_2 42# happyReduction_104
-happyReduction_104 happy_x_2
+happyReduce_105 = happySpecReduce_2 42# happyReduction_105
+happyReduction_105 happy_x_2
happy_x_1
= case happyOut46 happy_x_1 of { happy_var_1 ->
case happyOut17 happy_x_2 of { happy_var_2 ->
@@ -1428,20 +1448,20 @@ happyReduction_104 happy_x_2
(flip (:) happy_var_1 happy_var_2
)}}
-happyReduce_105 = happySpecReduce_0 43# happyReduction_105
-happyReduction_105 = happyIn47
+happyReduce_106 = happySpecReduce_0 43# happyReduction_106
+happyReduction_106 = happyIn47
([]
)
-happyReduce_106 = happySpecReduce_1 43# happyReduction_106
-happyReduction_106 happy_x_1
+happyReduce_107 = happySpecReduce_1 43# happyReduction_107
+happyReduction_107 happy_x_1
= case happyOut35 happy_x_1 of { happy_var_1 ->
happyIn47
((:[]) happy_var_1
)}
-happyReduce_107 = happySpecReduce_3 43# happyReduction_107
-happyReduction_107 happy_x_3
+happyReduce_108 = happySpecReduce_3 43# happyReduction_108
+happyReduction_108 happy_x_3
happy_x_2
happy_x_1
= case happyOut35 happy_x_1 of { happy_var_1 ->
@@ -1450,20 +1470,20 @@ happyReduction_107 happy_x_3
((:) happy_var_1 happy_var_3
)}}
-happyReduce_108 = happySpecReduce_0 44# happyReduction_108
-happyReduction_108 = happyIn48
+happyReduce_109 = happySpecReduce_0 44# happyReduction_109
+happyReduction_109 = happyIn48
([]
)
-happyReduce_109 = happySpecReduce_1 44# happyReduction_109
-happyReduction_109 happy_x_1
+happyReduce_110 = happySpecReduce_1 44# happyReduction_110
+happyReduction_110 happy_x_1
= case happyOut39 happy_x_1 of { happy_var_1 ->
happyIn48
((:[]) happy_var_1
)}
-happyReduce_110 = happySpecReduce_3 44# happyReduction_110
-happyReduction_110 happy_x_3
+happyReduce_111 = happySpecReduce_3 44# happyReduction_111
+happyReduction_111 happy_x_3
happy_x_2
happy_x_1
= case happyOut39 happy_x_1 of { happy_var_1 ->
@@ -1472,20 +1492,20 @@ happyReduction_110 happy_x_3
((:) happy_var_1 happy_var_3
)}}
-happyReduce_111 = happySpecReduce_0 45# happyReduction_111
-happyReduction_111 = happyIn49
+happyReduce_112 = happySpecReduce_0 45# happyReduction_112
+happyReduction_112 = happyIn49
([]
)
-happyReduce_112 = happySpecReduce_1 45# happyReduction_112
-happyReduction_112 happy_x_1
+happyReduce_113 = happySpecReduce_1 45# happyReduction_113
+happyReduction_113 happy_x_1
= case happyOut30 happy_x_1 of { happy_var_1 ->
happyIn49
((:[]) happy_var_1
)}
-happyReduce_113 = happySpecReduce_3 45# happyReduction_113
-happyReduction_113 happy_x_3
+happyReduce_114 = happySpecReduce_3 45# happyReduction_114
+happyReduction_114 happy_x_3
happy_x_2
happy_x_1
= case happyOut30 happy_x_1 of { happy_var_1 ->
@@ -1494,20 +1514,20 @@ happyReduction_113 happy_x_3
((:) happy_var_1 happy_var_3
)}}
-happyReduce_114 = happySpecReduce_0 46# happyReduction_114
-happyReduction_114 = happyIn50
+happyReduce_115 = happySpecReduce_0 46# happyReduction_115
+happyReduction_115 = happyIn50
([]
)
-happyReduce_115 = happySpecReduce_1 46# happyReduction_115
-happyReduction_115 happy_x_1
+happyReduce_116 = happySpecReduce_1 46# happyReduction_116
+happyReduction_116 happy_x_1
= case happyOut36 happy_x_1 of { happy_var_1 ->
happyIn50
((:[]) happy_var_1
)}
-happyReduce_116 = happySpecReduce_3 46# happyReduction_116
-happyReduction_116 happy_x_3
+happyReduce_117 = happySpecReduce_3 46# happyReduction_117
+happyReduction_117 happy_x_3
happy_x_2
happy_x_1
= case happyOut36 happy_x_1 of { happy_var_1 ->
@@ -1516,13 +1536,13 @@ happyReduction_116 happy_x_3
((:) happy_var_1 happy_var_3
)}}
-happyReduce_117 = happySpecReduce_0 47# happyReduction_117
-happyReduction_117 = happyIn51
+happyReduce_118 = happySpecReduce_0 47# happyReduction_118
+happyReduction_118 = happyIn51
([]
)
-happyReduce_118 = happySpecReduce_2 47# happyReduction_118
-happyReduction_118 happy_x_2
+happyReduce_119 = happySpecReduce_2 47# happyReduction_119
+happyReduction_119 happy_x_2
happy_x_1
= case happyOut51 happy_x_1 of { happy_var_1 ->
case happyOut31 happy_x_2 of { happy_var_2 ->
@@ -1530,13 +1550,13 @@ happyReduction_118 happy_x_2
(flip (:) happy_var_1 happy_var_2
)}}
-happyReduce_119 = happySpecReduce_0 48# happyReduction_119
-happyReduction_119 = happyIn52
+happyReduce_120 = happySpecReduce_0 48# happyReduction_120
+happyReduction_120 = happyIn52
([]
)
-happyReduce_120 = happySpecReduce_2 48# happyReduction_120
-happyReduction_120 happy_x_2
+happyReduce_121 = happySpecReduce_2 48# happyReduction_121
+happyReduction_121 happy_x_2
happy_x_1
= case happyOut52 happy_x_1 of { happy_var_1 ->
case happyOut5 happy_x_2 of { happy_var_2 ->
@@ -1544,20 +1564,20 @@ happyReduction_120 happy_x_2
(flip (:) happy_var_1 happy_var_2
)}}
-happyReduce_121 = happySpecReduce_0 49# happyReduction_121
-happyReduction_121 = happyIn53
+happyReduce_122 = happySpecReduce_0 49# happyReduction_122
+happyReduction_122 = happyIn53
([]
)
-happyReduce_122 = happySpecReduce_1 49# happyReduction_122
-happyReduction_122 happy_x_1
+happyReduce_123 = happySpecReduce_1 49# happyReduction_123
+happyReduction_123 happy_x_1
= case happyOut37 happy_x_1 of { happy_var_1 ->
happyIn53
((:[]) happy_var_1
)}
-happyReduce_123 = happySpecReduce_3 49# happyReduction_123
-happyReduction_123 happy_x_3
+happyReduce_124 = happySpecReduce_3 49# happyReduction_124
+happyReduction_124 happy_x_3
happy_x_2
happy_x_1
= case happyOut37 happy_x_1 of { happy_var_1 ->
@@ -1566,20 +1586,20 @@ happyReduction_123 happy_x_3
((:) happy_var_1 happy_var_3
)}}
-happyReduce_124 = happySpecReduce_0 50# happyReduction_124
-happyReduction_124 = happyIn54
+happyReduce_125 = happySpecReduce_0 50# happyReduction_125
+happyReduction_125 = happyIn54
([]
)
-happyReduce_125 = happySpecReduce_1 50# happyReduction_125
-happyReduction_125 happy_x_1
+happyReduce_126 = happySpecReduce_1 50# happyReduction_126
+happyReduction_126 happy_x_1
= case happyOut41 happy_x_1 of { happy_var_1 ->
happyIn54
((:[]) happy_var_1
)}
-happyReduce_126 = happySpecReduce_3 50# happyReduction_126
-happyReduction_126 happy_x_3
+happyReduce_127 = happySpecReduce_3 50# happyReduction_127
+happyReduction_127 happy_x_3
happy_x_2
happy_x_1
= case happyOut41 happy_x_1 of { happy_var_1 ->
@@ -1588,13 +1608,13 @@ happyReduction_126 happy_x_3
((:) happy_var_1 happy_var_3
)}}
-happyReduce_127 = happySpecReduce_0 51# happyReduction_127
-happyReduction_127 = happyIn55
+happyReduce_128 = happySpecReduce_0 51# happyReduction_128
+happyReduction_128 = happyIn55
([]
)
-happyReduce_128 = happySpecReduce_2 51# happyReduction_128
-happyReduction_128 happy_x_2
+happyReduce_129 = happySpecReduce_2 51# happyReduction_129
+happyReduction_129 happy_x_2
happy_x_1
= case happyOut55 happy_x_1 of { happy_var_1 ->
case happyOut40 happy_x_2 of { happy_var_2 ->
@@ -1602,20 +1622,20 @@ happyReduction_128 happy_x_2
(flip (:) happy_var_1 happy_var_2
)}}
-happyReduce_129 = happySpecReduce_0 52# happyReduction_129
-happyReduction_129 = happyIn56
+happyReduce_130 = happySpecReduce_0 52# happyReduction_130
+happyReduction_130 = happyIn56
([]
)
-happyReduce_130 = happySpecReduce_1 52# happyReduction_130
-happyReduction_130 happy_x_1
+happyReduce_131 = happySpecReduce_1 52# happyReduction_131
+happyReduction_131 happy_x_1
= case happyOut4 happy_x_1 of { happy_var_1 ->
happyIn56
((:[]) happy_var_1
)}
-happyReduce_131 = happySpecReduce_3 52# happyReduction_131
-happyReduction_131 happy_x_3
+happyReduce_132 = happySpecReduce_3 52# happyReduction_132
+happyReduction_132 happy_x_3
happy_x_2
happy_x_1
= case happyOut4 happy_x_1 of { happy_var_1 ->
@@ -1625,20 +1645,20 @@ happyReduction_131 happy_x_3
)}}
happyNewToken action sts stk [] =
- happyDoAction 51# (error "reading EOF!") action sts stk []
+ happyDoAction 52# (error "reading EOF!") action sts stk []
happyNewToken action sts stk (tk:tks) =
let cont i = happyDoAction i tk action sts stk tks in
case tk of {
- PT _ (TS "=") -> cont 1#;
- PT _ (TS "{") -> cont 2#;
- PT _ (TS "}") -> cont 3#;
- PT _ (TS ":") -> cont 4#;
- PT _ (TS "->") -> cont 5#;
- PT _ (TS "**") -> cont 6#;
- PT _ (TS "[") -> cont 7#;
- PT _ (TS "]") -> cont 8#;
- PT _ (TS ";") -> cont 9#;
+ PT _ (TS ";") -> cont 1#;
+ PT _ (TS "=") -> cont 2#;
+ PT _ (TS "{") -> cont 3#;
+ PT _ (TS "}") -> cont 4#;
+ PT _ (TS ":") -> cont 5#;
+ PT _ (TS "->") -> cont 6#;
+ PT _ (TS "**") -> cont 7#;
+ PT _ (TS "[") -> cont 8#;
+ PT _ (TS "]") -> cont 9#;
PT _ (TS "\\") -> cont 10#;
PT _ (TS ".") -> cont 11#;
PT _ (TS "(") -> cont 12#;
@@ -1664,31 +1684,37 @@ happyNewToken action sts stk (tk:tks) =
PT _ (TS "data") -> cont 32#;
PT _ (TS "flags") -> cont 33#;
PT _ (TS "fun") -> cont 34#;
- PT _ (TS "in") -> cont 35#;
- PT _ (TS "lin") -> cont 36#;
- PT _ (TS "lincat") -> cont 37#;
- PT _ (TS "of") -> cont 38#;
- PT _ (TS "open") -> cont 39#;
- PT _ (TS "oper") -> cont 40#;
- PT _ (TS "param") -> cont 41#;
- PT _ (TS "pre") -> cont 42#;
- PT _ (TS "resource") -> cont 43#;
- PT _ (TS "table") -> cont 44#;
- PT _ (TS "transfer") -> cont 45#;
- PT _ (TS "variants") -> cont 46#;
- PT _ (TV happy_dollar_dollar) -> cont 47#;
- PT _ (TL happy_dollar_dollar) -> cont 48#;
- PT _ (TI happy_dollar_dollar) -> cont 49#;
- _ -> cont 50#;
+ PT _ (TS "grammar") -> cont 35#;
+ PT _ (TS "in") -> cont 36#;
+ PT _ (TS "lin") -> cont 37#;
+ PT _ (TS "lincat") -> cont 38#;
+ PT _ (TS "of") -> cont 39#;
+ PT _ (TS "open") -> cont 40#;
+ PT _ (TS "oper") -> cont 41#;
+ PT _ (TS "param") -> cont 42#;
+ PT _ (TS "pre") -> cont 43#;
+ PT _ (TS "resource") -> cont 44#;
+ PT _ (TS "table") -> cont 45#;
+ PT _ (TS "transfer") -> cont 46#;
+ PT _ (TS "variants") -> cont 47#;
+ PT _ (TV happy_dollar_dollar) -> cont 48#;
+ PT _ (TL happy_dollar_dollar) -> cont 49#;
+ PT _ (TI happy_dollar_dollar) -> cont 50#;
+ _ -> cont 51#;
+ _ -> happyError tks
}
+happyThen :: Err a -> (a -> Err b) -> Err b
happyThen = (thenM)
+happyReturn :: a -> Err a
happyReturn = (returnM)
happyThen1 m k tks = (thenM) m (\a -> k a tks)
happyReturn1 = \a tks -> (returnM) a
pCanon tks = happyThen (happyParse 0# tks) (\x -> happyReturn (happyOut7 x))
+happySeq = happyDontSeq
+
returnM :: a -> Err a
returnM = return
@@ -1701,8 +1727,7 @@ happyError ts =
myLexer = tokens
{-# LINE 1 "GenericTemplate.hs" #-}
-{-# LINE 1 "GenericTemplate.hs" #-}
--- $Id: ParGFC.hs,v 1.1 2003/11/11 16:44:26 aarne Exp $
+-- $Id: ParGFC.hs,v 1.2 2004/09/14 18:05:47 aarne Exp $
@@ -1811,7 +1836,11 @@ happyDoAction i tk st
-indexShortOffAddr (A# arr) off =
+
+
+
+
+indexShortOffAddr (HappyA# arr) off =
#if __GLASGOW_HASKELL__ > 500
narrow16Int# i
#elif __GLASGOW_HASKELL__ == 500
@@ -1820,7 +1849,11 @@ indexShortOffAddr (A# arr) off =
(i `iShiftL#` 16#) `iShiftRA#` 16#
#endif
where
+#if __GLASGOW_HASKELL__ >= 503
+ i = word2Int# ((high `uncheckedShiftL#` 8#) `or#` low)
+#else
i = word2Int# ((high `shiftL#` 8#) `or#` low)
+#endif
high = int2Word# (ord# (indexCharOffAddr# arr (off' +# 1#)))
low = int2Word# (ord# (indexCharOffAddr# arr off'))
off' = off *# 2#
@@ -1829,11 +1862,15 @@ indexShortOffAddr (A# arr) off =
+data HappyAddr = HappyA# Addr#
+
+
+
-----------------------------------------------------------------------------
-- HappyState data type (not arrays)
-{-# LINE 153 "GenericTemplate.hs" #-}
+{-# LINE 165 "GenericTemplate.hs" #-}
-----------------------------------------------------------------------------
@@ -1857,22 +1894,28 @@ happySpecReduce_0 nt fn j tk st@((action)) sts stk
happySpecReduce_1 i fn 0# tk st sts stk
= happyFail 0# tk st sts stk
happySpecReduce_1 nt fn j tk _ sts@((HappyCons (st@(action)) (_))) (v1`HappyStk`stk')
- = happyGoto nt j tk st sts (fn v1 `HappyStk` stk')
+ = let r = fn v1 in
+ happySeq r (happyGoto nt j tk st sts (r `HappyStk` stk'))
happySpecReduce_2 i fn 0# tk st sts stk
= happyFail 0# tk st sts stk
happySpecReduce_2 nt fn j tk _ (HappyCons (_) (sts@((HappyCons (st@(action)) (_))))) (v1`HappyStk`v2`HappyStk`stk')
- = happyGoto nt j tk st sts (fn v1 v2 `HappyStk` stk')
+ = let r = fn v1 v2 in
+ happySeq r (happyGoto nt j tk st sts (r `HappyStk` stk'))
happySpecReduce_3 i fn 0# tk st sts stk
= happyFail 0# tk st sts stk
happySpecReduce_3 nt fn j tk _ (HappyCons (_) ((HappyCons (_) (sts@((HappyCons (st@(action)) (_))))))) (v1`HappyStk`v2`HappyStk`v3`HappyStk`stk')
- = happyGoto nt j tk st sts (fn v1 v2 v3 `HappyStk` stk')
+ = let r = fn v1 v2 v3 in
+ happySeq r (happyGoto nt j tk st sts (r `HappyStk` stk'))
happyReduce k i fn 0# tk st sts stk
= happyFail 0# tk st sts stk
-happyReduce k nt fn j tk st sts stk = happyGoto nt j tk st1 sts1 (fn stk)
- where sts1@((HappyCons (st1@(action)) (_))) = happyDrop k (HappyCons (st) (sts))
+happyReduce k nt fn j tk st sts stk
+ = case happyDrop (k -# (1# :: Int#)) sts of
+ sts1@((HappyCons (st1@(action)) (_))) ->
+ let r = fn stk in -- it doesn't hurt to always seq here...
+ happyDoSeq r (happyGoto nt j tk st1 sts1 r)
happyMonadReduce k nt fn 0# tk st sts stk
= happyFail 0# tk st sts stk
@@ -1941,6 +1984,16 @@ happyTcHack x y = y
-----------------------------------------------------------------------------
+-- Seq-ing. If the --strict flag is given, then Happy emits
+-- happySeq = happyDoSeq
+-- otherwise it emits
+-- happySeq = happyDontSeq
+
+happyDoSeq, happyDontSeq :: a -> b -> b
+happyDoSeq a b = a `seq` b
+happyDontSeq a b = b
+
+-----------------------------------------------------------------------------
-- Don't inline any functions from the template. GHC has a nasty habit
-- of deciding to inline happyGoto everywhere, which increases the size of
-- the generated parser quite a bit.
diff --git a/src/GF/Canon/PrintGFC.hs b/src/GF/Canon/PrintGFC.hs
index e2b6e057a..5182e9270 100644
--- a/src/GF/Canon/PrintGFC.hs
+++ b/src/GF/Canon/PrintGFC.hs
@@ -95,6 +95,7 @@ instance Print Ident where
instance Print Canon where
prt i e = case e of
+ MGr ids id modules -> prPrec i 0 (concatD [doc (showString "grammar") , prt 0 ids , doc (showString "of") , prt 0 id , doc (showString ";") , prt 0 modules])
Gr modules -> prPrec i 0 (concatD [prt 0 modules])
diff --git a/src/GF/Canon/SkelGFC.hs b/src/GF/Canon/SkelGFC.hs
index 2b4323356..e2a393ca3 100644
--- a/src/GF/Canon/SkelGFC.hs
+++ b/src/GF/Canon/SkelGFC.hs
@@ -16,6 +16,7 @@ transIdent x = case x of
transCanon :: Canon -> Result
transCanon x = case x of
+ MGr ids id modules -> failure x
Gr modules -> failure x
@@ -40,8 +41,8 @@ transExtend x = case x of
transOpen :: Open -> Result
transOpen x = case x of
- NoOpens -> failure x
Opens ids -> failure x
+ NoOpens -> failure x
transFlag :: Flag -> Result
diff --git a/src/GF/Canon/TestGFC.hs b/src/GF/Canon/TestGFC.hs
index 2210f4df3..ee4175610 100644
--- a/src/GF/Canon/TestGFC.hs
+++ b/src/GF/Canon/TestGFC.hs
@@ -1,5 +1,9 @@
-- automatically generated by BNF Converter
-module TestGFC where
+module Main where
+
+
+import IO ( stdin, hGetContents )
+import System ( getArgs, getProgName )
import LexGFC
import ParGFC
@@ -7,19 +11,29 @@ import SkelGFC
import PrintGFC
import AbsGFC
+
import ErrM
type ParseFun a = [Token] -> Err a
myLLexer = myLexer
-runFile :: (Print a, Show a) => ParseFun a -> FilePath -> IO()
+runFile :: (Print a, Show a) => ParseFun a -> FilePath -> IO ()
runFile p f = readFile f >>= run p
-run :: (Print a, Show a) => ParseFun a -> String -> IO()
+run :: (Print a, Show a) => ParseFun a -> String -> IO ()
run p s = case (p (myLLexer s)) of
Bad s -> do putStrLn "\nParse Failed...\n"
putStrLn s
Ok tree -> do putStrLn "\nParse Successful!"
putStrLn $ "\n[Abstract Syntax]\n\n" ++ show tree
putStrLn $ "\n[Linearized tree]\n\n" ++ printTree tree
+
+
+main :: IO ()
+main = do args <- getArgs
+ case args of
+ [] -> hGetContents stdin >>= run pCanon
+ [f] -> runFile pCanon f
+ _ -> do progName <- getProgName
+ putStrLn $ progName ++ ": excess arguments."
generated by cgit v1.2.3 (git 2.39.1) at 2026-06-02 14:44:30 +0000