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