137 static int gettoalign (size_t len, Header *h, int opt, size_t size) {  in gettoalign()  argument
138   if (size == 0 || opt == 'c') return 0;  in gettoalign()
139   if (size > (size_t)h->align)  in gettoalign()
140     size = h->align;  /* respect max. alignment */  in gettoalign()
141   return (size - (len & (size - 1))) & (size - 1);  in gettoalign()
170                         int size) {  in putinteger()  argument
180     for (i = 0; i < size; i++) {  in putinteger()
187     for (i = size - 1; i >= 0; i--) {  in putinteger()
192   luaL_addlstring(b, buff, size);  in putinteger()
196 static void correctbytes (char *b, int size, int endian) {  in correctbytes()  argument
199     while (i < --size) {  in correctbytes()
201       b[i++] = b[size];  in correctbytes()
202       b[size] = temp;  in correctbytes()
219     size_t size = optsize(L, opt, &fmt);  in b_pack()  local
220     int toalign = gettoalign(totalsize, &h, opt, size);  in b_pack()
226         putinteger(L, &b, arg++, h.endian, size);  in b_pack()
235         correctbytes((char *)&f, size, h.endian);  in b_pack()
236         luaL_addlstring(&b, (char *)&f, size);  in b_pack()
241         correctbytes((char *)&d, size, h.endian);  in b_pack()
242         luaL_addlstring(&b, (char *)&d, size);  in b_pack()
248         if (size == 0) size = l;  in b_pack()
249         luaL_argcheck(L, l >= (size_t)size, arg, "string too short");  in b_pack()
250         luaL_addlstring(&b, s, size);  in b_pack()
253           size++;  in b_pack()
259     totalsize += size;  in b_pack()
267                         int issigned, int size) {  in getinteger()  argument
271     for (i = 0; i < size; i++) {  in getinteger()
277     for (i = size - 1; i >= 0; i--) {  in getinteger()
285     Uinttype mask = (Uinttype)(~((Uinttype)0)) << (size*8 - 1);  in getinteger()
303     size_t size = optsize(L, opt, &fmt);  in b_unpack()  local
304     pos += gettoalign(pos, &h, opt, size);  in b_unpack()
305     luaL_argcheck(L, pos+size <= ld, 2, "data string too short");  in b_unpack()
311         lua_Number res = getinteger(data+pos, h.endian, issigned, size);  in b_unpack()
320         memcpy(&f, data+pos, size);  in b_unpack()
327         memcpy(&d, data+pos, size);  in b_unpack()
333         if (size == 0) {  in b_unpack()
336           size = lua_tonumber(L, -1);  in b_unpack()
338           luaL_argcheck(L, pos+size <= ld, 2, "data string too short");  in b_unpack()
340         lua_pushlstring(L, data+pos, size);  in b_unpack()
347         size = (e - (data+pos)) + 1;  in b_unpack()
348         lua_pushlstring(L, data+pos, size - 1);  in b_unpack()
353     pos += size;  in b_unpack()
367     size_t size = optsize(L, opt, &fmt);  in b_size()  local
368     pos += gettoalign(pos, &h, opt, size);  in b_size()
371     else if (opt == 'c' && size == 0)  in b_size()
375     pos += size;  in b_size()