** Create or reuse a zero-terminated string, first checking in the ** cache (using the string address as a key). The cache can contain ** only zero-terminated strings, so it is safe to use 'strcmp' to ** check hits. */
| 217 | ** check hits. |
| 218 | */ |
| 219 | TString *luaS_new (lua_State *L, const char *str) { |
| 220 | unsigned int i = point2uint(str) % STRCACHE_N; /* hash */ |
| 221 | int j; |
| 222 | TString **p = G(L)->strcache[i]; |
| 223 | for (j = 0; j < STRCACHE_M; j++) { |
| 224 | if (strcmp(str, getstr(p[j])) == 0) /* hit? */ |
| 225 | return p[j]; /* that is it */ |
| 226 | } |
| 227 | /* normal route */ |
| 228 | for (j = STRCACHE_M - 1; j > 0; j--) |
| 229 | p[j] = p[j - 1]; /* move out last element */ |
| 230 | /* new element is first in the list */ |
| 231 | p[0] = luaS_newlstr(L, str, strlen(str)); |
| 232 | return p[0]; |
| 233 | } |
| 234 | |
| 235 | |
| 236 | Udata *luaS_newudata (lua_State *L, size_t s) { |
no test coverage detected