Changeset df0138f for perlconfig.c


Ignore:
Timestamp:
Oct 27, 2009, 12:41:09 AM (12 years ago)
Author:
Alejandro R. Sedeño <asedeno@mit.edu>
Branches:
master, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
Children:
ffc4df6
Parents:
f9d257b
git-author:
Alejandro R. Sedeño <asedeno@mit.edu> (10/20/09 20:20:12)
git-committer:
Alejandro R. Sedeño <asedeno@mit.edu> (10/27/09 00:41:09)
Message:
Add a new I/O Dispatch API

Signed-off-by: Alejandro R. Sedeño <asedeno@mit.edu>
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perlconfig.c

    rfb7742c rdf0138f  
    510510}
    511511
     512void owl_perlconfig_io_dispatch_destroy(const owl_io_dispatch *d)
     513{
     514  SvREFCNT_dec(d->data);
     515}
     516
    512517void owl_perlconfig_edit_callback(owl_editwin *e)
    513518{
     
    580585}
    581586
     587void owl_perlconfig_io_dispatch(const owl_io_dispatch *d, void *data)
     588{
     589  SV *cb = data;
     590  dSP;
     591  if(cb == NULL) {
     592    owl_function_error("Perl callback is NULL!");
     593    return;
     594  }
     595
     596  ENTER;
     597  SAVETMPS;
     598
     599  PUSHMARK(SP);
     600  PUTBACK;
     601
     602  call_sv(cb, G_DISCARD|G_KEEPERR|G_EVAL);
     603
     604  if(SvTRUE(ERRSV)) {
     605    owl_function_error("%s", SvPV_nolen(ERRSV));
     606  }
     607
     608  FREETMPS;
     609  LEAVE;
     610}
     611
    582612void owl_perlconfig_perl_timer(owl_timer *t, void *data)
    583613{
Note: See TracChangeset for help on using the changeset viewer.