GLL.Combinators.BinaryInterface

This module provides the same functions and combinators as GLL.Combinators.Interface. The only difference is that the combinators of this module construct only symbol expressions ('SymbExpr'/'BNF'). The combinators are therefore easier to use: they are just as freely combined but with simpler types and simpler type-errors. However, the the underlying grammars are binarised, resulting in slower parsing.

Elementary parsers

term_parser :: t -> (t -> a) -> SymbExpr t a

Create a symbol-parse for a terminal given:

• The Parseable token represented by the terminal.
• A function from that Parseable to a semantic result.

satisfy :: (Show t, Ord t) => a -> BNF t a

The empty right-hand side that yields its first argument as a semantic result.

Elementary parsers using the Token datatype

keychar :: SubsumesToken t => Char -> SymbExpr t Char

Parse a single character, using a SubsumesToken type.

keyword :: SubsumesToken t => String -> SymbExpr t String

Parse a single character, using a SubsumesToken type.

int_lit :: SubsumesToken t => SymbExpr t Int

Parse a single integer, using a SubsumesToken type. Returns the lexeme interpreted as an Int.

float_lit :: SubsumesToken t => SymbExpr t Double

Parse a single floating point literal, using a SubsumesToken type. Returns the lexeme interpreted as a Double.

bool_lit :: SubsumesToken t => SymbExpr t Bool

Parse a single Boolean, using a SubsumesToken type. Returns the lexeme interpreter as a Boolean.

char_lit :: SubsumesToken t => SymbExpr t Char

Parse a single Character literal, using a SubsumesToken type. Returns the lexeme interpreted as a Character literal.

string_lit :: SubsumesToken t => SymbExpr t String

Parse a single String literal, using a SubsumesToken type. Returns the lexeme interpreted as a String literal.

alt_id_lit :: SubsumesToken t => SymbExpr t String

Parse a single alternative identifier, using a SubsumesToken type. Returns the lexeme as a String.

id_lit :: SubsumesToken t => SymbExpr t String

Parse a single identifier, using a SubsumesToken type. Returns the lexeme as a String.

token :: SubsumesToken t => String -> SymbExpr t String

Parse a single arbitrary token, using a SubsumesToken type. Returns the lexeme.

Elementary character-level parsers

char :: Char -> SymbExpr Char Char

Parse a single character.

char c = term_parser c id

Currently, this is the only character-level combinator exported by this module. Please use token-level combinators for practical parsing. Might change in the future.

Elementary combinators

Sequencing

(<**>) :: (Show t, Ord t) => BNF t (a -> b) -> BNF t a -> BNF t b infixl 4

Add a SymbExpr to the right-hand side represented by an AltExpr creating a new AltExpr. The semantic result of the first argument is applied to the second as a cross-product.

Choice

(<||>) :: (Show t, Ord t) => BNF t a -> BNF t a -> BNF t a infixr 3

Add an AltExpr to a list of AltExpr The resuling '[] :. AltExpr' forms the right-hand side of a rule.

Semantic actions

(<$$>) :: (Show t, Ord t) => (a -> b) -> BNF t a -> BNF t b infixl 4

Form an AltExpr by mapping some semantic action overy the result of the second argument.

Nonterminal introduction

(<:=>) :: (Show t, Ord t) => String -> BNF t a -> BNF t a infixl 2

Form a rule by giving the name of the left-hand side of the new rule. Use this combinator on recursive non-terminals.

(<::=>) :: (Show t, Ord t) => String -> BNF t a -> BNF t a infixl 2

Variant of <:=> for recursive non-terminals that have a potentially infinite number of derivations for some input string.

A non-terminal yields infinitely many derivations if and only if it is left-recursive and would be left-recursive if all the right-hand sides of the productions of the grammar are reversed.

chooses :: (Show t, Ord t) => String -> [BNF t a] -> BNF t a

Variant of <::=> that can be supplied with a list of alternates

chooses_prec :: (Show t, Ord t) => String -> [BNF t a] -> BNF t a

Variant of <::= that can be supplied with a list of alternates

Types

Grammar (combinator expression) types

type BNF t a = SymbExpr t a

A combinator expression representing a BNF-grammar. The terminals of the grammar are of type t. When used to parse, the expression yields semantic results of type a.

data SymbExpr t a

A combinator expression representing a symbol. A SymbExpr either represents a terminal or a nonterminal. In the latter case it is constructed with (a variant of) <:=> and adds a rule to the grammar of which the represented symbol is the left-hand side.

Instances

IsAltExpr SymbExpr

Defined in GLL.Combinators.Visit.Join

Methods

toAlt :: (Show t, Ord t) => SymbExpr t b -> AltExpr t b

HasAlts SymbExpr

Defined in GLL.Combinators.Visit.Join

Methods

altsOf :: (Show t, Ord t) => SymbExpr t b -> [AltExpr t b]

IsSymbExpr SymbExpr

