ldump.c File Reference

#include "lprefix.h"
#include <stddef.h>
#include "lua.h"
#include "lobject.h"
#include "lstate.h"
#include "lundump.h"

Go to the source code of this file.

Data Structures
struct	DumpState

Macros
#define	ldump_c
#define	LUA_CORE
#define	DumpVector(v, n, D)   DumpBlock(v,(n)*sizeof((v)[0]),D)
#define	DumpLiteral(s, D)   DumpBlock(s, sizeof(s) - sizeof(char), D)
#define	DumpVar(x, D)   DumpVector(&x,1,D)

Functions
static void	DumpBlock (const void *b, size_t size, DumpState *D)
static void	DumpByte (int y, DumpState *D)
static void	DumpInt (int x, DumpState *D)
static void	DumpNumber (lua_Number x, DumpState *D)
static void	DumpInteger (lua_Integer x, DumpState *D)
static void	DumpString (const TString *s, DumpState *D)
static void	DumpCode (const Proto *f, DumpState *D)
static void	DumpFunction (const Proto *f, TString *psource, DumpState *D)
static void	DumpConstants (const Proto *f, DumpState *D)
static void	DumpProtos (const Proto *f, DumpState *D)
static void	DumpUpvalues (const Proto *f, DumpState *D)
static void	DumpDebug (const Proto *f, DumpState *D)
static void	DumpHeader (DumpState *D)
int	luaU_dump (lua_State *L, const Proto *f, lua_Writer w, void *data, int strip)

Macro Definition Documentation

DumpLiteral

#define DumpLiteral	(		s,
			D )   DumpBlock(s, sizeof(s) - sizeof(char), D)

Definition at line 37 of file lua-5.3.6/src/ldump.c.

Referenced by DumpHeader().

DumpVar

#define DumpVar	(		x,
			D )   DumpVector(&x,1,D)

Definition at line 49 of file lua-5.3.6/src/ldump.c.

Referenced by DumpByte(), DumpInt(), DumpInteger(), DumpNumber(), and DumpString().

DumpVector

#define DumpVector	(		v,
			n,
			D )   DumpBlock(v,(n)*sizeof((v)[0]),D)

Definition at line 35 of file lua-5.3.6/src/ldump.c.

Referenced by DumpCode(), DumpDebug(), DumpDebug(), DumpDebug(), and DumpString().

ldump_c

#define ldump_c

Definition at line 7 of file lua-5.3.6/src/ldump.c.

LUA_CORE

#define LUA_CORE

Definition at line 8 of file lua-5.3.6/src/ldump.c.

Function Documentation

DumpBlock()

static void DumpBlock ( const void * b, size_t size, DumpState * D )

static

Definition at line 40 of file lua-5.3.6/src/ldump.c.

                                                                 {
  if (D->status == 0 && size > 0) {
    lua_unlock(D->L);
    D->status = (*D->writer)(D->L, b, size, D->data);
    lua_lock(D->L);
  }
}

References DumpState::data, DumpState::L, lua_lock, lua_unlock, DumpState::status, and DumpState::writer.

DumpByte()

static void DumpByte ( int y, DumpState * D )

static

Definition at line 52 of file lua-5.3.6/src/ldump.c.

                                           {
  lu_byte x = (lu_byte)y;
  DumpVar(x, D);
}

References DumpVar.

Referenced by DumpConstants(), DumpFunction(), DumpHeader(), DumpString(), DumpUpvalues(), and luaU_dump().

DumpCode()

static void DumpCode ( const Proto * f, DumpState * D )

static

Definition at line 90 of file lua-5.3.6/src/ldump.c.

                                                    {
  DumpInt(f->sizecode, D);
  DumpVector(f->code, f->sizecode, D);
}

References Proto::code, DumpInt(), DumpVector, and Proto::sizecode.

DumpConstants()

static void DumpConstants ( const Proto * f, DumpState * D )

static

