rename the Sexpr module to Sexpr_TS to avoid a case-insensitivity conflict with the SExpr module

Signed-off-by: Anil Madhavapeddy <anil@recoil.org>

Remove the statfs(3) stubs as they are not used in XAPI any more, and it assists with non-Linux portability.

Signed-off-by: Anil Madhavapeddy <anil@recoil.org>

Remove signal handler debug stubs for FPE/SEGV from stdext as they are not needed by XAPI any more

Signed-off-by: Anil Madhavapeddy <anil@recoil.org>

Explicitly include the ocaml install location in the Makefile so that it works with installs outside the search path also (e.g. MacPorts)

Signed-off-by: Anil Madhavapeddy <anil@recoil.org>

[ocamldoc] Distinguish between libs and packs

Signed-off-by: Rob Hoes <rob.hoes@citrix.com>

Switch all xapi syslog logging to 'local6' rather than 'daemon' (ie same as blktapcntrl is about to use). This allows us to (i) keep logging through syslog; but (ii) define in the syslog.conf whether the data is written synchronously or not.

Signed-off-by: David Scott <dave.scott@eu.citrix.com>

CA-34200: audit-log should have info level

Signed-off-by: Marcus Granado <marcus.granado@eu.citrix.com>

[ocamldoc] Build-in Ocamldoc support

Typing 'make doc' will generate documentation for the libraries in xen-api-libs. The documentation is integrated in the xen-api documentation (the custom ocamldoc generator in xen-api.hg is used). This only works when xen-api.hg is present in myrepos and 'make doc' has been executed in it.

Signed-off-by: Rob Hoes <rob.hoes@citrix.com>

Drop the runtime lock while calling syslog() in case it blocks for a long time.

The effect of writing synchronously to /var/log/messages has become much more noticable ever since we moved to a kernel with a fixed fsync().

Signed-off-by: David Scott <dave.scott@eu.citrix.com>

[refactoring] Create new targets for binary generated by components of xen-api-libs.hg

By default, these binaries will be installed on /opt/xensource/libexec

Signed-off-by: Thomas Gazagnaire <thomas.gazagnaire@citrix.com>

[refactoring] remove unused sha1 library (the one we use is in stdext)

Signed-off-by: Thomas Gazagnaire <thomas.gazagnaire@citrix.com>

[refactoring] Update the main Makefile to build the new libraries

Signed-off-by: Thomas Gazagnaire <thomas.gazagnaire@citrix.com>

[refactoring] make the dependency to xs explicit

Signed-off-by: Thomas Gazagnaire <thomas.gazagnaire@citrix.com>

[refactoring] make the dependency to unix explicit

Signed-off-by: Thomas Gazagnaire <thomas.gazagnaire@citrix.com>

[refactoring] make the dependencies to mmap and uuid explicit

Signed-off-by: Thomas Gazagnaire <thomas.gazagnaire@citrix.com>

[refactoring] make the dependencies to mmap and uuid explicit

Signed-off-by: Thomas Gazagnaire <thomas.gazagnaire@citrix.com>

[refactoring] make the dependency to unix explicit

Signed-off-by: Thomas Gazagnaire <thomas.gazagnaire@citrix.com>

[refactoring] make the dependencies to unix and xb explicit

Signed-off-by: Thomas Gazagnaire <thomas.gazagnaire@citrix.com>

[refactoring] Move SExpr from xen-api.hg to xen-api-libs.hg

Signed-off-by: Thomas Gazagnaire <thomas.gazagnaire@citrix.com>

[refactoring] Move stunnel from xen-api.hg to xen-api-libs.hg

Signed-off-by: Thomas Gazagnaire <thomas.gazagnaire@citrix.com>

[refactoring] Move RSS from xen-api.hg to xen-api-libs.hg

[refactoring] Move pciutil from xen-api.hg to xen-api-libs.hg

[refactoring] Move closeandexec from xen-api.hg to xen-api-libs.hg

Signed-off-by: Thomas Gazagnaire <thomas.gazagnaire@citrix.com>

[refactoring] Move http-svr from xen-api.hg to xen-api-libs.hg

Signed-off-by: Thomas Gazagnaire <thomas.gazagnaire@citrix.com>

[refactoring] Move few files from xen-api.hg to xen-api-libs.hg/stdext

