ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/Guard/Guard.xs
(Generate patch)

Comparing Guard/Guard.xs (file contents):
Revision 1.2 by root, Sat Dec 13 17:49:12 2008 UTC vs.
Revision 1.8 by root, Tue Jan 13 23:30:38 2009 UTC

1#define PERL_NO_GET_CONTEXT 1#define PERL_NO_GET_CONTEXT
2 2
3#include "EXTERN.h" 3#include "EXTERN.h"
4#include "perl.h" 4#include "perl.h"
5#include "XSUB.h" 5#include "XSUB.h"
6
7static HV *guard_stash;
6 8
7static SV * 9static SV *
8guard_get_cv (pTHX_ SV *cb_sv) 10guard_get_cv (pTHX_ SV *cb_sv)
9{ 11{
10 HV *st; 12 HV *st;
… …
20static void 22static void
21exec_guard_cb (pTHX_ SV *cb) 23exec_guard_cb (pTHX_ SV *cb)
22{ 24{
23 dSP; 25 dSP;
24 SV *saveerr = SvOK (ERRSV) ? sv_mortalcopy (ERRSV) : 0; 26 SV *saveerr = SvOK (ERRSV) ? sv_mortalcopy (ERRSV) : 0;
27 SV *savedie = PL_diehook;
28
29 PL_diehook = 0;
25 30
26 PUSHSTACKi (PERLSI_DESTROY); 31 PUSHSTACKi (PERLSI_DESTROY);
27 32
28 PUSHMARK (SP); 33 PUSHMARK (SP);
29 PUTBACK; 34 PUTBACK;
30 call_sv (cb, G_VOID | G_DISCARD | G_EVAL); 35 call_sv (cb, G_VOID | G_DISCARD | G_EVAL);
31 SPAGAIN;
32 36
33 if (SvTRUE (ERRSV)) 37 if (SvTRUE (ERRSV))
34 { 38 {
39 SPAGAIN;
40
35 PUSHMARK (SP); 41 PUSHMARK (SP);
36 PUTBACK; 42 PUTBACK;
37 call_sv (get_sv ("Guard::DIED", 1), G_VOID | G_DISCARD | G_EVAL | G_KEEPERR); 43 call_sv (get_sv ("Guard::DIED", 1), G_VOID | G_DISCARD | G_EVAL | G_KEEPERR);
38 SPAGAIN;
39 44
40 sv_setsv (ERRSV, &PL_sv_undef); 45 sv_setpvn (ERRSV, "", 0);
41 } 46 }
42 47
43 if (saveerr) 48 if (saveerr)
44 sv_setsv (ERRSV, saveerr); 49 sv_setsv (ERRSV, saveerr);
50
51 {
52 SV *oldhook = PL_diehook;
53 PL_diehook = savedie;
54 SvREFCNT_dec (oldhook);
55 }
45 56
46 POPSTACK; 57 POPSTACK;
47} 58}
48 59
49static void 60static void
… …
54 65
55static int 66static int
56guard_free (pTHX_ SV *cv, MAGIC *mg) 67guard_free (pTHX_ SV *cv, MAGIC *mg)
57{ 68{
58 exec_guard_cb (aTHX_ mg->mg_obj); 69 exec_guard_cb (aTHX_ mg->mg_obj);
70
71 return 0;
59} 72}
60 73
61static MGVTBL guard_vtbl = { 74static MGVTBL guard_vtbl = {
62 0, 0, 0, 0, 75 0, 0, 0, 0,
63 guard_free 76 guard_free
64}; 77};
65 78
66MODULE = Guard PACKAGE = Guard 79MODULE = Guard PACKAGE = Guard
80
81BOOT:
82 guard_stash = gv_stashpv ("Guard", 1);
67 83
68void 84void
69scope_guard (SV *block) 85scope_guard (SV *block)
70 PROTOTYPE: & 86 PROTOTYPE: &
71 CODE: 87 CODE:
… …
81 SV *cv = guard_get_cv (aTHX_ block); 97 SV *cv = guard_get_cv (aTHX_ block);
82 SV *guard = NEWSV (0, 0); 98 SV *guard = NEWSV (0, 0);
83 SvUPGRADE (guard, SVt_PVMG); 99 SvUPGRADE (guard, SVt_PVMG);
84 sv_magicext (guard, cv, PERL_MAGIC_ext, &guard_vtbl, 0, 0); 100 sv_magicext (guard, cv, PERL_MAGIC_ext, &guard_vtbl, 0, 0);
85 RETVAL = newRV_noinc (guard); 101 RETVAL = newRV_noinc (guard);
102 SvOBJECT_on (guard);
103 ++PL_sv_objcount;
104 SvSTASH_set (guard, (HV*)SvREFCNT_inc ((SV *)guard_stash));
86} 105}
87 OUTPUT: 106 OUTPUT:
88 RETVAL 107 RETVAL
89 108
90void 109void

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines