Function read_number

Source/Misc/lua/src/lua.c:12187–12194

static int read_number (lua_State *L, FILE *f) {
lua_Number d;
if (fscanf(f, LUA_NUMBER_SCAN, &d) == 1) {
lua_pushnumber(L, d);
return 1;
}
else return 0;  /* read fails */
}


static int test_eof (lua_State *L, FILE *f) {