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

Provide function to realise the input/output function and debugger

Browse Source 
facilities.
This commit is contained in:
Waldemar Celes
1993-12-17 16:41:19 -02:00
parent 1923c7d620
commit 75ed504382
1 changed files with 11 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
inout.c
View File

@@ -2,12 +2,10 @@
** inout.c ** inout.c
** Provide function to realise the input/output function and debugger ** Provide function to realise the input/output function and debugger
** facilities. ** facilities.
**
** Waldemar Celes Filho
** TeCGraf - PUC-Rio
** 11 May 93
*/ */
char *rcs_inout="$Id: $";
#include <stdio.h> #include <stdio.h>
#include <string.h> #include <string.h>
@@ -96,6 +94,7 @@ void lua_closefile (void)
{ {
if (fp != NULL) if (fp != NULL)
{ {
lua_delfile();
fclose (fp); fclose (fp);
fp = NULL; fp = NULL;
} }
@@ -118,6 +117,14 @@ int lua_openstring (char *s)
return 0; 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 ** Call user function to handle error messages, if registred. Or report error
** using standard function (fprintf). ** using standard function (fprintf).