Language.Fortran.Lexer.FreeForm

Documentation

alex_tab_size :: Int

alex_base :: AlexAddr

alex_table :: AlexAddr

alex_check :: AlexAddr

alex_deflt :: AlexAddr

alex_accept :: Array Int (AlexAcc User)

alex_actions :: Array Int (LexAction (Maybe Token))

alexIndexInt32OffAddr :: AlexAddr -> Int# -> Int#

quickIndex :: Array Int (AlexAcc User) -> Int -> AlexAcc User

data AlexReturn a

Constructors

AlexEOF

AlexError !AlexInput

AlexSkip !AlexInput !Int

AlexToken !AlexInput !Int a

alexScan :: AlexInput -> Int -> AlexReturn (LexAction (Maybe Token))

alex_scan_tkn :: User -> AlexInput -> Int# -> AlexInput -> Int# -> AlexLastAcc -> (AlexLastAcc, AlexInput)

data AlexLastAcc

Constructors

AlexNone

AlexLastAcc !Int !AlexInput !Int

AlexLastSkip !AlexInput !Int

data AlexAcc user

Constructors

AlexAccNone

AlexAcc Int

AlexAccSkip

AlexAccPred Int (AlexAccPred user) (AlexAcc user)

AlexAccSkipPred (AlexAccPred user) (AlexAcc user)

type AlexAccPred user = user -> AlexInput -> Int -> AlexInput -> Bool

alexAndPred :: (t1 -> t2 -> t3 -> t4 -> Bool) -> (t1 -> t2 -> t3 -> t4 -> Bool) -> t1 -> t2 -> t3 -> t4 -> Bool

alexPrevCharIs :: Char -> p1 -> AlexInput -> p2 -> p3 -> Bool

alexPrevCharMatches :: (Char -> t) -> p1 -> AlexInput -> p2 -> p3 -> t

alexPrevCharIsOneOf :: Array Char e -> p1 -> AlexInput -> p2 -> p3 -> e

alexRightContext :: Int -> AlexAccPred User

formatP :: User -> AlexInput -> Int -> AlexInput -> Bool

followsDoP :: User -> AlexInput -> Int -> AlexInput -> Bool

followsColonP :: User -> AlexInput -> Int -> AlexInput -> Bool

selectorP :: User -> AlexInput -> Int -> AlexInput -> Bool

ifConditionEndP :: User -> AlexInput -> Int -> AlexInput -> Bool

opP :: User -> AlexInput -> Int -> AlexInput -> Bool

partOfExpOrPointerAssignmentP :: User -> AlexInput -> Int -> AlexInput -> Bool

precedesDoubleColon :: AlexInput -> Bool

attributeP :: User -> AlexInput -> Int -> AlexInput -> Bool

constructNameP :: User -> AlexInput -> Int -> AlexInput -> Bool

genericSpecP :: User -> AlexInput -> Int -> AlexInput -> Bool

notDefinedOperP :: User -> AlexInput -> Int -> AlexInput -> Bool

typeSpecP :: User -> AlexInput -> Int -> AlexInput -> Bool

resultP :: User -> AlexInput -> Int -> AlexInput -> Bool

notPrecedingDotP :: User -> AlexInput -> Int -> AlexInput -> Bool

followsIntentP :: User -> AlexInput -> Int -> AlexInput -> Bool

useStP :: User -> AlexInput -> Int -> AlexInput -> Bool

caseStP :: User -> AlexInput -> Int -> AlexInput -> Bool

assignStP :: User -> AlexInput -> Int -> AlexInput -> Bool

prevTokenConstr :: AlexInput -> Maybe Constr

nextTokenConstr :: User -> AlexInput -> Maybe Constr

seenConstr :: Constr -> AlexInput -> Bool

fillConstr :: (a -> Token) -> Constr

adjustComment :: LexAction (Maybe Token) -> LexAction (Maybe Token)

leftPar :: LexAction (Maybe Token)

