typescript-to-lua 1.8.2 → 1.10.0

package/dist/lualib/{ArrayReduce.lua → universal/ArrayReduce.lua}

@@ -2,7 +2,7 @@ local function __TS__ArrayReduce(self, callbackFn, ...)
     local len = #self
     local k = 0
     local accumulator = nil
-    if select("#", ...) ~= 0 then
+    if __TS__CountVarargs(...) ~= 0 then
         accumulator = ...
     elseif len > 0 then
         accumulator = self[1]

package/dist/lualib/{ArrayReduceRight.lua → universal/ArrayReduceRight.lua}

@@ -2,7 +2,7 @@ local function __TS__ArrayReduceRight(self, callbackFn, ...)
     local len = #self
     local k = len - 1
     local accumulator = nil
-    if select("#", ...) ~= 0 then
+    if __TS__CountVarargs(...) ~= 0 then
         accumulator = ...
     elseif len > 0 then
         accumulator = self[k + 1]

package/dist/lualib/universal/ArraySort.lua

@@ -0,0 +1,11 @@
+local function __TS__ArraySort(self, compareFn)
+    if compareFn ~= nil then
+        table.sort(
+            self,
+            function(a, b) return compareFn(nil, a, b) < 0 end
+        )
+    else
+        table.sort(self)
+    end
+    return self
+end

package/dist/lualib/{ArraySplice.lua → universal/ArraySplice.lua}

@@ -1,7 +1,7 @@
 local function __TS__ArraySplice(self, ...)
     local args = {...}
     local len = #self
-    local actualArgumentCount = select("#", ...)
+    local actualArgumentCount = __TS__CountVarargs(...)
     local start = args[1]
     local deleteCount = args[2]
     if start < 0 then

package/dist/lualib/universal/Await.lua

@@ -0,0 +1,54 @@
+local function __TS__AsyncAwaiter(generator)
+    return __TS__New(
+        __TS__Promise,
+        function(____, resolve, reject)
+            local adopt, fulfilled, step, resolved, asyncCoroutine
+            function adopt(self, value)
+                local ____temp_0
+                if __TS__InstanceOf(value, __TS__Promise) then
+                    ____temp_0 = value
+                else
+                    ____temp_0 = __TS__Promise.resolve(value)
+                end
+                return ____temp_0
+            end
+            function fulfilled(self, value)
+                local success, resultOrError = coroutine.resume(asyncCoroutine, value)
+                if success then
+                    step(nil, resultOrError)
+                else
+                    reject(nil, resultOrError)
+                end
+            end
+            function step(self, result)
+                if resolved then
+                    return
+                end
+                if coroutine.status(asyncCoroutine) == "dead" then
+                    resolve(nil, result)
+                else
+                    local ____self_1 = adopt(nil, result)
+                    ____self_1["then"](____self_1, fulfilled, reject)
+                end
+            end
+            resolved = false
+            asyncCoroutine = coroutine.create(generator)
+            local success, resultOrError = coroutine.resume(
+                asyncCoroutine,
+                function(____, v)
+                    resolved = true
+                    local ____self_2 = adopt(nil, v)
+                    ____self_2["then"](____self_2, resolve, reject)
+                end
+            )
+            if success then
+                step(nil, resultOrError)
+            else
+                reject(nil, resultOrError)
+            end
+        end
+    )
+end
+local function __TS__Await(thing)
+    return coroutine.yield(thing)
+end

package/dist/lualib/universal/Class.lua

@@ -0,0 +1,6 @@
+local function __TS__Class(self)
+    local c = {prototype = {}}
+    c.prototype.__index = c.prototype
+    c.prototype.constructor = c
+    return c
+end

package/dist/lualib/universal/ClassExtends.lua

