mirrors/lua
1
0
Fork 0
mirror of https://github.com/lua/lua synced 2024-11-21 20:31:22 +03:00
Code Issues 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
inout.c
View File

@ -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).