Configger (empty) → 0.1

raw patch · 4 files changed

+139/−0 lines, 4 filesdep +Dangerousdep +MissingHdep +basesetup-changed

Dependencies added: Dangerous, MissingH, base, mtl, parsec

Files

Configger.cabal +26/−0
LICENSE +19/−0
Setup.hs +2/−0
src/Data/Configger.hs +92/−0

+ Configger.cabal view

@@ -0,0 +1,26 @@+Name:          Configger+Version:       0.1+License:       MIT+License-file:  LICENSE+Category:      Configuration+Synopsis:      Parse config files+Description:   Parses a config file into [(String, [(String, String)])]+Author:        Nate Soares+Maintainer:    nate@natesoares.com+Build-Type:    Simple+Cabal-Version: >=1.6++source-repository head+    type: git+    location: git://github.com/Soares/Configger.hs.git++Library+    Hs-Source-Dirs:   src+    Build-Depends:    base >= 4 && < 5,+                      Dangerous >= 0.2.2,+                      MissingH >= 1.0,+                      mtl >= 1.1,+                      parsec >= 3.1+    Exposed-modules:  Data.Configger+    Ghc-Options:      -Wall+    Ghc-Prof-Options: -auto-all

+ LICENSE view

@@ -0,0 +1,19 @@+Copyright © 2011 Nathaniel Soares++Permission is hereby granted, free of charge, to any person obtaining a copy of+this software and associated documentation files (the "Software"), to deal in+the Software without restriction, including without limitation the rights to+use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of+the Software, and to permit persons to whom the Software is furnished to do so,+subject to the following conditions:++The above copyright notice and this permission notice shall be included in all+copies or substantial portions of the Software.++THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE+SOFTWARE.

+ Setup.hs view

@@ -0,0 +1,2 @@+import Distribution.Simple+main = defaultMain

+ src/Data/Configger.hs view

@@ -0,0 +1,92 @@+module Data.Configger+    ( Config+    , load+    , from+    , merge+    , mergeSection+    , items+    , set+    , get+    , values ) where+import Control.Dangerous+import Control.Monad.Trans+import Data.Maybe+import Data.String.Utils+import Text.ParserCombinators.Parsec++type Config = [(String, [(String, String)])]++-- Merge two configurations+merge :: Config -> Config -> Config+merge a b = foldr mergeSection b a++-- Merge a section into a configuration+mergeSection :: (String, [(String, String)]) -> Config -> Config+mergeSection (a, as) ((b, bs):rest) | a == b = (a, as ++ bs) : rest+mergeSection a (b:bs) = b : mergeSection a bs+mergeSection a [] = [a]++-- Add a setting+set :: String -> String -> String -> Config -> Config+set s k v conf = mergeSection (s, [(k, v)]) conf++-- Get the first value of a setting+get :: String -> String -> Config -> Maybe String+get s k conf = lookup s conf >>= lookup k++-- Get all values of a setting+values :: String -> String -> Config -> [String]+values s k conf = let+    vars = fromMaybe [] (lookup s conf)+    ours = filter ((k ==) . fst) vars+    in map snd ours++-- Get the items in a section of a configuration+items :: String -> Config -> [(String, String)]+items name conf = fromMaybe [] (lookup name conf)++-- Load a configuration from a file+load :: (Errorable m, MonadIO m) => FilePath -> String -> m Config+load defaults filename = do+    text <- liftIO $ readFile filename+    dangerize $ parse (file defaults) filename text++-- Load a configuration from a string+-- (Won't be able to throw as nice error messages)+from :: (Errorable m) => String -> String -> m Config+from str defaults = dangerize $ parse (file defaults) "(unknown)" str+++-- | Parsers++file :: String -> GenParser Char st Config+file defaults = do+    free <- sepEndBy setting (many1 eol)+    named <- sepEndBy section (many1 eol)+    return $ mergeSection (defaults, free) named++section :: GenParser Char st (String, [(String, String)])+section = do+    w >> char '[' >> w+    name <- word+    w >> char ']' >> many1 eol >> return ()+    vars <- sepEndBy setting eol+    return (name, vars)++setting :: GenParser Char st (String, String)+setting = do+    var <- w >> word+    w >> oneOf ":=" >> w+    val <- w >> word+    return (var, val)++word :: GenParser Char st String+word = do+    str <- many1 (noneOf ":=[]\n")+    return $ strip str++w :: GenParser Char st ()+w = many (oneOf " \t") >> return ()++eol :: GenParser Char st ()+eol = w >> char '\n' >> return ()