comma :: LexAction (Maybe Token)

slashOrDivision :: LexAction (Maybe Token)

addSpan :: (SrcSpan -> Token) -> LexAction (Maybe Token)

addSpanAndMatch :: (SrcSpan -> String -> Token) -> LexAction (Maybe Token)

getLexeme :: LexAction Lexeme

putLexeme :: Lexeme -> LexAction ()

resetLexeme :: LexAction ()

getMatch :: LexAction String

putMatch :: String -> LexAction ()

updatePreviousToken :: Maybe Token -> LexAction ()

addToPreviousTokensInLine :: Token -> LexAction ()

checkPreviousTokensInLine :: (Token -> Bool) -> AlexInput -> Bool

getLexemeSpan :: LexAction SrcSpan

lexCharacter :: LexAction (Maybe Token)

toSC :: Int -> LexAction ()

stabiliseStartCode :: LexAction ()

normaliseStartCode :: LexAction ()

invalidPosition :: Position

isValidPosition :: Position -> Bool

data Lexeme

Constructors

Lexeme

Fields

• lexemeMatch :: !String
• lexemeStart :: !Position
• lexemeEnd :: !Position
• lexemeIsCmt :: !Bool

Instances

Show Lexeme

Methods

showsPrec :: Int -> Lexeme -> ShowS

show :: Lexeme -> String

showList :: [Lexeme] -> ShowS

Spanned Lexeme

Methods

getSpan :: Lexeme -> SrcSpan

setSpan :: SrcSpan -> Lexeme -> Lexeme

initLexeme :: Lexeme

data StartCodeStatus

Constructors

Return

Stable

Instances

Show StartCodeStatus

Methods

showsPrec :: Int -> StartCodeStatus -> ShowS

show :: StartCodeStatus -> String

showList :: [StartCodeStatus] -> ShowS

data StartCode

Constructors

StartCode

Fields

• scActual :: !Int
• scStatus :: !StartCodeStatus

Instances

Show StartCode

Methods

showsPrec :: Int -> StartCode -> ShowS

show :: StartCode -> String

showList :: [StartCode] -> ShowS

data AlexInput

Constructors

AlexInput

Fields

• aiSourceBytes :: !ByteString
• aiPosition :: !Position
• aiEndOffset :: !Int
• aiPreviousChar :: !Char
• aiLexeme :: !Lexeme
• aiStartCode :: !StartCode
• aiPreviousToken :: !(Maybe Token)
• aiPreviousTokensInLine :: ![Token]

Instances

Show AlexInput

Methods

showsPrec :: Int -> AlexInput -> ShowS

show :: AlexInput -> String

showList :: [AlexInput] -> ShowS

Loc AlexInput

Methods

getPos :: AlexInput -> Position

LastToken AlexInput Token

Methods

getLastToken :: AlexInput -> Maybe Token

type LexAction a = Parse AlexInput Token a

vanillaAlexInput :: AlexInput

updateLexeme :: Char -> Position -> AlexInput -> AlexInput

data User

Constructors

User FortranVersion ParanthesesCount

data Move

Constructors

Continuation

Char

Newline

alexGetByte :: AlexInput -> Maybe (Word8, AlexInput)

alexInputPrevChar :: AlexInput -> Char

currentChar :: AlexInput -> Char

advanceWithoutContinuation :: AlexInput -> Maybe AlexInput

isContinuation :: AlexInput -> Bool

skipContinuation :: AlexInput -> AlexInput

advance :: Move -> Position -> Position

lexer :: (Token -> LexAction a) -> LexAction a

lexer' :: LexAction Token

alexScanUser :: User -> AlexInput -> Int -> AlexReturn (LexAction (Maybe Token))

data Token

Constructors

TId SrcSpan String

TComment SrcSpan String

TString SrcSpan String

TIntegerLiteral SrcSpan String

TRealLiteral SrcSpan String

TBozLiteral SrcSpan String

TComma SrcSpan

