release-1.10release-1.9
Last change
on this file since eb5e8fc was
f271129,
checked in by Jason Gross <jgross@mit.edu>, 13 years ago
|
Fix up headers
The additions to owl.h and some of the removals were done by
Alejandro Sedeño <asedeno@mit.edu> in commit
77a0258b3919468fc9d7f7602588ac427ab36e6c.
Notes:
* I think owl.c lost the need for sys/time.h when we punted select() in
favor of glib's main loop.
* We don't actually need to include things like stdarg.h, stdio.h,
glib/gstdio.h, glib-object.h. I think they get indirectly included
via owl.h and/or glib.h. They're left in (or added in to) the files
that use functions/types from them.
* I'm not entirely sure what sys/socket.h is doing in message.c. It
is there from the initial commit. I suspect it might have had
something to do with the call to getnameinfo. message.c compiles
without it, but
http://pubs.opengroup.org/onlinepubs/009695399/functions/getnameinfo.html
suggests that we're supposed to include it? *shrugs* I'm leaving it
in, for now. (Rather, I'll leave one copy of the #include in.)
|
-
Property mode set to
100644
|
File size:
1.4 KB
|
Rev | Line | |
---|
[06adc25] | 1 | #ifndef INC_BARNOWL_OWL_PERL_H |
---|
| 2 | #define INC_BARNOWL_OWL_PERL_H |
---|
[120291c] | 3 | |
---|
[f271129] | 4 | #include <stdio.h> |
---|
| 5 | |
---|
[120291c] | 6 | #define OWL_PERL_VOID_CALL (void)POPs; |
---|
| 7 | |
---|
| 8 | /* |
---|
| 9 | * This macro defines a convenience wrapper around the boilerplate of |
---|
| 10 | * calling a method on a perl object (SV*) from C. |
---|
| 11 | * |
---|
| 12 | * Arguments are |
---|
| 13 | * * obj - the SV* to call the method on |
---|
| 14 | * * meth - a char* method name |
---|
| 15 | * * args - a code block responsible for pushing args (other than the object) |
---|
| 16 | * * err - a string with a %s format specifier to log in case of error |
---|
[b8a3e00] | 17 | * * fatalp - if true, perl errors terminate BarnOwl |
---|
[120291c] | 18 | * * ret - a code block executed if the call succeeded |
---|
| 19 | * |
---|
| 20 | * See also: `perldoc perlcall', `perldoc perlapi' |
---|
| 21 | */ |
---|
| 22 | #define OWL_PERL_CALL_METHOD(obj, meth, args, err, fatalp, ret) { \ |
---|
| 23 | int count; \ |
---|
| 24 | dSP; \ |
---|
| 25 | ENTER; \ |
---|
| 26 | SAVETMPS; \ |
---|
| 27 | PUSHMARK(SP); \ |
---|
| 28 | XPUSHs(obj); \ |
---|
| 29 | {args} \ |
---|
| 30 | PUTBACK; \ |
---|
| 31 | \ |
---|
| 32 | count = call_method(meth, G_SCALAR|G_EVAL); \ |
---|
| 33 | \ |
---|
| 34 | SPAGAIN; \ |
---|
| 35 | \ |
---|
| 36 | if(count != 1) { \ |
---|
| 37 | fprintf(stderr, "perl returned wrong count: %d\n", count); \ |
---|
| 38 | abort(); \ |
---|
| 39 | } \ |
---|
| 40 | if (SvTRUE(ERRSV)) { \ |
---|
| 41 | if(fatalp) { \ |
---|
| 42 | printf(err, SvPV_nolen(ERRSV)); \ |
---|
| 43 | exit(-1); \ |
---|
| 44 | } else { \ |
---|
| 45 | owl_function_error(err, SvPV_nolen(ERRSV)); \ |
---|
| 46 | (void)POPs; \ |
---|
| 47 | sv_setsv(ERRSV, &PL_sv_undef); \ |
---|
| 48 | } \ |
---|
| 49 | } else { \ |
---|
| 50 | ret; \ |
---|
| 51 | } \ |
---|
| 52 | PUTBACK; \ |
---|
| 53 | FREETMPS; \ |
---|
| 54 | LEAVE; \ |
---|
| 55 | } |
---|
| 56 | |
---|
[06adc25] | 57 | #endif /* INC_BARNOWL_OWL_PERL_H */ |
---|
Note: See
TracBrowser
for help on using the repository browser.