typescript-to-lua 1.0.0 → 1.2.0

package/dist/lualib/ObjectDefineProperty.lua

@@ -1,7 +1,13 @@
 function __TS__ObjectDefineProperty(target, key, desc)
-    local luaKey = (((type(key) == "number") and (function() return key + 1 end)) or (function() return key end))()
+    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 hasGetterOrSetter = desc.get ~= nil or desc.set ~= nil
     local descriptor
     if hasGetterOrSetter then
         if value ~= nil then
@@ -13,13 +19,39 @@ function __TS__ObjectDefineProperty(target, key, desc)
         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,
-            get = desc.get,
-            configurable = (((desc.configurable ~= nil) and (function() return desc.configurable end)) or (function() return valueExists end))(),
-            enumerable = (((desc.enumerable ~= nil) and (function() return desc.enumerable end)) or (function() return valueExists end))(),
-            writable = (((desc.writable ~= nil) and (function() return desc.writable end)) or (function() return valueExists end))(),
-            value = (((desc.value ~= nil) and (function() return desc.value end)) or (function() return value end))()
+            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)

package/dist/lualib/ParseFloat.lua

@@ -1,10 +1,14 @@
 function __TS__ParseFloat(numberString)
     local infinityMatch = string.match(numberString, "^%s*(-?Infinity)")
     if infinityMatch then
-        return (((__TS__StringAccess(infinityMatch, 0) == "-") and (function() return -math.huge end)) or (function() return math.huge end))()
+        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*)")
-    )
-    return number or (0 / 0)
+    local number = tonumber(string.match(numberString, "^%s*(-?%d+%.?%d*)"))
+    return number or 0 / 0
 end

package/dist/lualib/ParseInt.lua

@@ -5,13 +5,25 @@ function __TS__ParseInt(numberString, base)
         local hexMatch = string.match(numberString, "^%s*-?0[xX]")
         if hexMatch then
             base = 16
