module Data.ConfigFile.Lexer
(
loken,
CPTok(..)
) where
import Text.ParserCombinators.Parsec
import Text.ParserCombinators.Parsec.Utils
data CPTok = IGNOREDATA
| NEWSECTION String
| NEWSECTION_EOF String
| EXTENSIONLINE String
| NEWOPTION (String, String)
deriving (CPTok -> CPTok -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CPTok -> CPTok -> Bool
$c/= :: CPTok -> CPTok -> Bool
== :: CPTok -> CPTok -> Bool
$c== :: CPTok -> CPTok -> Bool
Eq, Int -> CPTok -> ShowS
[CPTok] -> ShowS
CPTok -> [Char]
forall a.
(Int -> a -> ShowS) -> (a -> [Char]) -> ([a] -> ShowS) -> Show a
showList :: [CPTok] -> ShowS
$cshowList :: [CPTok] -> ShowS
show :: CPTok -> [Char]
$cshow :: CPTok -> [Char]
showsPrec :: Int -> CPTok -> ShowS
$cshowsPrec :: Int -> CPTok -> ShowS
Show, Eq CPTok
CPTok -> CPTok -> Bool
CPTok -> CPTok -> Ordering
CPTok -> CPTok -> CPTok
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: CPTok -> CPTok -> CPTok
$cmin :: CPTok -> CPTok -> CPTok
max :: CPTok -> CPTok -> CPTok
$cmax :: CPTok -> CPTok -> CPTok
>= :: CPTok -> CPTok -> Bool
$c>= :: CPTok -> CPTok -> Bool
> :: CPTok -> CPTok -> Bool
$c> :: CPTok -> CPTok -> Bool
<= :: CPTok -> CPTok -> Bool
$c<= :: CPTok -> CPTok -> Bool
< :: CPTok -> CPTok -> Bool
$c< :: CPTok -> CPTok -> Bool
compare :: CPTok -> CPTok -> Ordering
$ccompare :: CPTok -> CPTok -> Ordering
Ord)
comment_chars :: CharParser st Char
= forall s (m :: * -> *) u.
Stream s m Char =>
[Char] -> ParsecT s u m Char
oneOf [Char]
"#;"
eol :: GenParser Char st String
eol :: forall st. GenParser Char st [Char]
eol = forall s (m :: * -> *) u.
Stream s m Char =>
[Char] -> ParsecT s u m [Char]
string [Char]
"\n" forall s u (m :: * -> *) a.
ParsecT s u m a -> ParsecT s u m a -> ParsecT s u m a
<|> forall s (m :: * -> *) u.
Stream s m Char =>
[Char] -> ParsecT s u m [Char]
string [Char]
"\r\n" forall s u (m :: * -> *) a.
ParsecT s u m a -> ParsecT s u m a -> ParsecT s u m a
<|> forall s (m :: * -> *) u.
Stream s m Char =>
[Char] -> ParsecT s u m [Char]
string [Char]
"\r" forall s u (m :: * -> *) a.
ParsecT s u m a -> [Char] -> ParsecT s u m a
<?> [Char]
"End of line"
eoleof :: GenParser Char st ()
eoleof :: forall st. GenParser Char st ()
eoleof = forall s (m :: * -> *) t u.
(Stream s m t, Show t) =>
ParsecT s u m ()
eof forall s u (m :: * -> *) a.
ParsecT s u m a -> ParsecT s u m a -> ParsecT s u m a
<|> do {forall st. GenParser Char st [Char]
eol; forall (m :: * -> *) a. Monad m => a -> m a
return ()}
optionsep :: GenParser Char st Char
optionsep :: forall st. CharParser st Char
optionsep = forall s (m :: * -> *) u.
Stream s m Char =>
[Char] -> ParsecT s u m Char
oneOf [Char]
":=" forall s u (m :: * -> *) a.
ParsecT s u m a -> [Char] -> ParsecT s u m a
<?> [Char]
"option separator"
whitespace_chars :: GenParser Char st Char
whitespace_chars :: forall st. CharParser st Char
whitespace_chars = forall s (m :: * -> *) u.
Stream s m Char =>
[Char] -> ParsecT s u m Char
oneOf [Char]
" \t" forall s u (m :: * -> *) a.
ParsecT s u m a -> [Char] -> ParsecT s u m a
<?> [Char]
"whitespace"
comment_line :: GenParser Char st ()
= do forall s u (m :: * -> *) a. ParsecT s u m a -> ParsecT s u m ()
skipMany forall st. CharParser st Char
whitespace_chars
forall st. CharParser st Char
comment_chars forall s u (m :: * -> *) a.
ParsecT s u m a -> [Char] -> ParsecT s u m a
<?> [Char]
"start of comment"
(forall s u (m :: * -> *) a. ParsecT s u m a -> ParsecT s u m [a]
many forall a b. (a -> b) -> a -> b
$ forall s (m :: * -> *) u.
Stream s m Char =>
[Char] -> ParsecT s u m Char
noneOf [Char]
"\r\n") forall s u (m :: * -> *) a.
ParsecT s u m a -> [Char] -> ParsecT s u m a
<?> [Char]
"content of comment"
forall st. GenParser Char st ()
eoleof
eolstuff :: GenParser Char st ()
eolstuff :: forall st. GenParser Char st ()
eolstuff = (forall tok st a. GenParser tok st a -> GenParser tok st a
try forall st. GenParser Char st ()
comment_line) forall s u (m :: * -> *) a.
ParsecT s u m a -> ParsecT s u m a -> ParsecT s u m a
<|> (forall tok st a. GenParser tok st a -> GenParser tok st a
try forall st. GenParser Char st ()
empty_line)
empty_line :: GenParser Char st ()
empty_line :: forall st. GenParser Char st ()
empty_line = do forall s u (m :: * -> *) a. ParsecT s u m a -> ParsecT s u m [a]
many forall st. CharParser st Char
whitespace_chars
forall st. GenParser Char st ()
eoleof
forall s u (m :: * -> *) a.
ParsecT s u m a -> [Char] -> ParsecT s u m a
<?> [Char]
"empty line"
sectheader_chars :: CharParser st Char
= forall s (m :: * -> *) u.
Stream s m Char =>
[Char] -> ParsecT s u m Char
noneOf [Char]
"]\r\n"
sectheader :: GenParser Char st String
= do forall s (m :: * -> *) u.
Stream s m Char =>
Char -> ParsecT s u m Char
char Char
'['
[Char]
sname <- forall s (m :: * -> *) t u a.
Stream s m t =>
ParsecT s u m a -> ParsecT s u m [a]
many1 forall a b. (a -> b) -> a -> b
$ forall st. CharParser st Char
sectheader_chars
forall s (m :: * -> *) u.
Stream s m Char =>
Char -> ParsecT s u m Char
char Char
']'
forall st. GenParser Char st ()
eolstuff
forall (m :: * -> *) a. Monad m => a -> m a
return [Char]
sname
forall s u (m :: * -> *) a.
ParsecT s u m a -> [Char] -> ParsecT s u m a
<?> [Char]
"start of section"
oname_chars :: CharParser st Char
oname_chars :: forall st. CharParser st Char
oname_chars = forall s (m :: * -> *) u.
Stream s m Char =>
[Char] -> ParsecT s u m Char
noneOf [Char]
":=\r\n"
value_chars :: CharParser st Char
value_chars :: forall st. CharParser st Char
value_chars = forall s (m :: * -> *) u.
Stream s m Char =>
[Char] -> ParsecT s u m Char
noneOf [Char]
"\r\n"
extension_line :: GenParser Char st String
extension_line :: forall st. GenParser Char st [Char]
extension_line = do forall s (m :: * -> *) t u a.
Stream s m t =>
ParsecT s u m a -> ParsecT s u m [a]
many1 forall st. CharParser st Char
whitespace_chars
Char
c1 <- forall s (m :: * -> *) u.
Stream s m Char =>
[Char] -> ParsecT s u m Char
noneOf [Char]
"\r\n#;"
[Char]
remainder <- forall s u (m :: * -> *) a. ParsecT s u m a -> ParsecT s u m [a]
many forall st. CharParser st Char
value_chars
forall st. GenParser Char st ()
eolstuff
forall (m :: * -> *) a. Monad m => a -> m a
return (Char
c1 forall a. a -> [a] -> [a]
: [Char]
remainder)
optionkey, optionvalue :: GenParser Char st String
optionkey :: forall st. GenParser Char st [Char]
optionkey = forall s (m :: * -> *) t u a.
Stream s m t =>
ParsecT s u m a -> ParsecT s u m [a]
many1 forall st. CharParser st Char
oname_chars
optionvalue :: forall st. GenParser Char st [Char]
optionvalue = forall s u (m :: * -> *) a. ParsecT s u m a -> ParsecT s u m [a]
many forall st. CharParser st Char
value_chars
optionpair :: GenParser Char st (String, String)
optionpair :: forall st. GenParser Char st ([Char], [Char])
optionpair = do [Char]
key <- forall st. GenParser Char st [Char]
optionkey
[Char]
value <- forall s (m :: * -> *) t a u.
Stream s m t =>
a -> ParsecT s u m a -> ParsecT s u m a
option [Char]
"" forall a b. (a -> b) -> a -> b
$ do { forall st. CharParser st Char
optionsep; forall st. GenParser Char st [Char]
optionvalue }
forall st. GenParser Char st ()
eolstuff
forall (m :: * -> *) a. Monad m => a -> m a
return ([Char]
key, [Char]
value)
forall s u (m :: * -> *) a.
ParsecT s u m a -> [Char] -> ParsecT s u m a
<?> [Char]
"key/value option"
iloken :: Parser (GeneralizedToken CPTok)
iloken :: Parser (GeneralizedToken CPTok)
iloken =
forall tok st a. GenParser tok st a -> GenParser tok st a
try (do {forall st. GenParser Char st ()
comment_line; forall a b st. a -> GenParser b st (GeneralizedToken a)
togtok forall a b. (a -> b) -> a -> b
$ CPTok
IGNOREDATA})
forall s u (m :: * -> *) a.
ParsecT s u m a -> ParsecT s u m a -> ParsecT s u m a
<|> forall tok st a. GenParser tok st a -> GenParser tok st a
try (do {forall st. GenParser Char st ()
empty_line; forall a b st. a -> GenParser b st (GeneralizedToken a)
togtok forall a b. (a -> b) -> a -> b
$ CPTok
IGNOREDATA})
forall s u (m :: * -> *) a.
ParsecT s u m a -> ParsecT s u m a -> ParsecT s u m a
<|> (do {[Char]
sname <- forall st. GenParser Char st [Char]
sectheader; forall a b st. a -> GenParser b st (GeneralizedToken a)
togtok forall a b. (a -> b) -> a -> b
$ [Char] -> CPTok
NEWSECTION [Char]
sname})
forall s u (m :: * -> *) a.
ParsecT s u m a -> ParsecT s u m a -> ParsecT s u m a
<|> forall tok st a. GenParser tok st a -> GenParser tok st a
try (do {[Char]
extension <- forall st. GenParser Char st [Char]
extension_line; forall a b st. a -> GenParser b st (GeneralizedToken a)
togtok forall a b. (a -> b) -> a -> b
$ [Char] -> CPTok
EXTENSIONLINE [Char]
extension})
forall s u (m :: * -> *) a.
ParsecT s u m a -> ParsecT s u m a -> ParsecT s u m a
<|> forall tok st a. GenParser tok st a -> GenParser tok st a
try (do {([Char], [Char])
pair <- forall st. GenParser Char st ([Char], [Char])
optionpair; forall a b st. a -> GenParser b st (GeneralizedToken a)
togtok forall a b. (a -> b) -> a -> b
$ ([Char], [Char]) -> CPTok
NEWOPTION ([Char], [Char])
pair})
loken :: Parser [GeneralizedToken CPTok]
loken :: Parser [GeneralizedToken CPTok]
loken = do [GeneralizedToken CPTok]
x <- forall s (m :: * -> *) t u a end.
Stream s m t =>
ParsecT s u m a -> ParsecT s u m end -> ParsecT s u m [a]
manyTill Parser (GeneralizedToken CPTok)
iloken forall s (m :: * -> *) t u.
(Stream s m t, Show t) =>
ParsecT s u m ()
eof
forall (m :: * -> *) a. Monad m => a -> m a
return forall a b. (a -> b) -> a -> b
$ forall a. (a -> Bool) -> [a] -> [a]
filter (\GeneralizedToken CPTok
y -> forall a b. (a, b) -> b
snd GeneralizedToken CPTok
y forall a. Eq a => a -> a -> Bool
/= CPTok
IGNOREDATA) [GeneralizedToken CPTok]
x