isaacscript-common 87.9.5 → 87.9.7

package/dist/functions/deepCopy.lua

@@ -1,12 +1,12 @@
 local ____lualib = require("lualib_bundle")
-local __TS__New = ____lualib.__TS__New
 local Map = ____lualib.Map
+local __TS__New = ____lualib.__TS__New
 local Set = ____lualib.Set
 local __TS__Iterator = ____lualib.__TS__Iterator
 local __TS__ArraySort = ____lualib.__TS__ArraySort
 local __TS__ArraySome = ____lualib.__TS__ArraySome
 local ____exports = {}
-local deepCopyTable, deepCopyDefaultMap, getNewDefaultMap, deepCopyMap, deepCopySet, deepCopyTSTLClass, deepCopyArray, deepCopyNormalLuaTable, getCopiedEntries, checkMetatable, deepCopyUserdata
+local checkMetatable, deepCopyArray, deepCopyDefaultMap, deepCopyMap, deepCopyNormalLuaTable, deepCopySet, deepCopyTable, deepCopyTSTLClass, deepCopyUserdata, getCopiedEntries, getNewDefaultMap
 local ____DefaultMap = require("classes.DefaultMap")
 local DefaultMap = ____DefaultMap.DefaultMap
 local ____constants = require("classes.features.other.saveDataManager.constants")
