module Configuration.Dotenv.Parse (configParser) where
import Text.Parsec ((<|>), (<?>), anyChar, char, many, manyTill, try)
import Text.Parsec.Combinator (eof)
import Text.Parsec.String (Parser)
import Text.ParserCombinators.Parsec.Char
(digit, letter, newline, noneOf, oneOf)
import Control.Applicative ((<*), (*>), (<$>))
import Data.Maybe (catMaybes)
import Control.Monad (liftM2)
configParser :: Parser [(String, String)]
configParser = catMaybes <$> many envLine <* eof
envLine :: Parser (Maybe (String, String))
envLine = (comment <|> blankLine) *> return Nothing <|> Just <$> optionLine
blankLine :: Parser String
blankLine = many verticalSpace <* newline <?> "blank line"
optionLine :: Parser (String, String)
optionLine = liftM2 (,)
(many verticalSpace *> variableName <* variableValueSeparator)
value
variableName :: Parser String
variableName = liftM2 (:) (letter <|> char '_')
(many (letter <|> char '_' <|> digit <?>
unwords [ "valid non-leading shell variable character (alphanumeric,"
, "digit or underscore)" ]))
<?> unwords [ "shell variable name (letter or underscore followed"
, "by alphanumeric characters or underscores)" ]
value :: Parser String
value = quotedValue <|> unquotedValue <?> "variable value"
quotedValue :: Parser String
quotedValue = (quotedWith '\'' <|> quotedWith '\"')
<* (comment *> return () <|> many verticalSpace *> endOfLineOrInput)
<?> "variable value surrounded with single or double quotes"
unquotedValue :: Parser String
unquotedValue =
manyTill anyChar (comment <|> many verticalSpace <* endOfLineOrInput)
quotedWith :: Char -> Parser String
quotedWith c = char c *> many chr <* (char c <?> "closing quote character")
where chr = esc <|> noneOf [c]
esc = escape *> char c <?> "escape character"
comment :: Parser String
comment = try (many verticalSpace *> char '#')
*> manyTill anyChar endOfLineOrInput
<?> "comment"
endOfLineOrInput :: Parser ()
endOfLineOrInput = newline *> return () <|> eof
variableValueSeparator :: Parser ()
variableValueSeparator =
many verticalSpace *> (char '=' <?> "variable-value separator character (=)")
*> many verticalSpace *> return ()
escape :: Parser Char
escape = char '\\'
verticalSpace :: Parser Char
verticalSpace = oneOf " \t"