Commit 7236533e authored by Jose A. Lopes's avatar Jose A. Lopes
Browse files

Hs2Py constants: add xen related constants



Add xen related constants, such as, 'xenBootloader' and 'xenCmdXm' to
the Haskell to Python constant generation.
Signed-off-by: default avatarJose A. Lopes <jabolopes@google.com>
Reviewed-by: default avatarKlaus Aehlig <aehlig@google.com>
parent df726590
......@@ -228,16 +228,12 @@ SYSLOG_SOCKET = _constants.SYSLOG_SOCKET
EXPORT_CONF_FILE = "config.ini"
XEN_BOOTLOADER = _autoconf.XEN_BOOTLOADER
XEN_KERNEL = _autoconf.XEN_KERNEL
XEN_INITRD = _autoconf.XEN_INITRD
XEN_CMD_XM = "xm"
XEN_CMD_XL = "xl"
KNOWN_XEN_COMMANDS = compat.UniqueFrozenset([
XEN_CMD_XM,
XEN_CMD_XL,
])
XEN_BOOTLOADER = _constants.XEN_BOOTLOADER
XEN_KERNEL = _constants.XEN_KERNEL
XEN_INITRD = _constants.XEN_INITRD
XEN_CMD_XM = _constants.XEN_CMD_XM
XEN_CMD_XL = _constants.XEN_CMD_XL
KNOWN_XEN_COMMANDS = _constants.KNOWN_XEN_COMMANDS
# When the Xen toolstack used is "xl", live migration requires the source host
# to connect to the target host via ssh (xl runs this command). We need to pass
......
......@@ -200,6 +200,28 @@ syslogOnly = Logging.syslogUsageToRaw SyslogOnly
syslogSocket :: String
syslogSocket = "/dev/log"
-- * Xen
xenBootloader :: String
xenBootloader = AutoConf.xenBootloader
xenCmdXl :: String
xenCmdXl = "xl"
xenCmdXm :: String
xenCmdXm = "xm"
xenInitrd :: String
xenInitrd = AutoConf.xenInitrd
xenKernel :: String
xenKernel = AutoConf.xenKernel
-- FIXME: perhaps rename to 'validXenCommands' for consistency with
-- other constants
knownXenCommands :: FrozenSet String
knownXenCommands = ConstantUtils.mkSet [xenCmdXl, xenCmdXm]
-- * Common exit codes
exitSuccess :: Int
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment