lua

commit 75ed5043820e07eeb6405e42ac3c9cbad990466d
parent 1923c7d620ba392ee2ca7ba9dc4b2df7839d0050
Author: Waldemar Celes <celes@tecgraf.puc-rio.br>
Date:   Fri, 17 Dec 1993 16:41:01 -0200

Provide function to realise the input/output function and debugger
facilities.

Diffstat:
M
inout.c
 | 
15
+++++++++++----

1 file changed, 11 insertions(+), 4 deletions(-)
diff --git a/inout.c b/inout.c
@@ -2,12 +2,10 @@
 ** inout.c
 ** Provide function to realise the input/output function and debugger 
 ** facilities.
-**
-** Waldemar Celes Filho
-** TeCGraf - PUC-Rio
-** 11 May 93
 */
 
+char *rcs_inout="$Id: $";
+
 #include <stdio.h>
 #include <string.h>
 
@@ -96,6 +94,7 @@ void lua_closefile (void)
 {
  if (fp != NULL)
  {
+  lua_delfile();
   fclose (fp);
   fp = NULL;
  }
@@ -119,6 +118,14 @@ int lua_openstring (char *s)
 }
 
 /*
+** Function to close an opened string
+*/
+void lua_closestring (void)
+{
+ lua_delfile();
+}
+
+/*
 ** Call user function to handle error messages, if registred. Or report error
 ** using standard function (fprintf).
 */