[refactoring] Move xmlpp from xen-api.hg to xen-api-libs.hg/xml-light2

Signed-off-by: Thomas Gazagnaire <thomas.gazagnaire@citrix.com>

[refactoring] make the dependency to unix explicit

Signed-off-by: Thomas Gazagnaire <thomas.gazagnaire@citrix.com>

[refactoring] move debug.ml from xen-api.hg to xen-api-libs.hg/log

Signed-off-by: Thomas Gazagnaire <thomas.gazagnaire@citrix.com>

[rpc-light] upgrade to use xmlm-1.0.1.

Lots of small changes, starts to become stable so include it in the build.

Signed-off-by: Thomas Gazagnaire <thomas.gazagnaire@citrix.com>

[xmlm] upgrade to version 1.0.1

Patch from Vincent Hanquez + bugfixes from me.

Signed-off-by: Thomas Gazagnaire <thomas.gazagnaire@citrix.com>

CP-706: use iso8601-like string format in debug and audit logs

Signed-off-by: Marcus Granado <marcus.granado@eu.citrix.com>

[rpc-light] Add the marshalling/unmarshalling json code from xenclient.

Tpc-light is not compiled by default, so that should not interfere with the build system.

Signed-off-by: Thomas Gazagnaire <thomas.gazagnaire@citrix.com>

[XENOPS]: add xc bindings for setting hpet, timer_mode, acpi_s_state etc

Signed-off-by: Jonathan Ludlam <jonathan.ludlam@eu.citrix.com>
Acked-by: David Scott <dave.scott@eu.citrix.com>

CP-706: transport the whole audit record line from slave to master
Signed-off-by: MarcusG <marcusg@citrix.com>

Unix.localtime should be gmtime for getting canonical utc time
Signed-off-by: MarcusG <marcusg@citrix.com>

CP-1245: Function to be called by a daemonized process to keep alive

Signed-off-by: Rob Hoes <rob.hoes@citrix.com>

CA-28788: fix the 'atomic_write_to_file' function which always ended up setting the perms to 0o0 despite the face that it tries to set them to 0o644.

As AndyP points out, the 'temp_file_in_dir' function creates the file with 0o0 and Unix.open only uses the given permissions if it actually creates a file. Therefore we add a Unix.chmod to set the permissions we want.

Signed-off-by: David Scott <dave.scott@eu.citrix.com>

[CAPRI]: add sources to output of xen-api-libs build

Signed-off-by: David Scott <dave.scott@eu.citrix.com>

[CAPRI]: add (C)opyright notice and LGPL with static linking exception to *.c and *.h

Signed-off-by: David Scott <dave.scott@eu.citrix.com>

[CAPRI]: add (C)opyright notice and LGPL with static linking exception to .ml and .mli files.

Signed-off-by: David Scott <dave.scott@eu.citrix.com>

[CAPRI]: remove legacy per-file (C)opyright notices and author lines

Signed-off-by: Dave Scott <dave.scott@eu.citrix.com>

[prc-lihgt] do not compile rpc-light yet, as it seems to break the build system.

[rpc-light] Add xmlrpc.mli and rewrite Xmlrpc.to_string to use buffers instead of concatenating strings.

[rpc-light] fix a broken depency in the META file of xml-light2.

[rpc-light] Initial commit for rpc-light.

Rpc-light is a camlp4 library to easily marshall and unmarshall ML types to and from different RPC values (at the moment, only XML-RPC conversions are implemented).

[rpc-light] modify xml-light2 to expose few more accessors, in order to look much more like xml-light.

Silly spelling mistake.

Adding function to check whether a string is a UUID.

add functions to parse/unparse xml structures from/to bigbuffers.

Initial import of hg.uk.xensource.com/carbon/trunk/api-libs.hg c/s 255:b95c318ded7c dated 'Thu May 28 12:05:33 2009 +0100'. Also add LICENSE and CREDITS file.

For reference here is the output of 'hg export 255':
...
# Node ID b95c318ded7ca1eb3ff556c472f51ff0bd6c649f
# Parent  44307a5cffbf4d78042683602596d6a4a8421417
...

Signed-off-by: David Scott <dave.scott@eu.citrix.com>

Fix the XCP makefile used to build an SRPM