Definition at line 98 of file lua-5.3.6/src/ldump.c.

                                                         {
  int i;
  int n = f->sizek;
  DumpInt(n, D);
  for (i = 0; i < n; i++) {
    const TValue *o = &f->k[i];
    DumpByte(ttype(o), D);
    switch (ttype(o)) {
    case LUA_TNIL:
      break;
    case LUA_TBOOLEAN:
      DumpByte(bvalue(o), D);
      break;
    case LUA_TNUMFLT:
      DumpNumber(fltvalue(o), D);
      break;
    case LUA_TNUMINT:
      DumpInteger(ivalue(o), D);
      break;
    case LUA_TSHRSTR:
    case LUA_TLNGSTR:
      DumpString(tsvalue(o), D);
      break;
    default:
      lua_assert(0);
    }
  }
}

References bvalue, DumpByte(), DumpInt(), DumpInteger(), DumpNumber(), DumpString(), fltvalue, ivalue, Proto::k, lua_assert, LUA_TBOOLEAN, LUA_TLNGSTR, LUA_TNIL, LUA_TNUMFLT, LUA_TNUMINT, LUA_TSHRSTR, Proto::sizek, tsvalue, and ttype.

Referenced by DumpFunction().

DumpDebug()

static void DumpDebug ( const Proto * f, DumpState * D )

static

Definition at line 147 of file lua-5.3.6/src/ldump.c.

                                                     {
  int i, n;
  n = (D->strip) ? 0 : f->sizelineinfo;
  DumpInt(n, D);
  DumpVector(f->lineinfo, n, D);
  n = (D->strip) ? 0 : f->sizelocvars;
  DumpInt(n, D);
  for (i = 0; i < n; i++) {
    DumpString(f->locvars[i].varname, D);
    DumpInt(f->locvars[i].startpc, D);
    DumpInt(f->locvars[i].endpc, D);
  }
  n = (D->strip) ? 0 : f->sizeupvalues;
  DumpInt(n, D);
  for (i = 0; i < n; i++)
    DumpString(f->upvalues[i].name, D);
}

References DumpInt(), DumpString(), DumpVector, LocVar::endpc, Proto::lineinfo, Proto::locvars, Proto::sizelineinfo, Proto::sizelocvars, Proto::sizeupvalues, LocVar::startpc, DumpState::strip, Proto::upvalues, and LocVar::varname.

Referenced by DumpFunction().

DumpFunction()

static void DumpFunction ( const Proto * f, TString * psource, DumpState * D )

static

Definition at line 166 of file lua-5.3.6/src/ldump.c.

                                                                          {
  if (D->strip || f->source == psource)
    DumpString(NULL, D);  /* no debug info or same source as its parent */
  else
    DumpString(f->source, D);
  DumpInt(f->linedefined, D);
  DumpInt(f->lastlinedefined, D);
  DumpByte(f->numparams, D);
  DumpByte(f->is_vararg, D);
  DumpByte(f->maxstacksize, D);
  DumpCode(f, D);
  DumpConstants(f, D);
  DumpUpvalues(f, D);
  DumpProtos(f, D);
  DumpDebug(f, D);
}

References DumpByte(), DumpCode, DumpConstants(), DumpDebug(), DumpInt(), DumpProtos(), DumpString(), DumpUpvalues(), Proto::is_vararg, Proto::lastlinedefined, Proto::linedefined, Proto::maxstacksize, NULL, Proto::numparams, Proto::source, and DumpState::strip.

Referenced by DumpProtos(), and luaU_dump().

DumpHeader()

static void DumpHeader ( DumpState * D )

static

Definition at line 184 of file lua-5.3.6/src/ldump.c.

                                      {
  DumpLiteral(LUA_SIGNATURE, D);
  DumpByte(LUAC_VERSION, D);
  DumpByte(LUAC_FORMAT, D);
  DumpLiteral(LUAC_DATA, D);
  DumpByte(sizeof(int), D);
  DumpByte(sizeof(size_t), D);
  DumpByte(sizeof(Instruction), D);
  DumpByte(sizeof(lua_Integer), D);
  DumpByte(sizeof(lua_Number), D);
  DumpInteger(LUAC_INT, D);
  DumpNumber(LUAC_NUM, D);
}

