typescript-to-lua 1.8.2 → 1.10.0

package/dist/lualib/5.0/Number.lua

@@ -0,0 +1,26 @@
+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 1 / 0
+        end
+        if value == "-Infinity" then
+            return -(1 / 0)
+        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/5.0/NumberIsFinite.lua

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

package/dist/lualib/5.0/NumberToString.lua

@@ -0,0 +1,47 @@
+local __TS__NumberToString
+do
+    local radixChars = "0123456789abcdefghijklmnopqrstuvwxyz"
+    function __TS__NumberToString(self, radix)
+        if radix == nil or radix == 10 or self == 1 / 0 or self == -(1 / 0) 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 = __TS__MathModf(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,
+                        __TS__Modulo50(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/5.0/ObjectAssign.lua

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

package/dist/lualib/5.0/ParseFloat.lua

@@ -0,0 +1,18 @@
+local function __TS__ParseFloat(numberString)
+    local infinityMatch = __TS__Match(numberString, "^%s*(-?Infinity)")
+    if infinityMatch then
+        local ____temp_0
+        if __TS__StringAccess(infinityMatch, 0) == "-" then
+            ____temp_0 = -(1 / 0)
+        else
+            ____temp_0 = 1 / 0
+        end
+        return ____temp_0
+    end
+    local number = tonumber(__TS__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/5.0/ParseInt.lua

@@ -0,0 +1,49 @@
+local __TS__ParseInt
+do
+    local parseIntBasePattern = "0123456789aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTvVwWxXyYzZ"
+    function __TS__ParseInt(numberString, base)
+        if base == nil then
+            base = 10
+            local hexMatch = __TS__Match(numberString, "^%s*-?0[xX]")
+            if hexMatch then
+                base = 16
+                local ____TS__Match_result__0_0
+                if __TS__Match(hexMatch, "-") then
+                    ____TS__Match_result__0_0 = "-" .. __TS__StringSubstr(
+                        numberString,
+                        string.len(hexMatch)
+                    )
+                else
+                    ____TS__Match_result__0_0 = __TS__StringSubstr(
+                        numberString,
+                        string.len(hexMatch)
+                    )
+                end
+                numberString = ____TS__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(
+            __TS__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/5.0/Promise.lua

@@ -0,0 +1,176 @@
+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[table.getn(____self_fulfilledCallbacks_1) + 1] = internalCallback
+            if isFulfilled then
+                internalCallback(nil, self.value)
+            end
+        else
+            local ____self_fulfilledCallbacks_2 = self.fulfilledCallbacks
+            ____self_fulfilledCallbacks_2[table.getn(____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[table.getn(____self_rejectedCallbacks_3) + 1] = internalCallback
+            if isRejected then
+                internalCallback(nil, self.rejectionReason)
+            end
+        else
+            local ____self_rejectedCallbacks_4 = self.rejectedCallbacks
+            ____self_rejectedCallbacks_4[table.getn(____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[table.getn(____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/5.0/PromiseAny.lua

@@ -0,0 +1,41 @@
+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[table.getn(rejections) + 1] = item.rejectionReason
+            else
+                pending[table.getn(pending) + 1] = item
+            end
+        else
+            return __TS__Promise.resolve(item)
+        end
+    end
+    if table.getn(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[table.getn(rejections) + 1] = reason
+                        numResolved = numResolved + 1
+                        if numResolved == table.getn(pending) then
+                            reject(nil, {name = "AggregateError", message = "All Promises rejected", errors = rejections})
+                        end
+                    end
+                )
+            end
+        end
+    )
+end

package/dist/lualib/5.0/PromiseRace.lua

@@ -0,0 +1,28 @@
+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[table.getn(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/5.0/SourceMapTraceBack.lua

@@ -0,0 +1,56 @@
+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()
+            elseif __TS__StringIncludes(_VERSION, "Lua 5.0") then
+                trace = originalTraceback((("[Level " .. tostring(level)) .. "] ") .. tostring(message))
+            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 = __TS__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

package/dist/lualib/5.0/SparseArrayNew.lua

@@ -0,0 +1,5 @@
+local function __TS__SparseArrayNew(...)
+    local sparseArray = {unpack(arg)}
+    sparseArray.sparseLength = __TS__CountVarargs(unpack(arg))
+    return sparseArray
+end

package/dist/lualib/5.0/SparseArrayPush.lua

@@ -0,0 +1,9 @@
+local function __TS__SparseArrayPush(sparseArray, ...)
+    local args = arg
+    local argsLen = __TS__CountVarargs(unpack(arg))
+    local listLen = sparseArray.sparseLength
+    for i = 1, argsLen do
+        sparseArray[listLen + i] = args[i]
+    end
+    sparseArray.sparseLength = listLen + argsLen
+end

package/dist/lualib/5.0/SparseArraySpread.lua

@@ -0,0 +1,3 @@
+local function __TS__SparseArraySpread(sparseArray)
+    return unpack(nil, sparseArray, 1, sparseArray.sparseLength)
+end

package/dist/lualib/5.0/Spread.lua

@@ -0,0 +1,15 @@
+local function __TS__Spread(iterable)
+    local arr = {}
+    if type(iterable) == "string" then
+        for i = 0, string.len(iterable) - 1 do
+            arr[i + 1] = __TS__StringAccess(iterable, i)
+        end
+    else
+        local len = 0
+        for ____, item in __TS__Iterator(iterable) do
+            len = len + 1
+            arr[len] = item
+        end
+    end
+    return unpack(arr)
+end

package/dist/lualib/5.0/StringAccess.lua

@@ -0,0 +1,5 @@
+local function __TS__StringAccess(self, index)
+    if index >= 0 and index < string.len(self) then
+        return string.sub(self, index + 1, index + 1)
+    end
+end

package/dist/lualib/5.0/StringEndsWith.lua

@@ -0,0 +1,10 @@
+local function __TS__StringEndsWith(self, searchString, endPosition)
+    if endPosition == nil or endPosition > string.len(self) then
+        endPosition = string.len(self)
+    end
+    return string.sub(
+        self,
+        endPosition - string.len(searchString) + 1,
+        endPosition
+    ) == searchString
+end

package/dist/lualib/5.0/StringPadEnd.lua

@@ -0,0 +1,26 @@
+local function __TS__StringPadEnd(self, maxLength, fillString)
+    if fillString == nil then
+        fillString = " "
+    end
+    if maxLength ~= maxLength then
+        maxLength = 0
+    end
+    if maxLength == -(1 / 0) or maxLength == 1 / 0 then
+        error("Invalid string length", 0)
+    end
+    if string.len(self) >= maxLength or string.len(fillString) == 0 then
+        return self
+    end
+    maxLength = maxLength - string.len(self)
+    if maxLength > string.len(fillString) then
+        fillString = fillString .. string.rep(
+            fillString,
+            math.floor(maxLength / string.len(fillString))
+        )
+    end
+    return self .. string.sub(
+        fillString,
+        1,
+        math.floor(maxLength)
+    )
+end

package/dist/lualib/5.0/StringPadStart.lua

@@ -0,0 +1,26 @@
+local function __TS__StringPadStart(self, maxLength, fillString)
+    if fillString == nil then
+        fillString = " "
+    end
+    if maxLength ~= maxLength then
+        maxLength = 0
+    end
+    if maxLength == -(1 / 0) or maxLength == 1 / 0 then
+        error("Invalid string length", 0)
+    end
+    if string.len(self) >= maxLength or string.len(fillString) == 0 then
+        return self
+    end
+    maxLength = maxLength - string.len(self)
+    if maxLength > string.len(fillString) then
+        fillString = fillString .. string.rep(
+            fillString,
+            math.floor(maxLength / string.len(fillString))
+        )
+    end
+    return string.sub(
+        fillString,
+        1,
+        math.floor(maxLength)
+    ) .. self
+end

package/dist/lualib/5.0/StringReplaceAll.lua

@@ -0,0 +1,42 @@
+local __TS__StringReplaceAll
+do
+    local sub = string.sub
+    local find = string.find
+    function __TS__StringReplaceAll(source, searchValue, replaceValue)
+        if type(replaceValue) == "string" then
+            local concat = table.concat(
+                __TS__StringSplit(source, searchValue),
+                replaceValue
+            )
+            if string.len(searchValue) == 0 then
+                return (replaceValue .. concat) .. replaceValue
+            end
+            return concat
+        end
+        local parts = {}
+        local partsIndex = 1
+        if string.len(searchValue) == 0 then
+            parts[1] = replaceValue(nil, "", 0, source)
+            partsIndex = 2
+            for i = 1, string.len(source) do
+                parts[partsIndex] = sub(source, i, i)
+                parts[partsIndex + 1] = replaceValue(nil, "", i, source)
+                partsIndex = partsIndex + 2
+            end
+        else
+            local currentPos = 1
+            while true do
+                local startPos, endPos = find(source, searchValue, currentPos, true)
+                if not startPos then
+                    break
+                end
+                parts[partsIndex] = sub(source, currentPos, startPos - 1)
+                parts[partsIndex + 1] = replaceValue(nil, searchValue, startPos - 1, source)
+                partsIndex = partsIndex + 2
+                currentPos = endPos + 1
+            end
+            parts[partsIndex] = sub(source, currentPos)
+        end
+        return table.concat(parts)
+    end
+end