module Hpp.String where
import Data.Char (isSpace)
stringify :: String -> String
stringify s = '"' : concatMap aux (strip s) ++ "\""
where aux '\\' = "\\\\"
aux '"' = "\\\""
aux c = [c]
strip = trimSpaces . dropWhile isSpace
unquote :: String -> String
unquote ('"':xs) = go xs
where go ['"'] = []
go [] = []
go (c:cs) = c : go cs
unquote xs = xs
trimSpaces :: String -> String
trimSpaces = trimEnd isSpace
trimEnd :: (a -> Bool) -> [a] -> [a]
trimEnd p = go id
where go _ [] = []
go acc (c:cs)
| p c = go (acc . (c:)) cs
| otherwise = acc (c : go id cs)