ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/Coro/Coro/CoroAPI.h
(Generate patch)

Comparing Coro/Coro/CoroAPI.h (file contents):
Revision 1.1 by root, Sat Aug 25 15:14:03 2001 UTC vs.
Revision 1.2 by root, Sun Nov 25 20:04:05 2001 UTC

… …
31 31
32 /* public, state */ 32 /* public, state */
33 void (*transfer)(pTHX_ SV *prev, SV *next, int flags); 33 void (*transfer)(pTHX_ SV *prev, SV *next, int flags);
34 34
35 /* public, coro */ 35 /* public, coro */
36 void (*schedule)(int cede); 36 void (*schedule)(void);
37 void (*cede)(void);
37 void (*ready)(SV *sv); 38 void (*ready)(SV *sv);
38 int *nready; 39 int *nready;
39 GV *current; 40 GV *current;
40}; 41};
41 42
42static struct CoroAPI *GCoroAPI; 43static struct CoroAPI *GCoroAPI;
43 44
44#define CORO_TRANSFER(prev,next) GCoroAPI->transfer(aTHX_ (prev),(next)) 45#define CORO_TRANSFER(prev,next) GCoroAPI->transfer(aTHX_ (prev),(next))
45#define CORO_SCHEDULE GCoroAPI->schedule(0) 46#define CORO_SCHEDULE GCoroAPI->schedule()
46#define CORO_CEDE GCoroAPI->schedule(1) 47#define CORO_CEDE GCoroAPI->cede()
47#define CORO_READY(coro) GCoroAPI->ready(coro) 48#define CORO_READY(coro) GCoroAPI->ready(coro)
48#define CORO_NREADY (*GCoroAPI->nready) 49#define CORO_NREADY (*GCoroAPI->nready)
49#define CORO_CURRENT GvSV(GCoroAPI->current) 50#define CORO_CURRENT SvRV(GvSV(GCoroAPI->current))
50 51
51#define I_CORO_API(YourName) \ 52#define I_CORO_API(YourName) \
52STMT_START { \ 53STMT_START { \
53 SV *sv = perl_get_sv("Coro::API",0); \ 54 SV *sv = perl_get_sv("Coro::API",0); \
54 if (!sv) croak("Coro::API not found"); \ 55 if (!sv) croak("Coro::API not found"); \

Diff Legend

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