Changeset eb6cedc for perlconfig.c

Timestamp:

Jul 17, 2009, 11:52:30 PM (15 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

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

Children:

96f7b07

Parents:

b4ef908

git-author:

Nelson Elhage <nelhage@mit.edu> (07/17/09 23:31:14)

git-committer:

Nelson Elhage <nelhage@mit.edu> (07/17/09 23:52:30)

Message:

Push commands into BarnOwl:: instead of AUTOLOAD'ing them

File:

• perlconfig.c (modified) (1 diff)

perlconfig.c

@@ -429 +429 @@
 }
 
+void owl_perlconfig_new_command(char *name)
+{
+  int i, count;
+  SV *rv;
+  dSP;
+
+  ENTER;
+  SAVETMPS;
+
+  PUSHMARK(SP);
+  XPUSHs(sv_2mortal(newSVpv(name, 0)));
+  PUTBACK;
+
+  call_pv("BarnOwl::Hooks::_new_command", G_SCALAR|G_VOID);
+
+  SPAGAIN;
+
+  if(SvTRUE(ERRSV)) {
+    owl_function_error("%s", SvPV_nolen(ERRSV));
+  }
+
+  FREETMPS;
+  LEAVE;
+}
+
 char *owl_perlconfig_perlcmd(owl_cmd *cmd, int argc, char **argv)
 {