Function luaStringSplit

app/src/DataModel/Scripting/LuaCompat.cpp:188–225

* @brief Native string.split: splits on each literal occurrence of sep, keeping empty fields. */

 * @brief Native string.split: splits on each literal occurrence of sep, keeping empty fields.
 */
static int luaStringSplit(lua_State* L)
{
  Q_ASSERT(L != nullptr);

  size_t slen     = 0;
  const char* s   = luaL_checklstring(L, 1, &slen);
  size_t seplen   = 0;
  const char* sep = luaL_optlstring(L, 2, "", &seplen);
  Q_ASSERT(s != nullptr);

  lua_newtable(L);

  if (seplen == 0) {
    lua_pushlstring(L, s, slen);
    lua_rawseti(L, -2, 1);
    return 1;
  }

  int idx      = 1;
  size_t start = 0;
  size_t i     = 0;
  // code-verify off  (bounded walk: i advances by >= 1 each step until i + seplen > slen)
  while (i + seplen <= slen) {
    if (std::memcmp(s + i, sep, seplen) == 0) {
      lua_pushlstring(L, s + start, i - start);
      lua_rawseti(L, -2, idx++);
      i     += seplen;
      start  = i;
    } else {
      ++i;
    }
  }
  // code-verify on

  lua_pushlstring(L, s + start, slen - start);
  lua_rawseti(L, -2, idx);
  return 1;
}

/**
 * @brief Loads the Lua compatibility shim and installs the native string.split into the state.