Revision bd3286e9 hspace.hs
b/hspace.hs | ||
---|---|---|
114 | 114 |
clusterData = [ ("MEM", printf "%.0f" . Cluster.csTmem) |
115 | 115 |
, ("DSK", printf "%.0f" . Cluster.csTdsk) |
116 | 116 |
, ("CPU", printf "%.0f" . Cluster.csTcpu) |
117 |
, ("VCPU", printf "%d" . Cluster.csVcpu) |
|
117 | 118 |
] |
118 | 119 |
|
119 | 120 |
-- | Recursively place instances on the cluster until we're out of space |
... | ... | |
189 | 190 |
-- this should be the final entry |
190 | 191 |
printKeys [("OK", "1")] |
191 | 192 |
|
193 |
formatRSpec :: String -> RSpec -> [(String, String)] |
|
194 |
formatRSpec s r = |
|
195 |
[ ("KM_" ++ s ++ "_CPU", show $ rspecCpu r) |
|
196 |
, ("KM_" ++ s ++ "_MEM", show $ rspecMem r) |
|
197 |
, ("KM_" ++ s ++ "_DSK", show $ rspecDsk r) |
|
198 |
] |
|
199 |
|
|
200 |
printAllocationStats :: Node.List -> Node.List -> IO () |
|
201 |
printAllocationStats ini_nl fin_nl = do |
|
202 |
let ini_stats = Cluster.totalResources ini_nl |
|
203 |
fin_stats = Cluster.totalResources fin_nl |
|
204 |
(rini, ralo, runa) = Cluster.computeAllocationDelta ini_stats fin_stats |
|
205 |
printKeys $ formatRSpec "USED" rini |
|
206 |
printKeys $ formatRSpec "POOL" ralo |
|
207 |
printKeys $ formatRSpec "UNAV" runa |
|
208 |
|
|
192 | 209 |
-- | Ensure a value is quoted if needed |
193 | 210 |
ensureQuoted :: String -> String |
194 | 211 |
ensureQuoted v = if not (all (\c -> (isAlphaNum c || c == '.')) v) |
... | ... | |
325 | 342 |
hPutStrLn stderr $ Cluster.printNodes trl_nl (fromJust shownodes) |
326 | 343 |
|
327 | 344 |
printKeys $ printStats PTiered (Cluster.totalResources trl_nl) |
328 |
printKeys [("TSPEC", intercalate " " spec_map')]) |
|
345 |
printKeys [("TSPEC", intercalate " " spec_map')] |
|
346 |
printAllocationStats nl trl_nl) |
|
329 | 347 |
|
330 | 348 |
-- Run the standard (avg-mode) allocation |
331 | 349 |
|
Also available in: Unified diff