Add stderr buffer and changed bail function in lua.c

1 files changed, 24 insertions, 4 deletions

diff --git a/src/lua.c b/src/lua.c
index 8c88cf4..27d1d18 100644
--- a/src/lua.c
+++ b/src/lua.c
@@ -40,13 +40,33 @@ extern WINDOW * input_win;
 
 lua_State *L;
 
-void bail(lua_State *L, char *msg){
-    //sc_debug("FATAL ERROR: %s: %s", msg, lua_tostring(L, -1));
+void bail(lua_State *L, char * msg){
+    /*
     volatile char *error=lua_tostring(L,-1);
     fprintf(stderr,"%s",error);
-	
+    */
+
     fprintf(stderr,"FATAL ERROR: %s: %s", msg, lua_tostring(L, -1));
-    //exit(1); shall exit here?
+
+    move(0, 0);
+    clrtobot();
+    wrefresh(stdscr);
+
+    set_term(sstderr);
+    move(0, 0);
+    clrtobot();
+    clearok(stdscr, TRUE);
+    mvprintw(10, 0, "*%s*", stderr_buffer);
+    stderr_buffer[0]='\0';
+    fseek(stderr, 0, SEEK_END);
+
+    refresh();
+    getch();
+
+    set_term(sstdout);
+    clearok(stdscr, TRUE);
+    refresh();
+    update(TRUE);
 }
 
 static int l_getnum (lua_State *L) {