#include <ctype.h>
#include <stdio.h>
#include "ldebug.h"
#include "lobject.h"
#include "lopcodes.h"
#include "lundump.h"

Macros
#define	luac_c

#define	LUA_CORE

#define	PrintFunction luaU_print

#define	Sizeof(x) ((int)sizeof(x))

#define	VOID(p) ((const void*)(p))

#define	SS(x) (x==1)?"":"s"

#define	S(x) x,SS(x)

Functions
static void	PrintString (const TString *ts)

static void	PrintConstant (const Proto *f, int i)

static void	PrintCode (const Proto *f)

static void	PrintHeader (const Proto *f)

static void	PrintConstants (const Proto *f)

static void	PrintLocals (const Proto *f)

static void	PrintUpvalues (const Proto *f)

void	PrintFunction (const Proto *f, int full)

Macro Definition Documentation

◆ LUA_CORE

#define LUA_CORE

Definition at line 11 of file print.c.

◆ luac_c

#define luac_c

Definition at line 10 of file print.c.

◆ PrintFunction

#define PrintFunction luaU_print

Definition at line 18 of file print.c.

Referenced by PrintFunction(), PrintFunction(), PrintFunction(), and PrintFunction().

◆ S

#define S ( x ) x,SS(x)

Definition at line 159 of file print.c.

Referenced by checkHeader(), checkHeader(), checkliteral(), checkliteral(), error(), error(), error(), error(), fchecksize(), fchecksize(), LoadBlock(), LoadBlock(), LoadBlock(), loadBlock(), LoadByte(), loadByte(), LoadChar(), LoadChar(), LoadCode(), LoadCode(), LoadCode(), loadCode(), LoadConstants(), LoadConstants(), LoadConstants(), loadConstants(), LoadDebug(), LoadDebug(), LoadDebug(), loadDebug(), LoadFunction(), LoadFunction(), loadFunction(), LoadFunction(), LoadHeader(), LoadHeader(), LoadInt(), LoadInt(), LoadInt(), loadInt(), LoadInteger(), loadInteger(), LoadNumber(), LoadNumber(), LoadNumber(), loadNumber(), LoadProtos(), loadProtos(), loadSize(), LoadString(), LoadString(), LoadString(), loadString(), loadStringN(), loadUnsigned(), LoadUpvalues(), LoadUpvalues(), loadUpvalues(), luaU_undump(), luaU_undump(), and PrintHeader().

◆ Sizeof

#define Sizeof ( x ) ((int)sizeof(x))

Definition at line 20 of file print.c.

Referenced by PrintHeader().

◆ SS

#define SS ( x ) (x==1)?"":"s"

Definition at line 158 of file print.c.

Referenced by PrintHeader().

◆ VOID

#define VOID ( p ) ((const void*)(p))

Definition at line 21 of file print.c.

Referenced by PrintCode(), PrintConstants(), PrintHeader(), PrintLocals(), and PrintUpvalues().

Function Documentation

◆ PrintCode()

static void PrintCode ( const Proto * f )

static

Definition at line 74 of file print.c.

