mirror of https://github.com/rusefi/lua.git
new way to handle _PROMPT
This commit is contained in:
parent
12b45c2df2
commit
de65253f2d
14
lua.c
14
lua.c
|
@ -1,5 +1,5 @@
|
||||||
/*
|
/*
|
||||||
** $Id: lua.c,v 1.27 1999/11/22 13:12:07 roberto Exp roberto $
|
** $Id: lua.c,v 1.28 1999/12/06 11:41:28 roberto Exp roberto $
|
||||||
** Lua stand-alone interpreter
|
** Lua stand-alone interpreter
|
||||||
** See Copyright Notice in lua.h
|
** See Copyright Notice in lua.h
|
||||||
*/
|
*/
|
||||||
|
@ -15,6 +15,10 @@
|
||||||
#include "lualib.h"
|
#include "lualib.h"
|
||||||
|
|
||||||
|
|
||||||
|
#ifndef PROMPT
|
||||||
|
#define PROMPT "> "
|
||||||
|
#endif
|
||||||
|
|
||||||
#ifdef _POSIX_SOURCE
|
#ifdef _POSIX_SOURCE
|
||||||
#include <unistd.h>
|
#include <unistd.h>
|
||||||
#else
|
#else
|
||||||
|
@ -119,8 +123,11 @@ static void manual_input (int prompt) {
|
||||||
char buffer[BUFSIZ];
|
char buffer[BUFSIZ];
|
||||||
int i = 0;
|
int i = 0;
|
||||||
lua_beginblock();
|
lua_beginblock();
|
||||||
if (prompt)
|
if (prompt) {
|
||||||
printf("%s", lua_getstring(lua_getglobal("_PROMPT")));
|
const char *s = lua_getstring(lua_getglobal("_PROMPT"));
|
||||||
|
if (!s) s = PROMPT;
|
||||||
|
printf("%s", s);
|
||||||
|
}
|
||||||
for(;;) {
|
for(;;) {
|
||||||
int c = getchar();
|
int c = getchar();
|
||||||
if (c == EOF) {
|
if (c == EOF) {
|
||||||
|
@ -149,7 +156,6 @@ static void manual_input (int prompt) {
|
||||||
int main (int argc, char *argv[]) {
|
int main (int argc, char *argv[]) {
|
||||||
int i;
|
int i;
|
||||||
lua_state = lua_newstate("stack", 1024, "builtin", 1, NULL);
|
lua_state = lua_newstate("stack", 1024, "builtin", 1, NULL);
|
||||||
lua_pushstring("> "); lua_setglobal("_PROMPT");
|
|
||||||
lua_userinit();
|
lua_userinit();
|
||||||
getargs(argc, argv);
|
getargs(argc, argv);
|
||||||
if (argc < 2) { /* no arguments? */
|
if (argc < 2) { /* no arguments? */
|
||||||
|
|
Loading…
Reference in New Issue