blob: 6f5929c7fddac97ac0521039fb84b920fcd9d1d5 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
definition module Sil.Util.Parser
from StdOverloaded import class ==
from Control.Applicative import class Applicative, class Alternative
from Control.Monad import class Monad
from Data.Error import :: MaybeError
from Data.Functor import class Functor
from Data.Maybe import :: Maybe
from Sil.Error import :: Error
:: Positioned a =
{ pos_line :: Int
, pos_val :: a
}
fromPositioned :: (Positioned a) -> a
:: *ParseState a
:: ParseInput a
= PI_NewLine
| PI_Token a
makeParseState :: [ParseInput a] -> ParseState a
:: Parser a b = Parser (*(ParseState a) -> *(MaybeError Error b, *ParseState a))
instance Functor (Parser a)
instance Applicative (Parser a)
instance Monad (Parser a)
instance Alternative (Parser a)
class name a :: a -> String
instance name String
runParser :: (Parser a b) *(ParseState a) -> *(MaybeError Error b, *ParseState a)
getPositioner :: Parser a (b -> Positioned b)
(<?>) :: (Parser a b) Error -> Parser a b
fail :: Parser a b
top :: Parser a a
peek :: Parser a a
satisfy :: (a -> Bool) -> Parser a a
check :: (a -> Bool) -> Parser a a
(until) infix 2 :: (Parser a b) (Parser a c) -> Parser a [b]
item :: a -> Parser a a | ==, name a
list :: [a] -> Parser a [a] | ==, name a
seplist :: a (Parser a b) -> Parser a [b] | ==, name a
eof :: Parser a ()
|
