1 #include <lua.h>

2 #include <lauxlib.h>

3

4 typedef struct {

5 lua_State *L;

6 int idx;

7 int itertype;

8 lua_Integer i;

9 } seqlua_Iterator;

10

11 #define SEQLUA_MODE_NONE 0

12 #define SEQLUA_MODE_CALL 1

13 #define SEQLUA_MODE_GENERATOR 2

14

15 extern void seqlua_iterinit(lua_State *L, seqlua_Iterator *iter, int mode, int idx);

16

17 extern int seqlua_iternext(seqlua_Iterator *iter);

18

19 #define seqlua_iterloop(L, iter, mode, idx) \

20 for ( \

21 seqlua_iterinit((L), (iter), (mode), (idx)); \

22 seqlua_iternext(iter); \

23 )

24

25 #define seqlua_iterloopauto(L, iter, mode, idx) \

26 for ( \

27 seqlua_iterinit((L), (iter), (mode), (idx)); \

28 seqlua_iternext(iter); \

29 lua_pop((L), 1) \

30 )

31

32 #define seqlua_itercount(iter) ((iter)->i)

33