725 static const char *scanformat (lua_State *L, const char *strfrmt, char *form) {  in scanformat()  argument
726   const char *p = strfrmt;  in scanformat()
728   if ((size_t)(p - strfrmt) >= sizeof(FLAGS))  in scanformat()
740   strncpy(form, strfrmt, p - strfrmt + 1);  in scanformat()
741   form += p - strfrmt + 1;  in scanformat()
760   const char *strfrmt = luaL_checklstring(L, arg, &sfl);  in str_format()  local
761   const char *strfrmt_end = strfrmt+sfl;  in str_format()
764   while (strfrmt < strfrmt_end) {  in str_format()
765     if (*strfrmt != L_ESC)  in str_format()
766       luaL_addchar(&b, *strfrmt++);  in str_format()
767     else if (*++strfrmt == L_ESC)  in str_format()
768       luaL_addchar(&b, *strfrmt++);  /* %% */  in str_format()
774       strfrmt = scanformat(L, strfrmt, form);  in str_format()
775       switch (*strfrmt++) {  in str_format()
816                                LUA_QL("format"), *(strfrmt - 1));  in str_format()