TComma2 SrcSpan

TSemiColon SrcSpan

TColon SrcSpan

TDoubleColon SrcSpan

TOpAssign SrcSpan

TArrow SrcSpan

TPercent SrcSpan

TLeftPar SrcSpan

TLeftPar2 SrcSpan

TRightPar SrcSpan

TLeftInitPar SrcSpan

TRightInitPar SrcSpan

TOpCustom SrcSpan String

TOpExp SrcSpan

TOpPlus SrcSpan

TOpMinus SrcSpan

TStar SrcSpan

TOpDivision SrcSpan

TSlash SrcSpan

TOpOr SrcSpan

TOpAnd SrcSpan

TOpNot SrcSpan

TOpEquivalent SrcSpan

TOpNotEquivalent SrcSpan

TOpLT SrcSpan

TOpLE SrcSpan

TOpEQ SrcSpan

TOpNE SrcSpan

TOpGT SrcSpan

TOpGE SrcSpan

TLogicalLiteral SrcSpan String

TProgram SrcSpan

TEndProgram SrcSpan

TFunction SrcSpan

TEndFunction SrcSpan

TResult SrcSpan

TPure SrcSpan

TElemental SrcSpan

TRecursive SrcSpan

TSubroutine SrcSpan

TEndSubroutine SrcSpan

TBlockData SrcSpan

TEndBlockData SrcSpan

TModule SrcSpan

TEndModule SrcSpan

TContains SrcSpan

TUse SrcSpan

TOnly SrcSpan

TInterface SrcSpan

TEndInterface SrcSpan

TModuleProcedure SrcSpan

TAssignment SrcSpan

TOperator SrcSpan

TCall SrcSpan

TReturn SrcSpan

TEntry SrcSpan

TInclude SrcSpan

TPublic SrcSpan

TPrivate SrcSpan

TParameter SrcSpan

TAllocatable SrcSpan

TDimension SrcSpan

TExternal SrcSpan

TIntent SrcSpan

TIntrinsic SrcSpan

TOptional SrcSpan

TPointer SrcSpan

TSave SrcSpan

TTarget SrcSpan

TIn SrcSpan

TOut SrcSpan

TInOut SrcSpan

TData SrcSpan

TNamelist SrcSpan

TImplicit SrcSpan

TEquivalence SrcSpan

TCommon SrcSpan

TFormat SrcSpan

TBlob SrcSpan String

TAllocate SrcSpan

TDeallocate SrcSpan

TNullify SrcSpan

TNone SrcSpan

TGoto SrcSpan

TAssign SrcSpan

TTo SrcSpan

TContinue SrcSpan

TStop SrcSpan

TPause SrcSpan

TDo SrcSpan

TEndDo SrcSpan

TWhile SrcSpan

TIf SrcSpan

TThen SrcSpan

TElse SrcSpan

TElsif SrcSpan

TEndIf SrcSpan

TCase SrcSpan

TSelectCase SrcSpan

TEndSelect SrcSpan

TDefault SrcSpan

TCycle SrcSpan

TExit SrcSpan

TForall SrcSpan

TEndForall SrcSpan

TWhere SrcSpan

TElsewhere SrcSpan

TEndWhere SrcSpan

TType SrcSpan

TEndType SrcSpan

TSequence SrcSpan

TKind SrcSpan

TLen SrcSpan

TInteger SrcSpan

TReal SrcSpan

TDoublePrecision SrcSpan

TLogical SrcSpan

TCharacter SrcSpan

TComplex SrcSpan

TOpen SrcSpan

TClose SrcSpan

TRead SrcSpan

TWrite SrcSpan

TPrint SrcSpan

TBackspace SrcSpan

TRewind SrcSpan

TInquire SrcSpan

TEndfile SrcSpan

TEnd SrcSpan

TNewline SrcSpan

TEOF SrcSpan

Instances

Eq Token

Methods

(==) :: Token -> Token -> Bool