Signed-off-by: Jon Ludlam <jonathan.ludlam@eu.citrix.com>

[Tapctl.of_device x] now will throw an exception if [x] is not a device; or if [x] is a device owned by another driver.

Signed-off-by: David Scott <dave.scott@eu.citrix.com>

Updates for the tap-ctl module: initial implementation of dummy mode.

Signed-off-by: Jon Ludlam <jonathan.ludlam@eu.citrix.com>

Move the handy 'substring' record type into the Zerocheck module.

Signed-off-by: David Scott <dave.scott@eu.citrix.com>

Adds an int64ext module. This module includes a set of commonly-used operators that work with the int64 data type.

Signed-off-by: Jonathan Knowles <jonathan.knowles@eu.citrix.com>

Adds a forward pipe operator to the higher-order function library. The forward pipe operator facilitates left-to-right function composition.

Signed-off-by: Jonathan Knowles <jonathan.knowles@eu.citrix.com>

Fixes a bit of broken formatting in listext.ml.

Signed-off-by: Jonathan Knowles <jonathan.knowles@eu.citrix.com>

This patch allows future patches to independently add modules to stdext without causing conflicts.

Signed-off-by: Jonathan Knowles <jonathan.knowles@eu.citrix.com>

Add some HTTP client code

Signed-off-by: David Scott <dave.scott@eu.citrix.com>

First cut at a 'tapctl' module which wraps the 'tap-ctl' command

(Original version by Jon Ludlam <jonathan.ludlam@eu.citrix.com>)
Signed-off-by: David Scott <dave.scott@eu.citrix.com>

Bindings to libvhd.

This allows ocaml programs to manipulate VHD files suitable for use
with XCP/XenServer.

Sample usage:
Vhd.create filename virtual_size (Vhd.Ty_dynamic) (Vhdutil.max_size) [];
let uid = Vhd.with_vhd filename false Vhd.get_uid

Signed-off-by: Jon Ludlam <jonathan.ludlam@eu.citrix.com>
Acked-by: Dave Scott <dave.scott@eu.citrix.com>

Add functions Zerocheck.get_next{zero,nonzero} which can be used to detect sparseness (relatively efficiently). Both functions primarily use aligned unsigned int-sized accesses.

Signed-off-by: David Scott <dave.scott@eu.citrix.com>

Add new modules: lazyList, extentlistSet, set_test to stdext

lazyList contains a simple lazy list implementation.
extentlistSet contains a Set implementation where elements are stored as a list of (start, length) pairs
set_test contains functions to test a set implementation

extentlistset_test contains test cases for extentlistSet using set_test.

Signed-off-by: David Scott <dave.scott@eu.citrix.com>

Fix the source manifest generation by using a simple shell script to scan the SRPMS, rather than a hideous make/shell fragment.

Signed-off-by: David Scott <dave.scott@eu.citrix.com>

trivial fix.remove duplicate include

Signed-off-by: Yang Hongyang <yanghy@cn.fujitsu.com>

The checksumming for meta-data of mlvm now agrees with the original lvm.

Signed-off-by: Matthias Goergens <matthias.goergens@citrix.com>

CA-38567: Fail Unixext calls with a proper Unix_error.

Signed-off-by: Daniel Stodden <daniel.stodden@citrix.com>

Minor improvements to Stdext (Listext, Either, Fun, and Opt).

REQUIRED FOR:
This patch is required for the 'encrypt-vm-migrate' patch in xen-api.hg.

Signed-off-by: Rok Strnisa <rok.strnisa@citrix.com>

Add stdext either/os built modules to RPM specfile

Signed-off-by: David Scott <dave.scott@eu.citrix.com>

Add biosdevname call to Netdev

biosdevname is a tool used to find out the "real" device name of a network interface, according to the BIOS. This name is not affected by manual device renaming or changes in the Linux kernel.

Signed-off-by: Rob Hoes <rob.hoes@citrix.com>
diff -r 96761a1835c1 netdev/netdev.ml--- a/netdev/netdev.ml
+++ b/netdev/netdev.ml
@@ -397,6 +397,13 @@
  not(List.mem "xen-backend" (String.split '/' link))
   with _ -> false

