typescript-to-lua 1.1.1 → 1.3.2

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)

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

@@ -5,7 +5,13 @@ function __TS__StringReplace(source, searchValue, replaceValue)
     end
     local sub = string.sub
     local before = sub(source, 1, startPos - 1)
-    local replacement = (((type(replaceValue) == "string") and (function() return replaceValue end)) or (function() return replaceValue(_G, searchValue, startPos - 1, source) end))()
+    local ____temp_0
+    if type(replaceValue) == "string" then
+        ____temp_0 = replaceValue
+    else
+        ____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/StringSlice.lua

@@ -1,5 +1,5 @@
 function __TS__StringSlice(self, start, ____end)
-    if (start == nil) or (start ~= start) then
+    if start == nil or start ~= start then
         start = 0
     end
     if ____end ~= ____end then
@@ -8,7 +8,7 @@ function __TS__StringSlice(self, start, ____end)
     if start >= 0 then
         start = start + 1
     end
-    if (____end ~= nil) and (____end < 0) then
+    if ____end ~= nil and ____end < 0 then
         ____end = ____end - 1
     end
     return string.sub(self, start, ____end)

package/dist/lualib/StringSplit.lua

@@ -8,8 +8,8 @@ function __TS__StringSplit(source, separator, limit)
     local out = {}
     local index = 0
     local count = 0
