Safe Haskell	None
Language	Haskell2010

Language.Fortran.Lexer.FixedForm

Documentation

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

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

collectFixedTokens :: FortranVersion -> ByteString -> [Token] Source #

collectFixedTokensSafe :: FortranVersion -> ByteString -> Maybe [Token] Source #

data Token Source #

Constructors

TLeftPar SrcSpan
TRightPar SrcSpan
TLeftArrayPar SrcSpan
TRightArrayPar SrcSpan
TComma SrcSpan
TDot SrcSpan
TColon SrcSpan
TInclude SrcSpan
TProgram SrcSpan
TFunction SrcSpan
TSubroutine SrcSpan
TBlockData SrcSpan
TStructure SrcSpan
TRecord SrcSpan
TUnion SrcSpan
TMap SrcSpan
TEndProgram SrcSpan
TEndFunction SrcSpan
TEndSubroutine SrcSpan
TEndStructure SrcSpan
TEndUnion SrcSpan
TEndMap SrcSpan
TEnd SrcSpan
TAssign SrcSpan
TOpAssign SrcSpan
TTo SrcSpan
TGoto SrcSpan
TIf SrcSpan
TThen SrcSpan
TElse SrcSpan
TElsif SrcSpan
TEndif SrcSpan
TCall SrcSpan
TReturn SrcSpan
TSave SrcSpan
TContinue SrcSpan
TStop SrcSpan
TCycle SrcSpan
TExit SrcSpan
TCase SrcSpan
TCaseDefault SrcSpan
TSelectCase SrcSpan
TEndSelect SrcSpan
TPause SrcSpan
TDo SrcSpan
TDoWhile SrcSpan
TWhile SrcSpan
TEndDo SrcSpan
TRead SrcSpan
TWrite SrcSpan
TRewind SrcSpan
TBackspace SrcSpan
TEndfile SrcSpan
TInquire SrcSpan
TOpen SrcSpan
TClose SrcSpan
TPrint SrcSpan
TTypePrint SrcSpan
TDimension SrcSpan
TCommon SrcSpan
TEquivalence SrcSpan
TPointer SrcSpan
TExternal SrcSpan
TIntrinsic SrcSpan
TType SrcSpan String
TEntry SrcSpan
TImplicit SrcSpan
TNone SrcSpan
TParameter SrcSpan
TData SrcSpan
TAutomatic SrcSpan
TFormat SrcSpan
TBlob SrcSpan String
TInt SrcSpan String
TBozInt SrcSpan String
TExponent SrcSpan String
TBool SrcSpan String
TOpPlus SrcSpan
TOpMinus SrcSpan
TOpExp SrcSpan
TStar SrcSpan
TSlash SrcSpan
TAmpersand SrcSpan
TOpOr SrcSpan
TOpAnd SrcSpan
TOpXOr SrcSpan
TOpNot SrcSpan
TOpEquivalent SrcSpan
TOpNotEquivalent SrcSpan
TOpLT SrcSpan
TOpLE SrcSpan
TOpEQ SrcSpan
TOpNE SrcSpan
TOpGT SrcSpan
TOpGE SrcSpan
TId SrcSpan String
TComment SrcSpan String
TString SrcSpan String
THollerith SrcSpan String
TLabel SrcSpan String
TNewline SrcSpan
TEOF SrcSpan

Instances

