392 #define buffonstack(B)	((B)->b != (B)->initb)  argument
398 LUALIB_API char *luaL_prepbuffsize (luaL_Buffer *B, size_t sz) {  in luaL_prepbuffsize()  argument
399   lua_State *L = B->L;  in luaL_prepbuffsize()
400   if (B->size - B->n < sz) {  /* not enough space? */  in luaL_prepbuffsize()
402     size_t newsize = B->size * 2;  /* double buffer size */  in luaL_prepbuffsize()
403     if (newsize - B->n < sz)  /* not big enough? */  in luaL_prepbuffsize()
404       newsize = B->n + sz;  in luaL_prepbuffsize()
405     if (newsize < B->n || newsize - B->n < sz)  in luaL_prepbuffsize()
410     memcpy(newbuff, B->b, B->n * sizeof(char));  in luaL_prepbuffsize()
411     if (buffonstack(B))  in luaL_prepbuffsize()
413     B->b = newbuff;  in luaL_prepbuffsize()
414     B->size = newsize;  in luaL_prepbuffsize()
416   return &B->b[B->n];  in luaL_prepbuffsize()
420 LUALIB_API void luaL_addlstring (luaL_Buffer *B, const char *s, size_t l) {  in luaL_addlstring()  argument
421   char *b = luaL_prepbuffsize(B, l);  in luaL_addlstring()
423   luaL_addsize(B, l);  in luaL_addlstring()
427 LUALIB_API void luaL_addstring (luaL_Buffer *B, const char *s) {  in luaL_addstring()  argument
428   luaL_addlstring(B, s, strlen(s));  in luaL_addstring()
432 LUALIB_API void luaL_pushresult (luaL_Buffer *B) {  in luaL_pushresult()  argument
433   lua_State *L = B->L;  in luaL_pushresult()
434   lua_pushlstring(L, B->b, B->n);  in luaL_pushresult()
435   if (buffonstack(B))  in luaL_pushresult()
440 LUALIB_API void luaL_pushresultsize (luaL_Buffer *B, size_t sz) {  in luaL_pushresultsize()  argument
441   luaL_addsize(B, sz);  in luaL_pushresultsize()
442   luaL_pushresult(B);  in luaL_pushresultsize()
446 LUALIB_API void luaL_addvalue (luaL_Buffer *B) {  in luaL_addvalue()  argument
447   lua_State *L = B->L;  in luaL_addvalue()
450   if (buffonstack(B))  in luaL_addvalue()
452   luaL_addlstring(B, s, l);  in luaL_addvalue()
453   lua_remove(L, (buffonstack(B)) ? -2 : -1);  /* remove value */  in luaL_addvalue()
457 LUALIB_API void luaL_buffinit (lua_State *L, luaL_Buffer *B) {  in luaL_buffinit()  argument
458   B->L = L;  in luaL_buffinit()
459   B->b = B->initb;  in luaL_buffinit()
460   B->n = 0;  in luaL_buffinit()
461   B->size = LUAL_BUFFERSIZE;  in luaL_buffinit()
465 LUALIB_API char *luaL_buffinitsize (lua_State *L, luaL_Buffer *B, size_t sz) {  in luaL_buffinitsize()  argument
466   luaL_buffinit(L, B);  in luaL_buffinitsize()
467   return luaL_prepbuffsize(B, sz);  in luaL_buffinitsize()