** function to close regular files */
| 231 | ** function to close regular files |
| 232 | */ |
| 233 | static int io_fclose (lua_State *L) { |
| 234 | LStream *p = tolstream(L); |
| 235 | int res = fclose(p->f); |
| 236 | return luaL_fileresult(L, (res == 0), NULL); |
| 237 | } |
| 238 | |
| 239 | |
| 240 | static LStream *newfile (lua_State *L) { |
nothing calls this directly
no test coverage detected