References DumpByte(), DumpInteger(), DumpLiteral, DumpNumber(), LUA_SIGNATURE, LUAC_DATA, LUAC_FORMAT, LUAC_INT, LUAC_NUM, and LUAC_VERSION.

Referenced by luaU_dump().

DumpInt()

static void DumpInt ( int x, DumpState * D )

static

Definition at line 58 of file lua-5.3.6/src/ldump.c.

                                          {
  DumpVar(x, D);
}

References DumpVar.

Referenced by DumpCode(), DumpConstants(), DumpDebug(), DumpFunction(), DumpProtos(), and DumpUpvalues().

DumpInteger()

static void DumpInteger ( lua_Integer x, DumpState * D )

static

Definition at line 68 of file lua-5.3.6/src/ldump.c.

                                                      {
  DumpVar(x, D);
}

References DumpVar.

Referenced by DumpConstants(), and DumpHeader().

DumpNumber()

static void DumpNumber ( lua_Number x, DumpState * D )

static

Definition at line 63 of file lua-5.3.6/src/ldump.c.

                                                    {
  DumpVar(x, D);
}

References DumpVar.

Referenced by DumpConstants(), and DumpHeader().

DumpProtos()

static void DumpProtos ( const Proto * f, DumpState * D )

static

Definition at line 128 of file lua-5.3.6/src/ldump.c.

                                                      {
  int i;
  int n = f->sizep;
  DumpInt(n, D);
  for (i = 0; i < n; i++)
    DumpFunction(f->p[i], f->source, D);
}

References DumpFunction(), DumpInt(), Proto::p, Proto::sizep, and Proto::source.

Referenced by DumpFunction().

DumpString()

static void DumpString ( const TString * s, DumpState * D )

static

Definition at line 73 of file lua-5.3.6/src/ldump.c.

                                                        {
  if (s == NULL)
    DumpByte(0, D);
  else {
    size_t size = tsslen(s) + 1;  /* include trailing '\0' */
    const char *str = getstr(s);
    if (size < 0xFF)
      DumpByte(cast_int(size), D);
    else {
      DumpByte(0xFF, D);
      DumpVar(size, D);
    }
    DumpVector(str, size - 1, D);  /* no need to save '\0' */
  }
}

References cast_int, DumpByte(), DumpVar, DumpVector, getstr, NULL, s, and tsslen.

Referenced by DumpConstants(), DumpDebug(), and DumpFunction().

DumpUpvalues()

static void DumpUpvalues ( const Proto * f, DumpState * D )

static

Definition at line 137 of file lua-5.3.6/src/ldump.c.

                                                        {
  int i, n = f->sizeupvalues;
  DumpInt(n, D);
  for (i = 0; i < n; i++) {
    DumpByte(f->upvalues[i].instack, D);
    DumpByte(f->upvalues[i].idx, D);
  }
}

References DumpByte(), DumpInt(), Proto::sizeupvalues, and Proto::upvalues.

Referenced by DumpFunction().

luaU_dump()

int luaU_dump	(	lua_State *	L,
		const Proto *	f,
		lua_Writer	w,
		void *	data,
		int	strip )

Definition at line 202 of file lua-5.3.6/src/ldump.c.

                         {
  DumpState D;
  D.L = L;
  D.writer = w;
  D.data = data;
  D.strip = strip;
  D.status = 0;
  DumpHeader(&D);
  DumpByte(f->sizeupvalues, &D);
  DumpFunction(f, NULL, &D);
  return D.status;
}

References DumpState::data, DumpByte(), DumpFunction(), DumpHeader(), DumpState::L, NULL, Proto::sizeupvalues, DumpState::status, DumpState::strip, and DumpState::writer.