(/=) :: Token -> Token -> Bool

Data Token

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Token -> c Token

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c Token

toConstr :: Token -> Constr

dataTypeOf :: Token -> DataType

dataCast1 :: Typeable (* -> *) t => (forall d. Data d => c (t d)) -> Maybe (c Token)

dataCast2 :: Typeable (* -> * -> *) t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c Token)

gmapT :: (forall b. Data b => b -> b) -> Token -> Token

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Token -> r

gmapQr :: (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Token -> r

gmapQ :: (forall d. Data d => d -> u) -> Token -> [u]

gmapQi :: Int -> (forall d. Data d => d -> u) -> Token -> u

gmapM :: Monad m => (forall d. Data d => d -> m d) -> Token -> m Token

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> Token -> m Token

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> Token -> m Token

Show Token

Methods

showsPrec :: Int -> Token -> ShowS

show :: Token -> String

showList :: [Token] -> ShowS

Generic Token

Associated Types

type Rep Token :: * -> *

Methods

from :: Token -> Rep Token x

to :: Rep Token x -> Token

FirstParameter Token SrcSpan => Spanned Token

Methods

getSpan :: Token -> SrcSpan

setSpan :: SrcSpan -> Token -> Token

Tok Token

Methods

eofToken :: Token -> Bool

SpecifiesType Token

Methods

isTypeSpec :: Token -> Bool

FirstParameter Token SrcSpan

Methods

getFirstParameter :: Token -> SrcSpan

setFirstParameter :: SrcSpan -> Token -> Token

LastToken AlexInput Token

Methods

getLastToken :: AlexInput -> Maybe Token

SpecifiesType [Token]

Methods

isTypeSpec :: [Token] -> Bool

type Rep Token

type Rep Token = D1 * (MetaData "Token" "Language.Fortran.Lexer.FreeForm" "fortran-src-0.2.1.1-4CSp5fVEmo08Ygy2mwA6e4" False) ((:+:) * ((:+:) * ((:+:) * ((:+:) * ((:+:) * ((:+:) * ((:+:) * (C1 * (MetaCons "TId" PrefixI False) ((:*:) * (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * String)))) (C1 * (MetaCons "TComment" PrefixI False) ((:*:) * (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * String))))) ((:+:) * (C1 * (MetaCons "TString" PrefixI False) ((:*:) * (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * String)))) (C1 * (MetaCons "TIntegerLiteral" PrefixI False) ((:*:) * (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * String)))))) ((:+:) * ((:+:) * (C1 * (MetaCons "TRealLiteral" PrefixI False) ((:*:) * (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * String)))) (C1 * (MetaCons "TBozLiteral" PrefixI False) ((:*:) * (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * String))))) ((:+:) * (C1 * (MetaCons "TComma" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TComma2" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)))))) ((:+:) * ((:+:) * ((:+:) * (C1 * (MetaCons "TSemiColon" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TColon" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)))) ((:+:) * (C1 * (MetaCons "TDoubleColon" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TOpAssign" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))))) ((:+:) * ((:+:) * (C1 * (MetaCons "TArrow" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TPercent" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)))) ((:+:) * (C1 * (MetaCons "TLeftPar" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) ((:+:) * (C1 * (MetaCons "TLeftPar2" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TRightPar" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)))))))) ((:+:) * ((:+:) * ((:+:) * ((:+:) * (C1 * (MetaCons "TLeftInitPar" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TRightInitPar" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)))) ((:+:) * (C1 * (MetaCons "TOpCustom" PrefixI False) ((:*:) * (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * String)))) (C1 * (MetaCons "TOpExp" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))))) ((:+:) * ((:+:) * (C1 * (MetaCons "TOpPlus" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TOpMinus" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)))) ((:+:) * (C1 * (MetaCons "TStar" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TOpDivision" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)))))) ((:+:) * ((:+:) * ((:+:) * (C1 * (MetaCons "TSlash" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TOpOr" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)))) ((:+:) * (C1 * (MetaCons "TOpAnd" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TOpNot" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))))) ((:+:) * ((:+:) * (C1 * (MetaCons "TOpEquivalent" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TOpNotEquivalent" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)))) ((:+:) * (C1 * (MetaCons "TOpLT" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) ((:+:) * (C1 * (MetaCons "TOpLE" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TOpEQ" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))))))))) ((:+:) * ((:+:) * ((:+:) * ((:+:) * ((:+:) * (C1 * (MetaCons "TOpNE" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TOpGT" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)))) ((:+:) * (C1 * (MetaCons "TOpGE" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TLogicalLiteral" PrefixI False) ((:*:) * (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * String)))))) ((:+:) * ((:+:) * (C1 * (MetaCons "TProgram" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TEndProgram" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)))) ((:+:) * (C1 * (MetaCons "TFunction" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TEndFunction" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)))))) ((:+:) * ((:+:) * ((:+:) * (C1 * (MetaCons "TResult" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TPure" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)))) ((:+:) * (C1 * (MetaCons "TElemental" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TRecursive" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))))) ((:+:) * ((:+:) * (C1 * (MetaCons "TSubroutine" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TEndSubroutine" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)))) ((:+:) * (C1 * (MetaCons "TBlockData" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) ((:+:) * (C1 * (MetaCons "TEndBlockData" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TModule" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)))))))) ((:+:) * ((:+:) * ((:+:) * ((:+:) * (C1 * (MetaCons "TEndModule" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TContains" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)))) ((:+:) * (C1 * (MetaCons "TUse" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TOnly" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))))) ((:+:) * ((:+:) * (C1 * (MetaCons "TInterface" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TEndInterface" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)))) ((:+:) * (C1 * (MetaCons "TModuleProcedure" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) ((:+:) * (C1 * (MetaCons "TAssignment" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TOperator" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))))))) ((:+:) * ((:+:) * ((:+:) * (C1 * (MetaCons "TCall" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TReturn" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)))) ((:+:) * (C1 * (MetaCons "TEntry" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TInclude" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))))) ((:+:) * ((:+:) * (C1 * (MetaCons "TPublic" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TPrivate" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)))) ((:+:) * (C1 * (MetaCons "TParameter" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) ((:+:) * (C1 * (MetaCons "TAllocatable" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TDimension" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)))))))))) ((:+:) * ((:+:) * ((:+:) * ((:+:) * ((:+:) * ((:+:) * (C1 * (MetaCons "TExternal" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TIntent" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)))) ((:+:) * (C1 * (MetaCons "TIntrinsic" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TOptional" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))))) ((:+:) * ((:+:) * (C1 * (MetaCons "TPointer" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TSave" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)))) ((:+:) * (C1 * (MetaCons "TTarget" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TIn" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)))))) ((:+:) * ((:+:) * ((:+:) * (C1 * (MetaCons "TOut" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TInOut" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)))) ((:+:) * (C1 * (MetaCons "TData" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TNamelist" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))))) ((:+:) * ((:+:) * (C1 * (MetaCons "TImplicit" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TEquivalence" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)))) ((:+:) * (C1 * (MetaCons "TCommon" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) ((:+:) * (C1 * (MetaCons "TFormat" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TBlob" PrefixI False) ((:*:) * (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * String))))))))) ((:+:) * ((:+:) * ((:+:) * ((:+:) * (C1 * (MetaCons "TAllocate" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TDeallocate" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)))) ((:+:) * (C1 * (MetaCons "TNullify" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TNone" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))))) ((:+:) * ((:+:) * (C1 * (MetaCons "TGoto" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TAssign" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)))) ((:+:) * (C1 * (MetaCons "TTo" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TContinue" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)))))) ((:+:) * ((:+:) * ((:+:) * (C1 * (MetaCons "TStop" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TPause" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)))) ((:+:) * (C1 * (MetaCons "TDo" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TEndDo" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))))) ((:+:) * ((:+:) * (C1 * (MetaCons "TWhile" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TIf" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)))) ((:+:) * (C1 * (MetaCons "TThen" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) ((:+:) * (C1 * (MetaCons "TElse" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TElsif" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))))))))) ((:+:) * ((:+:) * ((:+:) * ((:+:) * ((:+:) * (C1 * (MetaCons "TEndIf" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TCase" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)))) ((:+:) * (C1 * (MetaCons "TSelectCase" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TEndSelect" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))))) ((:+:) * ((:+:) * (C1 * (MetaCons "TDefault" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TCycle" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)))) ((:+:) * (C1 * (MetaCons "TExit" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TForall" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)))))) ((:+:) * ((:+:) * ((:+:) * (C1 * (MetaCons "TEndForall" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TWhere" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)))) ((:+:) * (C1 * (MetaCons "TElsewhere" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TEndWhere" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))))) ((:+:) * ((:+:) * (C1 * (MetaCons "TType" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TEndType" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)))) ((:+:) * (C1 * (MetaCons "TSequence" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) ((:+:) * (C1 * (MetaCons "TKind" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TLen" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)))))))) ((:+:) * ((:+:) * ((:+:) * ((:+:) * (C1 * (MetaCons "TInteger" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TReal" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)))) ((:+:) * (C1 * (MetaCons "TDoublePrecision" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TLogical" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))))) ((:+:) * ((:+:) * (C1 * (MetaCons "TCharacter" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TComplex" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)))) ((:+:) * (C1 * (MetaCons "TOpen" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) ((:+:) * (C1 * (MetaCons "TClose" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TRead" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))))))) ((:+:) * ((:+:) * ((:+:) * (C1 * (MetaCons "TWrite" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TPrint" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)))) ((:+:) * (C1 * (MetaCons "TBackspace" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TRewind" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))))) ((:+:) * ((:+:) * (C1 * (MetaCons "TInquire" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TEndfile" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)))) ((:+:) * (C1 * (MetaCons "TEnd" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) ((:+:) * (C1 * (MetaCons "TNewline" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TEOF" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)))))))))))

