ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/Coro/Coro/CoroAPI.h
Revision: 1.9
Committed: Thu Nov 30 18:21:14 2006 UTC (18 years ago) by root
Content type: text/plain
Branch: MAIN
Changes since 1.8: +15 -12 lines
Log Message:
*** empty log message ***

File Contents

# Content
1 #ifndef CORO_API_H
2 #define CORO_API_H
3
4 #include "EXTERN.h"
5 #include "perl.h"
6 #include "XSUB.h"
7
8 #ifndef pTHX_
9 # define pTHX_
10 # define aTHX_
11 # define pTHX
12 # define aTHX
13 #endif
14
15 /* perl-related */
16 #define TRANSFER_SAVE_DEFAV 0x00000001 /* @_ */
17 #define TRANSFER_SAVE_DEFSV 0x00000002 /* $_ */
18 #define TRANSFER_SAVE_ERRSV 0x00000004 /* $@ */
19
20 #define TRANSFER_SAVE_ALL ( TRANSFER_SAVE_DEFAV \
21 | TRANSFER_SAVE_DEFSV \
22 | TRANSFER_SAVE_ERRSV )
23
24 /*struct coro;*/ /* opaque */
25
26 struct CoroAPI {
27 I32 ver;
28 #define CORO_API_VERSION 2
29 #define CORO_API_REVISION 0
30
31 /* internal */
32 /*struct coro *(*sv_to_coro)(SV *arg, const char *funcname, const char *varname);*/
33
34 /* public, state */
35 void (*transfer) (SV *prev, SV *next, int flags);
36
37 /* public, coro */
38 void (*schedule) (void);
39 void (*cede) (void);
40 int (*ready) (SV *coro_sv);
41 int (*is_ready) (SV *coro_sv);
42 int *nready;
43 GV *current;
44 };
45
46 static struct CoroAPI *GCoroAPI;
47
48 #define CORO_TRANSFER(prev,next,flags) GCoroAPI->transfer (aTHX_ (prev), (next), (flags))
49 #define CORO_SCHEDULE GCoroAPI->schedule ()
50 #define CORO_CEDE GCoroAPI->cede ()
51 #define CORO_READY(coro) GCoroAPI->ready (coro)
52 #define CORO_IS_READY(coro) GCoroAPI->is_ready (coro)
53 #define CORO_NREADY (*GCoroAPI->nready)
54 #define CORO_CURRENT SvRV (GvSV (GCoroAPI->current))
55
56 #define I_CORO_API(YourName) \
57 STMT_START { \
58 SV *sv = perl_get_sv("Coro::API",0); \
59 if (!sv) croak("Coro::API not found"); \
60 GCoroAPI = (struct CoroAPI*) SvIV(sv); \
61 if (GCoroAPI->ver != CORO_API_VERSION) { \
62 croak("Coro::API version mismatch (%d != %d) -- please recompile %s", \
63 GCoroAPI->ver, CORO_API_VERSION, YourName); \
64 } \
65 } STMT_END
66
67 #endif
68