857 static const char *scanformat (lua_State *L, const char *strfrmt, char *form) {  in scanformat()  argument
858   const char *p = strfrmt;  in scanformat()
860   if ((size_t)(p - strfrmt) >= sizeof(FLAGS)/sizeof(char))  in scanformat()
872   memcpy(form, strfrmt, (p - strfrmt + 1) * sizeof(char));  in scanformat()
873   form += p - strfrmt + 1;  in scanformat()
896   const char *strfrmt = luaL_checklstring(L, arg, &sfl);  in str_format()  local
897   const char *strfrmt_end = strfrmt+sfl;  in str_format()
900   while (strfrmt < strfrmt_end) {  in str_format()
901     if (*strfrmt != L_ESC)  in str_format()
902       luaL_addchar(&b, *strfrmt++);  in str_format()
903     else if (*++strfrmt == L_ESC)  in str_format()
904       luaL_addchar(&b, *strfrmt++);  /* %% */  in str_format()
911       strfrmt = scanformat(L, strfrmt, form);  in str_format()
912       switch (*strfrmt++) {  in str_format()
967                                LUA_QL("format"), *(strfrmt - 1));  in str_format()