Defined in GLL.Combinators.Visit.Join

Methods

toSymb :: (Show t, Ord t) => SymbExpr t b -> SymbExpr t b

mkRule :: (Show t, Ord t) => SymbExpr t b -> BNF t b

toSymb :: (IsSymbExpr a, Show t, Ord t) => a t b -> SymbExpr t b

mkRule :: (IsSymbExpr a, Show t, Ord t) => a t b -> BNF t b

Synonym of toSymb for creating derived combinators.

Parseable token types

data Token

A datatype for representing tokens with some builtins and an aribitrary Token constructor. This datatype stores (optional) lexemes.

Constructors

Char Char

Keyword String

EOS

Epsilon

IntLit (Maybe Int)

FloatLit (Maybe Double)

BoolLit (Maybe Bool)

StringLit (Maybe String)

CharLit (Maybe Char)

IDLit (Maybe String)

AltIDLit (Maybe String)

alternative identifiers, for example functions vs. constructors (as in Haskell).

Token String (Maybe String)

Instances

Eq Token

Defined in GLL.Types.Grammar

Methods

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

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

Ord Token

Defined in GLL.Types.Grammar

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

Defined in GLL.Types.Grammar

Methods

showsPrec :: Int -> Token -> ShowS

show :: Token -> String

showList :: [Token] -> ShowS

SubsumesToken Token

Defined in GLL.Types.Grammar

Methods

upcast :: Token -> Token

downcast :: Token -> Maybe Token

Parseable Token

Defined in GLL.Types.Grammar

Methods

eos :: Token

eps :: Token

matches :: Token -> Token -> Bool

unlex :: Token -> String

class (Ord a, Eq a, Show a) => Parseable a where

Class that captures elements of an input string (tokens).

• eos is the end-of-string symbol
• eps is the empty-string symbol

Both eos and eps must be distinct from eachother and from all tokens in the input string. The show instance is required to throw error messages.

Minimal complete definition

eos, eps, matches

Methods

eos :: a

eps :: a

matches :: a -> a -> Bool

This function is used for matching grammar tokens and input tokens. Override this method if, for example, your input tokens store lexemes while the grammar tokens do not

unlex :: a -> String

This function pretty-prints the Parseable type by displaying its lexeme. Default implementation is show, which should be replaced for prettier error messages.

Instances

Parseable Char

Assumes $ and # never appear in the input string.

Defined in GLL.Parseable.Char

Methods

eos :: Char

eps :: Char

matches :: Char -> Char -> Bool

unlex :: Char -> String

Parseable Token

Defined in GLL.Types.Grammar

Methods

eos :: Token

eps :: Token

matches :: Token -> Token -> Bool

unlex :: Token -> String

class SubsumesToken a where

Class whose members are super-types of Token.

Methods

upcast :: Token -> a

downcast :: a -> Maybe Token

Instances

SubsumesToken Token

Defined in GLL.Types.Grammar

Methods

upcast :: Token -> Token

downcast :: Token -> Maybe Token

unlexTokens :: [Token] -> String

Pretty-prints a list of Tokens as a concatenation of their lexemes.

unlexToken :: Token -> String

Running a parser

grammarOf :: (Show t, Parseable t, IsSymbExpr s) => s t a -> Grammar t

The grammar of a given symbol expression.

parse :: (Show t, Parseable t, IsSymbExpr s) => s t a -> [t] -> [a]

Runs a parser given a string of Parseables and returns a list of semantic results, corresponding to all finitely many derivations.

printParseData :: (Parseable t, IsSymbExpr s, Show a) => s t a -> [t] -> IO ()

Print some information about the parse. Helpful for debugging.

evaluatorWithParseData :: (Parseable t, IsSymbExpr s, Show a) => s t a -> [t] -> [a]

Print some information

Running a parser with options

parseWithOptions :: (Show t, Parseable t, IsSymbExpr s) => CombinatorOptions -> s t a -> [t] -> [a]

Run the parser with some CombinatorOptions.

parseWithParseOptions :: (Show t, Parseable t, IsSymbExpr s) => ParseOptions -> CombinatorOptions -> s t a -> [t] -> [a]

Run the parser with some ParseOptions and CombinatorOptions.

printParseDataWithOptions :: (Parseable t, IsSymbExpr s, Show a) => ParseOptions -> CombinatorOptions -> s t a -> [t] -> IO ()

Variant of printParseData which can be controlled by ParseOptions

evaluatorWithParseDataAndOptions :: (Parseable t, IsSymbExpr s, Show a) => ParseOptions -> CombinatorOptions -> s t a -> [t] -> [a]

printGrammarData :: (Show t, Parseable t, IsSymbExpr s) => s t a -> IO ()

Print some information about the grammar constructed by a IsSymbExpr. useful for debugging purposes

Possible options

type CombinatorOptions = [CombinatorOption]

A list of CombinatorOptions for evaluating combinator expressions.

type CombinatorOption = PCOptions -> PCOptions

