@iobroker/db-objects-redis 7.2.3 → 7.2.5

package/build/esm/lib/objects/lua-v3/script.lua

@@ -7,11 +7,33 @@ cursor = result[1]
 local keys = result[2]
 local argStart = KEYS[1] .. KEYS[2]
 local argEnd = KEYS[1] .. KEYS[3]
+-- Compare bytes: Lua's < uses strcoll(), so it depends on the locale the Redis
+-- server was started with, and argEnd ends in the U+9999 sentinel.
+local sLen = #argStart
+local endHasPrefix = argEnd:sub(1, sLen) == argStart
+local function byteLess(a, b, from)
+    local la, lb = #a, #b
+    local i = from or 1
+    while i <= la and i <= lb do
+        local ca, cb = a:byte(i), b:byte(i)
+        if ca ~= cb then
+            return ca < cb
+        end
+        i = i + 1
+    end
+    return la < lb
+end
+local function inRange(key)
+    if endHasPrefix then
+        return key:sub(1, sLen) == argStart and byteLess(key, argEnd, sLen + 1)
+    end
+    return not byteLess(key, argStart) and byteLess(key, argEnd)
+end
 local checkStr = string.format("%q:%q", "type", "script")
 --  function(doc) {
 --      if (doc.type === "script" && doc.common.engineType.match(/^[jJ]ava[sS]cript|^[cC]offee[sS]cript|^[tT]ype[sS]cript|^Blockly/)) emit(doc.common.name, doc); }
 for _, key in ipairs(keys) do
-    if (key >= argStart and key < argEnd) then
+    if (inRange(key)) then
         local obj = redis.call("get", key)
         if (obj:find(checkStr) ~= nil) then
             local success, decoded = pcall(cjson.decode, obj)

package/build/esm/lib/objects/lua-v3/variables.lua

@@ -8,6 +8,28 @@ cursor = result[1]
 local keys = result[2]
 local argStart = KEYS[1] .. KEYS[2]
 local argEnd = KEYS[1] .. KEYS[3]
+-- Compare bytes: Lua's < uses strcoll(), so it depends on the locale the Redis
+-- server was started with, and argEnd ends in the U+9999 sentinel.
+local sLen = #argStart
+local endHasPrefix = argEnd:sub(1, sLen) == argStart
+local function byteLess(a, b, from)
+    local la, lb = #a, #b
+    local i = from or 1
+    while i <= la and i <= lb do
+        local ca, cb = a:byte(i), b:byte(i)
+        if ca ~= cb then
+            return ca < cb
+        end
+        i = i + 1
+    end
+    return la < lb
+end
+local function inRange(key)
+    if endHasPrefix then
+        return key:sub(1, sLen) == argStart and byteLess(key, argEnd, sLen + 1)
+    end
+    return not byteLess(key, argStart) and byteLess(key, argEnd)
+end
 local checkStr = string.format("%q:", "TypeName");
 --  function(doc) {
 --      if (doc._id.match(/^hm-rega\\.[0-9]+\\.[0-9,A-Z,a-z]+/) && (doc.native.TypeName === "ALARMDP" || doc.native.TypeName === "VARDP")) {
@@ -15,7 +37,7 @@ local checkStr = string.format("%q:", "TypeName");
 --      }
 --  }
 for _, key in ipairs(keys) do
-    if (key >= argStart and key < argEnd and key:sub(7, 13) == "hm-rega") then
+    if (inRange(key) and key:sub(7, 13) == "hm-rega") then
         local obj = redis.call("get", key)
         if (obj:find(checkStr) ~= nil) then
             local success, decoded = pcall(cjson.decode, obj)

package/build/esm/lib/objects/lua-v4/custom.lua

@@ -8,12 +8,34 @@ cursor = result[1]
 local keys = result[2]
 local argStart = KEYS[1] .. KEYS[2]
 local argEnd = KEYS[1] .. KEYS[3]
