Changeset eb6cedc for perlconfig.c


Ignore:
Timestamp:
Jul 17, 2009, 11:52:30 PM (12 years ago)
Author:
Nelson Elhage <nelhage@mit.edu>
Branches:
master, 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:
1 edited

Legend:

Unmodified
Added
Removed
  • perlconfig.c

    ra556caa reb6cedc  
    429429}
    430430
     431void owl_perlconfig_new_command(char *name)
     432{
     433  int i, count;
     434  SV *rv;
     435  dSP;
     436
     437  ENTER;
     438  SAVETMPS;
     439
     440  PUSHMARK(SP);
     441  XPUSHs(sv_2mortal(newSVpv(name, 0)));
     442  PUTBACK;
     443
     444  call_pv("BarnOwl::Hooks::_new_command", G_SCALAR|G_VOID);
     445
     446  SPAGAIN;
     447
     448  if(SvTRUE(ERRSV)) {
     449    owl_function_error("%s", SvPV_nolen(ERRSV));
     450  }
     451
     452  FREETMPS;
     453  LEAVE;
     454}
     455
    431456char *owl_perlconfig_perlcmd(owl_cmd *cmd, int argc, char **argv)
    432457{
Note: See TracChangeset for help on using the changeset viewer.