typescript-to-lua 1.3.2 → 1.4.0

package/dist/lualib/PromiseAny.lua

@@ -1,11 +1,11 @@
-function __TS__PromiseAny(iterable)
+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 == __TS__PromiseState.Fulfilled then
+            if item.state == 1 then
                 return __TS__Promise.resolve(item.value)
-            elseif item.state == __TS__PromiseState.Rejected then
+            elseif item.state == 2 then
                 __TS__ArrayPush(rejections, item.rejectionReason)
             else
                 __TS__ArrayPush(pending, item)
@@ -25,13 +25,13 @@ function __TS__PromiseAny(iterable)
                 promise["then"](
                     promise,
                     function(____, data)
-                        resolve(_G, data)
+                        resolve(nil, data)
                     end,
                     function(____, reason)
                         __TS__ArrayPush(rejections, reason)
                         numResolved = numResolved + 1
                         if numResolved == #pending then
-                            reject(_G, {name = "AggregateError", message = "All Promises rejected", errors = rejections})
+                            reject(nil, {name = "AggregateError", message = "All Promises rejected", errors = rejections})
                         end
                     end
                 )

package/dist/lualib/PromiseRace.lua

@@ -1,10 +1,10 @@
-function __TS__PromiseRace(iterable)
+local function __TS__PromiseRace(iterable)
     local pending = {}
     for ____, item in __TS__Iterator(iterable) do
         if __TS__InstanceOf(item, __TS__Promise) then
-            if item.state == __TS__PromiseState.Fulfilled then
+            if item.state == 1 then
                 return __TS__Promise.resolve(item.value)
-            elseif item.state == __TS__PromiseState.Rejected then
+            elseif item.state == 2 then
                 return __TS__Promise.reject(item.rejectionReason)
             else
                 __TS__ArrayPush(pending, item)
@@ -19,8 +19,8 @@ function __TS__PromiseRace(iterable)
             for ____, promise in ipairs(pending) do
                 promise["then"](
                     promise,
-                    function(____, value) return resolve(_G, value) end,
-                    function(____, reason) return reject(_G, reason) end
+                    function(____, value) return resolve(nil, value) end,
+                    function(____, reason) return reject(nil, reason) end
                 )
             end
         end

package/dist/lualib/Set.lua

@@ -1,128 +1,130 @@
-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
+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
-            self:add(result.value)
         end
-    else
-        local array = values
-        for ____, value in ipairs(array) do
-            self:add(value)
+    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
-end
-function Set.prototype.add(self, value)
-    local isNewValue = not self:has(value)
-    if isNewValue then
-        self.size = self.size + 1
+    function Set.prototype.clear(self)
+        self.nextKey = {}
+        self.previousKey = {}
+        self.firstKey = nil
+        self.lastKey = nil
+        self.size = 0
     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
+    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
-    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
+    function Set.prototype.forEach(self, callback)
+        for ____, key in __TS__Iterator(self:keys()) do
+            callback(nil, key, key, self)
         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(_G, key, key, self)
+    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
-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

@@ -1,76 +1,79 @@
-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
+local __TS__SetDescriptor
+do
+    local function descriptorIndex(self, key)
+        local value = rawget(self, key)
+        if value ~= nil then
+            return value
         end
-        local descriptors = rawget(metatable, "_descriptors")
-        if descriptors then
-            local descriptor = descriptors[key]
-            if descriptor then
-                if descriptor.get then
-                    return descriptor.get(self)
+        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
-                return descriptor.value
             end
+            metatable = getmetatable(metatable)
         end
-        metatable = getmetatable(metatable)
     end
-end
-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
-                        )
+    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
-                    descriptor.value = value
+                    return
                 end
-                return
             end
+            metatable = getmetatable(metatable)
         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)
+        rawset(self, key, value)
     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 = {}