{
 const Instruction* code=f->code;
 int pc,n=f->sizecode;
 for (pc=0; pc<n; pc++)
 {
  Instruction i=code[pc];
  OpCode o=GET_OPCODE(i);
  int a=GETARG_A(i);
  int b=GETARG_B(i);
  int c=GETARG_C(i);
  int bx=GETARG_Bx(i);
  int sbx=GETARG_sBx(i);
  int line=getline(f,pc);
  printf("\t%d\t",pc+1);
  if (line>0) printf("[%d]\t",line); else printf("[-]\t");
  printf("%-9s\t",luaP_opnames[o]);
  switch (getOpMode(o))
  {
   case iABC:
    printf("%d",a);
    if (getBMode(o)!=OpArgN) printf(" %d",ISK(b) ? (-1-INDEXK(b)) : b);
    if (getCMode(o)!=OpArgN) printf(" %d",ISK(c) ? (-1-INDEXK(c)) : c);
    break;
   case iABx:
    if (getBMode(o)==OpArgK) printf("%d %d",a,-1-bx); else printf("%d %d",a,bx);
    break;
   case iAsBx:
    if (o==OP_JMP) printf("%d",sbx); else printf("%d %d",a,sbx);
    break;
  }
  switch (o)
  {
   case OP_LOADK:
    printf("\t; "); PrintConstant(f,bx);
    break;
   case OP_GETUPVAL:
   case OP_SETUPVAL:
    printf("\t; %s", (f->sizeupvalues>0) ? getstr(f->upvalues[b]) : "-");
    break;
   case OP_GETGLOBAL:
   case OP_SETGLOBAL:
    printf("\t; %s",svalue(&f->k[bx]));
    break;
   case OP_GETTABLE:
   case OP_SELF:
    if (ISK(c)) { printf("\t; "); PrintConstant(f,INDEXK(c)); }
    break;
   case OP_SETTABLE:
   case OP_ADD:
   case OP_SUB:
   case OP_MUL:
   case OP_DIV:
   case OP_POW:
   case OP_EQ:
   case OP_LT:
   case OP_LE:
    if (ISK(b) || ISK(c))
    {
     printf("\t; ");
     if (ISK(b)) PrintConstant(f,INDEXK(b)); else printf("-");
     printf(" ");
     if (ISK(c)) PrintConstant(f,INDEXK(c)); else printf("-");
    }
    break;
   case OP_JMP:
   case OP_FORLOOP:
   case OP_FORPREP:
    printf("\t; to %d",sbx+pc+2);
    break;
   case OP_CLOSURE:
    printf("\t; %p",VOID(f->p[bx]));
    break;
   case OP_SETLIST:
    if (c==0) printf("\t; %d",(int)code[++pc]);
    else printf("\t; %d",c);
    break;
   default:
    break;
  }
  printf("\n");
 }
}

References Proto::code, GET_OPCODE, GETARG_A, GETARG_B, GETARG_Bx, GETARG_C, GETARG_sBx, getBMode, getCMode, getline, getOpMode, getstr, iABC, iABx, iAsBx, INDEXK, ISK, Proto::k, luaP_opnames, OP_ADD, OP_CLOSURE, OP_DIV, OP_EQ, OP_FORLOOP, OP_FORPREP, OP_GETGLOBAL, OP_GETTABLE, OP_GETUPVAL, OP_JMP, OP_LE, OP_LOADK, OP_LT, OP_MUL, OP_POW, OP_SELF, OP_SETGLOBAL, OP_SETLIST, OP_SETTABLE, OP_SETUPVAL, OP_SUB, OpArgK, OpArgN, Proto::p, PrintConstant(), printf, Proto::sizecode, Proto::sizeupvalues, svalue, Proto::upvalues, and VOID.

Referenced by PrintFunction().

◆ PrintConstant()

static void PrintConstant	(	const Proto *	f,
		int	i )

static

Definition at line 51 of file print.c.

{
 const TValue* o=&f->k[i];
 switch (ttype(o))
 {
  case LUA_TNIL:
    printf("nil");
    break;
  case LUA_TBOOLEAN:
    printf(bvalue(o) ? "true" : "false");
    break;
  case LUA_TNUMBER:
    printf(LUA_NUMBER_FMT,nvalue(o));
    break;
  case LUA_TSTRING:
    PrintString(rawtsvalue(o));
    break;
  default:              /* cannot happen */
    printf("? type=%d",ttype(o));
    break;
 }
}

References bvalue, Proto::k, LUA_NUMBER_FMT, LUA_TBOOLEAN, LUA_TNIL, LUA_TNUMBER, LUA_TSTRING, nvalue, printf, PrintString(), rawtsvalue, and ttype.

Referenced by PrintCode(), and PrintConstants().

◆ PrintConstants()

static void PrintConstants ( const Proto * f )

static

Definition at line 181 of file print.c.

{
 int i,n=f->sizek;
 printf("constants (%d) for %p:\n",n,VOID(f));
 for (i=0; i<n; i++)
 {
  printf("\t%d\t",i+1);
  PrintConstant(f,i);
  printf("\n");
 }
}

References PrintConstant(), printf, Proto::sizek, and VOID.

Referenced by PrintFunction().

◆ PrintFunction()

static void PrintFunction	(	const Proto *	f,
		int	full )

Definition at line 215 of file print.c.

