From ec91aab02442dbbf577fa8d8e68c79a09b55f3f9 Mon Sep 17 00:00:00 2001 From: ame Date: Thu, 12 Jun 2025 02:08:47 -0500 Subject: rename 'array' lib and small additions --- src/table.c | 39 +++++++++++++++++++++++++++++++++++++-- 1 file changed, 37 insertions(+), 2 deletions(-) (limited to 'src/table.c') diff --git a/src/table.c b/src/table.c index 593c31b..ea57b2c 100644 --- a/src/table.c +++ b/src/table.c @@ -3,6 +3,41 @@ #include #include +int l_split(lua_State* L){ + size_t str_len = 0; + size_t search_len = 0; + + const char* str = luaL_checklstring(L, 1, &str_len); + const char* search = luaL_checklstring(L, 2, &search_len); + int skip = 1; + if(lua_gettop(L) >= 3) skip = lua_toboolean(L, 3); + + lua_newtable(L); + int idx = lua_gettop(L); + + const char* last = str; + + for(;;){ + char* end = (char*)memmem(last, str_len - (last - str), search, search_len); + if(end == NULL) break; + + if(!(skip && (end - last) == 0)){ + lua_pushinteger(L, lua_objlen(L, idx) + 1); + lua_pushlstring(L, last, end - last); + lua_settable(L, idx); + } + + last = end + 1; + } + + lua_pushinteger(L, lua_objlen(L, idx) + 1); + lua_pushlstring(L, last, str_len - (last - str)); + lua_settable(L, idx); + + lua_pushvalue(L, idx); + return 1; +} + int l_unpack(lua_State* L){ int top = lua_gettop(L); lua_pushnil(L); @@ -195,7 +230,7 @@ int l_sindexof(lua_State* L) { return 1; } -int l_split(lua_State* L){ +/*int l_split(lua_State* L){ size_t input_len = 0; size_t split_len = 0; char* input = (char*)luaL_checklstring(L, 1, &input_len); @@ -229,7 +264,7 @@ int l_split(lua_State* L){ lua_settable(L, -3); return 1; -} +}*/ int l_to_char_array(lua_State* L){ size_t input_len = 0; -- cgit v1.2.3