530   LoadF *lf = (LoadF *)ud;  in getF()  local
532   if (lf->extraline) {  in getF()
533     lf->extraline = 0;  in getF()
537   if (feof(lf->f)) return NULL;  in getF()
538   *size = fread(lf->buff, 1, sizeof(lf->buff), lf->f);  in getF()
539   return (*size > 0) ? lf->buff : NULL;  in getF()
553   LoadF lf;  in luaL_loadfile()  local
557   lf.extraline = 0;  in luaL_loadfile()
560     lf.f = stdin;  in luaL_loadfile()
564     lf.f = fopen(filename, "r");  in luaL_loadfile()
565     if (lf.f == NULL) return errfile(L, "open", fnameindex);  in luaL_loadfile()
567   c = getc(lf.f);  in luaL_loadfile()
569     lf.extraline = 1;  in luaL_loadfile()
570     while ((c = getc(lf.f)) != EOF && c != '\n') ;  /* skip first line */  in luaL_loadfile()
571     if (c == '\n') c = getc(lf.f);  in luaL_loadfile()
574     lf.f = freopen(filename, "rb", lf.f);  /* reopen in binary mode */  in luaL_loadfile()
575     if (lf.f == NULL) return errfile(L, "reopen", fnameindex);  in luaL_loadfile()
577    while ((c = getc(lf.f)) != EOF && c != LUA_SIGNATURE[0]) ;  in luaL_loadfile()
578     lf.extraline = 0;  in luaL_loadfile()
580   ungetc(c, lf.f);  in luaL_loadfile()
581   status = lua_load(L, getF, &lf, lua_tostring(L, -1));  in luaL_loadfile()
582   readstatus = ferror(lf.f);  in luaL_loadfile()
583   if (filename) fclose(lf.f);  /* close file (even in case of errors) */  in luaL_loadfile()