-    if (separator == nil) or (separator == "") then
-        while (index < (#source - 1)) and (count < limit) do
+    if separator == nil or separator == "" then
+        while index < #source - 1 and count < limit do
             out[count + 1] = __TS__StringAccess(source, index)
             count = count + 1
             index = index + 1
@@ -17,7 +17,7 @@ function __TS__StringSplit(source, separator, limit)
     else
         local separatorLength = #separator
         local nextIndex = (string.find(source, separator, nil, true) or 0) - 1
-        while (nextIndex >= 0) and (count < limit) do
+        while nextIndex >= 0 and count < limit do
             out[count + 1] = __TS__StringSubstring(source, index, nextIndex)
             count = count + 1
             index = nextIndex + separatorLength

package/dist/lualib/StringStartsWith.lua

@@ -1,5 +1,5 @@
 function __TS__StringStartsWith(self, searchString, position)
-    if (position == nil) or (position < 0) then
+    if position == nil or position < 0 then
         position = 0
     end
     return string.sub(self, position + 1, #searchString + position) == searchString

package/dist/lualib/StringSubstr.lua

@@ -3,7 +3,7 @@ function __TS__StringSubstr(self, from, length)
         from = 0
     end
     if length ~= nil then
-        if (length ~= length) or (length <= 0) then
+        if length ~= length or length <= 0 then
             return ""
         end
         length = length + from

package/dist/lualib/StringSubstring.lua

@@ -2,7 +2,7 @@ function __TS__StringSubstring(self, start, ____end)
     if ____end ~= ____end then
         ____end = 0
     end
-    if (____end ~= nil) and (start > ____end) then
+    if ____end ~= nil and start > ____end then
         start, ____end = ____end, start
     end
     if start >= 0 then
@@ -10,7 +10,7 @@ function __TS__StringSubstring(self, start, ____end)
     else
         start = 1
     end
-    if (____end ~= nil) and (____end < 0) then
+    if ____end ~= nil and ____end < 0 then
         ____end = 0
     end
     return string.sub(self, start, ____end)

package/dist/lualib/Symbol.lua

@@ -1,8 +1,6 @@
-____symbolMetatable = {
-    __tostring = function(self)
-        return ("Symbol(" .. (self.description or "")) .. ")"
-    end
-}
+____symbolMetatable = {__tostring = function(self)
+    return ("Symbol(" .. (self.description or "")) .. ")"
+end}
 function __TS__Symbol(description)
     return setmetatable({description = description}, ____symbolMetatable)
 end

package/dist/lualib/WeakMap.lua

@@ -1,45 +1,43 @@
-WeakMap = (function()
-    local WeakMap = __TS__Class()
-    WeakMap.name = "WeakMap"
-    function WeakMap.prototype.____constructor(self, entries)
-        self[Symbol.toStringTag] = "WeakMap"
-        self.items = {}
-        setmetatable(self.items, {__mode = "k"})
-        if entries == nil then
-            return
-        end
-        local iterable = entries
-        if iterable[Symbol.iterator] then
-            local iterator = iterable[Symbol.iterator](iterable)
-            while true do
-                local result = iterator:next()
-                if result.done then
-                    break
-                end
-                local value = result.value
-                self.items[value[1]] = value[2]
-            end
-        else
-            for ____, kvp in ipairs(entries) do
-                self.items[kvp[1]] = kvp[2]
+WeakMap = __TS__Class()
+WeakMap.name = "WeakMap"
+function WeakMap.prototype.____constructor(self, entries)
+    self[Symbol.toStringTag] = "WeakMap"
+    self.items = {}
+    setmetatable(self.items, {__mode = "k"})
+    if entries == nil then
+        return
+    end
+    local iterable = entries
+    if iterable[Symbol.iterator] then
+        local iterator = iterable[Symbol.iterator](iterable)
+        while true do
+            local result = iterator:next()
+            if result.done then
+                break
             end
+            local value = result.value
+            self.items[value[1]] = value[2]
+        end
+    else
+        for ____, kvp in ipairs(entries) do
+            self.items[kvp[1]] = kvp[2]
         end
     end
-    function WeakMap.prototype.delete(self, key)
-        local contains = self:has(key)
-        self.items[key] = nil
-        return contains
-    end
-    function WeakMap.prototype.get(self, key)
-        return self.items[key]
-    end
-    function WeakMap.prototype.has(self, key)
-        return self.items[key] ~= nil
-    end
-    function WeakMap.prototype.set(self, key, value)
-        self.items[key] = value
-        return self
-    end
-    WeakMap[Symbol.species] = WeakMap
-    return WeakMap
-end)()
+end
+function WeakMap.prototype.delete(self, key)
+    local contains = self:has(key)
+    self.items[key] = nil
+    return contains
+end
+function WeakMap.prototype.get(self, key)
+    return self.items[key]
+end
+function WeakMap.prototype.has(self, key)
+    return self.items[key] ~= nil
+end
+function WeakMap.prototype.set(self, key, value)
+    self.items[key] = value
+    return self
+end
+WeakMap[Symbol.species] = WeakMap
+WeakMap = WeakMap

package/dist/lualib/WeakSet.lua

@@ -1,41 +1,39 @@
-WeakSet = (function()
-    local WeakSet = __TS__Class()
-    WeakSet.name = "WeakSet"
-    function WeakSet.prototype.____constructor(self, values)
-        self[Symbol.toStringTag] = "WeakSet"
-        self.items = {}
-        setmetatable(self.items, {__mode = "k"})
-        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.items[result.value] = true
-            end
-        else
-            for ____, value in ipairs(values) do
-                self.items[value] = true
+WeakSet = __TS__Class()
+WeakSet.name = "WeakSet"
+function WeakSet.prototype.____constructor(self, values)
+    self[Symbol.toStringTag] = "WeakSet"
+    self.items = {}
+    setmetatable(self.items, {__mode = "k"})
+    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.items[result.value] = true
+        end
+    else
+        for ____, value in ipairs(values) do
+            self.items[value] = true
         end
     end
-    function WeakSet.prototype.add(self, value)
-        self.items[value] = true
-        return self
-    end
-    function WeakSet.prototype.delete(self, value)
-        local contains = self:has(value)
-        self.items[value] = nil
-        return contains
-    end
-    function WeakSet.prototype.has(self, value)
-        return self.items[value] == true
-    end
-    WeakSet[Symbol.species] = WeakSet
-    return WeakSet
-end)()
+end
+function WeakSet.prototype.add(self, value)
+    self.items[value] = true
+    return self
+end
+function WeakSet.prototype.delete(self, value)
+    local contains = self:has(value)
+    self.items[value] = nil
+    return contains
+end
+function WeakSet.prototype.has(self, value)
+    return self.items[value] == true
+end
+WeakSet[Symbol.species] = WeakSet
+WeakSet = WeakSet