Changeset 6922edd for perlglue.xs

Timestamp:

Oct 26, 2006, 11:14:41 AM (18 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

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

Children:

4c46dfd

Parents:

bc220b2

Message:

Adding the ability to install real commands from perl.

File:

• perlglue.xs (modified) (2 diffs)

perlglue.xs

@@ -5 +5 @@
 #endif
 #include <EXTERN.h>
-#include <perl.h>
-#include <XSUB.h>
 
 #define OWL_PERL
@@ -75 +73 @@
                 if (rv) owl_free(rv);
 
+void
+new_command_internal(name, func, summary, usage, description)
+        char *name
+        SV *func
+        char *summary
+        char *usage
+        char *description
+        PREINIT:
+                owl_cmd cmd;
+        CODE:
+                SvREFCNT_inc(func);
+                cmd.name = name;
+                cmd.cmd_perl = func;
+                cmd.summary = summary;
+                cmd.usage = usage;
+                cmd.description = description;
+                cmd.validctx = OWL_CTX_ANY;
+
+                cmd.cmd_aliased_to = NULL;
+                cmd.cmd_args_fn = NULL;
+                cmd.cmd_v_fn = NULL;
+                cmd.cmd_i_fn = NULL;
+                cmd.cmd_ctxargs_fn = NULL;
+                cmd.cmd_ctxv_fn = NULL;
+                cmd.cmd_ctxi_fn = NULL;
+
+                owl_cmddict_add_cmd(owl_global_get_cmddict(&g), &cmd);