Eq Token Source #
Methods (==) :: Token -> Token -> Bool # (/=) :: Token -> Token -> Bool #
Data Token Source #
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 #
Ord Token Source #
Methods compare :: Token -> Token -> Ordering # (<) :: Token -> Token -> Bool # (<=) :: Token -> Token -> Bool # (>) :: Token -> Token -> Bool # (>=) :: Token -> Token -> Bool # max :: Token -> Token -> Token # min :: Token -> Token -> Token #
Show Token Source #
Methods showsPrec :: Int -> Token -> ShowS # show :: Token -> String # showList :: [Token] -> ShowS #
Generic Token Source #
Associated Types type Rep Token :: * -> * # Methods from :: Token -> Rep Token x # to :: Rep Token x -> Token #
FirstParameter Token SrcSpan => Spanned Token Source #
Methods getSpan :: Token -> SrcSpan Source # setSpan :: SrcSpan -> Token -> Token Source #
Tok Token Source #
Methods eofToken :: Token -> Bool Source #
FirstParameter Token SrcSpan Source #
Methods getFirstParameter :: Token -> SrcSpan Source # setFirstParameter :: SrcSpan -> Token -> Token Source #
LastToken AlexInput Token Source #
Methods getLastToken :: AlexInput -> Maybe Token Source #
type Rep Token #
type Rep Token = D1 * (MetaData "Token" "Language.Fortran.Lexer.FixedForm" "fortran-src-0.2.1.1-4CSp5fVEmo08Ygy2mwA6e4" False) ((:+:) * ((:+:) * ((:+:) * ((:+:) * ((:+:) * ((:+:) * (C1 * (MetaCons "TLeftPar" 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 "TLeftArrayPar" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))))) ((:+:) * (C1 * (MetaCons "TRightArrayPar" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) ((:+:) * (C1 * (MetaCons "TComma" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TDot" 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 "TInclude" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TProgram" 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 "TSubroutine" 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 "TStructure" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) ((:+:) * (C1 * (MetaCons "TRecord" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TUnion" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))))) ((:+:) * (C1 * (MetaCons "TMap" 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 "TEndFunction" 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 "TEndStructure" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TEndUnion" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))))) ((:+:) * ((:+:) * (C1 * (MetaCons "TEndMap" 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 "TAssign" 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 "TTo" 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 "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 "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 "TSave" 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 "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 "TCase" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) (C1 * (MetaCons "TCaseDefault" 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 "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 "TDoWhile" 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 "TEndDo" 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 "TRewind" 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 "TEndfile" 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 "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 "TPrint" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)))))) ((:+:) * ((:+:) * (C1 * (MetaCons "TTypePrint" 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 "TCommon" 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 "TPointer" 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 "TIntrinsic" 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)) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * String)))) (C1 * (MetaCons "TEntry" 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 "TNone" 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 "TData" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan))) ((:+:) * (C1 * (MetaCons "TAutomatic" 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 "TInt" PrefixI False) ((::) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * String))))) ((:+:) * (C1 * (MetaCons "TBozInt" PrefixI False) ((::) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * String)))) (C1 * (MetaCons "TExponent" PrefixI False) ((::) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * String))))))))) ((:+:) * ((:+:) * ((:+:) * ((:+:) * (C1 * (MetaCons "TBool" PrefixI False) ((::) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * String)))) ((:+:) * (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 "TOpExp" 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 "TSlash" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)))))) ((:+:) * ((:+:) * (C1 * (MetaCons "TAmpersand" 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 "TOpXOr" 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 "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 "THollerith" PrefixI False) ((::) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * String)))) (C1 * (MetaCons "TLabel" PrefixI False) ((::) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * SrcSpan)) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * String))))) ((:+:) * (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))))))))))

type LexAction a = Parse AlexInput Token a Source #

data AlexInput Source #

Constructors

AlexInput
Fields aiSourceBytes :: ByteString aiEndOffset :: Int aiPosition :: Position aiBytes :: [Word8] aiPreviousChar :: Char aiLexeme :: Lexeme aiWhiteSensitiveCharCount :: Int aiStartCode :: Int aiPreviousToken :: Maybe Token aiPreviousTokensInLine :: [Token] aiCaseSensitive :: Bool aiInFormat :: Bool aiFortranVersion :: FortranVersion

Instances

Show AlexInput Source #
Methods showsPrec :: Int -> AlexInput -> ShowS # show :: AlexInput -> String # showList :: [AlexInput] -> ShowS #
Loc AlexInput Source #
Methods getPos :: AlexInput -> Position Source #
LastToken AlexInput Token Source #
Methods getLastToken :: AlexInput -> Maybe Token Source #

lexemeMatch :: Lexeme -> String Source #

lexN :: Int -> LexAction (Maybe String) Source #