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
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
|
/*
* File: luaterp.cc
* Summary: An interactive lua interpreter.
*
* Based heavily on lua.c from the Lua distribution.
*
* Deficiencies:
* - Currently requires defining a global function __echo
* to echo results.
* - Currently requires prefixing with '=' if you want results echoed.
* - Appears to require delay_message_clear = true.
* - Old input lines are not visible.
*/
#include "AppHdr.h"
#include "luaterp.h"
#include "cio.h"
#include "clua.h"
#include "dlua.h"
static int _incomplete(lua_State *ls, int status)
{
if (status == LUA_ERRSYNTAX)
{
size_t lmsg;
const char *msg = lua_tolstring(ls, -1, &lmsg);
const char *tp = msg + lmsg - (sizeof(LUA_QL("<eof>")) - 1);
if (strstr(msg, LUA_QL("<eof>")) == tp)
{
lua_pop(ls, 1);
return 1;
}
}
return 0;
}
static int _pushline(lua_State *ls, int firstline)
{
char buffer[80];
char *b = buffer;
size_t l;
mpr(firstline ? "> " : ". ", MSGCH_PROMPT);
if (cancelable_get_line_autohist(buffer, sizeof(buffer)))
return (0);
l = strlen(b);
// XXX: get line doesn't return newline?
if (l > 0 && b[l-1] == '\n') // line ends with newline?
b[l-1] = '\0'; // remove it
if (firstline && l > 0 && b[0] == '=') // first line starts with `=' ?
lua_pushfstring(ls, "return %s", b+1); // change it to `return'
else
lua_pushstring(ls, b);
return (1);
}
static int _loadline(lua_State *ls)
{
int status;
lua_settop(ls, 0);
if (!_pushline(ls, 1))
return -1; /* no input */
// repeat until gets a complete line
for (;;)
{
status = luaL_loadbuffer(ls, lua_tostring(ls, 1),
lua_strlen(ls, 1), "=terp");
if (!_incomplete(ls, status))
break;
if (!_pushline(ls, 0))
return -1;
lua_pushliteral(ls, "\n"); // add a new line...
lua_insert(ls, -2); // ...between the two lines
lua_concat(ls, 3); // join them
}
lua_remove(ls, 1); // remove line
return status;
}
static int _docall(lua_State *ls)
{
int status;
int base = lua_gettop(ls);
status = lua_pcall(ls, 0, LUA_MULTRET, base);
if (status != 0)
lua_gc(ls, LUA_GCCOLLECT, 0);
return (status);
}
static int _report(lua_State *ls, int status)
{
if (status && !lua_isnil(ls, -1))
{
const char *msg = lua_tostring(ls, -1);
if (msg == NULL)
msg = "(error object is not a string)";
mprf(MSGCH_ERROR, msg);
lua_pop(ls, 1);
}
return status;
}
void run_clua_interpreter(lua_State *ls)
{
int status;
while ((status = _loadline(ls)) != -1)
{
if (status == 0)
status = _docall(ls);
_report(ls, status);
if (status == 0 && lua_gettop(ls) > 0)
{
lua_getglobal(ls, "__echo");
lua_insert(ls, 1);
if (lua_pcall(ls, lua_gettop(ls) - 1, 0, 0) != 0)
{
mprf(MSGCH_ERROR, "error calling __echo (%s)",
lua_tostring(ls, -1));
}
}
}
lua_settop(ls, 0); // clear stack
}
void debug_terp_dlua()
{
run_clua_interpreter(dlua);
}
|