+    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
-    local descriptor = __TS__CloneDescriptor(desc)
-    metatable._descriptors[key] = descriptor
-    metatable.__index = ____descriptorIndex
-    metatable.__newindex = ____descriptorNewindex
 end

package/dist/lualib/SourceMapTraceBack.lua

@@ -1,14 +1,15 @@
-function __TS__SourceMapTraceBack(fileName, sourceMap)
+local function __TS__SourceMapTraceBack(fileName, sourceMap)
     _G.__TS__sourcemap = _G.__TS__sourcemap or ({})
     _G.__TS__sourcemap[fileName] = sourceMap
     if _G.__TS__originalTraceback == nil then
-        _G.__TS__originalTraceback = debug.traceback
+        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 = _G.__TS__originalTraceback()
+                trace = originalTraceback()
             else
-                trace = _G.__TS__originalTraceback(thread, message, level)
+                trace = originalTraceback(thread, message, level)
             end
             if type(trace) ~= "string" then
                 return trace
@@ -27,12 +28,12 @@ function __TS__SourceMapTraceBack(fileName, sourceMap)
             local result = string.gsub(
                 trace,
                 "(%S+)%.lua:(%d+)",
-                function(file, line) return replacer(_G, file .. ".lua", file .. ".ts", line) end
+                function(file, line) return replacer(nil, file .. ".lua", file .. ".ts", line) end
             )
             result = string.gsub(
                 result,
                 "(%[string \"[^\"]+\"%]):(%d+)",
-                function(file, line) return replacer(_G, file, "unknown", line) end
+                function(file, line) return replacer(nil, file, "unknown", line) end
             )
             return result
         end

package/dist/lualib/SparseArrayNew.lua

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

package/dist/lualib/SparseArrayPush.lua

@@ -1,4 +1,4 @@
-function __TS__SparseArrayPush(sparseArray, ...)
+local function __TS__SparseArrayPush(sparseArray, ...)
     local args = {...}
     local argsLen = select("#", ...)
     local listLen = sparseArray.sparseLength

package/dist/lualib/SparseArraySpread.lua

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

package/dist/lualib/Spread.lua

@@ -1,4 +1,4 @@
-function __TS__Spread(iterable)
+local function __TS__Spread(iterable)
     local arr = {}
     if type(iterable) == "string" then
         do

package/dist/lualib/StringAccess.lua

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

package/dist/lualib/StringCharAt.lua

@@ -1,4 +1,4 @@
-function __TS__StringCharAt(self, pos)
+local function __TS__StringCharAt(self, pos)
     if pos ~= pos then
         pos = 0
     end

package/dist/lualib/StringCharCodeAt.lua

@@ -1,4 +1,4 @@
-function __TS__StringCharCodeAt(self, index)
+local function __TS__StringCharCodeAt(self, index)
     if index ~= index then
         index = 0
     end

package/dist/lualib/StringConcat.lua

@@ -1,4 +1,4 @@
-function __TS__StringConcat(str1, ...)
+local function __TS__StringConcat(str1, ...)
     local args = {...}
     local out = str1
     for ____, arg in ipairs(args) do

package/dist/lualib/StringEndsWith.lua

@@ -1,4 +1,4 @@
-function __TS__StringEndsWith(self, searchString, endPosition)
+local function __TS__StringEndsWith(self, searchString, endPosition)
     if endPosition == nil or endPosition > #self then
         endPosition = #self
     end

package/dist/lualib/StringIncludes.lua

@@ -1,4 +1,4 @@
-function __TS__StringIncludes(self, searchString, position)
+local function __TS__StringIncludes(self, searchString, position)
     if not position then
         position = 1
     else

package/dist/lualib/StringPadEnd.lua

@@ -1,4 +1,4 @@
-function __TS__StringPadEnd(self, maxLength, fillString)
+local function __TS__StringPadEnd(self, maxLength, fillString)
     if fillString == nil then
         fillString = " "
     end

package/dist/lualib/StringPadStart.lua