@@ -0,0 +1,24 @@
+local function __TS__ClassExtends(target, base)
+    target.____super = base
+    local staticMetatable = setmetatable({__index = base}, base)
+    setmetatable(target, staticMetatable)
+    local baseMetatable = getmetatable(base)
+    if baseMetatable then
+        if type(baseMetatable.__index) == "function" then
+            staticMetatable.__index = baseMetatable.__index
+        end
+        if type(baseMetatable.__newindex) == "function" then
+            staticMetatable.__newindex = baseMetatable.__newindex
+        end
+    end
+    setmetatable(target.prototype, base.prototype)
+    if type(base.prototype.__index) == "function" then
+        target.prototype.__index = base.prototype.__index
+    end
+    if type(base.prototype.__newindex) == "function" then
+        target.prototype.__newindex = base.prototype.__newindex
+    end
+    if type(base.prototype.__tostring) == "function" then
+        target.prototype.__tostring = base.prototype.__tostring
+    end
+end

package/dist/lualib/universal/CloneDescriptor.lua

@@ -0,0 +1,28 @@
+local function __TS__CloneDescriptor(____bindingPattern0)
+    local value
+    local writable
+    local set
+    local get
+    local configurable
+    local enumerable
+    enumerable = ____bindingPattern0.enumerable
+    configurable = ____bindingPattern0.configurable
+    get = ____bindingPattern0.get
+    set = ____bindingPattern0.set
+    writable = ____bindingPattern0.writable
+    value = ____bindingPattern0.value
+    local descriptor = {enumerable = enumerable == true, configurable = configurable == true}
+    local hasGetterOrSetter = get ~= nil or set ~= nil
+    local hasValueOrWritableAttribute = writable ~= nil or value ~= nil
+    if hasGetterOrSetter and hasValueOrWritableAttribute then
+        error("Invalid property descriptor. Cannot both specify accessors and a value or writable attribute.", 0)
+    end
+    if get or set then
+        descriptor.get = get
+        descriptor.set = set
+    else
+        descriptor.value = value
+        descriptor.writable = writable == true
+    end
+    return descriptor
+end

package/dist/lualib/universal/CountVarargs.lua

@@ -0,0 +1,3 @@
+local function __TS__CountVarargs(...)
+    return select("#", ...)
+end

package/dist/lualib/universal/DecorateParam.lua

@@ -0,0 +1,3 @@
+local function __TS__DecorateParam(paramIndex, decorator)
+    return function(____, target, key) return decorator(nil, target, key, paramIndex) end
+end

package/dist/lualib/universal/Delete.lua

@@ -0,0 +1,19 @@
+local function __TS__Delete(target, key)
+    local descriptors = __TS__ObjectGetOwnPropertyDescriptors(target)
+    local descriptor = descriptors[key]
+    if descriptor then
+        if not descriptor.configurable then
+            error(
+                __TS__New(
+                    TypeError,
+                    ((("Cannot delete property " .. tostring(key)) .. " of ") .. tostring(target)) .. "."
+                ),
+                0
+            )
+        end
+        descriptors[key] = nil
+        return true
+    end
+    target[key] = nil
+    return true
+end

package/dist/lualib/{Error.lua → universal/Error.lua}

@@ -12,13 +12,18 @@ do
                 break
             end
         end
-        return debug.traceback(nil, level)
+        if __TS__StringIncludes(_VERSION, "Lua 5.0") then
+            return debug.traceback(("[Level " .. tostring(level)) .. "]")
+        else
+            return debug.traceback(nil, level)
+        end
     end
     local function wrapErrorToString(self, getDescription)
         return function(self)
             local description = getDescription(self)
             local caller = debug.getinfo(3, "f")
-            if _VERSION == "Lua 5.1" or caller and caller.func ~= error then
+            local isClassicLua = __TS__StringIncludes(_VERSION, "Lua 5.0") or _VERSION == "Lua 5.1"
+            if isClassicLua or caller and caller.func ~= error then
                 return description
             else
                 return (tostring(description) .. "\n") .. self.stack

package/dist/lualib/{Generator.lua → universal/Generator.lua}

@@ -20,16 +20,9 @@ do
     function __TS__Generator(fn)
         return function(...)
             local args = {...}
