module Puppet.Printers (
showRes
, showRRes
, showFCatalog
) where
import Puppet.Interpreter.Types
import qualified Data.Map as Map
import Data.List
showRes (CResource _ rname rtype params virtuality _) = putStrLn $ rtype ++ " " ++ show rname ++ " " ++ show params ++ " " ++ show virtuality
showRRes (RResource _ rname rtype params relations _) = putStrLn $ rtype ++ " " ++ show rname ++ " " ++ show params ++ " " ++ show relations
showFCatalog :: FinalCatalog -> String
showFCatalog rmap = let
rawlist = groupBy (\((rtype1,_), _) ((rtype2,_), _) -> rtype1 == rtype2) (sort $ Map.toList rmap)
rlist = map (map snd) rawlist
out = concatMap showuniqueres rlist
in out
commasep :: [String] -> String
commasep = intercalate ", "
commaretsep :: [String] -> String
commaretsep = intercalate ",\n"
showValue :: ResolvedValue -> String
showValue (ResolvedString x) = show x
showValue (ResolvedInt x) = show x
showValue (ResolvedBool True) = "true"
showValue (ResolvedBool False) = "false"
showValue (ResolvedRReference rt rn) = rt ++ "[" ++ showValue rn ++ "]"
showValue (ResolvedArray ar) = "[" ++ commasep (map showValue ar) ++ "]"
showValue (ResolvedHash h) = "{" ++ commasep (map (\(k,v) -> k ++ " => " ++ showValue v) h) ++ "}"
showValue (ResolvedUndefined) = "undef"
showuniqueres :: [RResource] -> String
showuniqueres res = mrtype ++ " {\n" ++ concatMap showrres res ++ "}\n"
where
showrres (RResource _ rname _ params rels mpos) =
" " ++ show rname ++ ":" ++ " #" ++ show mpos ++ "\n"
++ commaretsep (map showparams (Map.toList params))
++ commareqs ((null rels) || (Map.null params))
++ commaretsep (map showrequire (sort rels)) ++ ";\n"
commareqs c | c = ""
| otherwise = ",\n"
showparams (name, val) = " " ++ name ++ " => " ++ showValue val
showrequire (ltype, dst) = " " ++ show ltype ++ " " ++ show dst
mrtype = rrtype (head res)