Revision 1a7eff0e hspace.hs
| b/hspace.hs | ||
|---|---|---|
| 187 | 187 |
fromJust sols'' |
| 188 | 188 |
in iterateDepth xnl il newinst nreq (xi:ixes) |
| 189 | 189 |
|
| 190 |
printStats :: String -> (Int, Int, Int, Int, Int) -> IO ()
|
|
| 191 |
printStats kind (mem, dsk, amem, mmem, mdsk) = do
|
|
| 192 |
printf "%s free RAM: %d\n" kind mem
|
|
| 193 |
printf "%s allocatable RAM: %d\n" kind amem
|
|
| 194 |
printf "%s free disk: %d\n" kind dsk
|
|
| 195 |
printf "%s max node allocatable RAM: %d\n" kind mmem
|
|
| 196 |
printf "%s max node allocatable disk: %d\n" kind mdsk
|
|
| 190 |
printStats :: String -> Cluster.CStats -> IO ()
|
|
| 191 |
printStats kind cs = do
|
|
| 192 |
printf "%s free RAM: %d\n" kind (Cluster.cs_fmem cs)
|
|
| 193 |
printf "%s allocatable RAM: %d\n" kind (Cluster.cs_amem cs)
|
|
| 194 |
printf "%s free disk: %d\n" kind (Cluster.cs_fdsk cs)
|
|
| 195 |
printf "%s max node allocatable RAM: %d\n" kind (Cluster.cs_mmem cs)
|
|
| 196 |
printf "%s max node allocatable disk: %d\n" kind (Cluster.cs_mdsk cs)
|
|
| 197 | 197 |
|
| 198 | 198 |
-- | Main function. |
| 199 | 199 |
main :: IO () |
Also available in: Unified diff