@@ -1,4 +1,4 @@
-function __TS__StringPadStart(self, maxLength, fillString)
+local function __TS__StringPadStart(self, maxLength, fillString)
     if fillString == nil then
         fillString = " "
     end

package/dist/lualib/StringReplace.lua

@@ -1,4 +1,4 @@
-function __TS__StringReplace(source, searchValue, replaceValue)
+local function __TS__StringReplace(source, searchValue, replaceValue)
     local startPos, endPos = string.find(source, searchValue, nil, true)
     if not startPos then
         return source
@@ -9,7 +9,7 @@ function __TS__StringReplace(source, searchValue, replaceValue)
     if type(replaceValue) == "string" then
         ____temp_0 = replaceValue
     else
-        ____temp_0 = replaceValue(_G, searchValue, startPos - 1, source)
+        ____temp_0 = replaceValue(nil, searchValue, startPos - 1, source)
     end
     local replacement = ____temp_0
     local after = sub(source, endPos + 1)

package/dist/lualib/StringReplaceAll.lua

@@ -1,4 +1,4 @@
-function __TS__StringReplaceAll(source, searchValue, replaceValue)
+local function __TS__StringReplaceAll(source, searchValue, replaceValue)
     local replacer
     if type(replaceValue) == "string" then
         replacer = function() return replaceValue end
@@ -9,11 +9,11 @@ function __TS__StringReplaceAll(source, searchValue, replaceValue)
     local partsIndex = 1
     local sub = string.sub
     if #searchValue == 0 then
-        parts[1] = replacer(_G, "", 0, source)
+        parts[1] = replacer(nil, "", 0, source)
         partsIndex = 2
         for i = 1, #source do
             parts[partsIndex] = sub(source, i, i)
-            parts[partsIndex + 1] = replacer(_G, "", i, source)
+            parts[partsIndex + 1] = replacer(nil, "", i, source)
             partsIndex = partsIndex + 2
         end
     else
@@ -25,7 +25,7 @@ function __TS__StringReplaceAll(source, searchValue, replaceValue)
                 break
             end
             parts[partsIndex] = sub(source, currentPos, startPos - 1)
-            parts[partsIndex + 1] = replacer(_G, searchValue, startPos - 1, source)
+            parts[partsIndex + 1] = replacer(nil, searchValue, startPos - 1, source)
             partsIndex = partsIndex + 2
             currentPos = endPos + 1
         end

package/dist/lualib/StringSlice.lua

@@ -1,4 +1,4 @@
-function __TS__StringSlice(self, start, ____end)
+local function __TS__StringSlice(self, start, ____end)
     if start == nil or start ~= start then
         start = 0
     end

package/dist/lualib/StringSplit.lua

@@ -1,4 +1,4 @@
-function __TS__StringSplit(source, separator, limit)
+local function __TS__StringSplit(source, separator, limit)
     if limit == nil then
         limit = 4294967295
     end

package/dist/lualib/StringStartsWith.lua

@@ -1,4 +1,4 @@
-function __TS__StringStartsWith(self, searchString, position)
+local function __TS__StringStartsWith(self, searchString, position)
     if position == nil or position < 0 then
         position = 0
     end

package/dist/lualib/StringSubstr.lua

@@ -1,4 +1,4 @@
-function __TS__StringSubstr(self, from, length)
+local function __TS__StringSubstr(self, from, length)
     if from ~= from then
         from = 0
     end

package/dist/lualib/StringSubstring.lua

@@ -1,4 +1,4 @@
-function __TS__StringSubstring(self, start, ____end)
+local function __TS__StringSubstring(self, start, ____end)
     if ____end ~= ____end then
         ____end = 0
     end

package/dist/lualib/StringTrim.lua

@@ -1,4 +1,4 @@
-function __TS__StringTrim(self)
+local function __TS__StringTrim(self)
     local result = string.gsub(self, "^[%s ]*(.-)[%s ]*$", "%1")
     return result
 end