typescript-to-lua 1.10.0-beta.0 → 1.10.1

package/dist/lualib/Number.lua

@@ -1,26 +0,0 @@
-local function __TS__Number(value)
-    local valueType = type(value)
-    if valueType == "number" then
-        return value
-    elseif valueType == "string" then
-        local numberValue = tonumber(value)
-        if numberValue then
-            return numberValue
-        end
-        if value == "Infinity" then
-            return math.huge
-        end
-        if value == "-Infinity" then
-            return -math.huge
-        end
-        local stringWithoutSpaces = string.gsub(value, "%s", "")
-        if stringWithoutSpaces == "" then
-            return 0
-        end
-        return 0 / 0
-    elseif valueType == "boolean" then
-        return value and 1 or 0
-    else
-        return 0 / 0
-    end
-end

package/dist/lualib/NumberIsFinite.lua

@@ -1,3 +0,0 @@
-local function __TS__NumberIsFinite(value)
-    return type(value) == "number" and value == value and value ~= math.huge and value ~= -math.huge
-end

package/dist/lualib/NumberIsNaN.lua

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

package/dist/lualib/NumberToString.lua

@@ -1,44 +0,0 @@
-local __TS__NumberToString
-do
-    local radixChars = "0123456789abcdefghijklmnopqrstuvwxyz"
-    function __TS__NumberToString(self, radix)
-        if radix == nil or radix == 10 or self == math.huge or self == -math.huge or self ~= self then
-            return tostring(self)
-        end
-        radix = math.floor(radix)
-        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 result = ""
-        if radix == 8 then
-            result = string.format("%o", integer)
-        elseif radix == 16 then
-            result = string.format("%x", integer)
-        else
-            repeat
-                do
-                    result = __TS__StringAccess(radixChars, integer % radix) .. result
-                    integer = math.floor(integer / radix)
-                end
-            until not (integer ~= 0)
-        end
-        if fraction ~= 0 then
-            result = result .. "."
-            local delta = 1e-16
-            repeat
-                do
-                    fraction = fraction * radix
-                    delta = delta * radix
-                    local digit = math.floor(fraction)
-                    result = result .. __TS__StringAccess(radixChars, digit)
-                    fraction = fraction - digit
-                end
-            until not (fraction >= delta)
-        end
-        if self < 0 then
-            result = "-" .. result
-        end
-        return result
-    end
-end

package/dist/lualib/ObjectAssign.lua

@@ -1,10 +0,0 @@
-local function __TS__ObjectAssign(target, ...)
-    local sources = {...}
-    for i = 1, #sources do
-        local source = sources[i]
-        for key in pairs(source) do
-            target[key] = source[key]
-        end
-    end
-    return target
-end

package/dist/lualib/ObjectDefineProperty.lua

@@ -1,59 +0,0 @@
-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/ObjectEntries.lua

@@ -1,9 +0,0 @@
-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/ObjectFromEntries.lua

@@ -1,20 +0,0 @@
-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/ObjectGetOwnPropertyDescriptor.lua

@@ -1,10 +0,0 @@
-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/ObjectGetOwnPropertyDescriptors.lua

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

package/dist/lualib/ObjectKeys.lua

@@ -1,9 +0,0 @@
-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/ObjectRest.lua

@@ -1,9 +0,0 @@
-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/ObjectValues.lua

@@ -1,9 +0,0 @@
-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

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

package/dist/lualib/ParseInt.lua

