40 #define dumpVector(D,v,n)	dumpBlock(D,v,(n)*sizeof((v)[0]))  argument
42 #define dumpLiteral(D, s)	dumpBlock(D,s,sizeof(s) - sizeof(char))  argument
45 static void dumpBlock (DumpState *D, const void *b, size_t size) {  in dumpBlock()  argument
46   if (D->status == 0 && size > 0) {  in dumpBlock()
47     lua_unlock(D->L);  in dumpBlock()
48     D->status = (*D->writer)(D->L, b, size, D->data);  in dumpBlock()
49     lua_lock(D->L);  in dumpBlock()
54 #define dumpVar(D,x)		dumpVector(D,&x,1)  argument
57 static void dumpByte (DumpState *D, int y) {  in dumpByte()  argument
59   dumpVar(D, x);  in dumpByte()
76 static void dumpSize (DumpState *D, size_t x) {  in dumpSize()  argument
84   dumpVector(D, buff + DIBS - n, n);  in dumpSize()
88 static void dumpInt (DumpState *D, int x) {  in dumpInt()  argument
89   dumpSize(D, x);  in dumpInt()
93 static void dumpNumber (DumpState *D, lua_Number x) {  in dumpNumber()  argument
94   dumpVar(D, x);  in dumpNumber()
98 static void dumpInteger (DumpState *D, lua_Integer x) {  in dumpInteger()  argument
99   dumpVar(D, x);  in dumpInteger()
103 static void dumpString (DumpState *D, const TString *s) {  in dumpString()  argument
105     dumpSize(D, 0);  in dumpString()
109     dumpSize(D, size + 1);  in dumpString()
110     dumpVector(D, str, size);  in dumpString()
115 static void dumpCode (DumpState *D, const Proto *f) {  in dumpCode()  argument
116   dumpInt(D, f->sizecode);  in dumpCode()
117   dumpVector(D, f->code, f->sizecode);  in dumpCode()
121 static void dumpFunction(DumpState *D, const Proto *f, TString *psource);
123 static void dumpConstants (DumpState *D, const Proto *f) {  in dumpConstants()  argument
126   dumpInt(D, n);  in dumpConstants()
130     dumpByte(D, tt);  in dumpConstants()
134         dumpNumber(D, fltvalue(o));  in dumpConstants()
138         dumpInteger(D, ivalue(o));  in dumpConstants()
142         dumpString(D, tsvalue(o));  in dumpConstants()
151 static void dumpProtos (DumpState *D, const Proto *f) {  in dumpProtos()  argument
154   dumpInt(D, n);  in dumpProtos()
156     dumpFunction(D, f->p[i], f->source);  in dumpProtos()
160 static void dumpUpvalues (DumpState *D, const Proto *f) {  in dumpUpvalues()  argument
162   dumpInt(D, n);  in dumpUpvalues()
164     dumpByte(D, f->upvalues[i].instack);  in dumpUpvalues()
165     dumpByte(D, f->upvalues[i].idx);  in dumpUpvalues()
166     dumpByte(D, f->upvalues[i].kind);  in dumpUpvalues()
171 static void dumpDebug (DumpState *D, const Proto *f) {  in dumpDebug()  argument
173   n = (D->strip) ? 0 : f->sizelineinfo;  in dumpDebug()
174   dumpInt(D, n);  in dumpDebug()
175   dumpVector(D, f->lineinfo, n);  in dumpDebug()
176   n = (D->strip) ? 0 : f->sizeabslineinfo;  in dumpDebug()
177   dumpInt(D, n);  in dumpDebug()
179     dumpInt(D, f->abslineinfo[i].pc);  in dumpDebug()
180     dumpInt(D, f->abslineinfo[i].line);  in dumpDebug()
182   n = (D->strip) ? 0 : f->sizelocvars;  in dumpDebug()
183   dumpInt(D, n);  in dumpDebug()
185     dumpString(D, f->locvars[i].varname);  in dumpDebug()
186     dumpInt(D, f->locvars[i].startpc);  in dumpDebug()
187     dumpInt(D, f->locvars[i].endpc);  in dumpDebug()
189   n = (D->strip) ? 0 : f->sizeupvalues;  in dumpDebug()
190   dumpInt(D, n);  in dumpDebug()
192     dumpString(D, f->upvalues[i].name);  in dumpDebug()
196 static void dumpFunction (DumpState *D, const Proto *f, TString *psource) {  in dumpFunction()  argument
197   if (D->strip || f->source == psource)  in dumpFunction()
198     dumpString(D, NULL);  /* no debug info or same source as its parent */  in dumpFunction()
200     dumpString(D, f->source);  in dumpFunction()
201   dumpInt(D, f->linedefined);  in dumpFunction()
202   dumpInt(D, f->lastlinedefined);  in dumpFunction()
203   dumpByte(D, f->numparams);  in dumpFunction()
204   dumpByte(D, f->is_vararg);  in dumpFunction()
205   dumpByte(D, f->maxstacksize);  in dumpFunction()
206   dumpCode(D, f);  in dumpFunction()
207   dumpConstants(D, f);  in dumpFunction()
208   dumpUpvalues(D, f);  in dumpFunction()
209   dumpProtos(D, f);  in dumpFunction()
210   dumpDebug(D, f);  in dumpFunction()
214 static void dumpHeader (DumpState *D) {  in dumpHeader()  argument
215   dumpLiteral(D, LUA_SIGNATURE);  in dumpHeader()
216   dumpByte(D, LUAC_VERSION);  in dumpHeader()
217   dumpByte(D, LUAC_FORMAT);  in dumpHeader()
218   dumpLiteral(D, LUAC_DATA);  in dumpHeader()
219   dumpByte(D, sizeof(Instruction));  in dumpHeader()
220   dumpByte(D, sizeof(lua_Integer));  in dumpHeader()
221   dumpByte(D, sizeof(lua_Number));  in dumpHeader()
222   dumpInteger(D, LUAC_INT);  in dumpHeader()
223   dumpNumber(D, LUAC_NUM);  in dumpHeader()
232   DumpState D;  in luaU_dump()  local
233   D.L = L;  in luaU_dump()
234   D.writer = w;  in luaU_dump()
235   D.data = data;  in luaU_dump()
236   D.strip = strip;  in luaU_dump()
237   D.status = 0;  in luaU_dump()
238   dumpHeader(&D);  in luaU_dump()
239   dumpByte(&D, f->sizeupvalues);  in luaU_dump()
240   dumpFunction(&D, f, NULL);  in luaU_dump()
241   return D.status;  in luaU_dump()