Revision 5d4e1402

b/lib/constants.py
169 169 

  		





  170
  170
  
    
PROC_MOUNTS = "/proc/mounts"


  		





  171
  171
  
    

  		





  172
  
  
    
# Local UniX Interface related constants


  		





  173
  
  
    
LUXI_EOM = chr(3)


  		





  174
  
  
    
LUXI_VERSION = CONFIG_VERSION


  		





  175
  
  
    
#: Environment variable for the luxi override socket


  		





  176
  
  
    
LUXI_OVERRIDE = "FORCE_LUXI_SOCKET"


  		





  177
  
  
    
LUXI_OVERRIDE_MASTER = "master"


  		





  178
  
  
    
LUXI_OVERRIDE_QUERY = "query"


  		





  179
  
  
    

  		





  
  172
  
    
LUXI_EOM = _constants.LUXI_EOM


  		





  
  173
  
    
LUXI_VERSION = _constants.LUXI_VERSION


  		





  
  174
  
    
LUXI_OVERRIDE = _constants.LUXI_OVERRIDE


  		





  
  175
  
    
LUXI_OVERRIDE_MASTER = _constants.LUXI_OVERRIDE_MASTER


  		





  
  176
  
    
LUXI_OVERRIDE_QUERY = _constants.LUXI_OVERRIDE_QUERY


  		





  180
  177
  
    
# one of "no", "yes", "only"


  		





  181
  178
  
    
SYSLOG_USAGE = _constants.SYSLOG_USAGE


  		





  182
  179
  
    
SYSLOG_NO = _constants.SYSLOG_NO


  		












  

    
      b/src/Ganeti/ConstantUtils.hs
    
  






  28
  28
  
    
-}


  		





  29
  29
  
    
module Ganeti.ConstantUtils where


  		





  30
  30
  
    

  		





  
  31
  
    
import Data.Char (ord)


  		





  31
  32
  
    
import Data.Set (Set)


  		





  32
  33
  
    
import qualified Data.Set as Set (fromList, toList)


  		





  33
  34
  
    

  		





  34
  35
  
    
import Ganeti.THH (PyValue(..))


  		





  35
  36
  
    
import Ganeti.PyValueInstances ()


  		





  36
  37
  
    

  		





  
  38
  
    
-- | PythonChar wraps a Python 'char'


  		





  
  39
  
    
newtype PythonChar = PythonChar { unPythonChar :: Char }


  		





  
  40
  
    
  deriving (Show)


  		





  
  41
  
    

  		





  
  42
  
    
instance PyValue PythonChar where


  		





  
  43
  
    
  showValue c = "chr(" ++ show (ord (unPythonChar c)) ++ ")"


  		





  
  44
  
    

  		





  37
  45
  
    
-- | FrozenSet wraps a Haskell 'Set'


  		





  38
  46
  
    
--


  		





  39
  47
  
    
-- See 'PyValue' instance for 'FrozenSet'.


  		












  

    
      b/src/Ganeti/HsConstants.hs
    
  






  41
  41
  
    
import qualified Data.Map as Map (fromList, keys, insert)


  		





  42
  42
  
    

  		





  43
  43
  
    
import AutoConf


  		





  44
  
  
    
import Ganeti.ConstantUtils (FrozenSet, Protocol(..), buildVersion)


  		





  
  44
  
    
import Ganeti.ConstantUtils (PythonChar(..), FrozenSet, Protocol(..),


  		





  
  45
  
    
                             buildVersion)


  		





  45
  46
  
    
import qualified Ganeti.ConstantUtils as ConstantUtils


  		





  46
  47
  
    
import Ganeti.Runtime (GanetiDaemon(..), MiscGroup(..), GanetiGroup(..),


  		





  47
  48
  
    
                       ExtraLogReason(..))


  		





  ......




  341
  342
  
    
devConsole :: String


  		





  342
  343
  
    
devConsole = ConstantUtils.devConsole


  		





  343
  344
  
    

  		





  
  345
  
    
-- * Luxi (Local UniX Interface) related constants


  		





  
  346
  
    

  		





  
  347
  
    
luxiEom :: PythonChar


  		





  
  348
  
    
luxiEom = PythonChar '\x03'


  		





  
  349
  
    

  		





  
  350
  
    
-- | Environment variable for the luxi override socket


  		





  
  351
  
    
luxiOverride :: String


  		





  
  352
  
    
luxiOverride = "FORCE_LUXI_SOCKET"


  		





  
  353
  
    

  		





  
  354
  
    
luxiOverrideMaster :: String


  		





  
  355
  
    
luxiOverrideMaster = "master"


  		





  
  356
  
    

  		





  
  357
  
    
luxiOverrideQuery :: String


  		





  
  358
  
    
luxiOverrideQuery = "query"


  		





  
  359
  
    

  		





  
  360
  
    
luxiVersion :: Int


  		





  
  361
  
    
luxiVersion = configVersion


  		





  
  362
  
    

  		





  344
  363
  
    
-- * Syslog


  		





  345
  364
  
    

  		





  346
  365
  
    
syslogUsage :: String


  		












Also available in:
  Unified diff