From 75ed5043820e07eeb6405e42ac3c9cbad990466d Mon Sep 17 00:00:00 2001
From: Waldemar Celes <celes@tecgraf.puc-rio.br>
Date: Fri, 17 Dec 1993 16:41:19 -0200
Subject: Provide function to realise the input/output function and debugger
 facilities.

---
 inout.c | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

(limited to 'inout.c')

diff --git a/inout.c b/inout.c
index 3ba32ba7..0258bc81 100644
--- 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;
  }
@@ -118,6 +117,14 @@ int lua_openstring (char *s)
  return 0;
 }
 
+/*
+** 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).
-- 
cgit v1.2.3-55-g6feb