mirror of
https://github.com/libretro/RetroArch.git
synced 2024-11-24 08:30:16 +00:00
84 lines
1.7 KiB
C
84 lines
1.7 KiB
C
#ifndef CORO_H
|
|
#define CORO_H
|
|
|
|
/*
|
|
Released under the CC0: https://creativecommons.org/publicdomain/zero/1.0/
|
|
*/
|
|
|
|
/* Use at the beginning of the coroutine, you must have declared a variable coro_t* coro */
|
|
#define CORO_ENTER() \
|
|
{ \
|
|
CORO_again: ; \
|
|
switch ( coro->step ) { \
|
|
case CORO_BEGIN: ;
|
|
|
|
/* Use to define labels which are targets to GOTO and GOSUB */
|
|
#define CORO_SUB( x ) \
|
|
case x: ;
|
|
|
|
/* Use at the end of the coroutine */
|
|
#define CORO_LEAVE() \
|
|
} \
|
|
} \
|
|
do { return 0; } while ( 0 )
|
|
|
|
/* Go to the x label */
|
|
#define CORO_GOTO( x ) \
|
|
do { \
|
|
coro->step = ( x ); \
|
|
goto CORO_again; \
|
|
} while ( 0 )
|
|
|
|
/* Go to a subroutine, execution continues until the subroutine returns via RET */
|
|
/* x is the subroutine label, y and z are the A and B arguments */
|
|
#define CORO_GOSUB( x ) \
|
|
do { \
|
|
coro->stack[ coro->sp++ ] = __LINE__; \
|
|
coro->step = ( x ); \
|
|
goto CORO_again; \
|
|
case __LINE__: ; \
|
|
} while ( 0 )
|
|
|
|
/* Returns from a subroutine */
|
|
#define CORO_RET() \
|
|
do { \
|
|
coro->step = coro->stack[ --coro->sp ]; \
|
|
goto CORO_again; \
|
|
} while ( 0 )
|
|
|
|
/* Yields to the caller, execution continues from this point when the coroutine is resumed */
|
|
#define CORO_YIELD() \
|
|
do { \
|
|
coro->step = __LINE__; \
|
|
return 1; \
|
|
case __LINE__: ; \
|
|
} while ( 0 )
|
|
|
|
#define CORO_STOP() \
|
|
do { \
|
|
return 0; \
|
|
} while ( 0 )
|
|
|
|
/* The coroutine entry point, never use 0 as a label */
|
|
#define CORO_BEGIN 0
|
|
|
|
/* Sets up a coroutine, x is a pointer to coro_t */
|
|
#define CORO_SETUP( x ) \
|
|
do { \
|
|
( x )->step = CORO_BEGIN; \
|
|
( x )->sp = 0; \
|
|
} while ( 0 )
|
|
|
|
#define CORO_VAR( x ) ( coro->x )
|
|
|
|
/* A coroutine */
|
|
typedef struct
|
|
{
|
|
CORO_VARS
|
|
int step, sp;
|
|
int stack[ 8 ];
|
|
}
|
|
coro_t;
|
|
|
|
#endif /* CORO_H */
|