class SpecifiesType a where

Minimal complete definition

isTypeSpec

Methods

isTypeSpec :: a -> Bool

Instances

SpecifiesType Token

Methods

isTypeSpec :: Token -> Bool

SpecifiesType [Token]

Methods

isTypeSpec :: [Token] -> Bool

initParseState :: ByteString -> FortranVersion -> String -> ParseState AlexInput

collectFreeTokens :: FortranVersion -> ByteString -> [Token]

scC :: Int

scI :: Int

scN :: Int

scT :: Int

alex_action_0 :: LexAction (Maybe Token)

alex_action_1 :: Parse AlexInput Token (Maybe Token)

alex_action_3 :: LexAction (Maybe Token)

alex_action_4 :: Parse AlexInput Token (Maybe Token)

alex_action_5 :: Parse AlexInput Token (Maybe Token)

alex_action_6 :: LexAction (Maybe Token)

alex_action_7 :: LexAction (Maybe Token)

alex_action_8 :: LexAction (Maybe Token)

alex_action_9 :: Parse AlexInput Token (Maybe Token)

alex_action_10 :: LexAction (Maybe Token)

alex_action_11 :: LexAction (Maybe Token)

alex_action_12 :: LexAction (Maybe Token)

alex_action_13 :: LexAction (Maybe Token)

