search for: arg_names

(earlier I sent it 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)));

libswfdec/swfdec_font.c | 4 libswfdec/swfdec_font.h | 2 libswfdec/swfdec_js_movie.c | 8 - libswfdec/swfdec_script.c | 225 +++++++++++++++++++++++++++++++++++++++---- libswfdec/swfdec_script.h | 14 ++ test/.gitignore | 1 test/trace/Makefile.am | 6 + test/trace/height4.swf |binary test/trace/height4.swf.trace | 5

libswfdec/swfdec_as_interpret.c | 23 ++++++++++++----------- libswfdec/swfdec_bits.c | 13 +++---------- libswfdec/swfdec_bits.h | 3 +-- libswfdec/swfdec_debugger.c | 2 +- libswfdec/swfdec_movie.c | 2 +- libswfdec/swfdec_script.c | 2 +- libswfdec/swfdec_sprite_movie.c | 4 ++-- libswfdec/swfdec_tag.c | 4 ++--

...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 }) -> > - let heading = sprintf "B<%s>" arg_name in > - arg_nam...

...tring 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 }) -> - let heading = sprintf "B<%s>" arg_name in - arg_name, (op_name, heading, pod) +...

...on = 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 () = extra_pod_description = pod }) -> List.map ( fun arg_name -> - let heading = sprintf "B<%s> %s" arg_name arg_val in + let heading = + sprintf "B<%s> %s" +...

...tring 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 }) -> - let heading = sprintf "B<%s>" arg_name in - arg_name, (op_name, heading, pod) +...

...tring 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 }) -> - let heading = sprintf "B<%s>" arg_name in - arg_name, (op_name, heading, 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.

libswfdec/Makefile.am | 2 libswfdec/swfdec_as_context.c | 30 libswfdec/swfdec_as_frame.c | 4 libswfdec/swfdec_as_interpret.c | 2472 +++++++++++++++++++++++++++++++++++ libswfdec/swfdec_as_interpret.h | 45 libswfdec/swfdec_as_object.c | 5 libswfdec/swfdec_as_types.c | 43 libswfdec/swfdec_as_types.h | 5 libswfdec/swfdec_script.c |

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

autogen.sh | 2 configure.ac | 39 +++ libswfdec/js/jsfun.c | 11 - libswfdec/js/jsinterp.c | 5 libswfdec/js/jsobj.c | 2 libswfdec/swfdec_debug.h | 2 libswfdec/swfdec_js.c | 4 libswfdec/swfdec_js_color.c | 33 +-- libswfdec/swfdec_js_movie.c | 25 -- libswfdec/swfdec_movie.c

Hi all, This is a proposal for supporting keyword arguments to Sizer#add following the thread below : http://rubyforge.org/pipermail/wxruby-development/2008-March/001244.html After a deeper look at lib/wx/keyword_ctors.rb and lib/wx/keyword_defs.rb, I understood the whole thing :-). I just reused and modified slightly the method args_as_list. The new Sizer#add_item combines the features of add

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))

libswfdec/Makefile.am | 2 libswfdec/swfdec_as_context.c | 124 +++++++++++++++++++++++++++++++++++++++--- libswfdec/swfdec_as_context.h | 6 +- libswfdec/swfdec_as_frame.c | 98 +++++++++++++++++++++++++++++++++ libswfdec/swfdec_as_frame.h | 64 +++++++++++++++++++++ libswfdec/swfdec_as_object.c | 30 +++++----- libswfdec/swfdec_as_object.h | 15 ++++-

...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" ) + } elsi...

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 |