A single option.

maximumErrors :: Int -> CombinatorOption

Set the maximum number of errors shown in case of an unsuccessful parse.

throwErrors :: CombinatorOption

If there are no parse results, the default behaviour is to return an empty list. If this option is used, a runtime error will be reported, with debugging information.

maximumPivot :: CombinatorOption

Enables a 'longest-match' at production level.

maximumPivotAtNt :: CombinatorOption

Enables 'longest-match' at non-terminal level.

leftBiased :: CombinatorOption

Turns all occurrences of <||> into a 'left biased' variant: only return results of the second alternate if the first alternate does not have any results.

Parser options

fullSPPF :: ParseOption

Create the SPPF with all nodes and edges, not necessarily strictly binarised.

allNodes :: ParseOption

Create all nodes, but no edges between nodes.

packedNodesOnly :: ParseOption

Create packed-nodes only.

strictBinarisation :: ParseOption

Fully binarise the SPPF, resulting in a larger SPPF and possibly slower runtimes. When this flag is on, packed nodes can only have a single symbol node child or one intermediate node child and one symbol node child. With the flag disabled a packed node can have two symbol node children.

noSelectTest :: ParseOption

Turn of select tests. Disables lookahead.

Running a parser with options and explicit failure

parseWithOptionsAndError :: (Show t, Parseable t, IsSymbExpr s) => CombinatorOptions -> s t a -> [t] -> Either String [a]

Run the parser with some CombinatorOptions and return either an error or the results. Any returned results will be a list of length greater than 0.

parseWithParseOptionsAndError :: (Show t, Parseable t, IsSymbExpr s) => ParseOptions -> CombinatorOptions -> s t a -> [t] -> Either String [a]

Run the parser with some ParseOptions and CombinatorOptions. Returns either an error or the results. Any returned results will be a list of length greater than 0.

Runing a parser to obtain ParseResult.

parseResult :: (Show t, Parseable t, IsSymbExpr s) => s t a -> [t] -> ParseResult t

Get the ParseResult, containing an SPPF, produced by parsing the given input with the given parser.

parseResultWithOptions :: (Show t, Parseable t, IsSymbExpr s) => ParseOptions -> CombinatorOptions -> s t a -> [t] -> ParseResult t

Get the ParseResult given some ParseOptions and CombinatorOptions.

data ParseResult t

The ParseResult datatype contains the SPPF and some other information about the parse:

• SPPF
• Whether the parse was successful
• The number of descriptors that have been processed
• The number of symbol nodes (nonterminal and terminal)
• The number of intermediate noes
• The number of packed nodes
• The number of GSS nodes
• The number of GSS edges

Constructors

ParseResult

Fields

• sppf_result :: SPPF t
• res_success :: Bool
• res_successes :: Int
• nr_descriptors :: Int
• nr_nterm_nodes :: Int
• nr_term_nodes :: Int
• nr_intermediate_nodes :: Int
• nr_packed_nodes :: Int
• nr_packed_node_attempts :: Int
• nr_sppf_edges :: Int
• nr_gss_nodes :: Int
• nr_gss_edges :: Int
• error_message :: String

Instances

Show (ParseResult t)

Defined in GLL.Parser

Methods

showsPrec :: Int -> ParseResult t -> ShowS

show :: ParseResult t -> String

showList :: [ParseResult t] -> ShowS

Builtin lexers.

default_lexer :: SubsumesToken t => String -> [t]

A lexer using the default LexerSettings.

Lexer settings

lexer :: SubsumesToken t => LexerSettings -> String -> [t]

Variant of lexerEither that throws an error or returns the result otherwise

data LexerSettings

Settings for changing the behaviour of the builtin lexer lexer. Lexers are built using Text.Regex.Applicative.

Constructors

LexerSettings

Fields

• keychars :: [Char]

  Which keychars to recognise? Default: none.

• keywords :: [String]

  Which keywords to recognise? Default: none.

• whitespace :: Char -> Bool

  What is considered a whitespace character? Default: isSpace.

• lineComment :: String

  How does a line comment start? Default: '"//"'.

• blockCommentOpen :: String

  How does a block comment open? Default: '"'{-'"'.

• blockCommentClose :: String

  How does a block comment close? Default: '"'-}'"'.

• identifiers :: RE Char String

  How to recognise identifiers? Default alphanumerical with lowercase alpha start.

• altIdentifiers :: RE Char String

  How to recognise alternative identifiers? Default alphanumerical with uppercase alpha start.

• tokens :: [(String, RE Char String)]

  Arbitrary tokens (a,b). a is the token name, b is a regular expression.

• signed_int_lits :: Bool

  Whether integer literals may be signed positive or negative. Default: False

emptyLanguage :: LexerSettings

The default LexerSettings.

Derived combinators

mkNt :: (Show t, Ord t) => BNF t a -> String -> String

