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

Add AutoConf.hs.in



Add 'AutoConf.hs.in' which is the template for generating the file
'AutoConf.hs'.  This file mimics the Python equivalent
'lib/_autoconf.py' and it is necessary for Haskell constants to be
able to retrieve their values from 'configure'.
Signed-off-by: default avatarJose A. Lopes <jabolopes@google.com>
Reviewed-by: default avatarKlaus Aehlig <aehlig@google.com>
parent 3e5b34c3
{-| Build-time configuration for Ganeti.
Note that this file is autogenerated by the Makefile with a header
from @AutoConf.hs.in@.
-}
{-
Copyright (C) 2013 Google Inc.
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA.
-}
module AutoConf where
packageVersion :: String
packageVersion = "PACKAGE_VERSION"
versionMajor :: Int
versionMajor = VERSION_MAJOR
versionMinor :: Int
versionMinor = VERSION_MINOR
versionRevision :: Int
versionRevision = VERSION_REVISION
versionSuffix :: String
versionSuffix = "VERSION_SUFFIX"
versionFull :: String
versionFull = "VERSION_FULL"
localstatedir :: String
localstatedir = "LOCALSTATEDIR"
sysconfdir :: String
sysconfdir = "SYSCONFDIR"
sshConfigDir :: String
sshConfigDir = "SSH_CONFIG_DIR"
sshLoginUser :: String
sshLoginUser = "SSH_LOGIN_USER"
sshConsoleUser :: String
sshConsoleUser = "SSH_CONSOLE_USER"
exportDir :: String
exportDir = "EXPORT_DIR"
osSearchPath :: [String]
osSearchPath = OS_SEARCH_PATH[]
esSearchPath :: [String]
esSearchPath = ES_SEARCH_PATH[]
xenBootloader :: String
xenBootloader = "XEN_BOOTLOADER"
xenConfigDir :: String
xenConfigDir = "XEN_CONFIG_DIR"
xenKernel :: String
xenKernel = "XEN_KERNEL"
xenInitrd :: String
xenInitrd = "XEN_INITRD"
kvmKernel :: String
kvmKernel = "KVM_KERNEL"
sharedFileStorageDir :: String
sharedFileStorageDir = "SHARED_FILE_STORAGE_DIR"
iallocatorSearchPath :: [String]
iallocatorSearchPath = IALLOCATOR_SEARCH_PATH[]
kvmPath :: String
kvmPath = "KVM_PATH"
ipPath :: String
ipPath = "IP_PATH"
socatPath :: String
socatPath = "SOCAT"
socatUseEscape :: Bool
socatUseEscape = SOCAT_USE_ESCAPE
socatUseCompress :: Bool
socatUseCompress = SOCAT_USE_COMPRESS
lvmStripecount :: Int
lvmStripecount = LVM_STRIPECOUNT
toolsdir :: String
toolsdir = "TOOLSDIR"
gntScripts :: [String]
gntScripts = GNT_SCRIPTS[]
htoolsProgs :: [String]
htoolsProgs = HS_HTOOLS_PROGS[]
pkglibdir :: String
pkglibdir = "PKGLIBDIR"
drbdBarriers :: String
drbdBarriers = "DRBD_BARRIERS"
drbdNoMetaFlush :: Bool
drbdNoMetaFlush = DRBD_NO_META_FLUSH
data SyslogUsageT
= SyslogNo
| SyslogYes
| SyslogOnly
deriving (Bounded, Enum)
instance Read SyslogUsageT where
readsPrec _ r = do
(s, r') <- lex r
case s of
"no" -> [(SyslogNo, r')]
"yes" -> [(SyslogYes, r')]
"only" -> [(SyslogOnly, r')]
_ -> []
instance Show SyslogUsageT where
show SyslogNo = "no"
show SyslogYes = "yes"
show SyslogOnly = "only"
syslogUsage :: SyslogUsageT
syslogUsage = read "SYSLOG_USAGE" :: SyslogUsageT
daemonsGroup :: String
daemonsGroup = "DAEMONS_GROUP"
adminGroup :: String
adminGroup = "ADMIN_GROUP"
masterdUser :: String
masterdUser = "MASTERD_USER"
masterdGroup :: String
masterdGroup = "MASTERD_GROUP"
rapiUser :: String
rapiUser = "RAPI_USER"
rapiGroup :: String
rapiGroup = "RAPI_GROUP"
confdUser :: String
confdUser = "CONFD_USER"
confdGroup :: String
confdGroup = "CONFD_GROUP"
luxidUser :: String
luxidUser = "LUXID_USER"
luxidGroup :: String
luxidGroup = "LUXID_GROUP"
nodedUser :: String
nodedUser = "NODED_USER"
nodedGroup :: String
nodedGroup = "NODED_GROUP"
mondUser :: String
mondUser = "MOND_USER"
mondGroup :: String
mondGroup = "MOND_GROUP"
diskSeparator :: String
diskSeparator = "DISK_SEPARATOR"
qemuimgPath :: String
qemuimgPath = "QEMUIMG_PATH"
htools :: Bool
htools = True
enableConfd :: Bool
enableConfd = ENABLE_CONFD
xenCmd :: String
xenCmd = "XEN_CMD"
enableSplitQuery :: Bool
enableSplitQuery = ENABLE_SPLIT_QUERY
enableRestrictedCommands :: Bool
enableRestrictedCommands = ENABLE_RESTRICTED_COMMANDS
enableMond :: Bool
enableMond = ENABLE_MOND
-- Write dictionary with man page name as the key and the section
-- number as the value
manPages :: [(String, Int)]
manPages = MAN_PAGES[]
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