fortran-src-0.1.0.2: Parser and anlyses for Fortran standards 66, 77, 90.

Safe HaskellNone
LanguageHaskell2010

Language.Fortran.Lexer.FixedForm

Documentation

alex_tab_size :: Int Source #

alex_base :: AlexAddr Source #

alex_table :: AlexAddr Source #

alex_check :: AlexAddr Source #

alex_deflt :: AlexAddr Source #

alex_accept :: Array Int (AlexAcc (LexAction (Maybe Token)) FortranVersion) Source #

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

quickIndex :: Array Int (AlexAcc (LexAction (Maybe Token)) FortranVersion) -> Int -> AlexAcc (LexAction (Maybe Token)) FortranVersion Source #

data AlexReturn a Source #

Constructors

AlexEOF 
AlexError !AlexInput 
AlexSkip !AlexInput !Int 
AlexToken !AlexInput !Int a 

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

alex_scan_tkn :: FortranVersion -> AlexInput -> Int# -> AlexInput -> Int# -> AlexLastAcc (LexAction (Maybe Token)) -> (AlexLastAcc (LexAction (Maybe Token)), AlexInput) Source #

data AlexLastAcc a Source #

Constructors

AlexNone 
AlexLastAcc a !AlexInput !Int 
AlexLastSkip !AlexInput !Int 

Instances

Functor AlexLastAcc Source # 

Methods

fmap :: (a -> b) -> AlexLastAcc a -> AlexLastAcc b #

(<$) :: a -> AlexLastAcc b -> AlexLastAcc a #

data AlexAcc a user Source #

Constructors

AlexAccNone 
AlexAcc a 
AlexAccSkip 
AlexAccPred a (AlexAccPred user) (AlexAcc a user) 
AlexAccSkipPred (AlexAccPred user) (AlexAcc a user) 

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

alexAndPred :: (t -> t1 -> t2 -> t3 -> Bool) -> (t -> t1 -> t2 -> t3 -> Bool) -> t -> t1 -> t2 -> t3 -> Bool Source #

alexPrevCharIs :: Char -> t2 -> AlexInput -> t1 -> t -> Bool Source #

alexPrevCharMatches :: (Char -> t) -> t3 -> AlexInput -> t2 -> t1 -> t Source #

alexPrevCharIsOneOf :: Array Char e -> t2 -> AlexInput -> t1 -> t -> e Source #

alexRightContext :: Int -> FortranVersion -> t1 -> t -> AlexInput -> Bool Source #

formatExtendedP :: FortranVersion -> AlexInput -> Int -> AlexInput -> Bool Source #

implicitType77P :: FortranVersion -> AlexInput -> Int -> AlexInput -> Bool Source #

implicitTypeExtendedP :: FortranVersion -> AlexInput -> Int -> AlexInput -> Bool Source #

implicitStP :: FortranVersion -> AlexInput -> Int -> AlexInput -> Bool Source #

extendedIdP :: FortranVersion -> AlexInput -> Int -> AlexInput -> Bool Source #

idP :: FortranVersion -> AlexInput -> Int -> AlexInput -> Bool Source #

doP :: AlexInput -> Bool Source #

equalFollowsP :: FortranVersion -> AlexInput -> Bool Source #

commentP :: FortranVersion -> AlexInput -> Int -> AlexInput -> Bool Source #

withinLabelColsP :: FortranVersion -> AlexInput -> Int -> AlexInput -> Bool Source #

atColP :: Int -> AlexInput -> Bool Source #

exponentP :: FortranVersion -> AlexInput -> Int -> AlexInput -> Bool Source #

fortran66P :: FortranVersion -> AlexInput -> Int -> AlexInput -> Bool Source #

fortran77P :: FortranVersion -> AlexInput -> Int -> AlexInput -> Bool Source #

extended77P :: FortranVersion -> AlexInput -> Int -> AlexInput -> Bool Source #

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

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

getLexeme :: LexAction Lexeme Source #

putLexeme :: Lexeme -> LexAction () Source #

resetLexeme :: LexAction () Source #

getMatch :: LexAction String Source #

putMatch :: String -> LexAction () Source #

incWhiteSensitiveCharCount :: LexAction () Source #

resetWhiteSensitiveCharCount :: LexAction () Source #

updatePreviousToken :: Maybe Token -> LexAction () Source #