Helper function for defining new combinators. Use mkNt to form a new unique non-terminal name based on the symbol of a given SymbExpr and a String that is unique to the newly defined combinator.

Ignoring semantic results

(<$$) :: (Show t, Ord t) => b -> BNF t a -> BNF t b infixl 4

Variant of <$$> that ignores the semantic result of its second argument.

(**>) :: (Show t, Ord t) => BNF t a -> BNF t b -> BNF t b infixl 4

Variant of <**> that ignores the semantic result of the first argument.

(<**) :: (Show t, Ord t) => BNF t a -> BNF t b -> BNF t a infixl 4

Variant of <**> that ignores the semantic result of the second argument.

EBNF patterns

optional :: (Show t, Ord t) => BNF t a -> BNF t (Maybe a)

Derive either from the given symbol or the empty string.

preferably :: (Show t, Ord t) => BNF t a -> BNF t (Maybe a)

Version of optional that prefers to derive from the given symbol, affects only nullable nonterminal symbols

reluctantly :: (Show t, Ord t) => BNF t a -> BNF t (Maybe a)

Version of optional that prefers to derive the empty string from the given symbol, affects only nullable nonterminal symbols

optionalWithDef :: (Show t, Ord t) => BNF t a -> a -> BNF t a

multiple :: (Show t, Ord t) => BNF t a -> BNF t [a]

Try to apply a parser multiple times (0 or more). The results are returned in a list. In the case of ambiguity the largest list is returned.

multiple1 :: (Show t, Ord t) => BNF t a -> BNF t [a]

Try to apply a parser multiple times (1 or more). The results are returned in a list. In the case of ambiguity the largest list is returned.

multipleSepBy :: (Show t, Ord t) => BNF t a -> BNF t b -> BNF t [a]

Same as multiple but with an additional separator.

multipleSepBy1 :: (Show t, Ord t) => BNF t a -> BNF t b -> BNF t [a]

Same as multiple1 but with an additional separator.

multipleSepBy2 :: (Show t, Ord t) => BNF t a -> BNF t b -> BNF t [a]

Like multipleSepBy1 but matching at least two occurrences of the first argument. The returned list is therefore always of at least length 2. At least one separator will be consumed.

within :: (Show t, Ord t) => BNF t a -> BNF t b -> BNF t c -> BNF t b

Place a piece of BNF within two other BNF fragments, ignoring their semantics.

parens :: (Show t, Ord t, SubsumesToken t) => BNF t b -> BNF t b

Place a piece of BNF between the characters '(' and ')'.

braces :: (Show t, Ord t, SubsumesToken t) => BNF t b -> BNF t b

Place a piece of BNF between the characters '{' and '}'.

brackets :: (Show t, Ord t, SubsumesToken t) => BNF t b -> BNF t b

Place a piece of BNF between the characters '[' and ']'.

angles :: (Show t, Ord t, SubsumesToken t) => BNF t b -> BNF t b

Place a piece of BNF between the characters < and >.

Disambiguation

(<:=) :: (Show t, Ord t, HasAlts b) => String -> b t a -> SymbExpr t a infixl 2

Variant of <:=> that prioritises productions from left-to-right (or top-to-bottom).

(<::=) :: (Show t, Ord t, HasAlts b) => String -> b t a -> SymbExpr t a infixl 2

Variant of <::=> that prioritises productions from left-to-right (or top-to-bottom).

(<<<**>) :: (Show t, Ord t) => BNF t (a -> b) -> BNF t a -> BNF t b infixl 4

Variant of <**> that applies shortest match on the left operand.

(<**>>>) :: (Show t, Ord t) => BNF t (a -> b) -> BNF t a -> BNF t b infixl 4

Variant of <**> that applies longest match on the left operand.

(<<**>) :: (Show t, Ord t) => BNF t a -> BNF t b -> BNF t b infixl 4

(<<<**) :: (Show t, Ord t) => BNF t a -> BNF t b -> BNF t a infixl 4

Variant <** that applies shortest match on its left operand

(**>>>) :: (Show t, Ord t) => BNF t a -> BNF t b -> BNF t b infixl 4

(<**>>) :: (Show t, Ord t) => BNF t a -> BNF t b -> BNF t a infixl 4

Variant of <** that applies longest match on its left operand.

longest_match :: (Show t, Ord t) => BNF t a -> BNF t a

Apply this combinator to an alternative to turn all underlying occurrences of <**> (or variants) apply 'longest match'.

shortest_match :: (Show t, Ord t) => BNF t a -> BNF t a

many :: (Show t, Ord t) => BNF t a -> BNF t [a]

Try to apply a parser multiple times (0 or more) with shortest match applied to each occurrence of the parser.

many1 :: (Show t, Ord t) => BNF t a -> BNF t [a]

Try to apply a parser multiple times (1 or more) with shortest match applied to each occurrence of the parser.

some :: (Show t, Ord t) => BNF t a -> BNF t [a]

Try to apply a parser multiple times (0 or more) with longest match applied to each occurrence of the parser.

