725 static const char *scanformat (lua_State *L, const char *strfrmt, char *form) {  in scanformat()  argument
739   *(form++) = '%';  in scanformat()
740   strncpy(form, strfrmt, p - strfrmt + 1);  in scanformat()
741   form += p - strfrmt + 1;  in scanformat()
742   *form = '\0';  in scanformat()
747 static void addintlen (char *form) {  in addintlen()  argument
748   size_t l = strlen(form);  in addintlen()
749   char spec = form[l - 1];  in addintlen()
750   strcpy(form + l - 1, LUA_INTFRMLEN);  in addintlen()
751   form[l + sizeof(LUA_INTFRMLEN) - 2] = spec;  in addintlen()
752   form[l + sizeof(LUA_INTFRMLEN) - 1] = '\0';  in addintlen()
770       char form[MAX_FORMAT];  /* to store the format (`%...') */  in str_format()  local
774       strfrmt = scanformat(L, strfrmt, form);  in str_format()
777           sprintf(buff, form, (int)luaL_checknumber(L, arg));  in str_format()
781           addintlen(form);  in str_format()
782           sprintf(buff, form, (LUA_INTFRM_T)luaL_checknumber(L, arg));  in str_format()
786           addintlen(form);  in str_format()
787           sprintf(buff, form, (unsigned LUA_INTFRM_T)luaL_checknumber(L, arg));  in str_format()
792           sprintf(buff, form, (double)luaL_checknumber(L, arg));  in str_format()
802           if (!strchr(form, '.') && l >= 100) {  in str_format()
810             sprintf(buff, form, s);  in str_format()