root/src/lua/src/print.c

Revision 22d1941d0ca5ba7027cdfa51ce34bd1d8fb1931e, 4.8 kB (checked in by Theo Schlossnagle <jesus@omniti.com>, 6 years ago)

take the version out... it is what it is

  • Property mode set to 100644
Line 
1 /*
2 ** $Id: print.c,v 1.55a 2006/05/31 13:30:05 lhf Exp $
3 ** print bytecodes
4 ** See Copyright Notice in lua.h
5 */
6
7 #include <ctype.h>
8 #include <stdio.h>
9
10 #define luac_c
11 #define LUA_CORE
12
13 #include "ldebug.h"
14 #include "lobject.h"
15 #include "lopcodes.h"
16 #include "lundump.h"
17
18 #define PrintFunction   luaU_print
19
20 #define Sizeof(x)       ((int)sizeof(x))
21 #define VOID(p)         ((const void*)(p))
22
23 static void PrintString(const TString* ts)
24 {
25  const char* s=getstr(ts);
26  size_t i,n=ts->tsv.len;
27  putchar('"');
28  for (i=0; i<n; i++)
29  {
30   int c=s[i];
31   switch (c)
32   {
33    case '"': printf("\\\""); break;
34    case '\\': printf("\\\\"); break;
35    case '\a': printf("\\a"); break;
36    case '\b': printf("\\b"); break;
37    case '\f': printf("\\f"); break;
38    case '\n': printf("\\n"); break;
39    case '\r': printf("\\r"); break;
40    case '\t': printf("\\t"); break;
41    case '\v': printf("\\v"); break;
42    default:     if (isprint((unsigned char)c))
43                         putchar(c);
44                 else
45                         printf("\\%03u",(unsigned char)c);
46   }
47  }
48  putchar('"');
49 }
50
51 static void PrintConstant(const Proto* f, int i)
52 {
53  const TValue* o=&f->k[i];
54  switch (ttype(o))
55  {
56   case LUA_TNIL:
57         printf("nil");
58         break;
59   case LUA_TBOOLEAN:
60         printf(bvalue(o) ? "true" : "false");
61         break;
62   case LUA_TNUMBER:
63         printf(LUA_NUMBER_FMT,nvalue(o));
64         break;
65   case LUA_TSTRING:
66         PrintString(rawtsvalue(o));
67         break;
68   default:                              /* cannot happen */
69         printf("? type=%d",ttype(o));
70         break;
71  }
72 }
73
74 static void PrintCode(const Proto* f)
75 {
76  const Instruction* code=f->code;
77  int pc,n=f->sizecode;
78  for (pc=0; pc<n; pc++)
79  {
80   Instruction i=code[pc];
81   OpCode o=GET_OPCODE(i);
82   int a=GETARG_A(i);
83   int b=GETARG_B(i);
84   int c=GETARG_C(i);
85   int bx=GETARG_Bx(i);
86   int sbx=GETARG_sBx(i);
87   int line=getline(f,pc);
88   printf("\t%d\t",pc+1);
89   if (line>0) printf("[%d]\t",line); else printf("[-]\t");
90   printf("%-9s\t",luaP_opnames[o]);
91   switch (getOpMode(o))
92   {
93    case iABC:
94     printf("%d",a);
95     if (getBMode(o)!=OpArgN) printf(" %d",ISK(b) ? (-1-INDEXK(b)) : b);
96     if (getCMode(o)!=OpArgN) printf(" %d",ISK(c) ? (-1-INDEXK(c)) : c);
97     break;
98    case iABx:
99     if (getBMode(o)==OpArgK) printf("%d %d",a,-1-bx); else printf("%d %d",a,bx);
100     break;
101    case iAsBx:
102     if (o==OP_JMP) printf("%d",sbx); else printf("%d %d",a,sbx);
103     break;
104   }
105   switch (o)
106   {
107    case OP_LOADK:
108     printf("\t; "); PrintConstant(f,bx);
109     break;
110    case OP_GETUPVAL:
111    case OP_SETUPVAL:
112     printf("\t; %s", (f->sizeupvalues>0) ? getstr(f->upvalues[b]) : "-");
113     break;
114    case OP_GETGLOBAL:
115    case OP_SETGLOBAL:
116     printf("\t; %s",svalue(&f->k[bx]));
117     break;
118    case OP_GETTABLE:
119    case OP_SELF:
120     if (ISK(c)) { printf("\t; "); PrintConstant(f,INDEXK(c)); }
121     break;
122    case OP_SETTABLE:
123    case OP_ADD:
124    case OP_SUB:
125    case OP_MUL:
126    case OP_DIV:
127    case OP_POW:
128    case OP_EQ:
129    case OP_LT:
130    case OP_LE:
131     if (ISK(b) || ISK(c))
132     {
133      printf("\t; ");
134      if (ISK(b)) PrintConstant(f,INDEXK(b)); else printf("-");
135      printf(" ");
136      if (ISK(c)) PrintConstant(f,INDEXK(c)); else printf("-");
137     }
138     break;
139    case OP_JMP:
140    case OP_FORLOOP:
141    case OP_FORPREP:
142     printf("\t; to %d",sbx+pc+2);
143     break;
144    case OP_CLOSURE:
145     printf("\t; %p",VOID(f->p[bx]));
146     break;
147    case OP_SETLIST:
148     if (c==0) printf("\t; %d",(int)code[++pc]);
149     else printf("\t; %d",c);
150     break;
151    default:
152     break;
153   }
154   printf("\n");
155  }
156 }
157
158 #define SS(x)   (x==1)?"":"s"
159 #define S(x)    x,SS(x)
160
161 static void PrintHeader(const Proto* f)
162 {
163  const char* s=getstr(f->source);
164  if (*s=='@' || *s=='=')
165   s++;
166  else if (*s==LUA_SIGNATURE[0])
167   s="(bstring)";
168  else
169   s="(string)";
170  printf("\n%s <%s:%d,%d> (%d instruction%s, %d bytes at %p)\n",
171         (f->linedefined==0)?"main":"function",s,
172         f->linedefined,f->lastlinedefined,
173         S(f->sizecode),f->sizecode*Sizeof(Instruction),VOID(f));
174  printf("%d%s param%s, %d slot%s, %d upvalue%s, ",
175         f->numparams,f->is_vararg?"+":"",SS(f->numparams),
176         S(f->maxstacksize),S(f->nups));
177  printf("%d local%s, %d constant%s, %d function%s\n",
178         S(f->sizelocvars),S(f->sizek),S(f->sizep));
179 }
180
181 static void PrintConstants(const Proto* f)
182 {
183  int i,n=f->sizek;
184  printf("constants (%d) for %p:\n",n,VOID(f));
185  for (i=0; i<n; i++)
186  {
187   printf("\t%d\t",i+1);
188   PrintConstant(f,i);
189   printf("\n");
190  }
191 }
192
193 static void PrintLocals(const Proto* f)
194 {
195  int i,n=f->sizelocvars;
196  printf("locals (%d) for %p:\n",n,VOID(f));
197  for (i=0; i<n; i++)
198  {
199   printf("\t%d\t%s\t%d\t%d\n",
200   i,getstr(f->locvars[i].varname),f->locvars[i].startpc+1,f->locvars[i].endpc+1);
201  }
202 }
203
204 static void PrintUpvalues(const Proto* f)
205 {
206  int i,n=f->sizeupvalues;
207  printf("upvalues (%d) for %p:\n",n,VOID(f));
208  if (f->upvalues==NULL) return;
209  for (i=0; i<n; i++)
210  {
211   printf("\t%d\t%s\n",i,getstr(f->upvalues[i]));
212  }
213 }
214
215 void PrintFunction(const Proto* f, int full)
216 {
217  int i,n=f->sizep;
218  PrintHeader(f);
219  PrintCode(f);
220  if (full)
221  {
222   PrintConstants(f);
223   PrintLocals(f);
224   PrintUpvalues(f);
225  }
226  for (i=0; i<n; i++) PrintFunction(f->p[i],full);
227 }
Note: See TracBrowser for help on using the browser.