135 static int gettoalign (size_t len, Header *h, int opt, size_t size) {  in gettoalign()  argument
136   if (size == 0 || opt == 'c') return 0;  in gettoalign()
137   if (size > (size_t)h->align)  in gettoalign()
138     size = h->align;  /* respect max. alignment */  in gettoalign()
139   return (size - (len & (size - 1))) & (size - 1);  in gettoalign()
168                         int size) {  in putinteger()  argument
178     for (i = 0; i < size; i++) {  in putinteger()
185     for (i = size - 1; i >= 0; i--) {  in putinteger()
190   luaL_addlstring(b, buff, size);  in putinteger()
194 static void correctbytes (char *b, int size, int endian) {  in correctbytes()  argument
197     while (i < --size) {  in correctbytes()
199       b[i++] = b[size];  in correctbytes()
200       b[size] = temp;  in correctbytes()
217     size_t size = optsize(L, opt, &fmt);  in b_pack()  local
218     int toalign = gettoalign(totalsize, &h, opt, size);  in b_pack()
224         putinteger(L, &b, arg++, h.endian, size);  in b_pack()
233         correctbytes((char *)&f, size, h.endian);  in b_pack()
234         luaL_addlstring(&b, (char *)&f, size);  in b_pack()
239         correctbytes((char *)&d, size, h.endian);  in b_pack()
240         luaL_addlstring(&b, (char *)&d, size);  in b_pack()
246         if (size == 0) size = l;  in b_pack()
247         luaL_argcheck(L, l >= (size_t)size, arg, "string too short");  in b_pack()
248         luaL_addlstring(&b, s, size);  in b_pack()
251           size++;  in b_pack()
257     totalsize += size;  in b_pack()
265                         int issigned, int size) {  in getinteger()  argument
269     for (i = 0; i < size; i++) {  in getinteger()
275     for (i = size - 1; i >= 0; i--) {  in getinteger()
283     Uinttype mask = (Uinttype)(~((Uinttype)0)) << (size*8 - 1);  in getinteger()
304     size_t size = optsize(L, opt, &fmt);  in b_unpack()  local
305     pos += gettoalign(pos, &h, opt, size);  in b_unpack()
306     luaL_argcheck(L, size <= ld && pos <= ld - size,  in b_unpack()
314         lua_Number res = getinteger(data+pos, h.endian, issigned, size);  in b_unpack()
323         memcpy(&f, data+pos, size);  in b_unpack()
330         memcpy(&d, data+pos, size);  in b_unpack()
336         if (size == 0) {  in b_unpack()
339           size = lua_tonumber(L, -1);  in b_unpack()
341           luaL_argcheck(L, size <= ld && pos <= ld - size,  in b_unpack()
344         lua_pushlstring(L, data+pos, size); n++;  in b_unpack()
351         size = (e - (data+pos)) + 1;  in b_unpack()
352         lua_pushlstring(L, data+pos, size - 1); n++;  in b_unpack()
357     pos += size;  in b_unpack()
371     size_t size = optsize(L, opt, &fmt);  in b_size()  local
372     pos += gettoalign(pos, &h, opt, size);  in b_size()
375     else if (opt == 'c' && size == 0)  in b_size()
379     pos += size;  in b_size()