summaryrefslogtreecommitdiff
path: root/src/GF/Canon
diff options
context:
space:
mode:
authoraarne <unknown>2005-01-11 15:06:12 +0000
committeraarne <unknown>2005-01-11 15:06:12 +0000
commit87b55df10f00fd23d89a89bfb7c4354ff455d83d (patch)
tree91d46e3592a49de8cf7b6b3917fcc0077df1dbd6 /src/GF/Canon
parentbb3d2e1d42e662a3add785670f289787d2e492e2 (diff)
-val optimization
Diffstat (limited to 'src/GF/Canon')
-rw-r--r--src/GF/Canon/AbsGFC.hs1
-rw-r--r--src/GF/Canon/CanonToGrammar.hs4
-rw-r--r--src/GF/Canon/GFC.cf1
-rw-r--r--src/GF/Canon/LexGFC.hs144
-rw-r--r--src/GF/Canon/LexGFC.x48
-rw-r--r--src/GF/Canon/Look.hs6
-rw-r--r--src/GF/Canon/ParGFC.hs264
-rw-r--r--src/GF/Canon/PrintGFC.hs1
-rw-r--r--src/GF/Canon/Share.hs9
-rw-r--r--src/GF/Canon/SkelGFC.hs2
-rw-r--r--src/GF/Canon/TestGFC.hs28
11 files changed, 265 insertions, 243 deletions
diff --git a/src/GF/Canon/AbsGFC.hs b/src/GF/Canon/AbsGFC.hs
index 846a570b8..e0f4c418e 100644
--- a/src/GF/Canon/AbsGFC.hs
+++ b/src/GF/Canon/AbsGFC.hs
@@ -119,6 +119,7 @@ data Term =
| R [Assign]
| P Term Label
| T CType [Case]
+ | V CType [Term]
| S Term Term
| C Term Term
| FV [Term]
diff --git a/src/GF/Canon/CanonToGrammar.hs b/src/GF/Canon/CanonToGrammar.hs
index 75dc81bc0..e53af46be 100644
--- a/src/GF/Canon/CanonToGrammar.hs
+++ b/src/GF/Canon/CanonToGrammar.hs
@@ -136,6 +136,10 @@ redCTerm x = case x of
[G.PV _] -> G.TTyped ctype'
_ -> G.TComp ctype'
return $ G.T tinfo $ zip ps' ts'
+ V ctype ts -> do
+ ctype' <- redCType ctype
+ ts' <- mapM redCTerm ts
+ return $ G.V ctype' ts'
S term0 term -> liftM2 G.S (redCTerm term0) (redCTerm term)
C term0 term -> liftM2 G.C (redCTerm term0) (redCTerm term)
FV terms -> liftM G.FV $ mapM redCTerm terms
diff --git a/src/GF/Canon/GFC.cf b/src/GF/Canon/GFC.cf
index a7199af4c..7d258b38e 100644
--- a/src/GF/Canon/GFC.cf
+++ b/src/GF/Canon/GFC.cf
@@ -105,6 +105,7 @@ LI. Term2 ::= "$" Ident ; -- from pattern variables
R. Term2 ::= "{" [Assign] "}" ;
P. Term1 ::= Term2 "." Label ;
T. Term1 ::= "table" CType "{" [Case] "}" ;
+V. Term1 ::= "table" CType "[" [Term2] "]" ;
S. Term1 ::= Term1 "!" Term2 ;
C. Term ::= Term "++" Term1 ;
FV. Term1 ::= "variants" "{" [Term2] "}" ; --- no separator!
diff --git a/src/GF/Canon/LexGFC.hs b/src/GF/Canon/LexGFC.hs
index 77f70159f..b181a18ec 100644
--- a/src/GF/Canon/LexGFC.hs
+++ b/src/GF/Canon/LexGFC.hs
@@ -1,9 +1,8 @@
-{-# OPTIONS -fglasgow-exts -cpp #-}
+{-# OPTIONS -cpp #-}
{-# LINE 3 "LexGFC.x" #-}
module LexGFC where
import ErrM
-import SharedString
#if __GLASGOW_HASKELL__ >= 503
import Data.Array
@@ -13,38 +12,30 @@ import Data.Array.Base (unsafeAt)
import Array
import Char (ord)
#endif
-#if __GLASGOW_HASKELL__ >= 503
-import GHC.Exts
-#else
-import GlaExts
-#endif
-alex_base :: AlexAddr
-alex_base = AlexA# "\x01\x00\x39\x00\x42\x00\x00\x00\x09\x00\x1d\x00\x0b\x00\x20\x00\x9a\x00\x6a\x01\x00\x00\x15\x01\xe5\x01\xd3\x00\x33\x00"#
+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 :: AlexAddr
-alex_table = AlexA# "\x00\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x02\x00\x02\x00\x02\x00\x02\x00\x02\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\x02\x00\x03\x00\x0b\x00\xff\xff\x03\x00\xff\xff\xff\xff\xff\xff\x03\x00\x03\x00\x07\x00\x05\x00\x03\x00\x06\x00\x03\x00\x03\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x03\x00\x03\x00\x03\x00\x04\x00\x03\x00\x03\x00\x03\x00\x02\x00\x02\x00\x02\x00\x02\x00\x02\x00\x03\x00\x03\x00\x03\x00\x03\x00\x02\x00\x02\x00\x02\x00\x02\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00\x03\x00\x03\x00\x03\x00\xff\xff\x03\x00\xff\xff\x02\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\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\x03\x00\x03\x00\x03\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\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\x09\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x00\x00\x00\x00\x00\x00\x00\x00\xff\xff\x00\x00\x00\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x0c\x00\x00\x00\x00\x00\xff\xff\x09\x00\x0c\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\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\x0c\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0a\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0c\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0c\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\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x0d\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x00\x00\x00\x00\x00\x00\x00\x00\x09\x00\x00\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\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\x0a\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\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x0d\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x00\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\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\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\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\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"#
+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]
-alex_check :: AlexAddr
-alex_check = AlexA# "\xff\xff\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x05\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x13\x00\x14\x00\x15\x00\x16\x00\x17\x00\x18\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x24\x00\x25\x00\x26\x00\x27\x00\x28\x00\x29\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x39\x00\x3a\x00\x3b\x00\x3c\x00\x3d\x00\x3e\x00\x3f\x00\x40\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x3e\x00\x2b\x00\x3e\x00\x2a\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x20\x00\xff\xff\xff\xff\x5b\x00\x5c\x00\x5d\x00\x5e\x00\x5f\x00\x60\x00\x20\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x39\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\x7b\x00\x7c\x00\x7d\x00\x7e\x00\x7f\x00\x80\x00\x81\x00\x82\x00\x83\x00\x84\x00\x85\x00\x86\x00\x87\x00\x88\x00\x89\x00\x8a\x00\x8b\x00\x8c\x00\x8d\x00\x8e\x00\x8f\x00\x90\x00\x91\x00\x92\x00\x93\x00\x94\x00\x95\x00\x96\x00\x97\x00\x98\x00\x99\x00\x9a\x00\x9b\x00\x9c\x00\x9d\x00\x9e\x00\x9f\x00\xa0\x00\xa1\x00\xa2\x00\xa3\x00\xa4\x00\xa5\x00\xa6\x00\xa7\x00\xa8\x00\xa9\x00\xaa\x00\xab\x00\xac\x00\xad\x00\xae\x00\xaf\x00\xb0\x00\xb1\x00\xb2\x00\xb3\x00\xb4\x00\xb5\x00\xb6\x00\xb7\x00\xb8\x00\xb9\x00\xba\x00\xbb\x00\xbc\x00\xbd\x00\xbe\x00\xbf\x00\x27\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x39\x00\xff\xff\xff\xff\xff\xff\xff\xff\xd7\x00\xff\xff\xff\xff\x41\x00\x42\x00\x43\x00\x44\x00\x45\x00\x46\x00\x47\x00\x48\x00\x49\x00\x4a\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x4f\x00\x50\x00\x51\x00\x52\x00\x53\x00\x54\x00\x55\x00\x56\x00\x57\x00\x58\x00\x59\x00\x5a\x00\x22\x00\xff\xff\xff\xff\xf7\x00\x5f\x00\x27\x00\x61\x00\x62\x00\x63\x00\x64\x00\x65\x00\x66\x00\x67\x00\x68\x00\x69\x00\x6a\x00\x6b\x00\x6c\x00\x6d\x00\x6e\x00\x6f\x00\x70\x00\x71\x00\x72\x00\x73\x00\x74\x00\x75\x00\x76\x00\x77\x00\x78\x00\x79\x00\x7a\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x0a\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\x5c\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x22\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x6e\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x74\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\xc0\x00\xc1\x00\xc2\x00\xc3\x00\xc4\x00\xc5\x00\xc6\x00\xc7\x00\xc8\x00\xc9\x00\xca\x00\xcb\x00\xcc\x00\xcd\x00\xce\x00\xcf\x00\xd0\x00\xd1\x00\xd2\x00\xd3\x00\xd4\x00\xd5\x00\xd6\x00\x5c\x00\xd8\x00\xd9\x00\xda\x00\xdb\x00\xdc\x00\xdd\x00\xde\x00\xdf\x00\xe0\x00\xe1\x00\xe2\x00\xe3\x00\xe4\x00\xe5\x00\xe6\x00\xe7\x00\xe8\x00\xe9\x00\xea\x00\xeb\x00\xec\x00\xed\x00\xee\x00\xef\x00\xf0\x00\xf1\x00\xf2\x00\xf3\x00\xf4\x00\xf5\x00\xf6\x00\x27\x00\xf8\x00\xf9\x00\xfa\x00\xfb\x00\xfc\x00\xfd\x00\xfe\x00\xff\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x39\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x41\x00\x42\x00\x43\x00\x44\x00\x45\x00\x46\x00\x47\x00\x48\x00\x49\x00\x4a\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x4f\x00\x50\x00\x51\x00\x52\x00\x53\x00\x54\x00\x55\x00\x56\x00\x57\x00\x58\x00\x59\x00\x5a\x00\xff\xff\xff\xff\xff\xff\xff\xff\x5f\x00\xff\xff\x61\x00\x62\x00\x63\x00\x64\x00\x65\x00\x66\x00\x67\x00\x68\x00\x69\x00\x6a\x00\x6b\x00\x6c\x00\x6d\x00\x6e\x00\x6f\x00\x70\x00\x71\x00\x72\x00\x73\x00\x74\x00\x75\x00\x76\x00\x77\x00\x78\x00\x79\x00\x7a\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x0a\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\x22\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\xc0\x00\xc1\x00\xc2\x00\xc3\x00\xc4\x00\xc5\x00\xc6\x00\xc7\x00\xc8\x00\xc9\x00\xca\x00\xcb\x00\xcc\x00\xcd\x00\xce\x00\xcf\x00\xd0\x00\xd1\x00\xd2\x00\xd3\x00\xd4\x00\xd5\x00\xd6\x00\x5c\x00\xd8\x00\xd9\x00\xda\x00\xdb\x00\xdc\x00\xdd\x00\xde\x00\xdf\x00\xe0\x00\xe1\x00\xe2\x00\xe3\x00\xe4\x00\xe5\x00\xe6\x00\xe7\x00\xe8\x00\xe9\x00\xea\x00\xeb\x00\xec\x00\xed\x00\xee\x00\xef\x00\xf0\x00\xf1\x00\xf2\x00\xf3\x00\xf4\x00\xf5\x00\xf6\x00\xff\xff\xf8\x00\xf9\x00\xfa\x00\xfb\x00\xfc\x00\xfd\x00\xfe\x00\xff\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\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\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\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"#
+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]
-alex_deflt :: AlexAddr
-alex_deflt = AlexA# "\x08\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x0c\x00\x0c\x00\xff\xff\xff\xff"#
+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]
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 32 "LexGFC.x" #-}
+{-# LINE 31 "LexGFC.x" #-}
tok f p s = f p s
-share :: String -> String
-share = shareString
-
data Tok =
- TS !String -- reserved words
- | TL !String -- string literals
- | TI !String -- integer literals
- | TV !String -- identifiers
- | TD !String -- double precision float literals
- | TC !String -- character literals
+ TS String -- reserved words
+ | TL String -- string literals
+ | TI String -- integer literals
+ | TV String -- identifiers
+ | TD String -- double precision float literals
+ | TC String -- character literals
deriving (Eq,Show,Ord)
@@ -69,18 +60,20 @@ prToken t = case t of
_ -> show t
-data BTree = N | B String Tok BTree BTree deriving (Show)
-
eitherResIdent :: (String -> Tok) -> String -> Tok
-eitherResIdent tv s = treeFind resWords
- where
- treeFind N = tv s
- treeFind (B a t left right) | s < a = treeFind left
- | s > a = treeFind right
- | s == a = t
+eitherResIdent tv s = if isResWord s then (TS s) else (tv s) where
+ isResWord s = isInTree s $
+ B "lin" (B "concrete" (B "Type" (B "Str" (B "Ints" N N) N) (B "cat" (B "abstract" N N) N)) (B "fun" (B "flags" (B "data" N N) N) (B "in" (B "grammar" N 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)))
-resWords = b "lin" (b "concrete" (b "Type" (b "Str" (b "Ints" N N) N) (b "cat" (b "abstract" N N) N)) (b "fun" (b "flags" (b "data" N N) N) (b "in" (b "grammar" N 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)))
- where b s = B s (TS s)
+data BTree = N | B String BTree BTree deriving (Show)
+
+isInTree :: String -> BTree -> Bool
+isInTree x tree = case tree of
+ N -> False
+ B a left right
+ | x < a -> isInTree x left
+ | x > a -> isInTree x right
+ | x == a -> True
unescapeInitTail :: String -> String
unescapeInitTail = unesc . tail where
@@ -132,13 +125,10 @@ alexGetChar (p, _, (c:s)) =
alexInputPrevChar :: AlexInput -> Char
alexInputPrevChar (p, c, s) = c
-alex_action_1 = tok (\p s -> PT p (TS $ share s))
-alex_action_2 = tok (\p s -> PT p (eitherResIdent (TV . share) s))
-alex_action_3 = tok (\p s -> PT p (TL $ share $ unescapeInitTail s))
-alex_action_4 = tok (\p s -> PT p (TI $ share s))
-{-# LINE 1 "GenericTemplate.hs" #-}
-{-# LINE 1 "<built-in>" #-}
-{-# LINE 1 "<command line>" #-}
+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
@@ -149,8 +139,17 @@ alex_action_4 = tok (\p s -> PT p (TI $ share s))
-- -----------------------------------------------------------------------------
-- INTERNALS and main scanner engine
+{-# LINE 22 "GenericTemplate.hs" #-}
+
+
+
+
+
+
+
+
+
-{-# LINE 35 "GenericTemplate.hs" #-}
@@ -162,28 +161,11 @@ alex_action_4 = tok (\p s -> PT p (TI $ share s))
-data AlexAddr = AlexA# Addr#
-{-# INLINE alexIndexShortOffAddr #-}
-alexIndexShortOffAddr (AlexA# arr) off =
-#if __GLASGOW_HASKELL__ > 500
- narrow16Int# i
-#elif __GLASGOW_HASKELL__ == 500
- intToInt16# i
-#else
- (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#
+{-# LINE 66 "GenericTemplate.hs" #-}
+alexIndexShortOffAddr arr off = arr ! off
-- -----------------------------------------------------------------------------
@@ -196,11 +178,11 @@ data AlexReturn a
| AlexToken !AlexInput !Int a
-- alexScan :: AlexInput -> StartCode -> Maybe (AlexInput,Int,act)
-alexScan input (I# (sc))
- = alexScanUser undefined input (I# (sc))
+alexScan input (sc)
+ = alexScanUser undefined input (sc)
-alexScanUser user input (I# (sc))
- = case alex_scan_tkn user input 0# input sc AlexNone of
+alexScanUser user input (sc)
+ = case alex_scan_tkn user input (0) input sc AlexNone of
(AlexNone, input') ->
case alexGetChar input of
Nothing ->
@@ -233,12 +215,12 @@ alexScanUser user input (I# (sc))
alex_scan_tkn user orig_input len input s last_acc =
input `seq` -- strict in the input
case s of
- -1# -> (last_acc, input)
+ (-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` (I# (s)))
+ new_acc = check_accs (alex_accept `unsafeAt` (s))
in
new_acc `seq`
case alexGetChar input of
@@ -249,26 +231,26 @@ alex_scan_tkn' user orig_input len input s last_acc =
let
base = alexIndexShortOffAddr alex_base s
- (I# (ord_c)) = ord c
- offset = (base +# ord_c)
+ (ord_c) = ord c
+ offset = (base + ord_c)
check = alexIndexShortOffAddr alex_check offset
- new_s = if (offset >=# 0#) && (check ==# ord_c)
+ 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
+ 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 (I# (len))
- check_accs (AlexAccSkip : _) = AlexLastSkip input (I# (len))
+ check_accs (AlexAcc a : _) = AlexLastAcc a input (len)
+ check_accs (AlexAccSkip : _) = AlexLastSkip input (len)
check_accs (AlexAccPred a pred : rest)
- | pred user orig_input (I# (len)) input
- = AlexLastAcc a input (I# (len))
+ | pred user orig_input (len) input
+ = AlexLastAcc a input (len)
check_accs (AlexAccSkipPred pred : rest)
- | pred user orig_input (I# (len)) input
- = AlexLastSkip input (I# (len))
+ | pred user orig_input (len) input
+ = AlexLastSkip input (len)
check_accs (_ : rest) = check_accs rest
data AlexLastAcc a
@@ -297,8 +279,8 @@ alexPrevCharIs c _ input _ _ = c == alexInputPrevChar input
alexPrevCharIsOneOf arr _ input _ _ = arr ! alexInputPrevChar input
--alexRightContext :: Int -> AlexAccPred _
-alexRightContext (I# (sc)) user _ _ input =
- case alex_scan_tkn user input 0# input sc AlexNone of
+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
@@ -306,4 +288,4 @@ alexRightContext (I# (sc)) user _ _ input =
-- the first match will do.
-- used by wrappers
-iUnbox (I# (i)) = i
+iUnbox (i) = i
diff --git a/src/GF/Canon/LexGFC.x b/src/GF/Canon/LexGFC.x
index d1dfaa1b4..3ab44786b 100644
--- a/src/GF/Canon/LexGFC.x
+++ b/src/GF/Canon/LexGFC.x
@@ -4,7 +4,6 @@
module LexGFC where
import ErrM
-import SharedString
}
@@ -21,28 +20,25 @@ $u = [\0-\255] -- universal: any character
:-
$white+ ;
-@rsyms { tok (\p s -> PT p (TS $ share s)) }
+@rsyms { tok (\p s -> PT p (TS s)) }
-$l $i* { tok (\p s -> PT p (eitherResIdent (TV . share) s)) }
-\" ([$u # [\" \\ \n]] | (\\ (\" | \\ | \' | n | t)))* \"{ tok (\p s -> PT p (TL $ share $ unescapeInitTail s)) }
+$l $i* { tok (\p s -> PT p (eitherResIdent TV s)) }
+\" ([$u # [\" \\ \n]] | (\\ (\" | \\ | \' | n | t)))* \"{ tok (\p s -> PT p (TL $ unescapeInitTail s)) }
-$d+ { tok (\p s -> PT p (TI $ share s)) }
+$d+ { tok (\p s -> PT p (TI s)) }
{
tok f p s = f p s
-share :: String -> String
-share = shareString
-
data Tok =
- TS !String -- reserved words
- | TL !String -- string literals
- | TI !String -- integer literals
- | TV !String -- identifiers
- | TD !String -- double precision float literals
- | TC !String -- character literals
+ TS String -- reserved words
+ | TL String -- string literals
+ | TI String -- integer literals
+ | TV String -- identifiers
+ | TD String -- double precision float literals
+ | TC String -- character literals
deriving (Eq,Show,Ord)
@@ -67,18 +63,20 @@ prToken t = case t of
_ -> show t
-data BTree = N | B String Tok BTree BTree deriving (Show)
-
eitherResIdent :: (String -> Tok) -> String -> Tok
-eitherResIdent tv s = treeFind resWords
- where
- treeFind N = tv s
- treeFind (B a t left right) | s < a = treeFind left
- | s > a = treeFind right
- | s == a = t
-
-resWords = b "lin" (b "concrete" (b "Type" (b "Str" (b "Ints" N N) N) (b "cat" (b "abstract" N N) N)) (b "fun" (b "flags" (b "data" N N) N) (b "in" (b "grammar" N 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)))
- where b s = B s (TS s)
+eitherResIdent tv s = if isResWord s then (TS s) else (tv s) where
+ isResWord s = isInTree s $
+ B "lin" (B "concrete" (B "Type" (B "Str" (B "Ints" N N) N) (B "cat" (B "abstract" N N) N)) (B "fun" (B "flags" (B "data" N N) N) (B "in" (B "grammar" N 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)
+
+isInTree :: String -> BTree -> Bool
+isInTree x tree = case tree of
+ N -> False
+ B a left right
+ | x < a -> isInTree x left
+ | x > a -> isInTree x right
+ | x == a -> True
unescapeInitTail :: String -> String
unescapeInitTail = unesc . tail where
diff --git a/src/GF/Canon/Look.hs b/src/GF/Canon/Look.hs
index 8dfd4b3fb..615557a88 100644
--- a/src/GF/Canon/Look.hs
+++ b/src/GF/Canon/Look.hs
@@ -151,6 +151,12 @@ ccompute cnc = comp []
T ty rs -> liftM (T ty . map (uncurry Cas)) $
mapPairsM compt [(l,r) | Cas l r <- rs]
+ V ptyp ts -> do
+ vs0 <- allParamValues cnc ptyp
+ vs <- mapM term2patt vs0
+ let cc = [Cas [p] u | (p,u) <- zip vs ts]
+ compt $ T ptyp cc
+
Con c xs -> liftM (Con c) $ mapM compt xs
K (KS []) -> return E --- should not be needed
diff --git a/src/GF/Canon/ParGFC.hs b/src/GF/Canon/ParGFC.hs
index ed3bab271..21c99f939 100644
--- a/src/GF/Canon/ParGFC.hs
+++ b/src/GF/Canon/ParGFC.hs
@@ -340,21 +340,21 @@ happyOutTok x = unsafeCoerce# x
{-# INLINE happyOutTok #-}
happyActOffsets :: HappyAddr
-happyActOffsets = HappyA# "\x26\x02\x22\x02\x00\x00\x21\x02\x5b\x01\x18\x02\x28\x02\x1f\x02\x00\x00\x3f\x02\x12\x02\x12\x02\x12\x02\x12\x02\x3a\x02\x00\x00\x1c\x02\x00\x00\x17\x00\x0d\x02\x0d\x02\x00\x00\x38\x02\x17\x02\x34\x02\x0c\x02\x0c\x02\x32\x02\x00\x00\x00\x00\x33\x02\x0b\x02\x00\x00\x5b\x01\x15\x02\x00\x00\x06\x02\x00\x00\x13\x02\x00\x00\x31\x02\x71\x00\x03\x02\x2f\x02\x0f\x02\x2e\x02\x00\x00\x02\x02\x02\x02\x02\x02\x02\x02\x02\x02\x02\x02\x02\x02\x00\x00\x2c\x02\x2b\x02\x27\x02\x29\x02\x25\x02\x24\x02\x20\x02\x00\x00\x00\x02\x00\x00\xf6\x01\x00\x00\xf6\x01\xf6\x01\x10\x00\xf6\x01\x60\x00\x60\x00\xf6\x01\x10\x00\x19\x02\x00\x00\x00\x00\x00\x00\xa2\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf5\x01\x10\x00\xf5\x01\xf5\x01\xf0\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x09\x02\x00\x00\x00\x00\x1e\x02\x15\x00\x60\x00\xee\x01\x00\x00\x1d\x02\x1b\x02\x1a\x02\x16\x02\x10\x02\x14\x02\x00\x00\xe9\x01\x11\x02\x10\x00\x10\x00\x08\x02\x0c\x00\x00\x00\xfe\x01\x00\x00\x0a\x02\x05\x02\x01\x02\xd3\x01\x0c\x00\xd2\x01\x60\x00\x00\x00\x00\x00\xf2\x01\xf8\x00\xec\x01\xf1\x01\xf4\x01\x00\x00\x10\x00\xc4\x01\x00\x00\xf3\x01\x7a\x00\x00\x00\x10\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00\xe4\x00\x00\x00\x00\x00\x00\x00\xe8\x01\xdd\x01\xe1\x01\x00\x00\x00\x00\x15\x00\x43\x00\x0c\x00\xbf\x01\xbf\x01\x60\x00\xe4\x01\x00\x00\x00\x00\x60\x00\x15\x00\x60\x00\xb7\x00\xb4\x01\x00\x00\x00\x00\x00\x00\x00\x00\xb4\x01\x87\x00\xca\x01\xe0\x01\x0c\x00\x0c\x00\xd4\x01\x00\x00\x00\x00\x00\x00\xdf\x01\x00\x00\x00\x00\xb4\x00\x00\x00\x00\x00\xde\x01\xdc\x01\xd1\x01\x51\x00\x15\x00\xb0\x01\xb0\x01\xc7\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\xa2\x01\x00\x00\x00\x00\x00\x00\x00\x00\xcc\x01\xb6\x01\x00\x00\x00\x00\x00\x00\x00\x00\x0c\x00\x15\x00\x0e\x00\x00\x00\x47\x00\xcb\x01\x41\x00\x00\x00\xbd\x01\xbb\x01\x0c\x00\x9b\x01\x00\x00\x00\x00\x94\x00\x00\x00\x00\x00\xc0\x01\xbc\x01\x5b\x00\x00\x00\x00\x00\x4b\x00\x00\x00\xae\x01\x88\x01\x10\x00\xa9\x00\x00\x00\x00\x00\x00\x00\xbe\x01\x3f\x00\xba\x01\x00\x00\x00\x00\x00\x00\x15\x00\x80\x01\x00\x00\x0c\x00\x00\x00\xb9\x01\x0c\x00\xad\x01\x00\x00\xad\x01\x00\x00\xb8\x01\xaf\x01\xaa\x01\xa6\x01\x00\x00\xf8\xff\x00\x00\x7b\x01\x00\x00\x00\x00\x15\x00\x5c\x00\x4e\x00\x00\x00\x00\x00\x00\x00\x00\x00"#
+happyActOffsets = HappyA# "\x2d\x02\x25\x02\x00\x00\x22\x02\x47\x01\x21\x02\x34\x02\x27\x02\x00\x00\x49\x02\x1f\x02\x1f\x02\x1f\x02\x1f\x02\x48\x02\x00\x00\x24\x02\x00\x00\x1c\x00\x19\x02\x19\x02\x00\x00\x46\x02\x20\x02\x41\x02\x15\x02\x15\x02\x3f\x02\x00\x00\x00\x00\x40\x02\x13\x02\x00\x00\x47\x01\x1d\x02\x00\x00\x10\x02\x00\x00\x1e\x02\x00\x00\x3d\x02\x7d\x00\x0e\x02\x3b\x02\x1a\x02\x38\x02\x00\x00\x0b\x02\x0b\x02\x0b\x02\x0b\x02\x0b\x02\x0b\x02\x0b\x02\x00\x00\x36\x02\x35\x02\x31\x02\x33\x02\x2c\x02\x2a\x02\x26\x02\x00\x00\x08\x02\x00\x00\xf6\x01\x00\x00\xf6\x01\xf6\x01\x10\x00\xf6\x01\x61\x00\x61\x00\xf6\x01\x10\x00\x17\x02\x00\x00\x00\x00\x00\x00\xa8\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf0\x01\x10\x00\xf0\x01\xf0\x01\xf3\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x06\x02\x00\x00\x00\x00\x1c\x02\xf9\xff\x61\x00\xe2\x01\x00\x00\x12\x02\x11\x02\x0f\x02\x0d\x02\x07\x02\x0c\x02\x00\x00\xde\x01\x0a\x02\x10\x00\x10\x00\xf9\x01\x0c\x00\x00\x00\xef\x01\x00\x00\xff\x01\xfc\x01\xfb\x01\xcb\x01\x0c\x00\xcc\x01\x61\x00\x00\x00\x00\x00\xea\x01\x0c\x01\xee\x01\xeb\x01\xec\x01\x00\x00\x10\x00\xbe\x01\x00\x00\xed\x01\x80\x00\x00\x00\x10\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00\x66\x01\x00\x00\x00\x00\x00\x00\xdd\x01\xd7\x01\xd4\x01\x00\x00\x00\x00\xf9\xff\x08\x00\x0c\x00\xbc\x01\xbc\x01\x61\x00\xdc\x01\x00\x00\x00\x00\x61\x00\xf9\xff\x61\x00\xa1\x00\xbb\x01\x00\x00\x00\x00\x00\x00\x00\x00\xbb\x01\xbe\x00\xc4\x01\xd6\x01\x0c\x00\x0c\x00\xce\x01\x00\x00\x00\x00\x00\x00\x64\x00\x00\x00\x00\x00\x82\x00\x00\x00\x00\x00\xd8\x01\xd5\x01\xd2\x01\x57\x00\xf9\xff\xaa\x01\xaa\x01\xba\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\xa9\x01\x00\x00\x00\x00\x00\x00\x00\x00\xc6\x01\xb6\x01\x00\x00\x00\x00\x00\x00\x00\x00\x0c\x00\xf9\xff\x12\x00\x00\x00\x4d\x00\xc7\x01\x00\x00\x47\x00\x00\x00\xb5\x01\xb3\x01\x0c\x00\x99\x01\x00\x00\x00\x00\x11\x00\x00\x00\x00\x00\x3d\x00\xc3\x01\xb7\x01\x68\x00\x00\x00\x00\x00\x8f\x00\x00\x00\xb0\x01\x87\x01\x10\x00\x9d\x00\x00\x00\x00\x00\x00\x00\xb8\x01\x8b\x00\xb4\x01\x00\x00\x00\x00\x00\x00\xf9\xff\x86\x01\x00\x00\x0c\x00\x00\x00\xb2\x01\x00\x00\x0c\x00\xa0\x01\x00\x00\xa0\x01\x00\x00\xb1\x01\xa8\x01\xae\x01\x9f\x01\x00\x00\x5b\x00\x00\x00\x75\x01\x00\x00\x00\x00\xf9\xff\x67\x00\x54\x00\x00\x00\x00\x00\x00\x00\x00\x00"#
happyGotoOffsets :: HappyAddr
-happyGotoOffsets = HappyA# "\x13\x00\x00\x00\x00\x00\x00\x00\x61\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\xac\x01\xab\x01\xa9\x01\xa8\x01\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x9f\x01\x03\x00\x00\x00\x00\x00\x96\x01\x00\x00\x9d\x01\x9c\x01\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x95\x01\x61\x00\x00\x00\x74\x01\x8d\x01\x00\x00\x64\x00\x00\x00\x00\x00\xaf\x00\x8b\x01\x00\x00\x38\x01\x00\x00\x00\x00\x7a\x01\x75\x01\x73\x01\x69\x01\x65\x01\x57\x01\x54\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x4f\x01\x00\x00\x49\x01\x34\x01\xff\x01\x8c\x01\x4e\x01\x4d\x01\x6b\x00\xed\x01\x00\x00\x00\x00\x00\x00\x00\x00\x07\x02\x00\x00\x00\x00\x00\x00\x00\x00\x2d\x01\x2e\x01\xdb\x01\x78\x01\x2c\x01\x24\x01\x00\x00\x00\x00\x00\x00\x00\x00\xfc\x00\x00\x00\x00\x00\x00\x00\x00\x00\x70\x00\x3d\x01\x22\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xba\x00\x00\x00\xc9\x01\xb7\x01\x00\x00\x1e\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xe8\x00\x15\x01\x0a\x00\x14\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x39\x00\x00\x00\xa5\x01\x23\x01\x00\x00\x00\x00\xf2\x00\x00\x00\x93\x01\x00\x00\x81\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x85\x00\x00\x00\x0c\x01\x55\x01\x1d\x01\xeb\x00\x00\x00\x00\x00\x00\x00\xd0\x00\x06\x00\xa5\x00\x00\x00\x7e\x00\x00\x00\x00\x00\xc7\x00\x00\x00\xc2\x00\x00\x00\x00\x00\x00\x00\xf5\x00\x35\x01\x00\x00\x00\x00\x00\x00\xed\x00\x00\x00\x00\x00\xcb\x00\x00\x00\x00\x00\xb6\x00\x00\x00\x00\x00\x00\x00\x45\x01\x12\x00\xe6\x00\xc9\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x6f\x01\xc0\x00\x00\x00\x00\x00\xb2\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xec\x00\x05\x00\x86\x00\x00\x00\x3e\x01\x56\x01\x3e\x01\x00\x00\x00\x00\x00\x00\xe3\x00\x77\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xa6\x00\x00\x00\x00\x00\x66\x01\x00\x00\x00\x00\x97\x00\x5d\x01\xf2\x00\x00\x00\x00\x00\x00\x00\x00\x00\x63\x00\x00\x00\x00\x00\x00\x00\x00\x00\x09\x00\x89\x00\x00\x00\xc4\x00\x00\x00\x44\x01\xbb\x00\x00\x00\x00\x00\x00\x00\xe4\xff\x00\x00\x00\x00\x00\x00\x00\x00\xdc\xff\xea\x00\x00\x00\x0f\x00\x00\x00\x00\x00\x07\x00\x23\x00\x0b\x00\x00\x00\x00\x00\x00\x00\x00\x00"#
+happyGotoOffsets = HappyA# "\x13\x00\x00\x00\x00\x00\x00\x00\xbf\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\xa6\x01\xa5\x01\xa4\x01\xa3\x01\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\xa1\x01\x03\x00\x00\x00\x00\x00\x98\x01\x00\x00\x97\x01\x96\x01\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x8f\x01\xbf\x00\x00\x00\x6e\x01\x91\x01\x00\x00\x3e\x00\x00\x00\x00\x00\x05\x01\x83\x01\x00\x00\x5a\x01\x00\x00\x00\x00\x81\x01\x73\x01\x6f\x01\x69\x01\x5d\x01\x56\x01\x4e\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x4d\x01\x00\x00\x4c\x01\x33\x01\x1b\x02\x85\x01\x5f\x01\x5e\x01\x93\x00\x09\x02\x00\x00\x00\x00\x00\x00\x00\x00\x23\x02\x00\x00\x00\x00\x00\x00\x00\x00\x2f\x01\x3b\x01\xf7\x01\x82\x01\x35\x01\x2a\x01\x00\x00\x00\x00\x00\x00\x00\x00\x02\x01\x00\x00\x00\x00\x00\x00\x00\x00\x69\x00\x57\x01\x28\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xc0\x00\x00\x00\xe5\x01\xd3\x01\x00\x00\x37\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x27\x01\x25\x01\x77\x00\x2d\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xe1\x00\x00\x00\xc1\x01\x23\x01\x00\x00\x00\x00\x0b\x00\x00\x00\xaf\x01\x00\x00\x9d\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x72\x00\x00\x00\x13\x01\x68\x01\x21\x01\x1b\x01\x00\x00\x00\x00\x00\x00\x09\x01\x06\x00\xf7\x00\x00\x00\x2f\x00\x00\x00\x00\x00\xf0\x00\x00\x00\x3c\x01\x00\x00\x00\x00\x00\x00\x01\x01\x3d\x01\x00\x00\x00\x00\x00\x00\xea\x00\x00\x00\x00\x00\xe9\x00\x00\x00\x00\x00\xd7\x00\x00\x00\x00\x00\x00\x00\x61\x01\x84\x00\x06\x01\x04\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x8b\x01\xf2\x00\x00\x00\x00\x00\xe0\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xef\x00\x05\x00\xf3\x00\x00\x00\x4f\x01\x60\x01\x89\x00\x4f\x01\x00\x00\x00\x00\x00\x00\xdd\x00\x25\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x4f\x01\x00\x00\x00\x00\xbc\x00\x00\x00\x00\x00\xcd\x00\x00\x00\x00\x00\xae\x00\x79\x01\x0b\x00\x00\x00\x00\x00\x00\x00\x00\x00\x94\x00\x00\x00\x00\x00\x00\x00\x00\x00\x09\x00\xb5\x00\x00\x00\xca\x00\x00\x00\x9f\x00\x00\x00\xc6\x00\x00\x00\x00\x00\x00\x00\x5d\x00\x00\x00\x00\x00\x00\x00\x00\x00\x24\x00\xbb\x00\x00\x00\x16\x00\x00\x00\x00\x00\x07\x00\xad\x00\x0e\x00\x00\x00\x00\x00\x00\x00\x00\x00"#
happyDefActions :: HappyAddr
-happyDefActions = HappyA# "\xf4\xff\x00\x00\xfe\xff\x00\x00\xfa\xff\x7a\xff\x79\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\x7a\xff\x78\xff\x00\x00\xef\xff\x00\x00\x00\x00\x00\x00\x00\x00\xf7\xff\xf2\xff\x00\x00\x7a\xff\xf4\xff\xfb\xff\x00\x00\x9d\xff\x00\x00\xf5\xff\x9b\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\x9c\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x9a\xff\x00\x00\xe4\xff\x00\x00\xee\xff\x00\x00\xd1\xff\x00\x00\x00\x00\x00\x00\x00\x00\x99\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\x96\xff\x98\xff\xea\xff\xc0\xff\x00\x00\x8c\xff\x00\x00\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\xbe\xff\x00\x00\xa7\xff\x8b\xff\x00\x00\x00\x00\x00\x00\x00\x00\x99\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\x95\xff\x97\xff\x00\x00\xac\xff\xb7\xff\xbb\xff\xaf\xff\xad\xff\xe9\xff\xb6\xff\xbc\xff\x92\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xa6\xff\xc2\xff\x00\x00\x8c\xff\x00\x00\x00\x00\x8f\xff\xec\xff\xc3\xff\x94\xff\xcf\xff\xed\xff\x00\x00\x8e\xff\x00\x00\x00\x00\x00\x00\x00\x00\x8a\xff\xbd\xff\x86\xff\x00\x00\xb9\xff\x86\xff\x00\x00\xb5\xff\x84\xff\x91\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\xa5\xff\xb3\xff\xb1\xff\xb8\xff\x00\x00\x92\xff\x00\x00\xb4\xff\x00\x00\x7c\xff\x00\x00\xc1\xff\xae\xff\xe8\xff\x00\x00\x8f\xff\x93\xff\x8d\xff\x00\x00\x85\xff\xb0\xff\x88\xff\x00\x00\x00\x00\xba\xff\x83\xff\x82\xff\x90\xff\xaa\xff\x00\x00\x00\x00\x00\x00\xd6\xff\xdf\xff\xa4\xff\x81\xff\x00\x00\x00\x00\xa2\xff\x9f\xff\x7b\xff\x7f\xff\x00\x00\xa1\xff\x00\x00\xb2\xff\x7c\xff\x00\x00\xe7\xff\x87\xff\xa9\xff\x7c\xff\x00\x00\x7e\xff\x00\x00\x00\x00\x84\xff\x82\xff\x80\xff\xa8\xff\xab\xff\xa0\xff\x7f\xff\x00\x00\x00\x00\xa3\xff\x9e\xff\x7d\xff"#
+happyDefActions = HappyA# "\xf4\xff\x00\x00\xfe\xff\x00\x00\xfa\xff\x79\xff\x78\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\x79\xff\x77\xff\x00\x00\xef\xff\x00\x00\x00\x00\x00\x00\x00\x00\xf7\xff\xf2\xff\x00\x00\x79\xff\xf4\xff\xfb\xff\x00\x00\x9c\xff\x00\x00\xf5\xff\x9a\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\x9b\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x99\xff\x00\x00\xe4\xff\x00\x00\xee\xff\x00\x00\xd1\xff\x00\x00\x00\x00\x00\x00\x00\x00\x98\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\x95\xff\x97\xff\xea\xff\xc0\xff\x00\x00\x8b\xff\x00\x00\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\xbe\xff\x00\x00\xa6\xff\x8a\xff\x00\x00\x00\x00\x00\x00\x00\x00\x98\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\x94\xff\x96\xff\x00\x00\xab\xff\xb7\xff\xbb\xff\xae\xff\xac\xff\xe9\xff\xb6\xff\xbc\xff\x91\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xa5\xff\xc2\xff\x00\x00\x8b\xff\x00\x00\x00\x00\x8e\xff\xec\xff\xc3\xff\x93\xff\xcf\xff\xed\xff\x00\x00\x8d\xff\x00\x00\x00\x00\x00\x00\x00\x00\x89\xff\xbd\xff\x85\xff\x00\x00\xb9\xff\x85\xff\x00\x00\xb5\xff\x83\xff\x90\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\xa4\xff\xb3\xff\xb0\xff\xb8\xff\x00\x00\x91\xff\x00\x00\xb4\xff\x00\x00\x7b\xff\x85\xff\x00\x00\xc1\xff\xad\xff\xe8\xff\x00\x00\x8e\xff\x92\xff\x8c\xff\x00\x00\x84\xff\xaf\xff\x00\x00\x87\xff\x00\x00\x00\x00\xba\xff\x82\xff\x81\xff\x8f\xff\xa9\xff\x00\x00\x00\x00\x00\x00\xd6\xff\xdf\xff\xa3\xff\x80\xff\x00\x00\x00\x00\xa1\xff\x9e\xff\x7a\xff\x7e\xff\x00\x00\xa0\xff\x00\x00\xb2\xff\x7b\xff\xb1\xff\x00\x00\xe7\xff\x86\xff\xa8\xff\x7b\xff\x00\x00\x7d\xff\x00\x00\x00\x00\x83\xff\x81\xff\x7f\xff\xa7\xff\xaa\xff\x9f\xff\x7e\xff\x00\x00\x00\x00\xa2\xff\x9d\xff\x7c\xff"#
happyCheck :: HappyAddr
-happyCheck = HappyA# "\xff\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x07\x00\x00\x00\x00\x00\x00\x00\x30\x00\x02\x00\x16\x00\x03\x00\x01\x00\x03\x00\x00\x00\x03\x00\x08\x00\x0b\x00\x03\x00\x33\x00\x0c\x00\x06\x00\x0a\x00\x0f\x00\x0c\x00\x11\x00\x07\x00\x0f\x00\x1a\x00\x11\x00\x12\x00\x00\x00\x1f\x00\x02\x00\x11\x00\x22\x00\x22\x00\x22\x00\x32\x00\x22\x00\x25\x00\x1d\x00\x25\x00\x24\x00\x2b\x00\x21\x00\x28\x00\x2d\x00\x22\x00\x34\x00\x34\x00\x34\x00\x34\x00\x32\x00\x2e\x00\x32\x00\x30\x00\x31\x00\x32\x00\x33\x00\x32\x00\x31\x00\x32\x00\x33\x00\x03\x00\x04\x00\x31\x00\x24\x00\x31\x00\x08\x00\x03\x00\x12\x00\x09\x00\x0c\x00\x15\x00\x08\x00\x0f\x00\x03\x00\x11\x00\x0c\x00\x03\x00\x16\x00\x0f\x00\x10\x00\x11\x00\x08\x00\x0c\x00\x0d\x00\x0e\x00\x0c\x00\x03\x00\x03\x00\x0f\x00\x16\x00\x11\x00\x03\x00\x01\x00\x04\x00\x05\x00\x0c\x00\x0c\x00\x0e\x00\x0e\x00\x00\x00\x0c\x00\x09\x00\x13\x00\x2c\x00\x00\x00\x32\x00\x31\x00\x32\x00\x33\x00\x04\x00\x0b\x00\x00\x00\x31\x00\x32\x00\x33\x00\x1b\x00\x1c\x00\x32\x00\x00\x00\x31\x00\x06\x00\x33\x00\x31\x00\x32\x00\x33\x00\x00\x00\x0c\x00\x01\x00\x0e\x00\x00\x00\x1a\x00\x27\x00\x31\x00\x31\x00\x33\x00\x33\x00\x1f\x00\x31\x00\x22\x00\x28\x00\x23\x00\x01\x00\x0d\x00\x26\x00\x27\x00\x02\x00\x23\x00\x2a\x00\x2b\x00\x2d\x00\x17\x00\x18\x00\x2f\x00\x23\x00\x31\x00\x2c\x00\x1f\x00\x00\x00\x00\x00\x22\x00\x02\x00\x15\x00\x2c\x00\x31\x00\x32\x00\x33\x00\x0c\x00\x00\x00\x2b\x00\x0f\x00\x0d\x00\x11\x00\x12\x00\x0c\x00\x0d\x00\x0e\x00\x01\x00\x0a\x00\x00\x00\x00\x00\x01\x00\x02\x00\x19\x00\x1d\x00\x00\x00\x0d\x00\x00\x00\x21\x00\x00\x00\x01\x00\x02\x00\x15\x00\x0d\x00\x15\x00\x24\x00\x02\x00\x15\x00\x0d\x00\x14\x00\x0d\x00\x00\x00\x0d\x00\x18\x00\x31\x00\x32\x00\x33\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x31\x00\x32\x00\x33\x00\x0d\x00\x23\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x00\x00\x01\x00\x02\x00\x30\x00\x23\x00\x02\x00\x19\x00\x02\x00\x00\x00\x00\x00\x01\x00\x02\x00\x0b\x00\x0d\x00\x2a\x00\x00\x00\x01\x00\x02\x00\x00\x00\x01\x00\x02\x00\x0d\x00\x0d\x00\x2f\x00\x17\x00\x18\x00\x05\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x0d\x00\x0b\x00\x19\x00\x13\x00\x23\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x21\x00\x00\x00\x01\x00\x02\x00\x23\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x00\x00\x00\x00\x01\x00\x02\x00\x23\x00\x0d\x00\x30\x00\x31\x00\x2f\x00\x00\x00\x00\x00\x01\x00\x02\x00\x0d\x00\x0d\x00\x00\x00\x02\x00\x29\x00\x02\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\x02\x00\x23\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x00\x00\x00\x00\x01\x00\x02\x00\x23\x00\x0d\x00\x16\x00\x0c\x00\x00\x00\x01\x00\x02\x00\x14\x00\x00\x00\x0d\x00\x0d\x00\x18\x00\x00\x00\x00\x00\x00\x00\x1b\x00\x1c\x00\x0d\x00\x1e\x00\x00\x00\x00\x00\x19\x00\x00\x00\x23\x00\x1b\x00\x0d\x00\x0d\x00\x1e\x00\x00\x00\x01\x00\x02\x00\x1b\x00\x23\x00\x0d\x00\x1e\x00\x20\x00\x00\x00\x19\x00\x19\x00\x23\x00\x00\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x2e\x00\x00\x00\x17\x00\x00\x00\x20\x00\x33\x00\x00\x00\x1e\x00\x00\x00\x20\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x2e\x00\x0d\x00\x17\x00\x21\x00\x2d\x00\x33\x00\x2f\x00\x00\x00\x00\x00\x00\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x30\x00\x31\x00\x17\x00\x0d\x00\x26\x00\x06\x00\x00\x00\x00\x00\x08\x00\x00\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x00\x00\x00\x00\x17\x00\x00\x00\x00\x00\x32\x00\x04\x00\x09\x00\x01\x00\x31\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x02\x00\x33\x00\x17\x00\x04\x00\x04\x00\x01\x00\x04\x00\x01\x00\x15\x00\x15\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x31\x00\x17\x00\x17\x00\x04\x00\x15\x00\x14\x00\x06\x00\x31\x00\x0d\x00\x04\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x02\x00\x01\x00\x17\x00\x0d\x00\x03\x00\x33\x00\x1a\x00\x31\x00\x06\x00\x03\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x31\x00\x14\x00\x17\x00\x0b\x00\x01\x00\x31\x00\x15\x00\x06\x00\x04\x00\x0d\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x10\x00\x31\x00\x17\x00\x04\x00\x33\x00\x00\x00\x01\x00\x02\x00\x05\x00\x01\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x13\x00\x0a\x00\x02\x00\x0d\x00\x01\x00\x17\x00\x10\x00\x11\x00\x09\x00\x31\x00\x05\x00\x02\x00\x02\x00\x17\x00\x02\x00\x02\x00\x33\x00\x19\x00\x33\x00\x0b\x00\x25\x00\x31\x00\x31\x00\x08\x00\x05\x00\x05\x00\x02\x00\x05\x00\x02\x00\x02\x00\x01\x00\x21\x00\x02\x00\x01\x00\x31\x00\x31\x00\x22\x00\x03\x00\x31\x00\x06\x00\x01\x00\x25\x00\x07\x00\x31\x00\x31\x00\x31\x00\x05\x00\x29\x00\x02\x00\x1a\x00\x31\x00\x28\x00\xff\xff\xff\xff\x28\x00\xff\xff\x31\x00\x24\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x31\x00\xff\xff\xff\xff\x35\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"#
+happyCheck = HappyA# "\xff\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x07\x00\x00\x00\x11\x00\x00\x00\x01\x00\x02\x00\x00\x00\x03\x00\x02\x00\x09\x00\x01\x00\x03\x00\x08\x00\x03\x00\x03\x00\x01\x00\x0c\x00\x06\x00\x0a\x00\x0f\x00\x0c\x00\x11\x00\x13\x00\x0f\x00\x1a\x00\x11\x00\x12\x00\x07\x00\x1f\x00\x00\x00\x15\x00\x22\x00\x22\x00\x22\x00\x31\x00\x22\x00\x25\x00\x1d\x00\x25\x00\x00\x00\x2b\x00\x21\x00\x24\x00\x2d\x00\x2c\x00\x34\x00\x34\x00\x34\x00\x34\x00\x32\x00\x2e\x00\x32\x00\x30\x00\x31\x00\x32\x00\x33\x00\x03\x00\x31\x00\x32\x00\x33\x00\x32\x00\x08\x00\x09\x00\x09\x00\x23\x00\x0c\x00\x03\x00\x04\x00\x0f\x00\x31\x00\x11\x00\x08\x00\x03\x00\x2c\x00\x23\x00\x0c\x00\x30\x00\x08\x00\x0f\x00\x03\x00\x11\x00\x0c\x00\x03\x00\x2c\x00\x0f\x00\x10\x00\x11\x00\x08\x00\x0c\x00\x0d\x00\x0e\x00\x0c\x00\x03\x00\x27\x00\x0f\x00\x03\x00\x11\x00\x00\x00\x03\x00\x03\x00\x08\x00\x0c\x00\x31\x00\x32\x00\x33\x00\x16\x00\x00\x00\x0c\x00\x0c\x00\x0e\x00\x0e\x00\x00\x00\x31\x00\x32\x00\x33\x00\x13\x00\x1b\x00\x1c\x00\x31\x00\x32\x00\x33\x00\x04\x00\x0b\x00\x1a\x00\x00\x00\x31\x00\x06\x00\x33\x00\x31\x00\x32\x00\x33\x00\x22\x00\x0c\x00\x32\x00\x0e\x00\x0d\x00\x33\x00\x1f\x00\x31\x00\x00\x00\x22\x00\x01\x00\x2d\x00\x15\x00\x31\x00\x31\x00\x33\x00\x33\x00\x1f\x00\x2b\x00\x0b\x00\x28\x00\x23\x00\x16\x00\x01\x00\x26\x00\x27\x00\x16\x00\x22\x00\x2a\x00\x2b\x00\x0c\x00\x0d\x00\x0e\x00\x2f\x00\x00\x00\x31\x00\x02\x00\x02\x00\x31\x00\x32\x00\x33\x00\x0c\x00\x00\x00\x15\x00\x0f\x00\x2f\x00\x11\x00\x12\x00\x28\x00\x00\x00\x32\x00\x02\x00\x20\x00\x00\x00\x32\x00\x0d\x00\x04\x00\x05\x00\x1d\x00\x00\x00\x01\x00\x02\x00\x21\x00\x00\x00\x01\x00\x02\x00\x2e\x00\x31\x00\x32\x00\x33\x00\x24\x00\x33\x00\x0d\x00\x14\x00\x17\x00\x18\x00\x0d\x00\x18\x00\x31\x00\x32\x00\x33\x00\x21\x00\x00\x00\x01\x00\x02\x00\x24\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x23\x00\x0d\x00\x30\x00\x31\x00\x23\x00\x21\x00\x00\x00\x01\x00\x02\x00\x00\x00\x12\x00\x01\x00\x15\x00\x15\x00\x00\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x0d\x00\x30\x00\x31\x00\x0d\x00\x23\x00\x00\x00\x01\x00\x02\x00\x0d\x00\x00\x00\x02\x00\x30\x00\x02\x00\x00\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x0d\x00\x0a\x00\x19\x00\x05\x00\x23\x00\x00\x00\x01\x00\x02\x00\x0d\x00\x0b\x00\x2f\x00\x2f\x00\x2a\x00\x00\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x0d\x00\x00\x00\x19\x00\x00\x00\x23\x00\x00\x00\x01\x00\x02\x00\x0d\x00\x02\x00\x02\x00\x29\x00\x02\x00\x00\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x0d\x00\x00\x00\x19\x00\x00\x00\x23\x00\x00\x00\x01\x00\x02\x00\x0d\x00\x00\x00\x00\x00\x00\x00\x01\x00\x02\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x0d\x00\x16\x00\x19\x00\x14\x00\x23\x00\x0d\x00\x0d\x00\x18\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x02\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x00\x00\x00\x00\x1b\x00\x1c\x00\x23\x00\x1e\x00\x0d\x00\x00\x00\x00\x00\x00\x00\x23\x00\x00\x00\x01\x00\x02\x00\x0d\x00\x1e\x00\x0c\x00\x20\x00\x00\x00\x00\x00\x1b\x00\x0d\x00\x0d\x00\x1e\x00\x0d\x00\x00\x00\x19\x00\x0b\x00\x23\x00\x00\x00\x2d\x00\x0d\x00\x2f\x00\x19\x00\x19\x00\x00\x00\x01\x00\x02\x00\x1b\x00\x17\x00\x18\x00\x1e\x00\x20\x00\x00\x00\x00\x00\x00\x00\x23\x00\x00\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x2e\x00\x0d\x00\x17\x00\x00\x00\x0d\x00\x33\x00\x26\x00\x06\x00\x00\x00\x00\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x08\x00\x00\x00\x17\x00\x00\x00\x00\x00\x00\x00\x00\x00\x32\x00\x09\x00\x01\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x04\x00\x02\x00\x17\x00\x15\x00\x04\x00\x31\x00\x04\x00\x01\x00\x33\x00\x04\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x01\x00\x15\x00\x17\x00\x0d\x00\x15\x00\x14\x00\x31\x00\x04\x00\x06\x00\x17\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x04\x00\x02\x00\x17\x00\x01\x00\x31\x00\x0d\x00\x06\x00\x33\x00\x1a\x00\x03\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x0b\x00\x15\x00\x17\x00\x14\x00\x31\x00\x31\x00\x01\x00\x31\x00\x04\x00\x06\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x10\x00\x0d\x00\x17\x00\x31\x00\x33\x00\x04\x00\x01\x00\x05\x00\x13\x00\x0a\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x02\x00\x01\x00\x17\x00\x31\x00\x09\x00\x02\x00\x05\x00\x02\x00\x02\x00\x33\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x02\x00\x19\x00\x17\x00\x31\x00\x0b\x00\x00\x00\x01\x00\x02\x00\x33\x00\x31\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x25\x00\x08\x00\x05\x00\x0d\x00\x05\x00\x17\x00\x10\x00\x11\x00\x02\x00\x05\x00\x02\x00\x02\x00\x01\x00\x17\x00\x21\x00\x31\x00\x02\x00\x01\x00\x31\x00\x22\x00\x31\x00\x25\x00\x03\x00\x31\x00\x06\x00\x31\x00\x01\x00\x07\x00\x29\x00\x31\x00\x02\x00\x28\x00\x05\x00\x1a\x00\x28\x00\x31\x00\x24\x00\x31\x00\xff\xff\xff\xff\xff\xff\x31\x00\x35\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\xff\xff\xff\xff\xff\xff\xff\xff"#
happyTable :: HappyAddr
-happyTable = HappyA# "\x00\x00\x06\x00\x06\x00\x06\x00\x06\x00\x76\x00\x76\x00\x76\x00\x17\x00\x76\x00\x5e\x00\xf8\x00\x0d\x01\xf9\x00\x84\xff\x9c\x00\xeb\x00\xed\x00\x76\x00\x55\x00\x9d\x00\x5f\x00\x03\x00\x12\x01\x9e\x00\x04\x00\x56\x00\x9f\x00\x57\x00\xa0\x00\x7a\xff\x58\x00\x77\x00\x59\x00\x5a\x00\xf8\x00\xbd\x00\xf9\x00\x7b\x00\xbe\x00\x78\x00\x06\x01\x84\xff\x06\x01\x07\x01\x5b\x00\x07\x01\xfa\x00\xed\x00\x5c\x00\x91\x00\xb4\x00\xd3\x00\x18\x00\x22\x00\x15\x00\x07\x00\x15\x01\xa1\x00\x08\x01\xa2\x00\x03\x00\x5d\x00\x5e\x00\x5d\x00\x03\x00\x5d\x00\x5e\x00\x9c\x00\xe7\x00\x03\x00\x14\x01\x03\x00\x9d\x00\x9c\x00\x89\x00\xbc\x00\x9e\x00\x8a\x00\x9d\x00\x9f\x00\xfc\x00\xa0\x00\x9e\x00\x9c\x00\x0b\x01\x9f\x00\xeb\x00\xa0\x00\x9d\x00\xfd\x00\x14\x01\xfe\x00\x9e\x00\xfc\x00\xfc\x00\x9f\x00\x84\xff\xa0\x00\x64\x00\xeb\x00\x08\x00\x09\x00\xfd\x00\xfd\x00\xfe\x00\xfe\x00\x5e\x00\x65\x00\x28\x00\xff\x00\xbd\x00\x76\x00\x5d\x00\x03\x00\x5d\x00\x5e\x00\x2f\x00\x5f\x00\xae\x00\x03\x00\x5d\x00\x5e\x00\x66\x00\x67\x00\x84\xff\xae\x00\x03\x00\xcb\x00\x5e\x00\x03\x00\x5d\x00\x5e\x00\x76\x00\xcc\x00\xeb\x00\xcd\x00\x4b\x00\x77\x00\x29\x00\x03\x00\x03\x00\x5e\x00\x5e\x00\x30\x00\x03\x00\x78\x00\x60\x00\x31\x00\x02\x01\x05\x01\x32\x00\x33\x00\xf4\x00\xaf\x00\x34\x00\x35\x00\x79\x00\xc3\x00\xc4\x00\x36\x00\xaf\x00\x03\x00\xe3\x00\xbd\x00\x4b\x00\xf8\x00\xbe\x00\xf9\x00\xb3\x00\xb0\x00\x03\x00\x5d\x00\x5e\x00\x87\x00\x2c\x00\xbf\x00\x58\x00\x61\x00\x59\x00\x5a\x00\xcc\x00\xf3\x00\xcd\x00\xb2\x00\x2d\x00\x6a\x00\x92\x00\x93\x00\x94\x00\xb3\x00\x5b\x00\x4b\x00\xda\x00\x4b\x00\x5c\x00\x92\x00\x93\x00\x94\x00\xf1\x00\x95\x00\xb3\x00\xfa\x00\xd1\x00\xb3\x00\xce\x00\xac\x00\xe2\x00\x4b\x00\x95\x00\x6c\x00\x03\x00\x5d\x00\x5e\x00\x96\x00\x97\x00\x02\x01\x99\x00\x03\x00\x5d\x00\x5e\x00\x61\x00\x9a\x00\x96\x00\x97\x00\x04\x01\x99\x00\x92\x00\x93\x00\x94\x00\xd8\x00\x9a\x00\xd2\x00\xb5\x00\xa2\x00\x4b\x00\x92\x00\x93\x00\x94\x00\x88\x00\x95\x00\xad\x00\xc6\x00\xc7\x00\xc8\x00\x92\x00\x93\x00\x94\x00\x61\x00\x95\x00\xda\x00\xc3\x00\xc4\x00\x8f\x00\x96\x00\x97\x00\xe4\x00\x99\x00\x95\x00\x88\x00\xb7\x00\xc9\x00\x9a\x00\x96\x00\x97\x00\xee\x00\x99\x00\xf5\x00\x92\x00\x93\x00\x94\x00\x9a\x00\x96\x00\x97\x00\xdf\x00\x99\x00\x4b\x00\x92\x00\x93\x00\x94\x00\x9a\x00\x95\x00\xf6\x00\x0c\x01\xdc\x00\xb8\x00\x92\x00\x93\x00\x94\x00\x61\x00\x95\x00\x88\x00\x74\x00\x7d\x00\x7e\x00\x96\x00\x97\x00\xba\x00\x99\x00\x95\x00\x7f\x00\x90\x00\x83\x00\x9a\x00\x96\x00\x97\x00\x98\x00\x99\x00\x6a\x00\x92\x00\x93\x00\x94\x00\x9a\x00\x96\x00\x97\x00\xa7\x00\x99\x00\x4b\x00\x92\x00\x93\x00\x94\x00\x9a\x00\x95\x00\x84\x00\x3f\x00\x92\x00\x93\x00\x94\x00\x6b\x00\x6d\x00\x61\x00\x95\x00\x6c\x00\x4b\x00\x4b\x00\x42\x00\x96\x00\xde\x00\x95\x00\x99\x00\x37\x00\x4b\x00\x75\x00\x38\x00\x9a\x00\xe5\x00\x61\x00\x61\x00\x99\x00\x4b\x00\x4c\x00\x4d\x00\xd4\x00\x9a\x00\xb9\x00\x99\x00\xe7\x00\x39\x00\x62\x00\x67\x00\x9a\x00\x3a\x00\x4e\x00\x4f\x00\xf3\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\x03\x01\x3b\x00\x53\x00\x3c\x00\xe7\x00\xe9\x00\x4b\x00\x0b\x00\x3d\x00\x0c\x00\x4e\x00\x4f\x00\xcf\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\xe8\x00\x80\x00\x53\x00\xf5\x00\x0d\x00\xe9\x00\x0e\x00\x2b\x00\x4b\x00\x25\x00\x4e\x00\x4f\x00\xc4\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\xf6\x00\xf7\x00\x53\x00\x68\x00\x26\x00\x21\x00\x1b\x00\x1c\x00\x1e\x00\x16\x00\x4e\x00\x4f\x00\xc5\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\x0e\x00\x0f\x00\x53\x00\x10\x00\x11\x00\x5d\x00\x10\x01\x0f\x01\x11\x01\x03\x00\x4e\x00\x4f\x00\x82\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\x12\x01\x5e\x00\x53\x00\x89\xff\x0a\x01\x0c\x01\x00\x01\x01\x01\xb3\x00\xb3\x00\x4e\x00\x4f\x00\xa9\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\x03\x00\xf0\x00\x53\x00\x89\xff\xb3\x00\xc1\x00\xf1\x00\x03\x00\xd1\x00\xd6\x00\x4e\x00\x4f\x00\xaa\x00\x51\x00\x52\x00\x81\x00\x4c\x00\x4d\x00\xd7\x00\xd8\x00\x53\x00\xde\x00\xdc\x00\x5e\x00\xe2\x00\x03\x00\xe1\x00\xb7\x00\x4e\x00\x4f\x00\x82\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\x03\x00\xc1\x00\x53\x00\xc2\x00\xce\x00\x03\x00\xb3\x00\x8d\x00\x8c\x00\x8e\x00\x4e\x00\x4f\x00\x50\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\x90\x00\x03\x00\x53\x00\xa4\x00\x5e\x00\x4b\x00\x4c\x00\x4d\x00\xa5\x00\xa6\x00\x4e\x00\x4f\x00\x69\x00\x51\x00\x52\x00\xa7\x00\xa9\x00\xac\x00\x4e\x00\x6f\x00\x53\x00\x85\x00\x52\x00\x70\x00\x03\x00\x71\x00\x72\x00\x73\x00\x53\x00\x74\x00\x7c\x00\x5e\x00\x7d\x00\x5e\x00\x88\x00\x44\x00\x03\x00\x03\x00\x45\x00\x46\x00\x47\x00\x48\x00\x49\x00\x4a\x00\x4b\x00\x3f\x00\x41\x00\x42\x00\x37\x00\x03\x00\x03\x00\x2b\x00\x24\x00\x03\x00\x25\x00\x21\x00\x28\x00\x1e\x00\x03\x00\x03\x00\x03\x00\x1b\x00\x20\x00\x13\x00\x15\x00\x03\x00\x1a\x00\x00\x00\x00\x00\x14\x00\x00\x00\x03\x00\x06\x00\x00\x00\x00\x00\x00\x00\x00\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"#
+happyTable = HappyA# "\x00\x00\x06\x00\x06\x00\x06\x00\x06\x00\x76\x00\x76\x00\x76\x00\x17\x00\x76\x00\x7b\x00\xc6\x00\xc7\x00\xc8\x00\xfa\x00\x9c\x00\xfb\x00\xbc\x00\x05\x01\x55\x00\x9d\x00\xef\x00\x03\x00\xed\x00\x9e\x00\x04\x00\x56\x00\x9f\x00\x57\x00\xa0\x00\xc9\x00\x58\x00\x77\x00\x59\x00\x5a\x00\x79\xff\xbd\x00\xae\x00\xb3\x00\xbe\x00\x78\x00\x09\x01\x03\x00\x09\x01\x0a\x01\x5b\x00\x0a\x01\xae\x00\xef\x00\x5c\x00\xfc\x00\xb4\x00\xbd\x00\x18\x00\x22\x00\x15\x00\x07\x00\x18\x01\xa1\x00\x0b\x01\xa2\x00\x03\x00\x5d\x00\x5e\x00\x9c\x00\x03\x00\x5d\x00\x5e\x00\x5d\x00\x9d\x00\x04\x01\x28\x00\xaf\x00\x9e\x00\x9c\x00\xe8\x00\x9f\x00\x03\x00\xa0\x00\x9d\x00\x9c\x00\xe4\x00\xaf\x00\x9e\x00\x10\x01\x9d\x00\x9f\x00\xfe\x00\xa0\x00\x9e\x00\x9c\x00\xb0\x00\x9f\x00\xed\x00\xa0\x00\x9d\x00\xff\x00\x17\x01\x00\x01\x9e\x00\x64\x00\x29\x00\x9f\x00\xdc\x00\xa0\x00\x76\x00\xfe\x00\xfe\x00\xdd\x00\x65\x00\x03\x00\x5d\x00\x5e\x00\x83\xff\x76\x00\xff\x00\xff\x00\x00\x01\x00\x01\x5e\x00\x03\x00\x5d\x00\x5e\x00\x01\x01\x66\x00\x67\x00\x03\x00\x5d\x00\x5e\x00\x2f\x00\x5f\x00\x77\x00\x76\x00\x03\x00\xcb\x00\x5e\x00\x03\x00\x5d\x00\x5e\x00\x78\x00\xcc\x00\x83\xff\xcd\x00\xda\x00\x15\x01\xbd\x00\x03\x00\x5e\x00\xbe\x00\xed\x00\x79\x00\xb3\x00\x03\x00\x03\x00\x5e\x00\x5e\x00\x30\x00\xbf\x00\x5f\x00\x91\x00\x31\x00\x0e\x01\xb2\x00\x32\x00\x33\x00\x83\xff\xd3\x00\x34\x00\x35\x00\xcc\x00\xf5\x00\xcd\x00\x36\x00\xfa\x00\x03\x00\xfb\x00\xf6\x00\x03\x00\x5d\x00\x5e\x00\x87\x00\x4b\x00\xb3\x00\x58\x00\xe8\x00\x59\x00\x5a\x00\x60\x00\xfa\x00\x5d\x00\xfb\x00\xe9\x00\x6a\x00\x83\xff\x08\x01\x08\x00\x09\x00\x5b\x00\x92\x00\x93\x00\x94\x00\x5c\x00\x92\x00\x93\x00\x94\x00\x06\x01\x03\x00\x5d\x00\x5e\x00\x17\x01\xeb\x00\x95\x00\xac\x00\xc3\x00\xc4\x00\x95\x00\x6c\x00\x03\x00\x5d\x00\x5e\x00\xf7\x00\x92\x00\x93\x00\x94\x00\xfc\x00\x96\x00\x97\x00\x05\x01\x99\x00\x96\x00\x97\x00\x07\x01\x99\x00\x9a\x00\x95\x00\xf8\x00\x0f\x01\x9a\x00\xf7\x00\x92\x00\x93\x00\x94\x00\x4b\x00\x89\x00\xed\x00\xf3\x00\x8a\x00\x4b\x00\x96\x00\x97\x00\xe5\x00\x99\x00\x95\x00\xf8\x00\xf9\x00\xce\x00\x9a\x00\x92\x00\x93\x00\x94\x00\x61\x00\x2c\x00\xd1\x00\xd8\x00\xd2\x00\x4b\x00\x96\x00\x97\x00\xf0\x00\x99\x00\x95\x00\x2d\x00\xb3\x00\x8f\x00\x9a\x00\x92\x00\x93\x00\x94\x00\x61\x00\x88\x00\xda\x00\xdd\x00\xad\x00\x4b\x00\x96\x00\x97\x00\xe0\x00\x99\x00\x95\x00\xb8\x00\xb5\x00\x88\x00\x9a\x00\x92\x00\x93\x00\x94\x00\x61\x00\xa2\x00\x74\x00\x7d\x00\x7e\x00\x4b\x00\x96\x00\x97\x00\xba\x00\x99\x00\x95\x00\x6a\x00\xb7\x00\x7f\x00\x9a\x00\x92\x00\x93\x00\x94\x00\x61\x00\x83\x00\x4b\x00\x92\x00\x93\x00\x94\x00\x96\x00\x97\x00\x98\x00\x99\x00\x95\x00\x84\x00\x90\x00\x6b\x00\x9a\x00\xe3\x00\x95\x00\x6c\x00\x6d\x00\x42\x00\x37\x00\x92\x00\x93\x00\x94\x00\x96\x00\x97\x00\xa7\x00\x99\x00\x38\x00\x4b\x00\x96\x00\xdf\x00\x9a\x00\x99\x00\x95\x00\x39\x00\x4b\x00\x4b\x00\x9a\x00\x92\x00\x93\x00\x94\x00\x61\x00\x0b\x00\x3f\x00\x0c\x00\x4b\x00\x3a\x00\xe6\x00\x61\x00\x61\x00\x99\x00\x95\x00\x3b\x00\x75\x00\x88\x00\x9a\x00\x3c\x00\x0d\x00\xb9\x00\x0e\x00\x62\x00\x67\x00\x4b\x00\x4c\x00\x4d\x00\xd4\x00\xc3\x00\xc4\x00\x99\x00\xe9\x00\x3d\x00\x4b\x00\x2b\x00\x9a\x00\x4b\x00\x4e\x00\x4f\x00\xf5\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\xea\x00\x80\x00\x53\x00\x25\x00\x68\x00\xeb\x00\x26\x00\x21\x00\x1b\x00\x1c\x00\x4e\x00\x4f\x00\xcf\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\x1e\x00\x16\x00\x53\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x5d\x00\x12\x01\x14\x01\x4e\x00\x4f\x00\xc4\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\x13\x01\x15\x01\x53\x00\xb3\x00\x88\xff\x03\x00\x0d\x01\x0f\x01\x5e\x00\x02\x01\x4e\x00\x4f\x00\xc5\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\x03\x01\xb3\x00\x53\x00\xd1\x00\xb3\x00\xc1\x00\x03\x00\x88\xff\xf3\x00\xf2\x00\x4e\x00\x4f\x00\x82\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\xd6\x00\xd7\x00\x53\x00\xd8\x00\x03\x00\xdf\x00\xe2\x00\x5e\x00\xe3\x00\xb7\x00\x4e\x00\x4f\x00\xa9\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\xc2\x00\xb3\x00\x53\x00\xc1\x00\x03\x00\x03\x00\xce\x00\x03\x00\x8c\x00\x8d\x00\x4e\x00\x4f\x00\xaa\x00\x51\x00\x52\x00\x81\x00\x4c\x00\x4d\x00\x90\x00\x8e\x00\x53\x00\x03\x00\x5e\x00\xa4\x00\xa6\x00\xa5\x00\xa7\x00\xa9\x00\x4e\x00\x4f\x00\x82\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\xac\x00\x6f\x00\x53\x00\x03\x00\x70\x00\x72\x00\x71\x00\x73\x00\x74\x00\x5e\x00\x4e\x00\x4f\x00\x50\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\x7c\x00\x7d\x00\x53\x00\x03\x00\x88\x00\x4b\x00\x4c\x00\x4d\x00\x5e\x00\x03\x00\x4e\x00\x4f\x00\x69\x00\x51\x00\x52\x00\x44\x00\x45\x00\x46\x00\x4e\x00\x47\x00\x53\x00\x85\x00\x52\x00\x48\x00\x49\x00\x4a\x00\x4b\x00\x3f\x00\x53\x00\x41\x00\x03\x00\x42\x00\x37\x00\x03\x00\x2b\x00\x03\x00\x28\x00\x24\x00\x03\x00\x25\x00\x03\x00\x21\x00\x1e\x00\x20\x00\x03\x00\x13\x00\x1a\x00\x1b\x00\x15\x00\x14\x00\x03\x00\x06\x00\x03\x00\x00\x00\x00\x00\x00\x00\x03\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\x00\x00\x00\x00\x00\x00\x00\x00"#
-happyReduceArr = array (1, 135) [
+happyReduceArr = array (1, 136) [
(1 , happyReduce_1),
(2 , happyReduce_2),
(3 , happyReduce_3),
@@ -489,7 +489,8 @@ happyReduceArr = array (1, 135) [
(132 , happyReduce_132),
(133 , happyReduce_133),
(134 , happyReduce_134),
- (135 , happyReduce_135)
+ (135 , happyReduce_135),
+ (136 , happyReduce_136)
]
happy_n_terms = 54 :: Int
@@ -1206,8 +1207,21 @@ happyReduction_77 (happy_x_5 `HappyStk`
(T happy_var_2 happy_var_4
) `HappyStk` happyRest}}
-happyReduce_78 = happySpecReduce_3 28# happyReduction_78
-happyReduction_78 happy_x_3
+happyReduce_78 = happyReduce 5# 28# happyReduction_78
+happyReduction_78 (happy_x_5 `HappyStk`
+ happy_x_4 `HappyStk`
+ happy_x_3 `HappyStk`
+ happy_x_2 `HappyStk`
+ happy_x_1 `HappyStk`
+ happyRest)
+ = case happyOut29 happy_x_2 of { happy_var_2 ->
+ case happyOut51 happy_x_4 of { happy_var_4 ->
+ happyIn32
+ (V happy_var_2 (reverse happy_var_4)
+ ) `HappyStk` happyRest}}
+
+happyReduce_79 = happySpecReduce_3 28# happyReduction_79
+happyReduction_79 happy_x_3
happy_x_2
happy_x_1
= case happyOut32 happy_x_1 of { happy_var_1 ->
@@ -1216,8 +1230,8 @@ happyReduction_78 happy_x_3
(S happy_var_1 happy_var_3
)}}
-happyReduce_79 = happyReduce 4# 28# happyReduction_79
-happyReduction_79 (happy_x_4 `HappyStk`
+happyReduce_80 = happyReduce 4# 28# happyReduction_80
+happyReduction_80 (happy_x_4 `HappyStk`
happy_x_3 `HappyStk`
happy_x_2 `HappyStk`
happy_x_1 `HappyStk`
@@ -1227,15 +1241,15 @@ happyReduction_79 (happy_x_4 `HappyStk`
(FV (reverse happy_var_3)
) `HappyStk` happyRest}
-happyReduce_80 = happySpecReduce_1 28# happyReduction_80
-happyReduction_80 happy_x_1
+happyReduce_81 = happySpecReduce_1 28# happyReduction_81
+happyReduction_81 happy_x_1
= case happyOut31 happy_x_1 of { happy_var_1 ->
happyIn32
(happy_var_1
)}
-happyReduce_81 = happySpecReduce_3 29# happyReduction_81
-happyReduction_81 happy_x_3
+happyReduce_82 = happySpecReduce_3 29# happyReduction_82
+happyReduction_82 happy_x_3
happy_x_2
happy_x_1
= case happyOut33 happy_x_1 of { happy_var_1 ->
@@ -1244,22 +1258,22 @@ happyReduction_81 happy_x_3
(C happy_var_1 happy_var_3
)}}
-happyReduce_82 = happySpecReduce_1 29# happyReduction_82
-happyReduction_82 happy_x_1
+happyReduce_83 = happySpecReduce_1 29# happyReduction_83
+happyReduction_83 happy_x_1
= case happyOut32 happy_x_1 of { happy_var_1 ->
happyIn33
(happy_var_1
)}
-happyReduce_83 = happySpecReduce_1 30# happyReduction_83
-happyReduction_83 happy_x_1
+happyReduce_84 = happySpecReduce_1 30# happyReduction_84
+happyReduction_84 happy_x_1
= case happyOut5 happy_x_1 of { happy_var_1 ->
happyIn34
(KS happy_var_1
)}
-happyReduce_84 = happyReduce 7# 30# happyReduction_84
-happyReduction_84 (happy_x_7 `HappyStk`
+happyReduce_85 = happyReduce 7# 30# happyReduction_85
+happyReduction_85 (happy_x_7 `HappyStk`
happy_x_6 `HappyStk`
happy_x_5 `HappyStk`
happy_x_4 `HappyStk`
@@ -1273,8 +1287,8 @@ happyReduction_84 (happy_x_7 `HappyStk`
(KP (reverse happy_var_3) happy_var_5
) `HappyStk` happyRest}}
-happyReduce_85 = happySpecReduce_3 31# happyReduction_85
-happyReduction_85 happy_x_3
+happyReduce_86 = happySpecReduce_3 31# happyReduction_86
+happyReduction_86 happy_x_3
happy_x_2
happy_x_1
= case happyOut38 happy_x_1 of { happy_var_1 ->
@@ -1283,8 +1297,8 @@ happyReduction_85 happy_x_3
(Ass happy_var_1 happy_var_3
)}}
-happyReduce_86 = happySpecReduce_3 32# happyReduction_86
-happyReduction_86 happy_x_3
+happyReduce_87 = happySpecReduce_3 32# happyReduction_87
+happyReduction_87 happy_x_3
happy_x_2
happy_x_1
= case happyOut55 happy_x_1 of { happy_var_1 ->
@@ -1293,8 +1307,8 @@ happyReduction_86 happy_x_3
(Cas (reverse happy_var_1) happy_var_3
)}}
-happyReduce_87 = happySpecReduce_3 33# happyReduction_87
-happyReduction_87 happy_x_3
+happyReduce_88 = happySpecReduce_3 33# happyReduction_88
+happyReduction_88 happy_x_3
happy_x_2
happy_x_1
= case happyOut52 happy_x_1 of { happy_var_1 ->
@@ -1303,23 +1317,23 @@ happyReduction_87 happy_x_3
(Var (reverse happy_var_1) (reverse happy_var_3)
)}}
-happyReduce_88 = happySpecReduce_1 34# happyReduction_88
-happyReduction_88 happy_x_1
+happyReduce_89 = happySpecReduce_1 34# happyReduction_89
+happyReduction_89 happy_x_1
= case happyOut4 happy_x_1 of { happy_var_1 ->
happyIn38
(L happy_var_1
)}
-happyReduce_89 = happySpecReduce_2 34# happyReduction_89
-happyReduction_89 happy_x_2
+happyReduce_90 = happySpecReduce_2 34# happyReduction_90
+happyReduction_90 happy_x_2
happy_x_1
= case happyOut6 happy_x_2 of { happy_var_2 ->
happyIn38
(LV happy_var_2
)}
-happyReduce_90 = happySpecReduce_3 35# happyReduction_90
-happyReduction_90 happy_x_3
+happyReduce_91 = happySpecReduce_3 35# happyReduction_91
+happyReduction_91 happy_x_3
happy_x_2
happy_x_1
= case happyOut4 happy_x_1 of { happy_var_1 ->
@@ -1328,8 +1342,8 @@ happyReduction_90 happy_x_3
(A happy_var_1 happy_var_3
)}}
-happyReduce_91 = happyReduce 5# 35# happyReduction_91
-happyReduction_91 (happy_x_5 `HappyStk`
+happyReduce_92 = happyReduce 5# 35# happyReduction_92
+happyReduction_92 (happy_x_5 `HappyStk`
happy_x_4 `HappyStk`
happy_x_3 `HappyStk`
happy_x_2 `HappyStk`
@@ -1342,8 +1356,8 @@ happyReduction_91 (happy_x_5 `HappyStk`
(AB happy_var_1 happy_var_3 happy_var_5
) `HappyStk` happyRest}}}
-happyReduce_92 = happyReduce 4# 36# happyReduction_92
-happyReduction_92 (happy_x_4 `HappyStk`
+happyReduce_93 = happyReduce 4# 36# happyReduction_93
+happyReduction_93 (happy_x_4 `HappyStk`
happy_x_3 `HappyStk`
happy_x_2 `HappyStk`
happy_x_1 `HappyStk`
@@ -1354,21 +1368,21 @@ happyReduction_92 (happy_x_4 `HappyStk`
(PC happy_var_2 (reverse happy_var_3)
) `HappyStk` happyRest}}
-happyReduce_93 = happySpecReduce_1 36# happyReduction_93
-happyReduction_93 happy_x_1
+happyReduce_94 = happySpecReduce_1 36# happyReduction_94
+happyReduction_94 happy_x_1
= case happyOut4 happy_x_1 of { happy_var_1 ->
happyIn40
(PV happy_var_1
)}
-happyReduce_94 = happySpecReduce_1 36# happyReduction_94
-happyReduction_94 happy_x_1
+happyReduce_95 = happySpecReduce_1 36# happyReduction_95
+happyReduction_95 happy_x_1
= happyIn40
(PW
)
-happyReduce_95 = happySpecReduce_3 36# happyReduction_95
-happyReduction_95 happy_x_3
+happyReduce_96 = happySpecReduce_3 36# happyReduction_96
+happyReduction_96 happy_x_3
happy_x_2
happy_x_1
= case happyOut54 happy_x_2 of { happy_var_2 ->
@@ -1376,15 +1390,15 @@ happyReduction_95 happy_x_3
(PR happy_var_2
)}
-happyReduce_96 = happySpecReduce_1 36# happyReduction_96
-happyReduction_96 happy_x_1
+happyReduce_97 = happySpecReduce_1 36# happyReduction_97
+happyReduction_97 happy_x_1
= case happyOut6 happy_x_1 of { happy_var_1 ->
happyIn40
(PI happy_var_1
)}
-happyReduce_97 = happySpecReduce_3 37# happyReduction_97
-happyReduction_97 happy_x_3
+happyReduce_98 = happySpecReduce_3 37# happyReduction_98
+happyReduction_98 happy_x_3
happy_x_2
happy_x_1
= case happyOut38 happy_x_1 of { happy_var_1 ->
@@ -1393,13 +1407,13 @@ happyReduction_97 happy_x_3
(PAss happy_var_1 happy_var_3
)}}
-happyReduce_98 = happySpecReduce_0 38# happyReduction_98
-happyReduction_98 = happyIn42
+happyReduce_99 = happySpecReduce_0 38# happyReduction_99
+happyReduction_99 = happyIn42
([]
)
-happyReduce_99 = happySpecReduce_3 38# happyReduction_99
-happyReduction_99 happy_x_3
+happyReduce_100 = happySpecReduce_3 38# happyReduction_100
+happyReduction_100 happy_x_3
happy_x_2
happy_x_1
= case happyOut42 happy_x_1 of { happy_var_1 ->
@@ -1408,13 +1422,13 @@ happyReduction_99 happy_x_3
(flip (:) happy_var_1 happy_var_2
)}}
-happyReduce_100 = happySpecReduce_0 39# happyReduction_100
-happyReduction_100 = happyIn43
+happyReduce_101 = happySpecReduce_0 39# happyReduction_101
+happyReduction_101 = happyIn43
([]
)
-happyReduce_101 = happySpecReduce_3 39# happyReduction_101
-happyReduction_101 happy_x_3
+happyReduce_102 = happySpecReduce_3 39# happyReduction_102
+happyReduction_102 happy_x_3
happy_x_2
happy_x_1
= case happyOut43 happy_x_1 of { happy_var_1 ->
@@ -1423,20 +1437,20 @@ happyReduction_101 happy_x_3
(flip (:) happy_var_1 happy_var_2
)}}
-happyReduce_102 = happySpecReduce_0 40# happyReduction_102
-happyReduction_102 = happyIn44
+happyReduce_103 = happySpecReduce_0 40# happyReduction_103
+happyReduction_103 = happyIn44
([]
)
-happyReduce_103 = happySpecReduce_1 40# happyReduction_103
-happyReduction_103 happy_x_1
+happyReduce_104 = happySpecReduce_1 40# happyReduction_104
+happyReduction_104 happy_x_1
= case happyOut15 happy_x_1 of { happy_var_1 ->
happyIn44
((:[]) happy_var_1
)}
-happyReduce_104 = happySpecReduce_3 40# happyReduction_104
-happyReduction_104 happy_x_3
+happyReduce_105 = happySpecReduce_3 40# happyReduction_105
+happyReduction_105 happy_x_3
happy_x_2
happy_x_1
= case happyOut15 happy_x_1 of { happy_var_1 ->
@@ -1445,13 +1459,13 @@ happyReduction_104 happy_x_3
((:) happy_var_1 happy_var_3
)}}
-happyReduce_105 = happySpecReduce_0 41# happyReduction_105
-happyReduction_105 = happyIn45
+happyReduce_106 = happySpecReduce_0 41# happyReduction_106
+happyReduction_106 = happyIn45
([]
)
-happyReduce_106 = happySpecReduce_2 41# happyReduction_106
-happyReduction_106 happy_x_2
+happyReduce_107 = happySpecReduce_2 41# happyReduction_107
+happyReduction_107 happy_x_2
happy_x_1
= case happyOut45 happy_x_1 of { happy_var_1 ->
case happyOut29 happy_x_2 of { happy_var_2 ->
@@ -1459,13 +1473,13 @@ happyReduction_106 happy_x_2
(flip (:) happy_var_1 happy_var_2
)}}
-happyReduce_107 = happySpecReduce_0 42# happyReduction_107
-happyReduction_107 = happyIn46
+happyReduce_108 = happySpecReduce_0 42# happyReduction_108
+happyReduction_108 = happyIn46
([]
)
-happyReduce_108 = happySpecReduce_2 42# happyReduction_108
-happyReduction_108 happy_x_2
+happyReduce_109 = happySpecReduce_2 42# happyReduction_109
+happyReduction_109 happy_x_2
happy_x_1
= case happyOut46 happy_x_1 of { happy_var_1 ->
case happyOut17 happy_x_2 of { happy_var_2 ->
@@ -1473,20 +1487,20 @@ happyReduction_108 happy_x_2
(flip (:) happy_var_1 happy_var_2
)}}
-happyReduce_109 = happySpecReduce_0 43# happyReduction_109
-happyReduction_109 = happyIn47
+happyReduce_110 = happySpecReduce_0 43# happyReduction_110
+happyReduction_110 = happyIn47
([]
)
-happyReduce_110 = happySpecReduce_1 43# happyReduction_110
-happyReduction_110 happy_x_1
+happyReduce_111 = happySpecReduce_1 43# happyReduction_111
+happyReduction_111 happy_x_1
= case happyOut35 happy_x_1 of { happy_var_1 ->
happyIn47
((:[]) happy_var_1
)}
-happyReduce_111 = happySpecReduce_3 43# happyReduction_111
-happyReduction_111 happy_x_3
+happyReduce_112 = happySpecReduce_3 43# happyReduction_112
+happyReduction_112 happy_x_3
happy_x_2
happy_x_1
= case happyOut35 happy_x_1 of { happy_var_1 ->
@@ -1495,20 +1509,20 @@ happyReduction_111 happy_x_3
((:) happy_var_1 happy_var_3
)}}
-happyReduce_112 = happySpecReduce_0 44# happyReduction_112
-happyReduction_112 = happyIn48
+happyReduce_113 = happySpecReduce_0 44# happyReduction_113
+happyReduction_113 = happyIn48
([]
)
-happyReduce_113 = happySpecReduce_1 44# happyReduction_113
-happyReduction_113 happy_x_1
+happyReduce_114 = happySpecReduce_1 44# happyReduction_114
+happyReduction_114 happy_x_1
= case happyOut39 happy_x_1 of { happy_var_1 ->
happyIn48
((:[]) happy_var_1
)}
-happyReduce_114 = happySpecReduce_3 44# happyReduction_114
-happyReduction_114 happy_x_3
+happyReduce_115 = happySpecReduce_3 44# happyReduction_115
+happyReduction_115 happy_x_3
happy_x_2
happy_x_1
= case happyOut39 happy_x_1 of { happy_var_1 ->
@@ -1517,20 +1531,20 @@ happyReduction_114 happy_x_3
((:) happy_var_1 happy_var_3
)}}
-happyReduce_115 = happySpecReduce_0 45# happyReduction_115
-happyReduction_115 = happyIn49
+happyReduce_116 = happySpecReduce_0 45# happyReduction_116
+happyReduction_116 = happyIn49
([]
)
-happyReduce_116 = happySpecReduce_1 45# happyReduction_116
-happyReduction_116 happy_x_1
+happyReduce_117 = happySpecReduce_1 45# happyReduction_117
+happyReduction_117 happy_x_1
= case happyOut30 happy_x_1 of { happy_var_1 ->
happyIn49
((:[]) happy_var_1
)}
-happyReduce_117 = happySpecReduce_3 45# happyReduction_117
-happyReduction_117 happy_x_3
+happyReduce_118 = happySpecReduce_3 45# happyReduction_118
+happyReduction_118 happy_x_3
happy_x_2
happy_x_1
= case happyOut30 happy_x_1 of { happy_var_1 ->
@@ -1539,20 +1553,20 @@ happyReduction_117 happy_x_3
((:) happy_var_1 happy_var_3
)}}
-happyReduce_118 = happySpecReduce_0 46# happyReduction_118
-happyReduction_118 = happyIn50
+happyReduce_119 = happySpecReduce_0 46# happyReduction_119
+happyReduction_119 = happyIn50
([]
)
-happyReduce_119 = happySpecReduce_1 46# happyReduction_119
-happyReduction_119 happy_x_1
+happyReduce_120 = happySpecReduce_1 46# happyReduction_120
+happyReduction_120 happy_x_1
= case happyOut36 happy_x_1 of { happy_var_1 ->
happyIn50
((:[]) happy_var_1
)}
-happyReduce_120 = happySpecReduce_3 46# happyReduction_120
-happyReduction_120 happy_x_3
+happyReduce_121 = happySpecReduce_3 46# happyReduction_121
+happyReduction_121 happy_x_3
happy_x_2
happy_x_1
= case happyOut36 happy_x_1 of { happy_var_1 ->
@@ -1561,13 +1575,13 @@ happyReduction_120 happy_x_3
((:) happy_var_1 happy_var_3
)}}
-happyReduce_121 = happySpecReduce_0 47# happyReduction_121
-happyReduction_121 = happyIn51
+happyReduce_122 = happySpecReduce_0 47# happyReduction_122
+happyReduction_122 = happyIn51
([]
)
-happyReduce_122 = happySpecReduce_2 47# happyReduction_122
-happyReduction_122 happy_x_2
+happyReduce_123 = happySpecReduce_2 47# happyReduction_123
+happyReduction_123 happy_x_2
happy_x_1
= case happyOut51 happy_x_1 of { happy_var_1 ->
case happyOut31 happy_x_2 of { happy_var_2 ->
@@ -1575,13 +1589,13 @@ happyReduction_122 happy_x_2
(flip (:) happy_var_1 happy_var_2
)}}
-happyReduce_123 = happySpecReduce_0 48# happyReduction_123
-happyReduction_123 = happyIn52
+happyReduce_124 = happySpecReduce_0 48# happyReduction_124
+happyReduction_124 = happyIn52
([]
)
-happyReduce_124 = happySpecReduce_2 48# happyReduction_124
-happyReduction_124 happy_x_2
+happyReduce_125 = happySpecReduce_2 48# happyReduction_125
+happyReduction_125 happy_x_2
happy_x_1
= case happyOut52 happy_x_1 of { happy_var_1 ->
case happyOut5 happy_x_2 of { happy_var_2 ->
@@ -1589,20 +1603,20 @@ happyReduction_124 happy_x_2
(flip (:) happy_var_1 happy_var_2
)}}
-happyReduce_125 = happySpecReduce_0 49# happyReduction_125
-happyReduction_125 = happyIn53
+happyReduce_126 = happySpecReduce_0 49# happyReduction_126
+happyReduction_126 = happyIn53
([]
)
-happyReduce_126 = happySpecReduce_1 49# happyReduction_126
-happyReduction_126 happy_x_1
+happyReduce_127 = happySpecReduce_1 49# happyReduction_127
+happyReduction_127 happy_x_1
= case happyOut37 happy_x_1 of { happy_var_1 ->
happyIn53
((:[]) happy_var_1
)}
-happyReduce_127 = happySpecReduce_3 49# happyReduction_127
-happyReduction_127 happy_x_3
+happyReduce_128 = happySpecReduce_3 49# happyReduction_128
+happyReduction_128 happy_x_3
happy_x_2
happy_x_1
= case happyOut37 happy_x_1 of { happy_var_1 ->
@@ -1611,20 +1625,20 @@ happyReduction_127 happy_x_3
((:) happy_var_1 happy_var_3
)}}
-happyReduce_128 = happySpecReduce_0 50# happyReduction_128
-happyReduction_128 = happyIn54
+happyReduce_129 = happySpecReduce_0 50# happyReduction_129
+happyReduction_129 = happyIn54
([]
)
-happyReduce_129 = happySpecReduce_1 50# happyReduction_129
-happyReduction_129 happy_x_1
+happyReduce_130 = happySpecReduce_1 50# happyReduction_130
+happyReduction_130 happy_x_1
= case happyOut41 happy_x_1 of { happy_var_1 ->
happyIn54
((:[]) happy_var_1
)}
-happyReduce_130 = happySpecReduce_3 50# happyReduction_130
-happyReduction_130 happy_x_3
+happyReduce_131 = happySpecReduce_3 50# happyReduction_131
+happyReduction_131 happy_x_3
happy_x_2
happy_x_1
= case happyOut41 happy_x_1 of { happy_var_1 ->
@@ -1633,13 +1647,13 @@ happyReduction_130 happy_x_3
((:) happy_var_1 happy_var_3
)}}
-happyReduce_131 = happySpecReduce_0 51# happyReduction_131
-happyReduction_131 = happyIn55
+happyReduce_132 = happySpecReduce_0 51# happyReduction_132
+happyReduction_132 = happyIn55
([]
)
-happyReduce_132 = happySpecReduce_2 51# happyReduction_132
-happyReduction_132 happy_x_2
+happyReduce_133 = happySpecReduce_2 51# happyReduction_133
+happyReduction_133 happy_x_2
happy_x_1
= case happyOut55 happy_x_1 of { happy_var_1 ->
case happyOut40 happy_x_2 of { happy_var_2 ->
@@ -1647,20 +1661,20 @@ happyReduction_132 happy_x_2
(flip (:) happy_var_1 happy_var_2
)}}
-happyReduce_133 = happySpecReduce_0 52# happyReduction_133
-happyReduction_133 = happyIn56
+happyReduce_134 = happySpecReduce_0 52# happyReduction_134
+happyReduction_134 = happyIn56
([]
)
-happyReduce_134 = happySpecReduce_1 52# happyReduction_134
-happyReduction_134 happy_x_1
+happyReduce_135 = happySpecReduce_1 52# happyReduction_135
+happyReduction_135 happy_x_1
= case happyOut4 happy_x_1 of { happy_var_1 ->
happyIn56
((:[]) happy_var_1
)}
-happyReduce_135 = happySpecReduce_3 52# happyReduction_135
-happyReduction_135 happy_x_3
+happyReduce_136 = happySpecReduce_3 52# happyReduction_136
+happyReduction_136 happy_x_3
happy_x_2
happy_x_1
= case happyOut4 happy_x_1 of { happy_var_1 ->
@@ -1739,7 +1753,7 @@ happyReturn1 = \a tks -> (returnM) a
pCanon tks = happyThen (happyParse 0# tks) (\x -> happyReturn (happyOut7 x))
-happySeq = happyDoSeq -- H
+happySeq = happyDontSeq
returnM :: a -> Err a
returnM = return
@@ -1753,7 +1767,7 @@ happyError ts =
myLexer = tokens
{-# LINE 1 "GenericTemplate.hs" #-}
--- $Id: ParGFC.hs,v 1.5 2004/12/02 17:13:17 bringert Exp $
+-- $Id: ParGFC.hs,v 1.6 2005/01/11 16:06:15 aarne Exp $
diff --git a/src/GF/Canon/PrintGFC.hs b/src/GF/Canon/PrintGFC.hs
index 3e6ddc88e..d88ffe3a4 100644
--- a/src/GF/Canon/PrintGFC.hs
+++ b/src/GF/Canon/PrintGFC.hs
@@ -258,6 +258,7 @@ instance Print Term where
R assigns -> prPrec i 2 (concatD [doc (showString "{") , prt 0 assigns , doc (showString "}")])
P term label -> prPrec i 1 (concatD [prt 2 term , doc (showString ".") , prt 0 label])
T ctype cases -> prPrec i 1 (concatD [doc (showString "table") , prt 0 ctype , doc (showString "{") , prt 0 cases , doc (showString "}")])
+ V ctype terms -> prPrec i 1 (concatD [doc (showString "table") , prt 0 ctype , doc (showString "[") , prt 2 terms , doc (showString "]")])
S term0 term -> prPrec i 1 (concatD [prt 1 term0 , doc (showString "!") , prt 2 term])
C term0 term -> prPrec i 0 (concatD [prt 0 term0 , doc (showString "++") , prt 1 term])
FV terms -> prPrec i 1 (concatD [doc (showString "variants") , doc (showString "{") , prt 2 terms , doc (showString "}")])
diff --git a/src/GF/Canon/Share.hs b/src/GF/Canon/Share.hs
index 63e12436a..f482505b0 100644
--- a/src/GF/Canon/Share.hs
+++ b/src/GF/Canon/Share.hs
@@ -1,4 +1,4 @@
-module Share (shareModule, OptSpec, basicOpt, fullOpt) where
+module Share (shareModule, OptSpec, basicOpt, fullOpt, valOpt) where
import AbsGFC
import Ident
@@ -13,8 +13,10 @@ import qualified Modules as M
type OptSpec = [Integer] ---
doOptFactor opt = elem 2 opt
+doOptValues opt = elem 3 opt
basicOpt = []
fullOpt = [2]
+valOpt = [3]
shareModule :: OptSpec -> (Ident, CanonModInfo) -> (Ident, CanonModInfo)
shareModule opt (i,m) = case m of
@@ -30,6 +32,7 @@ shareInfo _ i = i
shareOpt :: OptSpec -> Term -> Term
shareOpt opt
| doOptFactor opt = share . factor 0
+ | doOptValues opt = values
| otherwise = share
-- we need no counter to create new variable names, since variables are
@@ -114,3 +117,7 @@ replace old new trm = case trm of
R _ -> True
_ -> False
+values :: Term -> Term
+values t = case t of
+ T ty cs -> V ty [values t | Cas _ t <- cs] -- assumes proper order
+ _ -> C.composSafeOp values t
diff --git a/src/GF/Canon/SkelGFC.hs b/src/GF/Canon/SkelGFC.hs
index 2459500b5..d61c841ff 100644
--- a/src/GF/Canon/SkelGFC.hs
+++ b/src/GF/Canon/SkelGFC.hs
@@ -146,6 +146,7 @@ transTerm x = case x of
R assigns -> failure x
P term label -> failure x
T ctype cases -> failure x
+ V ctype terms -> failure x
S term0 term -> failure x
C term0 term -> failure x
FV terms -> failure x
@@ -158,6 +159,7 @@ transTokn :: Tokn -> Result
transTokn x = case x of
KS str -> failure x
KP strs variants -> failure x
+ KM str -> failure x
transAssign :: Assign -> Result
diff --git a/src/GF/Canon/TestGFC.hs b/src/GF/Canon/TestGFC.hs
index ee4175610..0ee7c8ebf 100644
--- a/src/GF/Canon/TestGFC.hs
+++ b/src/GF/Canon/TestGFC.hs
@@ -18,22 +18,28 @@ type ParseFun a = [Token] -> Err a
myLLexer = myLexer
-runFile :: (Print a, Show a) => ParseFun a -> FilePath -> IO ()
-runFile p f = readFile f >>= run p
+type Verbosity = Int
-run :: (Print a, Show a) => ParseFun a -> String -> IO ()
-run p s = case (p (myLLexer s)) of
- Bad s -> do putStrLn "\nParse Failed...\n"
+putStrV :: Verbosity -> String -> IO ()
+putStrV v s = if v > 1 then putStrLn s else return ()
+
+runFile :: (Print a, Show a) => Verbosity -> ParseFun a -> FilePath -> IO ()
+runFile v p f = putStrLn f >> readFile f >>= run v p
+
+run :: (Print a, Show a) => Verbosity -> ParseFun a -> String -> IO ()
+run v p s = let ts = myLLexer s in case p ts of
+ Bad s -> do putStrLn "\nParse Failed...\n"
+ putStrV v "Tokens:"
+ putStrV v $ show ts
putStrLn s
Ok tree -> do putStrLn "\nParse Successful!"
- putStrLn $ "\n[Abstract Syntax]\n\n" ++ show tree
- putStrLn $ "\n[Linearized tree]\n\n" ++ printTree tree
+ putStrV v $ "\n[Abstract Syntax]\n\n" ++ show tree
+ putStrV v $ "\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."
+ [] -> hGetContents stdin >>= run 2 pCanon
+ "-s":fs -> mapM_ (runFile 0 pCanon) fs
+ fs -> mapM_ (runFile 2 pCanon) fs
generated by cgit v1.2.3 (git 2.39.1) at 2026-05-20 13:35:48 +0000