** function to close regular files */
| 201 | ** function to close regular files |
| 202 | */ |
| 203 | static int io_fclose (lua_State *L) { |
| 204 | LStream *p = tolstream(L); |
| 205 | int res = fclose(p->f); |
| 206 | return luaL_fileresult(L, (res == 0), NULL); |
| 207 | } |
| 208 | |
| 209 | |
| 210 | static LStream *newfile (lua_State *L) { |
nothing calls this directly
no test coverage detected