some1 :: (Show t, Ord t) => BNF t a -> BNF t [a]

Try to apply a parser multiple times (1 or more) with longest match applied to each occurrence of the parser.

manySepBy :: (Show t, Ord t) => BNF t a -> BNF t b -> BNF t [a]

Same as many but with an additional separator.

manySepBy1 :: (Show t, Ord t) => BNF t a -> BNF t b -> BNF t [a]

Same as many1 but with an additional separator.

manySepBy2 :: (Show t, Ord t) => BNF t a -> BNF t b -> BNF t [a]

Like multipleSepBy2 but matching the maximum number of occurrences of the first argument as possible (at least 2).

someSepBy :: (Show t, Ord t) => BNF t a -> BNF t b -> BNF t [a]

Same as some1 but with an additional separator.

someSepBy1 :: (Show t, Ord t) => BNF t a -> BNF t b -> BNF t [a]

Same as some1 but with an additional separator.

someSepBy2 :: (Show t, Ord t) => BNF t a -> BNF t b -> BNF t [a]

Like multipleSepBy2 but matching the minimum number of occurrences of the first argument as possible (at least 2).

Memoisation

memo :: (Ord t, Show t) => MemoRef [a] -> BNF t a -> BNF t a

This function memoises a parser, given:

• A MemoRef pointing to a fresh MemoTable, created using newMemoTable.
• The SymbExpr to memoise.

Use memo on those parsers that are expected to derive the same substring multiple times. If the same combinator expression is used to parse multiple times the MemoRef needs to be cleared using memClear.

memo relies on unsafePerformIO and is therefore potentially unsafe. The option useMemoisation enables memoisation. It is off by default, even if memo is used in a combinator expression.

newMemoTable :: MemoRef a

Create a reference to a fresh MemoTable.

memClear :: MemoRef a -> IO ()

Clears the MemoTable to which the given reference refers.

type MemoTable a = IntMap (IntMap a)

A MemoTable maps left-extent l to right-extent r to some results a indicating the the substring ranging from l to r is derived with parse result a.

type MemoRef a = IORef (MemoTable a)

An impure reference to a MemoTable.

useMemoisation :: CombinatorOption

Whether to use unsafe memoisation to speed up the enumeration of parse results.

type MemoRef a = IORef (MemoTable a)

An impure reference to a MemoTable.

type MemoTable a = IntMap (IntMap a)

A MemoTable maps left-extent l to right-extent r to some results a indicating the the substring ranging from l to r is derived with parse result a.

memClear :: MemoRef a -> IO ()

Clears the MemoTable to which the given reference refers.

newMemoTable :: MemoRef a

Create a reference to a fresh MemoTable.

type CombinatorOption = PCOptions -> PCOptions

A single option.

type CombinatorOptions = [CombinatorOption]

A list of CombinatorOptions for evaluating combinator expressions.

maximumPivot :: CombinatorOption

Enables a 'longest-match' at production level.

maximumPivotAtNt :: CombinatorOption

Enables 'longest-match' at non-terminal level.

maximumErrors :: Int -> CombinatorOption

Set the maximum number of errors shown in case of an unsuccessful parse.

throwErrors :: CombinatorOption

If there are no parse results, the default behaviour is to return an empty list. If this option is used, a runtime error will be reported, with debugging information.

leftBiased :: CombinatorOption

Turns all occurrences of <||> into a 'left biased' variant: only return results of the second alternate if the first alternate does not have any results.

useMemoisation :: CombinatorOption

Whether to use unsafe memoisation to speed up the enumeration of parse results.

fullSPPF :: ParseOption

Create the SPPF with all nodes and edges, not necessarily strictly binarised.

allNodes :: ParseOption

Create all nodes, but no edges between nodes.

packedNodesOnly :: ParseOption

Create packed-nodes only.

strictBinarisation :: ParseOption

Fully binarise the SPPF, resulting in a larger SPPF and possibly slower runtimes. When this flag is on, packed nodes can only have a single symbol node child or one intermediate node child and one symbol node child. With the flag disabled a packed node can have two symbol node children.

noSelectTest :: ParseOption

Turn of select tests. Disables lookahead.

class SubsumesToken a where

Class whose members are super-types of Token.

Methods

upcast :: Token -> a

downcast :: a -> Maybe Token

Instances

SubsumesToken Token

Defined in GLL.Types.Grammar

Methods

upcast :: Token -> Token

downcast :: Token -> Maybe Token

class (Ord a, Eq a, Show a) => Parseable a where

Class that captures elements of an input string (tokens).

• eos is the end-of-string symbol
• eps is the empty-string symbol

Both eos and eps must be distinct from eachother and from all tokens in the input string. The show instance is required to throw error messages.

Minimal complete definition

eos, eps, matches

Methods

eos :: a

eps :: a

matches :: a -> a -> Bool

