Agda- A dependently typed functional programming language and proof assistant

Safe HaskellNone




When lexing by hands (for instance string literals) we need to do some looking ahead. The LookAhead monad keeps track of the position we are currently looking at, and provides facilities to synchronise the look-ahead position with the actual position of the Parser monad (see sync and rollback).


The LookAhead monad

data LookAhead a Source #

The LookAhead monad is basically a state monad keeping with an extra AlexInput, wrapped around the Parser monad.


Monad LookAhead Source # 


(>>=) :: LookAhead a -> (a -> LookAhead b) -> LookAhead b #

(>>) :: LookAhead a -> LookAhead b -> LookAhead b #

return :: a -> LookAhead a #

fail :: String -> LookAhead a #

Functor LookAhead Source # 


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

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

Applicative LookAhead Source # 


pure :: a -> LookAhead a #

(<*>) :: LookAhead (a -> b) -> LookAhead a -> LookAhead b #

(*>) :: LookAhead a -> LookAhead b -> LookAhead b #

(<*) :: LookAhead a -> LookAhead b -> LookAhead a #

runLookAhead :: (forall b. String -> LookAhead b) -> LookAhead a -> Parser a Source #

Run a LookAhead computation. The first argument is the error function.


getInput :: LookAhead AlexInput Source #

Get the current look-ahead position.

setInput :: AlexInput -> LookAhead () Source #

Set the look-ahead position.

liftP :: Parser a -> LookAhead a Source #

Lift a computation in the Parser monad to the LookAhead monad.

nextChar :: LookAhead Char Source #

Look at the next character. Fails if there are no more characters.

eatNextChar :: LookAhead Char Source #

Consume the next character. Does nextChar followed by sync.

sync :: LookAhead () Source #

Consume all the characters up to the current look-ahead position.

rollback :: LookAhead () Source #

Undo look-ahead. Restores the input from the ParseState.

match :: [(String, LookAhead a)] -> LookAhead a -> LookAhead a Source #

Do a case on the current input string. If any of the given strings match we move past it and execute the corresponding action. If no string matches, we execute a default action, advancing the input one character. This function only affects the look-ahead position.

match' :: Char -> [(String, LookAhead a)] -> LookAhead a -> LookAhead a Source #

Same as match but takes the initial character from the first argument instead of reading it from the input. Consequently, in the default case the input is not advanced.