nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

utf8.offset returns also final position of character

Browse Source 
'utf8.offset' returns two values: the initial and the final position
of the given character.
This commit is contained in:
Roberto Ierusalimschy
2024-05-27 11:29:39 -03:00
parent cbdf4969ec
commit 814213b65f
3 changed files with 55 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
lutf8lib.c
View File

@@ -181,8 +181,8 @@ static int utfchar (lua_State *L) {
/*
** offset(s, n, [i]) -> index where n-th character counting from
** position 'i' starts; 0 means character at 'i'.
** offset(s, n, [i]) -> indices where n-th character counting from
** position 'i' starts and ends; 0 means character at 'i'.
*/
static int byteoffset (lua_State *L) {
size_t len;
@@ -217,11 +217,19 @@ static int byteoffset (lua_State *L) {
}
}
}
if (n == 0) /* did it find given character? */
lua_pushinteger(L, posi + 1);
else /* no such character */
if (n != 0) { /* did not find given character? */
luaL_pushfail(L);
return 1;
return 1;
}
lua_pushinteger(L, posi + 1); /* initial position */
if ((s[posi] & 0x80) != 0) { /* multi-byte character? */
do {
posi++;
} while (iscontp(s + posi + 1)); /* skip to final byte */
}
/* else one-byte character: final position is the initial one */
lua_pushinteger(L, posi + 1); /* 'posi' now is the final position */
return 2;
}