+let get_bios_name name =
+ try
+ let output, _ = Forkhelpers.execute_command_get_output "/sbin/biosdevname" ["-i"; name] in
+ let output = String.strip String.isspace output in
+ output
+ with _ -> name
+
 (* Dispatch network backend operations. *)

 let network_config_file = "/etc/xensource/network.conf"

Move netdev from xen-api.hg into xen-api-libs.hg and make it into a ocamlfind library

Signed-off-by: Jon Ludlam <Jonathan.Ludlam@eu.citrix.com>
diff -r 07f69949f0bf Makefile.in--- a/Makefile.in
+++ b/Makefile.in
@@ -37,6 +37,7 @@
 allxen:
 ifeq ($(HAVE_XEN),1)
  $(MAKE) -C mmap
+ $(MAKE) -C netdev
  $(MAKE) -C xc
  $(MAKE) -C xb
  $(MAKE) -C xs
@@ -74,6 +75,7 @@
 installxen:
 ifeq ($(HAVE_XEN),1)
  $(MAKE) -C mmap install
+ $(MAKE) -C netdev install
  $(MAKE) -C xc install
  $(MAKE) -C xb install
  $(MAKE) -C xs install
@@ -112,6 +114,7 @@
 ifeq ($(HAVE_XEN),1)
  $(MAKE) -C eventchn uninstall
  $(MAKE) -C xsrpc uninstall
+ $(MAKE) -C netdev uninstall
  $(MAKE) -C xs uninstall
  $(MAKE) -C xb uninstall
  $(MAKE) -C xc uninstall
@@ -162,6 +165,7 @@
  $(MAKE) -C stunnel doc
  $(MAKE) -C xsrpc doc
  $(MAKE) -C mmap doc
+ $(MAKE) -C netdev doc
  $(MAKE) -C forking_executioner doc
  $(MAKE) -C mlvm doc
  $(MAKE) -C cpuid doc
@@ -190,6 +194,7 @@

 cleanxen:
  $(MAKE) -C mmap clean
+ $(MAKE) -C netdev clean
  $(MAKE) -C xc clean
  $(MAKE) -C xb clean
  $(MAKE) -C xs clean

Change the 'close' field in the request record to be mutable rather than a reference

Signed-off-by: Jon Ludlam <Jonathan.Ludlam@eu.citrix.com>
diff -r d8eb3fec758c http-svr/Makefile--- a/http-svr/Makefile Mon Mar 15 11:57:11 2010 +0000
+++ b/http-svr/Makefile Mon Mar 15 12:01:14 2010 +0000
@@ -8,6 +8,8 @@
 VERSION := $(shell hg parents --template "{rev}" 2>/dev/null || echo 0.0)
 OCAMLOPTFLAGS = -g -dtypes

+PP = camlp4o -I ../rpc-light -I $(shell ocamlfind query type-conv) pa_type_conv.cmo pa_rpc.cma
+
 OCAMLABI := $(shell ocamlc -version)
 OCAMLLIBDIR := $(shell ocamlc -where)
 OCAMLDESTDIR ?= $(OCAMLLIBDIR)
@@ -31,13 +33,13 @@
  $(OCAMLC) -a -o $@ $(foreach obj,$(OBJS),$(obj).cmo)

 %.cmo: %.ml %.cmi
- $(OCAMLC) -c -thread -I ../stdext -I ../log -o $@ $<
+ $(OCAMLC) -c -pp '${PP}' -thread -I ../rpc-light -I ../stdext -I ../log -o $@ $<

 %.cmi: %.mli
- $(OCAMLC) -c -thread -o $@ $<
+ $(OCAMLC) -c -I ../rpc-light -thread -o $@ $<

 %.cmx: %.ml %.cmi
- $(OCAMLOPT) $(OCAMLOPTFLAGS) -c -thread -I ../stdext -I ../log -o $@ $<
+ $(OCAMLOPT) $(OCAMLOPTFLAGS) -pp '${PP}' -c -thread -I ../rpc-light -I ../stdext -I ../log -o $@ $<

 %.o: %.c
  $(CC) $(CFLAGS) -c -o $@ $<

Add biosdevname call to Netdev

biosdevname is a tool used to find out the "real" device name of a network interface, according to the BIOS. This name is not affected by manual device renaming or changes in the Linux kernel.