-            numberString = ((string.match(hexMatch, "-") and (function() return "-" .. __TS__StringSubstr(numberString, #hexMatch) end)) or (function() return __TS__StringSubstr(numberString, #hexMatch) end))()
+            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
+    if base < 2 or base > 36 then
         return 0 / 0
     end
-    local allowedDigits = (((base <= 10) and (function() return __TS__StringSubstring(__TS__parseInt_base_pattern, 0, base) end)) or (function() return __TS__StringSubstr(__TS__parseInt_base_pattern, 0, 10 + (2 * (base - 10))) end))()
+    local ____temp_1
+    if base <= 10 then
+        ____temp_1 = __TS__StringSubstring(__TS__parseInt_base_pattern, 0, base)
+    else
+        ____temp_1 = __TS__StringSubstr(__TS__parseInt_base_pattern, 0, 10 + 2 * (base - 10))
+    end
+    local allowedDigits = ____temp_1
     local pattern = ("^%s*(-?[" .. allowedDigits) .. "]*)"
     local number = tonumber(
         string.match(numberString, pattern),

package/dist/lualib/Promise.lua

@@ -28,18 +28,19 @@ function __TS__Promise.prototype.____constructor(self, executor)
     self.rejectedCallbacks = {}
     self.finallyCallbacks = {}
     do
-        local ____try, e = pcall(
-            function()
-                executor(
-                    _G,
-                    __TS__FunctionBind(self.resolve, self),
-                    __TS__FunctionBind(self.reject, self)
-                )
-            end
-        )
-        if not ____try then
+        local function ____catch(e)
             self:reject(e)
         end
+        local ____try, ____hasReturned = pcall(function()
+            executor(
+                _G,
+                __TS__FunctionBind(self.resolve, self),
+                __TS__FunctionBind(self.reject, self)
+            )
+        end)
+        if not ____try then
+            ____hasReturned, ____returnValue = ____catch(____hasReturned)
+        end
     end
 end
 function __TS__Promise.resolve(data)
@@ -63,14 +64,16 @@ function __TS__Promise.reject(reason)
     return promise
 end
 __TS__Promise.prototype["then"] = function(self, onFulfilled, onRejected)
-    local ____ = __TS__PromiseDeferred(_G)
-    local promise = ____.promise
-    local resolve = ____.resolve
-    local reject = ____.reject
+    local ____TS__PromiseDeferred_result_0 = __TS__PromiseDeferred(_G)
+    local promise = ____TS__PromiseDeferred_result_0.promise
+    local resolve = ____TS__PromiseDeferred_result_0.resolve
+    local reject = ____TS__PromiseDeferred_result_0.reject
+    local isFulfilled = self.state == __TS__PromiseState.Fulfilled
+    local isRejected = self.state == __TS__PromiseState.Rejected
     if onFulfilled then
         local internalCallback = self:createPromiseResolvingCallback(onFulfilled, resolve, reject)
         __TS__ArrayPush(self.fulfilledCallbacks, internalCallback)
-        if self.state == __TS__PromiseState.Fulfilled then
+        if isFulfilled then
             internalCallback(_G, self.value)
         end
     else
@@ -82,10 +85,16 @@ __TS__Promise.prototype["then"] = function(self, onFulfilled, onRejected)
     if onRejected then
         local internalCallback = self:createPromiseResolvingCallback(onRejected, resolve, reject)
         __TS__ArrayPush(self.rejectedCallbacks, internalCallback)
-        if self.state == __TS__PromiseState.Rejected then
+        if isRejected then
             internalCallback(_G, self.rejectionReason)
         end
     end
+    if isFulfilled then
+        resolve(_G, self.value)
+    end
+    if isRejected then
+        reject(_G, self.rejectionReason)
+    end
     return promise
 end
 function __TS__Promise.prototype.catch(self, onRejected)
@@ -127,18 +136,19 @@ end
 function __TS__Promise.prototype.createPromiseResolvingCallback(self, f, resolve, reject)
     return function(____, value)
         do
-            local ____try, e = pcall(
-                function()
-                    self:handleCallbackData(
-                        f(_G, value),
-                        resolve,
-                        reject
-                    )
-                end
-            )
-            if not ____try then
+            local function ____catch(e)
                 reject(_G, e)
             end
+            local ____try, ____hasReturned = pcall(function()
+                self:handleCallbackData(
+                    f(_G, value),
+                    resolve,
+                    reject
+                )
+            end)
+            if not ____try then
+                ____hasReturned, ____returnValue = ____catch(____hasReturned)
+            end
         end
     end
 end

package/dist/lualib/Set.lua

@@ -1,132 +1,128 @@
-Set = (function()
-    local 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
+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
-    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
+    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.nextKey[value] = nil
-            self.previousKey[value] = nil
+            self:add(result.value)
         end
-        return contains
-    end
-    function Set.prototype.forEach(self, callback)
-        for ____, key in __TS__Iterator(
-            self:keys()
-        ) do
-            callback(_G, key, key, self)
+    else
+        local array = values
+        for ____, value in ipairs(array) do
+            self:add(value)
         end
     end
-    function Set.prototype.has(self, value)
-        return (self.nextKey[value] ~= nil) or (self.lastKey == value)
+end
+function Set.prototype.add(self, value)
+    local isNewValue = not self:has(value)
+    if isNewValue then
+        self.size = self.size + 1
     end
-    Set.prototype[Symbol.iterator] = function(self)
-        return self:values()
+    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
-    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
-        }
+    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
-    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
-        }
+    return contains
+end
+function Set.prototype.forEach(self, callback)
+    for ____, key in __TS__Iterator(self:keys()) do
+        callback(_G, key, key, self)
     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
-    return Set
-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
+Set = Set

package/dist/lualib/SetDescriptor.lua

@@ -51,7 +51,13 @@ function __TS__SetDescriptor(target, key, desc, isPrototype)
     if isPrototype == nil then
         isPrototype = false
     end
-    local metatable = ((isPrototype and (function() return target end)) or (function() return getmetatable(target) 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)

package/dist/lualib/SourceMapTraceBack.lua

@@ -5,7 +5,7 @@ function __TS__SourceMapTraceBack(fileName, sourceMap)
         _G.__TS__originalTraceback = debug.traceback
         debug.traceback = function(thread, message, level)
             local trace
-            if ((thread == nil) and (message == nil)) and (level == nil) then
+            if thread == nil and message == nil and level == nil then
                 trace = _G.__TS__originalTraceback()
             else
                 trace = _G.__TS__originalTraceback(thread, message, level)
@@ -13,16 +13,26 @@ function __TS__SourceMapTraceBack(fileName, sourceMap)
             if type(trace) ~= "string" then
                 return trace
             end
-            local result = string.gsub(
-                trace,
-                "(%S+).lua:(%d+)",
-                function(file, line)
-                    local fileSourceMap = _G.__TS__sourcemap[file .. ".lua"]
-                    if fileSourceMap and fileSourceMap[line] then
-                        return (file .. ".ts:") .. tostring(fileSourceMap[line])
+            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 (file .. ".lua:") .. line
+                    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(_G, file .. ".lua", file .. ".ts", line) end
+            )
+            result = string.gsub(
+                result,
+                "(%[string \"[^\"]+\"%]):(%d+)",
+                function(file, line) return replacer(_G, file, "unknown", line) end
             )
             return result
         end

package/dist/lualib/SparseArrayNew.lua

@@ -0,0 +1,5 @@
+function __TS__SparseArrayNew(...)
+    local sparseArray = {...}
+    sparseArray.sparseLength = select("#", ...)
+    return sparseArray
+end

package/dist/lualib/SparseArrayPush.lua

@@ -0,0 +1,9 @@
+function __TS__SparseArrayPush(sparseArray, ...)
+    local args = {...}
+    local argsLen = select("#", ...)
+    local listLen = sparseArray.sparseLength
+    for i = 1, argsLen do
+        sparseArray[listLen + i] = args[i]
+    end
+    sparseArray.sparseLength = listLen + argsLen
+end

package/dist/lualib/SparseArraySpread.lua

@@ -0,0 +1,4 @@
+function __TS__SparseArraySpread(sparseArray)
+    local _unpack = unpack or table.unpack
+    return _unpack(sparseArray, 1, sparseArray.sparseLength)
+end

package/dist/lualib/StringAccess.lua

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

package/dist/lualib/StringCharCodeAt.lua

@@ -5,5 +5,5 @@ function __TS__StringCharCodeAt(self, index)
     if index < 0 then
         return 0 / 0
     end
-    return string.byte(self, index + 1) or (0 / 0)
+    return string.byte(self, index + 1) or 0 / 0
 end

package/dist/lualib/StringEndsWith.lua

@@ -1,6 +1,6 @@
 function __TS__StringEndsWith(self, searchString, endPosition)
-    if (endPosition == nil) or (endPosition > #self) then
+    if endPosition == nil or endPosition > #self then
         endPosition = #self
     end
-    return string.sub(self, (endPosition - #searchString) + 1, endPosition) == searchString
+    return string.sub(self, endPosition - #searchString + 1, endPosition) == searchString
 end

package/dist/lualib/StringPadEnd.lua

@@ -5,10 +5,10 @@ function __TS__StringPadEnd(self, maxLength, fillString)
     if maxLength ~= maxLength then
         maxLength = 0
     end
-    if (maxLength == -math.huge) or (maxLength == math.huge) then
+    if maxLength == -math.huge or maxLength == math.huge then
         error("Invalid string length", 0)
     end
-    if (#self >= maxLength) or (#fillString == 0) then
+    if #self >= maxLength or #fillString == 0 then
         return self
     end
     maxLength = maxLength - #self

package/dist/lualib/StringPadStart.lua

@@ -5,10 +5,10 @@ function __TS__StringPadStart(self, maxLength, fillString)
     if maxLength ~= maxLength then
         maxLength = 0
     end
-    if (maxLength == -math.huge) or (maxLength == math.huge) then
+    if maxLength == -math.huge or maxLength == math.huge then
         error("Invalid string length", 0)
     end
-    if (#self >= maxLength) or (#fillString == 0) then
+    if #self >= maxLength or #fillString == 0 then
         return self
     end
     maxLength = maxLength - #self

package/dist/lualib/StringReplace.lua

@@ -1,16 +1,17 @@
 function __TS__StringReplace(source, searchValue, replaceValue)
-    searchValue = string.gsub(searchValue, "[%%%(%)%.%+%-%*%?%[%^%$]", "%%%1")
+    local startPos, endPos = string.find(source, searchValue, nil, true)
+    if not startPos then
+        return source
+    end
+    local sub = string.sub
+    local before = sub(source, 1, startPos - 1)
+    local ____temp_0
     if type(replaceValue) == "string" then
-        replaceValue = string.gsub(replaceValue, "%%", "%%%%")
-        local result = string.gsub(source, searchValue, replaceValue, 1)
-        return result
+        ____temp_0 = replaceValue
     else
-        local result = string.gsub(
-            source,
-            searchValue,
-            function(match) return replaceValue(_G, match) end,
-            1
-        )
-        return result
+        ____temp_0 = replaceValue(_G, searchValue, startPos - 1, source)
     end
+    local replacement = ____temp_0
+    local after = sub(source, endPos + 1)
+    return (before .. replacement) .. after
 end

package/dist/lualib/StringReplaceAll.lua

@@ -0,0 +1,35 @@
+function __TS__StringReplaceAll(source, searchValue, replaceValue)
+    local replacer
+    if type(replaceValue) == "string" then
+        replacer = function() return replaceValue end
+    else
+        replacer = replaceValue
+    end
+    local parts = {}
+    local partsIndex = 1
+    local sub = string.sub
+    if #searchValue == 0 then
+        parts[1] = replacer(_G, "", 0, source)
+        partsIndex = 2
+        for i = 1, #source do
+            parts[partsIndex] = sub(source, i, i)
+            parts[partsIndex + 1] = replacer(_G, "", i, source)
+            partsIndex = partsIndex + 2
+        end
+    else
+        local find = string.find
+        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] = replacer(_G, searchValue, startPos - 1, source)
+            partsIndex = partsIndex + 2
+            currentPos = endPos + 1
+        end
+        parts[partsIndex] = sub(source, currentPos)
+    end
+    return table.concat(parts)
+end