@@ -147,76 +147,31 @@ function ____exports.deepCopy(self, value, serializationType, traversalDescripti
         end
     until true
 end
-function deepCopyTable(self, luaMap, serializationType, traversalDescription, classConstructors, insideMap)
-    if isDefaultMap(nil, luaMap) or luaMap[SerializationBrand.DEFAULT_MAP] ~= nil then
-        return deepCopyDefaultMap(
-            nil,
-            luaMap,
-            serializationType,
-            traversalDescription,
-            classConstructors,
-            insideMap
-        )
-    end
-    if isTSTLMap(nil, luaMap) or luaMap[SerializationBrand.MAP] ~= nil then
-        return deepCopyMap(
-            nil,
-            luaMap,
-            serializationType,
-            traversalDescription,
-            classConstructors,
-            insideMap
-        )
-    end
-    if isTSTLSet(nil, luaMap) or luaMap[SerializationBrand.SET] ~= nil then
-        return deepCopySet(
-            nil,
-            luaMap,
-            serializationType,
-            traversalDescription,
-            classConstructors,
-            insideMap
-        )
-    end
-    local className = getTSTLClassName(nil, luaMap)
-    if className == "WeakMap" then
-        error("The deep copy function does not support copying the \"WeakMap\" class for: " .. traversalDescription)
-    end
-    if className == "WeakSet" then
-        error("The deep copy function does not support copying the \"WeakSet\" class for: " .. traversalDescription)
-    end
-    if className ~= nil or luaMap[SerializationBrand.TSTL_CLASS] ~= nil then
-        return deepCopyTSTLClass(
-            nil,
-            luaMap,
-            serializationType,
-            traversalDescription,
-            classConstructors,
-            insideMap
-        )
+function checkMetatable(self, luaMap, traversalDescription)
+    local metatable = getmetatable(luaMap)
+    if metatable == nil then
+        return
     end
-    checkMetatable(nil, luaMap, traversalDescription)
-    if isSerializedIsaacAPIClass(nil, luaMap) and serializationType == SerializationType.DESERIALIZE then
-        return deserializeIsaacAPIClass(nil, luaMap)
+    local tableDescription = traversalDescription == "" and "the table to copy" or ("\"" .. traversalDescription) .. "\""
+    error(("The deepCopy function detected that " .. tableDescription) .. " has a metatable. Copying tables with metatables is not supported, unless they are explicitly handled by the save data manager. (e.g. TypeScriptToLua Maps, TypeScriptToLua Sets, etc.)")
+end
+function deepCopyArray(self, array, serializationType, traversalDescription, classConstructors, insideMap)
+    if SAVE_DATA_MANAGER_DEBUG then
+        log("deepCopy is copying an array.")
     end
-    if isArray(nil, luaMap) then
-        return deepCopyArray(
+    local newArray = {}
+    for ____, value in ipairs(array) do
+        local newValue = ____exports.deepCopy(
             nil,
-            luaMap,
+            value,
             serializationType,
             traversalDescription,
             classConstructors,
             insideMap
         )
+        newArray[#newArray + 1] = newValue
     end
-    return deepCopyNormalLuaTable(
-        nil,
-        luaMap,
-        serializationType,
-        traversalDescription,
-        classConstructors,
-        insideMap
-    )
+    return newArray
 end
 function deepCopyDefaultMap(self, defaultMap, serializationType, traversalDescription, classConstructors, insideMap)
     if SAVE_DATA_MANAGER_DEBUG then
@@ -279,37 +234,6 @@ function deepCopyDefaultMap(self, defaultMap, serializationType, traversalDescri
     end
     return newDefaultMap
 end
-function getNewDefaultMap(self, defaultMap, serializationType, traversalDescription, constructorArg)
-    repeat
-        local ____switch35 = serializationType
-        local ____cond35 = ____switch35 == SerializationType.NONE
-        if ____cond35 then
-            do
-                return __TS__New(DefaultMap, constructorArg)
-            end
-        end
-        ____cond35 = ____cond35 or ____switch35 == SerializationType.SERIALIZE
-        if ____cond35 then
-            do
-                local newDefaultMap = {}
-                newDefaultMap[SerializationBrand.DEFAULT_MAP] = ""
-                newDefaultMap[SerializationBrand.DEFAULT_MAP_VALUE] = constructorArg
-                return newDefaultMap
-            end
-        end
-        ____cond35 = ____cond35 or ____switch35 == SerializationType.DESERIALIZE
-        if ____cond35 then
-            do
-                if isDefaultMap(nil, defaultMap) then
-                    error(("Failed to deserialize a default map of \"" .. traversalDescription) .. "\", since it was not a Lua table.")
-                end
-                local defaultMapValue = defaultMap[SerializationBrand.DEFAULT_MAP_VALUE]
-                assertDefined(nil, defaultMapValue, (("Failed to deserialize a default map of \"" .. traversalDescription) .. "\", since there was no serialization brand of: ") .. SerializationBrand.DEFAULT_MAP_VALUE)
-                return __TS__New(DefaultMap, defaultMapValue)
-            end
-        end
-    until true
-end
 function deepCopyMap(self, map, serializationType, traversalDescription, classConstructors, insideMap)
     if SAVE_DATA_MANAGER_DEBUG then
         log("deepCopy is copying a Map.")
@@ -350,6 +274,31 @@ function deepCopyMap(self, map, serializationType, traversalDescription, classCo
     end
     return newMap
 end
+function deepCopyNormalLuaTable(self, luaMap, serializationType, traversalDescription, classConstructors, insideMap)
+    if SAVE_DATA_MANAGER_DEBUG then
+        log("deepCopy is copying a normal Lua table.")
+    end
+    local newTable = {}
+    local ____getCopiedEntries_result_3 = getCopiedEntries(
+        nil,
+        luaMap,
+        serializationType,
+        traversalDescription,
+        classConstructors,
+        insideMap
+    )
+    local entries = ____getCopiedEntries_result_3.entries
+    local convertedNumberKeysToStrings = ____getCopiedEntries_result_3.convertedNumberKeysToStrings
+    if convertedNumberKeysToStrings then
+        newTable[SerializationBrand.OBJECT_WITH_NUMBER_KEYS] = ""
+    end
+    for ____, ____value in ipairs(entries) do
+        local key = ____value[1]
+        local value = ____value[2]
+        newTable[key] = value
+    end
+    return newTable
+end
 function deepCopySet(self, set, serializationType, traversalDescription, classConstructors, insideMap)
     if SAVE_DATA_MANAGER_DEBUG then
         log("deepCopy is copying a Set.")
@@ -361,7 +310,7 @@ function deepCopySet(self, set, serializationType, traversalDescription, classCo
     else
         newSet = __TS__New(Set)
     end
-    local ____getCopiedEntries_result_3 = getCopiedEntries(
+    local ____getCopiedEntries_result_4 = getCopiedEntries(
         nil,
         set,
         serializationType,
@@ -369,8 +318,8 @@ function deepCopySet(self, set, serializationType, traversalDescription, classCo
         classConstructors,
         insideMap
     )
-    local entries = ____getCopiedEntries_result_3.entries
-    local convertedNumberKeysToStrings = ____getCopiedEntries_result_3.convertedNumberKeysToStrings
+    local entries = ____getCopiedEntries_result_4.entries
+    local convertedNumberKeysToStrings = ____getCopiedEntries_result_4.convertedNumberKeysToStrings
     if convertedNumberKeysToStrings then
         if isTSTLSet(nil, newSet) then
             error("The deep copy function cannot convert number keys to strings for a Set.")
@@ -388,22 +337,90 @@ function deepCopySet(self, set, serializationType, traversalDescription, classCo
     end
     return newSet
 end
+function deepCopyTable(self, luaMap, serializationType, traversalDescription, classConstructors, insideMap)
+    if isDefaultMap(nil, luaMap) or luaMap[SerializationBrand.DEFAULT_MAP] ~= nil then
+        return deepCopyDefaultMap(
+            nil,
+            luaMap,
+            serializationType,
+            traversalDescription,
+            classConstructors,
+            insideMap
+        )
+    end
+    if isTSTLMap(nil, luaMap) or luaMap[SerializationBrand.MAP] ~= nil then
+        return deepCopyMap(
+            nil,
+            luaMap,
+            serializationType,
+            traversalDescription,
+            classConstructors,
+            insideMap
+        )
+    end
+    if isTSTLSet(nil, luaMap) or luaMap[SerializationBrand.SET] ~= nil then
+        return deepCopySet(
+            nil,
+            luaMap,
+            serializationType,
+            traversalDescription,
+            classConstructors,
+            insideMap
+        )
+    end
+    local className = getTSTLClassName(nil, luaMap)
+    if className == "WeakMap" or className == "WeakSet" then
+        error((("The deep copy function does not support copying the \"" .. className) .. "\" class for: ") .. traversalDescription)
+    end
+    if className ~= nil or luaMap[SerializationBrand.TSTL_CLASS] ~= nil then
+        return deepCopyTSTLClass(
+            nil,
+            luaMap,
+            serializationType,
+            traversalDescription,
+            classConstructors,
+            insideMap
+        )
+    end
+    checkMetatable(nil, luaMap, traversalDescription)
+    if isSerializedIsaacAPIClass(nil, luaMap) and serializationType == SerializationType.DESERIALIZE then
+        return deserializeIsaacAPIClass(nil, luaMap)
+    end
+    if isArray(nil, luaMap) then
+        return deepCopyArray(
+            nil,
+            luaMap,
+            serializationType,
+            traversalDescription,
+            classConstructors,
+            insideMap
+        )
+    end
+    return deepCopyNormalLuaTable(
+        nil,
+        luaMap,
+        serializationType,
+        traversalDescription,
+        classConstructors,
+        insideMap
+    )
+end
 function deepCopyTSTLClass(self, tstlClass, serializationType, traversalDescription, classConstructors, insideMap)
     if SAVE_DATA_MANAGER_DEBUG then
         log("deepCopy is copying a TSTL class.")
     end
     local newClass
     repeat
-        local ____switch64 = serializationType
-        local ____cond64 = ____switch64 == SerializationType.NONE
-        if ____cond64 then
+        local ____switch68 = serializationType
+        local ____cond68 = ____switch68 == SerializationType.NONE
+        if ____cond68 then
             do
                 newClass = newTSTLClass(nil, tstlClass)
                 break
             end
         end
-        ____cond64 = ____cond64 or ____switch64 == SerializationType.SERIALIZE
-        if ____cond64 then
+        ____cond68 = ____cond68 or ____switch68 == SerializationType.SERIALIZE
+        if ____cond68 then
             do
                 newClass = {}
                 local tstlClassName = getTSTLClassName(nil, tstlClass)
@@ -413,8 +430,8 @@ function deepCopyTSTLClass(self, tstlClass, serializationType, traversalDescript
                 break
             end
         end
-        ____cond64 = ____cond64 or ____switch64 == SerializationType.DESERIALIZE
-        if ____cond64 then
+        ____cond68 = ____cond68 or ____switch68 == SerializationType.DESERIALIZE
+        if ____cond68 then
             do
                 local tstlClassName = tstlClass[SerializationBrand.TSTL_CLASS]
                 assertDefined(nil, tstlClassName, "Failed to deserialize a TSTL class since the brand did not contain the class name.")
@@ -425,7 +442,7 @@ function deepCopyTSTLClass(self, tstlClass, serializationType, traversalDescript
             end
         end
     until true
-    local ____getCopiedEntries_result_4 = getCopiedEntries(
+    local ____getCopiedEntries_result_5 = getCopiedEntries(
         nil,
         tstlClass,
         serializationType,
@@ -433,8 +450,8 @@ function deepCopyTSTLClass(self, tstlClass, serializationType, traversalDescript
         classConstructors,
         insideMap
     )
-    local entries = ____getCopiedEntries_result_4.entries
-    local convertedNumberKeysToStrings = ____getCopiedEntries_result_4.convertedNumberKeysToStrings
+    local entries = ____getCopiedEntries_result_5.entries
+    local convertedNumberKeysToStrings = ____getCopiedEntries_result_5.convertedNumberKeysToStrings
     if convertedNumberKeysToStrings then
         newClass[SerializationBrand.OBJECT_WITH_NUMBER_KEYS] = ""
     end
@@ -445,48 +462,32 @@ function deepCopyTSTLClass(self, tstlClass, serializationType, traversalDescript
     end
     return newClass
 end
-function deepCopyArray(self, array, serializationType, traversalDescription, classConstructors, insideMap)
-    if SAVE_DATA_MANAGER_DEBUG then
-        log("deepCopy is copying an array.")
-    end
-    local newArray = {}
-    for ____, value in ipairs(array) do
-        local newValue = ____exports.deepCopy(
-            nil,
-            value,
-            serializationType,
-            traversalDescription,
-            classConstructors,
-            insideMap
-        )
-        newArray[#newArray + 1] = newValue
-    end
-    return newArray
-end
-function deepCopyNormalLuaTable(self, luaMap, serializationType, traversalDescription, classConstructors, insideMap)
-    if SAVE_DATA_MANAGER_DEBUG then
-        log("deepCopy is copying a normal Lua table.")
-    end
-    local newTable = {}
-    local ____getCopiedEntries_result_5 = getCopiedEntries(
-        nil,
-        luaMap,
-        serializationType,
-        traversalDescription,
-        classConstructors,
-        insideMap
-    )
-    local entries = ____getCopiedEntries_result_5.entries
-    local convertedNumberKeysToStrings = ____getCopiedEntries_result_5.convertedNumberKeysToStrings
-    if convertedNumberKeysToStrings then
-        newTable[SerializationBrand.OBJECT_WITH_NUMBER_KEYS] = ""
-    end
-    for ____, ____value in ipairs(entries) do
-        local key = ____value[1]
-        local value = ____value[2]
-        newTable[key] = value
+function deepCopyUserdata(self, value, serializationType, traversalDescription)
+    if not isCopyableIsaacAPIClass(nil, value) then
+        local className = getIsaacAPIClassName(nil, value) or "Unknown"
+        error((("The deep copy function does not support serializing \"" .. traversalDescription) .. "\", since it is an Isaac API class of type: ") .. className)
     end
-    return newTable
+    repeat
+        local ____switch78 = serializationType
+        local ____cond78 = ____switch78 == SerializationType.NONE
+        if ____cond78 then
+            do
+                return copyIsaacAPIClass(nil, value)
+            end
+        end
+        ____cond78 = ____cond78 or ____switch78 == SerializationType.SERIALIZE
+        if ____cond78 then
+            do
+                return serializeIsaacAPIClass(nil, value)
+            end
+        end
+        ____cond78 = ____cond78 or ____switch78 == SerializationType.DESERIALIZE
+        if ____cond78 then
+            do
+                return error(("The deep copy function can not deserialize \"" .. traversalDescription) .. "\", since it is userdata.")
+            end
+        end
+    until true
 end
 function getCopiedEntries(self, object, serializationType, traversalDescription, classConstructors, insideMap)
     local entries = {}
@@ -527,7 +528,7 @@ function getCopiedEntries(self, object, serializationType, traversalDescription,
         local value = ____value[2]
         do
             if isSerializationBrand(nil, key) then
-                goto __continue90
+                goto __continue91
             end
             traversalDescription = getTraversalDescription(nil, key, traversalDescription)
             local newValue = ____exports.deepCopy(
@@ -550,41 +551,37 @@ function getCopiedEntries(self, object, serializationType, traversalDescription,
             end
             copiedEntries[#copiedEntries + 1] = {keyToUse, newValue}
         end
-        ::__continue90::
+        ::__continue91::
     end
     return {entries = copiedEntries, convertedNumberKeysToStrings = convertNumberKeysToStrings}
 end
-function checkMetatable(self, luaMap, traversalDescription)
-    local metatable = getmetatable(luaMap)
-    if metatable == nil then
-        return
-    end
-    local tableDescription = traversalDescription == "" and "the table to copy" or ("\"" .. traversalDescription) .. "\""
-    error(("The deepCopy function detected that " .. tableDescription) .. " has a metatable. Copying tables with metatables is not supported, unless they are explicitly handled by the save data manager. (e.g. TypeScriptToLua Maps, TypeScriptToLua Sets, etc.)")
-end
-function deepCopyUserdata(self, value, serializationType, traversalDescription)
-    if not isCopyableIsaacAPIClass(nil, value) then
-        local className = getIsaacAPIClassName(nil, value) or "Unknown"
-        error((("The deep copy function does not support serializing \"" .. traversalDescription) .. "\", since it is an Isaac API class of type: ") .. className)
-    end
+function getNewDefaultMap(self, defaultMap, serializationType, traversalDescription, constructorArg)
     repeat
-        local ____switch100 = serializationType
-        local ____cond100 = ____switch100 == SerializationType.NONE
-        if ____cond100 then
+        local ____switch98 = serializationType
+        local ____cond98 = ____switch98 == SerializationType.NONE
+        if ____cond98 then
             do
-                return copyIsaacAPIClass(nil, value)
+                return __TS__New(DefaultMap, constructorArg)
             end
         end
-        ____cond100 = ____cond100 or ____switch100 == SerializationType.SERIALIZE
-        if ____cond100 then
+        ____cond98 = ____cond98 or ____switch98 == SerializationType.SERIALIZE
+        if ____cond98 then
             do
-                return serializeIsaacAPIClass(nil, value)
+                local newDefaultMap = {}
+                newDefaultMap[SerializationBrand.DEFAULT_MAP] = ""
+                newDefaultMap[SerializationBrand.DEFAULT_MAP_VALUE] = constructorArg
+                return newDefaultMap
             end
         end
-        ____cond100 = ____cond100 or ____switch100 == SerializationType.DESERIALIZE
-        if ____cond100 then
+        ____cond98 = ____cond98 or ____switch98 == SerializationType.DESERIALIZE
+        if ____cond98 then
             do
-                return error(("The deep copy function can not deserialize \"" .. traversalDescription) .. "\", since it is userdata.")
+                if isDefaultMap(nil, defaultMap) then
+                    error(("Failed to deserialize a default map of \"" .. traversalDescription) .. "\", since it was not a Lua table.")
+                end
+                local defaultMapValue = defaultMap[SerializationBrand.DEFAULT_MAP_VALUE]
+                assertDefined(nil, defaultMapValue, (("Failed to deserialize a default map of \"" .. traversalDescription) .. "\", since there was no serialization brand of: ") .. SerializationBrand.DEFAULT_MAP_VALUE)
+                return __TS__New(DefaultMap, defaultMapValue)
             end
         end
     until true