Signed-off-by: Rob Hoes <rob.hoes@citrix.com>
diff -r 96761a1835c1 netdev/netdev.ml--- a/netdev/netdev.ml
+++ b/netdev/netdev.ml
@@ -397,6 +397,13 @@
  not(List.mem "xen-backend" (String.split '/' link))
   with _ -> false

+let get_bios_name name =
+ try
+ let output, _ = Forkhelpers.execute_command_get_output "/sbin/biosdevname" ["-i"; name] in
+ let output = String.strip String.isspace output in
+ output
+ with _ -> name
+
 (* Dispatch network backend operations. *)

 let network_config_file = "/etc/xensource/network.conf"

Move netdev from xen-api.hg into xen-api-libs.hg and make it into a ocamlfind library

Signed-off-by: Jon Ludlam <Jonathan.Ludlam@eu.citrix.com>
diff -r 07f69949f0bf Makefile.in--- a/Makefile.in
+++ b/Makefile.in
@@ -37,6 +37,7 @@
 allxen:
 ifeq ($(HAVE_XEN),1)
  $(MAKE) -C mmap
+ $(MAKE) -C netdev
  $(MAKE) -C xc
  $(MAKE) -C xb
  $(MAKE) -C xs
@@ -74,6 +75,7 @@
 installxen:
 ifeq ($(HAVE_XEN),1)
  $(MAKE) -C mmap install
+ $(MAKE) -C netdev install
  $(MAKE) -C xc install
  $(MAKE) -C xb install
  $(MAKE) -C xs install
@@ -112,6 +114,7 @@
 ifeq ($(HAVE_XEN),1)
  $(MAKE) -C eventchn uninstall
  $(MAKE) -C xsrpc uninstall
+ $(MAKE) -C netdev uninstall
  $(MAKE) -C xs uninstall
  $(MAKE) -C xb uninstall
  $(MAKE) -C xc uninstall
@@ -162,6 +165,7 @@
  $(MAKE) -C stunnel doc
  $(MAKE) -C xsrpc doc
  $(MAKE) -C mmap doc
+ $(MAKE) -C netdev doc
  $(MAKE) -C forking_executioner doc
  $(MAKE) -C mlvm doc
  $(MAKE) -C cpuid doc
@@ -190,6 +194,7 @@

 cleanxen:
  $(MAKE) -C mmap clean
+ $(MAKE) -C netdev clean
  $(MAKE) -C xc clean
  $(MAKE) -C xb clean
  $(MAKE) -C xs clean

Change the 'close' field in the request record to be mutable rather than a reference

Signed-off-by: Jon Ludlam <Jonathan.Ludlam@eu.citrix.com>
diff -r d8eb3fec758c http-svr/Makefile--- a/http-svr/Makefile Mon Mar 15 11:57:11 2010 +0000
+++ b/http-svr/Makefile Mon Mar 15 12:01:14 2010 +0000
@@ -8,6 +8,8 @@
 VERSION := $(shell hg parents --template "{rev}" 2>/dev/null || echo 0.0)
 OCAMLOPTFLAGS = -g -dtypes

+PP = camlp4o -I ../rpc-light -I $(shell ocamlfind query type-conv) pa_type_conv.cmo pa_rpc.cma
+
 OCAMLABI := $(shell ocamlc -version)
 OCAMLLIBDIR := $(shell ocamlc -where)
 OCAMLDESTDIR ?= $(OCAMLLIBDIR)
@@ -31,13 +33,13 @@
  $(OCAMLC) -a -o $@ $(foreach obj,$(OBJS),$(obj).cmo)

 %.cmo: %.ml %.cmi
- $(OCAMLC) -c -thread -I ../stdext -I ../log -o $@ $<
+ $(OCAMLC) -c -pp '${PP}' -thread -I ../rpc-light -I ../stdext -I ../log -o $@ $<

 %.cmi: %.mli
- $(OCAMLC) -c -thread -o $@ $<
+ $(OCAMLC) -c -I ../rpc-light -thread -o $@ $<

 %.cmx: %.ml %.cmi
- $(OCAMLOPT) $(OCAMLOPTFLAGS) -c -thread -I ../stdext -I ../log -o $@ $<
+ $(OCAMLOPT) $(OCAMLOPTFLAGS) -pp '${PP}' -c -thread -I ../rpc-light -I ../stdext -I ../log -o $@ $<

 %.o: %.c
  $(CC) $(CFLAGS) -c -o $@ $<

