Convert Java properties to environment variables (naively)

propsToEnvVars.hs

#!/usr/bin/env runhaskell

module JavaPropsToEnvVars where

import Data.List (break, stripPrefix)

type PropertyName = String
type PropertyValue = String

type Property = (PropertyName, PropertyValue)

containsProperty :: String -> Bool
containsProperty = elem '='

propertyFromString :: String -> Property
propertyFromString = (\(name, val) -> (name, (dropWhile ((==) '=') val))) . break ((==) '=')

sanitizeProperty :: Property -> String
sanitizeProperty (name, val) = (map sanitizeDots name) ++ "=" ++ (quoteStringIfNeeded val)
    where sanitizeDots '.' = '_'
          sanitizeDots c   = c
          quoteStringIfNeeded val
                | (head val) == '"' = val
                | otherwise = "\"" ++ val ++ "\""

convertJavaPropsToEnvironmentVars :: String -> String
convertJavaPropsToEnvironmentVars = unlines . (map sanitizeProperty) . (map propertyFromString) . (filter containsProperty) . lines


main = interact convertJavaPropsToEnvironmentVars

-- vim:ft=haskell