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

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

package/dist/lualib/Set.lua

@@ -1,130 +0,0 @@
-local Set
-do
-    Set = __TS__Class()
-    Set.name = "Set"
-    function Set.prototype.____constructor(self, values)
-        self[Symbol.toStringTag] = "Set"
-        self.size = 0
-        self.nextKey = {}
-        self.previousKey = {}
-        if values == nil then
-            return
-        end
-        local iterable = values
-        if iterable[Symbol.iterator] then
-            local iterator = iterable[Symbol.iterator](iterable)
-            while true do
-                local result = iterator:next()
-                if result.done then
-                    break
-                end
-                self:add(result.value)
-            end
-        else
-            local array = values
-            for ____, value in ipairs(array) do
-                self:add(value)
-            end
-        end
-    end
-    function Set.prototype.add(self, value)
-        local isNewValue = not self:has(value)
-        if isNewValue then
-            self.size = self.size + 1
-        end
-        if self.firstKey == nil then
-            self.firstKey = value
-            self.lastKey = value
-        elseif isNewValue then
-            self.nextKey[self.lastKey] = value
-            self.previousKey[value] = self.lastKey
-            self.lastKey = value
-        end
-        return self
-    end
-    function Set.prototype.clear(self)
-        self.nextKey = {}
-        self.previousKey = {}
-        self.firstKey = nil
-        self.lastKey = nil
-        self.size = 0
-    end
-    function Set.prototype.delete(self, value)
-        local contains = self:has(value)
-        if contains then
-            self.size = self.size - 1
-            local next = self.nextKey[value]
-            local previous = self.previousKey[value]
-            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[value] = nil
-            self.previousKey[value] = nil
-        end
-        return contains
-    end
-    function Set.prototype.forEach(self, callback)
-        for ____, key in __TS__Iterator(self:keys()) do
-            callback(nil, key, key, self)
-        end
-    end
-    function Set.prototype.has(self, value)
-        return self.nextKey[value] ~= nil or self.lastKey == value
-    end
-    Set.prototype[Symbol.iterator] = function(self)
-        return self:values()
-    end
-    function Set.prototype.entries(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}}
-                key = nextKey[key]
-                return result
-            end
-        }
-    end
-    function Set.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 Set.prototype.values(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
-    Set[Symbol.species] = Set
-end

package/dist/lualib/SetDescriptor.lua

@@ -1,79 +0,0 @@
-local __TS__SetDescriptor
-do
-    local function descriptorIndex(self, key)
-        local value = rawget(self, key)
-        if value ~= nil then
-            return value
-        end
-        local metatable = getmetatable(self)
-        while metatable do
-            local rawResult = rawget(metatable, key)
-            if rawResult ~= nil then
-                return rawResult
-            end
-            local descriptors = rawget(metatable, "_descriptors")
-            if descriptors then
-                local descriptor = descriptors[key]
-                if descriptor then
-                    if descriptor.get then
-                        return descriptor.get(self)
-                    end
-                    return descriptor.value
-                end
-            end
-            metatable = getmetatable(metatable)
-        end
-    end
-    local function descriptorNewIndex(self, key, value)
-        local metatable = getmetatable(self)
-        while metatable do
-            local descriptors = rawget(metatable, "_descriptors")
-            if descriptors then
-                local descriptor = descriptors[key]
-                if descriptor then
-                    if descriptor.set then
-                        descriptor.set(self, value)
-                    else
-                        if descriptor.writable == false then
-                            error(
-                                ((("Cannot assign to read only property '" .. key) .. "' of object '") .. tostring(self)) .. "'",
-                                0
-                            )
-                        end
-                        descriptor.value = value
-                    end
-                    return
-                end
-            end
-            metatable = getmetatable(metatable)
-        end
-        rawset(self, key, value)
-    end
-    function __TS__SetDescriptor(target, key, desc, isPrototype)
-        if isPrototype == nil then
-            isPrototype = false
-        end
-        local ____isPrototype_0
-        if isPrototype then
-            ____isPrototype_0 = target
-        else
-            ____isPrototype_0 = getmetatable(target)
-        end
-        local metatable = ____isPrototype_0
-        if not metatable then
-            metatable = {}
-            setmetatable(target, metatable)
-        end
-        local value = rawget(target, key)
-        if value ~= nil then
-            rawset(target, key, nil)
-        end
-        if not rawget(metatable, "_descriptors") then
-            metatable._descriptors = {}
-        end
-        local descriptor = __TS__CloneDescriptor(desc)
-        metatable._descriptors[key] = descriptor
-        metatable.__index = descriptorIndex
-        metatable.__newindex = descriptorNewIndex
-    end
-end

package/dist/lualib/SourceMapTraceBack.lua

@@ -1,54 +0,0 @@
-local function __TS__SourceMapTraceBack(fileName, sourceMap)
-    _G.__TS__sourcemap = _G.__TS__sourcemap or ({})
-    _G.__TS__sourcemap[fileName] = sourceMap
-    if _G.__TS__originalTraceback == nil then
-        local originalTraceback = debug.traceback
-        _G.__TS__originalTraceback = originalTraceback
-        debug.traceback = function(thread, message, level)
-            local trace
-            if thread == nil and message == nil and level == nil then
-                trace = originalTraceback()
-            else
-                trace = originalTraceback(thread, message, level)
-            end
-            if type(trace) ~= "string" then
-                return trace
-            end
-            local function replacer(____, file, srcFile, line)
-                local fileSourceMap = _G.__TS__sourcemap[file]
-                if fileSourceMap and fileSourceMap[line] then
-                    local data = fileSourceMap[line]
-                    if type(data) == "number" then
-                        return (srcFile .. ":") .. tostring(data)
-                    end
-                    return (tostring(data.file) .. ":") .. tostring(data.line)
-                end
-                return (file .. ":") .. line
-            end
-            local result = string.gsub(
-                trace,
-                "(%S+)%.lua:(%d+)",
-                function(file, line) return replacer(nil, file .. ".lua", file .. ".ts", line) end
-            )
-            local function stringReplacer(____, file, line)
-                local fileSourceMap = _G.__TS__sourcemap[file]
-                if fileSourceMap and fileSourceMap[line] then
-                    local chunkName = string.match(file, "%[string \"([^\"]+)\"%]")
-                    local sourceName = string.gsub(chunkName, ".lua$", ".ts")
-                    local data = fileSourceMap[line]
-                    if type(data) == "number" then
-                        return (sourceName .. ":") .. tostring(data)
-                    end
-                    return (tostring(data.file) .. ":") .. tostring(data.line)
-                end
-                return (file .. ":") .. line
-            end
-            result = string.gsub(
-                result,
-                "(%[string \"[^\"]+\"%]):(%d+)",
-                function(file, line) return stringReplacer(nil, file, line) end
-            )
-            return result
-        end
-    end
-end