-            local argsLength = select("#", ...)
+            local argsLength = __TS__CountVarargs(...)
             return {
-                ____coroutine = coroutine.create(function()
-                    local ____fn_1 = fn
-                    local ____unpack_0 = unpack
-                    if ____unpack_0 == nil then
-                        ____unpack_0 = table.unpack
-                    end
-                    return ____fn_1(____unpack_0(args, 1, argsLength))
-                end),
+                ____coroutine = coroutine.create(function() return fn(__TS__Unpack(args, 1, argsLength)) end),
                 [Symbol.iterator] = generatorIterator,
                 next = generatorNext
             }

package/dist/lualib/universal/InstanceOf.lua

@@ -0,0 +1,18 @@
+local function __TS__InstanceOf(obj, classTbl)
+    if type(classTbl) ~= "table" then
+        error("Right-hand side of 'instanceof' is not an object", 0)
+    end
+    if classTbl[Symbol.hasInstance] ~= nil then
+        return not not classTbl[Symbol.hasInstance](classTbl, obj)
+    end
+    if type(obj) == "table" then
+        local luaClass = obj.constructor
+        while luaClass ~= nil do
+            if luaClass == classTbl then
+                return true
+            end
+            luaClass = luaClass.____super
+        end
+    end
+    return false
+end

package/dist/lualib/universal/InstanceOfObject.lua

@@ -0,0 +1,4 @@
+local function __TS__InstanceOfObject(value)
+    local valueType = type(value)
+    return valueType == "table" or valueType == "function"
+end

package/dist/lualib/universal/Map.lua

@@ -0,0 +1,140 @@
+local Map
+do
+    Map = __TS__Class()
+    Map.name = "Map"
+    function Map.prototype.____constructor(self, entries)
+        self[Symbol.toStringTag] = "Map"
+        self.items = {}
+        self.size = 0
+        self.nextKey = {}
+        self.previousKey = {}
+        if entries == nil then
+            return
+        end
+        local iterable = entries
+        if iterable[Symbol.iterator] then
+            local iterator = iterable[Symbol.iterator](iterable)
+            while true do
+                local result = iterator:next()
+                if result.done then
+                    break
+                end
+                local value = result.value
+                self:set(value[1], value[2])
+            end
+        else
+            local array = entries
+            for ____, kvp in ipairs(array) do
+                self:set(kvp[1], kvp[2])
+            end
+        end
+    end
+    function Map.prototype.clear(self)
+        self.items = {}
+        self.nextKey = {}
+        self.previousKey = {}
+        self.firstKey = nil
+        self.lastKey = nil
+        self.size = 0
+    end
+    function Map.prototype.delete(self, key)
+        local contains = self:has(key)
+        if contains then
+            self.size = self.size - 1
+            local next = self.nextKey[key]
+            local previous = self.previousKey[key]
+            if next and previous then
+                self.nextKey[previous] = next
+                self.previousKey[next] = previous
+            elseif next then
+                self.firstKey = next
+                self.previousKey[next] = nil
+            elseif previous then
+                self.lastKey = previous
+                self.nextKey[previous] = nil
+            else
+                self.firstKey = nil
+                self.lastKey = nil
+            end
+            self.nextKey[key] = nil
+            self.previousKey[key] = nil
+        end
+        self.items[key] = nil
+        return contains
+    end
+    function Map.prototype.forEach(self, callback)
+        for ____, key in __TS__Iterator(self:keys()) do
+            callback(nil, self.items[key], key, self)
+        end
+    end
+    function Map.prototype.get(self, key)
+        return self.items[key]
+    end
+    function Map.prototype.has(self, key)
+        return self.nextKey[key] ~= nil or self.lastKey == key
+    end
+    function Map.prototype.set(self, key, value)
+        local isNewValue = not self:has(key)
+        if isNewValue then
+            self.size = self.size + 1
+        end
+        self.items[key] = value
+        if self.firstKey == nil then
+            self.firstKey = key
+            self.lastKey = key
+        elseif isNewValue then
+            self.nextKey[self.lastKey] = key
+            self.previousKey[key] = self.lastKey
+            self.lastKey = key
+        end
+        return self
+    end
+    Map.prototype[Symbol.iterator] = function(self)
+        return self:entries()
+    end
+    function Map.prototype.entries(self)
+        local items = self.items
+        local nextKey = self.nextKey
+        local key = self.firstKey
+        return {
+            [Symbol.iterator] = function(self)
+                return self
+            end,
+            next = function(self)
+                local result = {done = not key, value = {key, items[key]}}
+                key = nextKey[key]
+                return result
+            end
+        }
+    end
+    function Map.prototype.keys(self)
+        local nextKey = self.nextKey
+        local key = self.firstKey
+        return {
+            [Symbol.iterator] = function(self)
+                return self
+            end,
+            next = function(self)
+                local result = {done = not key, value = key}
+                key = nextKey[key]
+                return result
+            end
+        }
+    end
+    function Map.prototype.values(self)
+        local items = self.items
+        local nextKey = self.nextKey
+        local key = self.firstKey
+        return {
+            [Symbol.iterator] = function(self)
+                return self
+            end,
+            next = function(self)
+                local result = {done = not key, value = items[key]}
+                key = nextKey[key]
+                return result
+            end
+        }
+    end
+    Map[Symbol.species] = Map
+end

