search for: op_str

On Thu, Jan 09, 2014 at 04:21:10PM +0100, Pino Toscano wrote: > + and set_operations op_string = > + let currentopset = > + match (!operations) with No need for parentheses around !operations. > + let n = ref op_name in > + let remove = string_prefix op_name "-" in > + if remove then > + n := String.sub op_name 1 (String....

On Friday 10 January 2014 10:09:19 Richard W.M. Jones wrote: > On Thu, Jan 09, 2014 at 03:45:54PM +0000, Richard W.M. Jones wrote: > > On Thu, Jan 09, 2014 at 04:21:10PM +0100, Pino Toscano wrote: > > > + and set_operations op_string = > > > + let currentopset = > > > + match (!operations) with > > > > No need for parentheses around !operations. Fixed. > > > + let n = ref op_name in > > > + let remove = string_prefix op_name "-" in > > &...

...been set by the Makefile */ @@ -169,7 +165,6 @@ ao_functions_t *funcs; ao_internal_t *state; ao_device_t *device; - int dev_id; if (ao_check_driver_id(driver_id)) { @@ -209,37 +204,28 @@ char *copy; char *value_ptr; char *colon; - ao_option_t *op; - int fail = 0; - - copy = strdup(op_str); - - colon = strchr(copy, ':'); - if (colon == NULL) - fail = 1; - else - { - value_ptr = colon + 1; - *colon = 0x00; // Null terminate the key part - - // Allocate the option structure - op = malloc(sizeof(ao_option_t)); - if (op == NULL) - fail = 1; - else - { - op->key...

...ep/main.ml b/sysprep/main.ml index 689a394..49750a9 100644 --- a/sysprep/main.ml +++ b/sysprep/main.ml @@ -87,6 +87,40 @@ let debug_gc, operations, g, selinux_relabel, quiet, mount_opts = exit 1 ) Sysprep_operation.empty_set ops in operations := Some opset + and set_operations op_string = + let currentopset = + match !operations with + | Some x -> x + | None -> Sysprep_operation.empty_set + in + let ops = string_nsplit "," op_string in + let opset = List.fold_left ( + fun opset op_name -> + let op = + if string_...

On Thu, Jan 09, 2014 at 03:45:54PM +0000, Richard W.M. Jones wrote: > On Thu, Jan 09, 2014 at 04:21:10PM +0100, Pino Toscano wrote: > > + and set_operations op_string = > > + let currentopset = > > + match (!operations) with > > No need for parentheses around !operations. > > > + let n = ref op_name in > > + let remove = string_prefix op_name "-" in > > + if remove then > >...

...e: /usr/local/cvsroot/vorbis/vorbis-tools/libao/audio_out.h,v retrieving revision 1.1 retrieving revision 1.1.4.1 diff -u -r1.1 -r1.1.4.1 --- audio_out.h 2000/07/22 01:57:05 1.1 +++ audio_out.h 2000/09/05 21:38:48 1.1.4.1 @@ -105,3 +105,5 @@ int ao_append_option (ao_option_t **options, const char* op_str); void ao_free_options (ao_option_t* options); + +int ao_is_big_endian(); --- >8 ---- List archives: http://www.xiph.org/archives/ Ogg project homepage: http://www.xiph.org/ogg/ To unsubscribe from this list, send a message to 'cvs-request@xiph.org' containing only the word 'uns...

On Tuesday 07 January 2014 12:12:43 Richard W.M. Jones wrote: > On Tue, Jan 07, 2014 at 11:16:08AM +0100, Pino Toscano wrote: > > On Friday 27 December 2013 10:58:15 you wrote: > > > virt-sysprep either runs with all default operations or a selected > > > list of operations with the --enable argument. A few times I've > > > found I'd like to use the

...ops in let opset = List.fold_left ( fun opset op_name -> try Sysprep_operation.add_to_set op_name opset @@ -86,11 +86,11 @@ let main () = | Some x -> x | None -> Sysprep_operation.empty_set in - let ops = string_nsplit "," op_string in + let ops = String.nsplit "," op_string in let opset = List.fold_left ( fun opset op_name -> let op = - if string_prefix op_name "-" then + if String.is_prefix op_name "-" then `Remove (Strin...

Hide/prevent the use of bad string functions like String.lowercase. These are replaced by safe functions that won't break UTF-8 strings. Other miscellaneous refactoring. Rich.

...with Not_found -> - error (f_"--enable: '%s' is not a known operation") op_name + error (f_"--enable: ‘%s’ is not a known operation") op_name ) Sysprep_operation.empty_set ops in operations := Some opset and set_operations op_string = @@ -109,7 +109,7 @@ let main () = | `Remove n -> Sysprep_operation.remove_from_set in try f n opset with | Not_found -> - error (f_"--operations: '%s' is not a known operation") n + error (f_"--oper...