This function is used for matching grammar tokens and input tokens. Override this method if, for example, your input tokens store lexemes while the grammar tokens do not

unlex :: a -> String

This function pretty-prints the Parseable type by displaying its lexeme. Default implementation is show, which should be replaced for prettier error messages.

Instances

Parseable Char

Assumes $ and # never appear in the input string.

Defined in GLL.Parseable.Char

Methods

eos :: Char

eps :: Char

matches :: Char -> Char -> Bool

unlex :: Char -> String

Parseable Token

Defined in GLL.Types.Grammar

Methods

eos :: Token

eps :: Token

matches :: Token -> Token -> Bool

unlex :: Token -> String

data Token

A datatype for representing tokens with some builtins and an aribitrary Token constructor. This datatype stores (optional) lexemes.

Constructors

Char Char

Keyword String

EOS

Epsilon

IntLit (Maybe Int)

FloatLit (Maybe Double)

BoolLit (Maybe Bool)

StringLit (Maybe String)

CharLit (Maybe Char)

IDLit (Maybe String)

AltIDLit (Maybe String)

alternative identifiers, for example functions vs. constructors (as in Haskell).

Token String (Maybe String)

Instances

Eq Token

Defined in GLL.Types.Grammar

Methods

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

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

Ord Token

Defined in GLL.Types.Grammar

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

Defined in GLL.Types.Grammar

Methods

showsPrec :: Int -> Token -> ShowS

show :: Token -> String

showList :: [Token] -> ShowS

SubsumesToken Token

Defined in GLL.Types.Grammar

Methods

upcast :: Token -> Token

downcast :: Token -> Maybe Token

Parseable Token

Defined in GLL.Types.Grammar

Methods

eos :: Token

eps :: Token

matches :: Token -> Token -> Bool

unlex :: Token -> String

unlexTokens :: [Token] -> String

Pretty-prints a list of Tokens as a concatenation of their lexemes.

unlexToken :: Token -> String

data ParseResult t

The ParseResult datatype contains the SPPF and some other information about the parse:

• SPPF
• Whether the parse was successful
• The number of descriptors that have been processed
• The number of symbol nodes (nonterminal and terminal)
• The number of intermediate noes
• The number of packed nodes
• The number of GSS nodes
• The number of GSS edges

Constructors

ParseResult

Fields

• sppf_result :: SPPF t
• res_success :: Bool
• res_successes :: Int
• nr_descriptors :: Int
• nr_nterm_nodes :: Int
• nr_term_nodes :: Int
• nr_intermediate_nodes :: Int
• nr_packed_nodes :: Int
• nr_packed_node_attempts :: Int
• nr_sppf_edges :: Int
• nr_gss_nodes :: Int
• nr_gss_edges :: Int
• error_message :: String

Instances

Show (ParseResult t)

Defined in GLL.Parser

Methods

showsPrec :: Int -> ParseResult t -> ShowS

show :: ParseResult t -> String

showList :: [ParseResult t] -> ShowS

class IsAltExpr a where

Class for lifting to AltExpr.

Methods

toAlt :: (Show t, Ord t) => a t b -> AltExpr t b

Instances

IsAltExpr AltExprs

Defined in GLL.Combinators.Visit.Join

Methods

toAlt :: (Show t, Ord t) => AltExprs t b -> AltExpr t b

IsAltExpr AltExpr

Defined in GLL.Combinators.Visit.Join

Methods

toAlt :: (Show t, Ord t) => AltExpr t b -> AltExpr t b

IsAltExpr SymbExpr

Defined in GLL.Combinators.Visit.Join

Methods

toAlt :: (Show t, Ord t) => SymbExpr t b -> AltExpr t b

class HasAlts a where

Class for lifting to AltExprs.

Methods

altsOf :: (Show t, Ord t) => a t b -> [AltExpr t b]

Instances

HasAlts AltExprs

Defined in GLL.Combinators.Visit.Join

Methods

altsOf :: (Show t, Ord t) => AltExprs t b -> [AltExpr t b]

HasAlts AltExpr

Defined in GLL.Combinators.Visit.Join

Methods

altsOf :: (Show t, Ord t) => AltExpr t b -> [AltExpr t b]

HasAlts SymbExpr

Defined in GLL.Combinators.Visit.Join

Methods

altsOf :: (Show t, Ord t) => SymbExpr t b -> [AltExpr t b]

class IsSymbExpr a where

Class for lifting to SymbExpr.

Minimal complete definition

toSymb

Methods

toSymb :: (Show t, Ord t) => a t b -> SymbExpr t b

mkRule :: (Show t, Ord t) => a t b -> BNF t b

Synonym of toSymb for creating derived combinators.

Instances

IsSymbExpr AltExprs

Defined in GLL.Combinators.Visit.Join

Methods

toSymb :: (Show t, Ord t) => AltExprs t b -> SymbExpr t b

mkRule :: (Show t, Ord t) => AltExprs t b -> BNF t b

IsSymbExpr AltExpr

