1 #include <lua.h>

2 #include <lauxlib.h>

3

4 typedef struct {

5 lua_State *L;

6 int itertype;

7 lua_Integer i;

8 } seqlua_Iterator;

9

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

11

12 extern int seqlua_iternext(seqlua_Iterator *iter);

13

14 #define seqlua_iterloop(L, iter, idx) \

15 for ( \

16 seqlua_iterinit((L), (iter), (idx)); \

17 seqlua_iternext(iter); \

18 lua_pop((L), 1) \

19 )

20

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

22

23 extern void seqlua_iterclosure(lua_State *L, int idx);

24