Function l_strcmp

Source/Misc/lua/src/lua.c:15032–15051

static int l_strcmp (const TString *ls, const TString *rs) {
const char *l = getstr(ls);
size_t ll = ls->tsv.len;
const char *r = getstr(rs);
size_t lr = rs->tsv.len;
for (;;) {
int temp = strcoll(l, r);
if (temp != 0) return temp;
else {  /* strings are equal up to a `\0' */
size_t len = strlen(l);  /* index of first `\0' in both strings */
if (len == lr)  /* r is finished? */
return (len == ll) ? 0 : 1;
else if (len == ll)  /* l is finished? */
return -1;  /* l is smaller than r (because r is not finished) */
/* both strings longer than `len'; go on comparing (after the `\0') */
len++;
l += len; ll -= len; r += len; lr -= len;
}
}
}


int luaV_lessthan (lua_State *L, const TValue *l, const TValue *r) {