alex_action_14 :: LexAction (Maybe Token)

alex_action_15 :: LexAction (Maybe Token)

alex_action_16 :: LexAction (Maybe Token)

alex_action_17 :: LexAction (Maybe Token)

alex_action_18 :: LexAction (Maybe Token)

alex_action_19 :: LexAction (Maybe Token)

alex_action_20 :: LexAction (Maybe Token)

alex_action_21 :: LexAction (Maybe Token)

alex_action_22 :: LexAction (Maybe Token)

alex_action_23 :: Parse AlexInput Token (Maybe Token)

alex_action_24 :: Parse AlexInput Token (Maybe Token)

alex_action_25 :: Parse AlexInput Token (Maybe Token)

alex_action_26 :: Parse AlexInput Token (Maybe Token)

alex_action_27 :: Parse AlexInput Token (Maybe Token)

alex_action_28 :: Parse AlexInput Token (Maybe Token)

alex_action_29 :: LexAction (Maybe Token)

alex_action_30 :: LexAction (Maybe Token)

alex_action_31 :: LexAction (Maybe Token)

alex_action_32 :: LexAction (Maybe Token)

alex_action_33 :: LexAction (Maybe Token)

alex_action_34 :: LexAction (Maybe Token)

alex_action_35 :: LexAction (Maybe Token)