@@ -1,43 +0,0 @@
-local __TS__ParseInt
-do
-    local parseIntBasePattern = "0123456789aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTvVwWxXyYzZ"
-    function __TS__ParseInt(numberString, base)
-        if base == nil then
-            base = 10
-            local hexMatch = string.match(numberString, "^%s*-?0[xX]")
-            if hexMatch then
-                base = 16
-                local ____string_match_result__0_0
-                if string.match(hexMatch, "-") then
-                    ____string_match_result__0_0 = "-" .. __TS__StringSubstr(numberString, #hexMatch)
-                else
-                    ____string_match_result__0_0 = __TS__StringSubstr(numberString, #hexMatch)
-                end
-                numberString = ____string_match_result__0_0
-            end
-        end
-        if base < 2 or base > 36 then
-            return 0 / 0
-        end
-        local ____temp_1
-        if base <= 10 then
-            ____temp_1 = __TS__StringSubstring(parseIntBasePattern, 0, base)
-        else
-            ____temp_1 = __TS__StringSubstr(parseIntBasePattern, 0, 10 + 2 * (base - 10))
-        end
-        local allowedDigits = ____temp_1
-        local pattern = ("^%s*(-?[" .. allowedDigits) .. "]*)"
-        local number = tonumber(
-            string.match(numberString, pattern),
-            base
-        )
-        if number == nil then
-            return 0 / 0
-        end
-        if number >= 0 then
-            return math.floor(number)
-        else
-            return math.ceil(number)
-        end
-    end
-end

package/dist/lualib/Promise.lua

@@ -1,176 +0,0 @@
-local __TS__Promise
-do
-    local function promiseDeferred(self)
-        local resolve
-        local reject
-        local promise = __TS__New(
-            __TS__Promise,
-            function(____, res, rej)
-                resolve = res
-                reject = rej
-            end
-        )
-        return {promise = promise, resolve = resolve, reject = reject}
-    end
-    local function isPromiseLike(self, thing)
-        return __TS__InstanceOf(thing, __TS__Promise)
-    end
-    __TS__Promise = __TS__Class()
-    __TS__Promise.name = "__TS__Promise"
-    function __TS__Promise.prototype.____constructor(self, executor)
-        self.state = 0
-        self.fulfilledCallbacks = {}
-        self.rejectedCallbacks = {}
-        self.finallyCallbacks = {}
-        do
-            local function ____catch(e)
-                self:reject(e)
-            end
-            local ____try, ____hasReturned = pcall(function()
-                executor(
-                    nil,
-                    __TS__FunctionBind(self.resolve, self),
-                    __TS__FunctionBind(self.reject, self)
-                )
-            end)
-            if not ____try then
-                ____catch(____hasReturned)
-            end
-        end
-    end
-    function __TS__Promise.resolve(data)
-        local promise = __TS__New(
-            __TS__Promise,
-            function()
-            end
-        )
-        promise.state = 1
-        promise.value = data
-        return promise
-    end
-    function __TS__Promise.reject(reason)
-        local promise = __TS__New(
-            __TS__Promise,
-            function()
-            end
-        )
-        promise.state = 2
-        promise.rejectionReason = reason
-        return promise
-    end
-    __TS__Promise.prototype["then"] = function(self, onFulfilled, onRejected)
-        local ____promiseDeferred_result_0 = promiseDeferred(nil)
-        local promise = ____promiseDeferred_result_0.promise
-        local resolve = ____promiseDeferred_result_0.resolve
-        local reject = ____promiseDeferred_result_0.reject
-        local isFulfilled = self.state == 1
-        local isRejected = self.state == 2
-        if onFulfilled then
-            local internalCallback = self:createPromiseResolvingCallback(onFulfilled, resolve, reject)
-            local ____self_fulfilledCallbacks_1 = self.fulfilledCallbacks
-            ____self_fulfilledCallbacks_1[#____self_fulfilledCallbacks_1 + 1] = internalCallback
-            if isFulfilled then
-                internalCallback(nil, self.value)
-            end
-        else
-            local ____self_fulfilledCallbacks_2 = self.fulfilledCallbacks
-            ____self_fulfilledCallbacks_2[#____self_fulfilledCallbacks_2 + 1] = function(____, v) return resolve(nil, v) end
-        end
-        if onRejected then
-            local internalCallback = self:createPromiseResolvingCallback(onRejected, resolve, reject)
-            local ____self_rejectedCallbacks_3 = self.rejectedCallbacks
-            ____self_rejectedCallbacks_3[#____self_rejectedCallbacks_3 + 1] = internalCallback
-            if isRejected then
-                internalCallback(nil, self.rejectionReason)
-            end
-        else
-            local ____self_rejectedCallbacks_4 = self.rejectedCallbacks
-            ____self_rejectedCallbacks_4[#____self_rejectedCallbacks_4 + 1] = function(____, err) return reject(nil, err) end
-        end
-        if isFulfilled then
-            resolve(nil, self.value)
-        end
-        if isRejected then
-            reject(nil, self.rejectionReason)
-        end
-        return promise
-    end
-    function __TS__Promise.prototype.catch(self, onRejected)
-        return self["then"](self, nil, onRejected)
-    end
-    function __TS__Promise.prototype.finally(self, onFinally)
-        if onFinally then
-            local ____self_finallyCallbacks_5 = self.finallyCallbacks
-            ____self_finallyCallbacks_5[#____self_finallyCallbacks_5 + 1] = onFinally
-            if self.state ~= 0 then
-                onFinally(nil)
-            end
-        end
-        return self
-    end
-    function __TS__Promise.prototype.resolve(self, data)
-        if __TS__InstanceOf(data, __TS__Promise) then
-            data["then"](
-                data,
-                function(____, v) return self:resolve(v) end,
-                function(____, err) return self:reject(err) end
-            )
-            return
-        end
-        if self.state == 0 then
-            self.state = 1
-            self.value = data
-            for ____, callback in ipairs(self.fulfilledCallbacks) do
-                callback(nil, data)
-            end
-            for ____, callback in ipairs(self.finallyCallbacks) do
-                callback(nil)
-            end
-        end
-    end
-    function __TS__Promise.prototype.reject(self, reason)
-        if self.state == 0 then
-            self.state = 2
-            self.rejectionReason = reason
-            for ____, callback in ipairs(self.rejectedCallbacks) do
-                callback(nil, reason)
-            end
-            for ____, callback in ipairs(self.finallyCallbacks) do
-                callback(nil)
-            end
-        end
-    end
-    function __TS__Promise.prototype.createPromiseResolvingCallback(self, f, resolve, reject)
-        return function(____, value)
-            do
-                local function ____catch(e)
-                    reject(nil, e)
-                end
-                local ____try, ____hasReturned = pcall(function()
-                    self:handleCallbackData(
-                        f(nil, value),
-                        resolve,
-                        reject
-                    )
-                end)
-                if not ____try then
-                    ____catch(____hasReturned)
-                end
-            end
-        end
-    end
-    function __TS__Promise.prototype.handleCallbackData(self, data, resolve, reject)
-        if isPromiseLike(nil, data) then
-            local nextpromise = data
-            if nextpromise.state == 1 then
-                resolve(nil, nextpromise.value)
-            elseif nextpromise.state == 2 then
-                reject(nil, nextpromise.rejectionReason)
-            else
-                data["then"](data, resolve, reject)
-            end
-        else
-            resolve(nil, data)
-        end
-    end
-end

package/dist/lualib/PromiseAll.lua

@@ -1,44 +0,0 @@
-local function __TS__PromiseAll(iterable)
-    local results = {}
-    local toResolve = {}
-    local numToResolve = 0
-    local i = 0
-    for ____, item in __TS__Iterator(iterable) do
-        if __TS__InstanceOf(item, __TS__Promise) then
-            if item.state == 1 then
-                results[i + 1] = item.value
-            elseif item.state == 2 then
-                return __TS__Promise.reject(item.rejectionReason)
-            else
-                numToResolve = numToResolve + 1
-                toResolve[i] = item
-            end
-        else
-            results[i + 1] = item
-        end
-        i = i + 1
-    end
-    if numToResolve == 0 then
-        return __TS__Promise.resolve(results)
-    end
-    return __TS__New(
-        __TS__Promise,
-        function(____, resolve, reject)
-            for index, promise in pairs(toResolve) do
-                promise["then"](
-                    promise,
-                    function(____, data)
-                        results[index + 1] = data
-                        numToResolve = numToResolve - 1
-                        if numToResolve == 0 then
-                            resolve(nil, results)
-                        end
-                    end,
-                    function(____, reason)
-                        reject(nil, reason)
-                    end
-                )
-            end
-        end
-    )
-end

package/dist/lualib/PromiseAllSettled.lua

@@ -1,48 +0,0 @@
-local function __TS__PromiseAllSettled(iterable)
-    local results = {}
-    local toResolve = {}
-    local numToResolve = 0
-    local i = 0
-    for ____, item in __TS__Iterator(iterable) do
-        if __TS__InstanceOf(item, __TS__Promise) then
-            if item.state == 1 then
-                results[i + 1] = {status = "fulfilled", value = item.value}
-            elseif item.state == 2 then
-                results[i + 1] = {status = "rejected", reason = item.rejectionReason}
-            else
-                numToResolve = numToResolve + 1
-                toResolve[i] = item
-            end
-        else
-            results[i + 1] = {status = "fulfilled", value = item}
-        end
-        i = i + 1
-    end
-    if numToResolve == 0 then
-        return __TS__Promise.resolve(results)
-    end
-    return __TS__New(
-        __TS__Promise,
-        function(____, resolve)
-            for index, promise in pairs(toResolve) do
-                promise["then"](
-                    promise,
-                    function(____, data)
-                        results[index + 1] = {status = "fulfilled", value = data}
-                        numToResolve = numToResolve - 1
-                        if numToResolve == 0 then
-                            resolve(nil, results)
-                        end
-                    end,
-                    function(____, reason)
-                        results[index + 1] = {status = "rejected", reason = reason}
-                        numToResolve = numToResolve - 1
-                        if numToResolve == 0 then
-                            resolve(nil, results)
-                        end
-                    end
-                )
-            end
-        end
-    )
-end

package/dist/lualib/PromiseAny.lua

@@ -1,41 +0,0 @@
-local function __TS__PromiseAny(iterable)
-    local rejections = {}
-    local pending = {}
-    for ____, item in __TS__Iterator(iterable) do
-        if __TS__InstanceOf(item, __TS__Promise) then
-            if item.state == 1 then
-                return __TS__Promise.resolve(item.value)
-            elseif item.state == 2 then
-                rejections[#rejections + 1] = item.rejectionReason
-            else
-                pending[#pending + 1] = item
-            end
-        else
-            return __TS__Promise.resolve(item)
-        end
-    end
-    if #pending == 0 then
-        return __TS__Promise.reject("No promises to resolve with .any()")
-    end
-    local numResolved = 0
-    return __TS__New(
-        __TS__Promise,
-        function(____, resolve, reject)
-            for ____, promise in ipairs(pending) do
-                promise["then"](
-                    promise,
-                    function(____, data)
-                        resolve(nil, data)
-                    end,
-                    function(____, reason)
-                        rejections[#rejections + 1] = reason
-                        numResolved = numResolved + 1
-                        if numResolved == #pending then
-                            reject(nil, {name = "AggregateError", message = "All Promises rejected", errors = rejections})
-                        end
-                    end
-                )
-            end
-        end
-    )
-end

package/dist/lualib/PromiseRace.lua

@@ -1,28 +0,0 @@
-local function __TS__PromiseRace(iterable)
-    local pending = {}
-    for ____, item in __TS__Iterator(iterable) do
-        if __TS__InstanceOf(item, __TS__Promise) then
-            if item.state == 1 then
-                return __TS__Promise.resolve(item.value)
-            elseif item.state == 2 then
-                return __TS__Promise.reject(item.rejectionReason)
-            else
-                pending[#pending + 1] = item
-            end
-        else
-            return __TS__Promise.resolve(item)
-        end
-    end
-    return __TS__New(
-        __TS__Promise,
-        function(____, resolve, reject)
-            for ____, promise in ipairs(pending) do
-                promise["then"](
-                    promise,
-                    function(____, value) return resolve(nil, value) end,
-                    function(____, reason) return reject(nil, reason) end
-                )
-            end
-        end
-    )
-end