ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/Coro/Coro/CoroAPI.h
Revision: 1.2
Committed: Sun Nov 25 20:04:05 2001 UTC (23 years ago) by root
Content type: text/plain
Branch: MAIN
Changes since 1.1: +5 -4 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 /* perl-related */
9 #define TRANSFER_SAVE_DEFAV 0x00000001
10 #define TRANSFER_SAVE_DEFSV 0x00000002
11 #define TRANSFER_SAVE_ERRSV 0x00000004
12 /* c-related */
13 #define TRANSFER_SAVE_CCTXT 0x00000008
14 #ifdef CORO_LAZY_STACK
15 # define TRANSFER_LAZY_STACK 0x00000010
16 #else
17 # define TRANSFER_LAZY_STACK 0x00000000
18 #endif
19
20 #define TRANSFER_SAVE_ALL (TRANSFER_SAVE_DEFAV|TRANSFER_SAVE_DEFSV \
21 |TRANSFER_SAVE_ERRSV|TRANSFER_SAVE_CCTXT)
22
23 struct coro; /* opaque */
24
25 struct CoroAPI {
26 I32 ver;
27 #define CORO_API_VERSION 1
28
29 /* internal */
30 /*struct coro *(*sv_to_coro)(SV *arg, const char *funcname, const char *varname);*/
31
32 /* public, state */
33 void (*transfer)(pTHX_ SV *prev, SV *next, int flags);
34
35 /* public, coro */
36 void (*schedule)(void);
37 void (*cede)(void);
38 void (*ready)(SV *sv);
39 int *nready;
40 GV *current;
41 };
42
43 static struct CoroAPI *GCoroAPI;
44
45 #define CORO_TRANSFER(prev,next) GCoroAPI->transfer(aTHX_ (prev),(next))
46 #define CORO_SCHEDULE GCoroAPI->schedule()
47 #define CORO_CEDE GCoroAPI->cede()
48 #define CORO_READY(coro) GCoroAPI->ready(coro)
49 #define CORO_NREADY (*GCoroAPI->nready)
50 #define CORO_CURRENT SvRV(GvSV(GCoroAPI->current))
51
52 #define I_CORO_API(YourName) \
53 STMT_START { \
54 SV *sv = perl_get_sv("Coro::API",0); \
55 if (!sv) croak("Coro::API not found"); \
56 GCoroAPI = (struct CoroAPI*) SvIV(sv); \
57 if (GCoroAPI->ver != CORO_API_VERSION) { \
58 croak("Coro::API version mismatch (%d != %d) -- please recompile %s", \
59 GCoroAPI->ver, CORO_API_VERSION, YourName); \
60 } \
61 } STMT_END
62
63 #endif
64