Exemplo n.º 1
0
static int io_gc (lua_State *L) {
  FILE *f = *tofilep(L);
  /* ignore closed files */
  if (f != NULL)
    aux_close(L);
  return 0;
}
Exemplo n.º 2
0
/*
** function to close 'popen' files
*/
static int io_pclose(lua_State *L)
{
    FILE **p = tofilep(L);
    int ok = lua_pclose(L, *p);
    *p = NULL;
    return pushresult(L, ok, NULL);
}
Exemplo n.º 3
0
static FILE *tofile(lua_State *L)
{
    FILE **f = tofilep(L);
    if (*f == NULL)
        luaL_error(L, "attempt to use a closed file");
    return *f;
}
Exemplo n.º 4
0
/*
** function to close regular files
*/
static int io_fclose(lua_State *L)
{
    FILE **p = tofilep(L);
    int ok = (fclose(*p) == 0);
    *p = NULL;
    return pushresult(L, ok, NULL);
}
Exemplo n.º 5
0
static int io_gc (lua_State *L) {
  int f = *tofilep(L);
  /* ignore closed files */
  if (f != FS_OPEN_OK - 1)
    aux_close(L);
  return 0;
}
Exemplo n.º 6
0
static int io_tostring (lua_State *L) {
  FILE *f = *tofilep(L);
  if (f == NULL)
    lua_pushliteral(L, "file (closed)");
  else
    lua_pushfstring(L, "file (%p)", f);
  return 1;
}
Exemplo n.º 7
0
static int io_tostring (lua_State *L) {
  int f = *tofilep(L);
  if (f == FS_OPEN_OK - 1)
    lua_pushliteral(L, "file (closed)");
  else
    lua_pushfstring(L, "file (%i)", f);
  return 1;
}
Exemplo n.º 8
0
static int io_close(lua_State *L)
{
    FILE **p = tofilep(L);
    if (*p != NULL){
        int ok = (fclose(*p) == 0);
        *p = NULL;
        return pushresult(L, ok, NULL);
    } else {
        return 0;
    }
}
Exemplo n.º 9
0
/*
** function to close regular files and tcp sockets
*/
static int io_fclose (lua_State *L) {
  FILE **p = tofilep(L);
#ifdef NUTLUA_IOLIB_TCP
  NUTFILE *nf = (NUTFILE *) (uintptr_t) _fileno(*p);
#endif
  int ok = (fclose(*p) == 0);
#ifdef NUTLUA_IOLIB_TCP
  if (nf->nf_dev == NULL) {
    NutTcpCloseSocket((TCPSOCKET *) nf);
  }
#endif
  *p = NULL;
  return pushresult(L, ok, NULL);
}
Exemplo n.º 10
0
static int aux_close (lua_State *L) {
#if LUA_OPTIMIZE_MEMORY != 2
    lua_getfenv(L, 1);
    lua_getfield(L, -1, "__close");
    return (lua_tocfunction(L, -1))(L);
#else
    FILE **p = tofilep(L);
    if (*p == stdin || *p == stdout || *p == stderr) {
        lua_pushnil(L);
        lua_pushliteral(L, "cannot close standard file");
        return 2;
    }
    int ok = (fclose(*p) == 0);
    *p = NULL;
    return pushresult(L, ok, NULL);
#endif
}
Exemplo n.º 11
0
/*
** function to close 'popen' files
*/
static int pipe_close (lua_State *L) {
  FILE **p = tofilep(L);
  int ok = fclose(*p);
  *p = NULL;
  return pushresult(L, ok, NULL);
}
Exemplo n.º 12
0
static int tofile (lua_State *L) {
  int *f = tofilep(L);
  if (*f < FS_OPEN_OK)
    luaL_error(L, "attempt to use a closed file");
  return *f;
}
Exemplo n.º 13
0
/*
** function to close regular files
*/
static int io_fclose (lua_State *L) {
  int *p = tofilep(L);
  int ok = (fs_close(*p) == 0);
  *p = FS_OPEN_OK - 1;
  return pushresult(L, ok, NULL);
}
Exemplo n.º 14
0
/*
** function to close 'popen' files
*/
static int io_pclose (lua_State *L) {
  int *p = tofilep(L);
  int ok = lua_pclose(L, *p);
  *p = FS_OPEN_OK - 1;
  return pushresult(L, ok, NULL);
}