diff options
Diffstat (limited to 'src/lua.js')
| -rw-r--r-- | src/lua.js | 348 |
1 files changed, 63 insertions, 285 deletions
@@ -1,288 +1,66 @@ /*jshint esversion: 6 */ "use strict"; -const assert = require('assert'); -const luaconf = require('./luaconf.js'); -const llimit = require('./llimit.js'); - -// To avoid charCodeAt everywhere -const char = []; -for (let i = 0; i < 127; i++) - char[String.fromCharCode(i)] = i; -module.exports.char = char; - -/* mark for precompiled code ('<esc>Lua') */ -const LUA_SIGNATURE = "\x1bLua"; - -const LUA_VERSION_MAJOR = "5"; -const LUA_VERSION_MINOR = "3"; -const LUA_VERSION_NUM = 503; -const LUA_VERSION_RELEASE = "4"; - -const LUA_VERSION = "Lua " + LUA_VERSION_MAJOR + "." + LUA_VERSION_MINOR; -const LUA_RELEASE = LUA_VERSION + "." + LUA_VERSION_RELEASE; -const LUA_COPYRIGHT = LUA_RELEASE + " Copyright (C) 1994-2017 Lua.org, PUC-Rio"; -const LUA_AUTHORS = "R. Ierusalimschy, L. H. de Figueiredo, W. Celes"; - -const FENGARI_VERSION_MAJOR = "0"; -const FENGARI_VERSION_MINOR = "0"; -const FENGARI_VERSION_NUM = 1; -const FENGARI_VERSION_RELEASE = "1"; - -const FENGARI_VERSION = "Fengari " + FENGARI_VERSION_MAJOR + "." + FENGARI_VERSION_MINOR; -const FENGARI_RELEASE = FENGARI_VERSION + "." + FENGARI_VERSION_RELEASE; -const FENGARI_COPYRIGHT = FENGARI_RELEASE + " Copyright (C) 2017 Benoît Giannangeli\nBased on: " + LUA_COPYRIGHT; -const FENGARI_AUTHORS = "B. Giannangeli"; - -const LUA_VERSUFFIX = "_" + LUA_VERSION_MAJOR + "_" + LUA_VERSION_MINOR; - -const LUA_INIT_VAR = "LUA_INIT"; -const LUA_INITVARVERSION = LUA_INIT_VAR + LUA_VERSUFFIX; - -const thread_status = { - LUA_OK: 0, - LUA_YIELD: 1, - LUA_ERRRUN: 2, - LUA_ERRSYNTAX: 3, - LUA_ERRMEM: 4, - LUA_ERRGCMM: 5, - LUA_ERRERR: 6 -}; - -const constant_types = { - LUA_TNONE: -1, - LUA_TNIL: 0, - LUA_TBOOLEAN: 1, - LUA_TLIGHTUSERDATA: 2, - LUA_TNUMBER: 3, - LUA_TSTRING: 4, - LUA_TTABLE: 5, - LUA_TFUNCTION: 6, - LUA_TUSERDATA: 7, - LUA_TTHREAD: 8, - LUA_NUMTAGS: 9 -}; - -constant_types.LUA_TSHRSTR = constant_types.LUA_TSTRING | (0 << 4); /* short strings */ -constant_types.LUA_TLNGSTR = constant_types.LUA_TSTRING | (1 << 4); /* long strings */ - -constant_types.LUA_TLIGHTUSERDATA_PTR = constant_types.LUA_TLIGHTUSERDATA | (0 << 4); /* short strings */ -constant_types.LUA_TLIGHTUSERDATA_OBJ = constant_types.LUA_TLIGHTUSERDATA | (1 << 4); /* long strings */ - -constant_types.LUA_TNUMFLT = constant_types.LUA_TNUMBER | (0 << 4); /* float numbers */ -constant_types.LUA_TNUMINT = constant_types.LUA_TNUMBER | (1 << 4); /* integer numbers */ - -constant_types.LUA_TLCL = constant_types.LUA_TFUNCTION | (0 << 4); /* Lua closure */ -constant_types.LUA_TLCF = constant_types.LUA_TFUNCTION | (1 << 4); /* light C function */ -constant_types.LUA_TCCL = constant_types.LUA_TFUNCTION | (2 << 4); /* C closure */ - -const CT = constant_types; - -/* -** Comparison and arithmetic functions -*/ - -const LUA_OPADD = 0; /* ORDER TM, ORDER OP */ -const LUA_OPSUB = 1; -const LUA_OPMUL = 2; -const LUA_OPMOD = 3; -const LUA_OPPOW = 4; -const LUA_OPDIV = 5; -const LUA_OPIDIV = 6; -const LUA_OPBAND = 7; -const LUA_OPBOR = 8; -const LUA_OPBXOR = 9; -const LUA_OPSHL = 10; -const LUA_OPSHR = 11; -const LUA_OPUNM = 12; -const LUA_OPBNOT = 13; - -const LUA_OPEQ = 0; -const LUA_OPLT = 1; -const LUA_OPLE = 2; - -const LUA_NUMTAGS = 9; -const LUA_MINSTACK = 20; - -const LUA_REGISTRYINDEX = -luaconf.LUAI_MAXSTACK - 1000; - -const lua_upvalueindex = function(i) { - return LUA_REGISTRYINDEX - i; -}; - -/* predefined values in the registry */ -const LUA_RIDX_MAINTHREAD = 1; -const LUA_RIDX_GLOBALS = 2; -const LUA_RIDX_LAST = LUA_RIDX_GLOBALS; - -const print_version = function() { - console.log(FENGARI_COPYRIGHT); -}; - -class lua_Debug { - - constructor() { - this.event = NaN; - this.name = null; /* (n) */ - this.namewhat = null; /* (n) 'global', 'local', 'field', 'method' */ - this.what = null; /* (S) 'Lua', 'C', 'main', 'tail' */ - this.source = null; /* (S) */ - this.currentline = NaN; /* (l) */ - this.linedefined = NaN; /* (S) */ - this.lastlinedefined = NaN; /* (S) */ - this.nups = NaN; /* (u) number of upvalues */ - this.nparams = NaN; /* (u) number of parameters */ - this.isvararg = NaN; /* (u) */ - this.istailcall = NaN; /* (t) */ - this.short_src = null; /* (S) */ - /* private part */ - this.i_ci = null; /* active function */ - } - -} - -const to_luastring_cache = {}; - -const to_luastring = function(str, cache, maxBytesToWrite) { - assert(typeof str === "string", "to_luastring expect a js string"); - - if (cache) { - let cached = to_luastring_cache[str]; - if (Array.isArray(cached)) return cached; - } - - maxBytesToWrite = maxBytesToWrite !== undefined ? maxBytesToWrite : llimit.MAX_INT; - let outU8Array = []; - - if (!(maxBytesToWrite > 0)) // Parameter maxBytesToWrite is not optional. Negative values, 0, null, undefined and false each don't write out any bytes. - return 0; - - let outIdx = 0; - let startIdx = 0; - let endIdx = maxBytesToWrite - 1; // -1 for string null terminator. - for (let i = 0; i < str.length; ++i) { - // Gotcha: charCodeAt returns a 16-bit word that is a UTF-16 encoded code unit, not a Unicode code point of the character! So decode UTF16->UTF32->UTF8. - // See http://unicode.org/faq/utf_bom.html#utf16-3 - // For UTF8 byte structure, see http://en.wikipedia.org/wiki/UTF-8#Description and https://www.ietf.org/rfc/rfc2279.txt and https://tools.ietf.org/html/rfc3629 - let u = str.charCodeAt(i); // possibly a lead surrogate - if (u >= 0xD800 && u <= 0xDFFF) u = 0x10000 + ((u & 0x3FF) << 10) | (str.charCodeAt(++i) & 0x3FF); - if (u <= 0x7F) { - if (outIdx >= endIdx) break; - outU8Array[outIdx++] = u; - } else if (u <= 0x7FF) { - if (outIdx + 1 >= endIdx) break; - outU8Array[outIdx++] = 0xC0 | (u >> 6); - outU8Array[outIdx++] = 0x80 | (u & 63); - } else if (u <= 0xFFFF) { - if (outIdx + 2 >= endIdx) break; - outU8Array[outIdx++] = 0xE0 | (u >> 12); - outU8Array[outIdx++] = 0x80 | ((u >> 6) & 63); - outU8Array[outIdx++] = 0x80 | (u & 63); - } else if (u <= 0x1FFFFF) { - if (outIdx + 3 >= endIdx) break; - outU8Array[outIdx++] = 0xF0 | (u >> 18); - outU8Array[outIdx++] = 0x80 | ((u >> 12) & 63); - outU8Array[outIdx++] = 0x80 | ((u >> 6) & 63); - outU8Array[outIdx++] = 0x80 | (u & 63); - } else if (u <= 0x3FFFFFF) { - if (outIdx + 4 >= endIdx) break; - outU8Array[outIdx++] = 0xF8 | (u >> 24); - outU8Array[outIdx++] = 0x80 | ((u >> 18) & 63); - outU8Array[outIdx++] = 0x80 | ((u >> 12) & 63); - outU8Array[outIdx++] = 0x80 | ((u >> 6) & 63); - outU8Array[outIdx++] = 0x80 | (u & 63); - } else { - if (outIdx + 5 >= endIdx) break; - outU8Array[outIdx++] = 0xFC | (u >> 30); - outU8Array[outIdx++] = 0x80 | ((u >> 24) & 63); - outU8Array[outIdx++] = 0x80 | ((u >> 18) & 63); - outU8Array[outIdx++] = 0x80 | ((u >> 12) & 63); - outU8Array[outIdx++] = 0x80 | ((u >> 6) & 63); - outU8Array[outIdx++] = 0x80 | (u & 63); - } - } - // Null-terminate the pointer to the buffer. - // outU8Array[outIdx] = 0; - - if (cache) to_luastring_cache[str] = outU8Array; - return outU8Array; -}; - -/* -** Event codes -*/ -const LUA_HOOKCALL = 0; -const LUA_HOOKRET = 1; -const LUA_HOOKLINE = 2; -const LUA_HOOKCOUNT = 3; -const LUA_HOOKTAILCALL = 4; - - -/* -** Event masks -*/ -const LUA_MASKCALL = (1 << LUA_HOOKCALL); -const LUA_MASKRET = (1 << LUA_HOOKRET); -const LUA_MASKLINE = (1 << LUA_HOOKLINE); -const LUA_MASKCOUNT = (1 << LUA_HOOKCOUNT); - -module.exports.CT = CT; -module.exports.FENGARI_AUTHORS = FENGARI_AUTHORS; -module.exports.FENGARI_COPYRIGHT = FENGARI_COPYRIGHT; -module.exports.FENGARI_RELEASE = FENGARI_RELEASE; -module.exports.FENGARI_VERSION = FENGARI_VERSION; -module.exports.FENGARI_VERSION_MAJOR = FENGARI_VERSION_MAJOR; -module.exports.FENGARI_VERSION_MINOR = FENGARI_VERSION_MINOR; -module.exports.FENGARI_VERSION_NUM = FENGARI_VERSION_NUM; -module.exports.FENGARI_VERSION_RELEASE = FENGARI_VERSION_RELEASE; -module.exports.LUA_AUTHORS = LUA_AUTHORS; -module.exports.LUA_COPYRIGHT = LUA_COPYRIGHT; -module.exports.LUA_HOOKCALL = LUA_HOOKCALL; -module.exports.LUA_HOOKCOUNT = LUA_HOOKCOUNT; -module.exports.LUA_HOOKLINE = LUA_HOOKLINE; -module.exports.LUA_HOOKRET = LUA_HOOKRET; -module.exports.LUA_HOOKTAILCALL = LUA_HOOKTAILCALL; -module.exports.LUA_INITVARVERSION = LUA_INITVARVERSION; -module.exports.LUA_INIT_VAR = LUA_INIT_VAR; -module.exports.LUA_MASKCALL = LUA_MASKCALL; -module.exports.LUA_MASKCOUNT = LUA_MASKCOUNT; -module.exports.LUA_MASKLINE = LUA_MASKLINE; -module.exports.LUA_MASKRET = LUA_MASKRET; -module.exports.LUA_MINSTACK = LUA_MINSTACK; -module.exports.LUA_MULTRET = -1; -module.exports.LUA_NUMTAGS = LUA_NUMTAGS; -module.exports.LUA_OPADD = LUA_OPADD; -module.exports.LUA_OPBAND = LUA_OPBAND; -module.exports.LUA_OPBNOT = LUA_OPBNOT; -module.exports.LUA_OPBOR = LUA_OPBOR; -module.exports.LUA_OPBXOR = LUA_OPBXOR; -module.exports.LUA_OPDIV = LUA_OPDIV; -module.exports.LUA_OPEQ = LUA_OPEQ; -module.exports.LUA_OPIDIV = LUA_OPIDIV; -module.exports.LUA_OPLE = LUA_OPLE; -module.exports.LUA_OPLT = LUA_OPLT; -module.exports.LUA_OPMOD = LUA_OPMOD; -module.exports.LUA_OPMUL = LUA_OPMUL; -module.exports.LUA_OPPOW = LUA_OPPOW; -module.exports.LUA_OPSHL = LUA_OPSHL; -module.exports.LUA_OPSHR = LUA_OPSHR; -module.exports.LUA_OPSUB = LUA_OPSUB; -module.exports.LUA_OPUNM = LUA_OPUNM; -module.exports.LUA_REGISTRYINDEX = LUA_REGISTRYINDEX; -module.exports.LUA_RELEASE = LUA_RELEASE; -module.exports.LUA_RIDX_GLOBALS = LUA_RIDX_GLOBALS; -module.exports.LUA_RIDX_LAST = LUA_RIDX_LAST; -module.exports.LUA_RIDX_MAINTHREAD = LUA_RIDX_MAINTHREAD; -module.exports.LUA_SIGNATURE = LUA_SIGNATURE; -module.exports.LUA_VERSION = LUA_VERSION; -module.exports.LUA_VERSION_MAJOR = LUA_VERSION_MAJOR; -module.exports.LUA_VERSION_MINOR = LUA_VERSION_MINOR; -module.exports.LUA_VERSION_NUM = LUA_VERSION_NUM; -module.exports.LUA_VERSION_RELEASE = LUA_VERSION_RELEASE; -module.exports.LUA_VERSUFFIX = LUA_VERSUFFIX; -module.exports.constant_types = constant_types; -module.exports.lua_Debug = lua_Debug; -module.exports.lua_upvalueindex = lua_upvalueindex; -module.exports.print_version = print_version; -module.exports.thread_status = thread_status; -module.exports.to_luastring = to_luastring; +const defs = require("./defs.js"); + +module.exports.char = defs.char; +module.exports.CT = defs.CT; +module.exports.FENGARI_AUTHORS = defs.FENGARI_AUTHORS; +module.exports.FENGARI_COPYRIGHT = defs.FENGARI_COPYRIGHT; +module.exports.FENGARI_RELEASE = defs.FENGARI_RELEASE; +module.exports.FENGARI_VERSION = defs.FENGARI_VERSION; +module.exports.FENGARI_VERSION_MAJOR = defs.FENGARI_VERSION_MAJOR; +module.exports.FENGARI_VERSION_MINOR = defs.FENGARI_VERSION_MINOR; +module.exports.FENGARI_VERSION_NUM = defs.FENGARI_VERSION_NUM; +module.exports.FENGARI_VERSION_RELEASE = defs.FENGARI_VERSION_RELEASE; +module.exports.LUA_AUTHORS = defs.LUA_AUTHORS; +module.exports.LUA_COPYRIGHT = defs.LUA_COPYRIGHT; +module.exports.LUA_HOOKCALL = defs.LUA_HOOKCALL; +module.exports.LUA_HOOKCOUNT = defs.LUA_HOOKCOUNT; +module.exports.LUA_HOOKLINE = defs.LUA_HOOKLINE; +module.exports.LUA_HOOKRET = defs.LUA_HOOKRET; +module.exports.LUA_HOOKTAILCALL = defs.LUA_HOOKTAILCALL; +module.exports.LUA_INITVARVERSION = defs.LUA_INITVARVERSION; +module.exports.LUA_INIT_VAR = defs.LUA_INIT_VAR; +module.exports.LUA_MASKCALL = defs.LUA_MASKCALL; +module.exports.LUA_MASKCOUNT = defs.LUA_MASKCOUNT; +module.exports.LUA_MASKLINE = defs.LUA_MASKLINE; +module.exports.LUA_MASKRET = defs.LUA_MASKRET; +module.exports.LUA_MINSTACK = defs.LUA_MINSTACK; +module.exports.LUA_MULTRET = defs.LUA_MULTRET; +module.exports.LUA_NUMTAGS = defs.LUA_NUMTAGS; +module.exports.LUA_OPADD = defs.LUA_OPADD; +module.exports.LUA_OPBAND = defs.LUA_OPBAND; +module.exports.LUA_OPBNOT = defs.LUA_OPBNOT; +module.exports.LUA_OPBOR = defs.LUA_OPBOR; +module.exports.LUA_OPBXOR = defs.LUA_OPBXOR; +module.exports.LUA_OPDIV = defs.LUA_OPDIV; +module.exports.LUA_OPEQ = defs.LUA_OPEQ; +module.exports.LUA_OPIDIV = defs.LUA_OPIDIV; +module.exports.LUA_OPLE = defs.LUA_OPLE; +module.exports.LUA_OPLT = defs.LUA_OPLT; +module.exports.LUA_OPMOD = defs.LUA_OPMOD; +module.exports.LUA_OPMUL = defs.LUA_OPMUL; +module.exports.LUA_OPPOW = defs.LUA_OPPOW; +module.exports.LUA_OPSHL = defs.LUA_OPSHL; +module.exports.LUA_OPSHR = defs.LUA_OPSHR; +module.exports.LUA_OPSUB = defs.LUA_OPSUB; +module.exports.LUA_OPUNM = defs.LUA_OPUNM; +module.exports.LUA_REGISTRYINDEX = defs.LUA_REGISTRYINDEX; +module.exports.LUA_RELEASE = defs.LUA_RELEASE; +module.exports.LUA_RIDX_GLOBALS = defs.LUA_RIDX_GLOBALS; +module.exports.LUA_RIDX_LAST = defs.LUA_RIDX_LAST; +module.exports.LUA_RIDX_MAINTHREAD = defs.LUA_RIDX_MAINTHREAD; +module.exports.LUA_SIGNATURE = defs.LUA_SIGNATURE; +module.exports.LUA_VERSION = defs.LUA_VERSION; +module.exports.LUA_VERSION_MAJOR = defs.LUA_VERSION_MAJOR; +module.exports.LUA_VERSION_MINOR = defs.LUA_VERSION_MINOR; +module.exports.LUA_VERSION_NUM = defs.LUA_VERSION_NUM; +module.exports.LUA_VERSION_RELEASE = defs.LUA_VERSION_RELEASE; +module.exports.LUA_VERSUFFIX = defs.LUA_VERSUFFIX; +module.exports.constant_types = defs.constant_types; +module.exports.lua_Debug = defs.lua_Debug; +module.exports.lua_upvalueindex = defs.lua_upvalueindex; +module.exports.print_version = defs.print_version; +module.exports.thread_status = defs.thread_status; +module.exports.to_luastring = defs.to_luastring; |