alex_action_36 :: LexAction (Maybe Token)

alex_action_37 :: LexAction (Maybe Token)

alex_action_38 :: LexAction (Maybe Token)

alex_action_39 :: LexAction (Maybe Token)

alex_action_40 :: LexAction (Maybe Token)

alex_action_41 :: LexAction (Maybe Token)

alex_action_42 :: LexAction (Maybe Token)

alex_action_43 :: LexAction (Maybe Token)

alex_action_44 :: LexAction (Maybe Token)

alex_action_45 :: LexAction (Maybe Token)

alex_action_46 :: LexAction (Maybe Token)

alex_action_47 :: LexAction (Maybe Token)

alex_action_48 :: LexAction (Maybe Token)

alex_action_49 :: LexAction (Maybe Token)

alex_action_50 :: LexAction (Maybe Token)

alex_action_51 :: LexAction (Maybe Token)

alex_action_52 :: LexAction (Maybe Token)

alex_action_53 :: LexAction (Maybe Token)

alex_action_54 :: LexAction (Maybe Token)

alex_action_55 :: LexAction (Maybe Token)

alex_action_56 :: LexAction (Maybe Token)

alex_action_57 :: LexAction (Maybe Token)

alex_action_58 :: LexAction (Maybe Token)

alex_action_59 :: LexAction (Maybe Token)

alex_action_60 :: LexAction (Maybe Token)

alex_action_61 :: LexAction (Maybe Token)

alex_action_62 :: LexAction (Maybe Token)

alex_action_63 :: LexAction (Maybe Token)

alex_action_64 :: LexAction (Maybe Token)

alex_action_65 :: LexAction (Maybe Token)

alex_action_66 :: LexAction (Maybe Token)

alex_action_67 :: LexAction (Maybe Token)

alex_action_68 :: LexAction (Maybe Token)

alex_action_69 :: LexAction (Maybe Token)

alex_action_70 :: LexAction (Maybe Token)

alex_action_71 :: LexAction (Maybe Token)

alex_action_72 :: LexAction (Maybe Token)

alex_action_73 :: LexAction (Maybe Token)

alex_action_74 :: LexAction (Maybe Token)

alex_action_75 :: LexAction (Maybe Token)

alex_action_76 :: LexAction (Maybe Token)

alex_action_77 :: LexAction (Maybe Token)

alex_action_78 :: LexAction (Maybe Token)

alex_action_79 :: LexAction (Maybe Token)

alex_action_80 :: LexAction (Maybe Token)

alex_action_81 :: LexAction (Maybe Token)

alex_action_82 :: LexAction (Maybe Token)

alex_action_83 :: LexAction (Maybe Token)

alex_action_84 :: LexAction (Maybe Token)

alex_action_85 :: LexAction (Maybe Token)

alex_action_86 :: LexAction (Maybe Token)

alex_action_87 :: LexAction (Maybe Token)

alex_action_88 :: LexAction (Maybe Token)

alex_action_89 :: LexAction (Maybe Token)

alex_action_90 :: LexAction (Maybe Token)

alex_action_91 :: LexAction (Maybe Token)

