X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=generator%2Fgenerator_types.ml;h=16cb089594b004cdd71043edd636651ffb634d69;hp=94592991f59b9296c250eae1f5427ccf016767c7;hb=HEAD;hpb=5f0b75f040b118c4394466438adc99f38144722d

diff --git a/generator/generator_types.ml b/generator/generator_types.ml
index 9459299..16cb089 100644
--- a/generator/generator_types.ml
+++ b/generator/generator_types.ml
@@ -20,7 +20,7 @@
 
 (* Types used to describe the API. *)
 
-type style = ret * args * args
+type style = ret * args * optargs
     (* The [style] is a tuple which describes the return value and
      * arguments of a function.
      * 
@@ -203,6 +203,14 @@ and argt =
      *)
   | Pointer of (string * string)
 
+and optargs = optargt list
+
+and optargt =
+  | OBool of string	(* boolean *)
+  | OInt of string	(* int (smallish ints, signed, <= 31 bits) *)
+  | OInt64 of string	(* any 64 bit int *)
+  | OString of string	(* const char *name, cannot be NULL *)
+
 type errcode = [ `CannotReturnError | `ErrorIsMinusOne | `ErrorIsNULL ]
 
 type flags =