51 static void PrintConstant(const Proto* f, int i)  in PrintConstant()  argument
53  const TValue* o=&f->k[i];  in PrintConstant()
74 static void PrintCode(const Proto* f)  in PrintCode()  argument
76  const Instruction* code=f->code;  in PrintCode()
77  int pc,n=f->sizecode;  in PrintCode()
87   int line=getline(f,pc);  in PrintCode()
108     printf("\t; "); PrintConstant(f,bx);  in PrintCode()
112     printf("\t; %s", (f->sizeupvalues>0) ? getstr(f->upvalues[b]) : "-");  in PrintCode()
116     printf("\t; %s",svalue(&f->k[bx]));  in PrintCode()
120     if (ISK(c)) { printf("\t; "); PrintConstant(f,INDEXK(c)); }  in PrintCode()
134      if (ISK(b)) PrintConstant(f,INDEXK(b)); else printf("-");  in PrintCode()
136      if (ISK(c)) PrintConstant(f,INDEXK(c)); else printf("-");  in PrintCode()
145     printf("\t; %p",VOID(f->p[bx]));  in PrintCode()
161 static void PrintHeader(const Proto* f)  in PrintHeader()  argument
163  const char* s=getstr(f->source);  in PrintHeader()
171  	(f->linedefined==0)?"main":"function",s,  in PrintHeader()
172 	f->linedefined,f->lastlinedefined,  in PrintHeader()
173 	S(f->sizecode),f->sizecode*Sizeof(Instruction),VOID(f));  in PrintHeader()
175 	f->numparams,f->is_vararg?"+":"",SS(f->numparams),  in PrintHeader()
176 	S(f->maxstacksize),S(f->nups));  in PrintHeader()
178 	S(f->sizelocvars),S(f->sizek),S(f->sizep));  in PrintHeader()
181 static void PrintConstants(const Proto* f)  in PrintConstants()  argument
183  int i,n=f->sizek;  in PrintConstants()
184  printf("constants (%d) for %p:\n",n,VOID(f));  in PrintConstants()
188   PrintConstant(f,i);  in PrintConstants()
193 static void PrintLocals(const Proto* f)  in PrintLocals()  argument
195  int i,n=f->sizelocvars;  in PrintLocals()
196  printf("locals (%d) for %p:\n",n,VOID(f));  in PrintLocals()
200   i,getstr(f->locvars[i].varname),f->locvars[i].startpc+1,f->locvars[i].endpc+1);  in PrintLocals()
204 static void PrintUpvalues(const Proto* f)  in PrintUpvalues()  argument
206  int i,n=f->sizeupvalues;  in PrintUpvalues()
207  printf("upvalues (%d) for %p:\n",n,VOID(f));  in PrintUpvalues()
208  if (f->upvalues==NULL) return;  in PrintUpvalues()
211   printf("\t%d\t%s\n",i,getstr(f->upvalues[i]));  in PrintUpvalues()
215 void PrintFunction(const Proto* f, int full)  in PrintFunction()  argument
217  int i,n=f->sizep;  in PrintFunction()
218  PrintHeader(f);  in PrintFunction()
219  PrintCode(f);  in PrintFunction()
222   PrintConstants(f);  in PrintFunction()
223   PrintLocals(f);  in PrintFunction()
224   PrintUpvalues(f);  in PrintFunction()
226  for (i=0; i<n; i++) PrintFunction(f->p[i],full);  in PrintFunction()