130 lines
4.7 KiB
C
130 lines
4.7 KiB
C
|
/*
|
||
|
* NodeMCU extensions to Lua for readonly Flash memory support
|
||
|
*/
|
||
|
#ifndef lnodemcu_h
|
||
|
#define lnodemcu_h
|
||
|
|
||
|
#include "lua.h"
|
||
|
#include "lobject.h"
|
||
|
#include "llimits.h"
|
||
|
#include "ltm.h"
|
||
|
|
||
|
#ifdef LUA_USE_HOST
|
||
|
#define LRO_STRKEY(k) k
|
||
|
#define LOCK_IN_SECTION(s)
|
||
|
#else
|
||
|
#define LRO_STRKEY(k) ((STORE_ATTR char *) k)
|
||
|
#define LOCK_IN_SECTION(s) __attribute__((used,unused,section(".lua_" #s)))
|
||
|
#endif
|
||
|
|
||
|
/* Macros used to declare rotable entries */
|
||
|
|
||
|
#define LRO_FUNCVAL(v) {{.f = v}, LUA_TLCF}
|
||
|
#define LRO_LUDATA(v) {{.p = (void *) v}, LUA_TLIGHTUSERDATA}
|
||
|
#define LRO_NILVAL {{.p = NULL}, LUA_TNIL}
|
||
|
#define LRO_NUMVAL(v) {{.i = v}, LUA_TNUMINT}
|
||
|
#define LRO_INTVAL(v) LRO_NUMVAL(v)
|
||
|
#define LRO_FLOATVAL(v) {{.n = v}, LUA_TNUMFLT}
|
||
|
#define LRO_ROVAL(v) {{.gc = cast(GCObject *, &(v ## _ROTable))}, LUA_TTBLROF}
|
||
|
|
||
|
#define LROT_MARKED 0 //<<<<<<<<<<*** TBD *** >>>>>>>>>>>
|
||
|
|
||
|
#define LROT_FUNCENTRY(n,f) {LRO_STRKEY(#n), LRO_FUNCVAL(f)},
|
||
|
#define LROT_LUDENTRY(n,x) {LRO_STRKEY(#n), LRO_LUDATA(x)},
|
||
|
#define LROT_NUMENTRY(n,x) {LRO_STRKEY(#n), LRO_NUMVAL(x)},
|
||
|
#define LROT_INTENTRY(n,x) LROT_NUMENTRY(n,x)
|
||
|
#define LROT_FLOATENTRY(n,x) {LRO_STRKEY(#n), LRO_FLOATVAL(x)},
|
||
|
#define LROT_TABENTRY(n,t) {LRO_STRKEY(#n), LRO_ROVAL(t)},
|
||
|
|
||
|
#define LROT_TABLE(rt) const ROTable rt ## _ROTable
|
||
|
#define LROT_ENTRYREF(rt) (rt ##_entries)
|
||
|
#define LROT_TABLEREF(rt) (&rt ##_ROTable)
|
||
|
#define LROT_BEGIN(rt,mt,f) LROT_TABLE(rt); \
|
||
|
static const ROTable_entry rt ## _entries[] = {
|
||
|
#define LROT_ENTRIES_IN_SECTION(rt,s) \
|
||
|
static const ROTable_entry LOCK_IN_SECTION(s) rt ## _entries[] = {
|
||
|
#define LROT_END(rt,mt,f) {NULL, LRO_NILVAL} }; \
|
||
|
const ROTable rt ## _ROTable = { \
|
||
|
(GCObject *)1,LUA_TTBLROF, LROT_MARKED, \
|
||
|
cast(lu_byte, ~(f)), (sizeof(rt ## _entries)/sizeof(ROTable_entry)) - 1, \
|
||
|
cast(Table *, mt), cast(ROTable_entry *, rt ## _entries) };
|
||
|
#define LROT_BREAK(rt) };
|
||
|
|
||
|
#define LROT_MASK(m) cast(lu_byte, 1<<TM_ ## m)
|
||
|
|
||
|
/*
|
||
|
* These are statically coded can be any combination of the fast index tags
|
||
|
* listed in ltm.h: EQ, GC, INDEX, LEN, MODE, NEWINDEX or combined by anding
|
||
|
* GC+INDEX is the only common combination used, hence the combinaton macro
|
||
|
*/
|
||
|
#define LROT_MASK_EQ LROT_MASK(EQ)
|
||
|
#define LROT_MASK_GC LROT_MASK(GC)
|
||
|
#define LROT_MASK_INDEX LROT_MASK(INDEX)
|
||
|
#define LROT_MASK_LEN LROT_MASK(LEN)
|
||
|
#define LROT_MASK_MODE LROT_MASK(MODE)
|
||
|
#define LROT_MASK_NEWINDEX LROT_MASK(NEWINDEX)
|
||
|
#define LROT_MASK_GC_INDEX (LROT_MASK_GC | LROT_MASK_INDEX)
|
||
|
|
||
|
/* Maximum length of a rotable name and of a string key*/
|
||
|
#define LUA_MAX_ROTABLE_NAME 32
|
||
|
|
||
|
#ifdef LUA_CORE
|
||
|
|
||
|
#include "lstate.h"
|
||
|
#include "lzio.h"
|
||
|
|
||
|
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
|
||
|
|
||
|
LUAI_FUNC int luaN_init (lua_State *L);
|
||
|
LUAI_FUNC int luaN_flashSetup (lua_State *L);
|
||
|
|
||
|
LUAI_FUNC int luaN_reload_reboot (lua_State *L);
|
||
|
LUAI_FUNC int luaN_index (lua_State *L);
|
||
|
|
||
|
LUAI_FUNC void *luaN_writeFlash (void *data, const void *rec, size_t n);
|
||
|
LUAI_FUNC void luaN_flushFlash (void *);
|
||
|
LUAI_FUNC void luaN_setFlash (void *, unsigned int o);
|
||
|
|
||
|
|
||
|
#endif
|
||
|
#endif
|