Make ocamldoc work with custom syntax within xen-api-libs.

signed-off-by: Rok Strnisa <rok.strnisa@citrix.com>

mlvm/redo.ml was rid of a warning

Signed-off-by: Matthias Goergens <matthias.goergens@citrix.com>

vg.ml was rid of warnings.

Signed-off-by: Matthias Goergens <matthias.goergens@citrix.com>

comment on constants on mlvm/constants.ml

Signed-off-by: Matthias Goergens <matthias.goergens@citrix.com>

camldm/camldm_stubs.c: Camldm.status can deal with empty tables, now. (+comment)

Signed-off-by: Matthias Goergens <matthias.goergens@citrix.com>

camldm_stubs.c: removed some debugging messages

Signed-off-by: Matthias Goergens <matthias.goergens@citrix.com>

camldm/camldm_stubs.c: removed whitespace

Signed-off-by: Matthias Goergens <matthias.goergens@citrix.com>

Those functions are of use outside of the original context, and nested functions
aren't really idiomatic C anyway.

Signed-off-by: Matthias Goergens <matthias.goergens@citrix.com>

camldm/camldm_stubs.c: Tests have confirmed that camldm_ls does not leak memory.

A comment in the file reflects this finding.

Signed-off-by: Matthias Goergens <matthias.goergens@citrix.com>

camldm/camldm.ml: camldm_ls is an analogue to dmsetup ls.

Signed-off-by: Matthias Goergens <matthias.goergens@citrix.com>

camldm/Makefile: OCAMLOPTFLAGS are now used

Signed-off-by: Matthias Goergens <matthias.goergens@citrix.com>

stdext/Either: A module for type ('a, 'b) t = Left of 'a | Right of 'b
and helper functions.

Signed-off-by: Matthias Goergens <matthias.goergens@citrix.com>

in stdext/Opt: Renamed cat_options to cat_some, to be more in line with the coming either module.

Signed-off-by: Matthias Goergens <Matthias.Goergens@citrix.com>

stdext/Listext got a function make_assoc to build Lisp-like assoc lists

Signed-off-by: Matthias Goergens <Matthias.Goergens@citrix.com>

Extended a comment in stdext/stringext.ml

Signed-off-by: Matthias Goergens <Matthias.Goergens@citrix.com>

stdext/Os: A simple module for running stuff on the command line.

Signed-off-by: Matthias Goergens <Matthias.Goergens@citrix.com>

Fix indentation in stdext/listext.mli

Signed-off-by: Matthias Goergens <matthias.goergens@citrix.com>

The module stdext/Listext got a safe_head function that wraps hd in an option type.

Signed-off-by: Matthias Goergens <Matthias.Goergens@citrix.com>

Avoid permission problems by installing the .spec files to $(RPM_SPECSDIR) before calling $(RPMBUILD)

Signed-off-by: David Scott <dave.scott@eu.citrix.com>

Hook RPMs into main mk/Makefile

Signed-off-by: David Scott <dave.scott@eu.citrix.com>

Generate rpms from xen-api-libs.hg:

xapi-devel: devel libraries needed by xapi
xapi-utils: utility binaries
xapi-fe: fork/exec daemon

Signed-off-by: David Scott <dave.scott@eu.citrix.com>

CA-37279: Stunnel error from WLB connect "No route to host"

Understand "No route to host" as an expected error message from stunnel, and turn that into API error WLB_UNKNOWN_HOST if we see it when contacting WLB.

This is two patches, one for xen-api-libs.hg, and one for xen-api.hg.

Signed-off-by: Ewan Mellor <ewan.mellor@eu.citrix.com>

Add some optional parameters to Stunnel.disconnect to cope with the stunnel zombie process issue and for future benefits.

Signed-off-by: Zheng Li <dev@zheng.li>

CA-40149: Add an explicit cache of the local hostname and make it posible to invalidate the cache.

The hostname is included in every log line.

Signed-off-by: David Scott <dave.scott@eu.citrix.com>

CA-38844: Add support for Intel FlexMigration on Nehalem/Westmere

Note: this patch should go in together with the flex-maskability patch in xen-api.hg.

Signed-off-by: Rob Hoes <rob.hoes@citrix.com>