Defined in GLL.Combinators.Visit.Join

Methods

toSymb :: (Show t, Ord t) => AltExpr t b -> SymbExpr t b

mkRule :: (Show t, Ord t) => AltExpr t b -> BNF t b

IsSymbExpr SymbExpr

Defined in GLL.Combinators.Visit.Join

Methods

toSymb :: (Show t, Ord t) => SymbExpr t b -> SymbExpr t b

mkRule :: (Show t, Ord t) => SymbExpr t b -> BNF t b

type AltExprs = OO [] AltExpr

A list of alternatives represents the right-hand side of a rule.

data AltExpr t a

A combinator expression representing an alternative: the right-hand side of a production.

Instances

IsAltExpr AltExprs

Defined in GLL.Combinators.Visit.Join

Methods

toAlt :: (Show t, Ord t) => AltExprs t b -> AltExpr t b

IsAltExpr AltExpr

Defined in GLL.Combinators.Visit.Join

Methods

toAlt :: (Show t, Ord t) => AltExpr t b -> AltExpr t b

HasAlts AltExprs

Defined in GLL.Combinators.Visit.Join

Methods

altsOf :: (Show t, Ord t) => AltExprs t b -> [AltExpr t b]

HasAlts AltExpr

Defined in GLL.Combinators.Visit.Join

Methods

altsOf :: (Show t, Ord t) => AltExpr t b -> [AltExpr t b]

IsSymbExpr AltExprs

Defined in GLL.Combinators.Visit.Join

Methods

toSymb :: (Show t, Ord t) => AltExprs t b -> SymbExpr t b

mkRule :: (Show t, Ord t) => AltExprs t b -> BNF t b

IsSymbExpr AltExpr

Defined in GLL.Combinators.Visit.Join

Methods

toSymb :: (Show t, Ord t) => AltExpr t b -> SymbExpr t b

mkRule :: (Show t, Ord t) => AltExpr t b -> BNF t b

type BNF t a = SymbExpr t a

A combinator expression representing a BNF-grammar. The terminals of the grammar are of type t. When used to parse, the expression yields semantic results of type a.

data SymbExpr t a

A combinator expression representing a symbol. A SymbExpr either represents a terminal or a nonterminal. In the latter case it is constructed with (a variant of) <:=> and adds a rule to the grammar of which the represented symbol is the left-hand side.

Instances

IsAltExpr SymbExpr

Defined in GLL.Combinators.Visit.Join

Methods

toAlt :: (Show t, Ord t) => SymbExpr t b -> AltExpr t b

HasAlts SymbExpr

Defined in GLL.Combinators.Visit.Join

Methods

altsOf :: (Show t, Ord t) => SymbExpr t b -> [AltExpr t b]

IsSymbExpr SymbExpr

Defined in GLL.Combinators.Visit.Join

Methods

toSymb :: (Show t, Ord t) => SymbExpr t b -> SymbExpr t b

mkRule :: (Show t, Ord t) => SymbExpr t b -> BNF t b

data LexerSettings

Settings for changing the behaviour of the builtin lexer lexer. Lexers are built using Text.Regex.Applicative.

Constructors

LexerSettings

Fields

• keychars :: [Char]

  Which keychars to recognise? Default: none.

• keywords :: [String]

  Which keywords to recognise? Default: none.

• whitespace :: Char -> Bool

  What is considered a whitespace character? Default: isSpace.

• lineComment :: String

  How does a line comment start? Default: '"//"'.

• blockCommentOpen :: String

  How does a block comment open? Default: '"'{-'"'.

• blockCommentClose :: String

  How does a block comment close? Default: '"'-}'"'.

• identifiers :: RE Char String

  How to recognise identifiers? Default alphanumerical with lowercase alpha start.

• altIdentifiers :: RE Char String

  How to recognise alternative identifiers? Default alphanumerical with uppercase alpha start.

• tokens :: [(String, RE Char String)]

  Arbitrary tokens (a,b). a is the token name, b is a regular expression.

• signed_int_lits :: Bool

  Whether integer literals may be signed positive or negative. Default: False

emptyLanguage :: LexerSettings

The default LexerSettings.

default_lexer :: SubsumesToken t => String -> [t]

A lexer using the default LexerSettings.

lexer :: SubsumesToken t => LexerSettings -> String -> [t]

Variant of lexerEither that throws an error or returns the result otherwise

lexerEither :: SubsumesToken t => LexerSettings -> String -> Either String [t]

A lexer parameterised by LexerSettings.

data Assoc

Constructors

LAssoc

RAssoc

NA

data Fixity e

Constructors

Prefix (String -> e -> e)

Infix (e -> String -> e -> e) Assoc

type OpTable e = Map Double [(String, Fixity e)]

A table mapping operator keywords to a Fixity and Assoc It provides a convenient way to build an expression grammar (see fromOpTable).

printParseData :: (Parseable t, IsSymbExpr s, Show a) => s t a -> [t] -> IO ()