package/dist/lualib/universal/Match.lua

@@ -0,0 +1 @@
+local __TS__Match = string.match

package/dist/lualib/universal/MathAtan2.lua

@@ -0,0 +1 @@
+local __TS__MathAtan2 = math.atan2 or math.atan

package/dist/lualib/universal/MathModf.lua

@@ -0,0 +1 @@
+local __TS__MathModf = math.modf

package/dist/lualib/universal/MathSign.lua

@@ -0,0 +1,8 @@
+local function __TS__MathSign(val)
+    if val > 0 then
+        return 1
+    elseif val < 0 then
+        return -1
+    end
+    return 0
+end

package/dist/lualib/universal/Modulo50.lua

@@ -0,0 +1,3 @@
+local function __TS__Modulo50(a, b)
+    return a - math.floor(a / b) * b
+end

package/dist/lualib/universal/NumberIsNaN.lua

@@ -0,0 +1,3 @@
+local function __TS__NumberIsNaN(value)
+    return value ~= value
+end

package/dist/lualib/{NumberToString.lua → universal/NumberToString.lua}

@@ -9,7 +9,7 @@ do
         if radix < 2 or radix > 36 then
             error("toString() radix argument must be between 2 and 36", 0)
         end
-        local integer, fraction = math.modf(math.abs(self))
+        local integer, fraction = __TS__MathModf(math.abs(self))
         local result = ""
         if radix == 8 then
             result = string.format("%o", integer)

package/dist/lualib/universal/ObjectDefineProperty.lua

@@ -0,0 +1,59 @@
+local function __TS__ObjectDefineProperty(target, key, desc)
+    local ____temp_0
+    if type(key) == "number" then
+        ____temp_0 = key + 1
+    else
+        ____temp_0 = key
+    end
+    local luaKey = ____temp_0
+    local value = rawget(target, luaKey)
+    local hasGetterOrSetter = desc.get ~= nil or desc.set ~= nil
+    local descriptor
+    if hasGetterOrSetter then
+        if value ~= nil then
+            error(
+                "Cannot redefine property: " .. tostring(key),
+                0
+            )
+        end
+        descriptor = desc
+    else
+        local valueExists = value ~= nil
+        local ____desc_set_5 = desc.set
+        local ____desc_get_6 = desc.get
+        local ____temp_1
+        if desc.configurable ~= nil then
+            ____temp_1 = desc.configurable
+        else
+            ____temp_1 = valueExists
+        end
+        local ____temp_2
+        if desc.enumerable ~= nil then
+            ____temp_2 = desc.enumerable
+        else
+            ____temp_2 = valueExists
+        end
+        local ____temp_3
+        if desc.writable ~= nil then
+            ____temp_3 = desc.writable
+        else
+            ____temp_3 = valueExists
+        end
+        local ____temp_4
+        if desc.value ~= nil then
+            ____temp_4 = desc.value
+        else
+            ____temp_4 = value
+        end
+        descriptor = {
+            set = ____desc_set_5,
+            get = ____desc_get_6,
+            configurable = ____temp_1,
+            enumerable = ____temp_2,
+            writable = ____temp_3,
+            value = ____temp_4
+        }
+    end
+    __TS__SetDescriptor(target, luaKey, descriptor)
+    return target
+end

