ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/Coro/Coro/CoroAPI.h
Revision: 1.1
Committed: Sat Aug 25 15:14:03 2001 UTC (23 years, 3 months ago) by root
Content type: text/plain
Branch: MAIN
Log Message:
*** empty log message ***

File Contents

# User Rev Content
1 root 1.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)(int cede);
37     void (*ready)(SV *sv);
38     int *nready;
39     GV *current;
40     };
41    
42     static struct CoroAPI *GCoroAPI;
43    
44     #define CORO_TRANSFER(prev,next) GCoroAPI->transfer(aTHX_ (prev),(next))
45     #define CORO_SCHEDULE GCoroAPI->schedule(0)
46     #define CORO_CEDE GCoroAPI->schedule(1)
47     #define CORO_READY(coro) GCoroAPI->ready(coro)
48     #define CORO_NREADY (*GCoroAPI->nready)
49     #define CORO_CURRENT GvSV(GCoroAPI->current)
50    
51     #define I_CORO_API(YourName) \
52     STMT_START { \
53     SV *sv = perl_get_sv("Coro::API",0); \
54     if (!sv) croak("Coro::API not found"); \
55     GCoroAPI = (struct CoroAPI*) SvIV(sv); \
56     if (GCoroAPI->ver != CORO_API_VERSION) { \
57     croak("Coro::API version mismatch (%d != %d) -- please recompile %s", \
58     GCoroAPI->ver, CORO_API_VERSION, YourName); \
59     } \
60     } STMT_END
61    
62     #endif
63