Changeset 9c7a701 for perlconfig.c


Ignore:
Timestamp:
Feb 15, 2008, 12:56:49 AM (13 years ago)
Author:
Alejandro R. Sedeño <asedeno@mit.edu>
Branches:
master, barnowl_perlaim, debian, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
Children:
18a54ee
Parents:
a6a4155
Message:
Initial select() changes.
stdin, zephyr, jabber, and irc are checked and have dispatch functions.
aim is hacked in -- not entirely pretty, but documented and isolated.
We still want timers.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perlconfig.c

    raf1920fd r9c7a701  
    485485}
    486486
     487void owl_perlconfig_dispatch_free(owl_dispatch *d)
     488{
     489  SvREFCNT_dec(d->pfunc);
     490}
     491
    487492void owl_perlconfig_edit_callback(owl_editwin *e)
    488493{
     
    528533  return;
    529534}
     535
     536void owl_perlconfig_do_dispatch(owl_dispatch *d)
     537{
     538  SV *cb = d->pfunc;
     539  unsigned int n_a;
     540  dSP;
     541  if(cb == NULL) {
     542    owl_function_error("Perl callback is NULL!");
     543  }
     544
     545  ENTER;
     546  SAVETMPS;
     547
     548  PUSHMARK(SP);
     549  PUTBACK;
     550 
     551  call_sv(cb, G_DISCARD|G_KEEPERR|G_EVAL);
     552
     553  if(SvTRUE(ERRSV)) {
     554    owl_function_error("%s", SvPV(ERRSV, n_a));
     555  }
     556
     557  FREETMPS;
     558  LEAVE;
     559}
Note: See TracChangeset for help on using the changeset viewer.