From 055c0d0d5a5bb0dc75904fe53df7f2e4f5732a8f Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 21 May 2008 09:26:44 +0000 Subject: GF/src is now for 2.9, and the new sources are in src-3.0 - keep it this way until the release of GF 3 --- src-3.0/GF/Source/AbsGF.hs | 306 ++ src-3.0/GF/Source/ErrM.hs | 26 + src-3.0/GF/Source/GF.cf | 370 ++ src-3.0/GF/Source/GrammarToSource.hs | 259 ++ src-3.0/GF/Source/LexGF.hs | 345 ++ src-3.0/GF/Source/LexGF.x | 137 + src-3.0/GF/Source/ParGF.hs | 7845 ++++++++++++++++++++++++++++++++++ src-3.0/GF/Source/ParGF.y | 642 +++ src-3.0/GF/Source/PrintGF.hs | 532 +++ src-3.0/GF/Source/SkelGF.hs | 364 ++ src-3.0/GF/Source/SourceToGrammar.hs | 755 ++++ src-3.0/GF/Source/TestGF.hs | 58 + 12 files changed, 11639 insertions(+) create mode 100644 src-3.0/GF/Source/AbsGF.hs create mode 100644 src-3.0/GF/Source/ErrM.hs create mode 100644 src-3.0/GF/Source/GF.cf create mode 100644 src-3.0/GF/Source/GrammarToSource.hs create mode 100644 src-3.0/GF/Source/LexGF.hs create mode 100644 src-3.0/GF/Source/LexGF.x create mode 100644 src-3.0/GF/Source/ParGF.hs create mode 100644 src-3.0/GF/Source/ParGF.y create mode 100644 src-3.0/GF/Source/PrintGF.hs create mode 100644 src-3.0/GF/Source/SkelGF.hs create mode 100644 src-3.0/GF/Source/SourceToGrammar.hs create mode 100644 src-3.0/GF/Source/TestGF.hs (limited to 'src-3.0/GF/Source') diff --git a/src-3.0/GF/Source/AbsGF.hs b/src-3.0/GF/Source/AbsGF.hs new file mode 100644 index 000000000..63cc43006 --- /dev/null +++ b/src-3.0/GF/Source/AbsGF.hs @@ -0,0 +1,306 @@ +module GF.Source.AbsGF where + +-- Haskell module generated by the BNF converter + +newtype LString = LString String deriving (Eq,Ord,Show) +newtype PIdent = PIdent ((Int,Int),String) deriving (Eq,Ord,Show) +data Grammar = + Gr [ModDef] + deriving (Eq,Ord,Show) + +data ModDef = + MMain PIdent PIdent [ConcSpec] + | MModule ComplMod ModType ModBody + deriving (Eq,Ord,Show) + +data ConcSpec = + ConcSpec PIdent ConcExp + deriving (Eq,Ord,Show) + +data ConcExp = + ConcExp PIdent [Transfer] + deriving (Eq,Ord,Show) + +data Transfer = + TransferIn Open + | TransferOut Open + deriving (Eq,Ord,Show) + +data ModType = + MTAbstract PIdent + | MTResource PIdent + | MTInterface PIdent + | MTConcrete PIdent PIdent + | MTInstance PIdent PIdent + | MTTransfer PIdent Open Open + deriving (Eq,Ord,Show) + +data ModBody = + MBody Extend Opens [TopDef] + | MNoBody [Included] + | MWith Included [Open] + | MWithBody Included [Open] Opens [TopDef] + | MWithE [Included] Included [Open] + | MWithEBody [Included] Included [Open] Opens [TopDef] + | MReuse PIdent + | MUnion [Included] + deriving (Eq,Ord,Show) + +data Extend = + Ext [Included] + | NoExt + deriving (Eq,Ord,Show) + +data Opens = + NoOpens + | OpenIn [Open] + deriving (Eq,Ord,Show) + +data Open = + OName PIdent + | OQualQO QualOpen PIdent + | OQual QualOpen PIdent PIdent + deriving (Eq,Ord,Show) + +data ComplMod = + CMCompl + | CMIncompl + deriving (Eq,Ord,Show) + +data QualOpen = + QOCompl + | QOIncompl + | QOInterface + deriving (Eq,Ord,Show) + +data Included = + IAll PIdent + | ISome PIdent [PIdent] + | IMinus PIdent [PIdent] + deriving (Eq,Ord,Show) + +data Def = + DDecl [Name] Exp + | DDef [Name] Exp + | DPatt Name [Patt] Exp + | DFull [Name] Exp Exp + deriving (Eq,Ord,Show) + +data TopDef = + DefCat [CatDef] + | DefFun [FunDef] + | DefFunData [FunDef] + | DefDef [Def] + | DefData [DataDef] + | DefTrans [Def] + | DefPar [ParDef] + | DefOper [Def] + | DefLincat [PrintDef] + | DefLindef [Def] + | DefLin [Def] + | DefPrintCat [PrintDef] + | DefPrintFun [PrintDef] + | DefFlag [FlagDef] + | DefPrintOld [PrintDef] + | DefLintype [Def] + | DefPattern [Def] + | DefPackage PIdent [TopDef] + | DefVars [Def] + | DefTokenizer PIdent + deriving (Eq,Ord,Show) + +data CatDef = + SimpleCatDef PIdent [DDecl] + | ListCatDef PIdent [DDecl] + | ListSizeCatDef PIdent [DDecl] Integer + deriving (Eq,Ord,Show) + +data FunDef = + FunDef [PIdent] Exp + deriving (Eq,Ord,Show) + +data DataDef = + DataDef PIdent [DataConstr] + deriving (Eq,Ord,Show) + +data DataConstr = + DataId PIdent + | DataQId PIdent PIdent + deriving (Eq,Ord,Show) + +data ParDef = + ParDefDir PIdent [ParConstr] + | ParDefIndir PIdent PIdent + | ParDefAbs PIdent + deriving (Eq,Ord,Show) + +data ParConstr = + ParConstr PIdent [DDecl] + deriving (Eq,Ord,Show) + +data PrintDef = + PrintDef [Name] Exp + deriving (Eq,Ord,Show) + +data FlagDef = + FlagDef PIdent PIdent + deriving (Eq,Ord,Show) + +data Name = + IdentName PIdent + | ListName PIdent + deriving (Eq,Ord,Show) + +data LocDef = + LDDecl [PIdent] Exp + | LDDef [PIdent] Exp + | LDFull [PIdent] Exp Exp + deriving (Eq,Ord,Show) + +data Exp = + EIdent PIdent + | EConstr PIdent + | ECons PIdent + | ESort Sort + | EString String + | EInt Integer + | EFloat Double + | EMeta + | EEmpty + | EData + | EList PIdent Exps + | EStrings String + | ERecord [LocDef] + | ETuple [TupleComp] + | EIndir PIdent + | ETyped Exp Exp + | EProj Exp Label + | EQConstr PIdent PIdent + | EQCons PIdent PIdent + | EApp Exp Exp + | ETable [Case] + | ETTable Exp [Case] + | EVTable Exp [Exp] + | ECase Exp [Case] + | EVariants [Exp] + | EPre Exp [Altern] + | EStrs [Exp] + | EConAt PIdent Exp + | EPatt Patt + | EPattType Exp + | ESelect Exp Exp + | ETupTyp Exp Exp + | EExtend Exp Exp + | EGlue Exp Exp + | EConcat Exp Exp + | EAbstr [Bind] Exp + | ECTable [Bind] Exp + | EProd Decl Exp + | ETType Exp Exp + | ELet [LocDef] Exp + | ELetb [LocDef] Exp + | EWhere Exp [LocDef] + | EEqs [Equation] + | EExample Exp String + | ELString LString + | ELin PIdent + deriving (Eq,Ord,Show) + +data Exps = + NilExp + | ConsExp Exp Exps + deriving (Eq,Ord,Show) + +data Patt = + PChar + | PChars String + | PMacro PIdent + | PM PIdent PIdent + | PW + | PV PIdent + | PCon PIdent + | PQ PIdent PIdent + | PInt Integer + | PFloat Double + | PStr String + | PR [PattAss] + | PTup [PattTupleComp] + | PC PIdent [Patt] + | PQC PIdent PIdent [Patt] + | PDisj Patt Patt + | PSeq Patt Patt + | PRep Patt + | PAs PIdent Patt + | PNeg Patt + deriving (Eq,Ord,Show) + +data PattAss = + PA [PIdent] Patt + deriving (Eq,Ord,Show) + +data Label = + LIdent PIdent + | LVar Integer + deriving (Eq,Ord,Show) + +data Sort = + Sort_Type + | Sort_PType + | Sort_Tok + | Sort_Str + | Sort_Strs + deriving (Eq,Ord,Show) + +data Bind = + BIdent PIdent + | BWild + deriving (Eq,Ord,Show) + +data Decl = + DDec [Bind] Exp + | DExp Exp + deriving (Eq,Ord,Show) + +data TupleComp = + TComp Exp + deriving (Eq,Ord,Show) + +data PattTupleComp = + PTComp Patt + deriving (Eq,Ord,Show) + +data Case = + Case Patt Exp + deriving (Eq,Ord,Show) + +data Equation = + Equ [Patt] Exp + deriving (Eq,Ord,Show) + +data Altern = + Alt Exp Exp + deriving (Eq,Ord,Show) + +data DDecl = + DDDec [Bind] Exp + | DDExp Exp + deriving (Eq,Ord,Show) + +data OldGrammar = + OldGr Include [TopDef] + deriving (Eq,Ord,Show) + +data Include = + NoIncl + | Incl [FileName] + deriving (Eq,Ord,Show) + +data FileName = + FString String + | FIdent PIdent + | FSlash FileName + | FDot FileName + | FMinus FileName + | FAddId PIdent FileName + deriving (Eq,Ord,Show) + diff --git a/src-3.0/GF/Source/ErrM.hs b/src-3.0/GF/Source/ErrM.hs new file mode 100644 index 000000000..63840758e --- /dev/null +++ b/src-3.0/GF/Source/ErrM.hs @@ -0,0 +1,26 @@ +-- BNF Converter: Error Monad +-- Copyright (C) 2004 Author: Aarne Ranta + +-- This file comes with NO WARRANTY and may be used FOR ANY PURPOSE. +module GF.Source.ErrM where + +-- the Error monad: like Maybe type with error msgs + +import Control.Monad (MonadPlus(..), liftM) + +data Err a = Ok a | Bad String + deriving (Read, Show, Eq, Ord) + +instance Monad Err where + return = Ok + fail = Bad + Ok a >>= f = f a + Bad s >>= f = Bad s + +instance Functor Err where + fmap = liftM + +instance MonadPlus Err where + mzero = Bad "Err.mzero" + mplus (Bad _) y = y + mplus x _ = x diff --git a/src-3.0/GF/Source/GF.cf b/src-3.0/GF/Source/GF.cf new file mode 100644 index 000000000..364550e6f --- /dev/null +++ b/src-3.0/GF/Source/GF.cf @@ -0,0 +1,370 @@ +-- AR 2/5/2003, 14-16 o'clock, Torino + +-- 17/6/2007: marked with suffix --% those lines that are obsolete and +-- should not be included in documentation + +entrypoints Grammar, ModDef, + OldGrammar, --% + Exp ; -- let's see if more are needed + +comment "--" ; +comment "{-" "-}" ; + +-- the top-level grammar + +Gr. Grammar ::= [ModDef] ; + +-- semicolon after module is permitted but not obligatory + +terminator ModDef "" ; +_. ModDef ::= ModDef ";" ; + +-- The $main$ multilingual grammar structure --% + +MMain. ModDef ::= "grammar" PIdent "=" "{" "abstract" "=" PIdent ";" [ConcSpec] "}" ;--% + +ConcSpec. ConcSpec ::= PIdent "=" ConcExp ;--% +separator ConcSpec ";" ;--% + +ConcExp. ConcExp ::= PIdent [Transfer] ;--% + +separator Transfer "" ;--% +TransferIn. Transfer ::= "(" "transfer" "in" Open ")" ; --% +TransferOut. Transfer ::= "(" "transfer" "out" Open ")" ; --% + +-- the module header + +MModule2. ModHeader ::= ComplMod ModType "=" ModHeaderBody ; + +MBody2. ModHeaderBody ::= Extend Opens ; +MNoBody2. ModHeaderBody ::= [Included] ; +MWith2. ModHeaderBody ::= Included "with" [Open] ; +MWithBody2. ModHeaderBody ::= Included "with" [Open] "**" Opens ; +MWithE2. ModHeaderBody ::= [Included] "**" Included "with" [Open] ; +MWithEBody2. ModHeaderBody ::= [Included] "**" Included "with" [Open] "**" Opens ; + +MReuse2. ModHeaderBody ::= "reuse" PIdent ; --% +MUnion2. ModHeaderBody ::= "union" [Included] ;--% + +-- the individual modules + +MModule. ModDef ::= ComplMod ModType "=" ModBody ; + +MTAbstract. ModType ::= "abstract" PIdent ; +MTResource. ModType ::= "resource" PIdent ; +MTInterface. ModType ::= "interface" PIdent ; +MTConcrete. ModType ::= "concrete" PIdent "of" PIdent ; +MTInstance. ModType ::= "instance" PIdent "of" PIdent ; +MTTransfer. ModType ::= "transfer" PIdent ":" Open "->" Open ; + + +MBody. ModBody ::= Extend Opens "{" [TopDef] "}" ; +MNoBody. ModBody ::= [Included] ; +MWith. ModBody ::= Included "with" [Open] ; +MWithBody. ModBody ::= Included "with" [Open] "**" Opens "{" [TopDef] "}" ; +MWithE. ModBody ::= [Included] "**" Included "with" [Open] ; +MWithEBody. ModBody ::= [Included] "**" Included "with" [Open] "**" Opens "{" [TopDef] "}" ; + +MReuse. ModBody ::= "reuse" PIdent ; --% +MUnion. ModBody ::= "union" [Included] ;--% + +separator TopDef "" ; + +Ext. Extend ::= [Included] "**" ; +NoExt. Extend ::= ; + +separator Open "," ; +NoOpens. Opens ::= ; +OpenIn. Opens ::= "open" [Open] "in" ; + +OName. Open ::= PIdent ; +OQualQO. Open ::= "(" QualOpen PIdent ")" ; +OQual. Open ::= "(" QualOpen PIdent "=" PIdent ")" ; + +CMCompl. ComplMod ::= ; +CMIncompl. ComplMod ::= "incomplete" ; + +QOCompl. QualOpen ::= ; +QOIncompl. QualOpen ::= "incomplete" ;--% +QOInterface. QualOpen ::= "interface" ;--% + +separator Included "," ; + +IAll. Included ::= PIdent ; +ISome. Included ::= PIdent "[" [PIdent] "]" ; +IMinus. Included ::= PIdent "-" "[" [PIdent] "]" ; + +-- definitions after the $oper$ keywords + +DDecl. Def ::= [Name] ":" Exp ; +DDef. Def ::= [Name] "=" Exp ; +DPatt. Def ::= Name [Patt] "=" Exp ; -- non-empty pattern list +DFull. Def ::= [Name] ":" Exp "=" Exp ; + +-- top-level definitions + +DefCat. TopDef ::= "cat" [CatDef] ; +DefFun. TopDef ::= "fun" [FunDef] ; +DefFunData.TopDef ::= "data" [FunDef] ; +DefDef. TopDef ::= "def" [Def] ; +DefData. TopDef ::= "data" [DataDef] ; + +DefTrans. TopDef ::= "transfer" [Def] ;--% + +DefPar. TopDef ::= "param" [ParDef] ; +DefOper. TopDef ::= "oper" [Def] ; + +DefLincat. TopDef ::= "lincat" [PrintDef] ; +DefLindef. TopDef ::= "lindef" [Def] ; +DefLin. TopDef ::= "lin" [Def] ; + +DefPrintCat. TopDef ::= "printname" "cat" [PrintDef] ; +DefPrintFun. TopDef ::= "printname" "fun" [PrintDef] ; +DefFlag. TopDef ::= "flags" [FlagDef] ; + +SimpleCatDef. CatDef ::= PIdent [DDecl] ; +ListCatDef. CatDef ::= "[" PIdent [DDecl] "]" ; +ListSizeCatDef. CatDef ::= "[" PIdent [DDecl] "]" "{" Integer "}" ; + +FunDef. FunDef ::= [PIdent] ":" Exp ; + +DataDef. DataDef ::= PIdent "=" [DataConstr] ; +DataId. DataConstr ::= PIdent ; +DataQId. DataConstr ::= PIdent "." PIdent ; +separator DataConstr "|" ; + + +ParDefDir. ParDef ::= PIdent "=" [ParConstr] ; +ParDefIndir. ParDef ::= PIdent "=" "(" "in" PIdent ")" ; +ParDefAbs. ParDef ::= PIdent ; + +ParConstr. ParConstr ::= PIdent [DDecl] ; + +PrintDef. PrintDef ::= [Name] "=" Exp ; + +FlagDef. FlagDef ::= PIdent "=" PIdent ; + +terminator nonempty Def ";" ; +terminator nonempty CatDef ";" ; +terminator nonempty FunDef ";" ; +terminator nonempty DataDef ";" ; +terminator nonempty ParDef ";" ; + +terminator nonempty PrintDef ";" ; +terminator nonempty FlagDef ";" ; + +separator ParConstr "|" ; + +separator nonempty PIdent "," ; + +-- names of categories and functions in definition LHS + +IdentName. Name ::= PIdent ; +ListName. Name ::= "[" PIdent "]" ; + +separator nonempty Name "," ; + +-- definitions in records and $let$ expressions + +LDDecl. LocDef ::= [PIdent] ":" Exp ; +LDDef. LocDef ::= [PIdent] "=" Exp ; +LDFull. LocDef ::= [PIdent] ":" Exp "=" Exp ; + +separator LocDef ";" ; + +-- terms and types + +EIdent. Exp6 ::= PIdent ; +EConstr. Exp6 ::= "{" PIdent "}" ;--% +ECons. Exp6 ::= "%" PIdent "%" ;--% +ESort. Exp6 ::= Sort ; +EString. Exp6 ::= String ; +EInt. Exp6 ::= Integer ; +EFloat. Exp6 ::= Double ; +EMeta. Exp6 ::= "?" ; +EEmpty. Exp6 ::= "[" "]" ; +EData. Exp6 ::= "data" ; +EList. Exp6 ::= "[" PIdent Exps "]" ; +EStrings. Exp6 ::= "[" String "]" ; +ERecord. Exp6 ::= "{" [LocDef] "}" ; -- ! +ETuple. Exp6 ::= "<" [TupleComp] ">" ; --- needed for separator "," +EIndir. Exp6 ::= "(" "in" PIdent ")" ; -- indirection, used in judgements --% +ETyped. Exp6 ::= "<" Exp ":" Exp ">" ; -- typing, used for annotations + +EProj. Exp5 ::= Exp5 "." Label ; +EQConstr. Exp5 ::= "{" PIdent "." PIdent "}" ; -- qualified constructor --% +EQCons. Exp5 ::= "%" PIdent "." PIdent ; -- qualified constant --% + +EApp. Exp4 ::= Exp4 Exp5 ; +ETable. Exp4 ::= "table" "{" [Case] "}" ; +ETTable. Exp4 ::= "table" Exp6 "{" [Case] "}" ; +EVTable. Exp4 ::= "table" Exp6 "[" [Exp] "]" ; +ECase. Exp4 ::= "case" Exp "of" "{" [Case] "}" ; +EVariants. Exp4 ::= "variants" "{" [Exp] "}" ; +--- EPreCase. Exp4 ::= "pre" "{" [Case] "}" ; +EPre. Exp4 ::= "pre" "{" Exp ";" [Altern] "}" ; +EStrs. Exp4 ::= "strs" "{" [Exp] "}" ; +EConAt. Exp4 ::= PIdent "@" Exp6 ; --% + +EPatt. Exp4 ::= "#" Patt2 ; +EPattType. Exp4 ::= "pattern" Exp5 ; + +ESelect. Exp3 ::= Exp3 "!" Exp4 ; +ETupTyp. Exp3 ::= Exp3 "*" Exp4 ; +EExtend. Exp3 ::= Exp3 "**" Exp4 ; + +EGlue. Exp1 ::= Exp2 "+" Exp1 ; + +EConcat. Exp ::= Exp1 "++" Exp ; + +EAbstr. Exp ::= "\\" [Bind] "->" Exp ; +ECTable. Exp ::= "\\""\\" [Bind] "=>" Exp ; +EProd. Exp ::= Decl "->" Exp ; +ETType. Exp ::= Exp3 "=>" Exp ; -- these are thus right associative +ELet. Exp ::= "let" "{" [LocDef] "}" "in" Exp ; +ELetb. Exp ::= "let" [LocDef] "in" Exp ; +EWhere. Exp ::= Exp3 "where" "{" [LocDef] "}" ; +EEqs. Exp ::= "fn" "{" [Equation] "}" ; --% + +EExample. Exp ::= "in" Exp5 String ; + +coercions Exp 6 ; + +separator Exp ";" ; -- in variants + +-- list of arguments to category +NilExp. Exps ::= ; +ConsExp. Exps ::= Exp6 Exps ; -- Exp6 to force parantheses + +-- patterns + +PChar. Patt2 ::= "?" ; +PChars. Patt2 ::= "[" String "]" ; +PMacro. Patt2 ::= "#" PIdent ; +PM. Patt2 ::= "#" PIdent "." PIdent ; +PW. Patt2 ::= "_" ; +PV. Patt2 ::= PIdent ; +PCon. Patt2 ::= "{" PIdent "}" ; --% +PQ. Patt2 ::= PIdent "." PIdent ; +PInt. Patt2 ::= Integer ; +PFloat. Patt2 ::= Double ; +PStr. Patt2 ::= String ; +PR. Patt2 ::= "{" [PattAss] "}" ; +PTup. Patt2 ::= "<" [PattTupleComp] ">" ; +PC. Patt1 ::= PIdent [Patt] ; +PQC. Patt1 ::= PIdent "." PIdent [Patt] ; +PDisj. Patt ::= Patt "|" Patt1 ; +PSeq. Patt ::= Patt "+" Patt1 ; +PRep. Patt1 ::= Patt2 "*" ; +PAs. Patt1 ::= PIdent "@" Patt2 ; +PNeg. Patt1 ::= "-" Patt2 ; + +coercions Patt 2 ; + +PA. PattAss ::= [PIdent] "=" Patt ; + +-- labels + +LIdent. Label ::= PIdent ; +LVar. Label ::= "$" Integer ; + +-- basic types + +rules Sort ::= + "Type" + | "PType" + | "Tok" --% + | "Str" + | "Strs" ; + +separator PattAss ";" ; + +-- this is explicit to force higher precedence level on rhs +(:[]). [Patt] ::= Patt2 ; +(:). [Patt] ::= Patt2 [Patt] ; + + +-- binds in lambdas and lin rules + +BIdent. Bind ::= PIdent ; +BWild. Bind ::= "_" ; + +separator Bind "," ; + + +-- declarations in function types + +DDec. Decl ::= "(" [Bind] ":" Exp ")" ; +DExp. Decl ::= Exp4 ; -- can thus be an application + +-- tuple component (term or pattern) + +TComp. TupleComp ::= Exp ; +PTComp. PattTupleComp ::= Patt ; + +separator TupleComp "," ; +separator PattTupleComp "," ; + +-- case branches + +Case. Case ::= Patt "=>" Exp ; + +separator nonempty Case ";" ; + +-- cases in abstract syntax --% + +Equ. Equation ::= [Patt] "->" Exp ; --% + +separator Equation ";" ; --% + +-- prefix alternatives + +Alt. Altern ::= Exp "/" Exp ; + +separator Altern ";" ; + +-- in a context, higher precedence is required than in function types + +DDDec. DDecl ::= "(" [Bind] ":" Exp ")" ; +DDExp. DDecl ::= Exp6 ; -- can thus *not* be an application + +separator DDecl "" ; + + +-------------------------------------- --% + +-- for backward compatibility --% + +OldGr. OldGrammar ::= Include [TopDef] ; --% + +NoIncl. Include ::= ; --% +Incl. Include ::= "include" [FileName] ; --% + +FString. FileName ::= String ; --% + +terminator nonempty FileName ";" ; --% + +FIdent. FileName ::= PIdent ; --% +FSlash. FileName ::= "/" FileName ; --% +FDot. FileName ::= "." FileName ; --% +FMinus. FileName ::= "-" FileName ; --% +FAddId. FileName ::= PIdent FileName ; --% + +token LString '\'' (char - '\'')* '\'' ; --% +ELString. Exp6 ::= LString ; --% +ELin. Exp4 ::= "Lin" PIdent ; --% + +DefPrintOld. TopDef ::= "printname" [PrintDef] ; --% +DefLintype. TopDef ::= "lintype" [Def] ; --% +DefPattern. TopDef ::= "pattern" [Def] ; --% + +-- deprecated packages are attempted to be interpreted --% +DefPackage. TopDef ::= "package" PIdent "=" "{" [TopDef] "}" ";" ; --% + +-- these two are just ignored after parsing --% +DefVars. TopDef ::= "var" [Def] ; --% +DefTokenizer. TopDef ::= "tokenizer" PIdent ";" ; --% + +-- identifiers + +position token PIdent ('_' | letter) (letter | digit | '_' | '\'')* ; diff --git a/src-3.0/GF/Source/GrammarToSource.hs b/src-3.0/GF/Source/GrammarToSource.hs new file mode 100644 index 000000000..6d48e4ced --- /dev/null +++ b/src-3.0/GF/Source/GrammarToSource.hs @@ -0,0 +1,259 @@ +---------------------------------------------------------------------- +-- | +-- Module : GrammarToSource +-- Maintainer : AR +-- Stability : (stable) +-- Portability : (portable) +-- +-- > CVS $Date: 2005/10/04 11:05:07 $ +-- > CVS $Author: aarne $ +-- > CVS $Revision: 1.23 $ +-- +-- From internal source syntax to BNFC-generated (used for printing). +----------------------------------------------------------------------------- + +module GF.Source.GrammarToSource ( trGrammar, + trModule, + trAnyDef, + trLabel, + trt, tri, trp + ) where + +import GF.Data.Operations +import GF.Grammar.Grammar +import GF.Infra.Modules +import GF.Infra.Option +import qualified GF.Source.AbsGF as P +import GF.Infra.Ident + +-- | AR 13\/5\/2003 +-- +-- translate internal to parsable and printable source +trGrammar :: SourceGrammar -> P.Grammar +trGrammar (MGrammar ms) = P.Gr (map trModule ms) -- no includes + +trModule :: (Ident,SourceModInfo) -> P.ModDef +trModule (i,mo) = case mo of + ModMod m -> P.MModule compl typ body where + compl = case mstatus m of + MSIncomplete -> P.CMIncompl + _ -> P.CMCompl + i' = tri i + typ = case typeOfModule mo of + MTResource -> P.MTResource i' + MTAbstract -> P.MTAbstract i' + MTConcrete a -> P.MTConcrete i' (tri a) + MTTransfer a b -> P.MTTransfer i' (trOpen a) (trOpen b) + MTInstance a -> P.MTInstance i' (tri a) + MTInterface -> P.MTInterface i' + body = P.MBody + (trExtends (extend m)) + (mkOpens (map trOpen (opens m))) + (mkTopDefs (concatMap trAnyDef (tree2list (jments m)) ++ map trFlag (flags m))) + +trExtends :: [(Ident,MInclude Ident)] -> P.Extend +trExtends [] = P.NoExt +trExtends es = (P.Ext $ map tre es) where + tre (i,c) = case c of + MIAll -> P.IAll (tri i) + MIOnly is -> P.ISome (tri i) (map tri is) + MIExcept is -> P.IMinus (tri i) (map tri is) + +---- this has to be completed with other mtys +forName (MTConcrete a) = tri a + +trOpen :: OpenSpec Ident -> P.Open +trOpen o = case o of + OSimple OQNormal i -> P.OName (tri i) + OSimple q i -> P.OQualQO (trQualOpen q) (tri i) + OQualif q i j -> P.OQual (trQualOpen q) (tri i) (tri j) + +trQualOpen q = case q of + OQNormal -> P.QOCompl + OQIncomplete -> P.QOIncompl + OQInterface -> P.QOInterface + + +mkOpens ds = if null ds then P.NoOpens else P.OpenIn ds +mkTopDefs ds = ds + +trAnyDef :: (Ident,Info) -> [P.TopDef] +trAnyDef (i,info) = let i' = tri i in case info of + AbsCat (Yes co) pd -> [P.DefCat [P.SimpleCatDef i' (map trDecl co)]] + AbsFun (Yes ty) (Yes EData) -> [P.DefFunData [P.FunDef [i'] (trt ty)]] + AbsFun (Yes ty) pt -> [P.DefFun [P.FunDef [i'] (trt ty)]] ++ case pt of + Yes t -> [P.DefDef [P.DDef [mkName i'] (trt t)]] + _ -> [] + AbsFun (May b) _ -> [P.DefFun [P.FunDef [i'] (P.EIndir (tri b))]] + ---- don't destroy definitions! + AbsTrans f -> [P.DefTrans [P.DDef [mkName i'] (trt f)]] + + ResOper pty ptr -> [P.DefOper [trDef i' pty ptr]] + ResParam pp -> [P.DefPar [case pp of + Yes (ps,_) -> P.ParDefDir i' [P.ParConstr (tri c) (map trDecl co) | (c,co) <- ps] + May b -> P.ParDefIndir i' $ tri b + _ -> P.ParDefAbs i']] + + ResOverload tysts -> + [P.DefOper [P.DDef [mkName i'] ( + P.EApp (P.EIdent $ tri $ identC "overload") + (P.ERecord [P.LDFull [i'] (trt ty) (trt fu) | (ty,fu) <- tysts]))]] + + CncCat (Yes ty) Nope _ -> + [P.DefLincat [P.PrintDef [mkName i'] (trt ty)]] + CncCat pty ptr ppr -> + [P.DefLindef [trDef i' pty ptr]] ++ + [P.DefPrintCat [P.PrintDef [mkName i'] (trt pr)] | Yes pr <- [ppr]] + CncFun _ ptr ppr -> + [P.DefLin [trDef i' nope ptr]] ++ + [P.DefPrintFun [P.PrintDef [mkName i'] (trt pr)] | Yes pr <- [ppr]] +{- + ---- encoding of AnyInd without changing syntax. AR 20/9/2007 + AnyInd s b -> + [P.DefOper [P.DDef [mkName i] + (P.EApp (P.EInt (if s then 1 else 0)) (P.EIdent (tri b)))]] +-} + _ -> [] + + +trDef :: P.PIdent -> Perh Type -> Perh Term -> P.Def +trDef i pty ptr = case (pty,ptr) of + (Nope, Nope) -> P.DDef [mkName i] (P.EMeta) --- + (_, Nope) -> P.DDecl [mkName i] (trPerh pty) + (Nope, _ ) -> P.DDef [mkName i] (trPerh ptr) + (_, _ ) -> P.DFull [mkName i] (trPerh pty) (trPerh ptr) + +trPerh p = case p of + Yes t -> trt t + May b -> P.EIndir $ tri b + _ -> P.EMeta --- + + +trFlag :: Option -> P.TopDef +trFlag o = case o of + Opt (f,[x]) -> P.DefFlag [P.FlagDef (tri $ identC f) (tri $ identC x)] + _ -> P.DefFlag [] --- warning? + +trt :: Term -> P.Exp +trt trm = case trm of + Vr s -> P.EIdent $ tri s + Cn s -> P.ECons $ tri s + Con s -> P.EConstr $ tri s + Sort s -> P.ESort $ case s of + "Type" -> P.Sort_Type + "PType" -> P.Sort_PType + "Tok" -> P.Sort_Tok + "Str" -> P.Sort_Str + "Strs" -> P.Sort_Strs + _ -> error $ "not yet sort " +++ show trm ---- + + App c a -> P.EApp (trt c) (trt a) + Abs x b -> P.EAbstr [trb x] (trt b) + Eqs pts -> P.EEqs [P.Equ (map trp ps) (trt t) | (ps,t) <- pts] + Meta m -> P.EMeta + Prod x a b | isWildIdent x -> P.EProd (P.DExp (trt a)) (trt b) + Prod x a b -> P.EProd (P.DDec [trb x] (trt a)) (trt b) + + Example t s -> P.EExample (trt t) s + R [] -> P.ETuple [] --- to get correct parsing when read back + R r -> P.ERecord $ map trAssign r + RecType r -> P.ERecord $ map trLabelling r + ExtR x y -> P.EExtend (trt x) (trt y) + P t l -> P.EProj (trt t) (trLabel l) + PI t l _ -> P.EProj (trt t) (trLabel l) + Q t l -> P.EQCons (tri t) (tri l) + QC t l -> P.EQConstr (tri t) (tri l) + TSh (TComp ty) cc -> P.ETTable (trt ty) (map trCases cc) + TSh (TTyped ty) cc -> P.ETTable (trt ty) (map trCases cc) + TSh (TWild ty) cc -> P.ETTable (trt ty) (map trCases cc) + T (TTyped ty) cc -> P.ETTable (trt ty) (map trCase cc) + T (TComp ty) cc -> P.ETTable (trt ty) (map trCase cc) + T (TWild ty) cc -> P.ETTable (trt ty) (map trCase cc) + T _ cc -> P.ETable (map trCase cc) + V ty cc -> P.EVTable (trt ty) (map trt cc) + + Table x v -> P.ETType (trt x) (trt v) + S f x -> P.ESelect (trt f) (trt x) +---- Alias c a t -> "{-" +++ prt c +++ "=" +++ "-}" +++ prt t +-- Alias c a t -> prt (Let (c,(Just a,t)) (Vr c)) -- thus Alias is only internal + + Let (x,(ma,b)) t -> + P.ELet [maybe (P.LDDef x' b') (\ty -> P.LDFull x' (trt ty) b') ma] (trt t) + where + b' = trt b + x' = [tri x] + + Empty -> P.EEmpty + K [] -> P.EEmpty + K a -> P.EString a + C a b -> P.EConcat (trt a) (trt b) + + EInt i -> P.EInt i + EFloat i -> P.EFloat i + + EPatt p -> P.EPatt (trp p) + EPattType t -> P.EPattType (trt t) + + Glue a b -> P.EGlue (trt a) (trt b) + Alts (t, tt) -> P.EPre (trt t) [P.Alt (trt v) (trt c) | (v,c) <- tt] + FV ts -> P.EVariants $ map trt ts + Strs tt -> P.EStrs $ map trt tt + EData -> P.EData + _ -> error $ "not yet" +++ show trm ---- + +trp :: Patt -> P.Patt +trp p = case p of + PW -> P.PW + PV s | isWildIdent s -> P.PW + PV s -> P.PV $ tri s + PC c [] -> P.PCon $ tri c + PC c a -> P.PC (tri c) (map trp a) + PP p c [] -> P.PQ (tri p) (tri c) + PP p c a -> P.PQC (tri p) (tri c) (map trp a) + PR r -> P.PR [P.PA [tri $ trLabelIdent l] (trp p) | (l,p) <- r] + PString s -> P.PStr s + PInt i -> P.PInt i + PFloat i -> P.PFloat i + PT t p -> trp p ---- prParenth (prt p +++ ":" +++ prt t) + + PAs x p -> P.PAs (tri x) (trp p) + + PAlt p q -> P.PDisj (trp p) (trp q) + PSeq p q -> P.PSeq (trp p) (trp q) + PRep p -> P.PRep (trp p) + PNeg p -> P.PNeg (trp p) + PChar -> P.PChar + PChars s -> P.PChars s + PM m c -> P.PM (tri m) (tri c) + + +trAssign (lab, (mty, t)) = maybe (P.LDDef x t') (\ty -> P.LDFull x (trt ty) t') mty + where + t' = trt t + x = [tri $ trLabelIdent lab] + +trLabelling (lab,ty) = P.LDDecl [tri $ trLabelIdent lab] (trt ty) + +trCase (patt, trm) = P.Case (trp patt) (trt trm) +trCases (patts,trm) = P.Case (foldl1 P.PDisj (map trp patts)) (trt trm) + +trDecl (x,ty) = P.DDDec [trb x] (trt ty) + +tri :: Ident -> P.PIdent +tri = ppIdent . prIdent + +ppIdent i = P.PIdent ((0,0),i) + +trb i = if isWildIdent i then P.BWild else P.BIdent (tri i) + +trLabel :: Label -> P.Label +trLabel i = case i of + LIdent s -> P.LIdent $ ppIdent s + LVar i -> P.LVar $ toInteger i + +trLabelIdent i = identC $ case i of + LIdent s -> s + LVar i -> "v" ++ show i --- should not happen + +mkName :: P.PIdent -> P.Name +mkName = P.IdentName diff --git a/src-3.0/GF/Source/LexGF.hs b/src-3.0/GF/Source/LexGF.hs new file mode 100644 index 000000000..89067b6b6 --- /dev/null +++ b/src-3.0/GF/Source/LexGF.hs @@ -0,0 +1,345 @@ +{-# OPTIONS -fglasgow-exts -cpp #-} +{-# LINE 3 "GF/Source/LexGF.x" #-} +{-# OPTIONS -fno-warn-incomplete-patterns #-} +module GF.Source.LexGF where + + +import qualified Data.ByteString.Char8 as BS + +#if __GLASGOW_HASKELL__ >= 603 +#include "ghcconfig.h" +#else +#include "config.h" +#endif +#if __GLASGOW_HASKELL__ >= 503 +import Data.Array +import Data.Char (ord) +import Data.Array.Base (unsafeAt) +#else +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\x00\x00\x15\x00\x00\x00\x39\x00\x00\x00\x3a\x00\x00\x00\x18\x00\x00\x00\x19\x00\x00\x00\x1a\x00\x00\x00\x00\x00\x00\x00\x44\x00\x00\x00\x45\x00\x00\x00\x1b\x00\x00\x00\x1c\x00\x00\x00\x1d\x00\x00\x00\x42\x00\x00\x00\x00\x00\x00\x00\x26\x00\x00\x00\x27\x00\x00\x00\x13\x00\x00\x00\x9c\x00\x00\x00\x00\x00\x00\x00\x2c\x00\x00\x00\x2d\x00\x00\x00\x6c\x01\x00\x00\x3c\x02\x00\x00\x0c\x03\x00\x00\x00\x00\x00\x00\x17\x01\x00\x00\xe7\x01\x00\x00\xd5\x00\x00\x00\x35\x00\x00\x00\xe7\x00\x00\x00\xf2\x00\x00\x00\x1d\x01\x00\x00\xc2\x01\x00\x00\xcc\x01\x00\x00"# + +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\x0d\x00\x0d\x00\x0d\x00\x0d\x00\x0d\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\x0d\x00\x0e\x00\x1a\x00\x0e\x00\x0e\x00\x0e\x00\xff\xff\x14\x00\x0e\x00\x0e\x00\x0f\x00\x10\x00\x0e\x00\x05\x00\x0e\x00\x0e\x00\x1d\x00\x1d\x00\x1d\x00\x1d\x00\x1d\x00\x1d\x00\x1d\x00\x1d\x00\x1d\x00\x1d\x00\x0e\x00\x0e\x00\x0e\x00\x11\x00\x0e\x00\x0e\x00\x0e\x00\x04\x00\xff\xff\xff\xff\x02\x00\x02\x00\x09\x00\x09\x00\x09\x00\x0a\x00\x0d\x00\x0d\x00\x0d\x00\x0d\x00\x0d\x00\x0e\x00\x0e\x00\x0e\x00\x13\x00\x13\x00\x00\x00\x00\x00\x0e\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0e\x00\x0e\x00\x0e\x00\xff\xff\x12\x00\xff\xff\x0d\x00\x20\x00\x00\x00\x1d\x00\x1d\x00\x1d\x00\x1d\x00\x1d\x00\x1d\x00\x1d\x00\x1d\x00\x1d\x00\x1d\x00\x00\x00\x00\x00\x09\x00\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0c\x00\x0e\x00\x0e\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\x06\x00\x07\x00\x17\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x00\x00\x00\x00\xff\xff\x00\x00\x00\x00\x00\x00\x00\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x1b\x00\xff\xff\x00\x00\x00\x00\x17\x00\x1b\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x1e\x00\x1e\x00\x1e\x00\x1e\x00\x1e\x00\x1e\x00\x1e\x00\x1e\x00\x1e\x00\x1e\x00\xff\xff\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x1b\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x19\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x1b\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x1b\x00\x00\x00\x00\x00\x21\x00\x1e\x00\x1e\x00\x1e\x00\x1e\x00\x1e\x00\x1e\x00\x1e\x00\x1e\x00\x1e\x00\x1e\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x1c\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x18\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x00\x00\x00\x00\x00\x00\x00\x00\x18\x00\x00\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x22\x00\x00\x00\xff\xff\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x00\x00\x00\x00\x00\x00\x19\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x1c\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x17\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x00\x00\x00\x00\x00\x00\x00\x00\x17\x00\x00\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x00\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x18\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x17\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x00\x00\x00\x00\x00\x00\x00\x00\x18\x00\x00\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x00\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x00\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00"# + +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\x2d\x00\x0a\x00\x0a\x00\x2d\x00\x2d\x00\x2d\x00\x2d\x00\x2d\x00\x2d\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x2a\x00\x3e\x00\x2b\x00\x27\x00\x27\x00\xff\xff\xff\xff\x3e\x00\xff\xff\xff\xff\xff\xff\xff\xff\x5b\x00\x5c\x00\x5d\x00\x5e\x00\x5f\x00\x60\x00\x20\x00\x2e\x00\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\x2d\x00\x2d\x00\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\x7d\x00\x7d\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\xd7\x00\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\x22\x00\xf7\x00\xff\xff\xff\xff\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\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x39\x00\x0a\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\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\x65\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\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\x2d\x00\xff\xff\x0a\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x39\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\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\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\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\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\xff\xff\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\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\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\xff\xff\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"# + +alex_deflt :: AlexAddr +alex_deflt = AlexA# "\x16\x00\xff\xff\x03\x00\x03\x00\xff\xff\xff\xff\x0b\x00\xff\xff\x0b\x00\x0b\x00\x0b\x00\x0b\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x15\x00\x15\x00\xff\xff\xff\xff\xff\xff\xff\xff\x1b\x00\x1b\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff"# + +alex_accept = listArray (0::Int,34) [[],[],[(AlexAccSkip)],[(AlexAccSkip)],[],[(AlexAcc (alex_action_3))],[(AlexAccSkip)],[(AlexAccSkip)],[],[],[],[],[(AlexAcc (alex_action_3))],[(AlexAccSkip)],[(AlexAcc (alex_action_3))],[(AlexAcc (alex_action_3))],[(AlexAcc (alex_action_3))],[(AlexAcc (alex_action_3))],[(AlexAcc (alex_action_3))],[(AlexAcc (alex_action_4))],[],[],[(AlexAcc (alex_action_5))],[(AlexAcc (alex_action_5))],[(AlexAcc (alex_action_5))],[(AlexAcc (alex_action_7))],[],[],[],[(AlexAcc (alex_action_8))],[(AlexAcc (alex_action_9))],[(AlexAcc (alex_action_9))],[],[],[]] +{-# LINE 36 "GF/Source/LexGF.x" #-} + +tok f p s = f p s + +share :: String -> String +share = id + +data Tok = + TS !String -- reserved words and symbols + | TL !String -- string literals + | TI !String -- integer literals + | TV !String -- identifiers + | TD !String -- double precision float literals + | TC !String -- character literals + | T_LString !String + | T_PIdent !String + + deriving (Eq,Show,Ord) + +data Token = + PT Posn Tok + | Err Posn + deriving (Eq,Show,Ord) + +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 + PT _ (T_LString s) -> s + PT _ (T_PIdent s) -> s + + _ -> 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 "lincat" (b "def" (b "Type" (b "Str" (b "PType" (b "Lin" N N) N) (b "Tok" (b "Strs" N N) N)) (b "cat" (b "case" (b "abstract" N N) N) (b "data" (b "concrete" N N) N))) (b "include" (b "fun" (b "fn" (b "flags" N N) N) (b "in" (b "grammar" N N) N)) (b "interface" (b "instance" (b "incomplete" N N) N) (b "lin" (b "let" N N) N)))) (b "resource" (b "out" (b "of" (b "lintype" (b "lindef" N N) N) (b "oper" (b "open" N N) N)) (b "pattern" (b "param" (b "package" N N) N) (b "printname" (b "pre" N N) N))) (b "union" (b "table" (b "strs" (b "reuse" N N) N) (b "transfer" (b "tokenizer" N N) N)) (b "where" (b "variants" (b "var" N N) N) (b "with" N N)))) + where b s = B s (TS s) + +unescapeInitTail :: String -> String +unescapeInitTail = unesc . tail where + unesc s = case s of + '\\':c:cs | elem c ['\"', '\\', '\''] -> c : unesc cs + '\\':'n':cs -> '\n' : unesc cs + '\\':'t':cs -> '\t' : unesc cs + '"':[] -> [] + c:cs -> c : unesc cs + _ -> [] + +------------------------------------------------------------------- +-- Alex wrapper code. +-- A modified "posn" wrapper. +------------------------------------------------------------------- + +data Posn = Pn !Int !Int !Int + deriving (Eq, Show,Ord) + +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 + BS.ByteString) -- current input string + +tokens :: BS.ByteString -> [Token] +tokens str = go (alexStartPos, '\n', str) + where + go :: AlexInput -> [Token] + go inp@(pos, _, str) = + case alexScan inp 0 of + AlexEOF -> [] + AlexError (pos, _, _) -> [Err pos] + AlexSkip inp' len -> go inp' + AlexToken inp' len act -> act pos (BS.unpack (BS.take len str)) : (go inp') + +alexGetChar :: AlexInput -> Maybe (Char,AlexInput) +alexGetChar (p,_,cs) | BS.null cs = Nothing + | otherwise = let c = BS.head cs + cs' = BS.tail cs + p' = alexMove p c + in p' `seq` cs' `seq` Just (c, (p', c, cs')) + +alexInputPrevChar :: AlexInput -> Char +alexInputPrevChar (p, c, s) = c + +alex_action_3 = tok (\p s -> PT p (TS $ share s)) +alex_action_4 = tok (\p s -> PT p (eitherResIdent (T_LString . share) s)) +alex_action_5 = tok (\p s -> PT p (eitherResIdent (T_PIdent . share) s)) +alex_action_6 = tok (\p s -> PT p (eitherResIdent (TV . share) s)) +alex_action_7 = tok (\p s -> PT p (TL $ share $ unescapeInitTail s)) +alex_action_8 = tok (\p s -> PT p (TI $ share s)) +alex_action_9 = tok (\p s -> PT p (TD $ share s)) +{-# LINE 1 "GenericTemplate.hs" #-} +{-# LINE 1 "" #-} +{-# LINE 1 "" #-} +{-# 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 35 "GenericTemplate.hs" #-} + +{-# LINE 45 "GenericTemplate.hs" #-} + + +data AlexAddr = AlexA# Addr# + +#if __GLASGOW_HASKELL__ < 503 +uncheckedShiftL# = shiftL# +#endif + +{-# INLINE alexIndexInt16OffAddr #-} +alexIndexInt16OffAddr (AlexA# arr) off = +#ifdef WORDS_BIGENDIAN + narrow16Int# i + where + i = word2Int# ((high `uncheckedShiftL#` 8#) `or#` low) + high = int2Word# (ord# (indexCharOffAddr# arr (off' +# 1#))) + low = int2Word# (ord# (indexCharOffAddr# arr off')) + off' = off *# 2# +#else + indexInt16OffAddr# arr off +#endif + + + + + +{-# INLINE alexIndexInt32OffAddr #-} +alexIndexInt32OffAddr (AlexA# arr) off = +#ifdef WORDS_BIGENDIAN + narrow32Int# i + where + i = word2Int# ((b3 `uncheckedShiftL#` 24#) `or#` + (b2 `uncheckedShiftL#` 16#) `or#` + (b1 `uncheckedShiftL#` 8#) `or#` b0) + b3 = int2Word# (ord# (indexCharOffAddr# arr (off' +# 3#))) + b2 = int2Word# (ord# (indexCharOffAddr# arr (off' +# 2#))) + b1 = int2Word# (ord# (indexCharOffAddr# arr (off' +# 1#))) + b0 = int2Word# (ord# (indexCharOffAddr# arr off')) + off' = off *# 4# +#else + indexInt32OffAddr# arr off +#endif + + + + + +#if __GLASGOW_HASKELL__ < 503 +quickIndex arr i = arr ! i +#else +-- GHC >= 503, unsafeAt is available from Data.Array.Base. +quickIndex = unsafeAt +#endif + + + + +-- ----------------------------------------------------------------------------- +-- Main lexing routines + +data AlexReturn a + = AlexEOF + | AlexError !AlexInput + | AlexSkip !AlexInput !Int + | AlexToken !AlexInput !Int a + +-- alexScan :: AlexInput -> StartCode -> AlexReturn a +alexScan input (I# (sc)) + = alexScanUser undefined input (I# (sc)) + +alexScanUser user input (I# (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 + let + new_acc = check_accs (alex_accept `quickIndex` (I# (s))) + in + new_acc `seq` + case alexGetChar input of + Nothing -> (new_acc, input) + Just (c, new_input) -> + + + + let + base = alexIndexInt32OffAddr alex_base s + (I# (ord_c)) = ord c + offset = (base +# ord_c) + check = alexIndexInt16OffAddr alex_check offset + + new_s = if (offset >=# 0#) && (check ==# ord_c) + then alexIndexInt16OffAddr alex_table offset + else alexIndexInt16OffAddr alex_deflt s + in + case new_s of + -1# -> (new_acc, input) + -- on an error, we want to keep the input *before* the + -- character that failed, not after. + _ -> 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 (AlexAccPred a pred : rest) + | pred user orig_input (I# (len)) input + = AlexLastAcc a input (I# (len)) + check_accs (AlexAccSkipPred pred : rest) + | pred user orig_input (I# (len)) input + = AlexLastSkip input (I# (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 (I# (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)) = i diff --git a/src-3.0/GF/Source/LexGF.x b/src-3.0/GF/Source/LexGF.x new file mode 100644 index 000000000..7ea768e75 --- /dev/null +++ b/src-3.0/GF/Source/LexGF.x @@ -0,0 +1,137 @@ +-- -*- haskell -*- +-- This Alex file was machine-generated by the BNF converter +{ +module LexGF where + +import ErrM +import SharedString +} + + +$l = [a-zA-Z\192 - \255] # [\215 \247] -- isolatin1 letter FIXME +$c = [A-Z\192-\221] # [\215] -- capital isolatin1 letter FIXME +$s = [a-z\222-\255] # [\247] -- small isolatin1 letter FIXME +$d = [0-9] -- digit +$i = [$l $d _ '] -- identifier character +$u = [\0-\255] -- universal: any character + +@rsyms = -- reserved words consisting of special symbols + \; | \= | \{ | \} | \( | \) | \: | \- \> | \* \* | \, | \[ | \] | \- | \. | \| | \% | \? | \< | \> | \@ | \! | \* | \+ | \+ \+ | \\ | \= \> | \_ | \$ | \/ + +:- +"--" [.]* ; -- Toss single line comments +"{-" ([$u # \-] | \- [$u # \}])* ("-")+ "}" ; + +$white+ ; +@rsyms { tok (\p s -> PT p (TS $ share s)) } +\' ($u # \')* \' { tok (\p s -> PT p (eitherResIdent (T_LString . share) 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)) } + +$d+ { tok (\p s -> PT p (TI $ share s)) } +$d+ \. $d+ (e (\-)? $d+)? { tok (\p s -> PT p (TD $ share 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 + | T_LString !String + + deriving (Eq,Show,Ord) + +data Token = + PT Posn Tok + | Err Posn + deriving (Eq,Show,Ord) + +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 + PT _ (T_LString s) -> s + + _ -> 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 "lincat" (b "def" (b "Type" (b "Str" (b "PType" (b "Lin" N N) N) (b "Tok" (b "Strs" N N) N)) (b "cat" (b "case" (b "abstract" N N) N) (b "data" (b "concrete" N N) N))) (b "include" (b "fun" (b "fn" (b "flags" N N) N) (b "in" (b "grammar" N N) N)) (b "interface" (b "instance" (b "incomplete" N N) N) (b "lin" (b "let" N N) N)))) (b "resource" (b "out" (b "of" (b "lintype" (b "lindef" N N) N) (b "oper" (b "open" N N) N)) (b "pattern" (b "param" (b "package" N N) N) (b "printname" (b "pre" N N) N))) (b "union" (b "table" (b "strs" (b "reuse" N N) N) (b "transfer" (b "tokenizer" N N) N)) (b "where" (b "variants" (b "var" N N) N) (b "with" N N)))) + where b s = B s (TS s) + +unescapeInitTail :: String -> String +unescapeInitTail = unesc . tail where + unesc s = case s of + '\\':c:cs | elem c ['\"', '\\', '\''] -> c : unesc cs + '\\':'n':cs -> '\n' : unesc cs + '\\':'t':cs -> '\t' : unesc cs + '"':[] -> [] + c:cs -> c : unesc cs + _ -> [] + +------------------------------------------------------------------- +-- Alex wrapper code. +-- A modified "posn" wrapper. +------------------------------------------------------------------- + +data Posn = Pn !Int !Int !Int + deriving (Eq, Show,Ord) + +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 +} diff --git a/src-3.0/GF/Source/ParGF.hs b/src-3.0/GF/Source/ParGF.hs new file mode 100644 index 000000000..30f83eef6 --- /dev/null +++ b/src-3.0/GF/Source/ParGF.hs @@ -0,0 +1,7845 @@ +{-# OPTIONS -fglasgow-exts -cpp #-} +{-# OPTIONS -fno-warn-incomplete-patterns -fno-warn-overlapping-patterns #-} + module GF.Source.ParGF (pGrammar, pModDef, pOldGrammar, pExp, pModHeader, myLexer) where --H +import GF.Source.AbsGF --H +import GF.Source.LexGF --H +import GF.Infra.Ident --H +import GF.Data.ErrM --H +#if __GLASGOW_HASKELL__ >= 503 +import GHC.Exts +#else +import GlaExts +#endif + +-- parser produced by Happy Version 1.17 + +data HappyAbsSyn + = HappyTerminal Token + | HappyErrorToken Int + | HappyAbsSyn8 (Integer) + | HappyAbsSyn9 (String) + | HappyAbsSyn10 (Double) + | HappyAbsSyn11 (LString) + | HappyAbsSyn12 (PIdent) + | HappyAbsSyn13 (Grammar) + | HappyAbsSyn14 ([ModDef]) + | HappyAbsSyn15 (ModDef) + | HappyAbsSyn16 (ConcSpec) + | HappyAbsSyn17 ([ConcSpec]) + | HappyAbsSyn18 (ConcExp) + | HappyAbsSyn19 ([Transfer]) + | HappyAbsSyn20 (Transfer) + | HappyAbsSyn22 (ModBody) + | HappyAbsSyn23 (ModType) + | HappyAbsSyn25 ([TopDef]) + | HappyAbsSyn26 (Extend) + | HappyAbsSyn27 ([Open]) + | HappyAbsSyn28 (Opens) + | HappyAbsSyn29 (Open) + | HappyAbsSyn30 (ComplMod) + | HappyAbsSyn31 (QualOpen) + | HappyAbsSyn32 ([Included]) + | HappyAbsSyn33 (Included) + | HappyAbsSyn34 (Def) + | HappyAbsSyn35 (TopDef) + | HappyAbsSyn36 (CatDef) + | HappyAbsSyn37 (FunDef) + | HappyAbsSyn38 (DataDef) + | HappyAbsSyn39 (DataConstr) + | HappyAbsSyn40 ([DataConstr]) + | HappyAbsSyn41 (ParDef) + | HappyAbsSyn42 (ParConstr) + | HappyAbsSyn43 (PrintDef) + | HappyAbsSyn44 (FlagDef) + | HappyAbsSyn45 ([Def]) + | HappyAbsSyn46 ([CatDef]) + | HappyAbsSyn47 ([FunDef]) + | HappyAbsSyn48 ([DataDef]) + | HappyAbsSyn49 ([ParDef]) + | HappyAbsSyn50 ([PrintDef]) + | HappyAbsSyn51 ([FlagDef]) + | HappyAbsSyn52 ([ParConstr]) + | HappyAbsSyn53 ([PIdent]) + | HappyAbsSyn54 (Name) + | HappyAbsSyn55 ([Name]) + | HappyAbsSyn56 (LocDef) + | HappyAbsSyn57 ([LocDef]) + | HappyAbsSyn58 (Exp) + | HappyAbsSyn65 ([Exp]) + | HappyAbsSyn66 (Exps) + | HappyAbsSyn67 (Patt) + | HappyAbsSyn70 (PattAss) + | HappyAbsSyn71 (Label) + | HappyAbsSyn72 (Sort) + | HappyAbsSyn73 ([PattAss]) + | HappyAbsSyn74 ([Patt]) + | HappyAbsSyn75 (Bind) + | HappyAbsSyn76 ([Bind]) + | HappyAbsSyn77 (Decl) + | HappyAbsSyn78 (TupleComp) + | HappyAbsSyn79 (PattTupleComp) + | HappyAbsSyn80 ([TupleComp]) + | HappyAbsSyn81 ([PattTupleComp]) + | HappyAbsSyn82 (Case) + | HappyAbsSyn83 ([Case]) + | HappyAbsSyn84 (Equation) + | HappyAbsSyn85 ([Equation]) + | HappyAbsSyn86 (Altern) + | HappyAbsSyn87 ([Altern]) + | HappyAbsSyn88 (DDecl) + | HappyAbsSyn89 ([DDecl]) + | HappyAbsSyn90 (OldGrammar) + | HappyAbsSyn91 (Include) + | HappyAbsSyn92 (FileName) + | HappyAbsSyn93 ([FileName]) + +type HappyReduction m = + Int# + -> (Token) + -> HappyState (Token) (HappyStk HappyAbsSyn -> [(Token)] -> m HappyAbsSyn) + -> [HappyState (Token) (HappyStk HappyAbsSyn -> [(Token)] -> m HappyAbsSyn)] + -> HappyStk HappyAbsSyn + -> [(Token)] -> m HappyAbsSyn + +action_0, + action_1, + action_2, + action_3, + action_4, + action_5, + action_6, + action_7, + action_8, + action_9, + action_10, + action_11, + action_12, + action_13, + action_14, + action_15, + action_16, + action_17, + action_18, + action_19, + action_20, + action_21, + action_22, + action_23, + action_24, + action_25, + action_26, + action_27, + action_28, + action_29, + action_30, + action_31, + action_32, + action_33, + action_34, + action_35, + action_36, + action_37, + action_38, + action_39, + action_40, + action_41, + action_42, + action_43, + action_44, + action_45, + action_46, + action_47, + action_48, + action_49, + action_50, + action_51, + action_52, + action_53, + action_54, + action_55, + action_56, + action_57, + action_58, + action_59, + action_60, + action_61, + action_62, + action_63, + action_64, + action_65, + action_66, + action_67, + action_68, + action_69, + action_70, + action_71, + action_72, + action_73, + action_74, + action_75, + action_76, + action_77, + action_78, + action_79, + action_80, + action_81, + action_82, + action_83, + action_84, + action_85, + action_86, + action_87, + action_88, + action_89, + action_90, + action_91, + action_92, + action_93, + action_94, + action_95, + action_96, + action_97, + action_98, + action_99, + action_100, + action_101, + action_102, + action_103, + action_104, + action_105, + action_106, + action_107, + action_108, + action_109, + action_110, + action_111, + action_112, + action_113, + action_114, + action_115, + action_116, + action_117, + action_118, + action_119, + action_120, + action_121, + action_122, + action_123, + action_124, + action_125, + action_126, + action_127, + action_128, + action_129, + action_130, + action_131, + action_132, + action_133, + action_134, + action_135, + action_136, + action_137, + action_138, + action_139, + action_140, + action_141, + action_142, + action_143, + action_144, + action_145, + action_146, + action_147, + action_148, + action_149, + action_150, + action_151, + action_152, + action_153, + action_154, + action_155, + action_156, + action_157, + action_158, + action_159, + action_160, + action_161, + action_162, + action_163, + action_164, + action_165, + action_166, + action_167, + action_168, + action_169, + action_170, + action_171, + action_172, + action_173, + action_174, + action_175, + action_176, + action_177, + action_178, + action_179, + action_180, + action_181, + action_182, + action_183, + action_184, + action_185, + action_186, + action_187, + action_188, + action_189, + action_190, + action_191, + action_192, + action_193, + action_194, + action_195, + action_196, + action_197, + action_198, + action_199, + action_200, + action_201, + action_202, + action_203, + action_204, + action_205, + action_206, + action_207, + action_208, + action_209, + action_210, + action_211, + action_212, + action_213, + action_214, + action_215, + action_216, + action_217, + action_218, + action_219, + action_220, + action_221, + action_222, + action_223, + action_224, + action_225, + action_226, + action_227, + action_228, + action_229, + action_230, + action_231, + action_232, + action_233, + action_234, + action_235, + action_236, + action_237, + action_238, + action_239, + action_240, + action_241, + action_242, + action_243, + action_244, + action_245, + action_246, + action_247, + action_248, + action_249, + action_250, + action_251, + action_252, + action_253, + action_254, + action_255, + action_256, + action_257, + action_258, + action_259, + action_260, + action_261, + action_262, + action_263, + action_264, + action_265, + action_266, + action_267, + action_268, + action_269, + action_270, + action_271, + action_272, + action_273, + action_274, + action_275, + action_276, + action_277, + action_278, + action_279, + action_280, + action_281, + action_282, + action_283, + action_284, + action_285, + action_286, + action_287, + action_288, + action_289, + action_290, + action_291, + action_292, + action_293, + action_294, + action_295, + action_296, + action_297, + action_298, + action_299, + action_300, + action_301, + action_302, + action_303, + action_304, + action_305, + action_306, + action_307, + action_308, + action_309, + action_310, + action_311, + action_312, + action_313, + action_314, + action_315, + action_316, + action_317, + action_318, + action_319, + action_320, + action_321, + action_322, + action_323, + action_324, + action_325, + action_326, + action_327, + action_328, + action_329, + action_330, + action_331, + action_332, + action_333, + action_334, + action_335, + action_336, + action_337, + action_338, + action_339, + action_340, + action_341, + action_342, + action_343, + action_344, + action_345, + action_346, + action_347, + action_348, + action_349, + action_350, + action_351, + action_352, + action_353, + action_354, + action_355, + action_356, + action_357, + action_358, + action_359, + action_360, + action_361, + action_362, + action_363, + action_364, + action_365, + action_366, + action_367, + action_368, + action_369, + action_370, + action_371, + action_372, + action_373, + action_374, + action_375, + action_376, + action_377, + action_378, + action_379, + action_380, + action_381, + action_382, + action_383, + action_384, + action_385, + action_386, + action_387, + action_388, + action_389, + action_390, + action_391, + action_392, + action_393, + action_394, + action_395, + action_396, + action_397, + action_398, + action_399, + action_400, + action_401, + action_402, + action_403, + action_404, + action_405, + action_406, + action_407, + action_408, + action_409, + action_410, + action_411, + action_412, + action_413, + action_414, + action_415, + action_416, + action_417, + action_418, + action_419, + action_420, + action_421, + action_422, + action_423, + action_424, + action_425, + action_426, + action_427, + action_428, + action_429, + action_430, + action_431, + action_432, + action_433, + action_434, + action_435, + action_436, + action_437, + action_438, + action_439, + action_440, + action_441, + action_442, + action_443, + action_444, + action_445, + action_446, + action_447, + action_448, + action_449, + action_450, + action_451, + action_452, + action_453, + action_454, + action_455, + action_456, + action_457, + action_458, + action_459, + action_460, + action_461, + action_462, + action_463, + action_464, + action_465, + action_466, + action_467, + action_468, + action_469, + action_470, + action_471, + action_472, + action_473, + action_474, + action_475, + action_476, + action_477, + action_478, + action_479, + action_480, + action_481, + action_482, + action_483, + action_484, + action_485, + action_486, + action_487, + action_488, + action_489, + action_490, + action_491, + action_492, + action_493, + action_494, + action_495, + action_496, + action_497, + action_498, + action_499, + action_500, + action_501, + action_502, + action_503, + action_504, + action_505, + action_506, + action_507, + action_508, + action_509, + action_510, + action_511, + action_512, + action_513, + action_514, + action_515, + action_516, + action_517, + action_518, + action_519, + action_520, + action_521, + action_522, + action_523, + action_524, + action_525, + action_526, + action_527, + action_528, + action_529, + action_530, + action_531, + action_532, + action_533, + action_534, + action_535, + action_536, + action_537, + action_538, + action_539, + action_540, + action_541, + action_542, + action_543, + action_544, + action_545, + action_546, + action_547 :: () => Int# -> HappyReduction (Err) + +happyReduce_5, + happyReduce_6, + happyReduce_7, + happyReduce_8, + happyReduce_9, + happyReduce_10, + happyReduce_11, + happyReduce_12, + happyReduce_13, + happyReduce_14, + happyReduce_15, + happyReduce_16, + happyReduce_17, + happyReduce_18, + happyReduce_19, + happyReduce_20, + happyReduce_21, + happyReduce_22, + happyReduce_23, + happyReduce_24, + happyReduce_25, + happyReduce_26, + happyReduce_27, + happyReduce_28, + happyReduce_29, + happyReduce_30, + happyReduce_31, + happyReduce_32, + happyReduce_33, + happyReduce_34, + happyReduce_35, + happyReduce_36, + happyReduce_37, + happyReduce_38, + happyReduce_39, + happyReduce_40, + happyReduce_41, + happyReduce_42, + happyReduce_43, + happyReduce_44, + happyReduce_45, + happyReduce_46, + happyReduce_47, + happyReduce_48, + happyReduce_49, + happyReduce_50, + happyReduce_51, + happyReduce_52, + happyReduce_53, + happyReduce_54, + happyReduce_55, + happyReduce_56, + happyReduce_57, + happyReduce_58, + happyReduce_59, + happyReduce_60, + happyReduce_61, + happyReduce_62, + happyReduce_63, + happyReduce_64, + happyReduce_65, + happyReduce_66, + happyReduce_67, + happyReduce_68, + happyReduce_69, + happyReduce_70, + happyReduce_71, + happyReduce_72, + happyReduce_73, + happyReduce_74, + happyReduce_75, + happyReduce_76, + happyReduce_77, + happyReduce_78, + happyReduce_79, + happyReduce_80, + happyReduce_81, + happyReduce_82, + happyReduce_83, + happyReduce_84, + happyReduce_85, + happyReduce_86, + happyReduce_87, + happyReduce_88, + happyReduce_89, + happyReduce_90, + happyReduce_91, + happyReduce_92, + happyReduce_93, + happyReduce_94, + happyReduce_95, + happyReduce_96, + happyReduce_97, + happyReduce_98, + happyReduce_99, + happyReduce_100, + happyReduce_101, + happyReduce_102, + happyReduce_103, + happyReduce_104, + happyReduce_105, + happyReduce_106, + happyReduce_107, + happyReduce_108, + happyReduce_109, + happyReduce_110, + happyReduce_111, + happyReduce_112, + happyReduce_113, + happyReduce_114, + happyReduce_115, + happyReduce_116, + happyReduce_117, + happyReduce_118, + happyReduce_119, + happyReduce_120, + happyReduce_121, + happyReduce_122, + happyReduce_123, + happyReduce_124, + happyReduce_125, + happyReduce_126, + happyReduce_127, + happyReduce_128, + happyReduce_129, + happyReduce_130, + happyReduce_131, + happyReduce_132, + happyReduce_133, + happyReduce_134, + happyReduce_135, + happyReduce_136, + happyReduce_137, + happyReduce_138, + happyReduce_139, + happyReduce_140, + happyReduce_141, + happyReduce_142, + happyReduce_143, + happyReduce_144, + happyReduce_145, + happyReduce_146, + happyReduce_147, + happyReduce_148, + happyReduce_149, + happyReduce_150, + happyReduce_151, + happyReduce_152, + happyReduce_153, + happyReduce_154, + happyReduce_155, + happyReduce_156, + happyReduce_157, + happyReduce_158, + happyReduce_159, + happyReduce_160, + happyReduce_161, + happyReduce_162, + happyReduce_163, + happyReduce_164, + happyReduce_165, + happyReduce_166, + happyReduce_167, + happyReduce_168, + happyReduce_169, + happyReduce_170, + happyReduce_171, + happyReduce_172, + happyReduce_173, + happyReduce_174, + happyReduce_175, + happyReduce_176, + happyReduce_177, + happyReduce_178, + happyReduce_179, + happyReduce_180, + happyReduce_181, + happyReduce_182, + happyReduce_183, + happyReduce_184, + happyReduce_185, + happyReduce_186, + happyReduce_187, + happyReduce_188, + happyReduce_189, + happyReduce_190, + happyReduce_191, + happyReduce_192, + happyReduce_193, + happyReduce_194, + happyReduce_195, + happyReduce_196, + happyReduce_197, + happyReduce_198, + happyReduce_199, + happyReduce_200, + happyReduce_201, + happyReduce_202, + happyReduce_203, + happyReduce_204, + happyReduce_205, + happyReduce_206, + happyReduce_207, + happyReduce_208, + happyReduce_209, + happyReduce_210, + happyReduce_211, + happyReduce_212, + happyReduce_213, + happyReduce_214, + happyReduce_215, + happyReduce_216, + happyReduce_217, + happyReduce_218, + happyReduce_219, + happyReduce_220, + happyReduce_221, + happyReduce_222, + happyReduce_223, + happyReduce_224, + happyReduce_225, + happyReduce_226, + happyReduce_227, + happyReduce_228, + happyReduce_229, + happyReduce_230, + happyReduce_231, + happyReduce_232, + happyReduce_233, + happyReduce_234, + happyReduce_235, + happyReduce_236, + happyReduce_237, + happyReduce_238, + happyReduce_239, + happyReduce_240, + happyReduce_241, + happyReduce_242, + happyReduce_243, + happyReduce_244, + happyReduce_245, + happyReduce_246, + happyReduce_247, + happyReduce_248, + happyReduce_249, + happyReduce_250, + happyReduce_251, + happyReduce_252, + happyReduce_253, + happyReduce_254, + happyReduce_255, + happyReduce_256, + happyReduce_257, + happyReduce_258, + happyReduce_259, + happyReduce_260, + happyReduce_261, + happyReduce_262, + happyReduce_263, + happyReduce_264, + happyReduce_265, + happyReduce_266, + happyReduce_267, + happyReduce_268, + happyReduce_269, + happyReduce_270, + happyReduce_271, + happyReduce_272, + happyReduce_273, + happyReduce_274 :: () => HappyReduction (Err) + +action_0 (13#) = happyGoto action_58 +action_0 (14#) = happyGoto action_59 +action_0 x = happyTcHack x happyReduce_11 + +action_1 (139#) = happyShift action_57 +action_1 (142#) = happyShift action_9 +action_1 (15#) = happyGoto action_55 +action_1 (30#) = happyGoto action_56 +action_1 x = happyTcHack x happyReduce_60 + +action_2 (141#) = happyShift action_54 +action_2 (90#) = happyGoto action_52 +action_2 (91#) = happyGoto action_53 +action_2 x = happyTcHack x happyReduce_265 + +action_3 (96#) = happyShift action_24 +action_3 (98#) = happyShift action_25 +action_3 (104#) = happyShift action_26 +action_3 (109#) = happyShift action_27 +action_3 (110#) = happyShift action_28 +action_3 (111#) = happyShift action_29 +action_3 (114#) = happyShift action_30 +action_3 (119#) = happyShift action_31 +action_3 (124#) = happyShift action_32 +action_3 (125#) = happyShift action_33 +action_3 (126#) = happyShift action_34 +action_3 (127#) = happyShift action_35 +action_3 (128#) = happyShift action_36 +action_3 (129#) = happyShift action_37 +action_3 (131#) = happyShift action_38 +action_3 (134#) = happyShift action_39 +action_3 (137#) = happyShift action_40 +action_3 (140#) = happyShift action_41 +action_3 (145#) = happyShift action_42 +action_3 (156#) = happyShift action_43 +action_3 (157#) = happyShift action_44 +action_3 (161#) = happyShift action_45 +action_3 (162#) = happyShift action_46 +action_3 (167#) = happyShift action_47 +action_3 (170#) = happyShift action_6 +action_3 (171#) = happyShift action_48 +action_3 (172#) = happyShift action_49 +action_3 (173#) = happyShift action_50 +action_3 (174#) = happyShift action_51 +action_3 (8#) = happyGoto action_10 +action_3 (9#) = happyGoto action_11 +action_3 (10#) = happyGoto action_12 +action_3 (11#) = happyGoto action_13 +action_3 (12#) = happyGoto action_14 +action_3 (58#) = happyGoto action_15 +action_3 (59#) = happyGoto action_16 +action_3 (60#) = happyGoto action_17 +action_3 (61#) = happyGoto action_18 +action_3 (62#) = happyGoto action_19 +action_3 (63#) = happyGoto action_20 +action_3 (64#) = happyGoto action_21 +action_3 (72#) = happyGoto action_22 +action_3 (77#) = happyGoto action_23 +action_3 x = happyTcHack x happyFail + +action_4 (142#) = happyShift action_9 +action_4 (21#) = happyGoto action_7 +action_4 (30#) = happyGoto action_8 +action_4 x = happyTcHack x happyReduce_60 + +action_5 (170#) = happyShift action_6 +action_5 x = happyTcHack x happyFail + +action_6 x = happyTcHack x happyReduce_5 + +action_7 (1#) = happyAccept +action_7 x = happyTcHack x happyFail + +action_8 (130#) = happyShift action_63 +action_8 (133#) = happyShift action_64 +action_8 (143#) = happyShift action_65 +action_8 (144#) = happyShift action_66 +action_8 (159#) = happyShift action_67 +action_8 (164#) = happyShift action_68 +action_8 (23#) = happyGoto action_137 +action_8 x = happyTcHack x happyFail + +action_9 x = happyTcHack x happyReduce_61 + +action_10 x = happyTcHack x happyReduce_145 + +action_11 x = happyTcHack x happyReduce_144 + +action_12 x = happyTcHack x happyReduce_146 + +action_13 x = happyTcHack x happyReduce_157 + +action_14 (113#) = happyShift action_136 +action_14 x = happyTcHack x happyReduce_140 + +action_15 x = happyTcHack x happyReduce_161 + +action_16 (107#) = happyShift action_135 +action_16 x = happyTcHack x happyReduce_173 + +action_17 (96#) = happyShift action_24 +action_17 (98#) = happyShift action_82 +action_17 (101#) = happyReduce_240 +action_17 (104#) = happyShift action_26 +action_17 (109#) = happyShift action_27 +action_17 (110#) = happyShift action_28 +action_17 (111#) = happyShift action_29 +action_17 (125#) = happyShift action_33 +action_17 (126#) = happyShift action_34 +action_17 (127#) = happyShift action_35 +action_17 (128#) = happyShift action_36 +action_17 (129#) = happyShift action_37 +action_17 (134#) = happyShift action_39 +action_17 (170#) = happyShift action_6 +action_17 (171#) = happyShift action_48 +action_17 (172#) = happyShift action_49 +action_17 (173#) = happyShift action_50 +action_17 (174#) = happyShift action_51 +action_17 (8#) = happyGoto action_10 +action_17 (9#) = happyGoto action_11 +action_17 (10#) = happyGoto action_12 +action_17 (11#) = happyGoto action_13 +action_17 (12#) = happyGoto action_79 +action_17 (58#) = happyGoto action_15 +action_17 (59#) = happyGoto action_134 +action_17 (72#) = happyGoto action_22 +action_17 x = happyTcHack x happyReduce_178 + +action_18 (102#) = happyShift action_129 +action_18 (115#) = happyShift action_130 +action_18 (116#) = happyShift action_131 +action_18 (120#) = happyShift action_132 +action_18 (168#) = happyShift action_133 +action_18 x = happyTcHack x happyReduce_192 + +action_19 (118#) = happyShift action_128 +action_19 x = happyTcHack x happyReduce_191 + +action_20 (176#) = happyAccept +action_20 x = happyTcHack x happyFail + +action_21 (117#) = happyShift action_127 +action_21 x = happyTcHack x happyReduce_180 + +action_22 x = happyTcHack x happyReduce_143 + +action_23 (101#) = happyShift action_126 +action_23 x = happyTcHack x happyFail + +action_24 (174#) = happyShift action_51 +action_24 (12#) = happyGoto action_124 +action_24 (53#) = happyGoto action_88 +action_24 (56#) = happyGoto action_89 +action_24 (57#) = happyGoto action_125 +action_24 x = happyTcHack x happyReduce_137 + +action_25 (96#) = happyShift action_24 +action_25 (98#) = happyShift action_25 +action_25 (104#) = happyShift action_26 +action_25 (109#) = happyShift action_27 +action_25 (110#) = happyShift action_28 +action_25 (111#) = happyShift action_29 +action_25 (114#) = happyShift action_30 +action_25 (119#) = happyShift action_31 +action_25 (121#) = happyShift action_100 +action_25 (124#) = happyShift action_32 +action_25 (125#) = happyShift action_33 +action_25 (126#) = happyShift action_34 +action_25 (127#) = happyShift action_35 +action_25 (128#) = happyShift action_36 +action_25 (129#) = happyShift action_37 +action_25 (131#) = happyShift action_38 +action_25 (134#) = happyShift action_39 +action_25 (137#) = happyShift action_40 +action_25 (140#) = happyShift action_123 +action_25 (145#) = happyShift action_42 +action_25 (156#) = happyShift action_43 +action_25 (157#) = happyShift action_44 +action_25 (161#) = happyShift action_45 +action_25 (162#) = happyShift action_46 +action_25 (167#) = happyShift action_47 +action_25 (170#) = happyShift action_6 +action_25 (171#) = happyShift action_48 +action_25 (172#) = happyShift action_49 +action_25 (173#) = happyShift action_50 +action_25 (174#) = happyShift action_51 +action_25 (8#) = happyGoto action_10 +action_25 (9#) = happyGoto action_11 +action_25 (10#) = happyGoto action_12 +action_25 (11#) = happyGoto action_13 +action_25 (12#) = happyGoto action_120 +action_25 (58#) = happyGoto action_15 +action_25 (59#) = happyGoto action_16 +action_25 (60#) = happyGoto action_17 +action_25 (61#) = happyGoto action_18 +action_25 (62#) = happyGoto action_19 +action_25 (63#) = happyGoto action_121 +action_25 (64#) = happyGoto action_21 +action_25 (72#) = happyGoto action_22 +action_25 (75#) = happyGoto action_97 +action_25 (76#) = happyGoto action_122 +action_25 (77#) = happyGoto action_23 +action_25 x = happyTcHack x happyReduce_236 + +action_26 (105#) = happyShift action_119 +action_26 (171#) = happyShift action_48 +action_26 (174#) = happyShift action_51 +action_26 (9#) = happyGoto action_117 +action_26 (12#) = happyGoto action_118 +action_26 x = happyTcHack x happyFail + +action_27 (174#) = happyShift action_51 +action_27 (12#) = happyGoto action_116 +action_27 x = happyTcHack x happyFail + +action_28 x = happyTcHack x happyReduce_147 + +action_29 (96#) = happyShift action_24 +action_29 (98#) = happyShift action_25 +action_29 (104#) = happyShift action_26 +action_29 (109#) = happyShift action_27 +action_29 (110#) = happyShift action_28 +action_29 (111#) = happyShift action_29 +action_29 (114#) = happyShift action_30 +action_29 (119#) = happyShift action_31 +action_29 (124#) = happyShift action_32 +action_29 (125#) = happyShift action_33 +action_29 (126#) = happyShift action_34 +action_29 (127#) = happyShift action_35 +action_29 (128#) = happyShift action_36 +action_29 (129#) = happyShift action_37 +action_29 (131#) = happyShift action_38 +action_29 (134#) = happyShift action_39 +action_29 (137#) = happyShift action_40 +action_29 (140#) = happyShift action_41 +action_29 (145#) = happyShift action_42 +action_29 (156#) = happyShift action_43 +action_29 (157#) = happyShift action_44 +action_29 (161#) = happyShift action_45 +action_29 (162#) = happyShift action_46 +action_29 (167#) = happyShift action_47 +action_29 (170#) = happyShift action_6 +action_29 (171#) = happyShift action_48 +action_29 (172#) = happyShift action_49 +action_29 (173#) = happyShift action_50 +action_29 (174#) = happyShift action_51 +action_29 (8#) = happyGoto action_10 +action_29 (9#) = happyGoto action_11 +action_29 (10#) = happyGoto action_12 +action_29 (11#) = happyGoto action_13 +action_29 (12#) = happyGoto action_14 +action_29 (58#) = happyGoto action_15 +action_29 (59#) = happyGoto action_16 +action_29 (60#) = happyGoto action_17 +action_29 (61#) = happyGoto action_18 +action_29 (62#) = happyGoto action_19 +action_29 (63#) = happyGoto action_113 +action_29 (64#) = happyGoto action_21 +action_29 (72#) = happyGoto action_22 +action_29 (77#) = happyGoto action_23 +action_29 (78#) = happyGoto action_114 +action_29 (80#) = happyGoto action_115 +action_29 x = happyTcHack x happyReduce_243 + +action_30 (96#) = happyShift action_106 +action_30 (98#) = happyShift action_107 +action_30 (104#) = happyShift action_108 +action_30 (110#) = happyShift action_109 +action_30 (111#) = happyShift action_110 +action_30 (114#) = happyShift action_111 +action_30 (121#) = happyShift action_112 +action_30 (170#) = happyShift action_6 +action_30 (171#) = happyShift action_48 +action_30 (172#) = happyShift action_49 +action_30 (174#) = happyShift action_51 +action_30 (8#) = happyGoto action_101 +action_30 (9#) = happyGoto action_102 +action_30 (10#) = happyGoto action_103 +action_30 (12#) = happyGoto action_104 +action_30 (67#) = happyGoto action_105 +action_30 x = happyTcHack x happyFail + +action_31 (119#) = happyShift action_99 +action_31 (121#) = happyShift action_100 +action_31 (174#) = happyShift action_51 +action_31 (12#) = happyGoto action_96 +action_31 (75#) = happyGoto action_97 +action_31 (76#) = happyGoto action_98 +action_31 x = happyTcHack x happyReduce_236 + +action_32 (174#) = happyShift action_51 +action_32 (12#) = happyGoto action_95 +action_32 x = happyTcHack x happyFail + +action_33 x = happyTcHack x happyReduce_225 + +action_34 x = happyTcHack x happyReduce_227 + +action_35 x = happyTcHack x happyReduce_228 + +action_36 x = happyTcHack x happyReduce_226 + +action_37 x = happyTcHack x happyReduce_224 + +action_38 (96#) = happyShift action_24 +action_38 (98#) = happyShift action_25 +action_38 (104#) = happyShift action_26 +action_38 (109#) = happyShift action_27 +action_38 (110#) = happyShift action_28 +action_38 (111#) = happyShift action_29 +action_38 (114#) = happyShift action_30 +action_38 (119#) = happyShift action_31 +action_38 (124#) = happyShift action_32 +action_38 (125#) = happyShift action_33 +action_38 (126#) = happyShift action_34 +action_38 (127#) = happyShift action_35 +action_38 (128#) = happyShift action_36 +action_38 (129#) = happyShift action_37 +action_38 (131#) = happyShift action_38 +action_38 (134#) = happyShift action_39 +action_38 (137#) = happyShift action_40 +action_38 (140#) = happyShift action_41 +action_38 (145#) = happyShift action_42 +action_38 (156#) = happyShift action_43 +action_38 (157#) = happyShift action_44 +action_38 (161#) = happyShift action_45 +action_38 (162#) = happyShift action_46 +action_38 (167#) = happyShift action_47 +action_38 (170#) = happyShift action_6 +action_38 (171#) = happyShift action_48 +action_38 (172#) = happyShift action_49 +action_38 (173#) = happyShift action_50 +action_38 (174#) = happyShift action_51 +action_38 (8#) = happyGoto action_10 +action_38 (9#) = happyGoto action_11 +action_38 (10#) = happyGoto action_12 +action_38 (11#) = happyGoto action_13 +action_38 (12#) = happyGoto action_14 +action_38 (58#) = happyGoto action_15 +action_38 (59#) = happyGoto action_16 +action_38 (60#) = happyGoto action_17 +action_38 (61#) = happyGoto action_18 +action_38 (62#) = happyGoto action_19 +action_38 (63#) = happyGoto action_94 +action_38 (64#) = happyGoto action_21 +action_38 (72#) = happyGoto action_22 +action_38 (77#) = happyGoto action_23 +action_38 x = happyTcHack x happyFail + +action_39 x = happyTcHack x happyReduce_149 + +action_40 (96#) = happyShift action_93 +action_40 x = happyTcHack x happyFail + +action_41 (96#) = happyShift action_24 +action_41 (98#) = happyShift action_82 +action_41 (104#) = happyShift action_26 +action_41 (109#) = happyShift action_27 +action_41 (110#) = happyShift action_28 +action_41 (111#) = happyShift action_29 +action_41 (125#) = happyShift action_33 +action_41 (126#) = happyShift action_34 +action_41 (127#) = happyShift action_35 +action_41 (128#) = happyShift action_36 +action_41 (129#) = happyShift action_37 +action_41 (134#) = happyShift action_39 +action_41 (170#) = happyShift action_6 +action_41 (171#) = happyShift action_48 +action_41 (172#) = happyShift action_49 +action_41 (173#) = happyShift action_50 +action_41 (174#) = happyShift action_51 +action_41 (8#) = happyGoto action_10 +action_41 (9#) = happyGoto action_11 +action_41 (10#) = happyGoto action_12 +action_41 (11#) = happyGoto action_13 +action_41 (12#) = happyGoto action_79 +action_41 (58#) = happyGoto action_15 +action_41 (59#) = happyGoto action_92 +action_41 (72#) = happyGoto action_22 +action_41 x = happyTcHack x happyFail + +action_42 (96#) = happyShift action_91 +action_42 (174#) = happyShift action_51 +action_42 (12#) = happyGoto action_87 +action_42 (53#) = happyGoto action_88 +action_42 (56#) = happyGoto action_89 +action_42 (57#) = happyGoto action_90 +action_42 x = happyTcHack x happyReduce_137 + +action_43 (96#) = happyShift action_24 +action_43 (98#) = happyShift action_82 +action_43 (104#) = happyShift action_26 +action_43 (109#) = happyShift action_27 +action_43 (110#) = happyShift action_28 +action_43 (111#) = happyShift action_29 +action_43 (125#) = happyShift action_33 +action_43 (126#) = happyShift action_34 +action_43 (127#) = happyShift action_35 +action_43 (128#) = happyShift action_36 +action_43 (129#) = happyShift action_37 +action_43 (134#) = happyShift action_39 +action_43 (170#) = happyShift action_6 +action_43 (171#) = happyShift action_48 +action_43 (172#) = happyShift action_49 +action_43 (173#) = happyShift action_50 +action_43 (174#) = happyShift action_51 +action_43 (8#) = happyGoto action_10 +action_43 (9#) = happyGoto action_11 +action_43 (10#) = happyGoto action_12 +action_43 (11#) = happyGoto action_13 +action_43 (12#) = happyGoto action_79 +action_43 (58#) = happyGoto action_15 +action_43 (59#) = happyGoto action_86 +action_43 (72#) = happyGoto action_22 +action_43 x = happyTcHack x happyFail + +action_44 (96#) = happyShift action_85 +action_44 x = happyTcHack x happyFail + +action_45 (96#) = happyShift action_84 +action_45 x = happyTcHack x happyFail + +action_46 (96#) = happyShift action_81 +action_46 (98#) = happyShift action_82 +action_46 (104#) = happyShift action_26 +action_46 (109#) = happyShift action_83 +action_46 (110#) = happyShift action_28 +action_46 (111#) = happyShift action_29 +action_46 (125#) = happyShift action_33 +action_46 (126#) = happyShift action_34 +action_46 (127#) = happyShift action_35 +action_46 (128#) = happyShift action_36 +action_46 (129#) = happyShift action_37 +action_46 (134#) = happyShift action_39 +action_46 (170#) = happyShift action_6 +action_46 (171#) = happyShift action_48 +action_46 (172#) = happyShift action_49 +action_46 (173#) = happyShift action_50 +action_46 (174#) = happyShift action_51 +action_46 (8#) = happyGoto action_10 +action_46 (9#) = happyGoto action_11 +action_46 (10#) = happyGoto action_12 +action_46 (11#) = happyGoto action_13 +action_46 (12#) = happyGoto action_79 +action_46 (58#) = happyGoto action_80 +action_46 (72#) = happyGoto action_22 +action_46 x = happyTcHack x happyFail + +action_47 (96#) = happyShift action_78 +action_47 x = happyTcHack x happyFail + +action_48 x = happyTcHack x happyReduce_6 + +action_49 x = happyTcHack x happyReduce_7 + +action_50 x = happyTcHack x happyReduce_8 + +action_51 x = happyTcHack x happyReduce_9 + +action_52 (176#) = happyAccept +action_52 x = happyTcHack x happyFail + +action_53 (25#) = happyGoto action_77 +action_53 x = happyTcHack x happyReduce_48 + +action_54 (106#) = happyShift action_74 +action_54 (107#) = happyShift action_75 +action_54 (123#) = happyShift action_76 +action_54 (171#) = happyShift action_48 +action_54 (174#) = happyShift action_51 +action_54 (9#) = happyGoto action_70 +action_54 (12#) = happyGoto action_71 +action_54 (92#) = happyGoto action_72 +action_54 (93#) = happyGoto action_73 +action_54 x = happyTcHack x happyFail + +action_55 (94#) = happyShift action_69 +action_55 (176#) = happyAccept +action_55 x = happyTcHack x happyFail + +action_56 (130#) = happyShift action_63 +action_56 (133#) = happyShift action_64 +action_56 (143#) = happyShift action_65 +action_56 (144#) = happyShift action_66 +action_56 (159#) = happyShift action_67 +action_56 (164#) = happyShift action_68 +action_56 (23#) = happyGoto action_62 +action_56 x = happyTcHack x happyFail + +action_57 (174#) = happyShift action_51 +action_57 (12#) = happyGoto action_61 +action_57 x = happyTcHack x happyFail + +action_58 (176#) = happyAccept +action_58 x = happyTcHack x happyFail + +action_59 (139#) = happyShift action_57 +action_59 (142#) = happyShift action_9 +action_59 (176#) = happyReduce_10 +action_59 (15#) = happyGoto action_60 +action_59 (30#) = happyGoto action_56 +action_59 x = happyTcHack x happyReduce_60 + +action_60 (94#) = happyShift action_69 +action_60 x = happyTcHack x happyReduce_12 + +action_61 (95#) = happyShift action_239 +action_61 x = happyTcHack x happyFail + +action_62 (95#) = happyShift action_238 +action_62 x = happyTcHack x happyFail + +action_63 (174#) = happyShift action_51 +action_63 (12#) = happyGoto action_237 +action_63 x = happyTcHack x happyFail + +action_64 (174#) = happyShift action_51 +action_64 (12#) = happyGoto action_236 +action_64 x = happyTcHack x happyFail + +action_65 (174#) = happyShift action_51 +action_65 (12#) = happyGoto action_235 +action_65 x = happyTcHack x happyFail + +action_66 (174#) = happyShift action_51 +action_66 (12#) = happyGoto action_234 +action_66 x = happyTcHack x happyFail + +action_67 (174#) = happyShift action_51 +action_67 (12#) = happyGoto action_233 +action_67 x = happyTcHack x happyFail + +action_68 (174#) = happyShift action_51 +action_68 (12#) = happyGoto action_232 +action_68 x = happyTcHack x happyFail + +action_69 x = happyTcHack x happyReduce_13 + +action_70 x = happyTcHack x happyReduce_267 + +action_71 (106#) = happyShift action_74 +action_71 (107#) = happyShift action_75 +action_71 (123#) = happyShift action_76 +action_71 (171#) = happyShift action_48 +action_71 (174#) = happyShift action_51 +action_71 (9#) = happyGoto action_70 +action_71 (12#) = happyGoto action_71 +action_71 (92#) = happyGoto action_231 +action_71 x = happyTcHack x happyReduce_268 + +action_72 (94#) = happyShift action_230 +action_72 x = happyTcHack x happyFail + +action_73 x = happyTcHack x happyReduce_266 + +action_74 (106#) = happyShift action_74 +action_74 (107#) = happyShift action_75 +action_74 (123#) = happyShift action_76 +action_74 (171#) = happyShift action_48 +action_74 (174#) = happyShift action_51 +action_74 (9#) = happyGoto action_70 +action_74 (12#) = happyGoto action_71 +action_74 (92#) = happyGoto action_229 +action_74 x = happyTcHack x happyFail + +action_75 (106#) = happyShift action_74 +action_75 (107#) = happyShift action_75 +action_75 (123#) = happyShift action_76 +action_75 (171#) = happyShift action_48 +action_75 (174#) = happyShift action_51 +action_75 (9#) = happyGoto action_70 +action_75 (12#) = happyGoto action_71 +action_75 (92#) = happyGoto action_228 +action_75 x = happyTcHack x happyFail + +action_76 (106#) = happyShift action_74 +action_76 (107#) = happyShift action_75 +action_76 (123#) = happyShift action_76 +action_76 (171#) = happyShift action_48 +action_76 (174#) = happyShift action_51 +action_76 (9#) = happyGoto action_70 +action_76 (12#) = happyGoto action_71 +action_76 (92#) = happyGoto action_227 +action_76 x = happyTcHack x happyFail + +action_77 (132#) = happyShift action_210 +action_77 (134#) = happyShift action_211 +action_77 (135#) = happyShift action_212 +action_77 (136#) = happyShift action_213 +action_77 (138#) = happyShift action_214 +action_77 (146#) = happyShift action_215 +action_77 (147#) = happyShift action_216 +action_77 (148#) = happyShift action_217 +action_77 (149#) = happyShift action_218 +action_77 (152#) = happyShift action_219 +action_77 (154#) = happyShift action_220 +action_77 (155#) = happyShift action_221 +action_77 (156#) = happyShift action_222 +action_77 (158#) = happyShift action_223 +action_77 (163#) = happyShift action_224 +action_77 (164#) = happyShift action_225 +action_77 (166#) = happyShift action_226 +action_77 (35#) = happyGoto action_209 +action_77 x = happyTcHack x happyReduce_264 + +action_78 (96#) = happyShift action_24 +action_78 (98#) = happyShift action_25 +action_78 (104#) = happyShift action_26 +action_78 (109#) = happyShift action_27 +action_78 (110#) = happyShift action_28 +action_78 (111#) = happyShift action_29 +action_78 (114#) = happyShift action_30 +action_78 (119#) = happyShift action_31 +action_78 (124#) = happyShift action_32 +action_78 (125#) = happyShift action_33 +action_78 (126#) = happyShift action_34 +action_78 (127#) = happyShift action_35 +action_78 (128#) = happyShift action_36 +action_78 (129#) = happyShift action_37 +action_78 (131#) = happyShift action_38 +action_78 (134#) = happyShift action_39 +action_78 (137#) = happyShift action_40 +action_78 (140#) = happyShift action_41 +action_78 (145#) = happyShift action_42 +action_78 (156#) = happyShift action_43 +action_78 (157#) = happyShift action_44 +action_78 (161#) = happyShift action_45 +action_78 (162#) = happyShift action_46 +action_78 (167#) = happyShift action_47 +action_78 (170#) = happyShift action_6 +action_78 (171#) = happyShift action_48 +action_78 (172#) = happyShift action_49 +action_78 (173#) = happyShift action_50 +action_78 (174#) = happyShift action_51 +action_78 (8#) = happyGoto action_10 +action_78 (9#) = happyGoto action_11 +action_78 (10#) = happyGoto action_12 +action_78 (11#) = happyGoto action_13 +action_78 (12#) = happyGoto action_14 +action_78 (58#) = happyGoto action_15 +action_78 (59#) = happyGoto action_16 +action_78 (60#) = happyGoto action_17 +action_78 (61#) = happyGoto action_18 +action_78 (62#) = happyGoto action_19 +action_78 (63#) = happyGoto action_199 +action_78 (64#) = happyGoto action_21 +action_78 (65#) = happyGoto action_208 +action_78 (72#) = happyGoto action_22 +action_78 (77#) = happyGoto action_23 +action_78 x = happyTcHack x happyReduce_193 + +action_79 x = happyTcHack x happyReduce_140 + +action_80 (96#) = happyShift action_206 +action_80 (104#) = happyShift action_207 +action_80 x = happyTcHack x happyFail + +action_81 (96#) = happyShift action_106 +action_81 (98#) = happyShift action_107 +action_81 (104#) = happyShift action_108 +action_81 (106#) = happyShift action_176 +action_81 (110#) = happyShift action_109 +action_81 (111#) = happyShift action_110 +action_81 (114#) = happyShift action_111 +action_81 (121#) = happyShift action_112 +action_81 (170#) = happyShift action_6 +action_81 (171#) = happyShift action_48 +action_81 (172#) = happyShift action_49 +action_81 (174#) = happyShift action_51 +action_81 (8#) = happyGoto action_101 +action_81 (9#) = happyGoto action_102 +action_81 (10#) = happyGoto action_103 +action_81 (12#) = happyGoto action_202 +action_81 (53#) = happyGoto action_88 +action_81 (56#) = happyGoto action_89 +action_81 (57#) = happyGoto action_125 +action_81 (67#) = happyGoto action_171 +action_81 (68#) = happyGoto action_172 +action_81 (69#) = happyGoto action_203 +action_81 (82#) = happyGoto action_204 +action_81 (83#) = happyGoto action_205 +action_81 x = happyTcHack x happyReduce_137 + +action_82 (96#) = happyShift action_24 +action_82 (98#) = happyShift action_25 +action_82 (104#) = happyShift action_26 +action_82 (109#) = happyShift action_27 +action_82 (110#) = happyShift action_28 +action_82 (111#) = happyShift action_29 +action_82 (114#) = happyShift action_30 +action_82 (119#) = happyShift action_31 +action_82 (124#) = happyShift action_32 +action_82 (125#) = happyShift action_33 +action_82 (126#) = happyShift action_34 +action_82 (127#) = happyShift action_35 +action_82 (128#) = happyShift action_36 +action_82 (129#) = happyShift action_37 +action_82 (131#) = happyShift action_38 +action_82 (134#) = happyShift action_39 +action_82 (137#) = happyShift action_40 +action_82 (140#) = happyShift action_123 +action_82 (145#) = happyShift action_42 +action_82 (156#) = happyShift action_43 +action_82 (157#) = happyShift action_44 +action_82 (161#) = happyShift action_45 +action_82 (162#) = happyShift action_46 +action_82 (167#) = happyShift action_47 +action_82 (170#) = happyShift action_6 +action_82 (171#) = happyShift action_48 +action_82 (172#) = happyShift action_49 +action_82 (173#) = happyShift action_50 +action_82 (174#) = happyShift action_51 +action_82 (8#) = happyGoto action_10 +action_82 (9#) = happyGoto action_11 +action_82 (10#) = happyGoto action_12 +action_82 (11#) = happyGoto action_13 +action_82 (12#) = happyGoto action_14 +action_82 (58#) = happyGoto action_15 +action_82 (59#) = happyGoto action_16 +action_82 (60#) = happyGoto action_17 +action_82 (61#) = happyGoto action_18 +action_82 (62#) = happyGoto action_19 +action_82 (63#) = happyGoto action_121 +action_82 (64#) = happyGoto action_21 +action_82 (72#) = happyGoto action_22 +action_82 (77#) = happyGoto action_23 +action_82 x = happyTcHack x happyFail + +action_83 (174#) = happyShift action_51 +action_83 (12#) = happyGoto action_201 +action_83 x = happyTcHack x happyFail + +action_84 (96#) = happyShift action_24 +action_84 (98#) = happyShift action_25 +action_84 (104#) = happyShift action_26 +action_84 (109#) = happyShift action_27 +action_84 (110#) = happyShift action_28 +action_84 (111#) = happyShift action_29 +action_84 (114#) = happyShift action_30 +action_84 (119#) = happyShift action_31 +action_84 (124#) = happyShift action_32 +action_84 (125#) = happyShift action_33 +action_84 (126#) = happyShift action_34 +action_84 (127#) = happyShift action_35 +action_84 (128#) = happyShift action_36 +action_84 (129#) = happyShift action_37 +action_84 (131#) = happyShift action_38 +action_84 (134#) = happyShift action_39 +action_84 (137#) = happyShift action_40 +action_84 (140#) = happyShift action_41 +action_84 (145#) = happyShift action_42 +action_84 (156#) = happyShift action_43 +action_84 (157#) = happyShift action_44 +action_84 (161#) = happyShift action_45 +action_84 (162#) = happyShift action_46 +action_84 (167#) = happyShift action_47 +action_84 (170#) = happyShift action_6 +action_84 (171#) = happyShift action_48 +action_84 (172#) = happyShift action_49 +action_84 (173#) = happyShift action_50 +action_84 (174#) = happyShift action_51 +action_84 (8#) = happyGoto action_10 +action_84 (9#) = happyGoto action_11 +action_84 (10#) = happyGoto action_12 +action_84 (11#) = happyGoto action_13 +action_84 (12#) = happyGoto action_14 +action_84 (58#) = happyGoto action_15 +action_84 (59#) = happyGoto action_16 +action_84 (60#) = happyGoto action_17 +action_84 (61#) = happyGoto action_18 +action_84 (62#) = happyGoto action_19 +action_84 (63#) = happyGoto action_199 +action_84 (64#) = happyGoto action_21 +action_84 (65#) = happyGoto action_200 +action_84 (72#) = happyGoto action_22 +action_84 (77#) = happyGoto action_23 +action_84 x = happyTcHack x happyReduce_193 + +action_85 (96#) = happyShift action_24 +action_85 (98#) = happyShift action_25 +action_85 (104#) = happyShift action_26 +action_85 (109#) = happyShift action_27 +action_85 (110#) = happyShift action_28 +action_85 (111#) = happyShift action_29 +action_85 (114#) = happyShift action_30 +action_85 (119#) = happyShift action_31 +action_85 (124#) = happyShift action_32 +action_85 (125#) = happyShift action_33 +action_85 (126#) = happyShift action_34 +action_85 (127#) = happyShift action_35 +action_85 (128#) = happyShift action_36 +action_85 (129#) = happyShift action_37 +action_85 (131#) = happyShift action_38 +action_85 (134#) = happyShift action_39 +action_85 (137#) = happyShift action_40 +action_85 (140#) = happyShift action_41 +action_85 (145#) = happyShift action_42 +action_85 (156#) = happyShift action_43 +action_85 (157#) = happyShift action_44 +action_85 (161#) = happyShift action_45 +action_85 (162#) = happyShift action_46 +action_85 (167#) = happyShift action_47 +action_85 (170#) = happyShift action_6 +action_85 (171#) = happyShift action_48 +action_85 (172#) = happyShift action_49 +action_85 (173#) = happyShift action_50 +action_85 (174#) = happyShift action_51 +action_85 (8#) = happyGoto action_10 +action_85 (9#) = happyGoto action_11 +action_85 (10#) = happyGoto action_12 +action_85 (11#) = happyGoto action_13 +action_85 (12#) = happyGoto action_14 +action_85 (58#) = happyGoto action_15 +action_85 (59#) = happyGoto action_16 +action_85 (60#) = happyGoto action_17 +action_85 (61#) = happyGoto action_18 +action_85 (62#) = happyGoto action_19 +action_85 (63#) = happyGoto action_198 +action_85 (64#) = happyGoto action_21 +action_85 (72#) = happyGoto action_22 +action_85 (77#) = happyGoto action_23 +action_85 x = happyTcHack x happyFail + +action_86 (107#) = happyShift action_135 +action_86 x = happyTcHack x happyReduce_172 + +action_87 (103#) = happyShift action_156 +action_87 x = happyTcHack x happyReduce_128 + +action_88 (95#) = happyShift action_196 +action_88 (100#) = happyShift action_197 +action_88 x = happyTcHack x happyFail + +action_89 (94#) = happyShift action_195 +action_89 x = happyTcHack x happyReduce_138 + +action_90 (140#) = happyShift action_194 +action_90 x = happyTcHack x happyFail + +action_91 (174#) = happyShift action_51 +action_91 (12#) = happyGoto action_87 +action_91 (53#) = happyGoto action_88 +action_91 (56#) = happyGoto action_89 +action_91 (57#) = happyGoto action_193 +action_91 x = happyTcHack x happyReduce_137 + +action_92 (107#) = happyShift action_135 +action_92 (171#) = happyShift action_48 +action_92 (9#) = happyGoto action_192 +action_92 x = happyTcHack x happyFail + +action_93 (96#) = happyShift action_106 +action_93 (98#) = happyShift action_107 +action_93 (104#) = happyShift action_108 +action_93 (110#) = happyShift action_109 +action_93 (111#) = happyShift action_110 +action_93 (114#) = happyShift action_111 +action_93 (121#) = happyShift action_112 +action_93 (170#) = happyShift action_6 +action_93 (171#) = happyShift action_48 +action_93 (172#) = happyShift action_49 +action_93 (174#) = happyShift action_51 +action_93 (8#) = happyGoto action_101 +action_93 (9#) = happyGoto action_102 +action_93 (10#) = happyGoto action_103 +action_93 (12#) = happyGoto action_104 +action_93 (67#) = happyGoto action_188 +action_93 (74#) = happyGoto action_189 +action_93 (84#) = happyGoto action_190 +action_93 (85#) = happyGoto action_191 +action_93 x = happyTcHack x happyReduce_253 + +action_94 (150#) = happyShift action_187 +action_94 x = happyTcHack x happyFail + +action_95 x = happyTcHack x happyReduce_174 + +action_96 x = happyTcHack x happyReduce_234 + +action_97 (103#) = happyShift action_186 +action_97 x = happyTcHack x happyReduce_237 + +action_98 (101#) = happyShift action_185 +action_98 x = happyTcHack x happyFail + +action_99 (121#) = happyShift action_100 +action_99 (174#) = happyShift action_51 +action_99 (12#) = happyGoto action_96 +action_99 (75#) = happyGoto action_97 +action_99 (76#) = happyGoto action_184 +action_99 x = happyTcHack x happyReduce_236 + +action_100 x = happyTcHack x happyReduce_235 + +action_101 x = happyTcHack x happyReduce_206 + +action_102 x = happyTcHack x happyReduce_208 + +action_103 x = happyTcHack x happyReduce_207 + +action_104 (107#) = happyShift action_183 +action_104 x = happyTcHack x happyReduce_203 + +action_105 x = happyTcHack x happyReduce_171 + +action_106 (174#) = happyShift action_51 +action_106 (12#) = happyGoto action_179 +action_106 (53#) = happyGoto action_180 +action_106 (70#) = happyGoto action_181 +action_106 (73#) = happyGoto action_182 +action_106 x = happyTcHack x happyReduce_229 + +action_107 (96#) = happyShift action_106 +action_107 (98#) = happyShift action_107 +action_107 (104#) = happyShift action_108 +action_107 (106#) = happyShift action_176 +action_107 (110#) = happyShift action_109 +action_107 (111#) = happyShift action_110 +action_107 (114#) = happyShift action_111 +action_107 (121#) = happyShift action_112 +action_107 (170#) = happyShift action_6 +action_107 (171#) = happyShift action_48 +action_107 (172#) = happyShift action_49 +action_107 (174#) = happyShift action_51 +action_107 (8#) = happyGoto action_101 +action_107 (9#) = happyGoto action_102 +action_107 (10#) = happyGoto action_103 +action_107 (12#) = happyGoto action_170 +action_107 (67#) = happyGoto action_171 +action_107 (68#) = happyGoto action_172 +action_107 (69#) = happyGoto action_178 +action_107 x = happyTcHack x happyFail + +action_108 (171#) = happyShift action_48 +action_108 (9#) = happyGoto action_177 +action_108 x = happyTcHack x happyFail + +action_109 x = happyTcHack x happyReduce_198 + +action_110 (96#) = happyShift action_106 +action_110 (98#) = happyShift action_107 +action_110 (104#) = happyShift action_108 +action_110 (106#) = happyShift action_176 +action_110 (110#) = happyShift action_109 +action_110 (111#) = happyShift action_110 +action_110 (114#) = happyShift action_111 +action_110 (121#) = happyShift action_112 +action_110 (170#) = happyShift action_6 +action_110 (171#) = happyShift action_48 +action_110 (172#) = happyShift action_49 +action_110 (174#) = happyShift action_51 +action_110 (8#) = happyGoto action_101 +action_110 (9#) = happyGoto action_102 +action_110 (10#) = happyGoto action_103 +action_110 (12#) = happyGoto action_170 +action_110 (67#) = happyGoto action_171 +action_110 (68#) = happyGoto action_172 +action_110 (69#) = happyGoto action_173 +action_110 (79#) = happyGoto action_174 +action_110 (81#) = happyGoto action_175 +action_110 x = happyTcHack x happyReduce_246 + +action_111 (174#) = happyShift action_51 +action_111 (12#) = happyGoto action_169 +action_111 x = happyTcHack x happyFail + +action_112 x = happyTcHack x happyReduce_202 + +action_113 (100#) = happyShift action_168 +action_113 x = happyTcHack x happyReduce_241 + +action_114 (103#) = happyShift action_167 +action_114 x = happyTcHack x happyReduce_244 + +action_115 (112#) = happyShift action_166 +action_115 x = happyTcHack x happyFail + +action_116 (107#) = happyShift action_164 +action_116 (109#) = happyShift action_165 +action_116 x = happyTcHack x happyFail + +action_117 (105#) = happyShift action_163 +action_117 x = happyTcHack x happyFail + +action_118 (96#) = happyShift action_140 +action_118 (98#) = happyShift action_82 +action_118 (104#) = happyShift action_26 +action_118 (109#) = happyShift action_83 +action_118 (110#) = happyShift action_28 +action_118 (111#) = happyShift action_29 +action_118 (125#) = happyShift action_33 +action_118 (126#) = happyShift action_34 +action_118 (127#) = happyShift action_35 +action_118 (128#) = happyShift action_36 +action_118 (129#) = happyShift action_37 +action_118 (134#) = happyShift action_39 +action_118 (170#) = happyShift action_6 +action_118 (171#) = happyShift action_48 +action_118 (172#) = happyShift action_49 +action_118 (173#) = happyShift action_50 +action_118 (174#) = happyShift action_51 +action_118 (8#) = happyGoto action_10 +action_118 (9#) = happyGoto action_11 +action_118 (10#) = happyGoto action_12 +action_118 (11#) = happyGoto action_13 +action_118 (12#) = happyGoto action_79 +action_118 (58#) = happyGoto action_161 +action_118 (66#) = happyGoto action_162 +action_118 (72#) = happyGoto action_22 +action_118 x = happyTcHack x happyReduce_196 + +action_119 x = happyTcHack x happyReduce_148 + +action_120 (100#) = happyReduce_234 +action_120 (103#) = happyReduce_234 +action_120 (113#) = happyShift action_136 +action_120 x = happyTcHack x happyReduce_140 + +action_121 (99#) = happyShift action_160 +action_121 x = happyTcHack x happyFail + +action_122 (100#) = happyShift action_159 +action_122 x = happyTcHack x happyFail + +action_123 (96#) = happyShift action_24 +action_123 (98#) = happyShift action_82 +action_123 (104#) = happyShift action_26 +action_123 (109#) = happyShift action_27 +action_123 (110#) = happyShift action_28 +action_123 (111#) = happyShift action_29 +action_123 (125#) = happyShift action_33 +action_123 (126#) = happyShift action_34 +action_123 (127#) = happyShift action_35 +action_123 (128#) = happyShift action_36 +action_123 (129#) = happyShift action_37 +action_123 (134#) = happyShift action_39 +action_123 (170#) = happyShift action_6 +action_123 (171#) = happyShift action_48 +action_123 (172#) = happyShift action_49 +action_123 (173#) = happyShift action_50 +action_123 (174#) = happyShift action_51 +action_123 (8#) = happyGoto action_10 +action_123 (9#) = happyGoto action_11 +action_123 (10#) = happyGoto action_12 +action_123 (11#) = happyGoto action_13 +action_123 (12#) = happyGoto action_158 +action_123 (58#) = happyGoto action_15 +action_123 (59#) = happyGoto action_92 +action_123 (72#) = happyGoto action_22 +action_123 x = happyTcHack x happyFail + +action_124 (97#) = happyShift action_155 +action_124 (103#) = happyShift action_156 +action_124 (107#) = happyShift action_157 +action_124 x = happyTcHack x happyReduce_128 + +action_125 (97#) = happyShift action_154 +action_125 x = happyTcHack x happyFail + +action_126 (96#) = happyShift action_24 +action_126 (98#) = happyShift action_25 +action_126 (104#) = happyShift action_26 +action_126 (109#) = happyShift action_27 +action_126 (110#) = happyShift action_28 +action_126 (111#) = happyShift action_29 +action_126 (114#) = happyShift action_30 +action_126 (119#) = happyShift action_31 +action_126 (124#) = happyShift action_32 +action_126 (125#) = happyShift action_33 +action_126 (126#) = happyShift action_34 +action_126 (127#) = happyShift action_35 +action_126 (128#) = happyShift action_36 +action_126 (129#) = happyShift action_37 +action_126 (131#) = happyShift action_38 +action_126 (134#) = happyShift action_39 +action_126 (137#) = happyShift action_40 +action_126 (140#) = happyShift action_41 +action_126 (145#) = happyShift action_42 +action_126 (156#) = happyShift action_43 +action_126 (157#) = happyShift action_44 +action_126 (161#) = happyShift action_45 +action_126 (162#) = happyShift action_46 +action_126 (167#) = happyShift action_47 +action_126 (170#) = happyShift action_6 +action_126 (171#) = happyShift action_48 +action_126 (172#) = happyShift action_49 +action_126 (173#) = happyShift action_50 +action_126 (174#) = happyShift action_51 +action_126 (8#) = happyGoto action_10 +action_126 (9#) = happyGoto action_11 +action_126 (10#) = happyGoto action_12 +action_126 (11#) = happyGoto action_13 +action_126 (12#) = happyGoto action_14 +action_126 (58#) = happyGoto action_15 +action_126 (59#) = happyGoto action_16 +action_126 (60#) = happyGoto action_17 +action_126 (61#) = happyGoto action_18 +action_126 (62#) = happyGoto action_19 +action_126 (63#) = happyGoto action_153 +action_126 (64#) = happyGoto action_21 +action_126 (72#) = happyGoto action_22 +action_126 (77#) = happyGoto action_23 +action_126 x = happyTcHack x happyFail + +action_127 (96#) = happyShift action_24 +action_127 (98#) = happyShift action_82 +action_127 (104#) = happyShift action_26 +action_127 (109#) = happyShift action_27 +action_127 (110#) = happyShift action_28 +action_127 (111#) = happyShift action_29 +action_127 (114#) = happyShift action_30 +action_127 (124#) = happyShift action_32 +action_127 (125#) = happyShift action_33 +action_127 (126#) = happyShift action_34 +action_127 (127#) = happyShift action_35 +action_127 (128#) = happyShift action_36 +action_127 (129#) = happyShift action_37 +action_127 (131#) = happyShift action_38 +action_127 (134#) = happyShift action_39 +action_127 (156#) = happyShift action_43 +action_127 (157#) = happyShift action_44 +action_127 (161#) = happyShift action_45 +action_127 (162#) = happyShift action_46 +action_127 (167#) = happyShift action_47 +action_127 (170#) = happyShift action_6 +action_127 (171#) = happyShift action_48 +action_127 (172#) = happyShift action_49 +action_127 (173#) = happyShift action_50 +action_127 (174#) = happyShift action_51 +action_127 (8#) = happyGoto action_10 +action_127 (9#) = happyGoto action_11 +action_127 (10#) = happyGoto action_12 +action_127 (11#) = happyGoto action_13 +action_127 (12#) = happyGoto action_14 +action_127 (58#) = happyGoto action_15 +action_127 (59#) = happyGoto action_16 +action_127 (60#) = happyGoto action_150 +action_127 (61#) = happyGoto action_151 +action_127 (62#) = happyGoto action_152 +action_127 (64#) = happyGoto action_21 +action_127 (72#) = happyGoto action_22 +action_127 x = happyTcHack x happyFail + +action_128 (96#) = happyShift action_24 +action_128 (98#) = happyShift action_25 +action_128 (104#) = happyShift action_26 +action_128 (109#) = happyShift action_27 +action_128 (110#) = happyShift action_28 +action_128 (111#) = happyShift action_29 +action_128 (114#) = happyShift action_30 +action_128 (119#) = happyShift action_31 +action_128 (124#) = happyShift action_32 +action_128 (125#) = happyShift action_33 +action_128 (126#) = happyShift action_34 +action_128 (127#) = happyShift action_35 +action_128 (128#) = happyShift action_36 +action_128 (129#) = happyShift action_37 +action_128 (131#) = happyShift action_38 +action_128 (134#) = happyShift action_39 +action_128 (137#) = happyShift action_40 +action_128 (140#) = happyShift action_41 +action_128 (145#) = happyShift action_42 +action_128 (156#) = happyShift action_43 +action_128 (157#) = happyShift action_44 +action_128 (161#) = happyShift action_45 +action_128 (162#) = happyShift action_46 +action_128 (167#) = happyShift action_47 +action_128 (170#) = happyShift action_6 +action_128 (171#) = happyShift action_48 +action_128 (172#) = happyShift action_49 +action_128 (173#) = happyShift action_50 +action_128 (174#) = happyShift action_51 +action_128 (8#) = happyGoto action_10 +action_128 (9#) = happyGoto action_11 +action_128 (10#) = happyGoto action_12 +action_128 (11#) = happyGoto action_13 +action_128 (12#) = happyGoto action_14 +action_128 (58#) = happyGoto action_15 +action_128 (59#) = happyGoto action_16 +action_128 (60#) = happyGoto action_17 +action_128 (61#) = happyGoto action_18 +action_128 (62#) = happyGoto action_19 +action_128 (63#) = happyGoto action_149 +action_128 (64#) = happyGoto action_21 +action_128 (72#) = happyGoto action_22 +action_128 (77#) = happyGoto action_23 +action_128 x = happyTcHack x happyFail + +action_129 (96#) = happyShift action_24 +action_129 (98#) = happyShift action_82 +action_129 (104#) = happyShift action_26 +action_129 (109#) = happyShift action_27 +action_129 (110#) = happyShift action_28 +action_129 (111#) = happyShift action_29 +action_129 (114#) = happyShift action_30 +action_129 (124#) = happyShift action_32 +action_129 (125#) = happyShift action_33 +action_129 (126#) = happyShift action_34 +action_129 (127#) = happyShift action_35 +action_129 (128#) = happyShift action_36 +action_129 (129#) = happyShift action_37 +action_129 (131#) = happyShift action_38 +action_129 (134#) = happyShift action_39 +action_129 (156#) = happyShift action_43 +action_129 (157#) = happyShift action_44 +action_129 (161#) = happyShift action_45 +action_129 (162#) = happyShift action_46 +action_129 (167#) = happyShift action_47 +action_129 (170#) = happyShift action_6 +action_129 (171#) = happyShift action_48 +action_129 (172#) = happyShift action_49 +action_129 (173#) = happyShift action_50 +action_129 (174#) = happyShift action_51 +action_129 (8#) = happyGoto action_10 +action_129 (9#) = happyGoto action_11 +action_129 (10#) = happyGoto action_12 +action_129 (11#) = happyGoto action_13 +action_129 (12#) = happyGoto action_14 +action_129 (58#) = happyGoto action_15 +action_129 (59#) = happyGoto action_16 +action_129 (60#) = happyGoto action_148 +action_129 (72#) = happyGoto action_22 +action_129 x = happyTcHack x happyFail + +action_130 (96#) = happyShift action_24 +action_130 (98#) = happyShift action_82 +action_130 (104#) = happyShift action_26 +action_130 (109#) = happyShift action_27 +action_130 (110#) = happyShift action_28 +action_130 (111#) = happyShift action_29 +action_130 (114#) = happyShift action_30 +action_130 (124#) = happyShift action_32 +action_130 (125#) = happyShift action_33 +action_130 (126#) = happyShift action_34 +action_130 (127#) = happyShift action_35 +action_130 (128#) = happyShift action_36 +action_130 (129#) = happyShift action_37 +action_130 (131#) = happyShift action_38 +action_130 (134#) = happyShift action_39 +action_130 (156#) = happyShift action_43 +action_130 (157#) = happyShift action_44 +action_130 (161#) = happyShift action_45 +action_130 (162#) = happyShift action_46 +action_130 (167#) = happyShift action_47 +action_130 (170#) = happyShift action_6 +action_130 (171#) = happyShift action_48 +action_130 (172#) = happyShift action_49 +action_130 (173#) = happyShift action_50 +action_130 (174#) = happyShift action_51 +action_130 (8#) = happyGoto action_10 +action_130 (9#) = happyGoto action_11 +action_130 (10#) = happyGoto action_12 +action_130 (11#) = happyGoto action_13 +action_130 (12#) = happyGoto action_14 +action_130 (58#) = happyGoto action_15 +action_130 (59#) = happyGoto action_16 +action_130 (60#) = happyGoto action_147 +action_130 (72#) = happyGoto action_22 +action_130 x = happyTcHack x happyFail + +action_131 (96#) = happyShift action_24 +action_131 (98#) = happyShift action_82 +action_131 (104#) = happyShift action_26 +action_131 (109#) = happyShift action_27 +action_131 (110#) = happyShift action_28 +action_131 (111#) = happyShift action_29 +action_131 (114#) = happyShift action_30 +action_131 (124#) = happyShift action_32 +action_131 (125#) = happyShift action_33 +action_131 (126#) = happyShift action_34 +action_131 (127#) = happyShift action_35 +action_131 (128#) = happyShift action_36 +action_131 (129#) = happyShift action_37 +action_131 (131#) = happyShift action_38 +action_131 (134#) = happyShift action_39 +action_131 (156#) = happyShift action_43 +action_131 (157#) = happyShift action_44 +action_131 (161#) = happyShift action_45 +action_131 (162#) = happyShift action_46 +action_131 (167#) = happyShift action_47 +action_131 (170#) = happyShift action_6 +action_131 (171#) = happyShift action_48 +action_131 (172#) = happyShift action_49 +action_131 (173#) = happyShift action_50 +action_131 (174#) = happyShift action_51 +action_131 (8#) = happyGoto action_10 +action_131 (9#) = happyGoto action_11 +action_131 (10#) = happyGoto action_12 +action_131 (11#) = happyGoto action_13 +action_131 (12#) = happyGoto action_14 +action_131 (58#) = happyGoto action_15 +action_131 (59#) = happyGoto action_16 +action_131 (60#) = happyGoto action_146 +action_131 (72#) = happyGoto action_22 +action_131 x = happyTcHack x happyFail + +action_132 (96#) = happyShift action_24 +action_132 (98#) = happyShift action_25 +action_132 (104#) = happyShift action_26 +action_132 (109#) = happyShift action_27 +action_132 (110#) = happyShift action_28 +action_132 (111#) = happyShift action_29 +action_132 (114#) = happyShift action_30 +action_132 (119#) = happyShift action_31 +action_132 (124#) = happyShift action_32 +action_132 (125#) = happyShift action_33 +action_132 (126#) = happyShift action_34 +action_132 (127#) = happyShift action_35 +action_132 (128#) = happyShift action_36 +action_132 (129#) = happyShift action_37 +action_132 (131#) = happyShift action_38 +action_132 (134#) = happyShift action_39 +action_132 (137#) = happyShift action_40 +action_132 (140#) = happyShift action_41 +action_132 (145#) = happyShift action_42 +action_132 (156#) = happyShift action_43 +action_132 (157#) = happyShift action_44 +action_132 (161#) = happyShift action_45 +action_132 (162#) = happyShift action_46 +action_132 (167#) = happyShift action_47 +action_132 (170#) = happyShift action_6 +action_132 (171#) = happyShift action_48 +action_132 (172#) = happyShift action_49 +action_132 (173#) = happyShift action_50 +action_132 (174#) = happyShift action_51 +action_132 (8#) = happyGoto action_10 +action_132 (9#) = happyGoto action_11 +action_132 (10#) = happyGoto action_12 +action_132 (11#) = happyGoto action_13 +action_132 (12#) = happyGoto action_14 +action_132 (58#) = happyGoto action_15 +action_132 (59#) = happyGoto action_16 +action_132 (60#) = happyGoto action_17 +action_132 (61#) = happyGoto action_18 +action_132 (62#) = happyGoto action_19 +action_132 (63#) = happyGoto action_145 +action_132 (64#) = happyGoto action_21 +action_132 (72#) = happyGoto action_22 +action_132 (77#) = happyGoto action_23 +action_132 x = happyTcHack x happyFail + +action_133 (96#) = happyShift action_144 +action_133 x = happyTcHack x happyFail + +action_134 (107#) = happyShift action_135 +action_134 x = happyTcHack x happyReduce_162 + +action_135 (122#) = happyShift action_143 +action_135 (174#) = happyShift action_51 +action_135 (12#) = happyGoto action_141 +action_135 (71#) = happyGoto action_142 +action_135 x = happyTcHack x happyFail + +action_136 (96#) = happyShift action_140 +action_136 (98#) = happyShift action_82 +action_136 (104#) = happyShift action_26 +action_136 (109#) = happyShift action_83 +action_136 (110#) = happyShift action_28 +action_136 (111#) = happyShift action_29 +action_136 (125#) = happyShift action_33 +action_136 (126#) = happyShift action_34 +action_136 (127#) = happyShift action_35 +action_136 (128#) = happyShift action_36 +action_136 (129#) = happyShift action_37 +action_136 (134#) = happyShift action_39 +action_136 (170#) = happyShift action_6 +action_136 (171#) = happyShift action_48 +action_136 (172#) = happyShift action_49 +action_136 (173#) = happyShift action_50 +action_136 (174#) = happyShift action_51 +action_136 (8#) = happyGoto action_10 +action_136 (9#) = happyGoto action_11 +action_136 (10#) = happyGoto action_12 +action_136 (11#) = happyGoto action_13 +action_136 (12#) = happyGoto action_79 +action_136 (58#) = happyGoto action_139 +action_136 (72#) = happyGoto action_22 +action_136 x = happyTcHack x happyFail + +action_137 (95#) = happyShift action_138 +action_137 x = happyTcHack x happyFail + +action_138 (1#) = happyReduce_65 +action_138 (102#) = happyReduce_65 +action_138 (151#) = happyReduce_51 +action_138 (160#) = happyShift action_347 +action_138 (165#) = happyShift action_348 +action_138 (174#) = happyShift action_51 +action_138 (12#) = happyGoto action_241 +action_138 (22#) = happyGoto action_343 +action_138 (26#) = happyGoto action_344 +action_138 (32#) = happyGoto action_345 +action_138 (33#) = happyGoto action_346 +action_138 x = happyTcHack x happyReduce_65 + +action_139 x = happyTcHack x happyReduce_170 + +action_140 (174#) = happyShift action_51 +action_140 (12#) = happyGoto action_342 +action_140 (53#) = happyGoto action_88 +action_140 (56#) = happyGoto action_89 +action_140 (57#) = happyGoto action_125 +action_140 x = happyTcHack x happyReduce_137 + +action_141 x = happyTcHack x happyReduce_222 + +action_142 x = happyTcHack x happyReduce_158 + +action_143 (170#) = happyShift action_6 +action_143 (8#) = happyGoto action_341 +action_143 x = happyTcHack x happyFail + +action_144 (174#) = happyShift action_51 +action_144 (12#) = happyGoto action_87 +action_144 (53#) = happyGoto action_88 +action_144 (56#) = happyGoto action_89 +action_144 (57#) = happyGoto action_340 +action_144 x = happyTcHack x happyReduce_137 + +action_145 x = happyTcHack x happyReduce_185 + +action_146 (96#) = happyShift action_24 +action_146 (98#) = happyShift action_82 +action_146 (104#) = happyShift action_26 +action_146 (109#) = happyShift action_27 +action_146 (110#) = happyShift action_28 +action_146 (111#) = happyShift action_29 +action_146 (125#) = happyShift action_33 +action_146 (126#) = happyShift action_34 +action_146 (127#) = happyShift action_35 +action_146 (128#) = happyShift action_36 +action_146 (129#) = happyShift action_37 +action_146 (134#) = happyShift action_39 +action_146 (170#) = happyShift action_6 +action_146 (171#) = happyShift action_48 +action_146 (172#) = happyShift action_49 +action_146 (173#) = happyShift action_50 +action_146 (174#) = happyShift action_51 +action_146 (8#) = happyGoto action_10 +action_146 (9#) = happyGoto action_11 +action_146 (10#) = happyGoto action_12 +action_146 (11#) = happyGoto action_13 +action_146 (12#) = happyGoto action_79 +action_146 (58#) = happyGoto action_15 +action_146 (59#) = happyGoto action_134 +action_146 (72#) = happyGoto action_22 +action_146 x = happyTcHack x happyReduce_176 + +action_147 (96#) = happyShift action_24 +action_147 (98#) = happyShift action_82 +action_147 (104#) = happyShift action_26 +action_147 (109#) = happyShift action_27 +action_147 (110#) = happyShift action_28 +action_147 (111#) = happyShift action_29 +action_147 (125#) = happyShift action_33 +action_147 (126#) = happyShift action_34 +action_147 (127#) = happyShift action_35 +action_147 (128#) = happyShift action_36 +action_147 (129#) = happyShift action_37 +action_147 (134#) = happyShift action_39 +action_147 (170#) = happyShift action_6 +action_147 (171#) = happyShift action_48 +action_147 (172#) = happyShift action_49 +action_147 (173#) = happyShift action_50 +action_147 (174#) = happyShift action_51 +action_147 (8#) = happyGoto action_10 +action_147 (9#) = happyGoto action_11 +action_147 (10#) = happyGoto action_12 +action_147 (11#) = happyGoto action_13 +action_147 (12#) = happyGoto action_79 +action_147 (58#) = happyGoto action_15 +action_147 (59#) = happyGoto action_134 +action_147 (72#) = happyGoto action_22 +action_147 x = happyTcHack x happyReduce_175 + +action_148 (96#) = happyShift action_24 +action_148 (98#) = happyShift action_82 +action_148 (104#) = happyShift action_26 +action_148 (109#) = happyShift action_27 +action_148 (110#) = happyShift action_28 +action_148 (111#) = happyShift action_29 +action_148 (125#) = happyShift action_33 +action_148 (126#) = happyShift action_34 +action_148 (127#) = happyShift action_35 +action_148 (128#) = happyShift action_36 +action_148 (129#) = happyShift action_37 +action_148 (134#) = happyShift action_39 +action_148 (170#) = happyShift action_6 +action_148 (171#) = happyShift action_48 +action_148 (172#) = happyShift action_49 +action_148 (173#) = happyShift action_50 +action_148 (174#) = happyShift action_51 +action_148 (8#) = happyGoto action_10 +action_148 (9#) = happyGoto action_11 +action_148 (10#) = happyGoto action_12 +action_148 (11#) = happyGoto action_13 +action_148 (12#) = happyGoto action_79 +action_148 (58#) = happyGoto action_15 +action_148 (59#) = happyGoto action_134 +action_148 (72#) = happyGoto action_22 +action_148 x = happyTcHack x happyReduce_177 + +action_149 x = happyTcHack x happyReduce_181 + +action_150 (96#) = happyShift action_24 +action_150 (98#) = happyShift action_82 +action_150 (104#) = happyShift action_26 +action_150 (109#) = happyShift action_27 +action_150 (110#) = happyShift action_28 +action_150 (111#) = happyShift action_29 +action_150 (125#) = happyShift action_33 +action_150 (126#) = happyShift action_34 +action_150 (127#) = happyShift action_35 +action_150 (128#) = happyShift action_36 +action_150 (129#) = happyShift action_37 +action_150 (134#) = happyShift action_39 +action_150 (170#) = happyShift action_6 +action_150 (171#) = happyShift action_48 +action_150 (172#) = happyShift action_49 +action_150 (173#) = happyShift action_50 +action_150 (174#) = happyShift action_51 +action_150 (8#) = happyGoto action_10 +action_150 (9#) = happyGoto action_11 +action_150 (10#) = happyGoto action_12 +action_150 (11#) = happyGoto action_13 +action_150 (12#) = happyGoto action_79 +action_150 (58#) = happyGoto action_15 +action_150 (59#) = happyGoto action_134 +action_150 (72#) = happyGoto action_22 +action_150 x = happyTcHack x happyReduce_178 + +action_151 (102#) = happyShift action_129 +action_151 (115#) = happyShift action_130 +action_151 (116#) = happyShift action_131 +action_151 x = happyTcHack x happyReduce_192 + +action_152 x = happyTcHack x happyReduce_179 + +action_153 x = happyTcHack x happyReduce_184 + +action_154 x = happyTcHack x happyReduce_152 + +action_155 x = happyTcHack x happyReduce_141 + +action_156 (174#) = happyShift action_51 +action_156 (12#) = happyGoto action_87 +action_156 (53#) = happyGoto action_339 +action_156 x = happyTcHack x happyFail + +action_157 (174#) = happyShift action_51 +action_157 (12#) = happyGoto action_338 +action_157 x = happyTcHack x happyFail + +action_158 (99#) = happyShift action_337 +action_158 x = happyTcHack x happyReduce_140 + +action_159 (96#) = happyShift action_24 +action_159 (98#) = happyShift action_25 +action_159 (104#) = happyShift action_26 +action_159 (109#) = happyShift action_27 +action_159 (110#) = happyShift action_28 +action_159 (111#) = happyShift action_29 +action_159 (114#) = happyShift action_30 +action_159 (119#) = happyShift action_31 +action_159 (124#) = happyShift action_32 +action_159 (125#) = happyShift action_33 +action_159 (126#) = happyShift action_34 +action_159 (127#) = happyShift action_35 +action_159 (128#) = happyShift action_36 +action_159 (129#) = happyShift action_37 +action_159 (131#) = happyShift action_38 +action_159 (134#) = happyShift action_39 +action_159 (137#) = happyShift action_40 +action_159 (140#) = happyShift action_41 +action_159 (145#) = happyShift action_42 +action_159 (156#) = happyShift action_43 +action_159 (157#) = happyShift action_44 +action_159 (161#) = happyShift action_45 +action_159 (162#) = happyShift action_46 +action_159 (167#) = happyShift action_47 +action_159 (170#) = happyShift action_6 +action_159 (171#) = happyShift action_48 +action_159 (172#) = happyShift action_49 +action_159 (173#) = happyShift action_50 +action_159 (174#) = happyShift action_51 +action_159 (8#) = happyGoto action_10 +action_159 (9#) = happyGoto action_11 +action_159 (10#) = happyGoto action_12 +action_159 (11#) = happyGoto action_13 +action_159 (12#) = happyGoto action_14 +action_159 (58#) = happyGoto action_15 +action_159 (59#) = happyGoto action_16 +action_159 (60#) = happyGoto action_17 +action_159 (61#) = happyGoto action_18 +action_159 (62#) = happyGoto action_19 +action_159 (63#) = happyGoto action_336 +action_159 (64#) = happyGoto action_21 +action_159 (72#) = happyGoto action_22 +action_159 (77#) = happyGoto action_23 +action_159 x = happyTcHack x happyFail + +action_160 x = happyTcHack x happyReduce_156 + +action_161 (96#) = happyShift action_140 +action_161 (98#) = happyShift action_82 +action_161 (104#) = happyShift action_26 +action_161 (109#) = happyShift action_83 +action_161 (110#) = happyShift action_28 +action_161 (111#) = happyShift action_29 +action_161 (125#) = happyShift action_33 +action_161 (126#) = happyShift action_34 +action_161 (127#) = happyShift action_35 +action_161 (128#) = happyShift action_36 +action_161 (129#) = happyShift action_37 +action_161 (134#) = happyShift action_39 +action_161 (170#) = happyShift action_6 +action_161 (171#) = happyShift action_48 +action_161 (172#) = happyShift action_49 +action_161 (173#) = happyShift action_50 +action_161 (174#) = happyShift action_51 +action_161 (8#) = happyGoto action_10 +action_161 (9#) = happyGoto action_11 +action_161 (10#) = happyGoto action_12 +action_161 (11#) = happyGoto action_13 +action_161 (12#) = happyGoto action_79 +action_161 (58#) = happyGoto action_161 +action_161 (66#) = happyGoto action_335 +action_161 (72#) = happyGoto action_22 +action_161 x = happyTcHack x happyReduce_196 + +action_162 (105#) = happyShift action_334 +action_162 x = happyTcHack x happyFail + +action_163 x = happyTcHack x happyReduce_151 + +action_164 (174#) = happyShift action_51 +action_164 (12#) = happyGoto action_333 +action_164 x = happyTcHack x happyFail + +action_165 x = happyTcHack x happyReduce_142 + +action_166 x = happyTcHack x happyReduce_153 + +action_167 (96#) = happyShift action_24 +action_167 (98#) = happyShift action_25 +action_167 (104#) = happyShift action_26 +action_167 (109#) = happyShift action_27 +action_167 (110#) = happyShift action_28 +action_167 (111#) = happyShift action_29 +action_167 (114#) = happyShift action_30 +action_167 (119#) = happyShift action_31 +action_167 (124#) = happyShift action_32 +action_167 (125#) = happyShift action_33 +action_167 (126#) = happyShift action_34 +action_167 (127#) = happyShift action_35 +action_167 (128#) = happyShift action_36 +action_167 (129#) = happyShift action_37 +action_167 (131#) = happyShift action_38 +action_167 (134#) = happyShift action_39 +action_167 (137#) = happyShift action_40 +action_167 (140#) = happyShift action_41 +action_167 (145#) = happyShift action_42 +action_167 (156#) = happyShift action_43 +action_167 (157#) = happyShift action_44 +action_167 (161#) = happyShift action_45 +action_167 (162#) = happyShift action_46 +action_167 (167#) = happyShift action_47 +action_167 (170#) = happyShift action_6 +action_167 (171#) = happyShift action_48 +action_167 (172#) = happyShift action_49 +action_167 (173#) = happyShift action_50 +action_167 (174#) = happyShift action_51 +action_167 (8#) = happyGoto action_10 +action_167 (9#) = happyGoto action_11 +action_167 (10#) = happyGoto action_12 +action_167 (11#) = happyGoto action_13 +action_167 (12#) = happyGoto action_14 +action_167 (58#) = happyGoto action_15 +action_167 (59#) = happyGoto action_16 +action_167 (60#) = happyGoto action_17 +action_167 (61#) = happyGoto action_18 +action_167 (62#) = happyGoto action_19 +action_167 (63#) = happyGoto action_331 +action_167 (64#) = happyGoto action_21 +action_167 (72#) = happyGoto action_22 +action_167 (77#) = happyGoto action_23 +action_167 (78#) = happyGoto action_114 +action_167 (80#) = happyGoto action_332 +action_167 x = happyTcHack x happyReduce_243 + +action_168 (96#) = happyShift action_24 +action_168 (98#) = happyShift action_25 +action_168 (104#) = happyShift action_26 +action_168 (109#) = happyShift action_27 +action_168 (110#) = happyShift action_28 +action_168 (111#) = happyShift action_29 +action_168 (114#) = happyShift action_30 +action_168 (119#) = happyShift action_31 +action_168 (124#) = happyShift action_32 +action_168 (125#) = happyShift action_33 +action_168 (126#) = happyShift action_34 +action_168 (127#) = happyShift action_35 +action_168 (128#) = happyShift action_36 +action_168 (129#) = happyShift action_37 +action_168 (131#) = happyShift action_38 +action_168 (134#) = happyShift action_39 +action_168 (137#) = happyShift action_40 +action_168 (140#) = happyShift action_41 +action_168 (145#) = happyShift action_42 +action_168 (156#) = happyShift action_43 +action_168 (157#) = happyShift action_44 +action_168 (161#) = happyShift action_45 +action_168 (162#) = happyShift action_46 +action_168 (167#) = happyShift action_47 +action_168 (170#) = happyShift action_6 +action_168 (171#) = happyShift action_48 +action_168 (172#) = happyShift action_49 +action_168 (173#) = happyShift action_50 +action_168 (174#) = happyShift action_51 +action_168 (8#) = happyGoto action_10 +action_168 (9#) = happyGoto action_11 +action_168 (10#) = happyGoto action_12 +action_168 (11#) = happyGoto action_13 +action_168 (12#) = happyGoto action_14 +action_168 (58#) = happyGoto action_15 +action_168 (59#) = happyGoto action_16 +action_168 (60#) = happyGoto action_17 +action_168 (61#) = happyGoto action_18 +action_168 (62#) = happyGoto action_19 +action_168 (63#) = happyGoto action_330 +action_168 (64#) = happyGoto action_21 +action_168 (72#) = happyGoto action_22 +action_168 (77#) = happyGoto action_23 +action_168 x = happyTcHack x happyFail + +action_169 (107#) = happyShift action_329 +action_169 x = happyTcHack x happyReduce_200 + +action_170 (96#) = happyShift action_106 +action_170 (98#) = happyShift action_107 +action_170 (104#) = happyShift action_108 +action_170 (107#) = happyShift action_300 +action_170 (110#) = happyShift action_109 +action_170 (111#) = happyShift action_110 +action_170 (113#) = happyShift action_301 +action_170 (114#) = happyShift action_111 +action_170 (121#) = happyShift action_112 +action_170 (170#) = happyShift action_6 +action_170 (171#) = happyShift action_48 +action_170 (172#) = happyShift action_49 +action_170 (174#) = happyShift action_51 +action_170 (8#) = happyGoto action_101 +action_170 (9#) = happyGoto action_102 +action_170 (10#) = happyGoto action_103 +action_170 (12#) = happyGoto action_104 +action_170 (67#) = happyGoto action_188 +action_170 (74#) = happyGoto action_299 +action_170 x = happyTcHack x happyReduce_203 + +action_171 (116#) = happyShift action_328 +action_171 x = happyTcHack x happyReduce_217 + +action_172 x = happyTcHack x happyReduce_220 + +action_173 (108#) = happyShift action_296 +action_173 (117#) = happyShift action_297 +action_173 x = happyTcHack x happyReduce_242 + +action_174 (103#) = happyShift action_327 +action_174 x = happyTcHack x happyReduce_247 + +action_175 (112#) = happyShift action_326 +action_175 x = happyTcHack x happyFail + +action_176 (96#) = happyShift action_106 +action_176 (98#) = happyShift action_107 +action_176 (104#) = happyShift action_108 +action_176 (110#) = happyShift action_109 +action_176 (111#) = happyShift action_110 +action_176 (114#) = happyShift action_111 +action_176 (121#) = happyShift action_112 +action_176 (170#) = happyShift action_6 +action_176 (171#) = happyShift action_48 +action_176 (172#) = happyShift action_49 +action_176 (174#) = happyShift action_51 +action_176 (8#) = happyGoto action_101 +action_176 (9#) = happyGoto action_102 +action_176 (10#) = happyGoto action_103 +action_176 (12#) = happyGoto action_104 +action_176 (67#) = happyGoto action_325 +action_176 x = happyTcHack x happyFail + +action_177 (105#) = happyShift action_324 +action_177 x = happyTcHack x happyFail + +action_178 (99#) = happyShift action_323 +action_178 (108#) = happyShift action_296 +action_178 (117#) = happyShift action_297 +action_178 x = happyTcHack x happyFail + +action_179 (97#) = happyShift action_322 +action_179 (103#) = happyShift action_156 +action_179 x = happyTcHack x happyReduce_128 + +action_180 (95#) = happyShift action_321 +action_180 x = happyTcHack x happyFail + +action_181 (94#) = happyShift action_320 +action_181 x = happyTcHack x happyReduce_230 + +action_182 (97#) = happyShift action_319 +action_182 x = happyTcHack x happyFail + +action_183 (174#) = happyShift action_51 +action_183 (12#) = happyGoto action_318 +action_183 x = happyTcHack x happyFail + +action_184 (120#) = happyShift action_317 +action_184 x = happyTcHack x happyFail + +action_185 (96#) = happyShift action_24 +action_185 (98#) = happyShift action_25 +action_185 (104#) = happyShift action_26 +action_185 (109#) = happyShift action_27 +action_185 (110#) = happyShift action_28 +action_185 (111#) = happyShift action_29 +action_185 (114#) = happyShift action_30 +action_185 (119#) = happyShift action_31 +action_185 (124#) = happyShift action_32 +action_185 (125#) = happyShift action_33 +action_185 (126#) = happyShift action_34 +action_185 (127#) = happyShift action_35 +action_185 (128#) = happyShift action_36 +action_185 (129#) = happyShift action_37 +action_185 (131#) = happyShift action_38 +action_185 (134#) = happyShift action_39 +action_185 (137#) = happyShift action_40 +action_185 (140#) = happyShift action_41 +action_185 (145#) = happyShift action_42 +action_185 (156#) = happyShift action_43 +action_185 (157#) = happyShift action_44 +action_185 (161#) = happyShift action_45 +action_185 (162#) = happyShift action_46 +action_185 (167#) = happyShift action_47 +action_185 (170#) = happyShift action_6 +action_185 (171#) = happyShift action_48 +action_185 (172#) = happyShift action_49 +action_185 (173#) = happyShift action_50 +action_185 (174#) = happyShift action_51 +action_185 (8#) = happyGoto action_10 +action_185 (9#) = happyGoto action_11 +action_185 (10#) = happyGoto action_12 +action_185 (11#) = happyGoto action_13 +action_185 (12#) = happyGoto action_14 +action_185 (58#) = happyGoto action_15 +action_185 (59#) = happyGoto action_16 +action_185 (60#) = happyGoto action_17 +action_185 (61#) = happyGoto action_18 +action_185 (62#) = happyGoto action_19 +action_185 (63#) = happyGoto action_316 +action_185 (64#) = happyGoto action_21 +action_185 (72#) = happyGoto action_22 +action_185 (77#) = happyGoto action_23 +action_185 x = happyTcHack x happyFail + +action_186 (121#) = happyShift action_100 +action_186 (174#) = happyShift action_51 +action_186 (12#) = happyGoto action_96 +action_186 (75#) = happyGoto action_97 +action_186 (76#) = happyGoto action_315 +action_186 x = happyTcHack x happyReduce_236 + +action_187 (96#) = happyShift action_314 +action_187 x = happyTcHack x happyFail + +action_188 (96#) = happyShift action_106 +action_188 (98#) = happyShift action_107 +action_188 (104#) = happyShift action_108 +action_188 (110#) = happyShift action_109 +action_188 (111#) = happyShift action_110 +action_188 (114#) = happyShift action_111 +action_188 (121#) = happyShift action_112 +action_188 (170#) = happyShift action_6 +action_188 (171#) = happyShift action_48 +action_188 (172#) = happyShift action_49 +action_188 (174#) = happyShift action_51 +action_188 (8#) = happyGoto action_101 +action_188 (9#) = happyGoto action_102 +action_188 (10#) = happyGoto action_103 +action_188 (12#) = happyGoto action_104 +action_188 (67#) = happyGoto action_188 +action_188 (74#) = happyGoto action_313 +action_188 x = happyTcHack x happyReduce_232 + +action_189 (101#) = happyShift action_312 +action_189 x = happyTcHack x happyFail + +action_190 (94#) = happyShift action_311 +action_190 x = happyTcHack x happyReduce_254 + +action_191 (97#) = happyShift action_310 +action_191 x = happyTcHack x happyFail + +action_192 x = happyTcHack x happyReduce_190 + +action_193 (97#) = happyShift action_309 +action_193 x = happyTcHack x happyFail + +action_194 (96#) = happyShift action_24 +action_194 (98#) = happyShift action_25 +action_194 (104#) = happyShift action_26 +action_194 (109#) = happyShift action_27 +action_194 (110#) = happyShift action_28 +action_194 (111#) = happyShift action_29 +action_194 (114#) = happyShift action_30 +action_194 (119#) = happyShift action_31 +action_194 (124#) = happyShift action_32 +action_194 (125#) = happyShift action_33 +action_194 (126#) = happyShift action_34 +action_194 (127#) = happyShift action_35 +action_194 (128#) = happyShift action_36 +action_194 (129#) = happyShift action_37 +action_194 (131#) = happyShift action_38 +action_194 (134#) = happyShift action_39 +action_194 (137#) = happyShift action_40 +action_194 (140#) = happyShift action_41 +action_194 (145#) = happyShift action_42 +action_194 (156#) = happyShift action_43 +action_194 (157#) = happyShift action_44 +action_194 (161#) = happyShift action_45 +action_194 (162#) = happyShift action_46 +action_194 (167#) = happyShift action_47 +action_194 (170#) = happyShift action_6 +action_194 (171#) = happyShift action_48 +action_194 (172#) = happyShift action_49 +action_194 (173#) = happyShift action_50 +action_194 (174#) = happyShift action_51 +action_194 (8#) = happyGoto action_10 +action_194 (9#) = happyGoto action_11 +action_194 (10#) = happyGoto action_12 +action_194 (11#) = happyGoto action_13 +action_194 (12#) = happyGoto action_14 +action_194 (58#) = happyGoto action_15 +action_194 (59#) = happyGoto action_16 +action_194 (60#) = happyGoto action_17 +action_194 (61#) = happyGoto action_18 +action_194 (62#) = happyGoto action_19 +action_194 (63#) = happyGoto action_308 +action_194 (64#) = happyGoto action_21 +action_194 (72#) = happyGoto action_22 +action_194 (77#) = happyGoto action_23 +action_194 x = happyTcHack x happyFail + +action_195 (174#) = happyShift action_51 +action_195 (12#) = happyGoto action_87 +action_195 (53#) = happyGoto action_88 +action_195 (56#) = happyGoto action_89 +action_195 (57#) = happyGoto action_307 +action_195 x = happyTcHack x happyReduce_137 + +action_196 (96#) = happyShift action_24 +action_196 (98#) = happyShift action_25 +action_196 (104#) = happyShift action_26 +action_196 (109#) = happyShift action_27 +action_196 (110#) = happyShift action_28 +action_196 (111#) = happyShift action_29 +action_196 (114#) = happyShift action_30 +action_196 (119#) = happyShift action_31 +action_196 (124#) = happyShift action_32 +action_196 (125#) = happyShift action_33 +action_196 (126#) = happyShift action_34 +action_196 (127#) = happyShift action_35 +action_196 (128#) = happyShift action_36 +action_196 (129#) = happyShift action_37 +action_196 (131#) = happyShift action_38 +action_196 (134#) = happyShift action_39 +action_196 (137#) = happyShift action_40 +action_196 (140#) = happyShift action_41 +action_196 (145#) = happyShift action_42 +action_196 (156#) = happyShift action_43 +action_196 (157#) = happyShift action_44 +action_196 (161#) = happyShift action_45 +action_196 (162#) = happyShift action_46 +action_196 (167#) = happyShift action_47 +action_196 (170#) = happyShift action_6 +action_196 (171#) = happyShift action_48 +action_196 (172#) = happyShift action_49 +action_196 (173#) = happyShift action_50 +action_196 (174#) = happyShift action_51 +action_196 (8#) = happyGoto action_10 +action_196 (9#) = happyGoto action_11 +action_196 (10#) = happyGoto action_12 +action_196 (11#) = happyGoto action_13 +action_196 (12#) = happyGoto action_14 +action_196 (58#) = happyGoto action_15 +action_196 (59#) = happyGoto action_16 +action_196 (60#) = happyGoto action_17 +action_196 (61#) = happyGoto action_18 +action_196 (62#) = happyGoto action_19 +action_196 (63#) = happyGoto action_306 +action_196 (64#) = happyGoto action_21 +action_196 (72#) = happyGoto action_22 +action_196 (77#) = happyGoto action_23 +action_196 x = happyTcHack x happyFail + +action_197 (96#) = happyShift action_24 +action_197 (98#) = happyShift action_25 +action_197 (104#) = happyShift action_26 +action_197 (109#) = happyShift action_27 +action_197 (110#) = happyShift action_28 +action_197 (111#) = happyShift action_29 +action_197 (114#) = happyShift action_30 +action_197 (119#) = happyShift action_31 +action_197 (124#) = happyShift action_32 +action_197 (125#) = happyShift action_33 +action_197 (126#) = happyShift action_34 +action_197 (127#) = happyShift action_35 +action_197 (128#) = happyShift action_36 +action_197 (129#) = happyShift action_37 +action_197 (131#) = happyShift action_38 +action_197 (134#) = happyShift action_39 +action_197 (137#) = happyShift action_40 +action_197 (140#) = happyShift action_41 +action_197 (145#) = happyShift action_42 +action_197 (156#) = happyShift action_43 +action_197 (157#) = happyShift action_44 +action_197 (161#) = happyShift action_45 +action_197 (162#) = happyShift action_46 +action_197 (167#) = happyShift action_47 +action_197 (170#) = happyShift action_6 +action_197 (171#) = happyShift action_48 +action_197 (172#) = happyShift action_49 +action_197 (173#) = happyShift action_50 +action_197 (174#) = happyShift action_51 +action_197 (8#) = happyGoto action_10 +action_197 (9#) = happyGoto action_11 +action_197 (10#) = happyGoto action_12 +action_197 (11#) = happyGoto action_13 +action_197 (12#) = happyGoto action_14 +action_197 (58#) = happyGoto action_15 +action_197 (59#) = happyGoto action_16 +action_197 (60#) = happyGoto action_17 +action_197 (61#) = happyGoto action_18 +action_197 (62#) = happyGoto action_19 +action_197 (63#) = happyGoto action_305 +action_197 (64#) = happyGoto action_21 +action_197 (72#) = happyGoto action_22 +action_197 (77#) = happyGoto action_23 +action_197 x = happyTcHack x happyFail + +action_198 (94#) = happyShift action_304 +action_198 x = happyTcHack x happyFail + +action_199 (94#) = happyShift action_303 +action_199 x = happyTcHack x happyReduce_194 + +action_200 (97#) = happyShift action_302 +action_200 x = happyTcHack x happyFail + +action_201 (109#) = happyShift action_165 +action_201 x = happyTcHack x happyFail + +action_202 (96#) = happyShift action_106 +action_202 (97#) = happyShift action_155 +action_202 (98#) = happyShift action_107 +action_202 (103#) = happyShift action_156 +action_202 (104#) = happyShift action_108 +action_202 (107#) = happyShift action_300 +action_202 (108#) = happyReduce_203 +action_202 (110#) = happyShift action_109 +action_202 (111#) = happyShift action_110 +action_202 (113#) = happyShift action_301 +action_202 (114#) = happyShift action_111 +action_202 (116#) = happyReduce_203 +action_202 (117#) = happyReduce_203 +action_202 (120#) = happyReduce_203 +action_202 (121#) = happyShift action_112 +action_202 (170#) = happyShift action_6 +action_202 (171#) = happyShift action_48 +action_202 (172#) = happyShift action_49 +action_202 (174#) = happyShift action_51 +action_202 (8#) = happyGoto action_101 +action_202 (9#) = happyGoto action_102 +action_202 (10#) = happyGoto action_103 +action_202 (12#) = happyGoto action_104 +action_202 (67#) = happyGoto action_188 +action_202 (74#) = happyGoto action_299 +action_202 x = happyTcHack x happyReduce_128 + +action_203 (108#) = happyShift action_296 +action_203 (117#) = happyShift action_297 +action_203 (120#) = happyShift action_298 +action_203 x = happyTcHack x happyFail + +action_204 (94#) = happyShift action_295 +action_204 x = happyTcHack x happyReduce_250 + +action_205 (97#) = happyShift action_294 +action_205 x = happyTcHack x happyFail + +action_206 (96#) = happyShift action_106 +action_206 (98#) = happyShift action_107 +action_206 (104#) = happyShift action_108 +action_206 (106#) = happyShift action_176 +action_206 (110#) = happyShift action_109 +action_206 (111#) = happyShift action_110 +action_206 (114#) = happyShift action_111 +action_206 (121#) = happyShift action_112 +action_206 (170#) = happyShift action_6 +action_206 (171#) = happyShift action_48 +action_206 (172#) = happyShift action_49 +action_206 (174#) = happyShift action_51 +action_206 (8#) = happyGoto action_101 +action_206 (9#) = happyGoto action_102 +action_206 (10#) = happyGoto action_103 +action_206 (12#) = happyGoto action_170 +action_206 (67#) = happyGoto action_171 +action_206 (68#) = happyGoto action_172 +action_206 (69#) = happyGoto action_203 +action_206 (82#) = happyGoto action_204 +action_206 (83#) = happyGoto action_293 +action_206 x = happyTcHack x happyFail + +action_207 (96#) = happyShift action_24 +action_207 (98#) = happyShift action_25 +action_207 (104#) = happyShift action_26 +action_207 (109#) = happyShift action_27 +action_207 (110#) = happyShift action_28 +action_207 (111#) = happyShift action_29 +action_207 (114#) = happyShift action_30 +action_207 (119#) = happyShift action_31 +action_207 (124#) = happyShift action_32 +action_207 (125#) = happyShift action_33 +action_207 (126#) = happyShift action_34 +action_207 (127#) = happyShift action_35 +action_207 (128#) = happyShift action_36 +action_207 (129#) = happyShift action_37 +action_207 (131#) = happyShift action_38 +action_207 (134#) = happyShift action_39 +action_207 (137#) = happyShift action_40 +action_207 (140#) = happyShift action_41 +action_207 (145#) = happyShift action_42 +action_207 (156#) = happyShift action_43 +action_207 (157#) = happyShift action_44 +action_207 (161#) = happyShift action_45 +action_207 (162#) = happyShift action_46 +action_207 (167#) = happyShift action_47 +action_207 (170#) = happyShift action_6 +action_207 (171#) = happyShift action_48 +action_207 (172#) = happyShift action_49 +action_207 (173#) = happyShift action_50 +action_207 (174#) = happyShift action_51 +action_207 (8#) = happyGoto action_10 +action_207 (9#) = happyGoto action_11 +action_207 (10#) = happyGoto action_12 +action_207 (11#) = happyGoto action_13 +action_207 (12#) = happyGoto action_14 +action_207 (58#) = happyGoto action_15 +action_207 (59#) = happyGoto action_16 +action_207 (60#) = happyGoto action_17 +action_207 (61#) = happyGoto action_18 +action_207 (62#) = happyGoto action_19 +action_207 (63#) = happyGoto action_199 +action_207 (64#) = happyGoto action_21 +action_207 (65#) = happyGoto action_292 +action_207 (72#) = happyGoto action_22 +action_207 (77#) = happyGoto action_23 +action_207 x = happyTcHack x happyReduce_193 + +action_208 (97#) = happyShift action_291 +action_208 x = happyTcHack x happyFail + +action_209 x = happyTcHack x happyReduce_49 + +action_210 (104#) = happyShift action_290 +action_210 (174#) = happyShift action_51 +action_210 (12#) = happyGoto action_287 +action_210 (36#) = happyGoto action_288 +action_210 (46#) = happyGoto action_289 +action_210 x = happyTcHack x happyFail + +action_211 (174#) = happyShift action_51 +action_211 (12#) = happyGoto action_283 +action_211 (37#) = happyGoto action_276 +action_211 (38#) = happyGoto action_284 +action_211 (47#) = happyGoto action_285 +action_211 (48#) = happyGoto action_286 +action_211 (53#) = happyGoto action_278 +action_211 x = happyTcHack x happyFail + +action_212 (104#) = happyShift action_257 +action_212 (174#) = happyShift action_51 +action_212 (12#) = happyGoto action_252 +action_212 (34#) = happyGoto action_253 +action_212 (45#) = happyGoto action_282 +action_212 (54#) = happyGoto action_255 +action_212 (55#) = happyGoto action_256 +action_212 x = happyTcHack x happyFail + +action_213 (174#) = happyShift action_51 +action_213 (12#) = happyGoto action_279 +action_213 (44#) = happyGoto action_280 +action_213 (51#) = happyGoto action_281 +action_213 x = happyTcHack x happyFail + +action_214 (174#) = happyShift action_51 +action_214 (12#) = happyGoto action_87 +action_214 (37#) = happyGoto action_276 +action_214 (47#) = happyGoto action_277 +action_214 (53#) = happyGoto action_278 +action_214 x = happyTcHack x happyFail + +action_215 (104#) = happyShift action_257 +action_215 (174#) = happyShift action_51 +action_215 (12#) = happyGoto action_252 +action_215 (34#) = happyGoto action_253 +action_215 (45#) = happyGoto action_275 +action_215 (54#) = happyGoto action_255 +action_215 (55#) = happyGoto action_256 +action_215 x = happyTcHack x happyFail + +action_216 (104#) = happyShift action_257 +action_216 (174#) = happyShift action_51 +action_216 (12#) = happyGoto action_252 +action_216 (43#) = happyGoto action_260 +action_216 (50#) = happyGoto action_274 +action_216 (54#) = happyGoto action_262 +action_216 (55#) = happyGoto action_263 +action_216 x = happyTcHack x happyFail + +action_217 (104#) = happyShift action_257 +action_217 (174#) = happyShift action_51 +action_217 (12#) = happyGoto action_252 +action_217 (34#) = happyGoto action_253 +action_217 (45#) = happyGoto action_273 +action_217 (54#) = happyGoto action_255 +action_217 (55#) = happyGoto action_256 +action_217 x = happyTcHack x happyFail + +action_218 (104#) = happyShift action_257 +action_218 (174#) = happyShift action_51 +action_218 (12#) = happyGoto action_252 +action_218 (34#) = happyGoto action_253 +action_218 (45#) = happyGoto action_272 +action_218 (54#) = happyGoto action_255 +action_218 (55#) = happyGoto action_256 +action_218 x = happyTcHack x happyFail + +action_219 (104#) = happyShift action_257 +action_219 (174#) = happyShift action_51 +action_219 (12#) = happyGoto action_252 +action_219 (34#) = happyGoto action_253 +action_219 (45#) = happyGoto action_271 +action_219 (54#) = happyGoto action_255 +action_219 (55#) = happyGoto action_256 +action_219 x = happyTcHack x happyFail + +action_220 (174#) = happyShift action_51 +action_220 (12#) = happyGoto action_270 +action_220 x = happyTcHack x happyFail + +action_221 (174#) = happyShift action_51 +action_221 (12#) = happyGoto action_267 +action_221 (41#) = happyGoto action_268 +action_221 (49#) = happyGoto action_269 +action_221 x = happyTcHack x happyFail + +action_222 (104#) = happyShift action_257 +action_222 (174#) = happyShift action_51 +action_222 (12#) = happyGoto action_252 +action_222 (34#) = happyGoto action_253 +action_222 (45#) = happyGoto action_266 +action_222 (54#) = happyGoto action_255 +action_222 (55#) = happyGoto action_256 +action_222 x = happyTcHack x happyFail + +action_223 (104#) = happyShift action_257 +action_223 (132#) = happyShift action_264 +action_223 (138#) = happyShift action_265 +action_223 (174#) = happyShift action_51 +action_223 (12#) = happyGoto action_252 +action_223 (43#) = happyGoto action_260 +action_223 (50#) = happyGoto action_261 +action_223 (54#) = happyGoto action_262 +action_223 (55#) = happyGoto action_263 +action_223 x = happyTcHack x happyFail + +action_224 (174#) = happyShift action_51 +action_224 (12#) = happyGoto action_259 +action_224 x = happyTcHack x happyFail + +action_225 (104#) = happyShift action_257 +action_225 (174#) = happyShift action_51 +action_225 (12#) = happyGoto action_252 +action_225 (34#) = happyGoto action_253 +action_225 (45#) = happyGoto action_258 +action_225 (54#) = happyGoto action_255 +action_225 (55#) = happyGoto action_256 +action_225 x = happyTcHack x happyFail + +action_226 (104#) = happyShift action_257 +action_226 (174#) = happyShift action_51 +action_226 (12#) = happyGoto action_252 +action_226 (34#) = happyGoto action_253 +action_226 (45#) = happyGoto action_254 +action_226 (54#) = happyGoto action_255 +action_226 (55#) = happyGoto action_256 +action_226 x = happyTcHack x happyFail + +action_227 x = happyTcHack x happyReduce_269 + +action_228 x = happyTcHack x happyReduce_270 + +action_229 x = happyTcHack x happyReduce_271 + +action_230 (106#) = happyShift action_74 +action_230 (107#) = happyShift action_75 +action_230 (123#) = happyShift action_76 +action_230 (171#) = happyShift action_48 +action_230 (174#) = happyShift action_51 +action_230 (9#) = happyGoto action_70 +action_230 (12#) = happyGoto action_71 +action_230 (92#) = happyGoto action_72 +action_230 (93#) = happyGoto action_251 +action_230 x = happyTcHack x happyReduce_273 + +action_231 x = happyTcHack x happyReduce_272 + +action_232 (100#) = happyShift action_250 +action_232 x = happyTcHack x happyFail + +action_233 x = happyTcHack x happyReduce_35 + +action_234 x = happyTcHack x happyReduce_36 + +action_235 (150#) = happyShift action_249 +action_235 x = happyTcHack x happyFail + +action_236 (150#) = happyShift action_248 +action_236 x = happyTcHack x happyFail + +action_237 x = happyTcHack x happyReduce_34 + +action_238 (96#) = happyReduce_51 +action_238 (151#) = happyReduce_51 +action_238 (160#) = happyShift action_246 +action_238 (165#) = happyShift action_247 +action_238 (174#) = happyShift action_51 +action_238 (12#) = happyGoto action_241 +action_238 (24#) = happyGoto action_242 +action_238 (26#) = happyGoto action_243 +action_238 (32#) = happyGoto action_244 +action_238 (33#) = happyGoto action_245 +action_238 x = happyTcHack x happyReduce_65 + +action_239 (96#) = happyShift action_240 +action_239 x = happyTcHack x happyFail + +action_240 (130#) = happyShift action_418 +action_240 x = happyTcHack x happyFail + +action_241 (104#) = happyShift action_416 +action_241 (106#) = happyShift action_417 +action_241 x = happyTcHack x happyReduce_68 + +action_242 x = happyTcHack x happyReduce_15 + +action_243 (151#) = happyShift action_356 +action_243 (28#) = happyGoto action_415 +action_243 x = happyTcHack x happyReduce_55 + +action_244 (102#) = happyShift action_414 +action_244 x = happyTcHack x happyReduce_41 + +action_245 (103#) = happyShift action_352 +action_245 (169#) = happyShift action_413 +action_245 x = happyTcHack x happyReduce_66 + +action_246 (174#) = happyShift action_51 +action_246 (12#) = happyGoto action_412 +action_246 x = happyTcHack x happyFail + +action_247 (174#) = happyShift action_51 +action_247 (12#) = happyGoto action_241 +action_247 (32#) = happyGoto action_411 +action_247 (33#) = happyGoto action_350 +action_247 x = happyTcHack x happyReduce_65 + +action_248 (174#) = happyShift action_51 +action_248 (12#) = happyGoto action_410 +action_248 x = happyTcHack x happyFail + +action_249 (174#) = happyShift action_51 +action_249 (12#) = happyGoto action_409 +action_249 x = happyTcHack x happyFail + +action_250 (98#) = happyShift action_408 +action_250 (174#) = happyShift action_51 +action_250 (12#) = happyGoto action_406 +action_250 (29#) = happyGoto action_407 +action_250 x = happyTcHack x happyFail + +action_251 x = happyTcHack x happyReduce_274 + +action_252 x = happyTcHack x happyReduce_130 + +action_253 (94#) = happyShift action_405 +action_253 x = happyTcHack x happyFail + +action_254 x = happyTcHack x happyReduce_93 + +action_255 (96#) = happyShift action_106 +action_255 (98#) = happyShift action_107 +action_255 (103#) = happyShift action_398 +action_255 (104#) = happyShift action_108 +action_255 (110#) = happyShift action_109 +action_255 (111#) = happyShift action_110 +action_255 (114#) = happyShift action_111 +action_255 (121#) = happyShift action_112 +action_255 (170#) = happyShift action_6 +action_255 (171#) = happyShift action_48 +action_255 (172#) = happyShift action_49 +action_255 (174#) = happyShift action_51 +action_255 (8#) = happyGoto action_101 +action_255 (9#) = happyGoto action_102 +action_255 (10#) = happyGoto action_103 +action_255 (12#) = happyGoto action_104 +action_255 (67#) = happyGoto action_188 +action_255 (74#) = happyGoto action_404 +action_255 x = happyTcHack x happyReduce_132 + +action_256 (95#) = happyShift action_402 +action_256 (100#) = happyShift action_403 +action_256 x = happyTcHack x happyFail + +action_257 (174#) = happyShift action_51 +action_257 (12#) = happyGoto action_401 +action_257 x = happyTcHack x happyFail + +action_258 x = happyTcHack x happyReduce_80 + +action_259 (94#) = happyShift action_400 +action_259 x = happyTcHack x happyFail + +action_260 (94#) = happyShift action_399 +action_260 x = happyTcHack x happyFail + +action_261 x = happyTcHack x happyReduce_89 + +action_262 (103#) = happyShift action_398 +action_262 x = happyTcHack x happyReduce_132 + +action_263 (95#) = happyShift action_397 +action_263 x = happyTcHack x happyFail + +action_264 (104#) = happyShift action_257 +action_264 (174#) = happyShift action_51 +action_264 (12#) = happyGoto action_252 +action_264 (43#) = happyGoto action_260 +action_264 (50#) = happyGoto action_396 +action_264 (54#) = happyGoto action_262 +action_264 (55#) = happyGoto action_263 +action_264 x = happyTcHack x happyFail + +action_265 (104#) = happyShift action_257 +action_265 (174#) = happyShift action_51 +action_265 (12#) = happyGoto action_252 +action_265 (43#) = happyGoto action_260 +action_265 (50#) = happyGoto action_395 +action_265 (54#) = happyGoto action_262 +action_265 (55#) = happyGoto action_263 +action_265 x = happyTcHack x happyFail + +action_266 x = happyTcHack x happyReduce_91 + +action_267 (95#) = happyShift action_394 +action_267 x = happyTcHack x happyReduce_107 + +action_268 (94#) = happyShift action_393 +action_268 x = happyTcHack x happyFail + +action_269 x = happyTcHack x happyReduce_81 + +action_270 (95#) = happyShift action_392 +action_270 x = happyTcHack x happyFail + +action_271 x = happyTcHack x happyReduce_82 + +action_272 x = happyTcHack x happyReduce_90 + +action_273 x = happyTcHack x happyReduce_84 + +action_274 x = happyTcHack x happyReduce_83 + +action_275 x = happyTcHack x happyReduce_85 + +action_276 (94#) = happyShift action_391 +action_276 x = happyTcHack x happyFail + +action_277 x = happyTcHack x happyReduce_76 + +action_278 (100#) = happyShift action_390 +action_278 x = happyTcHack x happyFail + +action_279 (95#) = happyShift action_389 +action_279 x = happyTcHack x happyFail + +action_280 (94#) = happyShift action_388 +action_280 x = happyTcHack x happyFail + +action_281 x = happyTcHack x happyReduce_88 + +action_282 x = happyTcHack x happyReduce_78 + +action_283 (95#) = happyShift action_387 +action_283 (103#) = happyShift action_156 +action_283 x = happyTcHack x happyReduce_128 + +action_284 (94#) = happyShift action_386 +action_284 x = happyTcHack x happyFail + +action_285 x = happyTcHack x happyReduce_77 + +action_286 x = happyTcHack x happyReduce_79 + +action_287 (89#) = happyGoto action_385 +action_287 x = happyTcHack x happyReduce_262 + +action_288 (94#) = happyShift action_384 +action_288 x = happyTcHack x happyFail + +action_289 x = happyTcHack x happyReduce_75 + +action_290 (174#) = happyShift action_51 +action_290 (12#) = happyGoto action_383 +action_290 x = happyTcHack x happyFail + +action_291 x = happyTcHack x happyReduce_167 + +action_292 (105#) = happyShift action_382 +action_292 x = happyTcHack x happyFail + +action_293 (97#) = happyShift action_381 +action_293 x = happyTcHack x happyFail + +action_294 x = happyTcHack x happyReduce_163 + +action_295 (96#) = happyShift action_106 +action_295 (98#) = happyShift action_107 +action_295 (104#) = happyShift action_108 +action_295 (106#) = happyShift action_176 +action_295 (110#) = happyShift action_109 +action_295 (111#) = happyShift action_110 +action_295 (114#) = happyShift action_111 +action_295 (121#) = happyShift action_112 +action_295 (170#) = happyShift action_6 +action_295 (171#) = happyShift action_48 +action_295 (172#) = happyShift action_49 +action_295 (174#) = happyShift action_51 +action_295 (8#) = happyGoto action_101 +action_295 (9#) = happyGoto action_102 +action_295 (10#) = happyGoto action_103 +action_295 (12#) = happyGoto action_170 +action_295 (67#) = happyGoto action_171 +action_295 (68#) = happyGoto action_172 +action_295 (69#) = happyGoto action_203 +action_295 (82#) = happyGoto action_204 +action_295 (83#) = happyGoto action_380 +action_295 x = happyTcHack x happyFail + +action_296 (96#) = happyShift action_106 +action_296 (98#) = happyShift action_107 +action_296 (104#) = happyShift action_108 +action_296 (106#) = happyShift action_176 +action_296 (110#) = happyShift action_109 +action_296 (111#) = happyShift action_110 +action_296 (114#) = happyShift action_111 +action_296 (121#) = happyShift action_112 +action_296 (170#) = happyShift action_6 +action_296 (171#) = happyShift action_48 +action_296 (172#) = happyShift action_49 +action_296 (174#) = happyShift action_51 +action_296 (8#) = happyGoto action_101 +action_296 (9#) = happyGoto action_102 +action_296 (10#) = happyGoto action_103 +action_296 (12#) = happyGoto action_170 +action_296 (67#) = happyGoto action_171 +action_296 (68#) = happyGoto action_379 +action_296 x = happyTcHack x happyFail + +action_297 (96#) = happyShift action_106 +action_297 (98#) = happyShift action_107 +action_297 (104#) = happyShift action_108 +action_297 (106#) = happyShift action_176 +action_297 (110#) = happyShift action_109 +action_297 (111#) = happyShift action_110 +action_297 (114#) = happyShift action_111 +action_297 (121#) = happyShift action_112 +action_297 (170#) = happyShift action_6 +action_297 (171#) = happyShift action_48 +action_297 (172#) = happyShift action_49 +action_297 (174#) = happyShift action_51 +action_297 (8#) = happyGoto action_101 +action_297 (9#) = happyGoto action_102 +action_297 (10#) = happyGoto action_103 +action_297 (12#) = happyGoto action_170 +action_297 (67#) = happyGoto action_171 +action_297 (68#) = happyGoto action_378 +action_297 x = happyTcHack x happyFail + +action_298 (96#) = happyShift action_24 +action_298 (98#) = happyShift action_25 +action_298 (104#) = happyShift action_26 +action_298 (109#) = happyShift action_27 +action_298 (110#) = happyShift action_28 +action_298 (111#) = happyShift action_29 +action_298 (114#) = happyShift action_30 +action_298 (119#) = happyShift action_31 +action_298 (124#) = happyShift action_32 +action_298 (125#) = happyShift action_33 +action_298 (126#) = happyShift action_34 +action_298 (127#) = happyShift action_35 +action_298 (128#) = happyShift action_36 +action_298 (129#) = happyShift action_37 +action_298 (131#) = happyShift action_38 +action_298 (134#) = happyShift action_39 +action_298 (137#) = happyShift action_40 +action_298 (140#) = happyShift action_41 +action_298 (145#) = happyShift action_42 +action_298 (156#) = happyShift action_43 +action_298 (157#) = happyShift action_44 +action_298 (161#) = happyShift action_45 +action_298 (162#) = happyShift action_46 +action_298 (167#) = happyShift action_47 +action_298 (170#) = happyShift action_6 +action_298 (171#) = happyShift action_48 +action_298 (172#) = happyShift action_49 +action_298 (173#) = happyShift action_50 +action_298 (174#) = happyShift action_51 +action_298 (8#) = happyGoto action_10 +action_298 (9#) = happyGoto action_11 +action_298 (10#) = happyGoto action_12 +action_298 (11#) = happyGoto action_13 +action_298 (12#) = happyGoto action_14 +action_298 (58#) = happyGoto action_15 +action_298 (59#) = happyGoto action_16 +action_298 (60#) = happyGoto action_17 +action_298 (61#) = happyGoto action_18 +action_298 (62#) = happyGoto action_19 +action_298 (63#) = happyGoto action_377 +action_298 (64#) = happyGoto action_21 +action_298 (72#) = happyGoto action_22 +action_298 (77#) = happyGoto action_23 +action_298 x = happyTcHack x happyFail + +action_299 x = happyTcHack x happyReduce_212 + +action_300 (174#) = happyShift action_51 +action_300 (12#) = happyGoto action_376 +action_300 x = happyTcHack x happyFail + +action_301 (96#) = happyShift action_106 +action_301 (98#) = happyShift action_107 +action_301 (104#) = happyShift action_108 +action_301 (110#) = happyShift action_109 +action_301 (111#) = happyShift action_110 +action_301 (114#) = happyShift action_111 +action_301 (121#) = happyShift action_112 +action_301 (170#) = happyShift action_6 +action_301 (171#) = happyShift action_48 +action_301 (172#) = happyShift action_49 +action_301 (174#) = happyShift action_51 +action_301 (8#) = happyGoto action_101 +action_301 (9#) = happyGoto action_102 +action_301 (10#) = happyGoto action_103 +action_301 (12#) = happyGoto action_104 +action_301 (67#) = happyGoto action_375 +action_301 x = happyTcHack x happyFail + +action_302 x = happyTcHack x happyReduce_169 + +action_303 (96#) = happyShift action_24 +action_303 (98#) = happyShift action_25 +action_303 (104#) = happyShift action_26 +action_303 (109#) = happyShift action_27 +action_303 (110#) = happyShift action_28 +action_303 (111#) = happyShift action_29 +action_303 (114#) = happyShift action_30 +action_303 (119#) = happyShift action_31 +action_303 (124#) = happyShift action_32 +action_303 (125#) = happyShift action_33 +action_303 (126#) = happyShift action_34 +action_303 (127#) = happyShift action_35 +action_303 (128#) = happyShift action_36 +action_303 (129#) = happyShift action_37 +action_303 (131#) = happyShift action_38 +action_303 (134#) = happyShift action_39 +action_303 (137#) = happyShift action_40 +action_303 (140#) = happyShift action_41 +action_303 (145#) = happyShift action_42 +action_303 (156#) = happyShift action_43 +action_303 (157#) = happyShift action_44 +action_303 (161#) = happyShift action_45 +action_303 (162#) = happyShift action_46 +action_303 (167#) = happyShift action_47 +action_303 (170#) = happyShift action_6 +action_303 (171#) = happyShift action_48 +action_303 (172#) = happyShift action_49 +action_303 (173#) = happyShift action_50 +action_303 (174#) = happyShift action_51 +action_303 (8#) = happyGoto action_10 +action_303 (9#) = happyGoto action_11 +action_303 (10#) = happyGoto action_12 +action_303 (11#) = happyGoto action_13 +action_303 (12#) = happyGoto action_14 +action_303 (58#) = happyGoto action_15 +action_303 (59#) = happyGoto action_16 +action_303 (60#) = happyGoto action_17 +action_303 (61#) = happyGoto action_18 +action_303 (62#) = happyGoto action_19 +action_303 (63#) = happyGoto action_199 +action_303 (64#) = happyGoto action_21 +action_303 (65#) = happyGoto action_374 +action_303 (72#) = happyGoto action_22 +action_303 (77#) = happyGoto action_23 +action_303 x = happyTcHack x happyReduce_193 + +action_304 (96#) = happyShift action_24 +action_304 (98#) = happyShift action_25 +action_304 (104#) = happyShift action_26 +action_304 (109#) = happyShift action_27 +action_304 (110#) = happyShift action_28 +action_304 (111#) = happyShift action_29 +action_304 (114#) = happyShift action_30 +action_304 (119#) = happyShift action_31 +action_304 (124#) = happyShift action_32 +action_304 (125#) = happyShift action_33 +action_304 (126#) = happyShift action_34 +action_304 (127#) = happyShift action_35 +action_304 (128#) = happyShift action_36 +action_304 (129#) = happyShift action_37 +action_304 (131#) = happyShift action_38 +action_304 (134#) = happyShift action_39 +action_304 (137#) = happyShift action_40 +action_304 (140#) = happyShift action_41 +action_304 (145#) = happyShift action_42 +action_304 (156#) = happyShift action_43 +action_304 (157#) = happyShift action_44 +action_304 (161#) = happyShift action_45 +action_304 (162#) = happyShift action_46 +action_304 (167#) = happyShift action_47 +action_304 (170#) = happyShift action_6 +action_304 (171#) = happyShift action_48 +action_304 (172#) = happyShift action_49 +action_304 (173#) = happyShift action_50 +action_304 (174#) = happyShift action_51 +action_304 (8#) = happyGoto action_10 +action_304 (9#) = happyGoto action_11 +action_304 (10#) = happyGoto action_12 +action_304 (11#) = happyGoto action_13 +action_304 (12#) = happyGoto action_14 +action_304 (58#) = happyGoto action_15 +action_304 (59#) = happyGoto action_16 +action_304 (60#) = happyGoto action_17 +action_304 (61#) = happyGoto action_18 +action_304 (62#) = happyGoto action_19 +action_304 (63#) = happyGoto action_371 +action_304 (64#) = happyGoto action_21 +action_304 (72#) = happyGoto action_22 +action_304 (77#) = happyGoto action_23 +action_304 (86#) = happyGoto action_372 +action_304 (87#) = happyGoto action_373 +action_304 x = happyTcHack x happyReduce_257 + +action_305 (95#) = happyShift action_370 +action_305 x = happyTcHack x happyReduce_134 + +action_306 x = happyTcHack x happyReduce_135 + +action_307 x = happyTcHack x happyReduce_139 + +action_308 x = happyTcHack x happyReduce_187 + +action_309 (140#) = happyShift action_369 +action_309 x = happyTcHack x happyFail + +action_310 x = happyTcHack x happyReduce_189 + +action_311 (96#) = happyShift action_106 +action_311 (98#) = happyShift action_107 +action_311 (104#) = happyShift action_108 +action_311 (110#) = happyShift action_109 +action_311 (111#) = happyShift action_110 +action_311 (114#) = happyShift action_111 +action_311 (121#) = happyShift action_112 +action_311 (170#) = happyShift action_6 +action_311 (171#) = happyShift action_48 +action_311 (172#) = happyShift action_49 +action_311 (174#) = happyShift action_51 +action_311 (8#) = happyGoto action_101 +action_311 (9#) = happyGoto action_102 +action_311 (10#) = happyGoto action_103 +action_311 (12#) = happyGoto action_104 +action_311 (67#) = happyGoto action_188 +action_311 (74#) = happyGoto action_189 +action_311 (84#) = happyGoto action_190 +action_311 (85#) = happyGoto action_368 +action_311 x = happyTcHack x happyReduce_253 + +action_312 (96#) = happyShift action_24 +action_312 (98#) = happyShift action_25 +action_312 (104#) = happyShift action_26 +action_312 (109#) = happyShift action_27 +action_312 (110#) = happyShift action_28 +action_312 (111#) = happyShift action_29 +action_312 (114#) = happyShift action_30 +action_312 (119#) = happyShift action_31 +action_312 (124#) = happyShift action_32 +action_312 (125#) = happyShift action_33 +action_312 (126#) = happyShift action_34 +action_312 (127#) = happyShift action_35 +action_312 (128#) = happyShift action_36 +action_312 (129#) = happyShift action_37 +action_312 (131#) = happyShift action_38 +action_312 (134#) = happyShift action_39 +action_312 (137#) = happyShift action_40 +action_312 (140#) = happyShift action_41 +action_312 (145#) = happyShift action_42 +action_312 (156#) = happyShift action_43 +action_312 (157#) = happyShift action_44 +action_312 (161#) = happyShift action_45 +action_312 (162#) = happyShift action_46 +action_312 (167#) = happyShift action_47 +action_312 (170#) = happyShift action_6 +action_312 (171#) = happyShift action_48 +action_312 (172#) = happyShift action_49 +action_312 (173#) = happyShift action_50 +action_312 (174#) = happyShift action_51 +action_312 (8#) = happyGoto action_10 +action_312 (9#) = happyGoto action_11 +action_312 (10#) = happyGoto action_12 +action_312 (11#) = happyGoto action_13 +action_312 (12#) = happyGoto action_14 +action_312 (58#) = happyGoto action_15 +action_312 (59#) = happyGoto action_16 +action_312 (60#) = happyGoto action_17 +action_312 (61#) = happyGoto action_18 +action_312 (62#) = happyGoto action_19 +action_312 (63#) = happyGoto action_367 +action_312 (64#) = happyGoto action_21 +action_312 (72#) = happyGoto action_22 +action_312 (77#) = happyGoto action_23 +action_312 x = happyTcHack x happyFail + +action_313 x = happyTcHack x happyReduce_233 + +action_314 (96#) = happyShift action_106 +action_314 (98#) = happyShift action_107 +action_314 (104#) = happyShift action_108 +action_314 (106#) = happyShift action_176 +action_314 (110#) = happyShift action_109 +action_314 (111#) = happyShift action_110 +action_314 (114#) = happyShift action_111 +action_314 (121#) = happyShift action_112 +action_314 (170#) = happyShift action_6 +action_314 (171#) = happyShift action_48 +action_314 (172#) = happyShift action_49 +action_314 (174#) = happyShift action_51 +action_314 (8#) = happyGoto action_101 +action_314 (9#) = happyGoto action_102 +action_314 (10#) = happyGoto action_103 +action_314 (12#) = happyGoto action_170 +action_314 (67#) = happyGoto action_171 +action_314 (68#) = happyGoto action_172 +action_314 (69#) = happyGoto action_203 +action_314 (82#) = happyGoto action_204 +action_314 (83#) = happyGoto action_366 +action_314 x = happyTcHack x happyFail + +action_315 x = happyTcHack x happyReduce_238 + +action_316 x = happyTcHack x happyReduce_182 + +action_317 (96#) = happyShift action_24 +action_317 (98#) = happyShift action_25 +action_317 (104#) = happyShift action_26 +action_317 (109#) = happyShift action_27 +action_317 (110#) = happyShift action_28 +action_317 (111#) = happyShift action_29 +action_317 (114#) = happyShift action_30 +action_317 (119#) = happyShift action_31 +action_317 (124#) = happyShift action_32 +action_317 (125#) = happyShift action_33 +action_317 (126#) = happyShift action_34 +action_317 (127#) = happyShift action_35 +action_317 (128#) = happyShift action_36 +action_317 (129#) = happyShift action_37 +action_317 (131#) = happyShift action_38 +action_317 (134#) = happyShift action_39 +action_317 (137#) = happyShift action_40 +action_317 (140#) = happyShift action_41 +action_317 (145#) = happyShift action_42 +action_317 (156#) = happyShift action_43 +action_317 (157#) = happyShift action_44 +action_317 (161#) = happyShift action_45 +action_317 (162#) = happyShift action_46 +action_317 (167#) = happyShift action_47 +action_317 (170#) = happyShift action_6 +action_317 (171#) = happyShift action_48 +action_317 (172#) = happyShift action_49 +action_317 (173#) = happyShift action_50 +action_317 (174#) = happyShift action_51 +action_317 (8#) = happyGoto action_10 +action_317 (9#) = happyGoto action_11 +action_317 (10#) = happyGoto action_12 +action_317 (11#) = happyGoto action_13 +action_317 (12#) = happyGoto action_14 +action_317 (58#) = happyGoto action_15 +action_317 (59#) = happyGoto action_16 +action_317 (60#) = happyGoto action_17 +action_317 (61#) = happyGoto action_18 +action_317 (62#) = happyGoto action_19 +action_317 (63#) = happyGoto action_365 +action_317 (64#) = happyGoto action_21 +action_317 (72#) = happyGoto action_22 +action_317 (77#) = happyGoto action_23 +action_317 x = happyTcHack x happyFail + +action_318 x = happyTcHack x happyReduce_205 + +action_319 x = happyTcHack x happyReduce_209 + +action_320 (174#) = happyShift action_51 +action_320 (12#) = happyGoto action_87 +action_320 (53#) = happyGoto action_180 +action_320 (70#) = happyGoto action_181 +action_320 (73#) = happyGoto action_364 +action_320 x = happyTcHack x happyReduce_229 + +action_321 (96#) = happyShift action_106 +action_321 (98#) = happyShift action_107 +action_321 (104#) = happyShift action_108 +action_321 (106#) = happyShift action_176 +action_321 (110#) = happyShift action_109 +action_321 (111#) = happyShift action_110 +action_321 (114#) = happyShift action_111 +action_321 (121#) = happyShift action_112 +action_321 (170#) = happyShift action_6 +action_321 (171#) = happyShift action_48 +action_321 (172#) = happyShift action_49 +action_321 (174#) = happyShift action_51 +action_321 (8#) = happyGoto action_101 +action_321 (9#) = happyGoto action_102 +action_321 (10#) = happyGoto action_103 +action_321 (12#) = happyGoto action_170 +action_321 (67#) = happyGoto action_171 +action_321 (68#) = happyGoto action_172 +action_321 (69#) = happyGoto action_363 +action_321 x = happyTcHack x happyFail + +action_322 x = happyTcHack x happyReduce_204 + +action_323 x = happyTcHack x happyReduce_211 + +action_324 x = happyTcHack x happyReduce_199 + +action_325 x = happyTcHack x happyReduce_216 + +action_326 x = happyTcHack x happyReduce_210 + +action_327 (96#) = happyShift action_106 +action_327 (98#) = happyShift action_107 +action_327 (104#) = happyShift action_108 +action_327 (106#) = happyShift action_176 +action_327 (110#) = happyShift action_109 +action_327 (111#) = happyShift action_110 +action_327 (114#) = happyShift action_111 +action_327 (121#) = happyShift action_112 +action_327 (170#) = happyShift action_6 +action_327 (171#) = happyShift action_48 +action_327 (172#) = happyShift action_49 +action_327 (174#) = happyShift action_51 +action_327 (8#) = happyGoto action_101 +action_327 (9#) = happyGoto action_102 +action_327 (10#) = happyGoto action_103 +action_327 (12#) = happyGoto action_170 +action_327 (67#) = happyGoto action_171 +action_327 (68#) = happyGoto action_172 +action_327 (69#) = happyGoto action_173 +action_327 (79#) = happyGoto action_174 +action_327 (81#) = happyGoto action_362 +action_327 x = happyTcHack x happyReduce_246 + +action_328 x = happyTcHack x happyReduce_214 + +action_329 (174#) = happyShift action_51 +action_329 (12#) = happyGoto action_361 +action_329 x = happyTcHack x happyFail + +action_330 (112#) = happyShift action_360 +action_330 x = happyTcHack x happyFail + +action_331 x = happyTcHack x happyReduce_241 + +action_332 x = happyTcHack x happyReduce_245 + +action_333 x = happyTcHack x happyReduce_160 + +action_334 x = happyTcHack x happyReduce_150 + +action_335 x = happyTcHack x happyReduce_197 + +action_336 (99#) = happyShift action_359 +action_336 x = happyTcHack x happyFail + +action_337 x = happyTcHack x happyReduce_154 + +action_338 (97#) = happyShift action_358 +action_338 x = happyTcHack x happyFail + +action_339 x = happyTcHack x happyReduce_129 + +action_340 (97#) = happyShift action_357 +action_340 x = happyTcHack x happyFail + +action_341 x = happyTcHack x happyReduce_223 + +action_342 (97#) = happyShift action_155 +action_342 (103#) = happyShift action_156 +action_342 x = happyTcHack x happyReduce_128 + +action_343 x = happyTcHack x happyReduce_25 + +action_344 (151#) = happyShift action_356 +action_344 (28#) = happyGoto action_355 +action_344 x = happyTcHack x happyReduce_55 + +action_345 (102#) = happyShift action_354 +action_345 x = happyTcHack x happyReduce_27 + +action_346 (103#) = happyShift action_352 +action_346 (169#) = happyShift action_353 +action_346 x = happyTcHack x happyReduce_66 + +action_347 (174#) = happyShift action_51 +action_347 (12#) = happyGoto action_351 +action_347 x = happyTcHack x happyFail + +action_348 (174#) = happyShift action_51 +action_348 (12#) = happyGoto action_241 +action_348 (32#) = happyGoto action_349 +action_348 (33#) = happyGoto action_350 +action_348 x = happyTcHack x happyReduce_65 + +action_349 x = happyTcHack x happyReduce_33 + +action_350 (103#) = happyShift action_352 +action_350 x = happyTcHack x happyReduce_66 + +action_351 x = happyTcHack x happyReduce_32 + +action_352 (174#) = happyShift action_51 +action_352 (12#) = happyGoto action_241 +action_352 (32#) = happyGoto action_468 +action_352 (33#) = happyGoto action_350 +action_352 x = happyTcHack x happyReduce_65 + +action_353 (98#) = happyShift action_408 +action_353 (174#) = happyShift action_51 +action_353 (12#) = happyGoto action_406 +action_353 (27#) = happyGoto action_467 +action_353 (29#) = happyGoto action_425 +action_353 x = happyTcHack x happyReduce_52 + +action_354 (174#) = happyShift action_51 +action_354 (12#) = happyGoto action_241 +action_354 (33#) = happyGoto action_466 +action_354 x = happyTcHack x happyReduce_50 + +action_355 x = happyTcHack x happyReduce_26 + +action_356 (98#) = happyShift action_408 +action_356 (174#) = happyShift action_51 +action_356 (12#) = happyGoto action_406 +action_356 (27#) = happyGoto action_465 +action_356 (29#) = happyGoto action_425 +action_356 x = happyTcHack x happyReduce_52 + +action_357 x = happyTcHack x happyReduce_188 + +action_358 x = happyTcHack x happyReduce_159 + +action_359 x = happyTcHack x happyReduce_239 + +action_360 x = happyTcHack x happyReduce_155 + +action_361 x = happyTcHack x happyReduce_201 + +action_362 x = happyTcHack x happyReduce_248 + +action_363 (108#) = happyShift action_296 +action_363 (117#) = happyShift action_297 +action_363 x = happyTcHack x happyReduce_221 + +action_364 x = happyTcHack x happyReduce_231 + +action_365 x = happyTcHack x happyReduce_183 + +action_366 (97#) = happyShift action_464 +action_366 x = happyTcHack x happyFail + +action_367 x = happyTcHack x happyReduce_252 + +action_368 x = happyTcHack x happyReduce_255 + +action_369 (96#) = happyShift action_24 +action_369 (98#) = happyShift action_25 +action_369 (104#) = happyShift action_26 +action_369 (109#) = happyShift action_27 +action_369 (110#) = happyShift action_28 +action_369 (111#) = happyShift action_29 +action_369 (114#) = happyShift action_30 +action_369 (119#) = happyShift action_31 +action_369 (124#) = happyShift action_32 +action_369 (125#) = happyShift action_33 +action_369 (126#) = happyShift action_34 +action_369 (127#) = happyShift action_35 +action_369 (128#) = happyShift action_36 +action_369 (129#) = happyShift action_37 +action_369 (131#) = happyShift action_38 +action_369 (134#) = happyShift action_39 +action_369 (137#) = happyShift action_40 +action_369 (140#) = happyShift action_41 +action_369 (145#) = happyShift action_42 +action_369 (156#) = happyShift action_43 +action_369 (157#) = happyShift action_44 +action_369 (161#) = happyShift action_45 +action_369 (162#) = happyShift action_46 +action_369 (167#) = happyShift action_47 +action_369 (170#) = happyShift action_6 +action_369 (171#) = happyShift action_48 +action_369 (172#) = happyShift action_49 +action_369 (173#) = happyShift action_50 +action_369 (174#) = happyShift action_51 +action_369 (8#) = happyGoto action_10 +action_369 (9#) = happyGoto action_11 +action_369 (10#) = happyGoto action_12 +action_369 (11#) = happyGoto action_13 +action_369 (12#) = happyGoto action_14 +action_369 (58#) = happyGoto action_15 +action_369 (59#) = happyGoto action_16 +action_369 (60#) = happyGoto action_17 +action_369 (61#) = happyGoto action_18 +action_369 (62#) = happyGoto action_19 +action_369 (63#) = happyGoto action_463 +action_369 (64#) = happyGoto action_21 +action_369 (72#) = happyGoto action_22 +action_369 (77#) = happyGoto action_23 +action_369 x = happyTcHack x happyFail + +action_370 (96#) = happyShift action_24 +action_370 (98#) = happyShift action_25 +action_370 (104#) = happyShift action_26 +action_370 (109#) = happyShift action_27 +action_370 (110#) = happyShift action_28 +action_370 (111#) = happyShift action_29 +action_370 (114#) = happyShift action_30 +action_370 (119#) = happyShift action_31 +action_370 (124#) = happyShift action_32 +action_370 (125#) = happyShift action_33 +action_370 (126#) = happyShift action_34 +action_370 (127#) = happyShift action_35 +action_370 (128#) = happyShift action_36 +action_370 (129#) = happyShift action_37 +action_370 (131#) = happyShift action_38 +action_370 (134#) = happyShift action_39 +action_370 (137#) = happyShift action_40 +action_370 (140#) = happyShift action_41 +action_370 (145#) = happyShift action_42 +action_370 (156#) = happyShift action_43 +action_370 (157#) = happyShift action_44 +action_370 (161#) = happyShift action_45 +action_370 (162#) = happyShift action_46 +action_370 (167#) = happyShift action_47 +action_370 (170#) = happyShift action_6 +action_370 (171#) = happyShift action_48 +action_370 (172#) = happyShift action_49 +action_370 (173#) = happyShift action_50 +action_370 (174#) = happyShift action_51 +action_370 (8#) = happyGoto action_10 +action_370 (9#) = happyGoto action_11 +action_370 (10#) = happyGoto action_12 +action_370 (11#) = happyGoto action_13 +action_370 (12#) = happyGoto action_14 +action_370 (58#) = happyGoto action_15 +action_370 (59#) = happyGoto action_16 +action_370 (60#) = happyGoto action_17 +action_370 (61#) = happyGoto action_18 +action_370 (62#) = happyGoto action_19 +action_370 (63#) = happyGoto action_462 +action_370 (64#) = happyGoto action_21 +action_370 (72#) = happyGoto action_22 +action_370 (77#) = happyGoto action_23 +action_370 x = happyTcHack x happyFail + +action_371 (123#) = happyShift action_461 +action_371 x = happyTcHack x happyFail + +action_372 (94#) = happyShift action_460 +action_372 x = happyTcHack x happyReduce_258 + +action_373 (97#) = happyShift action_459 +action_373 x = happyTcHack x happyFail + +action_374 x = happyTcHack x happyReduce_195 + +action_375 x = happyTcHack x happyReduce_215 + +action_376 (96#) = happyShift action_106 +action_376 (98#) = happyShift action_107 +action_376 (104#) = happyShift action_108 +action_376 (110#) = happyShift action_109 +action_376 (111#) = happyShift action_110 +action_376 (114#) = happyShift action_111 +action_376 (121#) = happyShift action_112 +action_376 (170#) = happyShift action_6 +action_376 (171#) = happyShift action_48 +action_376 (172#) = happyShift action_49 +action_376 (174#) = happyShift action_51 +action_376 (8#) = happyGoto action_101 +action_376 (9#) = happyGoto action_102 +action_376 (10#) = happyGoto action_103 +action_376 (12#) = happyGoto action_104 +action_376 (67#) = happyGoto action_188 +action_376 (74#) = happyGoto action_458 +action_376 x = happyTcHack x happyReduce_205 + +action_377 x = happyTcHack x happyReduce_249 + +action_378 x = happyTcHack x happyReduce_219 + +action_379 x = happyTcHack x happyReduce_218 + +action_380 x = happyTcHack x happyReduce_251 + +action_381 x = happyTcHack x happyReduce_164 + +action_382 x = happyTcHack x happyReduce_165 + +action_383 (89#) = happyGoto action_457 +action_383 x = happyTcHack x happyReduce_262 + +action_384 (104#) = happyShift action_290 +action_384 (174#) = happyShift action_51 +action_384 (12#) = happyGoto action_287 +action_384 (36#) = happyGoto action_288 +action_384 (46#) = happyGoto action_456 +action_384 x = happyTcHack x happyReduce_113 + +action_385 (96#) = happyShift action_140 +action_385 (98#) = happyShift action_455 +action_385 (104#) = happyShift action_26 +action_385 (109#) = happyShift action_83 +action_385 (110#) = happyShift action_28 +action_385 (111#) = happyShift action_29 +action_385 (125#) = happyShift action_33 +action_385 (126#) = happyShift action_34 +action_385 (127#) = happyShift action_35 +action_385 (128#) = happyShift action_36 +action_385 (129#) = happyShift action_37 +action_385 (134#) = happyShift action_39 +action_385 (170#) = happyShift action_6 +action_385 (171#) = happyShift action_48 +action_385 (172#) = happyShift action_49 +action_385 (173#) = happyShift action_50 +action_385 (174#) = happyShift action_51 +action_385 (8#) = happyGoto action_10 +action_385 (9#) = happyGoto action_11 +action_385 (10#) = happyGoto action_12 +action_385 (11#) = happyGoto action_13 +action_385 (12#) = happyGoto action_79 +action_385 (58#) = happyGoto action_453 +action_385 (72#) = happyGoto action_22 +action_385 (88#) = happyGoto action_454 +action_385 x = happyTcHack x happyReduce_95 + +action_386 (174#) = happyShift action_51 +action_386 (12#) = happyGoto action_451 +action_386 (38#) = happyGoto action_284 +action_386 (48#) = happyGoto action_452 +action_386 x = happyTcHack x happyReduce_117 + +action_387 (174#) = happyShift action_51 +action_387 (12#) = happyGoto action_448 +action_387 (39#) = happyGoto action_449 +action_387 (40#) = happyGoto action_450 +action_387 x = happyTcHack x happyReduce_102 + +action_388 (174#) = happyShift action_51 +action_388 (12#) = happyGoto action_279 +action_388 (44#) = happyGoto action_280 +action_388 (51#) = happyGoto action_447 +action_388 x = happyTcHack x happyReduce_123 + +action_389 (174#) = happyShift action_51 +action_389 (12#) = happyGoto action_446 +action_389 x = happyTcHack x happyFail + +action_390 (96#) = happyShift action_24 +action_390 (98#) = happyShift action_25 +action_390 (104#) = happyShift action_26 +action_390 (109#) = happyShift action_27 +action_390 (110#) = happyShift action_28 +action_390 (111#) = happyShift action_29 +action_390 (114#) = happyShift action_30 +action_390 (119#) = happyShift action_31 +action_390 (124#) = happyShift action_32 +action_390 (125#) = happyShift action_33 +action_390 (126#) = happyShift action_34 +action_390 (127#) = happyShift action_35 +action_390 (128#) = happyShift action_36 +action_390 (129#) = happyShift action_37 +action_390 (131#) = happyShift action_38 +action_390 (134#) = happyShift action_39 +action_390 (137#) = happyShift action_40 +action_390 (140#) = happyShift action_41 +action_390 (145#) = happyShift action_42 +action_390 (156#) = happyShift action_43 +action_390 (157#) = happyShift action_44 +action_390 (161#) = happyShift action_45 +action_390 (162#) = happyShift action_46 +action_390 (167#) = happyShift action_47 +action_390 (170#) = happyShift action_6 +action_390 (171#) = happyShift action_48 +action_390 (172#) = happyShift action_49 +action_390 (173#) = happyShift action_50 +action_390 (174#) = happyShift action_51 +action_390 (8#) = happyGoto action_10 +action_390 (9#) = happyGoto action_11 +action_390 (10#) = happyGoto action_12 +action_390 (11#) = happyGoto action_13 +action_390 (12#) = happyGoto action_14 +action_390 (58#) = happyGoto action_15 +action_390 (59#) = happyGoto action_16 +action_390 (60#) = happyGoto action_17 +action_390 (61#) = happyGoto action_18 +action_390 (62#) = happyGoto action_19 +action_390 (63#) = happyGoto action_445 +action_390 (64#) = happyGoto action_21 +action_390 (72#) = happyGoto action_22 +action_390 (77#) = happyGoto action_23 +action_390 x = happyTcHack x happyFail + +action_391 (174#) = happyShift action_51 +action_391 (12#) = happyGoto action_87 +action_391 (37#) = happyGoto action_276 +action_391 (47#) = happyGoto action_444 +action_391 (53#) = happyGoto action_278 +action_391 x = happyTcHack x happyReduce_115 + +action_392 (96#) = happyShift action_443 +action_392 x = happyTcHack x happyFail + +action_393 (174#) = happyShift action_51 +action_393 (12#) = happyGoto action_267 +action_393 (41#) = happyGoto action_268 +action_393 (49#) = happyGoto action_442 +action_393 x = happyTcHack x happyReduce_119 + +action_394 (98#) = happyShift action_441 +action_394 (174#) = happyShift action_51 +action_394 (12#) = happyGoto action_438 +action_394 (42#) = happyGoto action_439 +action_394 (52#) = happyGoto action_440 +action_394 x = happyTcHack x happyReduce_125 + +action_395 x = happyTcHack x happyReduce_87 + +action_396 x = happyTcHack x happyReduce_86 + +action_397 (96#) = happyShift action_24 +action_397 (98#) = happyShift action_25 +action_397 (104#) = happyShift action_26 +action_397 (109#) = happyShift action_27 +action_397 (110#) = happyShift action_28 +action_397 (111#) = happyShift action_29 +action_397 (114#) = happyShift action_30 +action_397 (119#) = happyShift action_31 +action_397 (124#) = happyShift action_32 +action_397 (125#) = happyShift action_33 +action_397 (126#) = happyShift action_34 +action_397 (127#) = happyShift action_35 +action_397 (128#) = happyShift action_36 +action_397 (129#) = happyShift action_37 +action_397 (131#) = happyShift action_38 +action_397 (134#) = happyShift action_39 +action_397 (137#) = happyShift action_40 +action_397 (140#) = happyShift action_41 +action_397 (145#) = happyShift action_42 +action_397 (156#) = happyShift action_43 +action_397 (157#) = happyShift action_44 +action_397 (161#) = happyShift action_45 +action_397 (162#) = happyShift action_46 +action_397 (167#) = happyShift action_47 +action_397 (170#) = happyShift action_6 +action_397 (171#) = happyShift action_48 +action_397 (172#) = happyShift action_49 +action_397 (173#) = happyShift action_50 +action_397 (174#) = happyShift action_51 +action_397 (8#) = happyGoto action_10 +action_397 (9#) = happyGoto action_11 +action_397 (10#) = happyGoto action_12 +action_397 (11#) = happyGoto action_13 +action_397 (12#) = happyGoto action_14 +action_397 (58#) = happyGoto action_15 +action_397 (59#) = happyGoto action_16 +action_397 (60#) = happyGoto action_17 +action_397 (61#) = happyGoto action_18 +action_397 (62#) = happyGoto action_19 +action_397 (63#) = happyGoto action_437 +action_397 (64#) = happyGoto action_21 +action_397 (72#) = happyGoto action_22 +action_397 (77#) = happyGoto action_23 +action_397 x = happyTcHack x happyFail + +action_398 (104#) = happyShift action_257 +action_398 (174#) = happyShift action_51 +action_398 (12#) = happyGoto action_252 +action_398 (54#) = happyGoto action_262 +action_398 (55#) = happyGoto action_436 +action_398 x = happyTcHack x happyFail + +action_399 (104#) = happyShift action_257 +action_399 (174#) = happyShift action_51 +action_399 (12#) = happyGoto action_252 +action_399 (43#) = happyGoto action_260 +action_399 (50#) = happyGoto action_435 +action_399 (54#) = happyGoto action_262 +action_399 (55#) = happyGoto action_263 +action_399 x = happyTcHack x happyReduce_121 + +action_400 x = happyTcHack x happyReduce_94 + +action_401 (105#) = happyShift action_434 +action_401 x = happyTcHack x happyFail + +action_402 (96#) = happyShift action_24 +action_402 (98#) = happyShift action_25 +action_402 (104#) = happyShift action_26 +action_402 (109#) = happyShift action_27 +action_402 (110#) = happyShift action_28 +action_402 (111#) = happyShift action_29 +action_402 (114#) = happyShift action_30 +action_402 (119#) = happyShift action_31 +action_402 (124#) = happyShift action_32 +action_402 (125#) = happyShift action_33 +action_402 (126#) = happyShift action_34 +action_402 (127#) = happyShift action_35 +action_402 (128#) = happyShift action_36 +action_402 (129#) = happyShift action_37 +action_402 (131#) = happyShift action_38 +action_402 (134#) = happyShift action_39 +action_402 (137#) = happyShift action_40 +action_402 (140#) = happyShift action_41 +action_402 (145#) = happyShift action_42 +action_402 (156#) = happyShift action_43 +action_402 (157#) = happyShift action_44 +action_402 (161#) = happyShift action_45 +action_402 (162#) = happyShift action_46 +action_402 (167#) = happyShift action_47 +action_402 (170#) = happyShift action_6 +action_402 (171#) = happyShift action_48 +action_402 (172#) = happyShift action_49 +action_402 (173#) = happyShift action_50 +action_402 (174#) = happyShift action_51 +action_402 (8#) = happyGoto action_10 +action_402 (9#) = happyGoto action_11 +action_402 (10#) = happyGoto action_12 +action_402 (11#) = happyGoto action_13 +action_402 (12#) = happyGoto action_14 +action_402 (58#) = happyGoto action_15 +action_402 (59#) = happyGoto action_16 +action_402 (60#) = happyGoto action_17 +action_402 (61#) = happyGoto action_18 +action_402 (62#) = happyGoto action_19 +action_402 (63#) = happyGoto action_433 +action_402 (64#) = happyGoto action_21 +action_402 (72#) = happyGoto action_22 +action_402 (77#) = happyGoto action_23 +action_402 x = happyTcHack x happyFail + +action_403 (96#) = happyShift action_24 +action_403 (98#) = happyShift action_25 +action_403 (104#) = happyShift action_26 +action_403 (109#) = happyShift action_27 +action_403 (110#) = happyShift action_28 +action_403 (111#) = happyShift action_29 +action_403 (114#) = happyShift action_30 +action_403 (119#) = happyShift action_31 +action_403 (124#) = happyShift action_32 +action_403 (125#) = happyShift action_33 +action_403 (126#) = happyShift action_34 +action_403 (127#) = happyShift action_35 +action_403 (128#) = happyShift action_36 +action_403 (129#) = happyShift action_37 +action_403 (131#) = happyShift action_38 +action_403 (134#) = happyShift action_39 +action_403 (137#) = happyShift action_40 +action_403 (140#) = happyShift action_41 +action_403 (145#) = happyShift action_42 +action_403 (156#) = happyShift action_43 +action_403 (157#) = happyShift action_44 +action_403 (161#) = happyShift action_45 +action_403 (162#) = happyShift action_46 +action_403 (167#) = happyShift action_47 +action_403 (170#) = happyShift action_6 +action_403 (171#) = happyShift action_48 +action_403 (172#) = happyShift action_49 +action_403 (173#) = happyShift action_50 +action_403 (174#) = happyShift action_51 +action_403 (8#) = happyGoto action_10 +action_403 (9#) = happyGoto action_11 +action_403 (10#) = happyGoto action_12 +action_403 (11#) = happyGoto action_13 +action_403 (12#) = happyGoto action_14 +action_403 (58#) = happyGoto action_15 +action_403 (59#) = happyGoto action_16 +action_403 (60#) = happyGoto action_17 +action_403 (61#) = happyGoto action_18 +action_403 (62#) = happyGoto action_19 +action_403 (63#) = happyGoto action_432 +action_403 (64#) = happyGoto action_21 +action_403 (72#) = happyGoto action_22 +action_403 (77#) = happyGoto action_23 +action_403 x = happyTcHack x happyFail + +action_404 (95#) = happyShift action_431 +action_404 x = happyTcHack x happyFail + +action_405 (104#) = happyShift action_257 +action_405 (174#) = happyShift action_51 +action_405 (12#) = happyGoto action_252 +action_405 (34#) = happyGoto action_253 +action_405 (45#) = happyGoto action_430 +action_405 (54#) = happyGoto action_255 +action_405 (55#) = happyGoto action_256 +action_405 x = happyTcHack x happyReduce_111 + +action_406 x = happyTcHack x happyReduce_57 + +action_407 (101#) = happyShift action_429 +action_407 x = happyTcHack x happyFail + +action_408 (142#) = happyShift action_427 +action_408 (144#) = happyShift action_428 +action_408 (31#) = happyGoto action_426 +action_408 x = happyTcHack x happyReduce_62 + +action_409 x = happyTcHack x happyReduce_38 + +action_410 x = happyTcHack x happyReduce_37 + +action_411 x = happyTcHack x happyReduce_47 + +action_412 x = happyTcHack x happyReduce_46 + +action_413 (98#) = happyShift action_408 +action_413 (174#) = happyShift action_51 +action_413 (12#) = happyGoto action_406 +action_413 (27#) = happyGoto action_424 +action_413 (29#) = happyGoto action_425 +action_413 x = happyTcHack x happyReduce_52 + +action_414 (174#) = happyShift action_51 +action_414 (12#) = happyGoto action_241 +action_414 (33#) = happyGoto action_423 +action_414 x = happyTcHack x happyReduce_50 + +action_415 (96#) = happyShift action_422 +action_415 x = happyTcHack x happyFail + +action_416 (174#) = happyShift action_51 +action_416 (12#) = happyGoto action_87 +action_416 (53#) = happyGoto action_421 +action_416 x = happyTcHack x happyFail + +action_417 (104#) = happyShift action_420 +action_417 x = happyTcHack x happyFail + +action_418 (95#) = happyShift action_419 +action_418 x = happyTcHack x happyFail + +action_419 (174#) = happyShift action_51 +action_419 (12#) = happyGoto action_492 +action_419 x = happyTcHack x happyFail + +action_420 (174#) = happyShift action_51 +action_420 (12#) = happyGoto action_87 +action_420 (53#) = happyGoto action_491 +action_420 x = happyTcHack x happyFail + +action_421 (105#) = happyShift action_490 +action_421 x = happyTcHack x happyFail + +action_422 (25#) = happyGoto action_489 +action_422 x = happyTcHack x happyReduce_48 + +action_423 (169#) = happyShift action_488 +action_423 x = happyTcHack x happyFail + +action_424 (102#) = happyShift action_487 +action_424 x = happyTcHack x happyReduce_42 + +action_425 (103#) = happyShift action_486 +action_425 x = happyTcHack x happyReduce_53 + +action_426 (174#) = happyShift action_51 +action_426 (12#) = happyGoto action_485 +action_426 x = happyTcHack x happyFail + +action_427 x = happyTcHack x happyReduce_63 + +action_428 x = happyTcHack x happyReduce_64 + +action_429 (98#) = happyShift action_408 +action_429 (174#) = happyShift action_51 +action_429 (12#) = happyGoto action_406 +action_429 (29#) = happyGoto action_484 +action_429 x = happyTcHack x happyFail + +action_430 x = happyTcHack x happyReduce_112 + +action_431 (96#) = happyShift action_24 +action_431 (98#) = happyShift action_25 +action_431 (104#) = happyShift action_26 +action_431 (109#) = happyShift action_27 +action_431 (110#) = happyShift action_28 +action_431 (111#) = happyShift action_29 +action_431 (114#) = happyShift action_30 +action_431 (119#) = happyShift action_31 +action_431 (124#) = happyShift action_32 +action_431 (125#) = happyShift action_33 +action_431 (126#) = happyShift action_34 +action_431 (127#) = happyShift action_35 +action_431 (128#) = happyShift action_36 +action_431 (129#) = happyShift action_37 +action_431 (131#) = happyShift action_38 +action_431 (134#) = happyShift action_39 +action_431 (137#) = happyShift action_40 +action_431 (140#) = happyShift action_41 +action_431 (145#) = happyShift action_42 +action_431 (156#) = happyShift action_43 +action_431 (157#) = happyShift action_44 +action_431 (161#) = happyShift action_45 +action_431 (162#) = happyShift action_46 +action_431 (167#) = happyShift action_47 +action_431 (170#) = happyShift action_6 +action_431 (171#) = happyShift action_48 +action_431 (172#) = happyShift action_49 +action_431 (173#) = happyShift action_50 +action_431 (174#) = happyShift action_51 +action_431 (8#) = happyGoto action_10 +action_431 (9#) = happyGoto action_11 +action_431 (10#) = happyGoto action_12 +action_431 (11#) = happyGoto action_13 +action_431 (12#) = happyGoto action_14 +action_431 (58#) = happyGoto action_15 +action_431 (59#) = happyGoto action_16 +action_431 (60#) = happyGoto action_17 +action_431 (61#) = happyGoto action_18 +action_431 (62#) = happyGoto action_19 +action_431 (63#) = happyGoto action_483 +action_431 (64#) = happyGoto action_21 +action_431 (72#) = happyGoto action_22 +action_431 (77#) = happyGoto action_23 +action_431 x = happyTcHack x happyFail + +action_432 (95#) = happyShift action_482 +action_432 x = happyTcHack x happyReduce_71 + +action_433 x = happyTcHack x happyReduce_72 + +action_434 x = happyTcHack x happyReduce_131 + +action_435 x = happyTcHack x happyReduce_122 + +action_436 x = happyTcHack x happyReduce_133 + +action_437 x = happyTcHack x happyReduce_109 + +action_438 (89#) = happyGoto action_481 +action_438 x = happyTcHack x happyReduce_262 + +action_439 (108#) = happyShift action_480 +action_439 x = happyTcHack x happyReduce_126 + +action_440 x = happyTcHack x happyReduce_105 + +action_441 (140#) = happyShift action_479 +action_441 x = happyTcHack x happyFail + +action_442 x = happyTcHack x happyReduce_120 + +action_443 (25#) = happyGoto action_478 +action_443 x = happyTcHack x happyReduce_48 + +action_444 x = happyTcHack x happyReduce_116 + +action_445 x = happyTcHack x happyReduce_98 + +action_446 x = happyTcHack x happyReduce_110 + +action_447 x = happyTcHack x happyReduce_124 + +action_448 (107#) = happyShift action_477 +action_448 x = happyTcHack x happyReduce_100 + +action_449 (108#) = happyShift action_476 +action_449 x = happyTcHack x happyReduce_103 + +action_450 x = happyTcHack x happyReduce_99 + +action_451 (95#) = happyShift action_387 +action_451 x = happyTcHack x happyFail + +action_452 x = happyTcHack x happyReduce_118 + +action_453 x = happyTcHack x happyReduce_261 + +action_454 x = happyTcHack x happyReduce_263 + +action_455 (96#) = happyShift action_24 +action_455 (98#) = happyShift action_25 +action_455 (104#) = happyShift action_26 +action_455 (109#) = happyShift action_27 +action_455 (110#) = happyShift action_28 +action_455 (111#) = happyShift action_29 +action_455 (114#) = happyShift action_30 +action_455 (119#) = happyShift action_31 +action_455 (121#) = happyShift action_100 +action_455 (124#) = happyShift action_32 +action_455 (125#) = happyShift action_33 +action_455 (126#) = happyShift action_34 +action_455 (127#) = happyShift action_35 +action_455 (128#) = happyShift action_36 +action_455 (129#) = happyShift action_37 +action_455 (131#) = happyShift action_38 +action_455 (134#) = happyShift action_39 +action_455 (137#) = happyShift action_40 +action_455 (140#) = happyShift action_123 +action_455 (145#) = happyShift action_42 +action_455 (156#) = happyShift action_43 +action_455 (157#) = happyShift action_44 +action_455 (161#) = happyShift action_45 +action_455 (162#) = happyShift action_46 +action_455 (167#) = happyShift action_47 +action_455 (170#) = happyShift action_6 +action_455 (171#) = happyShift action_48 +action_455 (172#) = happyShift action_49 +action_455 (173#) = happyShift action_50 +action_455 (174#) = happyShift action_51 +action_455 (8#) = happyGoto action_10 +action_455 (9#) = happyGoto action_11 +action_455 (10#) = happyGoto action_12 +action_455 (11#) = happyGoto action_13 +action_455 (12#) = happyGoto action_120 +action_455 (58#) = happyGoto action_15 +action_455 (59#) = happyGoto action_16 +action_455 (60#) = happyGoto action_17 +action_455 (61#) = happyGoto action_18 +action_455 (62#) = happyGoto action_19 +action_455 (63#) = happyGoto action_121 +action_455 (64#) = happyGoto action_21 +action_455 (72#) = happyGoto action_22 +action_455 (75#) = happyGoto action_97 +action_455 (76#) = happyGoto action_475 +action_455 (77#) = happyGoto action_23 +action_455 x = happyTcHack x happyReduce_236 + +action_456 x = happyTcHack x happyReduce_114 + +action_457 (96#) = happyShift action_140 +action_457 (98#) = happyShift action_455 +action_457 (104#) = happyShift action_26 +action_457 (105#) = happyShift action_474 +action_457 (109#) = happyShift action_83 +action_457 (110#) = happyShift action_28 +action_457 (111#) = happyShift action_29 +action_457 (125#) = happyShift action_33 +action_457 (126#) = happyShift action_34 +action_457 (127#) = happyShift action_35 +action_457 (128#) = happyShift action_36 +action_457 (129#) = happyShift action_37 +action_457 (134#) = happyShift action_39 +action_457 (170#) = happyShift action_6 +action_457 (171#) = happyShift action_48 +action_457 (172#) = happyShift action_49 +action_457 (173#) = happyShift action_50 +action_457 (174#) = happyShift action_51 +action_457 (8#) = happyGoto action_10 +action_457 (9#) = happyGoto action_11 +action_457 (10#) = happyGoto action_12 +action_457 (11#) = happyGoto action_13 +action_457 (12#) = happyGoto action_79 +action_457 (58#) = happyGoto action_453 +action_457 (72#) = happyGoto action_22 +action_457 (88#) = happyGoto action_454 +action_457 x = happyTcHack x happyFail + +action_458 x = happyTcHack x happyReduce_213 + +action_459 x = happyTcHack x happyReduce_168 + +action_460 (96#) = happyShift action_24 +action_460 (98#) = happyShift action_25 +action_460 (104#) = happyShift action_26 +action_460 (109#) = happyShift action_27 +action_460 (110#) = happyShift action_28 +action_460 (111#) = happyShift action_29 +action_460 (114#) = happyShift action_30 +action_460 (119#) = happyShift action_31 +action_460 (124#) = happyShift action_32 +action_460 (125#) = happyShift action_33 +action_460 (126#) = happyShift action_34 +action_460 (127#) = happyShift action_35 +action_460 (128#) = happyShift action_36 +action_460 (129#) = happyShift action_37 +action_460 (131#) = happyShift action_38 +action_460 (134#) = happyShift action_39 +action_460 (137#) = happyShift action_40 +action_460 (140#) = happyShift action_41 +action_460 (145#) = happyShift action_42 +action_460 (156#) = happyShift action_43 +action_460 (157#) = happyShift action_44 +action_460 (161#) = happyShift action_45 +action_460 (162#) = happyShift action_46 +action_460 (167#) = happyShift action_47 +action_460 (170#) = happyShift action_6 +action_460 (171#) = happyShift action_48 +action_460 (172#) = happyShift action_49 +action_460 (173#) = happyShift action_50 +action_460 (174#) = happyShift action_51 +action_460 (8#) = happyGoto action_10 +action_460 (9#) = happyGoto action_11 +action_460 (10#) = happyGoto action_12 +action_460 (11#) = happyGoto action_13 +action_460 (12#) = happyGoto action_14 +action_460 (58#) = happyGoto action_15 +action_460 (59#) = happyGoto action_16 +action_460 (60#) = happyGoto action_17 +action_460 (61#) = happyGoto action_18 +action_460 (62#) = happyGoto action_19 +action_460 (63#) = happyGoto action_371 +action_460 (64#) = happyGoto action_21 +action_460 (72#) = happyGoto action_22 +action_460 (77#) = happyGoto action_23 +action_460 (86#) = happyGoto action_372 +action_460 (87#) = happyGoto action_473 +action_460 x = happyTcHack x happyReduce_257 + +action_461 (96#) = happyShift action_24 +action_461 (98#) = happyShift action_25 +action_461 (104#) = happyShift action_26 +action_461 (109#) = happyShift action_27 +action_461 (110#) = happyShift action_28 +action_461 (111#) = happyShift action_29 +action_461 (114#) = happyShift action_30 +action_461 (119#) = happyShift action_31 +action_461 (124#) = happyShift action_32 +action_461 (125#) = happyShift action_33 +action_461 (126#) = happyShift action_34 +action_461 (127#) = happyShift action_35 +action_461 (128#) = happyShift action_36 +action_461 (129#) = happyShift action_37 +action_461 (131#) = happyShift action_38 +action_461 (134#) = happyShift action_39 +action_461 (137#) = happyShift action_40 +action_461 (140#) = happyShift action_41 +action_461 (145#) = happyShift action_42 +action_461 (156#) = happyShift action_43 +action_461 (157#) = happyShift action_44 +action_461 (161#) = happyShift action_45 +action_461 (162#) = happyShift action_46 +action_461 (167#) = happyShift action_47 +action_461 (170#) = happyShift action_6 +action_461 (171#) = happyShift action_48 +action_461 (172#) = happyShift action_49 +action_461 (173#) = happyShift action_50 +action_461 (174#) = happyShift action_51 +action_461 (8#) = happyGoto action_10 +action_461 (9#) = happyGoto action_11 +action_461 (10#) = happyGoto action_12 +action_461 (11#) = happyGoto action_13 +action_461 (12#) = happyGoto action_14 +action_461 (58#) = happyGoto action_15 +action_461 (59#) = happyGoto action_16 +action_461 (60#) = happyGoto action_17 +action_461 (61#) = happyGoto action_18 +action_461 (62#) = happyGoto action_19 +action_461 (63#) = happyGoto action_472 +action_461 (64#) = happyGoto action_21 +action_461 (72#) = happyGoto action_22 +action_461 (77#) = happyGoto action_23 +action_461 x = happyTcHack x happyFail + +action_462 x = happyTcHack x happyReduce_136 + +action_463 x = happyTcHack x happyReduce_186 + +action_464 x = happyTcHack x happyReduce_166 + +action_465 (140#) = happyShift action_471 +action_465 x = happyTcHack x happyFail + +action_466 (169#) = happyShift action_470 +action_466 x = happyTcHack x happyFail + +action_467 (102#) = happyShift action_469 +action_467 x = happyTcHack x happyReduce_28 + +action_468 x = happyTcHack x happyReduce_67 + +action_469 (151#) = happyShift action_356 +action_469 (28#) = happyGoto action_510 +action_469 x = happyTcHack x happyReduce_55 + +action_470 (98#) = happyShift action_408 +action_470 (174#) = happyShift action_51 +action_470 (12#) = happyGoto action_406 +action_470 (27#) = happyGoto action_509 +action_470 (29#) = happyGoto action_425 +action_470 x = happyTcHack x happyReduce_52 + +action_471 x = happyTcHack x happyReduce_56 + +action_472 x = happyTcHack x happyReduce_256 + +action_473 x = happyTcHack x happyReduce_259 + +action_474 (96#) = happyShift action_508 +action_474 x = happyTcHack x happyReduce_96 + +action_475 (100#) = happyShift action_507 +action_475 x = happyTcHack x happyFail + +action_476 (174#) = happyShift action_51 +action_476 (12#) = happyGoto action_448 +action_476 (39#) = happyGoto action_449 +action_476 (40#) = happyGoto action_506 +action_476 x = happyTcHack x happyReduce_102 + +action_477 (174#) = happyShift action_51 +action_477 (12#) = happyGoto action_505 +action_477 x = happyTcHack x happyFail + +action_478 (97#) = happyShift action_504 +action_478 (132#) = happyShift action_210 +action_478 (134#) = happyShift action_211 +action_478 (135#) = happyShift action_212 +action_478 (136#) = happyShift action_213 +action_478 (138#) = happyShift action_214 +action_478 (146#) = happyShift action_215 +action_478 (147#) = happyShift action_216 +action_478 (148#) = happyShift action_217 +action_478 (149#) = happyShift action_218 +action_478 (152#) = happyShift action_219 +action_478 (154#) = happyShift action_220 +action_478 (155#) = happyShift action_221 +action_478 (156#) = happyShift action_222 +action_478 (158#) = happyShift action_223 +action_478 (163#) = happyShift action_224 +action_478 (164#) = happyShift action_225 +action_478 (166#) = happyShift action_226 +action_478 (35#) = happyGoto action_209 +action_478 x = happyTcHack x happyFail + +action_479 (174#) = happyShift action_51 +action_479 (12#) = happyGoto action_503 +action_479 x = happyTcHack x happyFail + +action_480 (174#) = happyShift action_51 +action_480 (12#) = happyGoto action_438 +action_480 (42#) = happyGoto action_439 +action_480 (52#) = happyGoto action_502 +action_480 x = happyTcHack x happyReduce_125 + +action_481 (96#) = happyShift action_140 +action_481 (98#) = happyShift action_455 +action_481 (104#) = happyShift action_26 +action_481 (109#) = happyShift action_83 +action_481 (110#) = happyShift action_28 +action_481 (111#) = happyShift action_29 +action_481 (125#) = happyShift action_33 +action_481 (126#) = happyShift action_34 +action_481 (127#) = happyShift action_35 +action_481 (128#) = happyShift action_36 +action_481 (129#) = happyShift action_37 +action_481 (134#) = happyShift action_39 +action_481 (170#) = happyShift action_6 +action_481 (171#) = happyShift action_48 +action_481 (172#) = happyShift action_49 +action_481 (173#) = happyShift action_50 +action_481 (174#) = happyShift action_51 +action_481 (8#) = happyGoto action_10 +action_481 (9#) = happyGoto action_11 +action_481 (10#) = happyGoto action_12 +action_481 (11#) = happyGoto action_13 +action_481 (12#) = happyGoto action_79 +action_481 (58#) = happyGoto action_453 +action_481 (72#) = happyGoto action_22 +action_481 (88#) = happyGoto action_454 +action_481 x = happyTcHack x happyReduce_108 + +action_482 (96#) = happyShift action_24 +action_482 (98#) = happyShift action_25 +action_482 (104#) = happyShift action_26 +action_482 (109#) = happyShift action_27 +action_482 (110#) = happyShift action_28 +action_482 (111#) = happyShift action_29 +action_482 (114#) = happyShift action_30 +action_482 (119#) = happyShift action_31 +action_482 (124#) = happyShift action_32 +action_482 (125#) = happyShift action_33 +action_482 (126#) = happyShift action_34 +action_482 (127#) = happyShift action_35 +action_482 (128#) = happyShift action_36 +action_482 (129#) = happyShift action_37 +action_482 (131#) = happyShift action_38 +action_482 (134#) = happyShift action_39 +action_482 (137#) = happyShift action_40 +action_482 (140#) = happyShift action_41 +action_482 (145#) = happyShift action_42 +action_482 (156#) = happyShift action_43 +action_482 (157#) = happyShift action_44 +action_482 (161#) = happyShift action_45 +action_482 (162#) = happyShift action_46 +action_482 (167#) = happyShift action_47 +action_482 (170#) = happyShift action_6 +action_482 (171#) = happyShift action_48 +action_482 (172#) = happyShift action_49 +action_482 (173#) = happyShift action_50 +action_482 (174#) = happyShift action_51 +action_482 (8#) = happyGoto action_10 +action_482 (9#) = happyGoto action_11 +action_482 (10#) = happyGoto action_12 +action_482 (11#) = happyGoto action_13 +action_482 (12#) = happyGoto action_14 +action_482 (58#) = happyGoto action_15 +action_482 (59#) = happyGoto action_16 +action_482 (60#) = happyGoto action_17 +action_482 (61#) = happyGoto action_18 +action_482 (62#) = happyGoto action_19 +action_482 (63#) = happyGoto action_501 +action_482 (64#) = happyGoto action_21 +action_482 (72#) = happyGoto action_22 +action_482 (77#) = happyGoto action_23 +action_482 x = happyTcHack x happyFail + +action_483 x = happyTcHack x happyReduce_73 + +action_484 x = happyTcHack x happyReduce_39 + +action_485 (95#) = happyShift action_499 +action_485 (99#) = happyShift action_500 +action_485 x = happyTcHack x happyFail + +action_486 (98#) = happyShift action_408 +action_486 (174#) = happyShift action_51 +action_486 (12#) = happyGoto action_406 +action_486 (27#) = happyGoto action_498 +action_486 (29#) = happyGoto action_425 +action_486 x = happyTcHack x happyReduce_52 + +action_487 (151#) = happyShift action_356 +action_487 (28#) = happyGoto action_497 +action_487 x = happyTcHack x happyReduce_55 + +action_488 (98#) = happyShift action_408 +action_488 (174#) = happyShift action_51 +action_488 (12#) = happyGoto action_406 +action_488 (27#) = happyGoto action_496 +action_488 (29#) = happyGoto action_425 +action_488 x = happyTcHack x happyReduce_52 + +action_489 (97#) = happyShift action_495 +action_489 (132#) = happyShift action_210 +action_489 (134#) = happyShift action_211 +action_489 (135#) = happyShift action_212 +action_489 (136#) = happyShift action_213 +action_489 (138#) = happyShift action_214 +action_489 (146#) = happyShift action_215 +action_489 (147#) = happyShift action_216 +action_489 (148#) = happyShift action_217 +action_489 (149#) = happyShift action_218 +action_489 (152#) = happyShift action_219 +action_489 (154#) = happyShift action_220 +action_489 (155#) = happyShift action_221 +action_489 (156#) = happyShift action_222 +action_489 (158#) = happyShift action_223 +action_489 (163#) = happyShift action_224 +action_489 (164#) = happyShift action_225 +action_489 (166#) = happyShift action_226 +action_489 (35#) = happyGoto action_209 +action_489 x = happyTcHack x happyFail + +action_490 x = happyTcHack x happyReduce_69 + +action_491 (105#) = happyShift action_494 +action_491 x = happyTcHack x happyFail + +action_492 (94#) = happyShift action_493 +action_492 x = happyTcHack x happyFail + +action_493 (174#) = happyShift action_51 +action_493 (12#) = happyGoto action_519 +action_493 (16#) = happyGoto action_520 +action_493 (17#) = happyGoto action_521 +action_493 x = happyTcHack x happyReduce_17 + +action_494 x = happyTcHack x happyReduce_70 + +action_495 x = happyTcHack x happyReduce_40 + +action_496 (102#) = happyShift action_518 +action_496 x = happyTcHack x happyReduce_44 + +action_497 (96#) = happyShift action_517 +action_497 x = happyTcHack x happyFail + +action_498 x = happyTcHack x happyReduce_54 + +action_499 (174#) = happyShift action_51 +action_499 (12#) = happyGoto action_516 +action_499 x = happyTcHack x happyFail + +action_500 x = happyTcHack x happyReduce_58 + +action_501 x = happyTcHack x happyReduce_74 + +action_502 x = happyTcHack x happyReduce_127 + +action_503 (99#) = happyShift action_515 +action_503 x = happyTcHack x happyFail + +action_504 (94#) = happyShift action_514 +action_504 x = happyTcHack x happyFail + +action_505 x = happyTcHack x happyReduce_101 + +action_506 x = happyTcHack x happyReduce_104 + +action_507 (96#) = happyShift action_24 +action_507 (98#) = happyShift action_25 +action_507 (104#) = happyShift action_26 +action_507 (109#) = happyShift action_27 +action_507 (110#) = happyShift action_28 +action_507 (111#) = happyShift action_29 +action_507 (114#) = happyShift action_30 +action_507 (119#) = happyShift action_31 +action_507 (124#) = happyShift action_32 +action_507 (125#) = happyShift action_33 +action_507 (126#) = happyShift action_34 +action_507 (127#) = happyShift action_35 +action_507 (128#) = happyShift action_36 +action_507 (129#) = happyShift action_37 +action_507 (131#) = happyShift action_38 +action_507 (134#) = happyShift action_39 +action_507 (137#) = happyShift action_40 +action_507 (140#) = happyShift action_41 +action_507 (145#) = happyShift action_42 +action_507 (156#) = happyShift action_43 +action_507 (157#) = happyShift action_44 +action_507 (161#) = happyShift action_45 +action_507 (162#) = happyShift action_46 +action_507 (167#) = happyShift action_47 +action_507 (170#) = happyShift action_6 +action_507 (171#) = happyShift action_48 +action_507 (172#) = happyShift action_49 +action_507 (173#) = happyShift action_50 +action_507 (174#) = happyShift action_51 +action_507 (8#) = happyGoto action_10 +action_507 (9#) = happyGoto action_11 +action_507 (10#) = happyGoto action_12 +action_507 (11#) = happyGoto action_13 +action_507 (12#) = happyGoto action_14 +action_507 (58#) = happyGoto action_15 +action_507 (59#) = happyGoto action_16 +action_507 (60#) = happyGoto action_17 +action_507 (61#) = happyGoto action_18 +action_507 (62#) = happyGoto action_19 +action_507 (63#) = happyGoto action_513 +action_507 (64#) = happyGoto action_21 +action_507 (72#) = happyGoto action_22 +action_507 (77#) = happyGoto action_23 +action_507 x = happyTcHack x happyFail + +action_508 (170#) = happyShift action_6 +action_508 (8#) = happyGoto action_512 +action_508 x = happyTcHack x happyFail + +action_509 (102#) = happyShift action_511 +action_509 x = happyTcHack x happyReduce_30 + +action_510 x = happyTcHack x happyReduce_29 + +action_511 (151#) = happyShift action_356 +action_511 (28#) = happyGoto action_530 +action_511 x = happyTcHack x happyReduce_55 + +action_512 (97#) = happyShift action_529 +action_512 x = happyTcHack x happyFail + +action_513 (99#) = happyShift action_528 +action_513 x = happyTcHack x happyFail + +action_514 x = happyTcHack x happyReduce_92 + +action_515 x = happyTcHack x happyReduce_106 + +action_516 (99#) = happyShift action_527 +action_516 x = happyTcHack x happyFail + +action_517 (25#) = happyGoto action_526 +action_517 x = happyTcHack x happyReduce_48 + +action_518 (151#) = happyShift action_356 +action_518 (28#) = happyGoto action_525 +action_518 x = happyTcHack x happyReduce_55 + +action_519 (95#) = happyShift action_524 +action_519 x = happyTcHack x happyFail + +action_520 (94#) = happyShift action_523 +action_520 x = happyTcHack x happyReduce_18 + +action_521 (97#) = happyShift action_522 +action_521 x = happyTcHack x happyFail + +action_522 x = happyTcHack x happyReduce_14 + +action_523 (174#) = happyShift action_51 +action_523 (12#) = happyGoto action_519 +action_523 (16#) = happyGoto action_520 +action_523 (17#) = happyGoto action_535 +action_523 x = happyTcHack x happyReduce_17 + +action_524 (174#) = happyShift action_51 +action_524 (12#) = happyGoto action_533 +action_524 (18#) = happyGoto action_534 +action_524 x = happyTcHack x happyFail + +action_525 (96#) = happyShift action_532 +action_525 x = happyTcHack x happyFail + +action_526 (97#) = happyShift action_531 +action_526 (132#) = happyShift action_210 +action_526 (134#) = happyShift action_211 +action_526 (135#) = happyShift action_212 +action_526 (136#) = happyShift action_213 +action_526 (138#) = happyShift action_214 +action_526 (146#) = happyShift action_215 +action_526 (147#) = happyShift action_216 +action_526 (148#) = happyShift action_217 +action_526 (149#) = happyShift action_218 +action_526 (152#) = happyShift action_219 +action_526 (154#) = happyShift action_220 +action_526 (155#) = happyShift action_221 +action_526 (156#) = happyShift action_222 +action_526 (158#) = happyShift action_223 +action_526 (163#) = happyShift action_224 +action_526 (164#) = happyShift action_225 +action_526 (166#) = happyShift action_226 +action_526 (35#) = happyGoto action_209 +action_526 x = happyTcHack x happyFail + +action_527 x = happyTcHack x happyReduce_59 + +action_528 x = happyTcHack x happyReduce_260 + +action_529 x = happyTcHack x happyReduce_97 + +action_530 x = happyTcHack x happyReduce_31 + +action_531 x = happyTcHack x happyReduce_43 + +action_532 (25#) = happyGoto action_537 +action_532 x = happyTcHack x happyReduce_48 + +action_533 (19#) = happyGoto action_536 +action_533 x = happyTcHack x happyReduce_21 + +action_534 x = happyTcHack x happyReduce_16 + +action_535 x = happyTcHack x happyReduce_19 + +action_536 (98#) = happyShift action_540 +action_536 (20#) = happyGoto action_539 +action_536 x = happyTcHack x happyReduce_20 + +action_537 (97#) = happyShift action_538 +action_537 (132#) = happyShift action_210 +action_537 (134#) = happyShift action_211 +action_537 (135#) = happyShift action_212 +action_537 (136#) = happyShift action_213 +action_537 (138#) = happyShift action_214 +action_537 (146#) = happyShift action_215 +action_537 (147#) = happyShift action_216 +action_537 (148#) = happyShift action_217 +action_537 (149#) = happyShift action_218 +action_537 (152#) = happyShift action_219 +action_537 (154#) = happyShift action_220 +action_537 (155#) = happyShift action_221 +action_537 (156#) = happyShift action_222 +action_537 (158#) = happyShift action_223 +action_537 (163#) = happyShift action_224 +action_537 (164#) = happyShift action_225 +action_537 (166#) = happyShift action_226 +action_537 (35#) = happyGoto action_209 +action_537 x = happyTcHack x happyFail + +action_538 x = happyTcHack x happyReduce_45 + +action_539 x = happyTcHack x happyReduce_22 + +action_540 (164#) = happyShift action_541 +action_540 x = happyTcHack x happyFail + +action_541 (140#) = happyShift action_542 +action_541 (153#) = happyShift action_543 +action_541 x = happyTcHack x happyFail + +action_542 (98#) = happyShift action_408 +action_542 (174#) = happyShift action_51 +action_542 (12#) = happyGoto action_406 +action_542 (29#) = happyGoto action_545 +action_542 x = happyTcHack x happyFail + +action_543 (98#) = happyShift action_408 +action_543 (174#) = happyShift action_51 +action_543 (12#) = happyGoto action_406 +action_543 (29#) = happyGoto action_544 +action_543 x = happyTcHack x happyFail + +action_544 (99#) = happyShift action_547 +action_544 x = happyTcHack x happyFail + +action_545 (99#) = happyShift action_546 +action_545 x = happyTcHack x happyFail + +action_546 x = happyTcHack x happyReduce_23 + +action_547 x = happyTcHack x happyReduce_24 + +happyReduce_5 = happySpecReduce_1 8# happyReduction_5 +happyReduction_5 (HappyTerminal (PT _ (TI happy_var_1))) + = HappyAbsSyn8 + ((read happy_var_1) :: Integer + ) +happyReduction_5 _ = notHappyAtAll + +happyReduce_6 = happySpecReduce_1 9# happyReduction_6 +happyReduction_6 (HappyTerminal (PT _ (TL happy_var_1))) + = HappyAbsSyn9 + (happy_var_1 + ) +happyReduction_6 _ = notHappyAtAll + +happyReduce_7 = happySpecReduce_1 10# happyReduction_7 +happyReduction_7 (HappyTerminal (PT _ (TD happy_var_1))) + = HappyAbsSyn10 + ((read happy_var_1) :: Double + ) +happyReduction_7 _ = notHappyAtAll + +happyReduce_8 = happySpecReduce_1 11# happyReduction_8 +happyReduction_8 (HappyTerminal (PT _ (T_LString happy_var_1))) + = HappyAbsSyn11 + (LString (happy_var_1) + ) +happyReduction_8 _ = notHappyAtAll + +happyReduce_9 = happySpecReduce_1 12# happyReduction_9 +happyReduction_9 (HappyTerminal happy_var_1) + = HappyAbsSyn12 + (PIdent (mkPosToken happy_var_1) + ) +happyReduction_9 _ = notHappyAtAll + +happyReduce_10 = happySpecReduce_1 13# happyReduction_10 +happyReduction_10 (HappyAbsSyn14 happy_var_1) + = HappyAbsSyn13 + (Gr (reverse happy_var_1) + ) +happyReduction_10 _ = notHappyAtAll + +happyReduce_11 = happySpecReduce_0 14# happyReduction_11 +happyReduction_11 = HappyAbsSyn14 + ([] + ) + +happyReduce_12 = happySpecReduce_2 14# happyReduction_12 +happyReduction_12 (HappyAbsSyn15 happy_var_2) + (HappyAbsSyn14 happy_var_1) + = HappyAbsSyn14 + (flip (:) happy_var_1 happy_var_2 + ) +happyReduction_12 _ _ = notHappyAtAll + +happyReduce_13 = happySpecReduce_2 15# happyReduction_13 +happyReduction_13 _ + (HappyAbsSyn15 happy_var_1) + = HappyAbsSyn15 + (happy_var_1 + ) +happyReduction_13 _ _ = notHappyAtAll + +happyReduce_14 = happyReduce 10# 15# happyReduction_14 +happyReduction_14 (_ `HappyStk` + (HappyAbsSyn17 happy_var_9) `HappyStk` + _ `HappyStk` + (HappyAbsSyn12 happy_var_7) `HappyStk` + _ `HappyStk` + _ `HappyStk` + _ `HappyStk` + _ `HappyStk` + (HappyAbsSyn12 happy_var_2) `HappyStk` + _ `HappyStk` + happyRest) + = HappyAbsSyn15 + (MMain happy_var_2 happy_var_7 happy_var_9 + ) `HappyStk` happyRest + +happyReduce_15 = happyReduce 4# 15# happyReduction_15 +happyReduction_15 ((HappyAbsSyn22 happy_var_4) `HappyStk` + _ `HappyStk` + (HappyAbsSyn23 happy_var_2) `HappyStk` + (HappyAbsSyn30 happy_var_1) `HappyStk` + happyRest) + = HappyAbsSyn15 + (MModule happy_var_1 happy_var_2 happy_var_4 + ) `HappyStk` happyRest + +happyReduce_16 = happySpecReduce_3 16# happyReduction_16 +happyReduction_16 (HappyAbsSyn18 happy_var_3) + _ + (HappyAbsSyn12 happy_var_1) + = HappyAbsSyn16 + (ConcSpec happy_var_1 happy_var_3 + ) +happyReduction_16 _ _ _ = notHappyAtAll + +happyReduce_17 = happySpecReduce_0 17# happyReduction_17 +happyReduction_17 = HappyAbsSyn17 + ([] + ) + +happyReduce_18 = happySpecReduce_1 17# happyReduction_18 +happyReduction_18 (HappyAbsSyn16 happy_var_1) + = HappyAbsSyn17 + ((:[]) happy_var_1 + ) +happyReduction_18 _ = notHappyAtAll + +happyReduce_19 = happySpecReduce_3 17# happyReduction_19 +happyReduction_19 (HappyAbsSyn17 happy_var_3) + _ + (HappyAbsSyn16 happy_var_1) + = HappyAbsSyn17 + ((:) happy_var_1 happy_var_3 + ) +happyReduction_19 _ _ _ = notHappyAtAll + +happyReduce_20 = happySpecReduce_2 18# happyReduction_20 +happyReduction_20 (HappyAbsSyn19 happy_var_2) + (HappyAbsSyn12 happy_var_1) + = HappyAbsSyn18 + (ConcExp happy_var_1 (reverse happy_var_2) + ) +happyReduction_20 _ _ = notHappyAtAll + +happyReduce_21 = happySpecReduce_0 19# happyReduction_21 +happyReduction_21 = HappyAbsSyn19 + ([] + ) + +happyReduce_22 = happySpecReduce_2 19# happyReduction_22 +happyReduction_22 (HappyAbsSyn20 happy_var_2) + (HappyAbsSyn19 happy_var_1) + = HappyAbsSyn19 + (flip (:) happy_var_1 happy_var_2 + ) +happyReduction_22 _ _ = notHappyAtAll + +happyReduce_23 = happyReduce 5# 20# happyReduction_23 +happyReduction_23 (_ `HappyStk` + (HappyAbsSyn29 happy_var_4) `HappyStk` + _ `HappyStk` + _ `HappyStk` + _ `HappyStk` + happyRest) + = HappyAbsSyn20 + (TransferIn happy_var_4 + ) `HappyStk` happyRest + +happyReduce_24 = happyReduce 5# 20# happyReduction_24 +happyReduction_24 (_ `HappyStk` + (HappyAbsSyn29 happy_var_4) `HappyStk` + _ `HappyStk` + _ `HappyStk` + _ `HappyStk` + happyRest) + = HappyAbsSyn20 + (TransferOut happy_var_4 + ) `HappyStk` happyRest + +happyReduce_25 = happyReduce 4# 21# happyReduction_25 +happyReduction_25 ((HappyAbsSyn22 happy_var_4) `HappyStk` + _ `HappyStk` + (HappyAbsSyn23 happy_var_2) `HappyStk` + (HappyAbsSyn30 happy_var_1) `HappyStk` + happyRest) + = HappyAbsSyn15 + (MModule happy_var_1 happy_var_2 happy_var_4 + ) `HappyStk` happyRest + +happyReduce_26 = happySpecReduce_2 22# happyReduction_26 +happyReduction_26 (HappyAbsSyn28 happy_var_2) + (HappyAbsSyn26 happy_var_1) + = HappyAbsSyn22 + (MBody happy_var_1 happy_var_2 [] + ) +happyReduction_26 _ _ = notHappyAtAll + +happyReduce_27 = happySpecReduce_1 22# happyReduction_27 +happyReduction_27 (HappyAbsSyn32 happy_var_1) + = HappyAbsSyn22 + (MNoBody happy_var_1 + ) +happyReduction_27 _ = notHappyAtAll + +happyReduce_28 = happySpecReduce_3 22# happyReduction_28 +happyReduction_28 (HappyAbsSyn27 happy_var_3) + _ + (HappyAbsSyn33 happy_var_1) + = HappyAbsSyn22 + (MWith happy_var_1 happy_var_3 + ) +happyReduction_28 _ _ _ = notHappyAtAll + +happyReduce_29 = happyReduce 5# 22# happyReduction_29 +happyReduction_29 ((HappyAbsSyn28 happy_var_5) `HappyStk` + _ `HappyStk` + (HappyAbsSyn27 happy_var_3) `HappyStk` + _ `HappyStk` + (HappyAbsSyn33 happy_var_1) `HappyStk` + happyRest) + = HappyAbsSyn22 + (MWithBody happy_var_1 happy_var_3 happy_var_5 [] + ) `HappyStk` happyRest + +happyReduce_30 = happyReduce 5# 22# happyReduction_30 +happyReduction_30 ((HappyAbsSyn27 happy_var_5) `HappyStk` + _ `HappyStk` + (HappyAbsSyn33 happy_var_3) `HappyStk` + _ `HappyStk` + (HappyAbsSyn32 happy_var_1) `HappyStk` + happyRest) + = HappyAbsSyn22 + (MWithE happy_var_1 happy_var_3 happy_var_5 + ) `HappyStk` happyRest + +happyReduce_31 = happyReduce 7# 22# happyReduction_31 +happyReduction_31 ((HappyAbsSyn28 happy_var_7) `HappyStk` + _ `HappyStk` + (HappyAbsSyn27 happy_var_5) `HappyStk` + _ `HappyStk` + (HappyAbsSyn33 happy_var_3) `HappyStk` + _ `HappyStk` + (HappyAbsSyn32 happy_var_1) `HappyStk` + happyRest) + = HappyAbsSyn22 + (MWithEBody happy_var_1 happy_var_3 happy_var_5 happy_var_7 [] + ) `HappyStk` happyRest + +happyReduce_32 = happySpecReduce_2 22# happyReduction_32 +happyReduction_32 (HappyAbsSyn12 happy_var_2) + _ + = HappyAbsSyn22 + (MReuse happy_var_2 + ) +happyReduction_32 _ _ = notHappyAtAll + +happyReduce_33 = happySpecReduce_2 22# happyReduction_33 +happyReduction_33 (HappyAbsSyn32 happy_var_2) + _ + = HappyAbsSyn22 + (MUnion happy_var_2 + ) +happyReduction_33 _ _ = notHappyAtAll + +happyReduce_34 = happySpecReduce_2 23# happyReduction_34 +happyReduction_34 (HappyAbsSyn12 happy_var_2) + _ + = HappyAbsSyn23 + (MTAbstract happy_var_2 + ) +happyReduction_34 _ _ = notHappyAtAll + +happyReduce_35 = happySpecReduce_2 23# happyReduction_35 +happyReduction_35 (HappyAbsSyn12 happy_var_2) + _ + = HappyAbsSyn23 + (MTResource happy_var_2 + ) +happyReduction_35 _ _ = notHappyAtAll + +happyReduce_36 = happySpecReduce_2 23# happyReduction_36 +happyReduction_36 (HappyAbsSyn12 happy_var_2) + _ + = HappyAbsSyn23 + (MTInterface happy_var_2 + ) +happyReduction_36 _ _ = notHappyAtAll + +happyReduce_37 = happyReduce 4# 23# happyReduction_37 +happyReduction_37 ((HappyAbsSyn12 happy_var_4) `HappyStk` + _ `HappyStk` + (HappyAbsSyn12 happy_var_2) `HappyStk` + _ `HappyStk` + happyRest) + = HappyAbsSyn23 + (MTConcrete happy_var_2 happy_var_4 + ) `HappyStk` happyRest + +happyReduce_38 = happyReduce 4# 23# happyReduction_38 +happyReduction_38 ((HappyAbsSyn12 happy_var_4) `HappyStk` + _ `HappyStk` + (HappyAbsSyn12 happy_var_2) `HappyStk` + _ `HappyStk` + happyRest) + = HappyAbsSyn23 + (MTInstance happy_var_2 happy_var_4 + ) `HappyStk` happyRest + +happyReduce_39 = happyReduce 6# 23# happyReduction_39 +happyReduction_39 ((HappyAbsSyn29 happy_var_6) `HappyStk` + _ `HappyStk` + (HappyAbsSyn29 happy_var_4) `HappyStk` + _ `HappyStk` + (HappyAbsSyn12 happy_var_2) `HappyStk` + _ `HappyStk` + happyRest) + = HappyAbsSyn23 + (MTTransfer happy_var_2 happy_var_4 happy_var_6 + ) `HappyStk` happyRest + +happyReduce_40 = happyReduce 5# 24# happyReduction_40 +happyReduction_40 (_ `HappyStk` + (HappyAbsSyn25 happy_var_4) `HappyStk` + _ `HappyStk` + (HappyAbsSyn28 happy_var_2) `HappyStk` + (HappyAbsSyn26 happy_var_1) `HappyStk` + happyRest) + = HappyAbsSyn22 + (MBody happy_var_1 happy_var_2 (reverse happy_var_4) + ) `HappyStk` happyRest + +happyReduce_41 = happySpecReduce_1 24# happyReduction_41 +happyReduction_41 (HappyAbsSyn32 happy_var_1) + = HappyAbsSyn22 + (MNoBody happy_var_1 + ) +happyReduction_41 _ = notHappyAtAll + +happyReduce_42 = happySpecReduce_3 24# happyReduction_42 +happyReduction_42 (HappyAbsSyn27 happy_var_3) + _ + (HappyAbsSyn33 happy_var_1) + = HappyAbsSyn22 + (MWith happy_var_1 happy_var_3 + ) +happyReduction_42 _ _ _ = notHappyAtAll + +happyReduce_43 = happyReduce 8# 24# happyReduction_43 +happyReduction_43 (_ `HappyStk` + (HappyAbsSyn25 happy_var_7) `HappyStk` + _ `HappyStk` + (HappyAbsSyn28 happy_var_5) `HappyStk` + _ `HappyStk` + (HappyAbsSyn27 happy_var_3) `HappyStk` + _ `HappyStk` + (HappyAbsSyn33 happy_var_1) `HappyStk` + happyRest) + = HappyAbsSyn22 + (MWithBody happy_var_1 happy_var_3 happy_var_5 (reverse happy_var_7) + ) `HappyStk` happyRest + +happyReduce_44 = happyReduce 5# 24# happyReduction_44 +happyReduction_44 ((HappyAbsSyn27 happy_var_5) `HappyStk` + _ `HappyStk` + (HappyAbsSyn33 happy_var_3) `HappyStk` + _ `HappyStk` + (HappyAbsSyn32 happy_var_1) `HappyStk` + happyRest) + = HappyAbsSyn22 + (MWithE happy_var_1 happy_var_3 happy_var_5 + ) `HappyStk` happyRest + +happyReduce_45 = happyReduce 10# 24# happyReduction_45 +happyReduction_45 (_ `HappyStk` + (HappyAbsSyn25 happy_var_9) `HappyStk` + _ `HappyStk` + (HappyAbsSyn28 happy_var_7) `HappyStk` + _ `HappyStk` + (HappyAbsSyn27 happy_var_5) `HappyStk` + _ `HappyStk` + (HappyAbsSyn33 happy_var_3) `HappyStk` + _ `HappyStk` + (HappyAbsSyn32 happy_var_1) `HappyStk` + happyRest) + = HappyAbsSyn22 + (MWithEBody happy_var_1 happy_var_3 happy_var_5 happy_var_7 (reverse happy_var_9) + ) `HappyStk` happyRest + +happyReduce_46 = happySpecReduce_2 24# happyReduction_46 +happyReduction_46 (HappyAbsSyn12 happy_var_2) + _ + = HappyAbsSyn22 + (MReuse happy_var_2 + ) +happyReduction_46 _ _ = notHappyAtAll + +happyReduce_47 = happySpecReduce_2 24# happyReduction_47 +happyReduction_47 (HappyAbsSyn32 happy_var_2) + _ + = HappyAbsSyn22 + (MUnion happy_var_2 + ) +happyReduction_47 _ _ = notHappyAtAll + +happyReduce_48 = happySpecReduce_0 25# happyReduction_48 +happyReduction_48 = HappyAbsSyn25 + ([] + ) + +happyReduce_49 = happySpecReduce_2 25# happyReduction_49 +happyReduction_49 (HappyAbsSyn35 happy_var_2) + (HappyAbsSyn25 happy_var_1) + = HappyAbsSyn25 + (flip (:) happy_var_1 happy_var_2 + ) +happyReduction_49 _ _ = notHappyAtAll + +happyReduce_50 = happySpecReduce_2 26# happyReduction_50 +happyReduction_50 _ + (HappyAbsSyn32 happy_var_1) + = HappyAbsSyn26 + (Ext happy_var_1 + ) +happyReduction_50 _ _ = notHappyAtAll + +happyReduce_51 = happySpecReduce_0 26# happyReduction_51 +happyReduction_51 = HappyAbsSyn26 + (NoExt + ) + +happyReduce_52 = happySpecReduce_0 27# happyReduction_52 +happyReduction_52 = HappyAbsSyn27 + ([] + ) + +happyReduce_53 = happySpecReduce_1 27# happyReduction_53 +happyReduction_53 (HappyAbsSyn29 happy_var_1) + = HappyAbsSyn27 + ((:[]) happy_var_1 + ) +happyReduction_53 _ = notHappyAtAll + +happyReduce_54 = happySpecReduce_3 27# happyReduction_54 +happyReduction_54 (HappyAbsSyn27 happy_var_3) + _ + (HappyAbsSyn29 happy_var_1) + = HappyAbsSyn27 + ((:) happy_var_1 happy_var_3 + ) +happyReduction_54 _ _ _ = notHappyAtAll + +happyReduce_55 = happySpecReduce_0 28# happyReduction_55 +happyReduction_55 = HappyAbsSyn28 + (NoOpens + ) + +happyReduce_56 = happySpecReduce_3 28# happyReduction_56 +happyReduction_56 _ + (HappyAbsSyn27 happy_var_2) + _ + = HappyAbsSyn28 + (OpenIn happy_var_2 + ) +happyReduction_56 _ _ _ = notHappyAtAll + +happyReduce_57 = happySpecReduce_1 29# happyReduction_57 +happyReduction_57 (HappyAbsSyn12 happy_var_1) + = HappyAbsSyn29 + (OName happy_var_1 + ) +happyReduction_57 _ = notHappyAtAll + +happyReduce_58 = happyReduce 4# 29# happyReduction_58 +happyReduction_58 (_ `HappyStk` + (HappyAbsSyn12 happy_var_3) `HappyStk` + (HappyAbsSyn31 happy_var_2) `HappyStk` + _ `HappyStk` + happyRest) + = HappyAbsSyn29 + (OQualQO happy_var_2 happy_var_3 + ) `HappyStk` happyRest + +happyReduce_59 = happyReduce 6# 29# happyReduction_59 +happyReduction_59 (_ `HappyStk` + (HappyAbsSyn12 happy_var_5) `HappyStk` + _ `HappyStk` + (HappyAbsSyn12 happy_var_3) `HappyStk` + (HappyAbsSyn31 happy_var_2) `HappyStk` + _ `HappyStk` + happyRest) + = HappyAbsSyn29 + (OQual happy_var_2 happy_var_3 happy_var_5 + ) `HappyStk` happyRest + +happyReduce_60 = happySpecReduce_0 30# happyReduction_60 +happyReduction_60 = HappyAbsSyn30 + (CMCompl + ) + +happyReduce_61 = happySpecReduce_1 30# happyReduction_61 +happyReduction_61 _ + = HappyAbsSyn30 + (CMIncompl + ) + +happyReduce_62 = happySpecReduce_0 31# happyReduction_62 +happyReduction_62 = HappyAbsSyn31 + (QOCompl + ) + +happyReduce_63 = happySpecReduce_1 31# happyReduction_63 +happyReduction_63 _ + = HappyAbsSyn31 + (QOIncompl + ) + +happyReduce_64 = happySpecReduce_1 31# happyReduction_64 +happyReduction_64 _ + = HappyAbsSyn31 + (QOInterface + ) + +happyReduce_65 = happySpecReduce_0 32# happyReduction_65 +happyReduction_65 = HappyAbsSyn32 + ([] + ) + +happyReduce_66 = happySpecReduce_1 32# happyReduction_66 +happyReduction_66 (HappyAbsSyn33 happy_var_1) + = HappyAbsSyn32 + ((:[]) happy_var_1 + ) +happyReduction_66 _ = notHappyAtAll + +happyReduce_67 = happySpecReduce_3 32# happyReduction_67 +happyReduction_67 (HappyAbsSyn32 happy_var_3) + _ + (HappyAbsSyn33 happy_var_1) + = HappyAbsSyn32 + ((:) happy_var_1 happy_var_3 + ) +happyReduction_67 _ _ _ = notHappyAtAll + +happyReduce_68 = happySpecReduce_1 33# happyReduction_68 +happyReduction_68 (HappyAbsSyn12 happy_var_1) + = HappyAbsSyn33 + (IAll happy_var_1 + ) +happyReduction_68 _ = notHappyAtAll + +happyReduce_69 = happyReduce 4# 33# happyReduction_69 +happyReduction_69 (_ `HappyStk` + (HappyAbsSyn53 happy_var_3) `HappyStk` + _ `HappyStk` + (HappyAbsSyn12 happy_var_1) `HappyStk` + happyRest) + = HappyAbsSyn33 + (ISome happy_var_1 happy_var_3 + ) `HappyStk` happyRest + +happyReduce_70 = happyReduce 5# 33# happyReduction_70 +happyReduction_70 (_ `HappyStk` + (HappyAbsSyn53 happy_var_4) `HappyStk` + _ `HappyStk` + _ `HappyStk` + (HappyAbsSyn12 happy_var_1) `HappyStk` + happyRest) + = HappyAbsSyn33 + (IMinus happy_var_1 happy_var_4 + ) `HappyStk` happyRest + +happyReduce_71 = happySpecReduce_3 34# happyReduction_71 +happyReduction_71 (HappyAbsSyn58 happy_var_3) + _ + (HappyAbsSyn55 happy_var_1) + = HappyAbsSyn34 + (DDecl happy_var_1 happy_var_3 + ) +happyReduction_71 _ _ _ = notHappyAtAll + +happyReduce_72 = happySpecReduce_3 34# happyReduction_72 +happyReduction_72 (HappyAbsSyn58 happy_var_3) + _ + (HappyAbsSyn55 happy_var_1) + = HappyAbsSyn34 + (DDef happy_var_1 happy_var_3 + ) +happyReduction_72 _ _ _ = notHappyAtAll + +happyReduce_73 = happyReduce 4# 34# happyReduction_73 +happyReduction_73 ((HappyAbsSyn58 happy_var_4) `HappyStk` + _ `HappyStk` + (HappyAbsSyn74 happy_var_2) `HappyStk` + (HappyAbsSyn54 happy_var_1) `HappyStk` + happyRest) + = HappyAbsSyn34 + (DPatt happy_var_1 happy_var_2 happy_var_4 + ) `HappyStk` happyRest + +happyReduce_74 = happyReduce 5# 34# happyReduction_74 +happyReduction_74 ((HappyAbsSyn58 happy_var_5) `HappyStk` + _ `HappyStk` + (HappyAbsSyn58 happy_var_3) `HappyStk` + _ `HappyStk` + (HappyAbsSyn55 happy_var_1) `HappyStk` + happyRest) + = HappyAbsSyn34 + (DFull happy_var_1 happy_var_3 happy_var_5 + ) `HappyStk` happyRest + +happyReduce_75 = happySpecReduce_2 35# happyReduction_75 +happyReduction_75 (HappyAbsSyn46 happy_var_2) + _ + = HappyAbsSyn35 + (DefCat happy_var_2 + ) +happyReduction_75 _ _ = notHappyAtAll + +happyReduce_76 = happySpecReduce_2 35# happyReduction_76 +happyReduction_76 (HappyAbsSyn47 happy_var_2) + _ + = HappyAbsSyn35 + (DefFun happy_var_2 + ) +happyReduction_76 _ _ = notHappyAtAll + +happyReduce_77 = happySpecReduce_2 35# happyReduction_77 +happyReduction_77 (HappyAbsSyn47 happy_var_2) + _ + = HappyAbsSyn35 + (DefFunData happy_var_2 + ) +happyReduction_77 _ _ = notHappyAtAll + +happyReduce_78 = happySpecReduce_2 35# happyReduction_78 +happyReduction_78 (HappyAbsSyn45 happy_var_2) + _ + = HappyAbsSyn35 + (DefDef happy_var_2 + ) +happyReduction_78 _ _ = notHappyAtAll + +happyReduce_79 = happySpecReduce_2 35# happyReduction_79 +happyReduction_79 (HappyAbsSyn48 happy_var_2) + _ + = HappyAbsSyn35 + (DefData happy_var_2 + ) +happyReduction_79 _ _ = notHappyAtAll + +happyReduce_80 = happySpecReduce_2 35# happyReduction_80 +happyReduction_80 (HappyAbsSyn45 happy_var_2) + _ + = HappyAbsSyn35 + (DefTrans happy_var_2 + ) +happyReduction_80 _ _ = notHappyAtAll + +happyReduce_81 = happySpecReduce_2 35# happyReduction_81 +happyReduction_81 (HappyAbsSyn49 happy_var_2) + _ + = HappyAbsSyn35 + (DefPar happy_var_2 + ) +happyReduction_81 _ _ = notHappyAtAll + +happyReduce_82 = happySpecReduce_2 35# happyReduction_82 +happyReduction_82 (HappyAbsSyn45 happy_var_2) + _ + = HappyAbsSyn35 + (DefOper happy_var_2 + ) +happyReduction_82 _ _ = notHappyAtAll + +happyReduce_83 = happySpecReduce_2 35# happyReduction_83 +happyReduction_83 (HappyAbsSyn50 happy_var_2) + _ + = HappyAbsSyn35 + (DefLincat happy_var_2 + ) +happyReduction_83 _ _ = notHappyAtAll + +happyReduce_84 = happySpecReduce_2 35# happyReduction_84 +happyReduction_84 (HappyAbsSyn45 happy_var_2) + _ + = HappyAbsSyn35 + (DefLindef happy_var_2 + ) +happyReduction_84 _ _ = notHappyAtAll + +happyReduce_85 = happySpecReduce_2 35# happyReduction_85 +happyReduction_85 (HappyAbsSyn45 happy_var_2) + _ + = HappyAbsSyn35 + (DefLin happy_var_2 + ) +happyReduction_85 _ _ = notHappyAtAll + +happyReduce_86 = happySpecReduce_3 35# happyReduction_86 +happyReduction_86 (HappyAbsSyn50 happy_var_3) + _ + _ + = HappyAbsSyn35 + (DefPrintCat happy_var_3 + ) +happyReduction_86 _ _ _ = notHappyAtAll + +happyReduce_87 = happySpecReduce_3 35# happyReduction_87 +happyReduction_87 (HappyAbsSyn50 happy_var_3) + _ + _ + = HappyAbsSyn35 + (DefPrintFun happy_var_3 + ) +happyReduction_87 _ _ _ = notHappyAtAll + +happyReduce_88 = happySpecReduce_2 35# happyReduction_88 +happyReduction_88 (HappyAbsSyn51 happy_var_2) + _ + = HappyAbsSyn35 + (DefFlag happy_var_2 + ) +happyReduction_88 _ _ = notHappyAtAll + +happyReduce_89 = happySpecReduce_2 35# happyReduction_89 +happyReduction_89 (HappyAbsSyn50 happy_var_2) + _ + = HappyAbsSyn35 + (DefPrintOld happy_var_2 + ) +happyReduction_89 _ _ = notHappyAtAll + +happyReduce_90 = happySpecReduce_2 35# happyReduction_90 +happyReduction_90 (HappyAbsSyn45 happy_var_2) + _ + = HappyAbsSyn35 + (DefLintype happy_var_2 + ) +happyReduction_90 _ _ = notHappyAtAll + +happyReduce_91 = happySpecReduce_2 35# happyReduction_91 +happyReduction_91 (HappyAbsSyn45 happy_var_2) + _ + = HappyAbsSyn35 + (DefPattern happy_var_2 + ) +happyReduction_91 _ _ = notHappyAtAll + +happyReduce_92 = happyReduce 7# 35# happyReduction_92 +happyReduction_92 (_ `HappyStk` + _ `HappyStk` + (HappyAbsSyn25 happy_var_5) `HappyStk` + _ `HappyStk` + _ `HappyStk` + (HappyAbsSyn12 happy_var_2) `HappyStk` + _ `HappyStk` + happyRest) + = HappyAbsSyn35 + (DefPackage happy_var_2 (reverse happy_var_5) + ) `HappyStk` happyRest + +happyReduce_93 = happySpecReduce_2 35# happyReduction_93 +happyReduction_93 (HappyAbsSyn45 happy_var_2) + _ + = HappyAbsSyn35 + (DefVars happy_var_2 + ) +happyReduction_93 _ _ = notHappyAtAll + +happyReduce_94 = happySpecReduce_3 35# happyReduction_94 +happyReduction_94 _ + (HappyAbsSyn12 happy_var_2) + _ + = HappyAbsSyn35 + (DefTokenizer happy_var_2 + ) +happyReduction_94 _ _ _ = notHappyAtAll + +happyReduce_95 = happySpecReduce_2 36# happyReduction_95 +happyReduction_95 (HappyAbsSyn89 happy_var_2) + (HappyAbsSyn12 happy_var_1) + = HappyAbsSyn36 + (SimpleCatDef happy_var_1 (reverse happy_var_2) + ) +happyReduction_95 _ _ = notHappyAtAll + +happyReduce_96 = happyReduce 4# 36# happyReduction_96 +happyReduction_96 (_ `HappyStk` + (HappyAbsSyn89 happy_var_3) `HappyStk` + (HappyAbsSyn12 happy_var_2) `HappyStk` + _ `HappyStk` + happyRest) + = HappyAbsSyn36 + (ListCatDef happy_var_2 (reverse happy_var_3) + ) `HappyStk` happyRest + +happyReduce_97 = happyReduce 7# 36# happyReduction_97 +happyReduction_97 (_ `HappyStk` + (HappyAbsSyn8 happy_var_6) `HappyStk` + _ `HappyStk` + _ `HappyStk` + (HappyAbsSyn89 happy_var_3) `HappyStk` + (HappyAbsSyn12 happy_var_2) `HappyStk` + _ `HappyStk` + happyRest) + = HappyAbsSyn36 + (ListSizeCatDef happy_var_2 (reverse happy_var_3) happy_var_6 + ) `HappyStk` happyRest + +happyReduce_98 = happySpecReduce_3 37# happyReduction_98 +happyReduction_98 (HappyAbsSyn58 happy_var_3) + _ + (HappyAbsSyn53 happy_var_1) + = HappyAbsSyn37 + (FunDef happy_var_1 happy_var_3 + ) +happyReduction_98 _ _ _ = notHappyAtAll + +happyReduce_99 = happySpecReduce_3 38# happyReduction_99 +happyReduction_99 (HappyAbsSyn40 happy_var_3) + _ + (HappyAbsSyn12 happy_var_1) + = HappyAbsSyn38 + (DataDef happy_var_1 happy_var_3 + ) +happyReduction_99 _ _ _ = notHappyAtAll + +happyReduce_100 = happySpecReduce_1 39# happyReduction_100 +happyReduction_100 (HappyAbsSyn12 happy_var_1) + = HappyAbsSyn39 + (DataId happy_var_1 + ) +happyReduction_100 _ = notHappyAtAll + +happyReduce_101 = happySpecReduce_3 39# happyReduction_101 +happyReduction_101 (HappyAbsSyn12 happy_var_3) + _ + (HappyAbsSyn12 happy_var_1) + = HappyAbsSyn39 + (DataQId happy_var_1 happy_var_3 + ) +happyReduction_101 _ _ _ = notHappyAtAll + +happyReduce_102 = happySpecReduce_0 40# happyReduction_102 +happyReduction_102 = HappyAbsSyn40 + ([] + ) + +happyReduce_103 = happySpecReduce_1 40# happyReduction_103 +happyReduction_103 (HappyAbsSyn39 happy_var_1) + = HappyAbsSyn40 + ((:[]) happy_var_1 + ) +happyReduction_103 _ = notHappyAtAll + +happyReduce_104 = happySpecReduce_3 40# happyReduction_104 +happyReduction_104 (HappyAbsSyn40 happy_var_3) + _ + (HappyAbsSyn39 happy_var_1) + = HappyAbsSyn40 + ((:) happy_var_1 happy_var_3 + ) +happyReduction_104 _ _ _ = notHappyAtAll + +happyReduce_105 = happySpecReduce_3 41# happyReduction_105 +happyReduction_105 (HappyAbsSyn52 happy_var_3) + _ + (HappyAbsSyn12 happy_var_1) + = HappyAbsSyn41 + (ParDefDir happy_var_1 happy_var_3 + ) +happyReduction_105 _ _ _ = notHappyAtAll + +happyReduce_106 = happyReduce 6# 41# happyReduction_106 +happyReduction_106 (_ `HappyStk` + (HappyAbsSyn12 happy_var_5) `HappyStk` + _ `HappyStk` + _ `HappyStk` + _ `HappyStk` + (HappyAbsSyn12 happy_var_1) `HappyStk` + happyRest) + = HappyAbsSyn41 + (ParDefIndir happy_var_1 happy_var_5 + ) `HappyStk` happyRest + +happyReduce_107 = happySpecReduce_1 41# happyReduction_107 +happyReduction_107 (HappyAbsSyn12 happy_var_1) + = HappyAbsSyn41 + (ParDefAbs happy_var_1 + ) +happyReduction_107 _ = notHappyAtAll + +happyReduce_108 = happySpecReduce_2 42# happyReduction_108 +happyReduction_108 (HappyAbsSyn89 happy_var_2) + (HappyAbsSyn12 happy_var_1) + = HappyAbsSyn42 + (ParConstr happy_var_1 (reverse happy_var_2) + ) +happyReduction_108 _ _ = notHappyAtAll + +happyReduce_109 = happySpecReduce_3 43# happyReduction_109 +happyReduction_109 (HappyAbsSyn58 happy_var_3) + _ + (HappyAbsSyn55 happy_var_1) + = HappyAbsSyn43 + (PrintDef happy_var_1 happy_var_3 + ) +happyReduction_109 _ _ _ = notHappyAtAll + +happyReduce_110 = happySpecReduce_3 44# happyReduction_110 +happyReduction_110 (HappyAbsSyn12 happy_var_3) + _ + (HappyAbsSyn12 happy_var_1) + = HappyAbsSyn44 + (FlagDef happy_var_1 happy_var_3 + ) +happyReduction_110 _ _ _ = notHappyAtAll + +happyReduce_111 = happySpecReduce_2 45# happyReduction_111 +happyReduction_111 _ + (HappyAbsSyn34 happy_var_1) + = HappyAbsSyn45 + ((:[]) happy_var_1 + ) +happyReduction_111 _ _ = notHappyAtAll + +happyReduce_112 = happySpecReduce_3 45# happyReduction_112 +happyReduction_112 (HappyAbsSyn45 happy_var_3) + _ + (HappyAbsSyn34 happy_var_1) + = HappyAbsSyn45 + ((:) happy_var_1 happy_var_3 + ) +happyReduction_112 _ _ _ = notHappyAtAll + +happyReduce_113 = happySpecReduce_2 46# happyReduction_113 +happyReduction_113 _ + (HappyAbsSyn36 happy_var_1) + = HappyAbsSyn46 + ((:[]) happy_var_1 + ) +happyReduction_113 _ _ = notHappyAtAll + +happyReduce_114 = happySpecReduce_3 46# happyReduction_114 +happyReduction_114 (HappyAbsSyn46 happy_var_3) + _ + (HappyAbsSyn36 happy_var_1) + = HappyAbsSyn46 + ((:) happy_var_1 happy_var_3 + ) +happyReduction_114 _ _ _ = notHappyAtAll + +happyReduce_115 = happySpecReduce_2 47# happyReduction_115 +happyReduction_115 _ + (HappyAbsSyn37 happy_var_1) + = HappyAbsSyn47 + ((:[]) happy_var_1 + ) +happyReduction_115 _ _ = notHappyAtAll + +happyReduce_116 = happySpecReduce_3 47# happyReduction_116 +happyReduction_116 (HappyAbsSyn47 happy_var_3) + _ + (HappyAbsSyn37 happy_var_1) + = HappyAbsSyn47 + ((:) happy_var_1 happy_var_3 + ) +happyReduction_116 _ _ _ = notHappyAtAll + +happyReduce_117 = happySpecReduce_2 48# happyReduction_117 +happyReduction_117 _ + (HappyAbsSyn38 happy_var_1) + = HappyAbsSyn48 + ((:[]) happy_var_1 + ) +happyReduction_117 _ _ = notHappyAtAll + +happyReduce_118 = happySpecReduce_3 48# happyReduction_118 +happyReduction_118 (HappyAbsSyn48 happy_var_3) + _ + (HappyAbsSyn38 happy_var_1) + = HappyAbsSyn48 + ((:) happy_var_1 happy_var_3 + ) +happyReduction_118 _ _ _ = notHappyAtAll + +happyReduce_119 = happySpecReduce_2 49# happyReduction_119 +happyReduction_119 _ + (HappyAbsSyn41 happy_var_1) + = HappyAbsSyn49 + ((:[]) happy_var_1 + ) +happyReduction_119 _ _ = notHappyAtAll + +happyReduce_120 = happySpecReduce_3 49# happyReduction_120 +happyReduction_120 (HappyAbsSyn49 happy_var_3) + _ + (HappyAbsSyn41 happy_var_1) + = HappyAbsSyn49 + ((:) happy_var_1 happy_var_3 + ) +happyReduction_120 _ _ _ = notHappyAtAll + +happyReduce_121 = happySpecReduce_2 50# happyReduction_121 +happyReduction_121 _ + (HappyAbsSyn43 happy_var_1) + = HappyAbsSyn50 + ((:[]) happy_var_1 + ) +happyReduction_121 _ _ = notHappyAtAll + +happyReduce_122 = happySpecReduce_3 50# happyReduction_122 +happyReduction_122 (HappyAbsSyn50 happy_var_3) + _ + (HappyAbsSyn43 happy_var_1) + = HappyAbsSyn50 + ((:) happy_var_1 happy_var_3 + ) +happyReduction_122 _ _ _ = notHappyAtAll + +happyReduce_123 = happySpecReduce_2 51# happyReduction_123 +happyReduction_123 _ + (HappyAbsSyn44 happy_var_1) + = HappyAbsSyn51 + ((:[]) happy_var_1 + ) +happyReduction_123 _ _ = notHappyAtAll + +happyReduce_124 = happySpecReduce_3 51# happyReduction_124 +happyReduction_124 (HappyAbsSyn51 happy_var_3) + _ + (HappyAbsSyn44 happy_var_1) + = HappyAbsSyn51 + ((:) happy_var_1 happy_var_3 + ) +happyReduction_124 _ _ _ = notHappyAtAll + +happyReduce_125 = happySpecReduce_0 52# happyReduction_125 +happyReduction_125 = HappyAbsSyn52 + ([] + ) + +happyReduce_126 = happySpecReduce_1 52# happyReduction_126 +happyReduction_126 (HappyAbsSyn42 happy_var_1) + = HappyAbsSyn52 + ((:[]) happy_var_1 + ) +happyReduction_126 _ = notHappyAtAll + +happyReduce_127 = happySpecReduce_3 52# happyReduction_127 +happyReduction_127 (HappyAbsSyn52 happy_var_3) + _ + (HappyAbsSyn42 happy_var_1) + = HappyAbsSyn52 + ((:) happy_var_1 happy_var_3 + ) +happyReduction_127 _ _ _ = notHappyAtAll + +happyReduce_128 = happySpecReduce_1 53# happyReduction_128 +happyReduction_128 (HappyAbsSyn12 happy_var_1) + = HappyAbsSyn53 + ((:[]) happy_var_1 + ) +happyReduction_128 _ = notHappyAtAll + +happyReduce_129 = happySpecReduce_3 53# happyReduction_129 +happyReduction_129 (HappyAbsSyn53 happy_var_3) + _ + (HappyAbsSyn12 happy_var_1) + = HappyAbsSyn53 + ((:) happy_var_1 happy_var_3 + ) +happyReduction_129 _ _ _ = notHappyAtAll + +happyReduce_130 = happySpecReduce_1 54# happyReduction_130 +happyReduction_130 (HappyAbsSyn12 happy_var_1) + = HappyAbsSyn54 + (IdentName happy_var_1 + ) +happyReduction_130 _ = notHappyAtAll + +happyReduce_131 = happySpecReduce_3 54# happyReduction_131 +happyReduction_131 _ + (HappyAbsSyn12 happy_var_2) + _ + = HappyAbsSyn54 + (ListName happy_var_2 + ) +happyReduction_131 _ _ _ = notHappyAtAll + +happyReduce_132 = happySpecReduce_1 55# happyReduction_132 +happyReduction_132 (HappyAbsSyn54 happy_var_1) + = HappyAbsSyn55 + ((:[]) happy_var_1 + ) +happyReduction_132 _ = notHappyAtAll + +happyReduce_133 = happySpecReduce_3 55# happyReduction_133 +happyReduction_133 (HappyAbsSyn55 happy_var_3) + _ + (HappyAbsSyn54 happy_var_1) + = HappyAbsSyn55 + ((:) happy_var_1 happy_var_3 + ) +happyReduction_133 _ _ _ = notHappyAtAll + +happyReduce_134 = happySpecReduce_3 56# happyReduction_134 +happyReduction_134 (HappyAbsSyn58 happy_var_3) + _ + (HappyAbsSyn53 happy_var_1) + = HappyAbsSyn56 + (LDDecl happy_var_1 happy_var_3 + ) +happyReduction_134 _ _ _ = notHappyAtAll + +happyReduce_135 = happySpecReduce_3 56# happyReduction_135 +happyReduction_135 (HappyAbsSyn58 happy_var_3) + _ + (HappyAbsSyn53 happy_var_1) + = HappyAbsSyn56 + (LDDef happy_var_1 happy_var_3 + ) +happyReduction_135 _ _ _ = notHappyAtAll + +happyReduce_136 = happyReduce 5# 56# happyReduction_136 +happyReduction_136 ((HappyAbsSyn58 happy_var_5) `HappyStk` + _ `HappyStk` + (HappyAbsSyn58 happy_var_3) `HappyStk` + _ `HappyStk` + (HappyAbsSyn53 happy_var_1) `HappyStk` + happyRest) + = HappyAbsSyn56 + (LDFull happy_var_1 happy_var_3 happy_var_5 + ) `HappyStk` happyRest + +happyReduce_137 = happySpecReduce_0 57# happyReduction_137 +happyReduction_137 = HappyAbsSyn57 + ([] + ) + +happyReduce_138 = happySpecReduce_1 57# happyReduction_138 +happyReduction_138 (HappyAbsSyn56 happy_var_1) + = HappyAbsSyn57 + ((:[]) happy_var_1 + ) +happyReduction_138 _ = notHappyAtAll + +happyReduce_139 = happySpecReduce_3 57# happyReduction_139 +happyReduction_139 (HappyAbsSyn57 happy_var_3) + _ + (HappyAbsSyn56 happy_var_1) + = HappyAbsSyn57 + ((:) happy_var_1 happy_var_3 + ) +happyReduction_139 _ _ _ = notHappyAtAll + +happyReduce_140 = happySpecReduce_1 58# happyReduction_140 +happyReduction_140 (HappyAbsSyn12 happy_var_1) + = HappyAbsSyn58 + (EIdent happy_var_1 + ) +happyReduction_140 _ = notHappyAtAll + +happyReduce_141 = happySpecReduce_3 58# happyReduction_141 +happyReduction_141 _ + (HappyAbsSyn12 happy_var_2) + _ + = HappyAbsSyn58 + (EConstr happy_var_2 + ) +happyReduction_141 _ _ _ = notHappyAtAll + +happyReduce_142 = happySpecReduce_3 58# happyReduction_142 +happyReduction_142 _ + (HappyAbsSyn12 happy_var_2) + _ + = HappyAbsSyn58 + (ECons happy_var_2 + ) +happyReduction_142 _ _ _ = notHappyAtAll + +happyReduce_143 = happySpecReduce_1 58# happyReduction_143 +happyReduction_143 (HappyAbsSyn72 happy_var_1) + = HappyAbsSyn58 + (ESort happy_var_1 + ) +happyReduction_143 _ = notHappyAtAll + +happyReduce_144 = happySpecReduce_1 58# happyReduction_144 +happyReduction_144 (HappyAbsSyn9 happy_var_1) + = HappyAbsSyn58 + (EString happy_var_1 + ) +happyReduction_144 _ = notHappyAtAll + +happyReduce_145 = happySpecReduce_1 58# happyReduction_145 +happyReduction_145 (HappyAbsSyn8 happy_var_1) + = HappyAbsSyn58 + (EInt happy_var_1 + ) +happyReduction_145 _ = notHappyAtAll + +happyReduce_146 = happySpecReduce_1 58# happyReduction_146 +happyReduction_146 (HappyAbsSyn10 happy_var_1) + = HappyAbsSyn58 + (EFloat happy_var_1 + ) +happyReduction_146 _ = notHappyAtAll + +happyReduce_147 = happySpecReduce_1 58# happyReduction_147 +happyReduction_147 _ + = HappyAbsSyn58 + (EMeta + ) + +happyReduce_148 = happySpecReduce_2 58# happyReduction_148 +happyReduction_148 _ + _ + = HappyAbsSyn58 + (EEmpty + ) + +happyReduce_149 = happySpecReduce_1 58# happyReduction_149 +happyReduction_149 _ + = HappyAbsSyn58 + (EData + ) + +happyReduce_150 = happyReduce 4# 58# happyReduction_150 +happyReduction_150 (_ `HappyStk` + (HappyAbsSyn66 happy_var_3) `HappyStk` + (HappyAbsSyn12 happy_var_2) `HappyStk` + _ `HappyStk` + happyRest) + = HappyAbsSyn58 + (EList happy_var_2 happy_var_3 + ) `HappyStk` happyRest + +happyReduce_151 = happySpecReduce_3 58# happyReduction_151 +happyReduction_151 _ + (HappyAbsSyn9 happy_var_2) + _ + = HappyAbsSyn58 + (EStrings happy_var_2 + ) +happyReduction_151 _ _ _ = notHappyAtAll + +happyReduce_152 = happySpecReduce_3 58# happyReduction_152 +happyReduction_152 _ + (HappyAbsSyn57 happy_var_2) + _ + = HappyAbsSyn58 + (ERecord happy_var_2 + ) +happyReduction_152 _ _ _ = notHappyAtAll + +happyReduce_153 = happySpecReduce_3 58# happyReduction_153 +happyReduction_153 _ + (HappyAbsSyn80 happy_var_2) + _ + = HappyAbsSyn58 + (ETuple happy_var_2 + ) +happyReduction_153 _ _ _ = notHappyAtAll + +happyReduce_154 = happyReduce 4# 58# happyReduction_154 +happyReduction_154 (_ `HappyStk` + (HappyAbsSyn12 happy_var_3) `HappyStk` + _ `HappyStk` + _ `HappyStk` + happyRest) + = HappyAbsSyn58 + (EIndir happy_var_3 + ) `HappyStk` happyRest + +happyReduce_155 = happyReduce 5# 58# happyReduction_155 +happyReduction_155 (_ `HappyStk` + (HappyAbsSyn58 happy_var_4) `HappyStk` + _ `HappyStk` + (HappyAbsSyn58 happy_var_2) `HappyStk` + _ `HappyStk` + happyRest) + = HappyAbsSyn58 + (ETyped happy_var_2 happy_var_4 + ) `HappyStk` happyRest + +happyReduce_156 = happySpecReduce_3 58# happyReduction_156 +happyReduction_156 _ + (HappyAbsSyn58 happy_var_2) + _ + = HappyAbsSyn58 + (happy_var_2 + ) +happyReduction_156 _ _ _ = notHappyAtAll + +happyReduce_157 = happySpecReduce_1 58# happyReduction_157 +happyReduction_157 (HappyAbsSyn11 happy_var_1) + = HappyAbsSyn58 + (ELString happy_var_1 + ) +happyReduction_157 _ = notHappyAtAll + +happyReduce_158 = happySpecReduce_3 59# happyReduction_158 +happyReduction_158 (HappyAbsSyn71 happy_var_3) + _ + (HappyAbsSyn58 happy_var_1) + = HappyAbsSyn58 + (EProj happy_var_1 happy_var_3 + ) +happyReduction_158 _ _ _ = notHappyAtAll + +happyReduce_159 = happyReduce 5# 59# happyReduction_159 +happyReduction_159 (_ `HappyStk` + (HappyAbsSyn12 happy_var_4) `HappyStk` + _ `HappyStk` + (HappyAbsSyn12 happy_var_2) `HappyStk` + _ `HappyStk` + happyRest) + = HappyAbsSyn58 + (EQConstr happy_var_2 happy_var_4 + ) `HappyStk` happyRest + +happyReduce_160 = happyReduce 4# 59# happyReduction_160 +happyReduction_160 ((HappyAbsSyn12 happy_var_4) `HappyStk` + _ `HappyStk` + (HappyAbsSyn12 happy_var_2) `HappyStk` + _ `HappyStk` + happyRest) + = HappyAbsSyn58 + (EQCons happy_var_2 happy_var_4 + ) `HappyStk` happyRest + +happyReduce_161 = happySpecReduce_1 59# happyReduction_161 +happyReduction_161 (HappyAbsSyn58 happy_var_1) + = HappyAbsSyn58 + (happy_var_1 + ) +happyReduction_161 _ = notHappyAtAll + +happyReduce_162 = happySpecReduce_2 60# happyReduction_162 +happyReduction_162 (HappyAbsSyn58 happy_var_2) + (HappyAbsSyn58 happy_var_1) + = HappyAbsSyn58 + (EApp happy_var_1 happy_var_2 + ) +happyReduction_162 _ _ = notHappyAtAll + +happyReduce_163 = happyReduce 4# 60# happyReduction_163 +happyReduction_163 (_ `HappyStk` + (HappyAbsSyn83 happy_var_3) `HappyStk` + _ `HappyStk` + _ `HappyStk` + happyRest) + = HappyAbsSyn58 + (ETable happy_var_3 + ) `HappyStk` happyRest + +happyReduce_164 = happyReduce 5# 60# happyReduction_164 +happyReduction_164 (_ `HappyStk` + (HappyAbsSyn83 happy_var_4) `HappyStk` + _ `HappyStk` + (HappyAbsSyn58 happy_var_2) `HappyStk` + _ `HappyStk` + happyRest) + = HappyAbsSyn58 + (ETTable happy_var_2 happy_var_4 + ) `HappyStk` happyRest + +happyReduce_165 = happyReduce 5# 60# happyReduction_165 +happyReduction_165 (_ `HappyStk` + (HappyAbsSyn65 happy_var_4) `HappyStk` + _ `HappyStk` + (HappyAbsSyn58 happy_var_2) `HappyStk` + _ `HappyStk` + happyRest) + = HappyAbsSyn58 + (EVTable happy_var_2 happy_var_4 + ) `HappyStk` happyRest + +happyReduce_166 = happyReduce 6# 60# happyReduction_166 +happyReduction_166 (_ `HappyStk` + (HappyAbsSyn83 happy_var_5) `HappyStk` + _ `HappyStk` + _ `HappyStk` + (HappyAbsSyn58 happy_var_2) `HappyStk` + _ `HappyStk` + happyRest) + = HappyAbsSyn58 + (ECase happy_var_2 happy_var_5 + ) `HappyStk` happyRest + +happyReduce_167 = happyReduce 4# 60# happyReduction_167 +happyReduction_167 (_ `HappyStk` + (HappyAbsSyn65 happy_var_3) `HappyStk` + _ `HappyStk` + _ `HappyStk` + happyRest) + = HappyAbsSyn58 + (EVariants happy_var_3 + ) `HappyStk` happyRest + +happyReduce_168 = happyReduce 6# 60# happyReduction_168 +happyReduction_168 (_ `HappyStk` + (HappyAbsSyn87 happy_var_5) `HappyStk` + _ `HappyStk` + (HappyAbsSyn58 happy_var_3) `HappyStk` + _ `HappyStk` + _ `HappyStk` + happyRest) + = HappyAbsSyn58 + (EPre happy_var_3 happy_var_5 + ) `HappyStk` happyRest + +happyReduce_169 = happyReduce 4# 60# happyReduction_169 +happyReduction_169 (_ `HappyStk` + (HappyAbsSyn65 happy_var_3) `HappyStk` + _ `HappyStk` + _ `HappyStk` + happyRest) + = HappyAbsSyn58 + (EStrs happy_var_3 + ) `HappyStk` happyRest + +happyReduce_170 = happySpecReduce_3 60# happyReduction_170 +happyReduction_170 (HappyAbsSyn58 happy_var_3) + _ + (HappyAbsSyn12 happy_var_1) + = HappyAbsSyn58 + (EConAt happy_var_1 happy_var_3 + ) +happyReduction_170 _ _ _ = notHappyAtAll + +happyReduce_171 = happySpecReduce_2 60# happyReduction_171 +happyReduction_171 (HappyAbsSyn67 happy_var_2) + _ + = HappyAbsSyn58 + (EPatt happy_var_2 + ) +happyReduction_171 _ _ = notHappyAtAll + +happyReduce_172 = happySpecReduce_2 60# happyReduction_172 +happyReduction_172 (HappyAbsSyn58 happy_var_2) + _ + = HappyAbsSyn58 + (EPattType happy_var_2 + ) +happyReduction_172 _ _ = notHappyAtAll + +happyReduce_173 = happySpecReduce_1 60# happyReduction_173 +happyReduction_173 (HappyAbsSyn58 happy_var_1) + = HappyAbsSyn58 + (happy_var_1 + ) +happyReduction_173 _ = notHappyAtAll + +happyReduce_174 = happySpecReduce_2 60# happyReduction_174 +happyReduction_174 (HappyAbsSyn12 happy_var_2) + _ + = HappyAbsSyn58 + (ELin happy_var_2 + ) +happyReduction_174 _ _ = notHappyAtAll + +happyReduce_175 = happySpecReduce_3 61# happyReduction_175 +happyReduction_175 (HappyAbsSyn58 happy_var_3) + _ + (HappyAbsSyn58 happy_var_1) + = HappyAbsSyn58 + (ESelect happy_var_1 happy_var_3 + ) +happyReduction_175 _ _ _ = notHappyAtAll + +happyReduce_176 = happySpecReduce_3 61# happyReduction_176 +happyReduction_176 (HappyAbsSyn58 happy_var_3) + _ + (HappyAbsSyn58 happy_var_1) + = HappyAbsSyn58 + (ETupTyp happy_var_1 happy_var_3 + ) +happyReduction_176 _ _ _ = notHappyAtAll + +happyReduce_177 = happySpecReduce_3 61# happyReduction_177 +happyReduction_177 (HappyAbsSyn58 happy_var_3) + _ + (HappyAbsSyn58 happy_var_1) + = HappyAbsSyn58 + (EExtend happy_var_1 happy_var_3 + ) +happyReduction_177 _ _ _ = notHappyAtAll + +happyReduce_178 = happySpecReduce_1 61# happyReduction_178 +happyReduction_178 (HappyAbsSyn58 happy_var_1) + = HappyAbsSyn58 + (happy_var_1 + ) +happyReduction_178 _ = notHappyAtAll + +happyReduce_179 = happySpecReduce_3 62# happyReduction_179 +happyReduction_179 (HappyAbsSyn58 happy_var_3) + _ + (HappyAbsSyn58 happy_var_1) + = HappyAbsSyn58 + (EGlue happy_var_1 happy_var_3 + ) +happyReduction_179 _ _ _ = notHappyAtAll + +happyReduce_180 = happySpecReduce_1 62# happyReduction_180 +happyReduction_180 (HappyAbsSyn58 happy_var_1) + = HappyAbsSyn58 + (happy_var_1 + ) +happyReduction_180 _ = notHappyAtAll + +happyReduce_181 = happySpecReduce_3 63# happyReduction_181 +happyReduction_181 (HappyAbsSyn58 happy_var_3) + _ + (HappyAbsSyn58 happy_var_1) + = HappyAbsSyn58 + (EConcat happy_var_1 happy_var_3 + ) +happyReduction_181 _ _ _ = notHappyAtAll + +happyReduce_182 = happyReduce 4# 63# happyReduction_182 +happyReduction_182 ((HappyAbsSyn58 happy_var_4) `HappyStk` + _ `HappyStk` + (HappyAbsSyn76 happy_var_2) `HappyStk` + _ `HappyStk` + happyRest) + = HappyAbsSyn58 + (EAbstr happy_var_2 happy_var_4 + ) `HappyStk` happyRest + +happyReduce_183 = happyReduce 5# 63# happyReduction_183 +happyReduction_183 ((HappyAbsSyn58 happy_var_5) `HappyStk` + _ `HappyStk` + (HappyAbsSyn76 happy_var_3) `HappyStk` + _ `HappyStk` + _ `HappyStk` + happyRest) + = HappyAbsSyn58 + (ECTable happy_var_3 happy_var_5 + ) `HappyStk` happyRest + +happyReduce_184 = happySpecReduce_3 63# happyReduction_184 +happyReduction_184 (HappyAbsSyn58 happy_var_3) + _ + (HappyAbsSyn77 happy_var_1) + = HappyAbsSyn58 + (EProd happy_var_1 happy_var_3 + ) +happyReduction_184 _ _ _ = notHappyAtAll + +happyReduce_185 = happySpecReduce_3 63# happyReduction_185 +happyReduction_185 (HappyAbsSyn58 happy_var_3) + _ + (HappyAbsSyn58 happy_var_1) + = HappyAbsSyn58 + (ETType happy_var_1 happy_var_3 + ) +happyReduction_185 _ _ _ = notHappyAtAll + +happyReduce_186 = happyReduce 6# 63# happyReduction_186 +happyReduction_186 ((HappyAbsSyn58 happy_var_6) `HappyStk` + _ `HappyStk` + _ `HappyStk` + (HappyAbsSyn57 happy_var_3) `HappyStk` + _ `HappyStk` + _ `HappyStk` + happyRest) + = HappyAbsSyn58 + (ELet happy_var_3 happy_var_6 + ) `HappyStk` happyRest + +happyReduce_187 = happyReduce 4# 63# happyReduction_187 +happyReduction_187 ((HappyAbsSyn58 happy_var_4) `HappyStk` + _ `HappyStk` + (HappyAbsSyn57 happy_var_2) `HappyStk` + _ `HappyStk` + happyRest) + = HappyAbsSyn58 + (ELetb happy_var_2 happy_var_4 + ) `HappyStk` happyRest + +happyReduce_188 = happyReduce 5# 63# happyReduction_188 +happyReduction_188 (_ `HappyStk` + (HappyAbsSyn57 happy_var_4) `HappyStk` + _ `HappyStk` + _ `HappyStk` + (HappyAbsSyn58 happy_var_1) `HappyStk` + happyRest) + = HappyAbsSyn58 + (EWhere happy_var_1 happy_var_4 + ) `HappyStk` happyRest + +happyReduce_189 = happyReduce 4# 63# happyReduction_189 +happyReduction_189 (_ `HappyStk` + (HappyAbsSyn85 happy_var_3) `HappyStk` + _ `HappyStk` + _ `HappyStk` + happyRest) + = HappyAbsSyn58 + (EEqs happy_var_3 + ) `HappyStk` happyRest + +happyReduce_190 = happySpecReduce_3 63# happyReduction_190 +happyReduction_190 (HappyAbsSyn9 happy_var_3) + (HappyAbsSyn58 happy_var_2) + _ + = HappyAbsSyn58 + (EExample happy_var_2 happy_var_3 + ) +happyReduction_190 _ _ _ = notHappyAtAll + +happyReduce_191 = happySpecReduce_1 63# happyReduction_191 +happyReduction_191 (HappyAbsSyn58 happy_var_1) + = HappyAbsSyn58 + (happy_var_1 + ) +happyReduction_191 _ = notHappyAtAll + +happyReduce_192 = happySpecReduce_1 64# happyReduction_192 +happyReduction_192 (HappyAbsSyn58 happy_var_1) + = HappyAbsSyn58 + (happy_var_1 + ) +happyReduction_192 _ = notHappyAtAll + +happyReduce_193 = happySpecReduce_0 65# happyReduction_193 +happyReduction_193 = HappyAbsSyn65 + ([] + ) + +happyReduce_194 = happySpecReduce_1 65# happyReduction_194 +happyReduction_194 (HappyAbsSyn58 happy_var_1) + = HappyAbsSyn65 + ((:[]) happy_var_1 + ) +happyReduction_194 _ = notHappyAtAll + +happyReduce_195 = happySpecReduce_3 65# happyReduction_195 +happyReduction_195 (HappyAbsSyn65 happy_var_3) + _ + (HappyAbsSyn58 happy_var_1) + = HappyAbsSyn65 + ((:) happy_var_1 happy_var_3 + ) +happyReduction_195 _ _ _ = notHappyAtAll + +happyReduce_196 = happySpecReduce_0 66# happyReduction_196 +happyReduction_196 = HappyAbsSyn66 + (NilExp + ) + +happyReduce_197 = happySpecReduce_2 66# happyReduction_197 +happyReduction_197 (HappyAbsSyn66 happy_var_2) + (HappyAbsSyn58 happy_var_1) + = HappyAbsSyn66 + (ConsExp happy_var_1 happy_var_2 + ) +happyReduction_197 _ _ = notHappyAtAll + +happyReduce_198 = happySpecReduce_1 67# happyReduction_198 +happyReduction_198 _ + = HappyAbsSyn67 + (PChar + ) + +happyReduce_199 = happySpecReduce_3 67# happyReduction_199 +happyReduction_199 _ + (HappyAbsSyn9 happy_var_2) + _ + = HappyAbsSyn67 + (PChars happy_var_2 + ) +happyReduction_199 _ _ _ = notHappyAtAll + +happyReduce_200 = happySpecReduce_2 67# happyReduction_200 +happyReduction_200 (HappyAbsSyn12 happy_var_2) + _ + = HappyAbsSyn67 + (PMacro happy_var_2 + ) +happyReduction_200 _ _ = notHappyAtAll + +happyReduce_201 = happyReduce 4# 67# happyReduction_201 +happyReduction_201 ((HappyAbsSyn12 happy_var_4) `HappyStk` + _ `HappyStk` + (HappyAbsSyn12 happy_var_2) `HappyStk` + _ `HappyStk` + happyRest) + = HappyAbsSyn67 + (PM happy_var_2 happy_var_4 + ) `HappyStk` happyRest + +happyReduce_202 = happySpecReduce_1 67# happyReduction_202 +happyReduction_202 _ + = HappyAbsSyn67 + (PW + ) + +happyReduce_203 = happySpecReduce_1 67# happyReduction_203 +happyReduction_203 (HappyAbsSyn12 happy_var_1) + = HappyAbsSyn67 + (PV happy_var_1 + ) +happyReduction_203 _ = notHappyAtAll + +happyReduce_204 = happySpecReduce_3 67# happyReduction_204 +happyReduction_204 _ + (HappyAbsSyn12 happy_var_2) + _ + = HappyAbsSyn67 + (PCon happy_var_2 + ) +happyReduction_204 _ _ _ = notHappyAtAll + +happyReduce_205 = happySpecReduce_3 67# happyReduction_205 +happyReduction_205 (HappyAbsSyn12 happy_var_3) + _ + (HappyAbsSyn12 happy_var_1) + = HappyAbsSyn67 + (PQ happy_var_1 happy_var_3 + ) +happyReduction_205 _ _ _ = notHappyAtAll + +happyReduce_206 = happySpecReduce_1 67# happyReduction_206 +happyReduction_206 (HappyAbsSyn8 happy_var_1) + = HappyAbsSyn67 + (PInt happy_var_1 + ) +happyReduction_206 _ = notHappyAtAll + +happyReduce_207 = happySpecReduce_1 67# happyReduction_207 +happyReduction_207 (HappyAbsSyn10 happy_var_1) + = HappyAbsSyn67 + (PFloat happy_var_1 + ) +happyReduction_207 _ = notHappyAtAll + +happyReduce_208 = happySpecReduce_1 67# happyReduction_208 +happyReduction_208 (HappyAbsSyn9 happy_var_1) + = HappyAbsSyn67 + (PStr happy_var_1 + ) +happyReduction_208 _ = notHappyAtAll + +happyReduce_209 = happySpecReduce_3 67# happyReduction_209 +happyReduction_209 _ + (HappyAbsSyn73 happy_var_2) + _ + = HappyAbsSyn67 + (PR happy_var_2 + ) +happyReduction_209 _ _ _ = notHappyAtAll + +happyReduce_210 = happySpecReduce_3 67# happyReduction_210 +happyReduction_210 _ + (HappyAbsSyn81 happy_var_2) + _ + = HappyAbsSyn67 + (PTup happy_var_2 + ) +happyReduction_210 _ _ _ = notHappyAtAll + +happyReduce_211 = happySpecReduce_3 67# happyReduction_211 +happyReduction_211 _ + (HappyAbsSyn67 happy_var_2) + _ + = HappyAbsSyn67 + (happy_var_2 + ) +happyReduction_211 _ _ _ = notHappyAtAll + +happyReduce_212 = happySpecReduce_2 68# happyReduction_212 +happyReduction_212 (HappyAbsSyn74 happy_var_2) + (HappyAbsSyn12 happy_var_1) + = HappyAbsSyn67 + (PC happy_var_1 happy_var_2 + ) +happyReduction_212 _ _ = notHappyAtAll + +happyReduce_213 = happyReduce 4# 68# happyReduction_213 +happyReduction_213 ((HappyAbsSyn74 happy_var_4) `HappyStk` + (HappyAbsSyn12 happy_var_3) `HappyStk` + _ `HappyStk` + (HappyAbsSyn12 happy_var_1) `HappyStk` + happyRest) + = HappyAbsSyn67 + (PQC happy_var_1 happy_var_3 happy_var_4 + ) `HappyStk` happyRest + +happyReduce_214 = happySpecReduce_2 68# happyReduction_214 +happyReduction_214 _ + (HappyAbsSyn67 happy_var_1) + = HappyAbsSyn67 + (PRep happy_var_1 + ) +happyReduction_214 _ _ = notHappyAtAll + +happyReduce_215 = happySpecReduce_3 68# happyReduction_215 +happyReduction_215 (HappyAbsSyn67 happy_var_3) + _ + (HappyAbsSyn12 happy_var_1) + = HappyAbsSyn67 + (PAs happy_var_1 happy_var_3 + ) +happyReduction_215 _ _ _ = notHappyAtAll + +happyReduce_216 = happySpecReduce_2 68# happyReduction_216 +happyReduction_216 (HappyAbsSyn67 happy_var_2) + _ + = HappyAbsSyn67 + (PNeg happy_var_2 + ) +happyReduction_216 _ _ = notHappyAtAll + +happyReduce_217 = happySpecReduce_1 68# happyReduction_217 +happyReduction_217 (HappyAbsSyn67 happy_var_1) + = HappyAbsSyn67 + (happy_var_1 + ) +happyReduction_217 _ = notHappyAtAll + +happyReduce_218 = happySpecReduce_3 69# happyReduction_218 +happyReduction_218 (HappyAbsSyn67 happy_var_3) + _ + (HappyAbsSyn67 happy_var_1) + = HappyAbsSyn67 + (PDisj happy_var_1 happy_var_3 + ) +happyReduction_218 _ _ _ = notHappyAtAll + +happyReduce_219 = happySpecReduce_3 69# happyReduction_219 +happyReduction_219 (HappyAbsSyn67 happy_var_3) + _ + (HappyAbsSyn67 happy_var_1) + = HappyAbsSyn67 + (PSeq happy_var_1 happy_var_3 + ) +happyReduction_219 _ _ _ = notHappyAtAll + +happyReduce_220 = happySpecReduce_1 69# happyReduction_220 +happyReduction_220 (HappyAbsSyn67 happy_var_1) + = HappyAbsSyn67 + (happy_var_1 + ) +happyReduction_220 _ = notHappyAtAll + +happyReduce_221 = happySpecReduce_3 70# happyReduction_221 +happyReduction_221 (HappyAbsSyn67 happy_var_3) + _ + (HappyAbsSyn53 happy_var_1) + = HappyAbsSyn70 + (PA happy_var_1 happy_var_3 + ) +happyReduction_221 _ _ _ = notHappyAtAll + +happyReduce_222 = happySpecReduce_1 71# happyReduction_222 +happyReduction_222 (HappyAbsSyn12 happy_var_1) + = HappyAbsSyn71 + (LIdent happy_var_1 + ) +happyReduction_222 _ = notHappyAtAll + +happyReduce_223 = happySpecReduce_2 71# happyReduction_223 +happyReduction_223 (HappyAbsSyn8 happy_var_2) + _ + = HappyAbsSyn71 + (LVar happy_var_2 + ) +happyReduction_223 _ _ = notHappyAtAll + +happyReduce_224 = happySpecReduce_1 72# happyReduction_224 +happyReduction_224 _ + = HappyAbsSyn72 + (Sort_Type + ) + +happyReduce_225 = happySpecReduce_1 72# happyReduction_225 +happyReduction_225 _ + = HappyAbsSyn72 + (Sort_PType + ) + +happyReduce_226 = happySpecReduce_1 72# happyReduction_226 +happyReduction_226 _ + = HappyAbsSyn72 + (Sort_Tok + ) + +happyReduce_227 = happySpecReduce_1 72# happyReduction_227 +happyReduction_227 _ + = HappyAbsSyn72 + (Sort_Str + ) + +happyReduce_228 = happySpecReduce_1 72# happyReduction_228 +happyReduction_228 _ + = HappyAbsSyn72 + (Sort_Strs + ) + +happyReduce_229 = happySpecReduce_0 73# happyReduction_229 +happyReduction_229 = HappyAbsSyn73 + ([] + ) + +happyReduce_230 = happySpecReduce_1 73# happyReduction_230 +happyReduction_230 (HappyAbsSyn70 happy_var_1) + = HappyAbsSyn73 + ((:[]) happy_var_1 + ) +happyReduction_230 _ = notHappyAtAll + +happyReduce_231 = happySpecReduce_3 73# happyReduction_231 +happyReduction_231 (HappyAbsSyn73 happy_var_3) + _ + (HappyAbsSyn70 happy_var_1) + = HappyAbsSyn73 + ((:) happy_var_1 happy_var_3 + ) +happyReduction_231 _ _ _ = notHappyAtAll + +happyReduce_232 = happySpecReduce_1 74# happyReduction_232 +happyReduction_232 (HappyAbsSyn67 happy_var_1) + = HappyAbsSyn74 + ((:[]) happy_var_1 + ) +happyReduction_232 _ = notHappyAtAll + +happyReduce_233 = happySpecReduce_2 74# happyReduction_233 +happyReduction_233 (HappyAbsSyn74 happy_var_2) + (HappyAbsSyn67 happy_var_1) + = HappyAbsSyn74 + ((:) happy_var_1 happy_var_2 + ) +happyReduction_233 _ _ = notHappyAtAll + +happyReduce_234 = happySpecReduce_1 75# happyReduction_234 +happyReduction_234 (HappyAbsSyn12 happy_var_1) + = HappyAbsSyn75 + (BIdent happy_var_1 + ) +happyReduction_234 _ = notHappyAtAll + +happyReduce_235 = happySpecReduce_1 75# happyReduction_235 +happyReduction_235 _ + = HappyAbsSyn75 + (BWild + ) + +happyReduce_236 = happySpecReduce_0 76# happyReduction_236 +happyReduction_236 = HappyAbsSyn76 + ([] + ) + +happyReduce_237 = happySpecReduce_1 76# happyReduction_237 +happyReduction_237 (HappyAbsSyn75 happy_var_1) + = HappyAbsSyn76 + ((:[]) happy_var_1 + ) +happyReduction_237 _ = notHappyAtAll + +happyReduce_238 = happySpecReduce_3 76# happyReduction_238 +happyReduction_238 (HappyAbsSyn76 happy_var_3) + _ + (HappyAbsSyn75 happy_var_1) + = HappyAbsSyn76 + ((:) happy_var_1 happy_var_3 + ) +happyReduction_238 _ _ _ = notHappyAtAll + +happyReduce_239 = happyReduce 5# 77# happyReduction_239 +happyReduction_239 (_ `HappyStk` + (HappyAbsSyn58 happy_var_4) `HappyStk` + _ `HappyStk` + (HappyAbsSyn76 happy_var_2) `HappyStk` + _ `HappyStk` + happyRest) + = HappyAbsSyn77 + (DDec happy_var_2 happy_var_4 + ) `HappyStk` happyRest + +happyReduce_240 = happySpecReduce_1 77# happyReduction_240 +happyReduction_240 (HappyAbsSyn58 happy_var_1) + = HappyAbsSyn77 + (DExp happy_var_1 + ) +happyReduction_240 _ = notHappyAtAll + +happyReduce_241 = happySpecReduce_1 78# happyReduction_241 +happyReduction_241 (HappyAbsSyn58 happy_var_1) + = HappyAbsSyn78 + (TComp happy_var_1 + ) +happyReduction_241 _ = notHappyAtAll + +happyReduce_242 = happySpecReduce_1 79# happyReduction_242 +happyReduction_242 (HappyAbsSyn67 happy_var_1) + = HappyAbsSyn79 + (PTComp happy_var_1 + ) +happyReduction_242 _ = notHappyAtAll + +happyReduce_243 = happySpecReduce_0 80# happyReduction_243 +happyReduction_243 = HappyAbsSyn80 + ([] + ) + +happyReduce_244 = happySpecReduce_1 80# happyReduction_244 +happyReduction_244 (HappyAbsSyn78 happy_var_1) + = HappyAbsSyn80 + ((:[]) happy_var_1 + ) +happyReduction_244 _ = notHappyAtAll + +happyReduce_245 = happySpecReduce_3 80# happyReduction_245 +happyReduction_245 (HappyAbsSyn80 happy_var_3) + _ + (HappyAbsSyn78 happy_var_1) + = HappyAbsSyn80 + ((:) happy_var_1 happy_var_3 + ) +happyReduction_245 _ _ _ = notHappyAtAll + +happyReduce_246 = happySpecReduce_0 81# happyReduction_246 +happyReduction_246 = HappyAbsSyn81 + ([] + ) + +happyReduce_247 = happySpecReduce_1 81# happyReduction_247 +happyReduction_247 (HappyAbsSyn79 happy_var_1) + = HappyAbsSyn81 + ((:[]) happy_var_1 + ) +happyReduction_247 _ = notHappyAtAll + +happyReduce_248 = happySpecReduce_3 81# happyReduction_248 +happyReduction_248 (HappyAbsSyn81 happy_var_3) + _ + (HappyAbsSyn79 happy_var_1) + = HappyAbsSyn81 + ((:) happy_var_1 happy_var_3 + ) +happyReduction_248 _ _ _ = notHappyAtAll + +happyReduce_249 = happySpecReduce_3 82# happyReduction_249 +happyReduction_249 (HappyAbsSyn58 happy_var_3) + _ + (HappyAbsSyn67 happy_var_1) + = HappyAbsSyn82 + (Case happy_var_1 happy_var_3 + ) +happyReduction_249 _ _ _ = notHappyAtAll + +happyReduce_250 = happySpecReduce_1 83# happyReduction_250 +happyReduction_250 (HappyAbsSyn82 happy_var_1) + = HappyAbsSyn83 + ((:[]) happy_var_1 + ) +happyReduction_250 _ = notHappyAtAll + +happyReduce_251 = happySpecReduce_3 83# happyReduction_251 +happyReduction_251 (HappyAbsSyn83 happy_var_3) + _ + (HappyAbsSyn82 happy_var_1) + = HappyAbsSyn83 + ((:) happy_var_1 happy_var_3 + ) +happyReduction_251 _ _ _ = notHappyAtAll + +happyReduce_252 = happySpecReduce_3 84# happyReduction_252 +happyReduction_252 (HappyAbsSyn58 happy_var_3) + _ + (HappyAbsSyn74 happy_var_1) + = HappyAbsSyn84 + (Equ happy_var_1 happy_var_3 + ) +happyReduction_252 _ _ _ = notHappyAtAll + +happyReduce_253 = happySpecReduce_0 85# happyReduction_253 +happyReduction_253 = HappyAbsSyn85 + ([] + ) + +happyReduce_254 = happySpecReduce_1 85# happyReduction_254 +happyReduction_254 (HappyAbsSyn84 happy_var_1) + = HappyAbsSyn85 + ((:[]) happy_var_1 + ) +happyReduction_254 _ = notHappyAtAll + +happyReduce_255 = happySpecReduce_3 85# happyReduction_255 +happyReduction_255 (HappyAbsSyn85 happy_var_3) + _ + (HappyAbsSyn84 happy_var_1) + = HappyAbsSyn85 + ((:) happy_var_1 happy_var_3 + ) +happyReduction_255 _ _ _ = notHappyAtAll + +happyReduce_256 = happySpecReduce_3 86# happyReduction_256 +happyReduction_256 (HappyAbsSyn58 happy_var_3) + _ + (HappyAbsSyn58 happy_var_1) + = HappyAbsSyn86 + (Alt happy_var_1 happy_var_3 + ) +happyReduction_256 _ _ _ = notHappyAtAll + +happyReduce_257 = happySpecReduce_0 87# happyReduction_257 +happyReduction_257 = HappyAbsSyn87 + ([] + ) + +happyReduce_258 = happySpecReduce_1 87# happyReduction_258 +happyReduction_258 (HappyAbsSyn86 happy_var_1) + = HappyAbsSyn87 + ((:[]) happy_var_1 + ) +happyReduction_258 _ = notHappyAtAll + +happyReduce_259 = happySpecReduce_3 87# happyReduction_259 +happyReduction_259 (HappyAbsSyn87 happy_var_3) + _ + (HappyAbsSyn86 happy_var_1) + = HappyAbsSyn87 + ((:) happy_var_1 happy_var_3 + ) +happyReduction_259 _ _ _ = notHappyAtAll + +happyReduce_260 = happyReduce 5# 88# happyReduction_260 +happyReduction_260 (_ `HappyStk` + (HappyAbsSyn58 happy_var_4) `HappyStk` + _ `HappyStk` + (HappyAbsSyn76 happy_var_2) `HappyStk` + _ `HappyStk` + happyRest) + = HappyAbsSyn88 + (DDDec happy_var_2 happy_var_4 + ) `HappyStk` happyRest + +happyReduce_261 = happySpecReduce_1 88# happyReduction_261 +happyReduction_261 (HappyAbsSyn58 happy_var_1) + = HappyAbsSyn88 + (DDExp happy_var_1 + ) +happyReduction_261 _ = notHappyAtAll + +happyReduce_262 = happySpecReduce_0 89# happyReduction_262 +happyReduction_262 = HappyAbsSyn89 + ([] + ) + +happyReduce_263 = happySpecReduce_2 89# happyReduction_263 +happyReduction_263 (HappyAbsSyn88 happy_var_2) + (HappyAbsSyn89 happy_var_1) + = HappyAbsSyn89 + (flip (:) happy_var_1 happy_var_2 + ) +happyReduction_263 _ _ = notHappyAtAll + +happyReduce_264 = happySpecReduce_2 90# happyReduction_264 +happyReduction_264 (HappyAbsSyn25 happy_var_2) + (HappyAbsSyn91 happy_var_1) + = HappyAbsSyn90 + (OldGr happy_var_1 (reverse happy_var_2) + ) +happyReduction_264 _ _ = notHappyAtAll + +happyReduce_265 = happySpecReduce_0 91# happyReduction_265 +happyReduction_265 = HappyAbsSyn91 + (NoIncl + ) + +happyReduce_266 = happySpecReduce_2 91# happyReduction_266 +happyReduction_266 (HappyAbsSyn93 happy_var_2) + _ + = HappyAbsSyn91 + (Incl happy_var_2 + ) +happyReduction_266 _ _ = notHappyAtAll + +happyReduce_267 = happySpecReduce_1 92# happyReduction_267 +happyReduction_267 (HappyAbsSyn9 happy_var_1) + = HappyAbsSyn92 + (FString happy_var_1 + ) +happyReduction_267 _ = notHappyAtAll + +happyReduce_268 = happySpecReduce_1 92# happyReduction_268 +happyReduction_268 (HappyAbsSyn12 happy_var_1) + = HappyAbsSyn92 + (FIdent happy_var_1 + ) +happyReduction_268 _ = notHappyAtAll + +happyReduce_269 = happySpecReduce_2 92# happyReduction_269 +happyReduction_269 (HappyAbsSyn92 happy_var_2) + _ + = HappyAbsSyn92 + (FSlash happy_var_2 + ) +happyReduction_269 _ _ = notHappyAtAll + +happyReduce_270 = happySpecReduce_2 92# happyReduction_270 +happyReduction_270 (HappyAbsSyn92 happy_var_2) + _ + = HappyAbsSyn92 + (FDot happy_var_2 + ) +happyReduction_270 _ _ = notHappyAtAll + +happyReduce_271 = happySpecReduce_2 92# happyReduction_271 +happyReduction_271 (HappyAbsSyn92 happy_var_2) + _ + = HappyAbsSyn92 + (FMinus happy_var_2 + ) +happyReduction_271 _ _ = notHappyAtAll + +happyReduce_272 = happySpecReduce_2 92# happyReduction_272 +happyReduction_272 (HappyAbsSyn92 happy_var_2) + (HappyAbsSyn12 happy_var_1) + = HappyAbsSyn92 + (FAddId happy_var_1 happy_var_2 + ) +happyReduction_272 _ _ = notHappyAtAll + +happyReduce_273 = happySpecReduce_2 93# happyReduction_273 +happyReduction_273 _ + (HappyAbsSyn92 happy_var_1) + = HappyAbsSyn93 + ((:[]) happy_var_1 + ) +happyReduction_273 _ _ = notHappyAtAll + +happyReduce_274 = happySpecReduce_3 93# happyReduction_274 +happyReduction_274 (HappyAbsSyn93 happy_var_3) + _ + (HappyAbsSyn92 happy_var_1) + = HappyAbsSyn93 + ((:) happy_var_1 happy_var_3 + ) +happyReduction_274 _ _ _ = notHappyAtAll + +happyNewToken action sts stk [] = + action 176# 176# notHappyAtAll (HappyState action) sts stk [] + +happyNewToken action sts stk (tk:tks) = + let cont i = action i i tk (HappyState action) sts stk tks in + case tk of { + PT _ (TS ";") -> cont 94#; + PT _ (TS "=") -> cont 95#; + PT _ (TS "{") -> cont 96#; + PT _ (TS "}") -> cont 97#; + PT _ (TS "(") -> cont 98#; + PT _ (TS ")") -> cont 99#; + PT _ (TS ":") -> cont 100#; + PT _ (TS "->") -> cont 101#; + PT _ (TS "**") -> cont 102#; + PT _ (TS ",") -> cont 103#; + PT _ (TS "[") -> cont 104#; + PT _ (TS "]") -> cont 105#; + PT _ (TS "-") -> cont 106#; + PT _ (TS ".") -> cont 107#; + PT _ (TS "|") -> cont 108#; + PT _ (TS "%") -> cont 109#; + PT _ (TS "?") -> cont 110#; + PT _ (TS "<") -> cont 111#; + PT _ (TS ">") -> cont 112#; + PT _ (TS "@") -> cont 113#; + PT _ (TS "#") -> cont 114#; + PT _ (TS "!") -> cont 115#; + PT _ (TS "*") -> cont 116#; + PT _ (TS "+") -> cont 117#; + PT _ (TS "++") -> cont 118#; + PT _ (TS "\\") -> cont 119#; + PT _ (TS "=>") -> cont 120#; + PT _ (TS "_") -> cont 121#; + PT _ (TS "$") -> cont 122#; + PT _ (TS "/") -> cont 123#; + PT _ (TS "Lin") -> cont 124#; + PT _ (TS "PType") -> cont 125#; + PT _ (TS "Str") -> cont 126#; + PT _ (TS "Strs") -> cont 127#; + PT _ (TS "Tok") -> cont 128#; + PT _ (TS "Type") -> cont 129#; + PT _ (TS "abstract") -> cont 130#; + PT _ (TS "case") -> cont 131#; + PT _ (TS "cat") -> cont 132#; + PT _ (TS "concrete") -> cont 133#; + PT _ (TS "data") -> cont 134#; + PT _ (TS "def") -> cont 135#; + PT _ (TS "flags") -> cont 136#; + PT _ (TS "fn") -> cont 137#; + PT _ (TS "fun") -> cont 138#; + PT _ (TS "grammar") -> cont 139#; + PT _ (TS "in") -> cont 140#; + PT _ (TS "include") -> cont 141#; + PT _ (TS "incomplete") -> cont 142#; + PT _ (TS "instance") -> cont 143#; + PT _ (TS "interface") -> cont 144#; + PT _ (TS "let") -> cont 145#; + PT _ (TS "lin") -> cont 146#; + PT _ (TS "lincat") -> cont 147#; + PT _ (TS "lindef") -> cont 148#; + PT _ (TS "lintype") -> cont 149#; + PT _ (TS "of") -> cont 150#; + PT _ (TS "open") -> cont 151#; + PT _ (TS "oper") -> cont 152#; + PT _ (TS "out") -> cont 153#; + PT _ (TS "package") -> cont 154#; + PT _ (TS "param") -> cont 155#; + PT _ (TS "pattern") -> cont 156#; + PT _ (TS "pre") -> cont 157#; + PT _ (TS "printname") -> cont 158#; + PT _ (TS "resource") -> cont 159#; + PT _ (TS "reuse") -> cont 160#; + PT _ (TS "strs") -> cont 161#; + PT _ (TS "table") -> cont 162#; + PT _ (TS "tokenizer") -> cont 163#; + PT _ (TS "transfer") -> cont 164#; + PT _ (TS "union") -> cont 165#; + PT _ (TS "var") -> cont 166#; + PT _ (TS "variants") -> cont 167#; + PT _ (TS "where") -> cont 168#; + PT _ (TS "with") -> cont 169#; + PT _ (TI happy_dollar_dollar) -> cont 170#; + PT _ (TL happy_dollar_dollar) -> cont 171#; + PT _ (TD happy_dollar_dollar) -> cont 172#; + PT _ (T_LString happy_dollar_dollar) -> cont 173#; + PT _ (T_PIdent _) -> cont 174#; + _ -> cont 175#; + _ -> happyError' (tk:tks) + } + +happyError_ tk tks = happyError' (tk: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 -> b -> Err a +happyReturn1 = \a tks -> (returnM) a +happyError' :: () => [Token] -> Err a +happyError' = happyError + +pGrammar tks = happySomeParser where + happySomeParser = happyThen (happyParse action_0 tks) (\x -> case x of {HappyAbsSyn13 z -> happyReturn z; _other -> notHappyAtAll }) + +pModDef tks = happySomeParser where + happySomeParser = happyThen (happyParse action_1 tks) (\x -> case x of {HappyAbsSyn15 z -> happyReturn z; _other -> notHappyAtAll }) + +pOldGrammar tks = happySomeParser where + happySomeParser = happyThen (happyParse action_2 tks) (\x -> case x of {HappyAbsSyn90 z -> happyReturn z; _other -> notHappyAtAll }) + +pExp tks = happySomeParser where + happySomeParser = happyThen (happyParse action_3 tks) (\x -> case x of {HappyAbsSyn58 z -> happyReturn z; _other -> notHappyAtAll }) + +pModHeader tks = happySomeParser where + happySomeParser = happyThen (happyParse action_4 tks) (\x -> case x of {HappyAbsSyn15 z -> happyReturn z; _other -> notHappyAtAll }) + +happySeq = happyDontSeq + + +returnM :: a -> Err a +returnM = return + +thenM :: Err a -> (a -> Err b) -> Err b +thenM = (>>=) + +happyError :: [Token] -> Err a +happyError ts = + Bad $ "syntax error at " ++ tokenPos ts ++ + case ts of + [] -> [] + [Err _] -> " due to lexer error" + _ -> " before " ++ unwords (map prToken (take 4 ts)) + +myLexer = tokens +{-# LINE 1 "templates/GenericTemplate.hs" #-} +{-# LINE 1 "templates/GenericTemplate.hs" #-} +{-# LINE 1 "" #-} +{-# LINE 1 "" #-} +{-# LINE 1 "templates/GenericTemplate.hs" #-} +-- Id: GenericTemplate.hs,v 1.26 2005/01/14 14:47:22 simonmar Exp + +{-# LINE 28 "templates/GenericTemplate.hs" #-} + + + + + + + + +{-# LINE 49 "templates/GenericTemplate.hs" #-} + +{-# LINE 59 "templates/GenericTemplate.hs" #-} + +{-# LINE 68 "templates/GenericTemplate.hs" #-} + +infixr 9 `HappyStk` +data HappyStk a = HappyStk a (HappyStk a) + +----------------------------------------------------------------------------- +-- starting the parse + +happyParse start_state = happyNewToken start_state notHappyAtAll notHappyAtAll + +----------------------------------------------------------------------------- +-- Accepting the parse + +-- If the current token is 1#, it means we've just accepted a partial +-- parse (a %partial parser). We must ignore the saved token on the top of +-- the stack in this case. +happyAccept 1# tk st sts (_ `HappyStk` ans `HappyStk` _) = + happyReturn1 ans +happyAccept j tk st sts (HappyStk ans _) = + (happyTcHack j ) (happyReturn1 ans) + +----------------------------------------------------------------------------- +-- Arrays only: do the next action + +{-# LINE 155 "templates/GenericTemplate.hs" #-} + +----------------------------------------------------------------------------- +-- HappyState data type (not arrays) + + + +newtype HappyState b c = HappyState + (Int# -> -- token number + Int# -> -- token number (yes, again) + b -> -- token semantic value + HappyState b c -> -- current state + [HappyState b c] -> -- state stack + c) + + + +----------------------------------------------------------------------------- +-- Shifting a token + +happyShift new_state 1# tk st sts stk@(x `HappyStk` _) = + let i = (case x of { HappyErrorToken (I# (i)) -> i }) in +-- trace "shifting the error token" $ + new_state i i tk (HappyState (new_state)) ((st):(sts)) (stk) + +happyShift new_state i tk st sts stk = + happyNewToken new_state ((st):(sts)) ((HappyTerminal (tk))`HappyStk`stk) + +-- happyReduce is specialised for the common cases. + +happySpecReduce_0 i fn 1# tk st sts stk + = happyFail 1# tk st sts stk +happySpecReduce_0 nt fn j tk st@((HappyState (action))) sts stk + = action nt j tk st ((st):(sts)) (fn `HappyStk` stk) + +happySpecReduce_1 i fn 1# tk st sts stk + = happyFail 1# tk st sts stk +happySpecReduce_1 nt fn j tk _ sts@(((st@(HappyState (action))):(_))) (v1`HappyStk`stk') + = let r = fn v1 in + happySeq r (action nt j tk st sts (r `HappyStk` stk')) + +happySpecReduce_2 i fn 1# tk st sts stk + = happyFail 1# tk st sts stk +happySpecReduce_2 nt fn j tk _ ((_):(sts@(((st@(HappyState (action))):(_))))) (v1`HappyStk`v2`HappyStk`stk') + = let r = fn v1 v2 in + happySeq r (action nt j tk st sts (r `HappyStk` stk')) + +happySpecReduce_3 i fn 1# tk st sts stk + = happyFail 1# tk st sts stk +happySpecReduce_3 nt fn j tk _ ((_):(((_):(sts@(((st@(HappyState (action))):(_))))))) (v1`HappyStk`v2`HappyStk`v3`HappyStk`stk') + = let r = fn v1 v2 v3 in + happySeq r (action nt j tk st sts (r `HappyStk` stk')) + +happyReduce k i fn 1# tk st sts stk + = happyFail 1# tk st sts stk +happyReduce k nt fn j tk st sts stk + = case happyDrop (k -# (1# :: Int#)) sts of + sts1@(((st1@(HappyState (action))):(_))) -> + let r = fn stk in -- it doesn't hurt to always seq here... + happyDoSeq r (action nt j tk st1 sts1 r) + +happyMonadReduce k nt fn 1# tk st sts stk + = happyFail 1# tk st sts stk +happyMonadReduce k nt fn j tk st sts stk = + happyThen1 (fn stk tk) (\r -> action nt j tk st1 sts1 (r `HappyStk` drop_stk)) + where sts1@(((st1@(HappyState (action))):(_))) = happyDrop k ((st):(sts)) + drop_stk = happyDropStk k stk + +happyMonad2Reduce k nt fn 1# tk st sts stk + = happyFail 1# tk st sts stk +happyMonad2Reduce k nt fn j tk st sts stk = + happyThen1 (fn stk tk) (\r -> happyNewToken new_state sts1 (r `HappyStk` drop_stk)) + where sts1@(((st1@(HappyState (action))):(_))) = happyDrop k ((st):(sts)) + drop_stk = happyDropStk k stk + + + + + + new_state = action + + +happyDrop 0# l = l +happyDrop n ((_):(t)) = happyDrop (n -# (1# :: Int#)) t + +happyDropStk 0# l = l +happyDropStk n (x `HappyStk` xs) = happyDropStk (n -# (1#::Int#)) xs + +----------------------------------------------------------------------------- +-- Moving to a new state after a reduction + +{-# LINE 253 "templates/GenericTemplate.hs" #-} +happyGoto action j tk st = action j j tk (HappyState action) + + +----------------------------------------------------------------------------- +-- Error recovery (1# is the error token) + +-- parse error if we are in recovery and we fail again +happyFail 1# tk old_st _ stk = +-- trace "failing" $ + happyError_ tk + +{- We don't need state discarding for our restricted implementation of + "error". In fact, it can cause some bogus parses, so I've disabled it + for now --SDM + +-- discard a state +happyFail 1# tk old_st (((HappyState (action))):(sts)) + (saved_tok `HappyStk` _ `HappyStk` stk) = +-- trace ("discarding state, depth " ++ show (length stk)) $ + action 1# 1# tk (HappyState (action)) sts ((saved_tok`HappyStk`stk)) +-} + +-- Enter error recovery: generate an error token, +-- save the old token and carry on. +happyFail i tk (HappyState (action)) sts stk = +-- trace "entering error recovery" $ + action 1# 1# tk (HappyState (action)) sts ( (HappyErrorToken (I# (i))) `HappyStk` stk) + +-- Internal happy errors: + +notHappyAtAll = error "Internal Happy error\n" + +----------------------------------------------------------------------------- +-- Hack to get the typechecker to accept our action functions + + +happyTcHack :: Int# -> a -> a +happyTcHack x y = y +{-# INLINE happyTcHack #-} + + +----------------------------------------------------------------------------- +-- 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. + +{-# LINE 317 "templates/GenericTemplate.hs" #-} +{-# NOINLINE happyShift #-} +{-# NOINLINE happySpecReduce_0 #-} +{-# NOINLINE happySpecReduce_1 #-} +{-# NOINLINE happySpecReduce_2 #-} +{-# NOINLINE happySpecReduce_3 #-} +{-# NOINLINE happyReduce #-} +{-# NOINLINE happyMonadReduce #-} +{-# NOINLINE happyGoto #-} +{-# NOINLINE happyFail #-} + +-- end of Happy Template. diff --git a/src-3.0/GF/Source/ParGF.y b/src-3.0/GF/Source/ParGF.y new file mode 100644 index 000000000..2109434e5 --- /dev/null +++ b/src-3.0/GF/Source/ParGF.y @@ -0,0 +1,642 @@ +-- This Happy file was machine-generated by the BNF converter +{ +{-# OPTIONS -fno-warn-incomplete-patterns -fno-warn-overlapping-patterns #-} + module GF.Source.ParGF (pGrammar, pModDef, pOldGrammar, pExp, pModHeader, myLexer) where --H +import GF.Source.AbsGF --H +import GF.Source.LexGF --H +import GF.Infra.Ident --H +import GF.Data.ErrM --H +} + +%name pGrammar Grammar +%name pModDef ModDef +%name pOldGrammar OldGrammar +%name pExp Exp +%partial pModHeader ModHeader + +-- no lexer declaration +%monad { Err } { thenM } { returnM } +%tokentype { Token } + +%token + ';' { PT _ (TS ";") } + '=' { PT _ (TS "=") } + '{' { PT _ (TS "{") } + '}' { PT _ (TS "}") } + '(' { PT _ (TS "(") } + ')' { PT _ (TS ")") } + ':' { PT _ (TS ":") } + '->' { PT _ (TS "->") } + '**' { PT _ (TS "**") } + ',' { PT _ (TS ",") } + '[' { PT _ (TS "[") } + ']' { PT _ (TS "]") } + '-' { PT _ (TS "-") } + '.' { PT _ (TS ".") } + '|' { PT _ (TS "|") } + '%' { PT _ (TS "%") } + '?' { PT _ (TS "?") } + '<' { PT _ (TS "<") } + '>' { PT _ (TS ">") } + '@' { PT _ (TS "@") } + '#' { PT _ (TS "#") } + '!' { PT _ (TS "!") } + '*' { PT _ (TS "*") } + '+' { PT _ (TS "+") } + '++' { PT _ (TS "++") } + '\\' { PT _ (TS "\\") } + '=>' { PT _ (TS "=>") } + '_' { PT _ (TS "_") } + '$' { PT _ (TS "$") } + '/' { PT _ (TS "/") } + 'Lin' { PT _ (TS "Lin") } + 'PType' { PT _ (TS "PType") } + 'Str' { PT _ (TS "Str") } + 'Strs' { PT _ (TS "Strs") } + 'Tok' { PT _ (TS "Tok") } + 'Type' { PT _ (TS "Type") } + 'abstract' { PT _ (TS "abstract") } + 'case' { PT _ (TS "case") } + 'cat' { PT _ (TS "cat") } + 'concrete' { PT _ (TS "concrete") } + 'data' { PT _ (TS "data") } + 'def' { PT _ (TS "def") } + 'flags' { PT _ (TS "flags") } + 'fn' { PT _ (TS "fn") } + 'fun' { PT _ (TS "fun") } + 'grammar' { PT _ (TS "grammar") } + 'in' { PT _ (TS "in") } + 'include' { PT _ (TS "include") } + 'incomplete' { PT _ (TS "incomplete") } + 'instance' { PT _ (TS "instance") } + 'interface' { PT _ (TS "interface") } + 'let' { PT _ (TS "let") } + 'lin' { PT _ (TS "lin") } + 'lincat' { PT _ (TS "lincat") } + 'lindef' { PT _ (TS "lindef") } + 'lintype' { PT _ (TS "lintype") } + 'of' { PT _ (TS "of") } + 'open' { PT _ (TS "open") } + 'oper' { PT _ (TS "oper") } + 'out' { PT _ (TS "out") } + 'package' { PT _ (TS "package") } + 'param' { PT _ (TS "param") } + 'pattern' { PT _ (TS "pattern") } + 'pre' { PT _ (TS "pre") } + 'printname' { PT _ (TS "printname") } + 'resource' { PT _ (TS "resource") } + 'reuse' { PT _ (TS "reuse") } + 'strs' { PT _ (TS "strs") } + 'table' { PT _ (TS "table") } + 'tokenizer' { PT _ (TS "tokenizer") } + 'transfer' { PT _ (TS "transfer") } + 'union' { PT _ (TS "union") } + 'var' { PT _ (TS "var") } + 'variants' { PT _ (TS "variants") } + 'where' { PT _ (TS "where") } + 'with' { PT _ (TS "with") } + +L_integ { PT _ (TI $$) } +L_quoted { PT _ (TL $$) } +L_doubl { PT _ (TD $$) } +L_LString { PT _ (T_LString $$) } +L_PIdent { PT _ (T_PIdent _) } +L_err { _ } + + +%% + +Integer :: { Integer } : L_integ { (read $1) :: Integer } +String :: { String } : L_quoted { $1 } +Double :: { Double } : L_doubl { (read $1) :: Double } +LString :: { LString} : L_LString { LString ($1)} +PIdent :: { PIdent} : L_PIdent { PIdent (mkPosToken $1)} + +Grammar :: { Grammar } +Grammar : ListModDef { Gr (reverse $1) } + + +ListModDef :: { [ModDef] } +ListModDef : {- empty -} { [] } + | ListModDef ModDef { flip (:) $1 $2 } + + +ModDef :: { ModDef } +ModDef : ModDef ';' { $1 } + | 'grammar' PIdent '=' '{' 'abstract' '=' PIdent ';' ListConcSpec '}' { MMain $2 $7 $9 } + | ComplMod ModType '=' ModBody { MModule $1 $2 $4 } + + +ConcSpec :: { ConcSpec } +ConcSpec : PIdent '=' ConcExp { ConcSpec $1 $3 } + + +ListConcSpec :: { [ConcSpec] } +ListConcSpec : {- empty -} { [] } + | ConcSpec { (:[]) $1 } + | ConcSpec ';' ListConcSpec { (:) $1 $3 } + + +ConcExp :: { ConcExp } +ConcExp : PIdent ListTransfer { ConcExp $1 (reverse $2) } + + +ListTransfer :: { [Transfer] } +ListTransfer : {- empty -} { [] } + | ListTransfer Transfer { flip (:) $1 $2 } + + +Transfer :: { Transfer } +Transfer : '(' 'transfer' 'in' Open ')' { TransferIn $4 } + | '(' 'transfer' 'out' Open ')' { TransferOut $4 } + + +ModHeader :: { ModDef } +ModHeader : ComplMod ModType '=' ModHeaderBody { MModule $1 $2 $4 } + + +ModHeaderBody :: { ModBody } +ModHeaderBody : Extend Opens { MBody $1 $2 [] } + | ListIncluded { MNoBody $1 } + | Included 'with' ListOpen { MWith $1 $3 } + | Included 'with' ListOpen '**' Opens { MWithBody $1 $3 $5 [] } + | ListIncluded '**' Included 'with' ListOpen { MWithE $1 $3 $5 } + | ListIncluded '**' Included 'with' ListOpen '**' Opens { MWithEBody $1 $3 $5 $7 [] } + | 'reuse' PIdent { MReuse $2 } + | 'union' ListIncluded { MUnion $2 } + + +ModType :: { ModType } +ModType : 'abstract' PIdent { MTAbstract $2 } + | 'resource' PIdent { MTResource $2 } + | 'interface' PIdent { MTInterface $2 } + | 'concrete' PIdent 'of' PIdent { MTConcrete $2 $4 } + | 'instance' PIdent 'of' PIdent { MTInstance $2 $4 } + | 'transfer' PIdent ':' Open '->' Open { MTTransfer $2 $4 $6 } + + +ModBody :: { ModBody } +ModBody : Extend Opens '{' ListTopDef '}' { MBody $1 $2 (reverse $4) } + | ListIncluded { MNoBody $1 } + | Included 'with' ListOpen { MWith $1 $3 } + | Included 'with' ListOpen '**' Opens '{' ListTopDef '}' { MWithBody $1 $3 $5 (reverse $7) } + | ListIncluded '**' Included 'with' ListOpen { MWithE $1 $3 $5 } + | ListIncluded '**' Included 'with' ListOpen '**' Opens '{' ListTopDef '}' { MWithEBody $1 $3 $5 $7 (reverse $9) } + | 'reuse' PIdent { MReuse $2 } + | 'union' ListIncluded { MUnion $2 } + + +ListTopDef :: { [TopDef] } +ListTopDef : {- empty -} { [] } + | ListTopDef TopDef { flip (:) $1 $2 } + + +Extend :: { Extend } +Extend : ListIncluded '**' { Ext $1 } + | {- empty -} { NoExt } + + +ListOpen :: { [Open] } +ListOpen : {- empty -} { [] } + | Open { (:[]) $1 } + | Open ',' ListOpen { (:) $1 $3 } + + +Opens :: { Opens } +Opens : {- empty -} { NoOpens } + | 'open' ListOpen 'in' { OpenIn $2 } + + +Open :: { Open } +Open : PIdent { OName $1 } + | '(' QualOpen PIdent ')' { OQualQO $2 $3 } + | '(' QualOpen PIdent '=' PIdent ')' { OQual $2 $3 $5 } + + +ComplMod :: { ComplMod } +ComplMod : {- empty -} { CMCompl } + | 'incomplete' { CMIncompl } + + +QualOpen :: { QualOpen } +QualOpen : {- empty -} { QOCompl } + | 'incomplete' { QOIncompl } + | 'interface' { QOInterface } + + +ListIncluded :: { [Included] } +ListIncluded : {- empty -} { [] } + | Included { (:[]) $1 } + | Included ',' ListIncluded { (:) $1 $3 } + + +Included :: { Included } +Included : PIdent { IAll $1 } + | PIdent '[' ListPIdent ']' { ISome $1 $3 } + | PIdent '-' '[' ListPIdent ']' { IMinus $1 $4 } + + +Def :: { Def } +Def : ListName ':' Exp { DDecl $1 $3 } + | ListName '=' Exp { DDef $1 $3 } + | Name ListPatt '=' Exp { DPatt $1 $2 $4 } + | ListName ':' Exp '=' Exp { DFull $1 $3 $5 } + + +TopDef :: { TopDef } +TopDef : 'cat' ListCatDef { DefCat $2 } + | 'fun' ListFunDef { DefFun $2 } + | 'data' ListFunDef { DefFunData $2 } + | 'def' ListDef { DefDef $2 } + | 'data' ListDataDef { DefData $2 } + | 'transfer' ListDef { DefTrans $2 } + | 'param' ListParDef { DefPar $2 } + | 'oper' ListDef { DefOper $2 } + | 'lincat' ListPrintDef { DefLincat $2 } + | 'lindef' ListDef { DefLindef $2 } + | 'lin' ListDef { DefLin $2 } + | 'printname' 'cat' ListPrintDef { DefPrintCat $3 } + | 'printname' 'fun' ListPrintDef { DefPrintFun $3 } + | 'flags' ListFlagDef { DefFlag $2 } + | 'printname' ListPrintDef { DefPrintOld $2 } + | 'lintype' ListDef { DefLintype $2 } + | 'pattern' ListDef { DefPattern $2 } + | 'package' PIdent '=' '{' ListTopDef '}' ';' { DefPackage $2 (reverse $5) } + | 'var' ListDef { DefVars $2 } + | 'tokenizer' PIdent ';' { DefTokenizer $2 } + + +CatDef :: { CatDef } +CatDef : PIdent ListDDecl { SimpleCatDef $1 (reverse $2) } + | '[' PIdent ListDDecl ']' { ListCatDef $2 (reverse $3) } + | '[' PIdent ListDDecl ']' '{' Integer '}' { ListSizeCatDef $2 (reverse $3) $6 } + + +FunDef :: { FunDef } +FunDef : ListPIdent ':' Exp { FunDef $1 $3 } + + +DataDef :: { DataDef } +DataDef : PIdent '=' ListDataConstr { DataDef $1 $3 } + + +DataConstr :: { DataConstr } +DataConstr : PIdent { DataId $1 } + | PIdent '.' PIdent { DataQId $1 $3 } + + +ListDataConstr :: { [DataConstr] } +ListDataConstr : {- empty -} { [] } + | DataConstr { (:[]) $1 } + | DataConstr '|' ListDataConstr { (:) $1 $3 } + + +ParDef :: { ParDef } +ParDef : PIdent '=' ListParConstr { ParDefDir $1 $3 } + | PIdent '=' '(' 'in' PIdent ')' { ParDefIndir $1 $5 } + | PIdent { ParDefAbs $1 } + + +ParConstr :: { ParConstr } +ParConstr : PIdent ListDDecl { ParConstr $1 (reverse $2) } + + +PrintDef :: { PrintDef } +PrintDef : ListName '=' Exp { PrintDef $1 $3 } + + +FlagDef :: { FlagDef } +FlagDef : PIdent '=' PIdent { FlagDef $1 $3 } + + +ListDef :: { [Def] } +ListDef : Def ';' { (:[]) $1 } + | Def ';' ListDef { (:) $1 $3 } + + +ListCatDef :: { [CatDef] } +ListCatDef : CatDef ';' { (:[]) $1 } + | CatDef ';' ListCatDef { (:) $1 $3 } + + +ListFunDef :: { [FunDef] } +ListFunDef : FunDef ';' { (:[]) $1 } + | FunDef ';' ListFunDef { (:) $1 $3 } + + +ListDataDef :: { [DataDef] } +ListDataDef : DataDef ';' { (:[]) $1 } + | DataDef ';' ListDataDef { (:) $1 $3 } + + +ListParDef :: { [ParDef] } +ListParDef : ParDef ';' { (:[]) $1 } + | ParDef ';' ListParDef { (:) $1 $3 } + + +ListPrintDef :: { [PrintDef] } +ListPrintDef : PrintDef ';' { (:[]) $1 } + | PrintDef ';' ListPrintDef { (:) $1 $3 } + + +ListFlagDef :: { [FlagDef] } +ListFlagDef : FlagDef ';' { (:[]) $1 } + | FlagDef ';' ListFlagDef { (:) $1 $3 } + + +ListParConstr :: { [ParConstr] } +ListParConstr : {- empty -} { [] } + | ParConstr { (:[]) $1 } + | ParConstr '|' ListParConstr { (:) $1 $3 } + + +ListPIdent :: { [PIdent] } +ListPIdent : PIdent { (:[]) $1 } + | PIdent ',' ListPIdent { (:) $1 $3 } + + +Name :: { Name } +Name : PIdent { IdentName $1 } + | '[' PIdent ']' { ListName $2 } + + +ListName :: { [Name] } +ListName : Name { (:[]) $1 } + | Name ',' ListName { (:) $1 $3 } + + +LocDef :: { LocDef } +LocDef : ListPIdent ':' Exp { LDDecl $1 $3 } + | ListPIdent '=' Exp { LDDef $1 $3 } + | ListPIdent ':' Exp '=' Exp { LDFull $1 $3 $5 } + + +ListLocDef :: { [LocDef] } +ListLocDef : {- empty -} { [] } + | LocDef { (:[]) $1 } + | LocDef ';' ListLocDef { (:) $1 $3 } + + +Exp6 :: { Exp } +Exp6 : PIdent { EIdent $1 } + | '{' PIdent '}' { EConstr $2 } + | '%' PIdent '%' { ECons $2 } + | Sort { ESort $1 } + | String { EString $1 } + | Integer { EInt $1 } + | Double { EFloat $1 } + | '?' { EMeta } + | '[' ']' { EEmpty } + | 'data' { EData } + | '[' PIdent Exps ']' { EList $2 $3 } + | '[' String ']' { EStrings $2 } + | '{' ListLocDef '}' { ERecord $2 } + | '<' ListTupleComp '>' { ETuple $2 } + | '(' 'in' PIdent ')' { EIndir $3 } + | '<' Exp ':' Exp '>' { ETyped $2 $4 } + | '(' Exp ')' { $2 } + | LString { ELString $1 } + + +Exp5 :: { Exp } +Exp5 : Exp5 '.' Label { EProj $1 $3 } + | '{' PIdent '.' PIdent '}' { EQConstr $2 $4 } + | '%' PIdent '.' PIdent { EQCons $2 $4 } + | Exp6 { $1 } + + +Exp4 :: { Exp } +Exp4 : Exp4 Exp5 { EApp $1 $2 } + | 'table' '{' ListCase '}' { ETable $3 } + | 'table' Exp6 '{' ListCase '}' { ETTable $2 $4 } + | 'table' Exp6 '[' ListExp ']' { EVTable $2 $4 } + | 'case' Exp 'of' '{' ListCase '}' { ECase $2 $5 } + | 'variants' '{' ListExp '}' { EVariants $3 } + | 'pre' '{' Exp ';' ListAltern '}' { EPre $3 $5 } + | 'strs' '{' ListExp '}' { EStrs $3 } + | PIdent '@' Exp6 { EConAt $1 $3 } + | '#' Patt2 { EPatt $2 } + | 'pattern' Exp5 { EPattType $2 } + | Exp5 { $1 } + | 'Lin' PIdent { ELin $2 } + + +Exp3 :: { Exp } +Exp3 : Exp3 '!' Exp4 { ESelect $1 $3 } + | Exp3 '*' Exp4 { ETupTyp $1 $3 } + | Exp3 '**' Exp4 { EExtend $1 $3 } + | Exp4 { $1 } + + +Exp1 :: { Exp } +Exp1 : Exp2 '+' Exp1 { EGlue $1 $3 } + | Exp2 { $1 } + + +Exp :: { Exp } +Exp : Exp1 '++' Exp { EConcat $1 $3 } + | '\\' ListBind '->' Exp { EAbstr $2 $4 } + | '\\' '\\' ListBind '=>' Exp { ECTable $3 $5 } + | Decl '->' Exp { EProd $1 $3 } + | Exp3 '=>' Exp { ETType $1 $3 } + | 'let' '{' ListLocDef '}' 'in' Exp { ELet $3 $6 } + | 'let' ListLocDef 'in' Exp { ELetb $2 $4 } + | Exp3 'where' '{' ListLocDef '}' { EWhere $1 $4 } + | 'fn' '{' ListEquation '}' { EEqs $3 } + | 'in' Exp5 String { EExample $2 $3 } + | Exp1 { $1 } + + +Exp2 :: { Exp } +Exp2 : Exp3 { $1 } + + +ListExp :: { [Exp] } +ListExp : {- empty -} { [] } + | Exp { (:[]) $1 } + | Exp ';' ListExp { (:) $1 $3 } + + +Exps :: { Exps } +Exps : {- empty -} { NilExp } + | Exp6 Exps { ConsExp $1 $2 } + + +Patt2 :: { Patt } +Patt2 : '?' { PChar } + | '[' String ']' { PChars $2 } + | '#' PIdent { PMacro $2 } + | '#' PIdent '.' PIdent { PM $2 $4 } + | '_' { PW } + | PIdent { PV $1 } + | '{' PIdent '}' { PCon $2 } + | PIdent '.' PIdent { PQ $1 $3 } + | Integer { PInt $1 } + | Double { PFloat $1 } + | String { PStr $1 } + | '{' ListPattAss '}' { PR $2 } + | '<' ListPattTupleComp '>' { PTup $2 } + | '(' Patt ')' { $2 } + + +Patt1 :: { Patt } +Patt1 : PIdent ListPatt { PC $1 $2 } + | PIdent '.' PIdent ListPatt { PQC $1 $3 $4 } + | Patt2 '*' { PRep $1 } + | PIdent '@' Patt2 { PAs $1 $3 } + | '-' Patt2 { PNeg $2 } + | Patt2 { $1 } + + +Patt :: { Patt } +Patt : Patt '|' Patt1 { PDisj $1 $3 } + | Patt '+' Patt1 { PSeq $1 $3 } + | Patt1 { $1 } + + +PattAss :: { PattAss } +PattAss : ListPIdent '=' Patt { PA $1 $3 } + + +Label :: { Label } +Label : PIdent { LIdent $1 } + | '$' Integer { LVar $2 } + + +Sort :: { Sort } +Sort : 'Type' { Sort_Type } + | 'PType' { Sort_PType } + | 'Tok' { Sort_Tok } + | 'Str' { Sort_Str } + | 'Strs' { Sort_Strs } + + +ListPattAss :: { [PattAss] } +ListPattAss : {- empty -} { [] } + | PattAss { (:[]) $1 } + | PattAss ';' ListPattAss { (:) $1 $3 } + + +ListPatt :: { [Patt] } +ListPatt : Patt2 { (:[]) $1 } + | Patt2 ListPatt { (:) $1 $2 } + + +Bind :: { Bind } +Bind : PIdent { BIdent $1 } + | '_' { BWild } + + +ListBind :: { [Bind] } +ListBind : {- empty -} { [] } + | Bind { (:[]) $1 } + | Bind ',' ListBind { (:) $1 $3 } + + +Decl :: { Decl } +Decl : '(' ListBind ':' Exp ')' { DDec $2 $4 } + | Exp4 { DExp $1 } + + +TupleComp :: { TupleComp } +TupleComp : Exp { TComp $1 } + + +PattTupleComp :: { PattTupleComp } +PattTupleComp : Patt { PTComp $1 } + + +ListTupleComp :: { [TupleComp] } +ListTupleComp : {- empty -} { [] } + | TupleComp { (:[]) $1 } + | TupleComp ',' ListTupleComp { (:) $1 $3 } + + +ListPattTupleComp :: { [PattTupleComp] } +ListPattTupleComp : {- empty -} { [] } + | PattTupleComp { (:[]) $1 } + | PattTupleComp ',' ListPattTupleComp { (:) $1 $3 } + + +Case :: { Case } +Case : Patt '=>' Exp { Case $1 $3 } + + +ListCase :: { [Case] } +ListCase : Case { (:[]) $1 } + | Case ';' ListCase { (:) $1 $3 } + + +Equation :: { Equation } +Equation : ListPatt '->' Exp { Equ $1 $3 } + + +ListEquation :: { [Equation] } +ListEquation : {- empty -} { [] } + | Equation { (:[]) $1 } + | Equation ';' ListEquation { (:) $1 $3 } + + +Altern :: { Altern } +Altern : Exp '/' Exp { Alt $1 $3 } + + +ListAltern :: { [Altern] } +ListAltern : {- empty -} { [] } + | Altern { (:[]) $1 } + | Altern ';' ListAltern { (:) $1 $3 } + + +DDecl :: { DDecl } +DDecl : '(' ListBind ':' Exp ')' { DDDec $2 $4 } + | Exp6 { DDExp $1 } + + +ListDDecl :: { [DDecl] } +ListDDecl : {- empty -} { [] } + | ListDDecl DDecl { flip (:) $1 $2 } + + +OldGrammar :: { OldGrammar } +OldGrammar : Include ListTopDef { OldGr $1 (reverse $2) } + + +Include :: { Include } +Include : {- empty -} { NoIncl } + | 'include' ListFileName { Incl $2 } + + +FileName :: { FileName } +FileName : String { FString $1 } + | PIdent { FIdent $1 } + | '/' FileName { FSlash $2 } + | '.' FileName { FDot $2 } + | '-' FileName { FMinus $2 } + | PIdent FileName { FAddId $1 $2 } + + +ListFileName :: { [FileName] } +ListFileName : FileName ';' { (:[]) $1 } + | FileName ';' ListFileName { (:) $1 $3 } + + + +{ + +returnM :: a -> Err a +returnM = return + +thenM :: Err a -> (a -> Err b) -> Err b +thenM = (>>=) + +happyError :: [Token] -> Err a +happyError ts = + Bad $ "syntax error at " ++ tokenPos ts ++ + case ts of + [] -> [] + [Err _] -> " due to lexer error" + _ -> " before " ++ unwords (map prToken (take 4 ts)) + +myLexer = tokens +} + diff --git a/src-3.0/GF/Source/PrintGF.hs b/src-3.0/GF/Source/PrintGF.hs new file mode 100644 index 000000000..0a260f5bf --- /dev/null +++ b/src-3.0/GF/Source/PrintGF.hs @@ -0,0 +1,532 @@ +{-# OPTIONS -fno-warn-incomplete-patterns #-} +module GF.Source.PrintGF where + +-- pretty-printer generated by the BNF converter + +import GF.Source.AbsGF +import Char + +-- the top-level printing method +printTree :: Print a => a -> String +printTree = render . prt 0 + +type Doc = [ShowS] -> [ShowS] + +doc :: ShowS -> Doc +doc = (:) + +render :: Doc -> String +render d = rend 0 (map ($ "") $ d []) "" where + rend i ss = case ss of + "[" :ts -> showChar '[' . rend i ts + "(" :ts -> showChar '(' . rend i ts + "{" :ts -> showChar '{' . new (i+1) . rend (i+1) ts + "}" : ";":ts -> new (i-1) . space "}" . showChar ';' . new (i-1) . rend (i-1) ts + "}" :ts -> new (i-1) . showChar '}' . new (i-1) . rend (i-1) ts + ";" :ts -> showChar ';' . new i . rend i ts + t : "," :ts -> showString t . space "," . rend i ts + t : ")" :ts -> showString t . showChar ')' . rend i ts + t : "]" :ts -> showString t . showChar ']' . rend i ts + t :ts -> space t . rend i ts + _ -> id + new i = showChar '\n' . replicateS (2*i) (showChar ' ') . dropWhile isSpace + space t = showString t . (\s -> if null s then "" else (' ':s)) + +parenth :: Doc -> Doc +parenth ss = doc (showChar '(') . ss . doc (showChar ')') + +concatS :: [ShowS] -> ShowS +concatS = foldr (.) id + +concatD :: [Doc] -> Doc +concatD = foldr (.) id + +replicateS :: Int -> ShowS -> ShowS +replicateS n f = concatS (replicate n f) + +-- the printer class does the job +class Print a where + prt :: Int -> a -> Doc + prtList :: [a] -> Doc + prtList = concatD . map (prt 0) + +instance Print a => Print [a] where + prt _ = prtList + +instance Print Char where + prt _ s = doc (showChar '\'' . mkEsc '\'' s . showChar '\'') + prtList s = doc (showChar '"' . concatS (map (mkEsc '"') s) . showChar '"') + +mkEsc :: Char -> Char -> ShowS +mkEsc q s = case s of + _ | s == q -> showChar '\\' . showChar s + '\\'-> showString "\\\\" + '\n' -> showString "\\n" + '\t' -> showString "\\t" + _ -> showChar s + +prPrec :: Int -> Int -> Doc -> Doc +prPrec i j = if j (concatD [prt 0 x]) + x:xs -> (concatD [prt 0 x , doc (showString ",") , prt 0 xs]) + + + +instance Print Grammar where + prt i e = case e of + Gr moddefs -> prPrec i 0 (concatD [prt 0 moddefs]) + + +instance Print ModDef where + prt i e = case e of + MMain pident0 pident concspecs -> prPrec i 0 (concatD [doc (showString "grammar") , prt 0 pident0 , doc (showString "=") , doc (showString "{") , doc (showString "abstract") , doc (showString "=") , prt 0 pident , doc (showString ";") , prt 0 concspecs , doc (showString "}")]) + MModule complmod modtype modbody -> prPrec i 0 (concatD [prt 0 complmod , prt 0 modtype , doc (showString "=") , prt 0 modbody]) + + prtList es = case es of + [] -> (concatD []) + x:xs -> (concatD [prt 0 x , prt 0 xs]) + +instance Print ConcSpec where + prt i e = case e of + ConcSpec pident concexp -> prPrec i 0 (concatD [prt 0 pident , doc (showString "=") , prt 0 concexp]) + + prtList es = case es of + [] -> (concatD []) + [x] -> (concatD [prt 0 x]) + x:xs -> (concatD [prt 0 x , doc (showString ";") , prt 0 xs]) + +instance Print ConcExp where + prt i e = case e of + ConcExp pident transfers -> prPrec i 0 (concatD [prt 0 pident , prt 0 transfers]) + + +instance Print Transfer where + prt i e = case e of + TransferIn open -> prPrec i 0 (concatD [doc (showString "(") , doc (showString "transfer") , doc (showString "in") , prt 0 open , doc (showString ")")]) + TransferOut open -> prPrec i 0 (concatD [doc (showString "(") , doc (showString "transfer") , doc (showString "out") , prt 0 open , doc (showString ")")]) + + prtList es = case es of + [] -> (concatD []) + x:xs -> (concatD [prt 0 x , prt 0 xs]) + +instance Print ModType where + prt i e = case e of + MTAbstract pident -> prPrec i 0 (concatD [doc (showString "abstract") , prt 0 pident]) + MTResource pident -> prPrec i 0 (concatD [doc (showString "resource") , prt 0 pident]) + MTInterface pident -> prPrec i 0 (concatD [doc (showString "interface") , prt 0 pident]) + MTConcrete pident0 pident -> prPrec i 0 (concatD [doc (showString "concrete") , prt 0 pident0 , doc (showString "of") , prt 0 pident]) + MTInstance pident0 pident -> prPrec i 0 (concatD [doc (showString "instance") , prt 0 pident0 , doc (showString "of") , prt 0 pident]) + MTTransfer pident open0 open -> prPrec i 0 (concatD [doc (showString "transfer") , prt 0 pident , doc (showString ":") , prt 0 open0 , doc (showString "->") , prt 0 open]) + + +instance Print ModBody where + prt i e = case e of + MBody extend opens topdefs -> prPrec i 0 (concatD [prt 0 extend , prt 0 opens , doc (showString "{") , prt 0 topdefs , doc (showString "}")]) + MNoBody includeds -> prPrec i 0 (concatD [prt 0 includeds]) + MWith included opens -> prPrec i 0 (concatD [prt 0 included , doc (showString "with") , prt 0 opens]) + MWithBody included opens0 opens topdefs -> prPrec i 0 (concatD [prt 0 included , doc (showString "with") , prt 0 opens0 , doc (showString "**") , prt 0 opens , doc (showString "{") , prt 0 topdefs , doc (showString "}")]) + MWithE includeds included opens -> prPrec i 0 (concatD [prt 0 includeds , doc (showString "**") , prt 0 included , doc (showString "with") , prt 0 opens]) + MWithEBody includeds included opens0 opens topdefs -> prPrec i 0 (concatD [prt 0 includeds , doc (showString "**") , prt 0 included , doc (showString "with") , prt 0 opens0 , doc (showString "**") , prt 0 opens , doc (showString "{") , prt 0 topdefs , doc (showString "}")]) + MReuse pident -> prPrec i 0 (concatD [doc (showString "reuse") , prt 0 pident]) + MUnion includeds -> prPrec i 0 (concatD [doc (showString "union") , prt 0 includeds]) + + +instance Print Extend where + prt i e = case e of + Ext includeds -> prPrec i 0 (concatD [prt 0 includeds , doc (showString "**")]) + NoExt -> prPrec i 0 (concatD []) + + +instance Print Opens where + prt i e = case e of + NoOpens -> prPrec i 0 (concatD []) + OpenIn opens -> prPrec i 0 (concatD [doc (showString "open") , prt 0 opens , doc (showString "in")]) + + +instance Print Open where + prt i e = case e of + OName pident -> prPrec i 0 (concatD [prt 0 pident]) + OQualQO qualopen pident -> prPrec i 0 (concatD [doc (showString "(") , prt 0 qualopen , prt 0 pident , doc (showString ")")]) + OQual qualopen pident0 pident -> prPrec i 0 (concatD [doc (showString "(") , prt 0 qualopen , prt 0 pident0 , doc (showString "=") , prt 0 pident , doc (showString ")")]) + + prtList es = case es of + [] -> (concatD []) + [x] -> (concatD [prt 0 x]) + x:xs -> (concatD [prt 0 x , doc (showString ",") , prt 0 xs]) + +instance Print ComplMod where + prt i e = case e of + CMCompl -> prPrec i 0 (concatD []) + CMIncompl -> prPrec i 0 (concatD [doc (showString "incomplete")]) + + +instance Print QualOpen where + prt i e = case e of + QOCompl -> prPrec i 0 (concatD []) + QOIncompl -> prPrec i 0 (concatD [doc (showString "incomplete")]) + QOInterface -> prPrec i 0 (concatD [doc (showString "interface")]) + + +instance Print Included where + prt i e = case e of + IAll pident -> prPrec i 0 (concatD [prt 0 pident]) + ISome pident pidents -> prPrec i 0 (concatD [prt 0 pident , doc (showString "[") , prt 0 pidents , doc (showString "]")]) + IMinus pident pidents -> prPrec i 0 (concatD [prt 0 pident , doc (showString "-") , doc (showString "[") , prt 0 pidents , doc (showString "]")]) + + prtList es = case es of + [] -> (concatD []) + [x] -> (concatD [prt 0 x]) + x:xs -> (concatD [prt 0 x , doc (showString ",") , prt 0 xs]) + +instance Print Def where + prt i e = case e of + DDecl names exp -> prPrec i 0 (concatD [prt 0 names , doc (showString ":") , prt 0 exp]) + DDef names exp -> prPrec i 0 (concatD [prt 0 names , doc (showString "=") , prt 0 exp]) + DPatt name patts exp -> prPrec i 0 (concatD [prt 0 name , prt 0 patts , doc (showString "=") , prt 0 exp]) + DFull names exp0 exp -> prPrec i 0 (concatD [prt 0 names , doc (showString ":") , prt 0 exp0 , doc (showString "=") , prt 0 exp]) + + prtList es = case es of + [x] -> (concatD [prt 0 x , doc (showString ";")]) + x:xs -> (concatD [prt 0 x , doc (showString ";") , prt 0 xs]) + +instance Print TopDef where + prt i e = case e of + DefCat catdefs -> prPrec i 0 (concatD [doc (showString "cat") , prt 0 catdefs]) + DefFun fundefs -> prPrec i 0 (concatD [doc (showString "fun") , prt 0 fundefs]) + DefFunData fundefs -> prPrec i 0 (concatD [doc (showString "data") , prt 0 fundefs]) + DefDef defs -> prPrec i 0 (concatD [doc (showString "def") , prt 0 defs]) + DefData datadefs -> prPrec i 0 (concatD [doc (showString "data") , prt 0 datadefs]) + DefTrans defs -> prPrec i 0 (concatD [doc (showString "transfer") , prt 0 defs]) + DefPar pardefs -> prPrec i 0 (concatD [doc (showString "param") , prt 0 pardefs]) + DefOper defs -> prPrec i 0 (concatD [doc (showString "oper") , prt 0 defs]) + DefLincat printdefs -> prPrec i 0 (concatD [doc (showString "lincat") , prt 0 printdefs]) + DefLindef defs -> prPrec i 0 (concatD [doc (showString "lindef") , prt 0 defs]) + DefLin defs -> prPrec i 0 (concatD [doc (showString "lin") , prt 0 defs]) + DefPrintCat printdefs -> prPrec i 0 (concatD [doc (showString "printname") , doc (showString "cat") , prt 0 printdefs]) + DefPrintFun printdefs -> prPrec i 0 (concatD [doc (showString "printname") , doc (showString "fun") , prt 0 printdefs]) + DefFlag flagdefs -> prPrec i 0 (concatD [doc (showString "flags") , prt 0 flagdefs]) + DefPrintOld printdefs -> prPrec i 0 (concatD [doc (showString "printname") , prt 0 printdefs]) + DefLintype defs -> prPrec i 0 (concatD [doc (showString "lintype") , prt 0 defs]) + DefPattern defs -> prPrec i 0 (concatD [doc (showString "pattern") , prt 0 defs]) + DefPackage pident topdefs -> prPrec i 0 (concatD [doc (showString "package") , prt 0 pident , doc (showString "=") , doc (showString "{") , prt 0 topdefs , doc (showString "}") , doc (showString ";")]) + DefVars defs -> prPrec i 0 (concatD [doc (showString "var") , prt 0 defs]) + DefTokenizer pident -> prPrec i 0 (concatD [doc (showString "tokenizer") , prt 0 pident , doc (showString ";")]) + + prtList es = case es of + [] -> (concatD []) + x:xs -> (concatD [prt 0 x , prt 0 xs]) + +instance Print CatDef where + prt i e = case e of + SimpleCatDef pident ddecls -> prPrec i 0 (concatD [prt 0 pident , prt 0 ddecls]) + ListCatDef pident ddecls -> prPrec i 0 (concatD [doc (showString "[") , prt 0 pident , prt 0 ddecls , doc (showString "]")]) + ListSizeCatDef pident ddecls n -> prPrec i 0 (concatD [doc (showString "[") , prt 0 pident , prt 0 ddecls , doc (showString "]") , doc (showString "{") , prt 0 n , doc (showString "}")]) + + prtList es = case es of + [x] -> (concatD [prt 0 x , doc (showString ";")]) + x:xs -> (concatD [prt 0 x , doc (showString ";") , prt 0 xs]) + +instance Print FunDef where + prt i e = case e of + FunDef pidents exp -> prPrec i 0 (concatD [prt 0 pidents , doc (showString ":") , prt 0 exp]) + + prtList es = case es of + [x] -> (concatD [prt 0 x , doc (showString ";")]) + x:xs -> (concatD [prt 0 x , doc (showString ";") , prt 0 xs]) + +instance Print DataDef where + prt i e = case e of + DataDef pident dataconstrs -> prPrec i 0 (concatD [prt 0 pident , doc (showString "=") , prt 0 dataconstrs]) + + prtList es = case es of + [x] -> (concatD [prt 0 x , doc (showString ";")]) + x:xs -> (concatD [prt 0 x , doc (showString ";") , prt 0 xs]) + +instance Print DataConstr where + prt i e = case e of + DataId pident -> prPrec i 0 (concatD [prt 0 pident]) + DataQId pident0 pident -> prPrec i 0 (concatD [prt 0 pident0 , doc (showString ".") , prt 0 pident]) + + prtList es = case es of + [] -> (concatD []) + [x] -> (concatD [prt 0 x]) + x:xs -> (concatD [prt 0 x , doc (showString "|") , prt 0 xs]) + +instance Print ParDef where + prt i e = case e of + ParDefDir pident parconstrs -> prPrec i 0 (concatD [prt 0 pident , doc (showString "=") , prt 0 parconstrs]) + ParDefIndir pident0 pident -> prPrec i 0 (concatD [prt 0 pident0 , doc (showString "=") , doc (showString "(") , doc (showString "in") , prt 0 pident , doc (showString ")")]) + ParDefAbs pident -> prPrec i 0 (concatD [prt 0 pident]) + + prtList es = case es of + [x] -> (concatD [prt 0 x , doc (showString ";")]) + x:xs -> (concatD [prt 0 x , doc (showString ";") , prt 0 xs]) + +instance Print ParConstr where + prt i e = case e of + ParConstr pident ddecls -> prPrec i 0 (concatD [prt 0 pident , prt 0 ddecls]) + + prtList es = case es of + [] -> (concatD []) + [x] -> (concatD [prt 0 x]) + x:xs -> (concatD [prt 0 x , doc (showString "|") , prt 0 xs]) + +instance Print PrintDef where + prt i e = case e of + PrintDef names exp -> prPrec i 0 (concatD [prt 0 names , doc (showString "=") , prt 0 exp]) + + prtList es = case es of + [x] -> (concatD [prt 0 x , doc (showString ";")]) + x:xs -> (concatD [prt 0 x , doc (showString ";") , prt 0 xs]) + +instance Print FlagDef where + prt i e = case e of + FlagDef pident0 pident -> prPrec i 0 (concatD [prt 0 pident0 , doc (showString "=") , prt 0 pident]) + + prtList es = case es of + [x] -> (concatD [prt 0 x , doc (showString ";")]) + x:xs -> (concatD [prt 0 x , doc (showString ";") , prt 0 xs]) + +instance Print Name where + prt i e = case e of + IdentName pident -> prPrec i 0 (concatD [prt 0 pident]) + ListName pident -> prPrec i 0 (concatD [doc (showString "[") , prt 0 pident , doc (showString "]")]) + + prtList es = case es of + [x] -> (concatD [prt 0 x]) + x:xs -> (concatD [prt 0 x , doc (showString ",") , prt 0 xs]) + +instance Print LocDef where + prt i e = case e of + LDDecl pidents exp -> prPrec i 0 (concatD [prt 0 pidents , doc (showString ":") , prt 0 exp]) + LDDef pidents exp -> prPrec i 0 (concatD [prt 0 pidents , doc (showString "=") , prt 0 exp]) + LDFull pidents exp0 exp -> prPrec i 0 (concatD [prt 0 pidents , doc (showString ":") , prt 0 exp0 , doc (showString "=") , prt 0 exp]) + + prtList es = case es of + [] -> (concatD []) + [x] -> (concatD [prt 0 x]) + x:xs -> (concatD [prt 0 x , doc (showString ";") , prt 0 xs]) + +instance Print Exp where + prt i e = case e of + EIdent pident -> prPrec i 6 (concatD [prt 0 pident]) + EConstr pident -> prPrec i 6 (concatD [doc (showString "{") , prt 0 pident , doc (showString "}")]) + ECons pident -> prPrec i 6 (concatD [doc (showString "%") , prt 0 pident , doc (showString "%")]) + ESort sort -> prPrec i 6 (concatD [prt 0 sort]) + EString str -> prPrec i 6 (concatD [prt 0 str]) + EInt n -> prPrec i 6 (concatD [prt 0 n]) + EFloat d -> prPrec i 6 (concatD [prt 0 d]) + EMeta -> prPrec i 6 (concatD [doc (showString "?")]) + EEmpty -> prPrec i 6 (concatD [doc (showString "[") , doc (showString "]")]) + EData -> prPrec i 6 (concatD [doc (showString "data")]) + EList pident exps -> prPrec i 6 (concatD [doc (showString "[") , prt 0 pident , prt 0 exps , doc (showString "]")]) + EStrings str -> prPrec i 6 (concatD [doc (showString "[") , prt 0 str , doc (showString "]")]) + ERecord locdefs -> prPrec i 6 (concatD [doc (showString "{") , prt 0 locdefs , doc (showString "}")]) + ETuple tuplecomps -> prPrec i 6 (concatD [doc (showString "<") , prt 0 tuplecomps , doc (showString ">")]) + EIndir pident -> prPrec i 6 (concatD [doc (showString "(") , doc (showString "in") , prt 0 pident , doc (showString ")")]) + ETyped exp0 exp -> prPrec i 6 (concatD [doc (showString "<") , prt 0 exp0 , doc (showString ":") , prt 0 exp , doc (showString ">")]) + EProj exp label -> prPrec i 5 (concatD [prt 5 exp , doc (showString ".") , prt 0 label]) + EQConstr pident0 pident -> prPrec i 5 (concatD [doc (showString "{") , prt 0 pident0 , doc (showString ".") , prt 0 pident , doc (showString "}")]) + EQCons pident0 pident -> prPrec i 5 (concatD [doc (showString "%") , prt 0 pident0 , doc (showString ".") , prt 0 pident]) + EApp exp0 exp -> prPrec i 4 (concatD [prt 4 exp0 , prt 5 exp]) + ETable cases -> prPrec i 4 (concatD [doc (showString "table") , doc (showString "{") , prt 0 cases , doc (showString "}")]) + ETTable exp cases -> prPrec i 4 (concatD [doc (showString "table") , prt 6 exp , doc (showString "{") , prt 0 cases , doc (showString "}")]) + EVTable exp exps -> prPrec i 4 (concatD [doc (showString "table") , prt 6 exp , doc (showString "[") , prt 0 exps , doc (showString "]")]) + ECase exp cases -> prPrec i 4 (concatD [doc (showString "case") , prt 0 exp , doc (showString "of") , doc (showString "{") , prt 0 cases , doc (showString "}")]) + EVariants exps -> prPrec i 4 (concatD [doc (showString "variants") , doc (showString "{") , prt 0 exps , doc (showString "}")]) + EPre exp alterns -> prPrec i 4 (concatD [doc (showString "pre") , doc (showString "{") , prt 0 exp , doc (showString ";") , prt 0 alterns , doc (showString "}")]) + EStrs exps -> prPrec i 4 (concatD [doc (showString "strs") , doc (showString "{") , prt 0 exps , doc (showString "}")]) + EConAt pident exp -> prPrec i 4 (concatD [prt 0 pident , doc (showString "@") , prt 6 exp]) + EPatt patt -> prPrec i 4 (concatD [doc (showString "#") , prt 2 patt]) + EPattType exp -> prPrec i 4 (concatD [doc (showString "pattern") , prt 5 exp]) + ESelect exp0 exp -> prPrec i 3 (concatD [prt 3 exp0 , doc (showString "!") , prt 4 exp]) + ETupTyp exp0 exp -> prPrec i 3 (concatD [prt 3 exp0 , doc (showString "*") , prt 4 exp]) + EExtend exp0 exp -> prPrec i 3 (concatD [prt 3 exp0 , doc (showString "**") , prt 4 exp]) + EGlue exp0 exp -> prPrec i 1 (concatD [prt 2 exp0 , doc (showString "+") , prt 1 exp]) + EConcat exp0 exp -> prPrec i 0 (concatD [prt 1 exp0 , doc (showString "++") , prt 0 exp]) + EAbstr binds exp -> prPrec i 0 (concatD [doc (showString "\\") , prt 0 binds , doc (showString "->") , prt 0 exp]) + ECTable binds exp -> prPrec i 0 (concatD [doc (showString "\\") , doc (showString "\\") , prt 0 binds , doc (showString "=>") , prt 0 exp]) + EProd decl exp -> prPrec i 0 (concatD [prt 0 decl , doc (showString "->") , prt 0 exp]) + ETType exp0 exp -> prPrec i 0 (concatD [prt 3 exp0 , doc (showString "=>") , prt 0 exp]) + ELet locdefs exp -> prPrec i 0 (concatD [doc (showString "let") , doc (showString "{") , prt 0 locdefs , doc (showString "}") , doc (showString "in") , prt 0 exp]) + ELetb locdefs exp -> prPrec i 0 (concatD [doc (showString "let") , prt 0 locdefs , doc (showString "in") , prt 0 exp]) + EWhere exp locdefs -> prPrec i 0 (concatD [prt 3 exp , doc (showString "where") , doc (showString "{") , prt 0 locdefs , doc (showString "}")]) + EEqs equations -> prPrec i 0 (concatD [doc (showString "fn") , doc (showString "{") , prt 0 equations , doc (showString "}")]) + EExample exp str -> prPrec i 0 (concatD [doc (showString "in") , prt 5 exp , prt 0 str]) + ELString lstring -> prPrec i 6 (concatD [prt 0 lstring]) + ELin pident -> prPrec i 4 (concatD [doc (showString "Lin") , prt 0 pident]) + + prtList es = case es of + [] -> (concatD []) + [x] -> (concatD [prt 0 x]) + x:xs -> (concatD [prt 0 x , doc (showString ";") , prt 0 xs]) + +instance Print Exps where + prt i e = case e of + NilExp -> prPrec i 0 (concatD []) + ConsExp exp exps -> prPrec i 0 (concatD [prt 6 exp , prt 0 exps]) + + +instance Print Patt where + prt i e = case e of + PChar -> prPrec i 2 (concatD [doc (showString "?")]) + PChars str -> prPrec i 2 (concatD [doc (showString "[") , prt 0 str , doc (showString "]")]) + PMacro pident -> prPrec i 2 (concatD [doc (showString "#") , prt 0 pident]) + PM pident0 pident -> prPrec i 2 (concatD [doc (showString "#") , prt 0 pident0 , doc (showString ".") , prt 0 pident]) + PW -> prPrec i 2 (concatD [doc (showString "_")]) + PV pident -> prPrec i 2 (concatD [prt 0 pident]) + PCon pident -> prPrec i 2 (concatD [doc (showString "{") , prt 0 pident , doc (showString "}")]) + PQ pident0 pident -> prPrec i 2 (concatD [prt 0 pident0 , doc (showString ".") , prt 0 pident]) + PInt n -> prPrec i 2 (concatD [prt 0 n]) + PFloat d -> prPrec i 2 (concatD [prt 0 d]) + PStr str -> prPrec i 2 (concatD [prt 0 str]) + PR pattasss -> prPrec i 2 (concatD [doc (showString "{") , prt 0 pattasss , doc (showString "}")]) + PTup patttuplecomps -> prPrec i 2 (concatD [doc (showString "<") , prt 0 patttuplecomps , doc (showString ">")]) + PC pident patts -> prPrec i 1 (concatD [prt 0 pident , prt 0 patts]) + PQC pident0 pident patts -> prPrec i 1 (concatD [prt 0 pident0 , doc (showString ".") , prt 0 pident , prt 0 patts]) + PDisj patt0 patt -> prPrec i 0 (concatD [prt 0 patt0 , doc (showString "|") , prt 1 patt]) + PSeq patt0 patt -> prPrec i 0 (concatD [prt 0 patt0 , doc (showString "+") , prt 1 patt]) + PRep patt -> prPrec i 1 (concatD [prt 2 patt , doc (showString "*")]) + PAs pident patt -> prPrec i 1 (concatD [prt 0 pident , doc (showString "@") , prt 2 patt]) + PNeg patt -> prPrec i 1 (concatD [doc (showString "-") , prt 2 patt]) + + prtList es = case es of + [x] -> (concatD [prt 2 x]) + x:xs -> (concatD [prt 2 x , prt 0 xs]) + +instance Print PattAss where + prt i e = case e of + PA pidents patt -> prPrec i 0 (concatD [prt 0 pidents , doc (showString "=") , prt 0 patt]) + + prtList es = case es of + [] -> (concatD []) + [x] -> (concatD [prt 0 x]) + x:xs -> (concatD [prt 0 x , doc (showString ";") , prt 0 xs]) + +instance Print Label where + prt i e = case e of + LIdent pident -> prPrec i 0 (concatD [prt 0 pident]) + LVar n -> prPrec i 0 (concatD [doc (showString "$") , prt 0 n]) + + +instance Print Sort where + prt i e = case e of + Sort_Type -> prPrec i 0 (concatD [doc (showString "Type")]) + Sort_PType -> prPrec i 0 (concatD [doc (showString "PType")]) + Sort_Tok -> prPrec i 0 (concatD [doc (showString "Tok")]) + Sort_Str -> prPrec i 0 (concatD [doc (showString "Str")]) + Sort_Strs -> prPrec i 0 (concatD [doc (showString "Strs")]) + + +instance Print Bind where + prt i e = case e of + BIdent pident -> prPrec i 0 (concatD [prt 0 pident]) + BWild -> prPrec i 0 (concatD [doc (showString "_")]) + + prtList es = case es of + [] -> (concatD []) + [x] -> (concatD [prt 0 x]) + x:xs -> (concatD [prt 0 x , doc (showString ",") , prt 0 xs]) + +instance Print Decl where + prt i e = case e of + DDec binds exp -> prPrec i 0 (concatD [doc (showString "(") , prt 0 binds , doc (showString ":") , prt 0 exp , doc (showString ")")]) + DExp exp -> prPrec i 0 (concatD [prt 4 exp]) + + +instance Print TupleComp where + prt i e = case e of + TComp exp -> prPrec i 0 (concatD [prt 0 exp]) + + prtList es = case es of + [] -> (concatD []) + [x] -> (concatD [prt 0 x]) + x:xs -> (concatD [prt 0 x , doc (showString ",") , prt 0 xs]) + +instance Print PattTupleComp where + prt i e = case e of + PTComp patt -> prPrec i 0 (concatD [prt 0 patt]) + + prtList es = case es of + [] -> (concatD []) + [x] -> (concatD [prt 0 x]) + x:xs -> (concatD [prt 0 x , doc (showString ",") , prt 0 xs]) + +instance Print Case where + prt i e = case e of + Case patt exp -> prPrec i 0 (concatD [prt 0 patt , doc (showString "=>") , prt 0 exp]) + + prtList es = case es of + [x] -> (concatD [prt 0 x]) + x:xs -> (concatD [prt 0 x , doc (showString ";") , prt 0 xs]) + +instance Print Equation where + prt i e = case e of + Equ patts exp -> prPrec i 0 (concatD [prt 0 patts , doc (showString "->") , prt 0 exp]) + + prtList es = case es of + [] -> (concatD []) + [x] -> (concatD [prt 0 x]) + x:xs -> (concatD [prt 0 x , doc (showString ";") , prt 0 xs]) + +instance Print Altern where + prt i e = case e of + Alt exp0 exp -> prPrec i 0 (concatD [prt 0 exp0 , doc (showString "/") , prt 0 exp]) + + prtList es = case es of + [] -> (concatD []) + [x] -> (concatD [prt 0 x]) + x:xs -> (concatD [prt 0 x , doc (showString ";") , prt 0 xs]) + +instance Print DDecl where + prt i e = case e of + DDDec binds exp -> prPrec i 0 (concatD [doc (showString "(") , prt 0 binds , doc (showString ":") , prt 0 exp , doc (showString ")")]) + DDExp exp -> prPrec i 0 (concatD [prt 6 exp]) + + prtList es = case es of + [] -> (concatD []) + x:xs -> (concatD [prt 0 x , prt 0 xs]) + +instance Print OldGrammar where + prt i e = case e of + OldGr include topdefs -> prPrec i 0 (concatD [prt 0 include , prt 0 topdefs]) + + +instance Print Include where + prt i e = case e of + NoIncl -> prPrec i 0 (concatD []) + Incl filenames -> prPrec i 0 (concatD [doc (showString "include") , prt 0 filenames]) + + +instance Print FileName where + prt i e = case e of + FString str -> prPrec i 0 (concatD [prt 0 str]) + FIdent pident -> prPrec i 0 (concatD [prt 0 pident]) + FSlash filename -> prPrec i 0 (concatD [doc (showString "/") , prt 0 filename]) + FDot filename -> prPrec i 0 (concatD [doc (showString ".") , prt 0 filename]) + FMinus filename -> prPrec i 0 (concatD [doc (showString "-") , prt 0 filename]) + FAddId pident filename -> prPrec i 0 (concatD [prt 0 pident , prt 0 filename]) + + prtList es = case es of + [x] -> (concatD [prt 0 x , doc (showString ";")]) + x:xs -> (concatD [prt 0 x , doc (showString ";") , prt 0 xs]) + + diff --git a/src-3.0/GF/Source/SkelGF.hs b/src-3.0/GF/Source/SkelGF.hs new file mode 100644 index 000000000..3bd192f9d --- /dev/null +++ b/src-3.0/GF/Source/SkelGF.hs @@ -0,0 +1,364 @@ +module GF.Source.SkelGF where + +-- Haskell module generated by the BNF converter + +import GF.Source.AbsGF +import GF.Source.ErrM +type Result = Err String + +failure :: Show a => a -> Result +failure x = Bad $ "Undefined case: " ++ show x + +transLString :: LString -> Result +transLString x = case x of + LString str -> failure x + + +transPIdent :: PIdent -> Result +transPIdent x = case x of + PIdent str -> failure x + + +transGrammar :: Grammar -> Result +transGrammar x = case x of + Gr moddefs -> failure x + + +transModDef :: ModDef -> Result +transModDef x = case x of + MMain pident0 pident concspecs -> failure x + MModule complmod modtype modbody -> failure x + + +transConcSpec :: ConcSpec -> Result +transConcSpec x = case x of + ConcSpec pident concexp -> failure x + + +transConcExp :: ConcExp -> Result +transConcExp x = case x of + ConcExp pident transfers -> failure x + + +transTransfer :: Transfer -> Result +transTransfer x = case x of + TransferIn open -> failure x + TransferOut open -> failure x + + +transModType :: ModType -> Result +transModType x = case x of + MTAbstract pident -> failure x + MTResource pident -> failure x + MTInterface pident -> failure x + MTConcrete pident0 pident -> failure x + MTInstance pident0 pident -> failure x + MTTransfer pident open0 open -> failure x + + +transModBody :: ModBody -> Result +transModBody x = case x of + MBody extend opens topdefs -> failure x + MNoBody includeds -> failure x + MWith included opens -> failure x + MWithBody included opens0 opens topdefs -> failure x + MWithE includeds included opens -> failure x + MWithEBody includeds included opens0 opens topdefs -> failure x + MReuse pident -> failure x + MUnion includeds -> failure x + + +transExtend :: Extend -> Result +transExtend x = case x of + Ext includeds -> failure x + NoExt -> failure x + + +transOpens :: Opens -> Result +transOpens x = case x of + NoOpens -> failure x + OpenIn opens -> failure x + + +transOpen :: Open -> Result +transOpen x = case x of + OName pident -> failure x + OQualQO qualopen pident -> failure x + OQual qualopen pident0 pident -> failure x + + +transComplMod :: ComplMod -> Result +transComplMod x = case x of + CMCompl -> failure x + CMIncompl -> failure x + + +transQualOpen :: QualOpen -> Result +transQualOpen x = case x of + QOCompl -> failure x + QOIncompl -> failure x + QOInterface -> failure x + + +transIncluded :: Included -> Result +transIncluded x = case x of + IAll pident -> failure x + ISome pident pidents -> failure x + IMinus pident pidents -> failure x + + +transDef :: Def -> Result +transDef x = case x of + DDecl names exp -> failure x + DDef names exp -> failure x + DPatt name patts exp -> failure x + DFull names exp0 exp -> failure x + + +transTopDef :: TopDef -> Result +transTopDef x = case x of + DefCat catdefs -> failure x + DefFun fundefs -> failure x + DefFunData fundefs -> failure x + DefDef defs -> failure x + DefData datadefs -> failure x + DefTrans defs -> failure x + DefPar pardefs -> failure x + DefOper defs -> failure x + DefLincat printdefs -> failure x + DefLindef defs -> failure x + DefLin defs -> failure x + DefPrintCat printdefs -> failure x + DefPrintFun printdefs -> failure x + DefFlag flagdefs -> failure x + DefPrintOld printdefs -> failure x + DefLintype defs -> failure x + DefPattern defs -> failure x + DefPackage pident topdefs -> failure x + DefVars defs -> failure x + DefTokenizer pident -> failure x + + +transCatDef :: CatDef -> Result +transCatDef x = case x of + SimpleCatDef pident ddecls -> failure x + ListCatDef pident ddecls -> failure x + ListSizeCatDef pident ddecls n -> failure x + + +transFunDef :: FunDef -> Result +transFunDef x = case x of + FunDef pidents exp -> failure x + + +transDataDef :: DataDef -> Result +transDataDef x = case x of + DataDef pident dataconstrs -> failure x + + +transDataConstr :: DataConstr -> Result +transDataConstr x = case x of + DataId pident -> failure x + DataQId pident0 pident -> failure x + + +transParDef :: ParDef -> Result +transParDef x = case x of + ParDefDir pident parconstrs -> failure x + ParDefIndir pident0 pident -> failure x + ParDefAbs pident -> failure x + + +transParConstr :: ParConstr -> Result +transParConstr x = case x of + ParConstr pident ddecls -> failure x + + +transPrintDef :: PrintDef -> Result +transPrintDef x = case x of + PrintDef names exp -> failure x + + +transFlagDef :: FlagDef -> Result +transFlagDef x = case x of + FlagDef pident0 pident -> failure x + + +transName :: Name -> Result +transName x = case x of + IdentName pident -> failure x + ListName pident -> failure x + + +transLocDef :: LocDef -> Result +transLocDef x = case x of + LDDecl pidents exp -> failure x + LDDef pidents exp -> failure x + LDFull pidents exp0 exp -> failure x + + +transExp :: Exp -> Result +transExp x = case x of + EIdent pident -> failure x + EConstr pident -> failure x + ECons pident -> failure x + ESort sort -> failure x + EString str -> failure x + EInt n -> failure x + EFloat d -> failure x + EMeta -> failure x + EEmpty -> failure x + EData -> failure x + EList pident exps -> failure x + EStrings str -> failure x + ERecord locdefs -> failure x + ETuple tuplecomps -> failure x + EIndir pident -> failure x + ETyped exp0 exp -> failure x + EProj exp label -> failure x + EQConstr pident0 pident -> failure x + EQCons pident0 pident -> failure x + EApp exp0 exp -> failure x + ETable cases -> failure x + ETTable exp cases -> failure x + EVTable exp exps -> failure x + ECase exp cases -> failure x + EVariants exps -> failure x + EPre exp alterns -> failure x + EStrs exps -> failure x + EConAt pident exp -> failure x + EPatt patt -> failure x + EPattType exp -> failure x + ESelect exp0 exp -> failure x + ETupTyp exp0 exp -> failure x + EExtend exp0 exp -> failure x + EGlue exp0 exp -> failure x + EConcat exp0 exp -> failure x + EAbstr binds exp -> failure x + ECTable binds exp -> failure x + EProd decl exp -> failure x + ETType exp0 exp -> failure x + ELet locdefs exp -> failure x + ELetb locdefs exp -> failure x + EWhere exp locdefs -> failure x + EEqs equations -> failure x + EExample exp str -> failure x + ELString lstring -> failure x + ELin pident -> failure x + + +transExps :: Exps -> Result +transExps x = case x of + NilExp -> failure x + ConsExp exp exps -> failure x + + +transPatt :: Patt -> Result +transPatt x = case x of + PChar -> failure x + PChars str -> failure x + PMacro pident -> failure x + PM pident0 pident -> failure x + PW -> failure x + PV pident -> failure x + PCon pident -> failure x + PQ pident0 pident -> failure x + PInt n -> failure x + PFloat d -> failure x + PStr str -> failure x + PR pattasss -> failure x + PTup patttuplecomps -> failure x + PC pident patts -> failure x + PQC pident0 pident patts -> failure x + PDisj patt0 patt -> failure x + PSeq patt0 patt -> failure x + PRep patt -> failure x + PAs pident patt -> failure x + PNeg patt -> failure x + + +transPattAss :: PattAss -> Result +transPattAss x = case x of + PA pidents patt -> failure x + + +transLabel :: Label -> Result +transLabel x = case x of + LIdent pident -> failure x + LVar n -> failure x + + +transSort :: Sort -> Result +transSort x = case x of + Sort_Type -> failure x + Sort_PType -> failure x + Sort_Tok -> failure x + Sort_Str -> failure x + Sort_Strs -> failure x + + +transBind :: Bind -> Result +transBind x = case x of + BIdent pident -> failure x + BWild -> failure x + + +transDecl :: Decl -> Result +transDecl x = case x of + DDec binds exp -> failure x + DExp exp -> failure x + + +transTupleComp :: TupleComp -> Result +transTupleComp x = case x of + TComp exp -> failure x + + +transPattTupleComp :: PattTupleComp -> Result +transPattTupleComp x = case x of + PTComp patt -> failure x + + +transCase :: Case -> Result +transCase x = case x of + Case patt exp -> failure x + + +transEquation :: Equation -> Result +transEquation x = case x of + Equ patts exp -> failure x + + +transAltern :: Altern -> Result +transAltern x = case x of + Alt exp0 exp -> failure x + + +transDDecl :: DDecl -> Result +transDDecl x = case x of + DDDec binds exp -> failure x + DDExp exp -> failure x + + +transOldGrammar :: OldGrammar -> Result +transOldGrammar x = case x of + OldGr include topdefs -> failure x + + +transInclude :: Include -> Result +transInclude x = case x of + NoIncl -> failure x + Incl filenames -> failure x + + +transFileName :: FileName -> Result +transFileName x = case x of + FString str -> failure x + FIdent pident -> failure x + FSlash filename -> failure x + FDot filename -> failure x + FMinus filename -> failure x + FAddId pident filename -> failure x + + + diff --git a/src-3.0/GF/Source/SourceToGrammar.hs b/src-3.0/GF/Source/SourceToGrammar.hs new file mode 100644 index 000000000..132bd4704 --- /dev/null +++ b/src-3.0/GF/Source/SourceToGrammar.hs @@ -0,0 +1,755 @@ +---------------------------------------------------------------------- +-- | +-- Module : SourceToGrammar +-- Maintainer : AR +-- Stability : (stable) +-- Portability : (portable) +-- +-- > CVS $Date: 2005/10/04 11:05:07 $ +-- > CVS $Author: aarne $ +-- > CVS $Revision: 1.28 $ +-- +-- based on the skeleton Haskell module generated by the BNF converter +----------------------------------------------------------------------------- + +module GF.Source.SourceToGrammar ( transGrammar, + transInclude, + transModDef, + transOldGrammar, + transExp, + newReservedWords + ) where + +import qualified GF.Grammar.Grammar as G +import qualified GF.Grammar.PrGrammar as GP +import qualified GF.Infra.Modules as GM +import qualified GF.Grammar.Macros as M +import qualified GF.Compile.Update as U +import qualified GF.Infra.Option as GO +import qualified GF.Compile.ModDeps as GD +import GF.Infra.Ident +import GF.Source.AbsGF +import GF.Source.PrintGF +import GF.Compile.RemoveLiT --- for bw compat +import GF.Data.Operations +import GF.Infra.Option + +import Control.Monad +import Data.Char +import Data.List (genericReplicate) + +-- based on the skeleton Haskell module generated by the BNF converter + +type Result = Err String + +failure :: Show a => a -> Err b +failure x = Bad $ "Undefined case: " ++ show x + +prPIdent :: PIdent -> String +prPIdent (PIdent (_,c)) = c + +getIdentPos :: PIdent -> Err (Ident,Int) +getIdentPos x = case x of + PIdent ((line,_),c) -> return (IC c,line) + +transIdent :: PIdent -> Err Ident +transIdent = liftM fst . getIdentPos + +transName :: Name -> Err Ident +transName n = case n of + IdentName i -> transIdent i + ListName i -> liftM mkListId (transIdent i) + +transGrammar :: Grammar -> Err G.SourceGrammar +transGrammar x = case x of + Gr moddefs -> do + moddefs' <- mapM transModDef moddefs + GD.mkSourceGrammar moddefs' + +transModDef :: ModDef -> Err (Ident, G.SourceModInfo) +transModDef x = case x of + + MMain id0 id concspecs -> do + id0' <- transIdent id0 + id' <- transIdent id + concspecs' <- mapM transConcSpec concspecs + return $ (id0', GM.ModMainGrammar (GM.MainGrammar id' concspecs')) + + MModule compl mtyp body -> do + + let mstat' = transComplMod compl + + (trDef, mtyp', id') <- case mtyp of + MTAbstract id -> do + id' <- transIdent id + return (transAbsDef, GM.MTAbstract, id') + MTResource id -> mkModRes id GM.MTResource body + MTConcrete id open -> do + id' <- transIdent id + open' <- transIdent open + return (transCncDef, GM.MTConcrete open', id') + MTTransfer id a b -> do + id' <- transIdent id + a' <- transOpen a + b' <- transOpen a + return (transAbsDef, GM.MTTransfer a' b', id') + MTInterface id -> mkModRes id GM.MTInterface body + MTInstance id open -> do + open' <- transIdent open + mkModRes id (GM.MTInstance open') body + + mkBody (mstat', trDef, mtyp', id') body + where + mkBody xx@(mstat', trDef, mtyp', id') bod = case bod of + MNoBody incls -> do + mkBody xx $ MBody (Ext incls) NoOpens [] + MBody extends opens defs -> do + extends' <- transExtend extends + opens' <- transOpens opens + defs0 <- mapM trDef $ getTopDefs defs + defs' <- U.buildAnyTree [d | Left ds <- defs0, d <- ds] + flags' <- return [f | Right fs <- defs0, f <- fs] + return (id',GM.ModMod (GM.Module mtyp' mstat' flags' extends' opens' defs')) + MReuse _ -> do + return (id', GM.ModMod (GM.Module mtyp' mstat' [] [] [] emptyBinTree)) + MUnion imps -> do + imps' <- mapM transIncluded imps + return (id', + GM.ModMod (GM.Module (GM.MTUnion mtyp' imps') mstat' [] [] [] emptyBinTree)) + + MWith m insts -> mkBody xx $ MWithEBody [] m insts NoOpens [] + MWithBody m insts opens defs -> mkBody xx $ MWithEBody [] m insts opens defs + MWithE extends m insts -> mkBody xx $ MWithEBody extends m insts NoOpens [] + MWithEBody extends m insts opens defs -> do + extends' <- mapM transIncludedExt extends + m' <- transIncludedExt m + insts' <- mapM transOpen insts + opens' <- transOpens opens + defs0 <- mapM trDef $ getTopDefs defs + defs' <- U.buildAnyTree [d | Left ds <- defs0, d <- ds] + flags' <- return [f | Right fs <- defs0, f <- fs] + return (id', + GM.ModWith (GM.Module mtyp' mstat' flags' extends' opens' defs') m' insts') + + mkModRes id mtyp body = do + id' <- transIdent id + case body of + MReuse c -> do + c' <- transIdent c + mtyp' <- trMReuseType mtyp c' + return (transResDef, GM.MTReuse mtyp', id') + _ -> return (transResDef, mtyp, id') + trMReuseType mtyp c = case mtyp of + GM.MTInterface -> return $ GM.MRInterface c + GM.MTInstance op -> return $ GM.MRInstance c op + GM.MTResource -> return $ GM.MRResource c + + +transComplMod :: ComplMod -> GM.ModuleStatus +transComplMod x = case x of + CMCompl -> GM.MSComplete + CMIncompl -> GM.MSIncomplete + +getTopDefs :: [TopDef] -> [TopDef] +getTopDefs x = x + +transConcSpec :: ConcSpec -> Err (GM.MainConcreteSpec Ident) +transConcSpec x = case x of + ConcSpec id concexp -> do + id' <- transIdent id + (m,mi,mo) <- transConcExp concexp + return $ GM.MainConcreteSpec id' m mi mo + +transConcExp :: ConcExp -> + Err (Ident, Maybe (GM.OpenSpec Ident),Maybe (GM.OpenSpec Ident)) +transConcExp x = case x of + ConcExp id transfers -> do + id' <- transIdent id + trs <- mapM transTransfer transfers + tin <- case [o | Left o <- trs] of + [o] -> return $ Just o + [] -> return $ Nothing + _ -> Bad "ambiguous transfer in" + tout <- case [o | Right o <- trs] of + [o] -> return $ Just o + [] -> return $ Nothing + _ -> Bad "ambiguous transfer out" + return (id',tin,tout) + +transTransfer :: Transfer -> + Err (Either (GM.OpenSpec Ident)(GM.OpenSpec Ident)) +transTransfer x = case x of + TransferIn open -> liftM Left $ transOpen open + TransferOut open -> liftM Right $ transOpen open + +transExtend :: Extend -> Err [(Ident,GM.MInclude Ident)] +transExtend x = case x of + Ext ids -> mapM transIncludedExt ids + NoExt -> return [] + +transOpens :: Opens -> Err [GM.OpenSpec Ident] +transOpens x = case x of + NoOpens -> return [] + OpenIn opens -> mapM transOpen opens + +transOpen :: Open -> Err (GM.OpenSpec Ident) +transOpen x = case x of + OName id -> liftM (GM.OSimple GM.OQNormal) $ transIdent id + OQualQO q id -> liftM2 GM.OSimple (transQualOpen q) (transIdent id) + OQual q id m -> liftM3 GM.OQualif (transQualOpen q) (transIdent id) (transIdent m) + +transQualOpen :: QualOpen -> Err GM.OpenQualif +transQualOpen x = case x of + QOCompl -> return GM.OQNormal + QOInterface -> return GM.OQInterface + QOIncompl -> return GM.OQIncomplete + +transIncluded :: Included -> Err (Ident,[Ident]) +transIncluded x = case x of + IAll i -> liftM (flip (curry id) []) $ transIdent i + ISome i ids -> liftM2 (curry id) (transIdent i) (mapM transIdent ids) + IMinus i ids -> liftM2 (curry id) (transIdent i) (mapM transIdent ids) ---- + +transIncludedExt :: Included -> Err (Ident, GM.MInclude Ident) +transIncludedExt x = case x of + IAll i -> liftM2 (,) (transIdent i) (return GM.MIAll) + ISome i ids -> liftM2 (,) (transIdent i) (liftM GM.MIOnly $ mapM transIdent ids) + IMinus i ids -> liftM2 (,) (transIdent i) (liftM GM.MIExcept $ mapM transIdent ids) + +transAbsDef :: TopDef -> Err (Either [(Ident, G.Info)] [GO.Option]) +transAbsDef x = case x of + DefCat catdefs -> liftM (Left . concat) $ mapM transCatDef catdefs + DefFun fundefs -> do + fundefs' <- mapM transFunDef fundefs + returnl [(fun, G.AbsFun (yes typ) nope) | (funs,typ) <- fundefs', fun <- funs] + DefFunData fundefs -> do + fundefs' <- mapM transFunDef fundefs + returnl $ + [(cat, G.AbsCat nope (yes [M.cn fun])) | (funs,typ) <- fundefs', + fun <- funs, + Ok (_,cat) <- [M.valCat typ] + ] ++ + [(fun, G.AbsFun (yes typ) (yes G.EData)) | (funs,typ) <- fundefs', fun <- funs] + DefDef defs -> do + defs' <- liftM concat $ mapM getDefsGen defs + returnl [(c, G.AbsFun nope pe) | (c,(_,pe)) <- defs'] + DefData ds -> do + ds' <- mapM transDataDef ds + returnl $ + [(c, G.AbsCat nope (yes ps)) | (c,ps) <- ds'] ++ + [(f, G.AbsFun nope (yes G.EData)) | (_,fs) <- ds', tf <- fs, f <- funs tf] + DefTrans defs -> do + defs' <- liftM concat $ mapM getDefsGen defs + returnl [(c, G.AbsTrans f) | (c,(_,Yes f)) <- defs'] + DefFlag defs -> liftM Right $ mapM transFlagDef defs + _ -> Bad $ "illegal definition in abstract module:" ++++ printTree x + where + -- to get data constructors as terms + funs t = case t of + G.Cn f -> [f] + G.Q _ f -> [f] + G.QC _ f -> [f] + _ -> [] + +returnl :: a -> Err (Either a b) +returnl = return . Left + +transFlagDef :: FlagDef -> Err GO.Option +transFlagDef x = case x of + FlagDef f x -> return $ GO.Opt (prPIdent f,[prPIdent x]) + +-- | Cat definitions can also return some fun defs +-- if it is a list category definition +transCatDef :: CatDef -> Err [(Ident, G.Info)] +transCatDef x = case x of + SimpleCatDef id ddecls -> do + id' <- transIdent id + liftM (:[]) $ cat id' ddecls + ListCatDef id ddecls -> listCat id ddecls 0 + ListSizeCatDef id ddecls size -> listCat id ddecls size + where + cat i ddecls = do + -- i <- transIdent id + cont <- liftM concat $ mapM transDDecl ddecls + return (i, G.AbsCat (yes cont) nope) + listCat id ddecls size = do + id' <- transIdent id + let + li = mkListId id' + baseId = mkBaseId id' + consId = mkConsId id' + catd0@(c,G.AbsCat (Yes cont0) _) <- cat li ddecls + let + catd = (c,G.AbsCat (Yes cont0) (Yes [M.cn baseId,M.cn consId])) + cont = [(mkId x i,ty) | (i,(x,ty)) <- zip [0..] cont0] + xs = map (G.Vr . fst) cont + cd = M.mkDecl (M.mkApp (G.Vr id') xs) + lc = M.mkApp (G.Vr li) xs + niltyp = M.mkProdSimple (cont ++ genericReplicate size cd) lc + nilfund = (baseId, G.AbsFun (yes niltyp) (yes G.EData)) + constyp = M.mkProdSimple (cont ++ [cd, M.mkDecl lc]) lc + consfund = (consId, G.AbsFun (yes constyp) (yes G.EData)) + return [catd,nilfund,consfund] + mkId x i = if isWildIdent x then (mkIdent "x" i) else x + +transFunDef :: FunDef -> Err ([Ident], G.Type) +transFunDef x = case x of + FunDef ids typ -> liftM2 (,) (mapM transIdent ids) (transExp typ) + +transDataDef :: DataDef -> Err (Ident,[G.Term]) +transDataDef x = case x of + DataDef id ds -> liftM2 (,) (transIdent id) (mapM transData ds) + where + transData d = case d of + DataId id -> liftM G.Cn $ transIdent id + DataQId id0 id -> liftM2 G.QC (transIdent id0) (transIdent id) + +transResDef :: TopDef -> Err (Either [(Ident, G.Info)] [GO.Option]) +transResDef x = case x of + DefPar pardefs -> do + pardefs' <- mapM transParDef pardefs + returnl $ [(p, G.ResParam (if null pars + then nope -- abstract param type + else (yes (pars,Nothing)))) + | (p,pars) <- pardefs'] + ++ [(f, G.ResValue (yes (M.mkProdSimple co (G.Cn p),Nothing))) | + (p,pars) <- pardefs', (f,co) <- pars] + +{- + ---- encoding of AnyInd without changing syntax. AR 20/9/2007 + DefOper [DDef [c] (EApp (EInt status) (EIdent mo))] -> do + c' <- transName c + mo' <- transIdent mo + return $ Left [(c',G.AnyInd (status==1) mo')] +-} + DefOper defs -> do + defs' <- liftM concat $ mapM getDefs defs + returnl $ concatMap mkOverload [(f, G.ResOper pt pe) | (f,(pt,pe)) <- defs'] + + DefLintype defs -> do + defs' <- liftM concat $ mapM getDefs defs + returnl [(f, G.ResOper pt pe) | (f,(pt,pe)) <- defs'] + + DefFlag defs -> liftM Right $ mapM transFlagDef defs + _ -> Bad $ "illegal definition form in resource" +++ printTree x + where + mkOverload (c,j) = case j of + G.ResOper _ (Yes (G.App keyw (G.R fs@(_:_:_)))) | + isOverloading keyw c fs -> + [(c,G.ResOverload [(ty,fu) | (_,(Just ty,fu)) <- fs])] + + -- to enable separare type signature --- not type-checked + G.ResOper (Yes (G.App keyw (G.RecType fs@(_:_:_)))) _ | + isOverloading keyw c fs -> [] + _ -> [(c,j)] + isOverloading keyw c fs = + GP.prt keyw == "overload" && -- overload is a "soft keyword" + all (== GP.prt c) (map (GP.prt . fst) fs) + +transParDef :: ParDef -> Err (Ident, [G.Param]) +transParDef x = case x of + ParDefDir id params -> liftM2 (,) (transIdent id) (mapM transParConstr params) + ParDefAbs id -> liftM2 (,) (transIdent id) (return []) + _ -> Bad $ "illegal definition in resource:" ++++ printTree x + +transCncDef :: TopDef -> Err (Either [(Ident, G.Info)] [GO.Option]) +transCncDef x = case x of + DefLincat defs -> do + defs' <- liftM concat $ mapM transPrintDef defs + returnl [(f, G.CncCat (yes t) nope nope) | (f,t) <- defs'] + DefLindef defs -> do + defs' <- liftM concat $ mapM getDefs defs + returnl [(f, G.CncCat pt pe nope) | (f,(pt,pe)) <- defs'] + DefLin defs -> do + defs' <- liftM concat $ mapM getDefs defs + returnl [(f, G.CncFun Nothing pe nope) | (f,(_,pe)) <- defs'] + DefPrintCat defs -> do + defs' <- liftM concat $ mapM transPrintDef defs + returnl [(f, G.CncCat nope nope (yes e)) | (f,e) <- defs'] + DefPrintFun defs -> do + defs' <- liftM concat $ mapM transPrintDef defs + returnl [(f, G.CncFun Nothing nope (yes e)) | (f,e) <- defs'] + DefPrintOld defs -> do --- a guess, for backward compatibility + defs' <- liftM concat $ mapM transPrintDef defs + returnl [(f, G.CncFun Nothing nope (yes e)) | (f,e) <- defs'] + DefFlag defs -> liftM Right $ mapM transFlagDef defs + DefPattern defs -> do + defs' <- liftM concat $ mapM getDefs defs + let defs2 = [(f, termInPattern t) | (f,(_,Yes t)) <- defs'] + returnl [(f, G.CncFun Nothing (yes t) nope) | (f,t) <- defs2] + + _ -> errIn ("illegal definition in concrete syntax:") $ transResDef x + +transPrintDef :: PrintDef -> Err [(Ident,G.Term)] +transPrintDef x = case x of + PrintDef ids exp -> do + (ids,e) <- liftM2 (,) (mapM transName ids) (transExp exp) + return $ [(i,e) | i <- ids] + +getDefsGen :: Def -> Err [(Ident, (G.Perh G.Type, G.Perh G.Term))] +getDefsGen d = case d of + DDecl ids t -> do + ids' <- mapM transName ids + t' <- transExp t + return [(i,(yes t', nope)) | i <- ids'] + DDef ids e -> do + ids' <- mapM transName ids + e' <- transExp e + return [(i,(nope, yes e')) | i <- ids'] + DFull ids t e -> do + ids' <- mapM transName ids + t' <- transExp t + e' <- transExp e + return [(i,(yes t', yes e')) | i <- ids'] + DPatt id patts e -> do + id' <- transName id + ps' <- mapM transPatt patts + e' <- transExp e + return [(id',(nope, yes (G.Eqs [(ps',e')])))] + +-- | sometimes you need this special case, e.g. in linearization rules +getDefs :: Def -> Err [(Ident, (G.Perh G.Type, G.Perh G.Term))] +getDefs d = case d of + DPatt id patts e -> do + id' <- transName id + xs <- mapM tryMakeVar patts + e' <- transExp e + return [(id',(nope, yes (M.mkAbs xs e')))] + _ -> getDefsGen d + +-- | accepts a pattern that is either a variable or a wild card +tryMakeVar :: Patt -> Err Ident +tryMakeVar p = do + p' <- transPatt p + case p' of + G.PV i -> return i + G.PW -> return identW + _ -> Bad $ "not a legal pattern in lambda binding" +++ GP.prt p' + +transExp :: Exp -> Err G.Term +transExp x = case x of + EIdent id -> liftM G.Vr $ transIdent id + EConstr id -> liftM G.Con $ transIdent id + ECons id -> liftM G.Cn $ transIdent id + EQConstr m c -> liftM2 G.QC (transIdent m) (transIdent c) + EQCons m c -> liftM2 G.Q (transIdent m) (transIdent c) + EString str -> return $ G.K str + ESort sort -> liftM G.Sort $ transSort sort + EInt n -> return $ G.EInt n + EFloat n -> return $ G.EFloat n + EMeta -> return $ M.meta $ M.int2meta 0 + EEmpty -> return G.Empty + -- [ C x_1 ... x_n ] becomes (ListC x_1 ... x_n) + EList i es -> do + i' <- transIdent i + es' <- mapM transExp (exps2list es) + return $ foldl G.App (G.Vr (mkListId i')) es' + EStrings [] -> return G.Empty + EStrings str -> return $ foldr1 G.C $ map G.K $ words str + ERecord defs -> erecord2term defs + ETupTyp _ _ -> do + let tups t = case t of + ETupTyp x y -> tups x ++ [y] -- right-associative parsing + _ -> [t] + es <- mapM transExp $ tups x + return $ G.RecType $ M.tuple2recordType es + ETuple tuplecomps -> do + es <- mapM transExp [e | TComp e <- tuplecomps] + return $ G.R $ M.tuple2record es + EProj exp id -> liftM2 G.P (transExp exp) (trLabel id) + EApp exp0 exp -> liftM2 G.App (transExp exp0) (transExp exp) + ETable cases -> liftM (G.T G.TRaw) (transCases cases) + ETTable exp cases -> + liftM2 (\t c -> G.T (G.TTyped t) c) (transExp exp) (transCases cases) + EVTable exp cases -> + liftM2 (\t c -> G.V t c) (transExp exp) (mapM transExp cases) + ECase exp cases -> do + exp' <- transExp exp + cases' <- transCases cases + let annot = case exp' of + G.Typed _ t -> G.TTyped t + _ -> G.TRaw + return $ G.S (G.T annot cases') exp' + ECTable binds exp -> liftM2 M.mkCTable (mapM transBind binds) (transExp exp) + + EVariants exps -> liftM G.FV $ mapM transExp exps + EPre exp alts -> liftM2 (curry G.Alts) (transExp exp) (mapM transAltern alts) + EStrs exps -> liftM G.Strs $ mapM transExp exps + ESelect exp0 exp -> liftM2 G.S (transExp exp0) (transExp exp) + EExtend exp0 exp -> liftM2 G.ExtR (transExp exp0) (transExp exp) + EAbstr binds exp -> liftM2 M.mkAbs (mapM transBind binds) (transExp exp) + ETyped exp0 exp -> liftM2 G.Typed (transExp exp0) (transExp exp) + EExample exp str -> liftM2 G.Example (transExp exp) (return str) + + EProd decl exp -> liftM2 M.mkProdSimple (transDecl decl) (transExp exp) + ETType exp0 exp -> liftM2 G.Table (transExp exp0) (transExp exp) + EConcat exp0 exp -> liftM2 G.C (transExp exp0) (transExp exp) + EGlue exp0 exp -> liftM2 G.Glue (transExp exp0) (transExp exp) + ELet defs exp -> do + exp' <- transExp exp + defs0 <- mapM locdef2fields defs + defs' <- mapM tryLoc $ concat defs0 + return $ M.mkLet defs' exp' + where + tryLoc (c,(mty,Just e)) = return (c,(mty,e)) + tryLoc (c,_) = Bad $ "local definition of" +++ GP.prt c +++ "without value" + ELetb defs exp -> transExp $ ELet defs exp + EWhere exp defs -> transExp $ ELet defs exp + + EPattType typ -> liftM G.EPattType (transExp typ) + EPatt patt -> liftM G.EPatt (transPatt patt) + + ELString (LString str) -> return $ G.K str + ELin id -> liftM G.LiT $ transIdent id + + EEqs eqs -> liftM G.Eqs $ mapM transEquation eqs + + _ -> Bad $ "translation not yet defined for" +++ printTree x ---- + +exps2list :: Exps -> [Exp] +exps2list NilExp = [] +exps2list (ConsExp e es) = e : exps2list es + +--- this is complicated: should we change Exp or G.Term ? + +erecord2term :: [LocDef] -> Err G.Term +erecord2term ds = do + ds' <- mapM locdef2fields ds + mkR $ concat ds' + where + mkR fs = do + fs' <- transF fs + return $ case fs' of + Left ts -> G.RecType ts + Right ds -> G.R ds + transF [] = return $ Left [] --- empty record always interpreted as record type + transF fs@(f:_) = case f of + (lab,(Just ty,Nothing)) -> mapM tryRT fs >>= return . Left + _ -> mapM tryR fs >>= return . Right + tryRT f = case f of + (lab,(Just ty,Nothing)) -> return (M.ident2label lab,ty) + _ -> Bad $ "illegal record type field" +++ GP.prt (fst f) --- manifest fields ?! + tryR f = case f of + (lab,(mty, Just t)) -> return (M.ident2label lab,(mty,t)) + _ -> Bad $ "illegal record field" +++ GP.prt (fst f) + + +locdef2fields :: LocDef -> Err [(Ident, (Maybe G.Type, Maybe G.Type))] +locdef2fields d = case d of + LDDecl ids t -> do + labs <- mapM transIdent ids + t' <- transExp t + return [(lab,(Just t',Nothing)) | lab <- labs] + LDDef ids e -> do + labs <- mapM transIdent ids + e' <- transExp e + return [(lab,(Nothing, Just e')) | lab <- labs] + LDFull ids t e -> do + labs <- mapM transIdent ids + t' <- transExp t + e' <- transExp e + return [(lab,(Just t', Just e')) | lab <- labs] + +trLabel :: Label -> Err G.Label +trLabel x = case x of + + -- this case is for bward compatibility and should be removed + LIdent (PIdent (_,'v':ds@(_:_))) | all isDigit ds -> return $ G.LVar $ readIntArg ds + + LIdent (PIdent (_, s)) -> return $ G.LIdent s + LVar x -> return $ G.LVar $ fromInteger x + +transSort :: Sort -> Err String +transSort x = case x of + _ -> return $ printTree x + +{- +--- no more used 7/1/2006 AR +transPatts :: Patt -> Err [G.Patt] +transPatts p = case p of + PDisj p1 p2 -> liftM2 (++) (transPatts p1) (transPatts p2) + PC id patts -> liftM (map (G.PC id) . combinations) $ mapM transPatts patts + PQC q id patts -> liftM (map (G.PP q id) . combinations) (mapM transPatts patts) + + PR pattasss -> do + let (lss,ps) = unzip [(ls,p) | PA ls p <- pattasss] + ls = map LIdent $ concat lss + ps0 <- mapM transPatts ps + let ps' = combinations ps0 + lss' <- mapM trLabel ls + let rss = map (zip lss') ps' + return $ map G.PR rss + PTup pcs -> do + ps0 <- mapM transPatts [e | PTComp e <- pcs] + let ps' = combinations ps0 + return $ map (G.PR . M.tuple2recordPatt) ps' + _ -> liftM singleton $ transPatt p +-} + +transPatt :: Patt -> Err G.Patt +transPatt x = case x of + PW -> return G.wildPatt + PV id -> liftM G.PV $ transIdent id + PC id patts -> liftM2 G.PC (transIdent id) (mapM transPatt patts) + PCon id -> liftM2 G.PC (transIdent id) (return []) + PInt n -> return $ G.PInt n + PFloat n -> return $ G.PFloat n + PStr str -> return $ G.PString str + PR pattasss -> do + let (lss,ps) = unzip [(ls,p) | PA ls p <- pattasss] + ls = map LIdent $ concat lss + liftM G.PR $ liftM2 zip (mapM trLabel ls) (mapM transPatt ps) + PTup pcs -> + liftM (G.PR . M.tuple2recordPatt) (mapM transPatt [e | PTComp e <- pcs]) + PQ id0 id -> liftM3 G.PP (transIdent id0) (transIdent id) (return []) + PQC id0 id patts -> + liftM3 G.PP (transIdent id0) (transIdent id) (mapM transPatt patts) + PDisj p1 p2 -> liftM2 G.PAlt (transPatt p1) (transPatt p2) + PSeq p1 p2 -> liftM2 G.PSeq (transPatt p1) (transPatt p2) + PRep p -> liftM G.PRep (transPatt p) + PNeg p -> liftM G.PNeg (transPatt p) + PAs x p -> liftM2 G.PAs (transIdent x) (transPatt p) + PChar -> return G.PChar + PChars s -> return $ G.PChars s + PMacro c -> liftM G.PMacro $ transIdent c + PM m c -> liftM2 G.PM (transIdent m) (transIdent c) + +transBind :: Bind -> Err Ident +transBind x = case x of + BIdent id -> transIdent id + BWild -> return identW + +transDecl :: Decl -> Err [G.Decl] +transDecl x = case x of + DDec binds exp -> do + xs <- mapM transBind binds + exp' <- transExp exp + return [(x,exp') | x <- xs] + DExp exp -> liftM (return . M.mkDecl) $ transExp exp + +transCases :: [Case] -> Err [G.Case] +transCases = mapM transCase + +transCase :: Case -> Err G.Case +transCase (Case p exp) = do + patt <- transPatt p + exp' <- transExp exp + return (patt,exp') + +transEquation :: Equation -> Err G.Equation +transEquation x = case x of + Equ apatts exp -> liftM2 (,) (mapM transPatt apatts) (transExp exp) + +transAltern :: Altern -> Err (G.Term, G.Term) +transAltern x = case x of + Alt exp0 exp -> liftM2 (,) (transExp exp0) (transExp exp) + +transParConstr :: ParConstr -> Err G.Param +transParConstr x = case x of + ParConstr id ddecls -> do + id' <- transIdent id + ddecls' <- mapM transDDecl ddecls + return (id',concat ddecls') + +transDDecl :: DDecl -> Err [G.Decl] +transDDecl x = case x of + DDDec binds exp -> transDecl $ DDec binds exp + DDExp exp -> transDecl $ DExp exp + +-- | to deal with the old format, sort judgements in three modules, forming +-- their names from a given string, e.g. file name or overriding user-given string +transOldGrammar :: Options -> FilePath -> OldGrammar -> Err G.SourceGrammar +transOldGrammar opts name0 x = case x of + OldGr includes topdefs -> do --- includes must be collected separately + let moddefs = sortTopDefs topdefs + g1 <- transGrammar $ Gr moddefs + removeLiT g1 --- needed for bw compatibility with an obsolete feature + where + sortTopDefs ds = [mkAbs a,mkRes ops r,mkCnc ops c] ++ map mkPack ps + where + ops = map fst ps + (a,r,c,ps) = foldr srt ([],[],[],[]) ds + srt d (a,r,c,ps) = case d of + DefCat catdefs -> (d:a,r,c,ps) + DefFun fundefs -> (d:a,r,c,ps) + DefFunData fundefs -> (d:a,r,c,ps) + DefDef defs -> (d:a,r,c,ps) + DefData pardefs -> (d:a,r,c,ps) + DefPar pardefs -> (a,d:r,c,ps) + DefOper defs -> (a,d:r,c,ps) + DefLintype defs -> (a,d:r,c,ps) + DefLincat defs -> (a,r,d:c,ps) + DefLindef defs -> (a,r,d:c,ps) + DefLin defs -> (a,r,d:c,ps) + DefPattern defs -> (a,r,d:c,ps) + DefFlag defs -> (a,r,d:c,ps) --- a guess + DefPrintCat printdefs -> (a,r,d:c,ps) + DefPrintFun printdefs -> (a,r,d:c,ps) + DefPrintOld printdefs -> (a,r,d:c,ps) + DefPackage m ds -> (a,r,c,(m,ds):ps) + _ -> (a,r,c,ps) + mkAbs a = MModule q (MTAbstract absName) (MBody ne (OpenIn []) (topDefs a)) + mkRes ps r = MModule q (MTResource resName) (MBody ne (OpenIn ops) (topDefs r)) + where ops = map OName ps + mkCnc ps r = MModule q (MTConcrete cncName absName) + (MBody ne (OpenIn (map OName (resName:ps))) (topDefs r)) + mkPack (m, ds) = MModule q (MTResource m) (MBody ne (OpenIn []) (topDefs ds)) + topDefs t = t + ne = NoExt + q = CMCompl + + name = maybe name0 (++ ".gf") $ getOptVal opts useName + absName = identPI $ maybe topic id $ getOptVal opts useAbsName + resName = identPI $ maybe ("Res" ++ lang) id $ getOptVal opts useResName + cncName = identPI $ maybe lang id $ getOptVal opts useCncName + + identPI s = PIdent ((0,0),s) + + (beg,rest) = span (/='.') name + (topic,lang) = case rest of -- to avoid overwriting old files + ".gf" -> ("Abs" ++ beg,"Cnc" ++ beg) + ".cf" -> ("Abs" ++ beg,"Cnc" ++ beg) + ".ebnf" -> ("Abs" ++ beg,"Cnc" ++ beg) + [] -> ("Abs" ++ beg,"Cnc" ++ beg) + _:s -> (beg, takeWhile (/='.') s) + +transInclude :: Include -> Err [FilePath] +transInclude x = case x of + NoIncl -> return [] + Incl filenames -> return $ map trans filenames + where + trans f = case f of + FString s -> s + FIdent (PIdent (_, s)) -> modif s + FSlash filename -> '/' : trans filename + FDot filename -> '.' : trans filename + FMinus filename -> '-' : trans filename + FAddId (PIdent (_, s)) filename -> modif s ++ trans filename + modif s = let s' = init s ++ [toLower (last s)] in + if elem s' newReservedWords then s' else s + --- unsafe hack ; cf. GetGrammar.oldLexer + + +newReservedWords :: [String] +newReservedWords = + words $ "abstract concrete interface incomplete " ++ + "instance out open resource reuse transfer union with where" + +termInPattern :: G.Term -> G.Term +termInPattern t = M.mkAbs xx $ G.R [(s, (Nothing, toP body))] where + toP t = case t of + G.Vr x -> G.P t s + _ -> M.composSafeOp toP t + s = G.LIdent "s" + (xx,body) = abss [] t + abss xs t = case t of + G.Abs x b -> abss (x:xs) b + _ -> (reverse xs,t) + +mkListId,mkConsId,mkBaseId :: Ident -> Ident +mkListId = prefixId "List" +mkConsId = prefixId "Cons" +mkBaseId = prefixId "Base" + +prefixId :: String -> Ident -> Ident +prefixId pref id = IC (pref ++ prIdent id) diff --git a/src-3.0/GF/Source/TestGF.hs b/src-3.0/GF/Source/TestGF.hs new file mode 100644 index 000000000..e4c072467 --- /dev/null +++ b/src-3.0/GF/Source/TestGF.hs @@ -0,0 +1,58 @@ +-- automatically generated by BNF Converter +module Main where + + +import IO ( stdin, hGetContents ) +import System ( getArgs, getProgName ) + +import GF.Source.LexGF +import GF.Source.ParGF +import GF.Source.SkelGF +import GF.Source.PrintGF +import GF.Source.AbsGF + + + + +import GF.Source.ErrM + +type ParseFun a = [Token] -> Err a + +myLLexer = myLexer + +type Verbosity = Int + +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!" + showTree v tree + + + +showTree :: (Show a, Print a) => Int -> a -> IO () +showTree v tree + = do + 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 2 pGrammar + "-s":fs -> mapM_ (runFile 0 pGrammar) fs + fs -> mapM_ (runFile 2 pGrammar) fs + + + + + -- cgit v1.2.3