alex_action_92 :: LexAction (Maybe Token)

alex_action_93 :: LexAction (Maybe Token)

alex_action_94 :: LexAction (Maybe Token)

alex_action_95 :: LexAction (Maybe Token)

alex_action_96 :: LexAction (Maybe Token)

alex_action_97 :: LexAction (Maybe Token)

alex_action_98 :: LexAction (Maybe Token)

alex_action_99 :: LexAction (Maybe Token)

alex_action_100 :: LexAction (Maybe Token)

alex_action_101 :: LexAction (Maybe Token)

alex_action_102 :: LexAction (Maybe Token)

alex_action_103 :: LexAction (Maybe Token)

alex_action_104 :: LexAction (Maybe Token)

alex_action_105 :: LexAction (Maybe Token)

alex_action_106 :: LexAction (Maybe Token)

alex_action_107 :: LexAction (Maybe Token)

alex_action_108 :: LexAction (Maybe Token)

alex_action_109 :: LexAction (Maybe Token)

alex_action_110 :: LexAction (Maybe Token)

alex_action_111 :: LexAction (Maybe Token)

alex_action_112 :: LexAction (Maybe Token)

alex_action_113 :: LexAction (Maybe Token)

alex_action_114 :: LexAction (Maybe Token)

alex_action_115 :: LexAction (Maybe Token)

alex_action_116 :: LexAction (Maybe Token)

alex_action_117 :: LexAction (Maybe Token)

alex_action_118 :: Parse AlexInput Token (Maybe Token)

alex_action_119 :: LexAction (Maybe Token)

alex_action_120 :: LexAction (Maybe Token)

alex_action_121 :: LexAction (Maybe Token)

alex_action_122 :: LexAction (Maybe Token)

alex_action_123 :: LexAction (Maybe Token)

alex_action_124 :: LexAction (Maybe Token)

alex_action_125 :: LexAction (Maybe Token)

alex_action_126 :: LexAction (Maybe Token)

alex_action_127 :: LexAction (Maybe Token)

alex_action_128 :: LexAction (Maybe Token)

alex_action_129 :: LexAction (Maybe Token)

alex_action_130 :: LexAction (Maybe Token)

alex_action_131 :: LexAction (Maybe Token)

alex_action_132 :: LexAction (Maybe Token)

alex_action_133 :: LexAction (Maybe Token)

alex_action_134 :: Parse AlexInput Token (Maybe Token)

alex_action_135 :: LexAction (Maybe Token)

alex_action_136 :: LexAction (Maybe Token)

alex_action_137 :: LexAction (Maybe Token)

alex_action_138 :: LexAction (Maybe Token)

alex_action_139 :: LexAction (Maybe Token)

alex_action_140 :: LexAction (Maybe Token)

alex_action_141 :: LexAction (Maybe Token)

alex_action_142 :: LexAction (Maybe Token)

alex_action_143 :: LexAction (Maybe Token)

alex_action_144 :: LexAction (Maybe Token)

alex_action_145 :: LexAction (Maybe Token)

alex_action_146 :: LexAction (Maybe Token)

alex_action_147 :: LexAction (Maybe Token)

alex_action_148 :: LexAction (Maybe Token)

alex_action_149 :: LexAction (Maybe Token)

alex_action_150 :: LexAction (Maybe Token)

alex_action_151 :: LexAction (Maybe Token)

alex_action_152 :: LexAction (Maybe Token)

alex_action_153 :: LexAction (Maybe Token)

alex_action_154 :: LexAction (Maybe Token)

alex_action_155 :: LexAction (Maybe Token)

alex_action_156 :: LexAction (Maybe Token)

alex_action_157 :: LexAction (Maybe Token)

alex_action_158 :: LexAction (Maybe Token)

alex_action_159 :: LexAction (Maybe Token)

data AlexAddr

Constructors

AlexA# Addr#

alexIndexInt16OffAddr :: AlexAddr -> Int# -> Int#