Changeset c4ba74d for perlglue.xs

Timestamp:

Aug 21, 2008, 12:52:04 AM (16 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

38a7f22

Parents:

aef51f8

Message:

Make BarnOwl::command() accept a pre-tokenized command.

If given more than one argument, BarnOwl::command now treats the
arguments as an argv list to execute the command with. Previously it
only accepted a single argument, so this should not change the
behavior of any existing code.

File:

• perlglue.xs (modified) (2 diffs)

perlglue.xs

@@ -17 +17 @@
          *************************************************************
          * These functions, when they are intended to be user-visible,
-         * are document in perlwrap.pm. If you add functions to this
+         * are documented in perlwrap.pm. If you add functions to this
          * file, add the appropriate documentation there!
          *
@@ -33 +33 @@
 
 char *
-command(cmd)
+command(cmd, ...)
         char *cmd
         PREINIT:
                 char *rv = NULL;
-        CODE:
-                rv = owl_function_command(cmd);
-                RETVAL = rv;    
+                char **argv;
+                int i;
+        CODE:
+        {
+                if (items == 1) {
+                        rv = owl_function_command(cmd);
+                } else {
+                        argv = owl_malloc((items + 1) * sizeof *argv);
+                        argv[0] = cmd;
+                        for(i = 1; i < items; i++) {
+                                argv[i] = SvPV_nolen(ST(i));
+                        }
+                        rv = owl_function_command_argv(argv, items);
+                        owl_free(argv);
+                }
+                RETVAL = rv;
+        }
         OUTPUT:
                 RETVAL