package/dist/lualib/universal/ObjectEntries.lua

@@ -0,0 +1,9 @@
+local function __TS__ObjectEntries(obj)
+    local result = {}
+    local len = 0
+    for key in pairs(obj) do
+        len = len + 1
+        result[len] = {key, obj[key]}
+    end
+    return result
+end

package/dist/lualib/universal/ObjectFromEntries.lua

@@ -0,0 +1,20 @@
+local function __TS__ObjectFromEntries(entries)
+    local obj = {}
+    local iterable = entries
+    if iterable[Symbol.iterator] then
+        local iterator = iterable[Symbol.iterator](iterable)
+        while true do
+            local result = iterator:next()
+            if result.done then
+                break
+            end
+            local value = result.value
+            obj[value[1]] = value[2]
+        end
+    else
+        for ____, entry in ipairs(entries) do
+            obj[entry[1]] = entry[2]
+        end
+    end
+    return obj
+end

package/dist/lualib/universal/ObjectGetOwnPropertyDescriptor.lua

@@ -0,0 +1,10 @@
+local function __TS__ObjectGetOwnPropertyDescriptor(object, key)
+    local metatable = getmetatable(object)
+    if not metatable then
+        return
+    end
+    if not rawget(metatable, "_descriptors") then
+        return
+    end
+    return rawget(metatable, "_descriptors")[key]
+end

package/dist/lualib/universal/ObjectGetOwnPropertyDescriptors.lua

@@ -0,0 +1,7 @@
+local function __TS__ObjectGetOwnPropertyDescriptors(object)
+    local metatable = getmetatable(object)
+    if not metatable then
+        return {}
+    end
+    return rawget(metatable, "_descriptors") or ({})
+end

package/dist/lualib/universal/ObjectKeys.lua

@@ -0,0 +1,9 @@
+local function __TS__ObjectKeys(obj)
+    local result = {}
+    local len = 0
+    for key in pairs(obj) do
+        len = len + 1
+        result[len] = key
+    end
+    return result
+end

package/dist/lualib/universal/ObjectRest.lua

@@ -0,0 +1,9 @@
+local function __TS__ObjectRest(target, usedProperties)
+    local result = {}
+    for property in pairs(target) do
+        if not usedProperties[property] then
+            result[property] = target[property]
+        end
+    end
+    return result
+end

package/dist/lualib/universal/ObjectValues.lua

@@ -0,0 +1,9 @@
+local function __TS__ObjectValues(obj)
+    local result = {}
+    local len = 0
+    for key in pairs(obj) do
+        len = len + 1
+        result[len] = obj[key]
+    end
+    return result
+end

package/dist/lualib/{ParseFloat.lua → universal/ParseFloat.lua}

@@ -1,5 +1,5 @@
 local function __TS__ParseFloat(numberString)
-    local infinityMatch = string.match(numberString, "^%s*(-?Infinity)")
+    local infinityMatch = __TS__Match(numberString, "^%s*(-?Infinity)")
     if infinityMatch then
         local ____temp_0
         if __TS__StringAccess(infinityMatch, 0) == "-" then
@@ -9,7 +9,7 @@ local function __TS__ParseFloat(numberString)
         end
         return ____temp_0
     end
-    local number = tonumber(string.match(numberString, "^%s*(-?%d+%.?%d*)"))
+    local number = tonumber(__TS__Match(numberString, "^%s*(-?%d+%.?%d*)"))
     local ____number_1 = number
     if ____number_1 == nil then
         ____number_1 = 0 / 0