search for: arg_nam

...as html by mistake). Hi, How can I get from C an object name used as a function argument? I have sample code in C that gives me access to the name of the function being called: SEXP xname(SEXP x) { const char *fun_name = CHAR(PRINTNAME(CAR(x))); x = CDR(x); const char *arg_name = isNull(TAG(x)) ? "" : CHAR(PRINTNAME(TAG(x))); Rprintf("fn_name: %s, arg_name: %s\n", fun_name, arg_name); return R_NilValue; } > xname <- function(...) invisible(.External("xname", ...)) > > x1 = 123 > > xname(x1) fn_name: xname...

...fun->nvars = 4; } @@ -1462,9 +1464,10 @@ swfdec_action_define_function (JSContext return JS_FALSE; } if (preload != 0) { - script->preloads[i] = preload; + preloads[i] = preload; swfdec_bits_skip_string (&bits); has_preloads = TRUE; + continue; } } arg_name = swfdec_bits_skip_string (&bits); @@ -1483,9 +1486,9 @@ swfdec_action_define_function (JSContext return JS_FALSE; } } - if (script->preloads && !has_preloads) { - g_free (script->preloads); - script->preloads = NULL; + if (preloads && !has_prelo...

...ame == NULL) { SWFDEC_ERROR ("could not parse function name"); g_string_free (string, TRUE); @@ -2879,7 +2879,7 @@ swfdec_action_print_define_function (guint action, const guint8 *data, guint len preload = swfdec_bits_get_u8 (&bits); else preload = 0; - arg_name = swfdec_bits_get_string_with_version (&bits, 7); + arg_name = swfdec_bits_get_string (&bits, 7); if (preload == 0 && (arg_name == NULL || *arg_name == '\0')) { SWFDEC_ERROR ("empty argument name not allowed"); g_string_free (string, TRUE); @...

...tra_argspec : Getopt.keys * Getopt.spec * Getopt.doc; > extra_pod_argval : string option; > extra_pod_description : string; > } > @@ -208,27 +208,33 @@ let dump_pod_options () = > let args = List.map ( > function > | (op_name, > - { extra_argspec = (arg_name, > - (Arg.Unit _ | Arg.Bool _ | Arg.Set _ | Arg.Clear _), > + { extra_argspec = (arg_names, > + (Getopt.Unit _ | Getopt.Set _ | Getopt.Clear _), > _); > extra_pod_argval = None; >...

...ec : Arg.key * Arg.spec * Arg.doc; + extra_argspec : Getopt.keys * Getopt.spec * Getopt.doc; extra_pod_argval : string option; extra_pod_description : string; } @@ -208,27 +208,33 @@ let dump_pod_options () = let args = List.map ( function | (op_name, - { extra_argspec = (arg_name, - (Arg.Unit _ | Arg.Bool _ | Arg.Set _ | Arg.Clear _), + { extra_argspec = (arg_names, + (Getopt.Unit _ | Getopt.Set _ | Getopt.Clear _), _); extra_pod_argval = None; extra_pod_description = pod...

...sysprep/sysprep_operation.ml @@ -21,6 +21,7 @@ open Common_utils open Printf open Common_gettext.Gettext +open Getopt.OptionName class filesystem_side_effects = object @@ -215,7 +216,8 @@ let dump_pod_options () = extra_pod_description = pod }) -> List.map ( fun arg_name -> - let heading = sprintf "B<%s>" arg_name in + let heading = + sprintf "B<%s>" (Getopt.string_of_option_name arg_name) in arg_name, (op_name, heading, pod) ) arg_names @@ -228,7 +230,9 @@ let dump_pod_options ()...

...ec : Arg.key * Arg.spec * Arg.doc; + extra_argspec : Getopt.keys * Getopt.spec * Getopt.doc; extra_pod_argval : string option; extra_pod_description : string; } @@ -208,27 +208,33 @@ let dump_pod_options () = let args = List.map ( function | (op_name, - { extra_argspec = (arg_name, - (Arg.Unit _ | Arg.Bool _ | Arg.Set _ | Arg.Clear _), + { extra_argspec = (arg_names, + (Getopt.Unit _ | Getopt.Set _ | Getopt.Clear _), _); extra_pod_argval = None; extra_pod_description = pod...

...ec : Arg.key * Arg.spec * Arg.doc; + extra_argspec : Getopt.keys * Getopt.spec * Getopt.doc; extra_pod_argval : string option; extra_pod_description : string; } @@ -208,30 +208,37 @@ let dump_pod_options () = let args = List.map ( function | (op_name, - { extra_argspec = (arg_name, - (Arg.Unit _ | Arg.Bool _ | Arg.Set _ | Arg.Clear _), + { extra_argspec = (arg_names, + (Getopt.Unit _ | Getopt.Set _ | Getopt.Clear _), _); extra_pod_argval = None; extra_pod_description = pod...

v1 -> v2: - Further fixes to Getopt int parsing. - Completed the L/S changes. - Fixed the test suite so it passes now. Also we don't need the special-case tests for 64 bit arch. Rich.

v3 -> v4: - Pushed the first patch upstream since it was ACKed. - Prevent use of M except for the special virt-v2v options. - Sort the options after added --help etc. - Make corresponding fixes to the tests. Rich.

...egisters = swfdec_bits_get_u8 (&bits) + 1; + flags = swfdec_bits_get_u16 (&bits); + preloads = g_new0 (guint8, n_args); + } else { + script->n_registers = 5; + } + fun->nvars = script->n_registers; + for (i = 0; i < n_args; i++) { + JSAtom *atom; + const char *arg_name; + if (v2) { + guint preload = swfdec_bits_get_u8 (&bits); + if (preload && preload >= script->n_registers) { + SWFDEC_ERROR ("argument %u is preloaded into register %u out of %u", + i, preload, script->n_registers); + return JS_FALSE; + } +...

v2 -> v3: - Add M variant and test it. Rich.

...+ fun = JS_NewFunction (cx, NULL, n_args, JSFUN_LAMBDA, NULL, NULL); + } else { + /* named function */ + fun = JS_NewFunction (cx, NULL, n_args, 0, NULL, function_name); + } + if (fun == NULL) + return JS_FALSE; + for (i = 0; i < n_args; i++) { + JSAtom *atom; + const char *arg_name = swfdec_bits_get_string (&bits); + if (arg_name == NULL || *arg_name == '\0') { + SWFDEC_ERROR ("empty argument name not allowed"); + return JS_FALSE; + } + /* FIXME: check duplicate arguments */ + atom = js_Atomize (cx, arg_name, strlen (arg_name), 0);...

...fault value # e.g. [ [:proportion, 0], [:flag, 0], [:border, 0] ] def self.args_as_list(args_def, *mixed_args) # get keyword arguments from mixed_args if supplied, else empty kwa = mixed_args.last.kind_of?(Hash) ? mixed_args.pop : {} out_args = [] args_def.each_with_index do | (arg_name, arg_value), i | if arg = mixed_args[i] # use the supplied list arg out_args << arg elsif kwa.key?(arg_name) # use the keyword arg out_args << kwa[arg_name] else # use the default argument out_args << arg_value end end out_a...

I am trying to plot the following function over the range 0-100 test <- function(t){{ if (t<=10) x<-t*0 else x<-2*t } x } when I use plot(test,0,100) the GUI produces the following; "Warning message: In if (t <= 10) x <- t * 0 else x <- 2 * t : the condition has length > 1 and only the first element will be used" I am confused as when I evaluate the function

This patch is incomplete but it illustrates the idea. virt-sysprep is rewritten as a modular tool in OCaml. Only the 'utmp' and 'hostname' operations are implemented at the moment. Rich.

On error, point also to the man page of the current tool in addition to '$TOOL --help'. --- mllib/getopt-c.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/mllib/getopt-c.c b/mllib/getopt-c.c index bf40f91..3efd5d3 100644 --- a/mllib/getopt-c.c +++ b/mllib/getopt-c.c @@ -69,8 +69,8 @@ cleanup_option_list (void *ptr) static void __attribute__((noreturn))

...et_u8 (&bits) + 1; flags = swfdec_bits_get_u16 (&bits); preloads = g_new0 (guint8, n_args); } else { - fun->nvars = 5; + script->n_registers = 5; } + fun->nvars = script->n_registers; for (i = 0; i < n_args; i++) { JSAtom *atom; const char *arg_name; if (v2) { guint preload = swfdec_bits_get_u8 (&bits); - if (preload && preload >= fun->nvars) { + if (preload && preload >= script->n_registers) { SWFDEC_ERROR ("argument %u is preloaded into register %u out of %u", - i, prelo...

...elsif ($_ eq "pool") { "virStoragePoolPtr" } + elsif ($_ eq "vol") { "virStorageVolPtr" } + elsif ($_ eq "sec") { "virSecretPtr" } + else { + die "unknown short name $_" + } +} + +# OCaml argument names. + +sub gen_arg_names +{ + my $sig = shift; + + if ($sig =~ /^(\w+) : string$/) { + ( "$1v" ) + } elsif ($sig =~ /^(\w+) : static string$/) { + ( "$1v" ) + } elsif ($sig =~ /^(\w+) : int$/) { + ( "$1v" ) + } elsif ($sig =~ /^(\w+) : uuid$/) { + ( "$1v" ) + } el...

libvirt-ocaml is used only by virt-v2v, so move it to this repository, instead of having it around in the common submodule. The removal from common will happen later. Pino Toscano (2): common: Bundle the libvirt-ocaml library for use by virt-v2v build: switch embedded copy of libvirt-ocaml .gitignore | 2 + 3rdparty/libvirt-ocaml/Makefile.am |