+-- Compare bytes: Lua's < uses strcoll(), so it depends on the locale the Redis
+-- server was started with, and argEnd ends in the U+9999 sentinel.
+local sLen = #argStart
+local endHasPrefix = argEnd:sub(1, sLen) == argStart
+local function byteLess(a, b, from)
+    local la, lb = #a, #b
+    local i = from or 1
+    while i <= la and i <= lb do
+        local ca, cb = a:byte(i), b:byte(i)
+        if ca ~= cb then
+            return ca < cb
+        end
+        i = i + 1
+    end
+    return la < lb
+end
+local function inRange(key)
+    if endHasPrefix then
+        return key:sub(1, sLen) == argStart and byteLess(key, argEnd, sLen + 1)
+    end
+    return not byteLess(key, argStart) and byteLess(key, argEnd)
+end
 --  function(doc) {
 --      if (doc.type==="state" && (doc.common.custom || doc.common.history))
 --          emit(doc._id, doc.common.custom || doc.common.history)
 --   }
 for _, key in ipairs(keys) do
-    if (key >= argStart and key < argEnd) then
+    if (inRange(key)) then
         rep[#rep + 1] = redis.call("get", key)
     end
 end

package/build/esm/lib/objects/lua-v4/filter.lua

@@ -7,9 +7,31 @@ cursor = result[1]
 local keys = result[2]
 local argStart = KEYS[1] .. KEYS[2]
 local argEnd = KEYS[1] .. KEYS[3]
+-- Compare bytes: Lua's < uses strcoll(), so it depends on the locale the Redis
+-- server was started with, and argEnd ends in the U+9999 sentinel.
+local sLen = #argStart
+local endHasPrefix = argEnd:sub(1, sLen) == argStart
+local function byteLess(a, b, from)
+    local la, lb = #a, #b
+    local i = from or 1
+    while i <= la and i <= lb do
+        local ca, cb = a:byte(i), b:byte(i)
+        if ca ~= cb then
+            return ca < cb
+        end
+        i = i + 1
+    end
+    return la < lb
+end
+local function inRange(key)
+    if endHasPrefix then
+        return key:sub(1, sLen) == argStart and byteLess(key, argEnd, sLen + 1)
+    end
+    return not byteLess(key, argStart) and byteLess(key, argEnd)
+end
 -- function(doc) { if (doc.type === "chart") emit(doc._id, doc); }
 for _, key in ipairs(keys) do
-    if (key >= argStart and key < argEnd) then
+    if (inRange(key)) then
         rep[#rep + 1] = redis.call("get", key)
     end
 end

package/build/esm/lib/objects/lua-v4/programs.lua

@@ -7,6 +7,28 @@ cursor = result[1]
 local keys = result[2]
 local argStart = KEYS[1] .. KEYS[2]
 local argEnd = KEYS[1] .. KEYS[3]
+-- Compare bytes: Lua's < uses strcoll(), so it depends on the locale the Redis
+-- server was started with, and argEnd ends in the U+9999 sentinel.
+local sLen = #argStart
+local endHasPrefix = argEnd:sub(1, sLen) == argStart
+local function byteLess(a, b, from)
+    local la, lb = #a, #b
+    local i = from or 1
+    while i <= la and i <= lb do
+        local ca, cb = a:byte(i), b:byte(i)
+        if ca ~= cb then
+            return ca < cb
+        end
+        i = i + 1
+    end
+    return la < lb
+end
+local function inRange(key)
+    if endHasPrefix then
+        return key:sub(1, sLen) == argStart and byteLess(key, argEnd, sLen + 1)
+    end
+    return not byteLess(key, argStart) and byteLess(key, argEnd)
+end
 local checkStr = string.format("%q:%q", "TypeName", "PROGRAM")
 --  function(doc) {
 --      if (doc._id.match(/^hm-rega\\.[0-9]+\\.[0-9,A-Z,a-z]+/) && (doc.native.TypeName === "PROGRAM")) {
@@ -14,7 +36,7 @@ local checkStr = string.format("%q:%q", "TypeName", "PROGRAM")
 --      }
 --  }
 for _, key in ipairs(keys) do
-    if (key >= argStart and key < argEnd) then
+    if (inRange(key)) then
         local obj = redis.call("get", key)
         if (obj:find(checkStr) ~= nil) then
             local success, decoded = pcall(cjson.decode, obj)

package/build/esm/lib/objects/lua-v4/script.lua

@@ -7,10 +7,32 @@ cursor = result[1]
 local keys = result[2]
 local argStart = KEYS[1] .. KEYS[2]
 local argEnd = KEYS[1] .. KEYS[3]
+-- Compare bytes: Lua's < uses strcoll(), so it depends on the locale the Redis
+-- server was started with, and argEnd ends in the U+9999 sentinel.
+local sLen = #argStart
+local endHasPrefix = argEnd:sub(1, sLen) == argStart
+local function byteLess(a, b, from)
+    local la, lb = #a, #b
+    local i = from or 1
+    while i <= la and i <= lb do
+        local ca, cb = a:byte(i), b:byte(i)
+        if ca ~= cb then
+            return ca < cb
+        end
+        i = i + 1
+    end
+    return la < lb
+end
+local function inRange(key)
+    if endHasPrefix then
+        return key:sub(1, sLen) == argStart and byteLess(key, argEnd, sLen + 1)
+    end
+    return not byteLess(key, argStart) and byteLess(key, argEnd)
+end
 --  function(doc) {
 --      if (doc.type === "script" && doc.common.engineType.match(/^[jJ]ava[sS]cript|^[cC]offee[sS]cript|^[tT]ype[sS]cript|^Blockly/)) emit(doc.common.name, doc); }
 for _, key in ipairs(keys) do
-    if (key >= argStart and key < argEnd) then
+    if (inRange(key)) then
         rep[#rep + 1] = redis.call("get", key)
     end
 end

package/build/esm/lib/objects/lua-v4/variables.lua

@@ -8,6 +8,28 @@ cursor = result[1]
 local keys = result[2]
 local argStart = KEYS[1] .. KEYS[2]
 local argEnd = KEYS[1] .. KEYS[3]
+-- Compare bytes: Lua's < uses strcoll(), so it depends on the locale the Redis
+-- server was started with, and argEnd ends in the U+9999 sentinel.
+local sLen = #argStart
+local endHasPrefix = argEnd:sub(1, sLen) == argStart
+local function byteLess(a, b, from)
+    local la, lb = #a, #b
+    local i = from or 1
+    while i <= la and i <= lb do
+        local ca, cb = a:byte(i), b:byte(i)
+        if ca ~= cb then
+            return ca < cb
+        end
+        i = i + 1
+    end
+    return la < lb
+end
+local function inRange(key)
+    if endHasPrefix then
+        return key:sub(1, sLen) == argStart and byteLess(key, argEnd, sLen + 1)
+    end
+    return not byteLess(key, argStart) and byteLess(key, argEnd)
+end
 local checkStr = string.format("%q:", "TypeName");
 --  function(doc) {
 --      if (doc._id.match(/^hm-rega\\.[0-9]+\\.[0-9,A-Z,a-z]+/) && (doc.native.TypeName === "ALARMDP" || doc.native.TypeName === "VARDP")) {
@@ -15,7 +37,7 @@ local checkStr = string.format("%q:", "TypeName");
 --      }
 --  }
 for _, key in ipairs(keys) do
-    if (key >= argStart and key < argEnd) then
+    if (inRange(key)) then
         local obj = redis.call("get", key)
         if (obj:find(checkStr) ~= nil) then
             local success, decoded = pcall(cjson.decode, obj)

package/build/esm/lib/objects/lua-v4-no-sets/custom.lua

@@ -8,13 +8,35 @@ cursor = result[1]
 local keys = result[2]
 local argStart = KEYS[1] .. KEYS[2]
 local argEnd = KEYS[1] .. KEYS[3]
+-- Compare bytes: Lua's < uses strcoll(), so it depends on the locale the Redis
+-- server was started with, and argEnd ends in the U+9999 sentinel.
+local sLen = #argStart
+local endHasPrefix = argEnd:sub(1, sLen) == argStart
+local function byteLess(a, b, from)
+    local la, lb = #a, #b
+    local i = from or 1
+    while i <= la and i <= lb do
+        local ca, cb = a:byte(i), b:byte(i)
+        if ca ~= cb then
+            return ca < cb
+        end
+        i = i + 1
+    end
+    return la < lb
+end
+local function inRange(key)
+    if endHasPrefix then
+        return key:sub(1, sLen) == argStart and byteLess(key, argEnd, sLen + 1)
+    end
+    return not byteLess(key, argStart) and byteLess(key, argEnd)
+end
 local checkStr = string.format("%q:{", "custom")
 --  function(doc) {
 --      if (doc.type==="state" && (doc.common.custom || doc.common.history))
 --          emit(doc._id, doc.common.custom || doc.common.history)
 --   }
 for _, key in ipairs(keys) do
-    if (key >= argStart and key < argEnd) then
+    if (inRange(key)) then
         local obj = redis.call("get", key)
         if (obj:find(checkStr) ~= nil) then
             local success, decoded = pcall(cjson.decode, obj)

package/build/esm/lib/objects/lua-v4-no-sets/filter.lua

@@ -7,12 +7,34 @@ cursor = result[1]
 local keys = result[2]
 local argStart = KEYS[1] .. KEYS[2]
 local argEnd = KEYS[1] .. KEYS[3]
+-- Compare bytes: Lua's < uses strcoll(), so it depends on the locale the Redis
+-- server was started with, and argEnd ends in the U+9999 sentinel.
+local sLen = #argStart
+local endHasPrefix = argEnd:sub(1, sLen) == argStart
+local function byteLess(a, b, from)
+    local la, lb = #a, #b
+    local i = from or 1
+    while i <= la and i <= lb do
+        local ca, cb = a:byte(i), b:byte(i)
+        if ca ~= cb then
+            return ca < cb
+        end
+        i = i + 1
+    end
+    return la < lb
+end
+local function inRange(key)
+    if endHasPrefix then
+        return key:sub(1, sLen) == argStart and byteLess(key, argEnd, sLen + 1)
+    end
+    return not byteLess(key, argStart) and byteLess(key, argEnd)
+end
 local type = KEYS[4]
 local checkStr = string.format("%q:%q", "type", type)
 local skipCheck = not (type == "channel" or type == "device" or type == "folder")
 -- function(doc) { if (doc.type === "chart") emit(doc._id, doc); }
 for _, key in ipairs(keys) do
-    if (key >= argStart and key < argEnd) then
+    if (inRange(key)) then
         local obj = redis.call("get", key)
         if (skipCheck or obj:find(checkStr) ~= nil) then
             local success, decoded = pcall(cjson.decode, obj)

package/build/esm/lib/objects/lua-v4-no-sets/programs.lua

@@ -7,6 +7,28 @@ cursor = result[1]
 local keys = result[2]
 local argStart = KEYS[1] .. KEYS[2]
 local argEnd = KEYS[1] .. KEYS[3]
+-- Compare bytes: Lua's < uses strcoll(), so it depends on the locale the Redis
+-- server was started with, and argEnd ends in the U+9999 sentinel.
+local sLen = #argStart
+local endHasPrefix = argEnd:sub(1, sLen) == argStart
+local function byteLess(a, b, from)
+    local la, lb = #a, #b
+    local i = from or 1
+    while i <= la and i <= lb do
+        local ca, cb = a:byte(i), b:byte(i)
+        if ca ~= cb then
+            return ca < cb
+        end
+        i = i + 1
+    end
+    return la < lb
+end
+local function inRange(key)
+    if endHasPrefix then
+        return key:sub(1, sLen) == argStart and byteLess(key, argEnd, sLen + 1)
+    end
+    return not byteLess(key, argStart) and byteLess(key, argEnd)
+end
 local checkStr = string.format("%q:%q", "TypeName", "PROGRAM")
 --  function(doc) {
 --      if (doc._id.match(/^hm-rega\\.[0-9]+\\.[0-9,A-Z,a-z]+/) && (doc.native.TypeName === "PROGRAM")) {
@@ -14,7 +36,7 @@ local checkStr = string.format("%q:%q", "TypeName", "PROGRAM")
 --      }
 --  }
 for _, key in ipairs(keys) do
-    if (key >= argStart and key < argEnd and key:sub(7, 13) == "hm-rega") then
+    if (inRange(key) and key:sub(7, 13) == "hm-rega") then
         local obj = redis.call("get", key)
         if (obj:find(checkStr) ~= nil) then
             local success, decoded = pcall(cjson.decode, obj)

package/build/esm/lib/objects/lua-v4-no-sets/script.lua

@@ -7,11 +7,33 @@ cursor = result[1]
 local keys = result[2]
 local argStart = KEYS[1] .. KEYS[2]
 local argEnd = KEYS[1] .. KEYS[3]
+-- Compare bytes: Lua's < uses strcoll(), so it depends on the locale the Redis
+-- server was started with, and argEnd ends in the U+9999 sentinel.
+local sLen = #argStart
+local endHasPrefix = argEnd:sub(1, sLen) == argStart
+local function byteLess(a, b, from)
+    local la, lb = #a, #b
+    local i = from or 1
+    while i <= la and i <= lb do
+        local ca, cb = a:byte(i), b:byte(i)
+        if ca ~= cb then
+            return ca < cb
+        end
+        i = i + 1
+    end
+    return la < lb
+end
+local function inRange(key)
+    if endHasPrefix then
+        return key:sub(1, sLen) == argStart and byteLess(key, argEnd, sLen + 1)
+    end
+    return not byteLess(key, argStart) and byteLess(key, argEnd)
+end
 local checkStr = string.format("%q:%q", "type", "script")
 --  function(doc) {
 --      if (doc.type === "script" && doc.common.engineType.match(/^[jJ]ava[sS]cript|^[cC]offee[sS]cript|^[tT]ype[sS]cript|^Blockly/)) emit(doc.common.name, doc); }
 for _, key in ipairs(keys) do
-    if (key >= argStart and key < argEnd) then
+    if (inRange(key)) then
         local obj = redis.call("get", key)
         if (obj:find(checkStr) ~= nil) then
             local success, decoded = pcall(cjson.decode, obj)

package/build/esm/lib/objects/lua-v4-no-sets/variables.lua

@@ -8,6 +8,28 @@ cursor = result[1]
 local keys = result[2]
 local argStart = KEYS[1] .. KEYS[2]
 local argEnd = KEYS[1] .. KEYS[3]
+-- Compare bytes: Lua's < uses strcoll(), so it depends on the locale the Redis
+-- server was started with, and argEnd ends in the U+9999 sentinel.
+local sLen = #argStart
+local endHasPrefix = argEnd:sub(1, sLen) == argStart
+local function byteLess(a, b, from)
+    local la, lb = #a, #b
+    local i = from or 1
+    while i <= la and i <= lb do
+        local ca, cb = a:byte(i), b:byte(i)
+        if ca ~= cb then
+            return ca < cb
+        end
+        i = i + 1
+    end
+    return la < lb
+end
+local function inRange(key)
+    if endHasPrefix then
+        return key:sub(1, sLen) == argStart and byteLess(key, argEnd, sLen + 1)
+    end
+    return not byteLess(key, argStart) and byteLess(key, argEnd)
+end
 local checkStr = string.format("%q:", "TypeName");
 --  function(doc) {
 --      if (doc._id.match(/^hm-rega\\.[0-9]+\\.[0-9,A-Z,a-z]+/) && (doc.native.TypeName === "ALARMDP" || doc.native.TypeName === "VARDP")) {
@@ -15,7 +37,7 @@ local checkStr = string.format("%q:", "TypeName");
 --      }
 --  }
 for _, key in ipairs(keys) do
-    if (key >= argStart and key < argEnd and key:sub(7, 13) == "hm-rega") then
+    if (inRange(key) and key:sub(7, 13) == "hm-rega") then
         local obj = redis.call("get", key)
         if (obj:find(checkStr) ~= nil) then
             local success, decoded = pcall(cjson.decode, obj)