nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

nova funcao 'debug', para auxiliar debugacao de programas lua.

Browse Source
This commit is contained in:
Roberto Ierusalimschy
1994-08-17 19:34:20 -03:00
parent 0ec3a21451
commit 9294a2787f
1 changed files with 17 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
iolib.c
View File

@@ -3,7 +3,7 @@
** Input/output library to LUA ** Input/output library to LUA
*/ */
char *rcs_iolib="$Id: iolib.c,v 1.6 1994/08/11 23:11:57 celes Exp celes $"; char *rcs_iolib="$Id: iolib.c,v 1.7 1994/08/17 15:10:04 celes Exp roberto $";
#include <stdlib.h> #include <stdlib.h>
#include <string.h> #include <string.h>
@@ -510,6 +510,21 @@ static void io_abort (void)
exit(1); exit(1);
} }
/*
** To debug a lua program. Start a dialog with the user, interpreting
lua commands until an 'cont'.
*/
static void io_debug (void)
{
while (1)
{
char buffer[250];
printf("lua_debug> ");
if (gets(buffer) == 0) return;
if (strcmp(buffer, "cont") == 0) return;
lua_dostring(buffer);
}
}
/* /*
** Open io library ** Open io library
@@ -525,4 +540,5 @@ void iolib_open (void)
lua_register ("remove", io_remove); lua_register ("remove", io_remove);
lua_register ("getenv", io_getenv); lua_register ("getenv", io_getenv);
lua_register ("abort", io_abort); lua_register ("abort", io_abort);
lua_register ("debug", io_debug);
} }