@@ -13,11 +13,16 @@ let dir name default docv doc =
1313 let doc = Printf. sprintf " Set the directory for installing %s" doc in
1414 Arg. (value & opt string default & info [name] ~docv ~doc )
1515
16+ let path name default docv doc =
17+ let doc = Printf. sprintf " Set the path for %s" doc in
18+ Arg. (value & opt string default & info [name] ~docv ~doc )
19+
1620let varpatchdir = dir " varpatchdir" " /var/patch" " VARPATCHDIR" " hotfixes"
1721let etcdir = dir " etcdir" " /etc/xensource" " ETCDIR" " configuration files"
1822let optdir = dir " optdir" " /opt/xensource" " OPTDIR" " system files"
1923let plugindir = dir " plugindir" " /etc/xapi.d/plugins" " PLUGINDIR" " xapi plugins"
2024let hooksdir = dir " hooksdir" " /etc/xapi.d" " HOOKSDIR" " hook scripts"
25+ let inventory = path " inventory" " /etc/xensource-inventory" " INVENTORY" " the inventory file"
2126let xapiconf = dir " xapiconf" " /etc/xapi.conf" " XAPICONF" " xapi master config file"
2227let libexecdir = dir " libexecdir" " /opt/xensource/libexec" " LIBEXECDIR" " utility binaries"
2328let scriptsdir = dir " scriptsdir" " /etc/xensource/scripts" " SCRIPTSDIR" " utility scripts"
@@ -38,8 +43,8 @@ let output_file filename lines =
3843 List. iter (output_string oc) lines;
3944 close_out oc
4045
41- let configure varpatchdir etcdir optdir plugindir hooksdir xapiconf libexecdir scriptsdir sharedir webdir xhadir bindir sbindir udevdir =
42- Printf. printf " Configuring with the following params:\n\t varpatchdir=%s\n\t etcdir=%s\n\t optdir=%s\n\t plugindir=%s\n\t hooksdir=%s\n\t xapiconf=%s\n\t libexecdir=%s\n\t scriptsdir=%s\n\t sharedir=%s\n\t webdir=%s\n\t xhadir=%s\n\t bindir=%s\n\t sbindir=%s\n\t udevdir=%s\n\n " varpatchdir etcdir optdir plugindir hooksdir xapiconf libexecdir scriptsdir sharedir webdir xhadir bindir sbindir udevdir;
46+ let configure varpatchdir etcdir optdir plugindir hooksdir inventory xapiconf libexecdir scriptsdir sharedir webdir xhadir bindir sbindir udevdir =
47+ Printf. printf " Configuring with the following params:\n\t varpatchdir=%s\n\t etcdir=%s\n\t optdir=%s\n\t plugindir=%s\n\t hooksdir=%s\n\t inventory=%s \n\ t xapiconf=%s\n\t libexecdir=%s\n\t scriptsdir=%s\n\t sharedir=%s\n\t webdir=%s\n\t xhadir=%s\n\t bindir=%s\n\t sbindir=%s\n\t udevdir=%s\n\n " varpatchdir etcdir optdir plugindir hooksdir inventory xapiconf libexecdir scriptsdir sharedir webdir xhadir bindir sbindir udevdir;
4348
4449 (* Write config.mk *)
4550 let lines =
@@ -50,6 +55,7 @@ let configure varpatchdir etcdir optdir plugindir hooksdir xapiconf libexecdir s
5055 Printf. sprintf " OPTDIR=%s" optdir;
5156 Printf. sprintf " PLUGINDIR=%s" plugindir;
5257 Printf. sprintf " HOOKSDIR=%s" hooksdir;
58+ Printf. sprintf " INVENTORY=%s" inventory;
5359 Printf. sprintf " XAPICONF=%s" xapiconf;
5460 Printf. sprintf " LIBEXECDIR=%s" libexecdir;
5561 Printf. sprintf " SCRIPTSDIR=%s" scriptsdir;
@@ -69,6 +75,7 @@ let configure varpatchdir etcdir optdir plugindir hooksdir xapiconf libexecdir s
6975 Printf. sprintf " let optdir=\" %s\" " optdir;
7076 Printf. sprintf " let plugindir=\" %s\" " plugindir;
7177 Printf. sprintf " let hooksdir=\" %s\" " hooksdir;
78+ Printf. sprintf " let inventory=\" %s\" " inventory;
7279 Printf. sprintf " let libexecdir=\" %s\" " libexecdir;
7380 Printf. sprintf " let xapiconf=\" %s\" " xapiconf;
7481 Printf. sprintf " let scriptsdir=\" %s\" " scriptsdir;
@@ -81,7 +88,7 @@ let configure varpatchdir etcdir optdir plugindir hooksdir xapiconf libexecdir s
8188 in
8289 output_file fhs_ml fhs_lines
8390
84- let configure_t = Term. (pure configure $ varpatchdir $ etcdir $ optdir $ plugindir $ hooksdir $ xapiconf $ libexecdir $ scriptsdir $ sharedir $ webdir $ xhadir $ bindir $ sbindir $ udevdir )
91+ let configure_t = Term. (pure configure $ varpatchdir $ etcdir $ optdir $ plugindir $ hooksdir $ inventory $ xapiconf $ libexecdir $ scriptsdir $ sharedir $ webdir $ xhadir $ bindir $ sbindir $ udevdir )
8592
8693let () =
8794 match
0 commit comments