95 lines
3.3 KiB
C
95 lines
3.3 KiB
C
|
/*
|
||
|
|
** $Id: lundump.h,v 1.45.1.1 2017/04/19 17:20:42 roberto Exp $
|
||
|
|
** load precompiled Lua chunks
|
||
|
|
** See Copyright Notice in lua.h
|
||
|
|
*/
|
||
|
|
|
||
|
|
#ifndef lundump_h
|
||
|
|
#define lundump_h
|
||
|
|
|
||
|
|
#include "llimits.h"
|
||
|
|
#include "lobject.h"
|
||
|
|
#include "lzio.h"
|
||
|
|
|
||
|
|
/* These allow a multi=byte flag:1,type:3,data:4 packing in the tt byte */
|
||
|
|
#define LUAU_TNIL (0<<4)
|
||
|
|
#define LUAU_TBOOLEAN (1<<4)
|
||
|
|
#define LUAU_TNUMFLT (2<<4)
|
||
|
|
#define LUAU_TNUMPINT (3<<4)
|
||
|
|
#define LUAU_TNUMNINT (4<<4)
|
||
|
|
#define LUAU_TSSTRING (5<<4)
|
||
|
|
#define LUAU_TLSTRING (6<<4)
|
||
|
|
#define LUAU_TMASK (7<<4)
|
||
|
|
#define LUAU_DMASK 0x0f
|
||
|
|
|
||
|
|
|
||
|
|
/* data to catch conversion errors */
|
||
|
|
#define LUAC_DATA "\x19\x93\r\n\x1a\n"
|
||
|
|
|
||
|
|
#define LUAC_INT 0x5678
|
||
|
|
#define LUAC_NUM cast_num(370.5)
|
||
|
|
#define LUAC_FUNC_MARKER 0xFE
|
||
|
|
#define LUA_TNUMNINT (LUA_TNUMBER | (2 << 4)) /* negative integer numbers */
|
||
|
|
|
||
|
|
#define MYINT(s) (s[0]-'0')
|
||
|
|
#define LUAC_VERSION (MYINT(LUA_VERSION_MAJOR)*16+MYINT(LUA_VERSION_MINOR))
|
||
|
|
#define LUAC_FORMAT 10 /* this is the NodeMCU format */
|
||
|
|
#define LUAC_LFS_IMAGE_FORMAT 11
|
||
|
|
#define LUA_STRING_SIG "\x19ss"
|
||
|
|
#define LUA_PROTO_SIG "\x19pr"
|
||
|
|
#define LUA_HDR_BYTE '\x19'
|
||
|
|
/* load one chunk; from lundump.c */
|
||
|
|
LUAI_FUNC LClosure* luaU_undump (lua_State* L, ZIO* Z, const char* name);
|
||
|
|
|
||
|
|
/* dump one chunk; from ldump.c */
|
||
|
|
LUAI_FUNC int luaU_dump (lua_State* L, const Proto* f, lua_Writer w,
|
||
|
|
void* data, int strip);
|
||
|
|
LUAI_FUNC int luaU_DumpAllProtos(lua_State *L, const Proto *m, lua_Writer w,
|
||
|
|
void *data, int strip);
|
||
|
|
|
||
|
|
LUAI_FUNC int luaU_undumpLFS(lua_State *L, ZIO *Z, int isabs);
|
||
|
|
LUAI_FUNC int luaU_stripdebug (lua_State *L, Proto *f, int level, int recv);
|
||
|
|
|
||
|
|
typedef struct FlashHeader LFSHeader;
|
||
|
|
/*
|
||
|
|
** The LFSHeader uses offsets rather than pointers to avoid 32 vs 64 bit issues
|
||
|
|
** during host compilation. The offsets are in units of lu_int32's and NOT
|
||
|
|
** size_t, though clearly any internal pointers are of the size_t for the
|
||
|
|
** executing architectures: 4 or 8 byte. Likewise recources are size_t aligned
|
||
|
|
** so LFS regions built for 64-bit execution will have 4-byte alignment packing
|
||
|
|
** between resources.
|
||
|
|
*/
|
||
|
|
struct FlashHeader{
|
||
|
|
lu_int32 flash_sig; /* a standard fingerprint identifying an LFS image */
|
||
|
|
lu_int32 flash_size; /* Size of LFS image in bytes */
|
||
|
|
lu_int32 seed; /* random number seed used in LFS */
|
||
|
|
lu_int32 timestamp; /* timestamp of LFS build */
|
||
|
|
lu_int32 nROuse; /* number of elements in ROstrt */
|
||
|
|
lu_int32 nROsize; /* size of ROstrt */
|
||
|
|
lu_int32 oROhash; /* offset of TString ** ROstrt hash */
|
||
|
|
lu_int32 protoROTable; /* offset of master ROTable for proto lookup */
|
||
|
|
lu_int32 protoHead; /* offset of linked list of Protos in LFS */
|
||
|
|
lu_int32 shortTShead; /* offset of linked list of short TStrings in LFS */
|
||
|
|
lu_int32 longTShead; /* offset of linked list of long TStrings in LFS */
|
||
|
|
lu_int32 reserved;
|
||
|
|
};
|
||
|
|
|
||
|
|
#ifdef LUA_USE_HOST
|
||
|
|
extern void *LFSregion;
|
||
|
|
LUAI_FUNC void luaN_setabsolute(lu_int32 addr);
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#define FLASH_FORMAT_VERSION ( 2 << 8)
|
||
|
|
#define FLASH_SIG_B1 0x06
|
||
|
|
#define FLASH_SIG_B2 0x02
|
||
|
|
#define FLASH_SIG_PASS2 0x0F
|
||
|
|
#define FLASH_FORMAT_MASK 0xF00
|
||
|
|
#define FLASH_SIG_B2_MASK 0x04
|
||
|
|
#define FLASH_SIG_ABSOLUTE 0x01
|
||
|
|
#define FLASH_SIG_IN_PROGRESS 0x08
|
||
|
|
#define FLASH_SIG (0xfafaa050 | FLASH_FORMAT_VERSION)
|
||
|
|
|
||
|
|
#define FLASH_FORMAT_MASK 0xF00
|
||
|
|
|
||
|
|
#endif
|