addToPreviousTokensInLine :: Token -> LexAction () Source #

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

getLexemeSpan :: LexAction SrcSpan Source #

lexComment :: Maybe Char -> LexAction (Maybe Token) Source #

strAutomaton :: Int -> LexAction (Maybe Token) Source #

lexHollerith :: LexAction (Maybe Token) Source #

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

lexFieldDescriptorDEFG :: LexAction (Maybe Token) Source #

lexFieldDescriptorAIL :: LexAction (Maybe Token) Source #

lexBlankDescriptor :: LexAction (Maybe Token) Source #

lexScaleFactor :: LexAction (Maybe Token) Source #

takeRepeatDescriptorWidth :: String -> (Maybe Integer, Char, Integer, String) Source #

takeNumber :: String -> (String, String) Source #

maybeToKeyword :: LexAction (Maybe Token) Source #

typeSCChange :: LexAction (Maybe Token) Source #

toSC :: Int -> LexAction (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 
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 
TExit SrcSpan 
TPause SrcSpan 
TDo SrcSpan 
TDoWhile SrcSpan 
TEndDo SrcSpan 
TRead SrcSpan 
TWrite SrcSpan 
TRewind SrcSpan 
TBackspace SrcSpan 
TEndfile SrcSpan 
TInquire SrcSpan 
TOpen SrcSpan 
TClose SrcSpan 
TPrint SrcSpan 
TDimension SrcSpan 
TCommon SrcSpan 
TEquivalence SrcSpan 
TExternal SrcSpan 
TIntrinsic SrcSpan 
TType SrcSpan String 
TEntry SrcSpan 
TImplicit SrcSpan 
TNone SrcSpan 
TParameter SrcSpan 
TData SrcSpan 
TFormat SrcSpan 
TFieldDescriptorDEFG SrcSpan (Maybe Integer) Char Integer Integer 
TFieldDescriptorAIL SrcSpan (Maybe Integer) Char Integer 
TBlankDescriptor SrcSpan Integer 
TScaleFactor SrcSpan Integer 
TInt SrcSpan String 
TExponent SrcSpan String 
TBool SrcSpan String 
TOpPlus SrcSpan 
TOpMinus SrcSpan 
TOpExp SrcSpan 
TStar 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 
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 # 
Tok Token Source # 

Methods

eofToken :: Token -> Bool Source #

FirstParameter Token SrcSpan Source # 
LastToken AlexInput Token Source # 
type Rep Token Source # 
type Rep Token = D1 (MetaData "Token" "Language.Fortran.Lexer.FixedForm" "fortran-src-0.1.0.2-7wk5StG8EXm2GNwWT3coX7" 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 "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 "TExit" 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 "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 "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 "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 "TFormat" PrefixI False) (S1 (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)))) ((:+:) (C1 (MetaCons "TFieldDescriptorDEFG" PrefixI False) ((:*:) ((:*:) (S1 (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) (S1 (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (Maybe Integer)))) ((:*:) (S1 (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Char)) ((:*:) (S1 (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Integer)) (S1 (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Integer)))))) ((:+:) (C1 (MetaCons "TFieldDescriptorAIL" PrefixI False) ((:*:) ((:*:) (S1 (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) (S1 (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (Maybe Integer)))) ((:*:) (S1 (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Char)) (S1 (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Integer))))) (C1 (MetaCons "TBlankDescriptor" PrefixI False) ((:*:) (S1 (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) (S1 (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Integer))))))) ((:+:) ((:+:) (C1 (MetaCons "TScaleFactor" PrefixI False) ((:*:) (S1 (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) (S1 (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Integer)))) ((:+:) (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 "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 "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 "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))))))))))

data Lexeme Source #

Constructors

Lexeme 

Fields

Instances

initLexeme :: Lexeme Source #

data AlexInput Source #

Constructors

AlexInput 

Fields

Instances

type LexAction a = Parse AlexInput Token a Source #

vanillaAlexInput :: AlexInput Source #

updateLexeme :: Maybe Char -> Position -> AlexInput -> AlexInput Source #

data Move Source #

Constructors

Continuation 
Char 
Newline 

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

alexInputPrevChar :: AlexInput -> Char Source #

takeNChars :: Integer -> AlexInput -> String Source #

currentChar :: AlexInput -> Char Source #

isContinuation :: AlexInput -> Bool Source #

skip :: Move -> AlexInput -> Maybe (Word8, AlexInput) Source #

advance :: Move -> Position -> Position Source #

utf8Encode :: Char -> [Word8] Source #

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

lexer' :: LexAction Token Source #

alexScanUser :: FortranVersion -> AlexInput -> Int -> AlexReturn (LexAction (Maybe Token)) Source #

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

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

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

iif :: Int Source #

keyword :: Int Source #

st :: Int Source #

alex_action_0 :: LexAction (Maybe Token) Source #

alex_action_1 :: LexAction (Maybe Token) Source #

alex_action_2 :: LexAction (Maybe Token) Source #

alex_action_4 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_6 :: LexAction (Maybe Token) Source #

alex_action_7 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_8 :: LexAction (Maybe Token) Source #

alex_action_9 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_10 :: LexAction (Maybe Token) Source #

alex_action_11 :: LexAction (Maybe Token) Source #

alex_action_12 :: LexAction (Maybe Token) Source #

alex_action_13 :: LexAction (Maybe Token) Source #

alex_action_14 :: LexAction (Maybe Token) Source #

alex_action_15 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_16 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_17 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_18 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_19 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_20 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_21 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_22 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_23 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_24 :: LexAction (Maybe Token) Source #

alex_action_25 :: LexAction (Maybe Token) Source #

alex_action_26 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_27 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_28 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_29 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_30 :: LexAction (Maybe Token) Source #

alex_action_31 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_32 :: LexAction (Maybe Token) Source #

alex_action_33 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_34 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_35 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_36 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_37 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_38 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_39 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_40 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_41 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_42 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_43 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_44 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_45 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_46 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_47 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_48 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_49 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_50 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_51 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_52 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_53 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_54 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_55 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_56 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_57 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_58 :: LexAction (Maybe Token) Source #

alex_action_59 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_60 :: LexAction (Maybe Token) Source #

alex_action_61 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_62 :: LexAction (Maybe Token) Source #

alex_action_63 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_64 :: LexAction (Maybe Token) Source #

alex_action_65 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_66 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_67 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_68 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_69 :: LexAction (Maybe Token) Source #

alex_action_70 :: LexAction (Maybe Token) Source #

alex_action_71 :: LexAction (Maybe Token) Source #

alex_action_72 :: LexAction (Maybe Token) Source #

alex_action_73 :: LexAction (Maybe Token) Source #

alex_action_74 :: LexAction (Maybe Token) Source #

alex_action_75 :: LexAction (Maybe Token) Source #

alex_action_76 :: LexAction (Maybe Token) Source #

alex_action_77 :: LexAction (Maybe Token) Source #

alex_action_78 :: LexAction (Maybe Token) Source #

alex_action_79 :: LexAction (Maybe Token) Source #

alex_action_80 :: LexAction (Maybe Token) Source #

alex_action_81 :: LexAction (Maybe Token) Source #

alex_action_82 :: LexAction (Maybe Token) Source #

alex_action_83 :: LexAction (Maybe Token) Source #

alex_action_84 :: LexAction (Maybe Token) Source #

alex_action_85 :: LexAction (Maybe Token) Source #

alex_action_86 :: LexAction (Maybe Token) Source #

alex_action_87 :: LexAction (Maybe Token) Source #

alex_action_88 :: LexAction (Maybe Token) Source #

alex_action_89 :: LexAction (Maybe Token) Source #

alex_action_90 :: LexAction (Maybe Token) Source #

alex_action_91 :: LexAction (Maybe Token) Source #

alex_action_92 :: LexAction (Maybe Token) Source #

alex_action_93 :: LexAction (Maybe Token) Source #

alex_action_94 :: LexAction (Maybe Token) Source #

alex_action_95 :: LexAction (Maybe Token) Source #

alex_action_96 :: LexAction (Maybe Token) Source #

alex_action_97 :: LexAction (Maybe Token) Source #

alex_action_98 :: LexAction (Maybe Token) Source #

alex_action_99 :: LexAction (Maybe Token) Source #

alex_action_100 :: LexAction (Maybe Token) Source #

alex_action_101 :: LexAction (Maybe Token) Source #

data AlexAddr Source #

Constructors

AlexA# Addr# 

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