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.3 by root, Tue Nov 27 01:41:41 2001 UTC vs.
Revision 1.6 by root, Sat Aug 20 00:49:42 2005 UTC

… …
3 3
4#include "EXTERN.h" 4#include "EXTERN.h"
5#include "perl.h" 5#include "perl.h"
6#include "XSUB.h" 6#include "XSUB.h"
7 7
8#ifndef pTHX_
9# define pTHX_
10# define aTHX_
11# define pTHX
12# define aTHX
13#endif
14
8/* perl-related */ 15/* perl-related */
9#define TRANSFER_SAVE_DEFAV 0x00000001 /* @_ */ 16#define TRANSFER_SAVE_DEFAV 0x00000001 /* @_ */
10#define TRANSFER_SAVE_DEFSV 0x00000002 /* $_ */ 17#define TRANSFER_SAVE_DEFSV 0x00000002 /* $_ */
11#define TRANSFER_SAVE_ERRSV 0x00000004 /* $@ */ 18#define TRANSFER_SAVE_ERRSV 0x00000004 /* $@ */
12#define TRANSFER_SAVE_CURPM 0x00000008 /* regex results */
13/* c-related */ 19/* c-related */
14#define TRANSFER_SAVE_CCTXT 0x00000100 20#define TRANSFER_SAVE_CCTXT 0x00000100
15#ifdef CORO_LAZY_STACK 21#ifdef CORO_LAZY_STACK
16# define TRANSFER_LAZY_STACK 0x00000200 22# define TRANSFER_LAZY_STACK 0x00000200
17#else 23#else
18# define TRANSFER_LAZY_STACK 0x00000000 24# define TRANSFER_LAZY_STACK 0x00000000
19#endif 25#endif
20 26
21#define TRANSFER_SAVE_ALL (TRANSFER_SAVE_DEFAV|TRANSFER_SAVE_DEFSV \ 27#define TRANSFER_SAVE_ALL (TRANSFER_SAVE_DEFAV|TRANSFER_SAVE_DEFSV \
22 |TRANSFER_SAVE_ERRSV|TRANSFER_SAVE_CURPM \ 28 |TRANSFER_SAVE_ERRSV|TRANSFER_SAVE_CCTXT)
23 |TRANSFER_SAVE_CCTXT)
24 29
25struct coro; /* opaque */ 30struct coro; /* opaque */
26 31
27struct CoroAPI { 32struct CoroAPI {
28 I32 ver; 33 I32 ver;
… …
42 GV *current; 47 GV *current;
43}; 48};
44 49
45static struct CoroAPI *GCoroAPI; 50static struct CoroAPI *GCoroAPI;
46 51
47#define CORO_TRANSFER(prev,next) GCoroAPI->transfer(aTHX_ (prev),(next)) 52#define CORO_TRANSFER(prev,next,flags) GCoroAPI->transfer(aTHX_ (prev), (next), (flags))
48#define CORO_SCHEDULE GCoroAPI->schedule() 53#define CORO_SCHEDULE GCoroAPI->schedule ()
49#define CORO_CEDE GCoroAPI->cede() 54#define CORO_CEDE GCoroAPI->cede ()
50#define CORO_READY(coro) GCoroAPI->ready(coro) 55#define CORO_READY(coro) GCoroAPI->ready (coro)
51#define CORO_NREADY (*GCoroAPI->nready) 56#define CORO_NREADY (*GCoroAPI->nready)
52#define CORO_CURRENT SvRV(GvSV(GCoroAPI->current)) 57#define CORO_CURRENT SvRV(GvSV(GCoroAPI->current))
53 58
54#define I_CORO_API(YourName) \ 59#define I_CORO_API(YourName) \
55STMT_START { \ 60STMT_START { \

Diff Legend

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