typescript-to-lua 1.0.1 → 1.3.0

package/dist/lualib/ArraySetLength.lua

@@ -1,5 +1,5 @@
 function __TS__ArraySetLength(arr, length)
-    if (((length < 0) or (length ~= length)) or (length == math.huge)) or (math.floor(length) ~= length) then
+    if length < 0 or length ~= length or length == math.huge or math.floor(length) ~= length then
         error(
             "invalid array length: " .. tostring(length),
             0

package/dist/lualib/ArraySplice.lua

@@ -35,7 +35,7 @@ function __TS__ArraySplice(list, ...)
     if itemCount < actualDeleteCount then
         do
             local k = actualStart
-            while k < (len - actualDeleteCount) do
+            while k < len - actualDeleteCount do
                 local from = k + actualDeleteCount
                 local to = k + itemCount
                 if list[from + 1] then
@@ -48,7 +48,7 @@ function __TS__ArraySplice(list, ...)
         end
         do
             local k = len
-            while k > ((len - actualDeleteCount) + itemCount) do
+            while k > len - actualDeleteCount + itemCount do
                 list[k] = nil
                 k = k - 1
             end
@@ -57,8 +57,8 @@ function __TS__ArraySplice(list, ...)
         do
             local k = len - actualDeleteCount
             while k > actualStart do
-                local from = (k + actualDeleteCount) - 1
-                local to = (k + itemCount) - 1
+                local from = k + actualDeleteCount - 1
+                local to = k + itemCount - 1
                 if list[from + 1] then
                     list[to + 1] = list[from + 1]
                 else
@@ -75,7 +75,7 @@ function __TS__ArraySplice(list, ...)
     end
     do
         local k = #list - 1
-        while k >= ((len - actualDeleteCount) + itemCount) do
+        while k >= len - actualDeleteCount + itemCount do
             list[k + 1] = nil
             k = k - 1
         end

package/dist/lualib/Await.lua

@@ -2,42 +2,66 @@ function __TS__AsyncAwaiter(generator)
     return __TS__New(
         __TS__Promise,
         function(____, resolve, reject)
-            local asyncCoroutine, adopt, fulfilled, step
+            local adopt, fulfilled, rejected, step, asyncCoroutine
             function adopt(self, value)
-                return ((__TS__InstanceOf(value, __TS__Promise) and (function() return value end)) or (function() return __TS__Promise.resolve(value) end))()
+                local ____temp_0
+                if __TS__InstanceOf(value, __TS__Promise) then
+                    ____temp_0 = value
+                else
+                    ____temp_0 = __TS__Promise.resolve(value)
+                end
+                return ____temp_0
             end
             function fulfilled(self, value)
-                local success, resultOrError = coroutine.resume(asyncCoroutine, value)
+                local success, errorOrErrorHandler, resultOrError = coroutine.resume(asyncCoroutine, value)
                 if success then
-                    step(_G, resultOrError)
+                    step(_G, resultOrError, errorOrErrorHandler)
+                else
+                    reject(_G, errorOrErrorHandler)
+                end
+            end
+            function rejected(self, handler)
+                if handler then
+                    return function(____, value)
+                        local success, hasReturnedOrError, returnedValue = pcall(handler, value)
+                        if success then
+                            if hasReturnedOrError then
+                                resolve(_G, returnedValue)
+                            else
+                                step(_G, hasReturnedOrError, handler)
+                            end
+                        else
+                            reject(_G, hasReturnedOrError)
+                        end
+                    end
                 else
-                    reject(_G, resultOrError)
+                    return function(____, value)
+                        reject(_G, value)
+                    end
                 end
             end
-            function step(self, result)
+            function step(self, result, errorHandler)
                 if coroutine.status(asyncCoroutine) == "dead" then
                     resolve(_G, result)
                 else
-                    (function()
-                        local ____self = adopt(_G, result)
-                        return ____self["then"](
-                            ____self,
-                            fulfilled,
-                            function(____, reason) return reject(_G, reason) end
-                        )
-                    end)()
+                    local ____self_1 = adopt(_G, result)
+                    ____self_1["then"](
+                        ____self_1,
+                        fulfilled,
+                        rejected(_G, errorHandler)
+                    )
                 end
             end
             asyncCoroutine = coroutine.create(generator)
-            local success, resultOrError = coroutine.resume(asyncCoroutine)
+            local success, errorOrErrorHandler, resultOrError = coroutine.resume(asyncCoroutine)
             if success then
-                step(_G, resultOrError)
+                step(_G, resultOrError, errorOrErrorHandler)
             else
-                reject(_G, resultOrError)
+                reject(_G, errorOrErrorHandler)
             end
         end
     )
 end
-function __TS__Await(thing)
-    return coroutine.yield(thing)
+function __TS__Await(errorHandler, thing)
+    return coroutine.yield(errorHandler, thing)
 end

package/dist/lualib/CloneDescriptor.lua

@@ -1,19 +1,19 @@
 function __TS__CloneDescriptor(____bindingPattern0)
+    local value
+    local writable
+    local set
+    local get
+    local configurable
     local enumerable
     enumerable = ____bindingPattern0.enumerable
-    local configurable
     configurable = ____bindingPattern0.configurable
-    local get
     get = ____bindingPattern0.get
-    local set
     set = ____bindingPattern0.set
-    local writable
     writable = ____bindingPattern0.writable
-    local value
     value = ____bindingPattern0.value
     local descriptor = {enumerable = enumerable == true, configurable = configurable == true}
-    local hasGetterOrSetter = (get ~= nil) or (set ~= nil)
-    local hasValueOrWritableAttribute = (writable ~= nil) or (value ~= nil)
+    local hasGetterOrSetter = get ~= nil or set ~= nil
+    local hasValueOrWritableAttribute = writable ~= nil or value ~= nil
     if hasGetterOrSetter and hasValueOrWritableAttribute then
         error("Invalid property descriptor. Cannot both specify accessors and a value or writable attribute.", 0)
     end

package/dist/lualib/Decorate.lua

@@ -12,7 +12,7 @@ function __TS__Decorate(decorators, target, key, desc)
                     local value = rawget(target, key)
                     local descriptor = __TS__ObjectGetOwnPropertyDescriptor(target, key) or ({configurable = true, writable = true, value = value})
                     local desc = decorator(_G, target, key, descriptor) or descriptor
-                    local isSimpleValue = (((desc.configurable == true) and (desc.writable == true)) and (not desc.get)) and (not desc.set)
+                    local isSimpleValue = desc.configurable == true and desc.writable == true and not desc.get and not desc.set
                     if isSimpleValue then
                         rawset(target, key, desc.value)
                     else

package/dist/lualib/DelegatedYield.lua

@@ -1,9 +1,7 @@
 function __TS__DelegatedYield(iterable)
     if type(iterable) == "string" then
         for index = 0, #iterable - 1 do
-            coroutine.yield(
-                __TS__StringAccess(iterable, index)
-            )
+            coroutine.yield(__TS__StringAccess(iterable, index))
         end
     elseif iterable.____coroutine ~= nil then
         local co = iterable.____coroutine

package/dist/lualib/Delete.lua

@@ -4,16 +4,16 @@ function __TS__Delete(target, key)
     if descriptor then
         if not descriptor.configurable then
             error(
-                ((("Cannot delete property " .. tostring(key)) .. " of ") .. tostring(target)) .. ".",
+                __TS__New(
+                    TypeError,
+                    ((("Cannot delete property " .. tostring(key)) .. " of ") .. tostring(target)) .. "."
+                ),
                 0
             )
         end
         descriptors[key] = nil
         return true
     end
-    if target[key] ~= nil then
-        target[key] = nil
-        return true
-    end
-    return false
+    target[key] = nil
+    return true
 end

package/dist/lualib/Error.lua

@@ -16,7 +16,7 @@ function __TS__WrapErrorToString(self, getDescription)
     return function(self)
         local description = getDescription(self)
         local caller = debug.getinfo(3, "f")
-        if (_VERSION == "Lua 5.1") or (caller and (caller.func ~= error)) then
+        if _VERSION == "Lua 5.1" or caller and caller.func ~= error then
             return description
         else
             return (tostring(description) .. "\n") .. self.stack
@@ -27,49 +27,52 @@ function __TS__InitErrorClass(self, Type, name)
     Type.name = name
     return setmetatable(
         Type,
-        {
-            __call = function(____, _self, message) return __TS__New(Type, message) end
-        }
+        {__call = function(____, _self, message) return __TS__New(Type, message) end}
     )
 end
-Error = __TS__InitErrorClass(
-    _G,
-    (function()
-        local ____ = __TS__Class()
-        ____.name = ""
-        function ____.prototype.____constructor(self, message)
-            if message == nil then
-                message = ""
-            end
-            self.message = message
-            self.name = "Error"
-            self.stack = __TS__GetErrorStack(_G, self.constructor.new)
-            local metatable = getmetatable(self)
-            if not metatable.__errorToStringPatched then
-                metatable.__errorToStringPatched = true
-                metatable.__tostring = __TS__WrapErrorToString(_G, metatable.__tostring)
-            end
-        end
-        function ____.prototype.__tostring(self)
-            return (((self.message ~= "") and (function() return (self.name .. ": ") .. self.message end)) or (function() return self.name end))()
-        end
-        return ____
-    end)(),
-    "Error"
-)
-for ____, errorName in ipairs({"RangeError", "ReferenceError", "SyntaxError", "TypeError", "URIError"}) do
-    _G[errorName] = __TS__InitErrorClass(
-        _G,
-        (function()
-            local ____ = __TS__Class()
-            ____.name = ____.name
-            __TS__ClassExtends(____, Error)
-            function ____.prototype.____constructor(self, ...)
-                Error.prototype.____constructor(self, ...)
-                self.name = errorName
-            end
-            return ____
-        end)(),
-        errorName
-    )
+local ____TS__InitErrorClass_3 = __TS__InitErrorClass
+local ____G_2 = _G
+____class_0 = __TS__Class()
+____class_0.name = ""
+function ____class_0.prototype.____constructor(self, message)
+    if message == nil then
+        message = ""
+    end
+    self.message = message
+    self.name = "Error"
+    self.stack = __TS__GetErrorStack(_G, self.constructor.new)
+    local metatable = getmetatable(self)
+    if not metatable.__errorToStringPatched then
+        metatable.__errorToStringPatched = true
+        metatable.__tostring = __TS__WrapErrorToString(_G, metatable.__tostring)
+    end
+end
+function ____class_0.prototype.__tostring(self)
+    local ____temp_1
+    if self.message ~= "" then
+        ____temp_1 = (self.name .. ": ") .. self.message
+    else
+        ____temp_1 = self.name
+    end
+    return ____temp_1
+end
+Error = ____TS__InitErrorClass_3(____G_2, ____class_0, "Error")
+for ____, errorName in ipairs({
+    "RangeError",
+    "ReferenceError",
+    "SyntaxError",
+    "TypeError",
+    "URIError"
+}) do
+    local ____G_7 = _G
+    local ____TS__InitErrorClass_6 = __TS__InitErrorClass
+    local ____G_5 = _G
+    local ____class_4 = __TS__Class()
+    ____class_4.name = ____class_4.name
+    __TS__ClassExtends(____class_4, Error)
+    function ____class_4.prototype.____constructor(self, ...)
+        Error.prototype.____constructor(self, ...)
+        self.name = errorName
+    end
+    ____G_7[errorName] = ____TS__InitErrorClass_6(____G_5, ____class_4, errorName)
 end

package/dist/lualib/Generator.lua

@@ -20,11 +20,7 @@ function __TS__Generator(fn)
         local args = {...}
         local argsLength = select("#", ...)
         return {
-            ____coroutine = coroutine.create(
-                function() return fn(
-                    (unpack or table.unpack)(args, 1, argsLength)
-                ) end
-            ),
+            ____coroutine = coroutine.create(function() return fn((unpack or table.unpack)(args, 1, argsLength)) end),
             [Symbol.iterator] = __TS__GeneratorIterator,
             next = __TS__GeneratorNext
         }

package/dist/lualib/InstanceOf.lua

@@ -3,7 +3,7 @@ function __TS__InstanceOf(obj, classTbl)
         error("Right-hand side of 'instanceof' is not an object", 0)
     end
     if classTbl[Symbol.hasInstance] ~= nil then
-        return not (not classTbl[Symbol.hasInstance](classTbl, obj))
+        return not not classTbl[Symbol.hasInstance](classTbl, obj)
     end
     if type(obj) == "table" then
         local luaClass = obj.constructor

package/dist/lualib/InstanceOfObject.lua

@@ -1,4 +1,4 @@
 function __TS__InstanceOfObject(value)
     local valueType = type(value)
-    return (valueType == "table") or (valueType == "function")
+    return valueType == "table" or valueType == "function"
 end

package/dist/lualib/Map.lua

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

package/dist/lualib/Number.lua

@@ -19,7 +19,7 @@ function __TS__Number(value)
         end
         return 0 / 0
     elseif valueType == "boolean" then
-        return (value and 1) or 0
+        return value and 1 or 0
     else
         return 0 / 0
     end

package/dist/lualib/NumberIsFinite.lua

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

package/dist/lualib/NumberToString.lua

@@ -1,15 +1,13 @@
 ____radixChars = "0123456789abcdefghijklmnopqrstuvwxyz"
 function __TS__NumberToString(self, radix)
-    if ((((radix == nil) or (radix == 10)) or (self == math.huge)) or (self == -math.huge)) or (self ~= self) then
+    if radix == nil or radix == 10 or self == math.huge or self == -math.huge or self ~= self then
         return tostring(self)
     end
     radix = math.floor(radix)
-    if (radix < 2) or (radix > 36) then
+    if radix < 2 or radix > 36 then
         error("toString() radix argument must be between 2 and 36", 0)
     end
-    local integer, fraction = math.modf(
-        math.abs(self)
-    )
+    local integer, fraction = math.modf(math.abs(self))
     local result = ""
     if radix == 8 then
         result = string.format("%o", integer)