| … | |
… | |
| 73 | BOOT: |
73 | BOOT: |
| 74 | I_CORO_API("YourModule"); |
74 | I_CORO_API("YourModule"); |
| 75 | |
75 | |
| 76 | =head2 API |
76 | =head2 API |
| 77 | |
77 | |
| 78 | /* perl-related */ |
|
|
| 79 | #define TRANSFER_SAVE_DEFAV /* save @_ */ |
|
|
| 80 | #define TRANSFER_SAVE_DEFSV /* save $_ */ |
|
|
| 81 | #define TRANSFER_SAVE_ERRSV /* save $@ */ |
|
|
| 82 | |
|
|
| 83 | #define TRANSFER_SAVE_ALL ( TRANSFER_SAVE_DEFAV \ |
|
|
| 84 | | TRANSFER_SAVE_DEFSV \ |
|
|
| 85 | | TRANSFER_SAVE_ERRSV) |
|
|
| 86 | |
|
|
| 87 | #define CORO_TRANSFER(prev,next,flags) /* transfer from prev to next */ |
78 | #define CORO_TRANSFER(prev,next) /* transfer from prev to next */ |
| 88 | #define CORO_SCHEDULE /* like Coro::schedule */ |
79 | #define CORO_SCHEDULE /* like Coro::schedule */ |
| 89 | #define CORO_CEDE /* like Coro::cede */ |
80 | #define CORO_CEDE /* like Coro::cede */ |
|
|
81 | #define CORO_CEDE_NOTSELF /* like Coro::cede_notself */ |
| 90 | #define CORO_READY(coro) /* like $coro->ready */ |
82 | #define CORO_READY(coro) /* like $coro->ready */ |
| 91 | #define CORO_IS_READY(coro) /* like $coro->is_ready */ |
83 | #define CORO_IS_READY(coro) /* like $coro->is_ready */ |
| 92 | #define CORO_NREADY /* # of procs in ready queue */ |
84 | #define CORO_NREADY /* # of procs in ready queue */ |
| 93 | #define CORO_CURRENT /* returns $Coro::current */ |
85 | #define CORO_CURRENT /* returns $Coro::current */ |
| 94 | |
86 | |
