36 #define dumpVector(D,v,n)	dumpBlock(D,v,(n)*sizeof((v)[0]))  argument
38 #define dumpLiteral(D, s)	dumpBlock(D,s,sizeof(s) - sizeof(char))  argument
41 static void dumpBlock (DumpState *D, const void *b, size_t size) {  in dumpBlock()  argument
42   if (D->status == 0 && size > 0) {  in dumpBlock()
43     lua_unlock(D->L);  in dumpBlock()
44     D->status = (*D->writer)(D->L, b, size, D->data);  in dumpBlock()
45     lua_lock(D->L);  in dumpBlock()
50 #define dumpVar(D,x)		dumpVector(D,&x,1)  argument
53 static void dumpByte (DumpState *D, int y) {  in dumpByte()  argument
55   dumpVar(D, x);  in dumpByte()
65 static void dumpSize (DumpState *D, size_t x) {  in dumpSize()  argument
73   dumpVector(D, buff + DIBS - n, n);  in dumpSize()
77 static void dumpInt (DumpState *D, int x) {  in dumpInt()  argument
78   dumpSize(D, x);  in dumpInt()
82 static void dumpNumber (DumpState *D, lua_Number x) {  in dumpNumber()  argument
83   dumpVar(D, x);  in dumpNumber()
87 static void dumpInteger (DumpState *D, lua_Integer x) {  in dumpInteger()  argument
88   dumpVar(D, x);  in dumpInteger()
92 static void dumpString (DumpState *D, const TString *s) {  in dumpString()  argument
94     dumpSize(D, 0);  in dumpString()
98     dumpSize(D, size + 1);  in dumpString()
99     dumpVector(D, str, size);  in dumpString()
104 static void dumpCode (DumpState *D, const Proto *f) {  in dumpCode()  argument
105   dumpInt(D, f->sizecode);  in dumpCode()
106   dumpVector(D, f->code, f->sizecode);  in dumpCode()
110 static void dumpFunction(DumpState *D, const Proto *f, TString *psource);
112 static void dumpConstants (DumpState *D, const Proto *f) {  in dumpConstants()  argument
115   dumpInt(D, n);  in dumpConstants()
119     dumpByte(D, tt);  in dumpConstants()
122         dumpNumber(D, fltvalue(o));  in dumpConstants()
125         dumpInteger(D, ivalue(o));  in dumpConstants()
129         dumpString(D, tsvalue(o));  in dumpConstants()
138 static void dumpProtos (DumpState *D, const Proto *f) {  in dumpProtos()  argument
141   dumpInt(D, n);  in dumpProtos()
143     dumpFunction(D, f->p[i], f->source);  in dumpProtos()
147 static void dumpUpvalues (DumpState *D, const Proto *f) {  in dumpUpvalues()  argument
149   dumpInt(D, n);  in dumpUpvalues()
151     dumpByte(D, f->upvalues[i].instack);  in dumpUpvalues()
152     dumpByte(D, f->upvalues[i].idx);  in dumpUpvalues()
153     dumpByte(D, f->upvalues[i].kind);  in dumpUpvalues()
158 static void dumpDebug (DumpState *D, const Proto *f) {  in dumpDebug()  argument
160   n = (D->strip) ? 0 : f->sizelineinfo;  in dumpDebug()
161   dumpInt(D, n);  in dumpDebug()
162   dumpVector(D, f->lineinfo, n);  in dumpDebug()
163   n = (D->strip) ? 0 : f->sizeabslineinfo;  in dumpDebug()
164   dumpInt(D, n);  in dumpDebug()
166     dumpInt(D, f->abslineinfo[i].pc);  in dumpDebug()
167     dumpInt(D, f->abslineinfo[i].line);  in dumpDebug()
169   n = (D->strip) ? 0 : f->sizelocvars;  in dumpDebug()
170   dumpInt(D, n);  in dumpDebug()
172     dumpString(D, f->locvars[i].varname);  in dumpDebug()
173     dumpInt(D, f->locvars[i].startpc);  in dumpDebug()
174     dumpInt(D, f->locvars[i].endpc);  in dumpDebug()
176   n = (D->strip) ? 0 : f->sizeupvalues;  in dumpDebug()
177   dumpInt(D, n);  in dumpDebug()
179     dumpString(D, f->upvalues[i].name);  in dumpDebug()
183 static void dumpFunction (DumpState *D, const Proto *f, TString *psource) {  in dumpFunction()  argument
184   if (D->strip || f->source == psource)  in dumpFunction()
185     dumpString(D, NULL);  /* no debug info or same source as its parent */  in dumpFunction()
187     dumpString(D, f->source);  in dumpFunction()
188   dumpInt(D, f->linedefined);  in dumpFunction()
189   dumpInt(D, f->lastlinedefined);  in dumpFunction()
190   dumpByte(D, f->numparams);  in dumpFunction()
191   dumpByte(D, f->is_vararg);  in dumpFunction()
192   dumpByte(D, f->maxstacksize);  in dumpFunction()
193   dumpCode(D, f);  in dumpFunction()
194   dumpConstants(D, f);  in dumpFunction()
195   dumpUpvalues(D, f);  in dumpFunction()
196   dumpProtos(D, f);  in dumpFunction()
197   dumpDebug(D, f);  in dumpFunction()
201 static void dumpHeader (DumpState *D) {  in dumpHeader()  argument
202   dumpLiteral(D, LUA_SIGNATURE);  in dumpHeader()
203   dumpByte(D, LUAC_VERSION);  in dumpHeader()
204   dumpByte(D, LUAC_FORMAT);  in dumpHeader()
205   dumpLiteral(D, LUAC_DATA);  in dumpHeader()
206   dumpByte(D, sizeof(Instruction));  in dumpHeader()
207   dumpByte(D, sizeof(lua_Integer));  in dumpHeader()
208   dumpByte(D, sizeof(lua_Number));  in dumpHeader()
209   dumpInteger(D, LUAC_INT);  in dumpHeader()
210   dumpNumber(D, LUAC_NUM);  in dumpHeader()
219   DumpState D;  in luaU_dump()  local
220   D.L = L;  in luaU_dump()
221   D.writer = w;  in luaU_dump()
222   D.data = data;  in luaU_dump()
223   D.strip = strip;  in luaU_dump()
224   D.status = 0;  in luaU_dump()
225   dumpHeader(&D);  in luaU_dump()
226   dumpByte(&D, f->sizeupvalues);  in luaU_dump()
227   dumpFunction(&D, f, NULL);  in luaU_dump()
228   return D.status;  in luaU_dump()