887 static const char *scanformat (lua_State *L, const char *strfrmt, char *form) {  in scanformat()  argument
888   const char *p = strfrmt;  in scanformat()
890   if ((size_t)(p - strfrmt) >= sizeof(FLAGS)/sizeof(char))  in scanformat()
902   memcpy(form, strfrmt, (p - strfrmt + 1) * sizeof(char));  in scanformat()
903   form += p - strfrmt + 1;  in scanformat()
926   const char *strfrmt = luaL_checklstring(L, arg, &sfl);  in str_format()  local
927   const char *strfrmt_end = strfrmt+sfl;  in str_format()
930   while (strfrmt < strfrmt_end) {  in str_format()
931     if (*strfrmt != L_ESC)  in str_format()
932       luaL_addchar(&b, *strfrmt++);  in str_format()
933     else if (*++strfrmt == L_ESC)  in str_format()
934       luaL_addchar(&b, *strfrmt++);  /* %% */  in str_format()
941       strfrmt = scanformat(L, strfrmt, form);  in str_format()
942       switch (*strfrmt++) {  in str_format()
999                                LUA_QL("format"), *(strfrmt - 1));  in str_format()