20 int luaZ_fill (ZIO *z) {  in luaZ_fill()  argument
22   lua_State *L = z->L;  in luaZ_fill()
25   buff = z->reader(L, z->data, &size);  in luaZ_fill()
29   z->n = size - 1;  /* discount char being returned */  in luaZ_fill()
30   z->p = buff;  in luaZ_fill()
31   return cast_uchar(*(z->p++));  in luaZ_fill()
35 void luaZ_init (lua_State *L, ZIO *z, lua_Reader reader, void *data) {  in luaZ_init()  argument
36   z->L = L;  in luaZ_init()
37   z->reader = reader;  in luaZ_init()
38   z->data = data;  in luaZ_init()
39   z->n = 0;  in luaZ_init()
40   z->p = NULL;  in luaZ_init()
45 size_t luaZ_read (ZIO *z, void *b, size_t n) {  in luaZ_read()  argument
48     if (z->n == 0) {  /* no bytes in buffer? */  in luaZ_read()
49       if (luaZ_fill(z) == EOZ)  /* try to read more */  in luaZ_read()
52         z->n++;  /* luaZ_fill consumed first byte; put it back */  in luaZ_read()
53         z->p--;  in luaZ_read()
56     m = (n <= z->n) ? n : z->n;  /* min. between n and z->n */  in luaZ_read()
57     memcpy(b, z->p, m);  in luaZ_read()
58     z->n -= m;  in luaZ_read()
59     z->p += m;  in luaZ_read()