{
 int i,n=f->sizep;
 PrintHeader(f);
 PrintCode(f);
 if (full)
 {
  PrintConstants(f);
  PrintLocals(f);
  PrintUpvalues(f);
 }
 for (i=0; i<n; i++) PrintFunction(f->p[i],full);
}

References Proto::p, PrintCode(), PrintConstants(), PrintFunction, PrintHeader(), PrintLocals(), PrintUpvalues(), and Proto::sizep.

◆ PrintHeader()

static void PrintHeader ( const Proto * f )

static

Definition at line 161 of file print.c.

{
 const char* s=getstr(f->source);
 if (*s=='@' || *s=='=')
  s++;
 else if (*s==LUA_SIGNATURE[0])
  s="(bstring)";
 else
  s="(string)";
 printf("\n%s <%s:%d,%d> (%d instruction%s, %d bytes at %p)\n",
    (f->linedefined==0)?"main":"function",s,
    f->linedefined,f->lastlinedefined,
    S(f->sizecode),f->sizecode*Sizeof(Instruction),VOID(f));
 printf("%d%s param%s, %d slot%s, %d upvalue%s, ",
    f->numparams,f->is_vararg?"+":"",SS(f->numparams),
    S(f->maxstacksize),S(f->nups));
 printf("%d local%s, %d constant%s, %d function%s\n",
    S(f->sizelocvars),S(f->sizek),S(f->sizep));
}

References getstr, Proto::is_vararg, Proto::lastlinedefined, Proto::linedefined, LUA_SIGNATURE, Proto::maxstacksize, Proto::numparams, Proto::nups, printf, S, s, Proto::sizecode, Proto::sizek, Proto::sizelocvars, Sizeof, Proto::sizep, Proto::source, SS, and VOID.

Referenced by PrintFunction().

◆ PrintLocals()

static void PrintLocals ( const Proto * f )

static

Definition at line 193 of file print.c.

{
 int i,n=f->sizelocvars;
 printf("locals (%d) for %p:\n",n,VOID(f));
 for (i=0; i<n; i++)
 {
  printf("\t%d\t%s\t%d\t%d\n",
  i,getstr(f->locvars[i].varname),f->locvars[i].startpc+1,f->locvars[i].endpc+1);
 }
}

References LocVar::endpc, getstr, Proto::locvars, printf, Proto::sizelocvars, LocVar::startpc, LocVar::varname, and VOID.

Referenced by PrintFunction().

◆ PrintString()

static void PrintString ( const TString * ts )

static

Definition at line 23 of file print.c.

{
 const char* s=getstr(ts);
 size_t i,n=ts->tsv.len;
 putchar('"');
 for (i=0; i<n; i++)
 {
  int c=s[i];
  switch (c)
  {
   case '"': printf("\\\""); break;
   case '\\': printf("\\\\"); break;
   case '\a': printf("\\a"); break;
   case '\b': printf("\\b"); break;
   case '\f': printf("\\f"); break;
   case '\n': printf("\\n"); break;
   case '\r': printf("\\r"); break;
   case '\t': printf("\\t"); break;
   case '\v': printf("\\v"); break;
   default: if (isprint((unsigned char)c))
            putchar(c);
        else
            printf("\\%03u",(unsigned char)c);
  }
 }
 putchar('"');
}

References getstr, TString::len, printf, s, and TString::tsv.

Referenced by PrintConstant().

◆ PrintUpvalues()

static void PrintUpvalues ( const Proto * f )

static

Definition at line 204 of file print.c.

{
 int i,n=f->sizeupvalues;
 printf("upvalues (%d) for %p:\n",n,VOID(f));
 if (f->upvalues==NULL) return;
 for (i=0; i<n; i++)
 {
  printf("\t%d\t%s\n",i,getstr(f->upvalues[i]));
 }
}

References getstr, NULL, printf, Proto::sizeupvalues, Proto::upvalues, and VOID.

Referenced by PrintFunction().

Macros

Functions

Macro Definition Documentation

◆ LUA_CORE

◆ luac_c

◆ PrintFunction

◆ S

◆ Sizeof

◆ SS

◆ VOID

Function Documentation

◆ PrintCode()

◆ PrintConstant()

◆ PrintConstants()

◆ PrintFunction()

◆ PrintHeader()

◆ PrintLocals()

◆ PrintString()

◆ PrintUpvalues()