Synnefo » snf-ganeti

-}

module Ganeti.HTools.Node

           plist, slist, offline)

    , List

    -- * Constructor

    , setFmem

    , setPri

    , setSec

    -- * Instance (re)location

    , removePri

    , removeSec

                 , x_mem :: Int    -- ^ Unaccounted memory (MiB)

                 , t_dsk :: Double -- ^ Total disk space (MiB)

                 , f_dsk :: Int    -- ^ Free disk space (MiB)

                 , plist :: [T.Idx]-- ^ List of primary instance indices

                 , slist :: [T.Idx]-- ^ List of secondary instance indices

                 , idx :: T.Ndx    -- ^ Internal index for book-keeping

                 , p_mem :: Double -- ^ Percent of free memory

                 , p_dsk :: Double -- ^ Percent of free disk

                 , p_rem :: Double -- ^ Percent of reserved memory

                 , offline :: Bool -- ^ Whether the node should not be used

                                   -- for allocations and skipped from

                                   -- score computations

--

-- The index and the peers maps are empty, and will be need to be

-- update later via the 'setIdx' and 'buildPeers' functions.

create name_init mem_t_init mem_n_init mem_f_init

    Node

    {

      name  = name_init,

      f_mem = mem_f_init,

      t_dsk = dsk_t_init,

      f_dsk = dsk_f_init,

      plist = [],

      slist = [],

      failN1 = True,

      p_mem = (fromIntegral mem_f_init) / mem_t_init,

      p_dsk = (fromIntegral dsk_f_init) / dsk_t_init,

      p_rem = 0,

      offline = offline_init,

      x_mem = 0

    }

setSec :: Node -> T.Idx -> Node

setSec t idx = t { slist = idx:(slist t) }

-- * Update functions

-- | Sets the free memory.

        sl = slist t

        mp = p_mem t

        dp = p_dsk t

        off = offline t

        fn = failN1 t

        tmem = t_mem t

        fmem = f_mem t

        imem = (truncate tmem) - nmem - xmem - fmem

    in

                 (if off then '-' else if fn then '*' else ' ')

                 mname (name t) tmem nmem imem xmem fmem (r_mem t)

                 ((t_dsk t) / 1024) ((f_dsk t) `div` 1024)

                 (length pl) (length sl)