35 #define dumpVector(D,v,n)	dumpBlock(D,v,(n)*sizeof((v)[0]))  argument
37 #define dumpLiteral(D, s)	dumpBlock(D,s,sizeof(s) - sizeof(char))  argument
40 static void dumpBlock (DumpState *D, const void *b, size_t size) {  in dumpBlock()  argument
41   if (D->status == 0 && size > 0) {  in dumpBlock()
42     lua_unlock(D->L);  in dumpBlock()
43     D->status = (*D->writer)(D->L, b, size, D->data);  in dumpBlock()
44     lua_lock(D->L);  in dumpBlock()
49 #define dumpVar(D,x)		dumpVector(D,&x,1)  argument
52 static void dumpByte (DumpState *D, int y) {  in dumpByte()  argument
54   dumpVar(D, x);  in dumpByte()
61 static void dumpSize (DumpState *D, size_t x) {  in dumpSize()  argument
69   dumpVector(D, buff + DIBS - n, n);  in dumpSize()
73 static void dumpInt (DumpState *D, int x) {  in dumpInt()  argument
74   dumpSize(D, x);  in dumpInt()
78 static void dumpNumber (DumpState *D, lua_Number x) {  in dumpNumber()  argument
79   dumpVar(D, x);  in dumpNumber()
83 static void dumpInteger (DumpState *D, lua_Integer x) {  in dumpInteger()  argument
84   dumpVar(D, x);  in dumpInteger()
88 static void dumpString (DumpState *D, const TString *s) {  in dumpString()  argument
90     dumpSize(D, 0);  in dumpString()
94     dumpSize(D, size + 1);  in dumpString()
95     dumpVector(D, str, size);  in dumpString()
100 static void dumpCode (DumpState *D, const Proto *f) {  in dumpCode()  argument
101   dumpInt(D, f->sizecode);  in dumpCode()
102   dumpVector(D, f->code, f->sizecode);  in dumpCode()
106 static void dumpFunction(DumpState *D, const Proto *f, TString *psource);
108 static void dumpConstants (DumpState *D, const Proto *f) {  in dumpConstants()  argument
111   dumpInt(D, n);  in dumpConstants()
115     dumpByte(D, tt);  in dumpConstants()
118         dumpNumber(D, fltvalue(o));  in dumpConstants()
121         dumpInteger(D, ivalue(o));  in dumpConstants()
125         dumpString(D, tsvalue(o));  in dumpConstants()
134 static void dumpProtos (DumpState *D, const Proto *f) {  in dumpProtos()  argument
137   dumpInt(D, n);  in dumpProtos()
139     dumpFunction(D, f->p[i], f->source);  in dumpProtos()
143 static void dumpUpvalues (DumpState *D, const Proto *f) {  in dumpUpvalues()  argument
145   dumpInt(D, n);  in dumpUpvalues()
147     dumpByte(D, f->upvalues[i].instack);  in dumpUpvalues()
148     dumpByte(D, f->upvalues[i].idx);  in dumpUpvalues()
149     dumpByte(D, f->upvalues[i].kind);  in dumpUpvalues()
154 static void dumpDebug (DumpState *D, const Proto *f) {  in dumpDebug()  argument
156   n = (D->strip) ? 0 : f->sizelineinfo;  in dumpDebug()
157   dumpInt(D, n);  in dumpDebug()
158   dumpVector(D, f->lineinfo, n);  in dumpDebug()
159   n = (D->strip) ? 0 : f->sizeabslineinfo;  in dumpDebug()
160   dumpInt(D, n);  in dumpDebug()
162     dumpInt(D, f->abslineinfo[i].pc);  in dumpDebug()
163     dumpInt(D, f->abslineinfo[i].line);  in dumpDebug()
165   n = (D->strip) ? 0 : f->sizelocvars;  in dumpDebug()
166   dumpInt(D, n);  in dumpDebug()
168     dumpString(D, f->locvars[i].varname);  in dumpDebug()
169     dumpInt(D, f->locvars[i].startpc);  in dumpDebug()
170     dumpInt(D, f->locvars[i].endpc);  in dumpDebug()
172   n = (D->strip) ? 0 : f->sizeupvalues;  in dumpDebug()
173   dumpInt(D, n);  in dumpDebug()
175     dumpString(D, f->upvalues[i].name);  in dumpDebug()
179 static void dumpFunction (DumpState *D, const Proto *f, TString *psource) {  in dumpFunction()  argument
180   if (D->strip || f->source == psource)  in dumpFunction()
181     dumpString(D, NULL);  /* no debug info or same source as its parent */  in dumpFunction()
183     dumpString(D, f->source);  in dumpFunction()
184   dumpInt(D, f->linedefined);  in dumpFunction()
185   dumpInt(D, f->lastlinedefined);  in dumpFunction()
186   dumpByte(D, f->numparams);  in dumpFunction()
187   dumpByte(D, f->is_vararg);  in dumpFunction()
188   dumpByte(D, f->maxstacksize);  in dumpFunction()
189   dumpCode(D, f);  in dumpFunction()
190   dumpConstants(D, f);  in dumpFunction()
191   dumpUpvalues(D, f);  in dumpFunction()
192   dumpProtos(D, f);  in dumpFunction()
193   dumpDebug(D, f);  in dumpFunction()
197 static void dumpHeader (DumpState *D) {  in dumpHeader()  argument
198   dumpLiteral(D, LUA_SIGNATURE);  in dumpHeader()
199   dumpByte(D, LUAC_VERSION);  in dumpHeader()
200   dumpByte(D, LUAC_FORMAT);  in dumpHeader()
201   dumpLiteral(D, LUAC_DATA);  in dumpHeader()
202   dumpByte(D, sizeof(Instruction));  in dumpHeader()
203   dumpByte(D, sizeof(lua_Integer));  in dumpHeader()
204   dumpByte(D, sizeof(lua_Number));  in dumpHeader()
205   dumpInteger(D, LUAC_INT);  in dumpHeader()
206   dumpNumber(D, LUAC_NUM);  in dumpHeader()
215   DumpState D;  in luaU_dump()  local
216   D.L = L;  in luaU_dump()
217   D.writer = w;  in luaU_dump()
218   D.data = data;  in luaU_dump()
219   D.strip = strip;  in luaU_dump()
220   D.status = 0;  in luaU_dump()
221   dumpHeader(&D);  in luaU_dump()
222   dumpByte(&D, f->sizeupvalues);  in luaU_dump()
223   dumpFunction(&D, f, NULL);  in luaU_dump()
224   return D.status;  in luaU_dump()