Print some information about the parse. Helpful for debugging.

printParseDataWithOptions :: (Parseable t, IsSymbExpr s, Show a) => ParseOptions -> CombinatorOptions -> s t a -> [t] -> IO ()

Variant of printParseData which can be controlled by ParseOptions

evaluatorWithParseData :: (Parseable t, IsSymbExpr s, Show a) => s t a -> [t] -> [a]

Print some information

evaluatorWithParseDataAndOptions :: (Parseable t, IsSymbExpr s, Show a) => ParseOptions -> CombinatorOptions -> s t a -> [t] -> [a]

grammarOf :: (Show t, Parseable t, IsSymbExpr s) => s t a -> Grammar t

The grammar of a given symbol expression.

printGrammarData :: (Show t, Parseable t, IsSymbExpr s) => s t a -> IO ()

Print some information about the grammar constructed by a IsSymbExpr. useful for debugging purposes

parse :: (Show t, Parseable t, IsSymbExpr s) => s t a -> [t] -> [a]

Runs a parser given a string of Parseables and returns a list of semantic results, corresponding to all finitely many derivations.

parseWithOptions :: (Show t, Parseable t, IsSymbExpr s) => CombinatorOptions -> s t a -> [t] -> [a]

Run the parser with some CombinatorOptions.

parseWithParseOptions :: (Show t, Parseable t, IsSymbExpr s) => ParseOptions -> CombinatorOptions -> s t a -> [t] -> [a]

Run the parser with some ParseOptions and CombinatorOptions.

parseWithOptionsAndError :: (Show t, Parseable t, IsSymbExpr s) => CombinatorOptions -> s t a -> [t] -> Either String [a]

Run the parser with some CombinatorOptions and return either an error or the results. Any returned results will be a list of length greater than 0.

parseWithParseOptionsAndError :: (Show t, Parseable t, IsSymbExpr s) => ParseOptions -> CombinatorOptions -> s t a -> [t] -> Either String [a]

Run the parser with some ParseOptions and CombinatorOptions. Returns either an error or the results. Any returned results will be a list of length greater than 0.

parseResult :: (Show t, Parseable t, IsSymbExpr s) => s t a -> [t] -> ParseResult t

Get the ParseResult, containing an SPPF, produced by parsing the given input with the given parser.

parseResultWithOptions :: (Show t, Parseable t, IsSymbExpr s) => ParseOptions -> CombinatorOptions -> s t a -> [t] -> ParseResult t

Get the ParseResult given some ParseOptions and CombinatorOptions.

term_parser :: t -> (t -> a) -> SymbExpr t a

Create a symbol-parse for a terminal given:

• The Parseable token represented by the terminal.
• A function from that Parseable to a semantic result.

char :: Char -> SymbExpr Char Char

Parse a single character.

char c = term_parser c id

Currently, this is the only character-level combinator exported by this module. Please use token-level combinators for practical parsing. Might change in the future.

keychar :: SubsumesToken t => Char -> SymbExpr t Char

Parse a single character, using a SubsumesToken type.

keyword :: SubsumesToken t => String -> SymbExpr t String

Parse a single character, using a SubsumesToken type.

int_lit :: SubsumesToken t => SymbExpr t Int

Parse a single integer, using a SubsumesToken type. Returns the lexeme interpreted as an Int.

float_lit :: SubsumesToken t => SymbExpr t Double

Parse a single floating point literal, using a SubsumesToken type. Returns the lexeme interpreted as a Double.

bool_lit :: SubsumesToken t => SymbExpr t Bool

Parse a single Boolean, using a SubsumesToken type. Returns the lexeme interpreter as a Boolean.

char_lit :: SubsumesToken t => SymbExpr t Char

Parse a single Character literal, using a SubsumesToken type. Returns the lexeme interpreted as a Character literal.

string_lit :: SubsumesToken t => SymbExpr t String

Parse a single String literal, using a SubsumesToken type. Returns the lexeme interpreted as a String literal.

id_lit :: SubsumesToken t => SymbExpr t String

Parse a single identifier, using a SubsumesToken type. Returns the lexeme as a String.

alt_id_lit :: SubsumesToken t => SymbExpr t String

Parse a single alternative identifier, using a SubsumesToken type. Returns the lexeme as a String.

token :: SubsumesToken t => String -> SymbExpr t String

Parse a single arbitrary token, using a SubsumesToken type. Returns the lexeme.

foldr_multiple :: (IsSymbExpr s, Parseable t) => s t (a -> a) -> a -> BNF t a

foldr_multipleSepBy :: (IsSymbExpr s, Parseable t) => s t (a -> a) -> s t b -> a -> BNF t a

opTableFromList :: [(Double, [(String, Fixity e)])] -> OpTable e

fromOpTable :: (SubsumesToken t, Parseable t, IsSymbExpr s) => String -> OpTable e -> s t e -> BNF t e