summaryrefslogtreecommitdiff
path: root/src/lauxlib.js
diff options
context:
space:
mode:
authorBenoit Giannangeli <giann008@gmail.com>2017-08-01 11:04:26 +0200
committerBenoit Giannangeli <giann008@gmail.com>2017-08-10 08:48:22 +0200
commitc2c95f23d0a9adeb6a7c473461e74cfbbf8307eb (patch)
tree9950ff981e8ec23b2cc491455bcd2c67f418042a /src/lauxlib.js
parent2211f8883ed4e2d8ac6ab20129b3d5954b2fd4fc (diff)
downloadfengari-c2c95f23d0a9adeb6a7c473461e74cfbbf8307eb.tar.gz
fengari-c2c95f23d0a9adeb6a7c473461e74cfbbf8307eb.tar.bz2
fengari-c2c95f23d0a9adeb6a7c473461e74cfbbf8307eb.zip
Web require searcher
Diffstat (limited to 'src/lauxlib.js')
-rw-r--r--src/lauxlib.js185
1 files changed, 125 insertions, 60 deletions
diff --git a/src/lauxlib.js b/src/lauxlib.js
index 2f86720..0db125e 100644
--- a/src/lauxlib.js
+++ b/src/lauxlib.js
@@ -644,7 +644,60 @@ const luaL_unref = function(L, t, ref) {
}
};
-// Only with Node
+
+const errfile = function(L, what, fnameindex, error) {
+ let serr = error.message;
+ let filename = lua.lua_tostring(L, fnameindex).slice(1);
+ lua.lua_pushstring(L, lua.to_luastring(`cannot ${what} ${lua.to_jsstring(filename)}: ${serr}`));
+ lua.lua_remove(L, fnameindex);
+ return lua.LUA_ERRFILE;
+};
+
+let getc;
+
+const utf8_bom = [0XEF, 0XBB, 0XBF]; /* UTF-8 BOM mark */
+const skipBOM = function(lf) {
+ lf.n = 0;
+ let c;
+ let p = 0;
+ do {
+ c = getc(lf);
+ if (c === null || c !== utf8_bom[p]) return c;
+ p++;
+ lf.buff[lf.n++] = c; /* to be read by the parser */
+ } while (p < utf8_bom.length);
+ lf.n = 0; /* prefix matched; discard it */
+ return getc(lf); /* return next character */
+};
+
+/*
+** reads the first character of file 'f' and skips an optional BOM mark
+** in its beginning plus its first line if it starts with '#'. Returns
+** true if it skipped the first line. In any case, '*cp' has the
+** first "valid" character of the file (after the optional BOM and
+** a first-line comment).
+*/
+const skipcomment = function(lf) {
+ let c = skipBOM(lf);
+ if (c === '#'.charCodeAt(0)) { /* first line is a comment (Unix exec. file)? */
+ do { /* skip first line */
+ c = getc(lf);
+ } while (c && c !== '\n'.charCodeAt(0));
+
+ return {
+ skipped: true,
+ c: getc(lf) /* skip end-of-line, if present */
+ };
+ } else {
+ return {
+ skipped: false,
+ c: c
+ };
+ }
+};
+
+let luaL_loadfilex;
+
if (!WEB) {
const fs = require('fs');
@@ -679,63 +732,14 @@ if (!WEB) {
else return null;
};
- const errfile = function(L, what, fnameindex, error) {
- let serr = error.message;
- let filename = lua.lua_tostring(L, fnameindex).slice(1);
- lua.lua_pushstring(L, lua.to_luastring(`cannot ${what} ${lua.to_jsstring(filename)}: ${serr}`));
- lua.lua_remove(L, fnameindex);
- return lua.LUA_ERRFILE;
- };
-
- const getc = function(lf) {
+ getc = function(lf) {
let b = new Buffer(1);
let bytes = fs.readSync(lf.f, b, 0, 1, lf.pos);
lf.pos += bytes;
return bytes > 0 ? b.readUInt8() : null;
};
- const utf8_bom = [0XEF, 0XBB, 0XBF]; /* UTF-8 BOM mark */
- const skipBOM = function(lf) {
- lf.n = 0;
- let c;
- let p = 0;
- do {
- c = getc(lf);
- if (c === null || c !== utf8_bom[p]) return c;
- p++;
- lf.buff[lf.n++] = c; /* to be read by the parser */
- } while (p < utf8_bom.length);
- lf.n = 0; /* prefix matched; discard it */
- return getc(lf); /* return next character */
- };
-
- /*
- ** reads the first character of file 'f' and skips an optional BOM mark
- ** in its beginning plus its first line if it starts with '#'. Returns
- ** true if it skipped the first line. In any case, '*cp' has the
- ** first "valid" character of the file (after the optional BOM and
- ** a first-line comment).
- */
- const skipcomment = function(lf) {
- let c = skipBOM(lf);
- if (c === '#'.charCodeAt(0)) { /* first line is a comment (Unix exec. file)? */
- do { /* skip first line */
- c = getc(lf);
- } while (c && c !== '\n'.charCodeAt(0));
-
- return {
- skipped: true,
- c: getc(lf) /* skip end-of-line, if present */
- };
- } else {
- return {
- skipped: false,
- c: c
- };
- }
- };
-
- const luaL_loadfilex = function(L, filename, mode) {
+ luaL_loadfilex = function(L, filename, mode) {
let lf = new LoadF();
let fnameindex = lua.lua_gettop(L) + 1; /* index of filename on the stack */
if (filename === null) {
@@ -743,7 +747,7 @@ if (!WEB) {
lf.f = process.stdin.fd;
} else {
let jsfilename = lua.to_jsstring(filename);
- lua.lua_pushliteral(L, `@${jsfilename}`);
+ lua.lua_pushfstring(L, "@%s", filename);
try {
lf.f = fs.openSync(jsfilename, "r");
if (!fs.fstatSync(lf.f).isFile())
@@ -771,20 +775,81 @@ if (!WEB) {
lua.lua_remove(L, fnameindex);
return status;
};
+} else {
+ class LoadF {
+ constructor() {
+ this.n = NaN; /* number of pre-read characters */
+ this.f = null; /* file being read */
+ this.buff = new Buffer(1024); /* area for reading file */
+ this.pos = 0; /* current position in file */
+ this.err = void 0;
+ }
+ }
- const luaL_loadfile = function(L, filename) {
- return luaL_loadfilex(L, filename, null);
+ const getF = function(L, ud) {
+ let lf = ud;
+ let dv = lf.f instanceof Uint8Array ? new DataView(new ArrayBuffer(lf.f)) : null;
+ lf.f = null;
+ return dv;
};
- const luaL_dofile = function(L, filename) {
- return (luaL_loadfile(L, filename) || lua.lua_pcall(L, 0, lua.LUA_MULTRET, 0));
+ getc = function(lf) {
+ return lf.pos < lf.f.length ? lf.f[lf.pos++] : null;
};
- module.exports.luaL_dofile = luaL_dofile;
- module.exports.luaL_loadfilex = luaL_loadfilex;
- module.exports.luaL_loadfile = luaL_loadfile;
+ luaL_loadfilex = function(L, filename, mode) {
+ let lf = new LoadF();
+ let fnameindex = lua.lua_gettop(L) + 1; /* index of filename on the stack */
+ if (filename === null) {
+ throw new Error("Can't read stdin in the browser");
+ } else {
+ let jsfilename = lua.to_jsstring(filename);
+ lua.lua_pushliteral(L, `@${jsfilename}`);
+
+ let xhr = new XMLHttpRequest();
+ xhr.open("GET", jsfilename, false);
+ xhr.responseType = "arraybuffer";
+ xhr.send();
+
+ if (xhr.status >= 200 && xhr.status <= 299) {
+ lf.f = new Uint8Array(xhr.response);
+ } else {
+ lf.err = xhr.status;
+ return errfile(L, "open", fnameindex, xhr.status);
+ }
+ }
+ let com = skipcomment(lf);
+ /* check for signature first, as we don't want to add line number corrections in binary case */
+ if (com.c === lua.LUA_SIGNATURE.charCodeAt(0) && filename) { /* binary file? */
+ /* no need to re-open in node.js */
+ } else if (com.skipped) { /* read initial portion */
+ lf.buff[lf.n++] = '\n'.charCodeAt(0); /* add line to correct line numbers */
+ }
+ if (com.c !== null)
+ lf.buff[lf.n++] = com.c; /* 'c' is the first character of the stream */
+ let status = lua.lua_load(L, getF, lf, lua.lua_tostring(L, -1), mode);
+ let readstatus = lf.err;
+ if (readstatus) {
+ lua.lua_settop(L, fnameindex); /* ignore results from 'lua_load' */
+ return errfile(L, "read", fnameindex, readstatus);
+ }
+ lua.lua_remove(L, fnameindex);
+ return status;
+ };
}
+const luaL_loadfile = function(L, filename) {
+ return luaL_loadfilex(L, filename, null);
+};
+
+const luaL_dofile = function(L, filename) {
+ return (luaL_loadfile(L, filename) || lua.lua_pcall(L, 0, lua.LUA_MULTRET, 0));
+};
+
+module.exports.luaL_dofile = luaL_dofile;
+module.exports.luaL_loadfilex = luaL_loadfilex;
+module.exports.luaL_loadfile = luaL_loadfile;
+
const lua_writestringerror = function(s) {
if (process.stderr) process.stderr.write(s);
else console.error(s);