{- arch-tag: ConfigParser lexer support
Copyright (C) 2004, 2008 John Goerzen <jgoerzen@complete.org>

This program is free software; you can redistribute it and/or modify it, as
specified in the COPYRIGHT file, under the terms of either version 2.1 of
the LGPL (or, at your option, any later version) or the 3-clause BSD license.
-}

{- |
   Module     : Data.ConfigFile.Lexer
   Copyright  : Copyright (C) 2004, 2008 John Goerzen
   License    : Either LGPL or BSD3, as specified in the COPYRIGHT file.

   Maintainer : John Goerzen <jgoerzen@complete.org>
   Stability  : provisional
   Portability: portable

Lexer support for "Data.ConfigFile".  This module is not intended to be
used directly by your programs.

Copyright (c) 2004, 2008 John Goerzen, jgoerzen\@complete.org

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

-}
module Data.ConfigFile.Lexer
(
       -- -- * Temporary for testing
       --comment_chars, eol, optionsep, whitespace_chars, comment_line,
       --empty_line, sectheader_chars, sectheader, oname_chars, value_chars,
       --extension_line, optionkey, optionvalue, optionpair
       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
comment_chars :: forall st. CharParser st Char
comment_chars = 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 ()
comment_line :: forall st. GenParser Char st ()
comment_line = 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
sectheader_chars :: forall st. CharParser st Char
sectheader_chars = forall s (m :: * -> *) u.
Stream s m Char =>
[Char] -> ParsecT s u m Char
noneOf [Char]
"]\r\n"
sectheader :: GenParser Char st String
sectheader :: forall st. GenParser Char st [Char]
sectheader = 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 =
    -- Ignore these things
    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})

    -- Real stuff
    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})
--    <?> "Invalid syntax in configuration file"

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