1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
"use strict";
const assert = require('assert');
const lua = require('./lua.js');
const lapi = require('./lapi.js');
const lauxlib = require('./lauxlib.js');
const ldebug = require('./ldebug.js');
/*
** If L1 != L, L1 can be in any state, and therefore there are no
** guarantees about its stack space; any push in L1 must be
** checked.
*/
const checkstack = function(L, L1, n) {
if (L !== L1 && !lapi.lua_checkstack(L1, n))
lauxlib.luaL_error(L, "stack overflow");
};
/*
** Auxiliary function used by several library functions: check for
** an optional thread as function's first argument and set 'arg' with
** 1 if this argument is present (so that functions can skip it to
** access their other arguments)
*/
const getthread = function(L) {
if (lapi.lua_isthread(L, 1)) {
return {
arg: 1,
thread: lapi.lua_tothread(L, 1)
};
} else {
return {
arg: 0,
thread: L
}; /* function will operate over current thread */
}
};
const db_getlocal = function(L) {
let thread = getthread(L);
let L1 = thread.thread;
let arg = thread.arg;
let ar = new lua.lua_Debug();
let nvar = lauxlib.luaL_checkinteger(L, arg + 2); /* local-variable index */
if (lapi.lua_isfunction(L, arg + 1)) {
lapi.lua_pushvalue(L, arg + 1); /* push function */
lapi.lua_pushstring(L, ldebug.lua_getlocal(L, null, nvar)); /* push local name */
return 1; /* return only name (there is no value) */
} else { /* stack-level argument */
let level = lauxlib.luaL_checkinteger(L, arg + 1);
if (!ldebug.lua_getstack(L1, level, ar)) /* out of range? */
return lauxlib.luaL_argerror(L, arg+1, lapi.to_luastring("level out of range"));
checkstack(L, L1, 1);
let name = ldebug.lua_getlocal(L1, ar, nvar);
if (name) {
lapi.lua_xmove(L1, L, 1); /* move local value */
lapi.lua_pushstring(L, name.value); /* push name */
lapi.lua_rotate(L, -2, 1); /* re-order */
return 2;
}
else {
lapi.lua_pushnil(L); /* no name (nor value) */
return 1;
}
}
};
const dblib = {
"getlocal": db_getlocal
};
// Only with Node
if (typeof require === "function") {
let fs = false;
try {
fs = require('fs');
} catch (e) {}
if (fs) {
const readlineSync = require('readline-sync');
readlineSync.setDefaultOptions({
prompt: 'lua_debug> '
});
// TODO: if in browser, use a designated input in the DOM ?
const db_debug = function(L) {
for (;;) {
let input = readlineSync.prompt();
if (input === "cont")
return 0;
if (input.length === 0)
continue;
let buffer = lua.to_luastring(input);
if (lauxlib.luaL_loadbuffer(L, buffer, buffer.length, lua.to_luastring("=(debug command)"))
|| lapi.lua_pcall(L, 0, 0, 0)) {
lauxlib.lua_writestringerror(`${lapi.lua_tojsstring(L, -1)}\n`);
}
lapi.lua_settop(L, 0); /* remove eventual returns */
}
};
dblib.debug = db_debug;
}
}
const luaopen_debug = function(L) {
lauxlib.luaL_newlib(L, dblib);
return 1;
};
module.exports.luaopen_debug = luaopen_debug;
|
