392 #define bufflen(B)	((B)->p - (B)->buffer)  argument
393 #define bufffree(B)	((size_t)(LUAL_BUFFERSIZE - bufflen(B)))  argument
398 static int emptybuffer (luaL_Buffer *B) {  in emptybuffer()  argument
399   size_t l = bufflen(B);  in emptybuffer()
402     lua_pushlstring(B->L, B->buffer, l);  in emptybuffer()
403     B->p = B->buffer;  in emptybuffer()
404     B->lvl++;  in emptybuffer()
410 static void adjuststack (luaL_Buffer *B) {  in adjuststack()  argument
411   if (B->lvl > 1) {  in adjuststack()
412     lua_State *L = B->L;  in adjuststack()
417       if (B->lvl - toget + 1 >= LIMIT || toplen > l) {  in adjuststack()
422     } while (toget < B->lvl);  in adjuststack()
424     B->lvl = B->lvl - toget + 1;  in adjuststack()
429 LUALIB_API char *luaL_prepbuffer (luaL_Buffer *B) {  in luaL_prepbuffer()  argument
430   if (emptybuffer(B))  in luaL_prepbuffer()
431     adjuststack(B);  in luaL_prepbuffer()
432   return B->buffer;  in luaL_prepbuffer()
436 LUALIB_API void luaL_addlstring (luaL_Buffer *B, const char *s, size_t l) {  in luaL_addlstring()  argument
438     luaL_addchar(B, *s++);  in luaL_addlstring()
442 LUALIB_API void luaL_addstring (luaL_Buffer *B, const char *s) {  in luaL_addstring()  argument
443   luaL_addlstring(B, s, strlen(s));  in luaL_addstring()
447 LUALIB_API void luaL_pushresult (luaL_Buffer *B) {  in luaL_pushresult()  argument
448   emptybuffer(B);  in luaL_pushresult()
449   lua_concat(B->L, B->lvl);  in luaL_pushresult()
450   B->lvl = 1;  in luaL_pushresult()
454 LUALIB_API void luaL_addvalue (luaL_Buffer *B) {  in luaL_addvalue()  argument
455   lua_State *L = B->L;  in luaL_addvalue()
458   if (vl <= bufffree(B)) {  /* fit into buffer? */  in luaL_addvalue()
459     memcpy(B->p, s, vl);  /* put it there */  in luaL_addvalue()
460     B->p += vl;  in luaL_addvalue()
464     if (emptybuffer(B))  in luaL_addvalue()
466     B->lvl++;  /* add new value into B stack */  in luaL_addvalue()
467     adjuststack(B);  in luaL_addvalue()
472 LUALIB_API void luaL_buffinit (lua_State *L, luaL_Buffer *B) {  in luaL_buffinit()  argument
473   B->L = L;  in luaL_buffinit()
474   B->p = B->buffer;  in luaL_buffinit()
475   B->lvl = 0;  in luaL_buffinit()