diff options
author | Richard W.M. Jones <rjones@redhat.com> | 2012-09-15 13:28:24 +0100 |
---|---|---|
committer | Richard W.M. Jones <rjones@redhat.com> | 2012-09-15 13:36:02 +0100 |
commit | 2cac8d490e9884a8c7376e49fd1cda2e3d3abec1 (patch) | |
tree | 5a52abf10f836c944e04237157b3e9ed621f2578 /generator | |
parent | 44a11e955b31f7c0cf463a04d640263cccdd0c4d (diff) | |
download | libguestfs-2cac8d490e9884a8c7376e49fd1cda2e3d3abec1.tar.gz libguestfs-2cac8d490e9884a8c7376e49fd1cda2e3d3abec1.tar.xz libguestfs-2cac8d490e9884a8c7376e49fd1cda2e3d3abec1.zip |
syntax: Remove trailing whitespace.
Found by 'make syntax-check'.
Diffstat (limited to 'generator')
-rw-r--r-- | generator/actions.ml | 2 | ||||
-rw-r--r-- | generator/c.ml | 2 | ||||
-rw-r--r-- | generator/gobject.ml | 2 | ||||
-rw-r--r-- | generator/types.ml | 6 | ||||
-rw-r--r-- | generator/utils.ml | 7 |
5 files changed, 10 insertions, 9 deletions
diff --git a/generator/actions.ml b/generator/actions.ml index a3ff9ade..16b1518c 100644 --- a/generator/actions.ml +++ b/generator/actions.ml @@ -4029,7 +4029,7 @@ C<device>." }; name = "set_e2uuid"; style = RErr, [Device "device"; String "uuid"], []; proc_nr = Some 82; - tests = + tests = (let uuid = uuidgen () in [ InitBasicFS, Always, TestOutput ( [["set_e2uuid"; "/dev/sda1"; uuid]; diff --git a/generator/c.ml b/generator/c.ml index d15b4d99..a5220a57 100644 --- a/generator/c.ml +++ b/generator/c.ml @@ -531,7 +531,7 @@ extern GUESTFS_DLL_PUBLIC void *guestfs_next_private (guestfs_h *g, const char * * guestfs_protocol.h (which includes much unrelated and * XDR-dependent stuff that we don't want to be public, or required * by clients). - * + * * To reiterate, we will pass these structures to and from the client * with a simple assignment or memcpy, so the format must be * identical to what rpcgen / the RFC defines. diff --git a/generator/gobject.ml b/generator/gobject.ml index 0e96076b..2cd18096 100644 --- a/generator/gobject.ml +++ b/generator/gobject.ml @@ -814,7 +814,7 @@ guestfs_session_event_get_type(void) static GType etype = 0; if (etype == 0) { static const GEnumValue values[] = {"; - + List.iter ( fun (name, _) -> let enum_name = "GUESTFS_SESSION_EVENT_" ^ String.uppercase name in diff --git a/generator/types.ml b/generator/types.ml index a9b94441..6469005f 100644 --- a/generator/types.ml +++ b/generator/types.ml @@ -23,14 +23,14 @@ type style = ret * args * optargs (* The [style] is a tuple which describes the return value and * arguments of a function. - * + * * [ret] is the return value, one of the [R*] values below. - * + * * The second element is the list of required arguments, a list of * [argt]s from the list below, eg. [Bool], [String] etc. Each has * a name so that for example [Int "foo"] corresponds in the C * bindings to an [int foo] parameter. - * + * * The third element is the list of optional arguments. These are * mapped to optional arguments in the language binding, eg. in * Perl to: diff --git a/generator/utils.ml b/generator/utils.ml index 8a716bb6..2d84bcd5 100644 --- a/generator/utils.ml +++ b/generator/utils.ml @@ -46,11 +46,12 @@ let string_of_errcode = function (* Generate a uuidgen-compatible UUID (used in tests). However to * avoid having the UUID change every time we rebuild the tests, * generate it as a function of the contents of the actions.ml file. - * + * * Originally I thought uuidgen was using RFC 4122, but it doesn't * appear to. - * - * Note that the format must be 01234567-0123-0123-0123-0123456789ab *) + * + * Note that the format must be 01234567-0123-0123-0123-0123456789ab + *) let uuidgen () = let s = Digest.to_hex (Digest.file "generator/actions.ml") in |