Changeset 5f3168a for perlconfig.c


Ignore:
Timestamp:
Feb 18, 2008, 9:07:22 PM (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:
b70d24f
Parents:
680ed23 (diff), 9d2f010 (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent.
Message:
Merged revisions 928-950 via svnmerge from 
file:///afs/sipb.mit.edu/project/barnowl/src/svn/trunk

........
  r937 | nelhage | 2008-02-11 23:09:54 -0500 (Mon, 11 Feb 2008) | 2 lines
  
  Bind M-left and M-right by default in the editor
........
  r947 | nelhage | 2008-02-18 16:45:22 -0500 (Mon, 18 Feb 2008) | 2 lines
  
  We need to stick modules on the beginning of @INC, not the end
........
  r949 | asedeno | 2008-02-18 19:43:09 -0500 (Mon, 18 Feb 2008) | 1 line
  
  Merging in the select branch.
........
  r950 | asedeno | 2008-02-18 20:54:45 -0500 (Mon, 18 Feb 2008) | 1 line
  
  Merging in the select branch, part 2. select.c
........
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perlconfig.c

    ree310eb r5f3168a  
    487487}
    488488
     489void owl_perlconfig_dispatch_free(owl_dispatch *d)
     490{
     491  SvREFCNT_dec(d->pfunc);
     492}
     493
    489494void owl_perlconfig_edit_callback(owl_editwin *e)
    490495{
     
    533538  return;
    534539}
     540
     541void owl_perlconfig_do_dispatch(owl_dispatch *d)
     542{
     543  SV *cb = d->pfunc;
     544  unsigned int n_a;
     545  dSP;
     546  if(cb == NULL) {
     547    owl_function_error("Perl callback is NULL!");
     548  }
     549
     550  ENTER;
     551  SAVETMPS;
     552
     553  PUSHMARK(SP);
     554  PUTBACK;
     555 
     556  call_sv(cb, G_DISCARD|G_KEEPERR|G_EVAL);
     557
     558  if(SvTRUE(ERRSV)) {
     559    owl_function_error("%s", SvPV(ERRSV, n_a));
     560  }
     561
     562  FREETMPS;
     563  LEAVE;
     564}
Note: See TracChangeset for help on using the changeset viewer.