typescript-to-lua 1.10.0-beta.0 → 1.10.1

package/dist/lualib/Set.lua

@@ -1,130 +0,0 @@
-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
-        end
-    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
-            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(nil, key, key, self)
-        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
-end

package/dist/lualib/SetDescriptor.lua

@@ -1,79 +0,0 @@
-local __TS__SetDescriptor
-do
-    local 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
-            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
-            end
-            metatable = getmetatable(metatable)
-        end
-    end
-    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
-                    return
-                end
-            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)
-        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
-end

package/dist/lualib/SourceMapTraceBack.lua

@@ -1,54 +0,0 @@
-local function __TS__SourceMapTraceBack(fileName, sourceMap)
-    _G.__TS__sourcemap = _G.__TS__sourcemap or ({})
-    _G.__TS__sourcemap[fileName] = sourceMap
-    if _G.__TS__originalTraceback == nil then
-        local originalTraceback = debug.traceback
-        _G.__TS__originalTraceback = originalTraceback
-        debug.traceback = function(thread, message, level)
-            local trace
-            if thread == nil and message == nil and level == nil then
-                trace = originalTraceback()
-            else
-                trace = originalTraceback(thread, message, level)
-            end
-            if type(trace) ~= "string" then
-                return trace
-            end
-            local function replacer(____, file, srcFile, line)
-                local fileSourceMap = _G.__TS__sourcemap[file]
-                if fileSourceMap and fileSourceMap[line] then
-                    local data = fileSourceMap[line]
-                    if type(data) == "number" then
-                        return (srcFile .. ":") .. tostring(data)
-                    end
-                    return (tostring(data.file) .. ":") .. tostring(data.line)
-                end
-                return (file .. ":") .. line
-            end
-            local result = string.gsub(
-                trace,
-                "(%S+)%.lua:(%d+)",
-                function(file, line) return replacer(nil, file .. ".lua", file .. ".ts", line) end
-            )
-            local function stringReplacer(____, file, line)
-                local fileSourceMap = _G.__TS__sourcemap[file]
-                if fileSourceMap and fileSourceMap[line] then
-                    local chunkName = string.match(file, "%[string \"([^\"]+)\"%]")
-                    local sourceName = string.gsub(chunkName, ".lua$", ".ts")
-                    local data = fileSourceMap[line]
-                    if type(data) == "number" then
-                        return (sourceName .. ":") .. tostring(data)
-                    end
-                    return (tostring(data.file) .. ":") .. tostring(data.line)
-                end
-                return (file .. ":") .. line
-            end
-            result = string.gsub(
-                result,
-                "(%[string \"[^\"]+\"%]):(%d+)",
-                function(file, line) return stringReplacer(nil, file, line) end
-            )
-            return result
-        end
-    end
-end

package/dist/lualib/SparseArrayNew.lua

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

package/dist/lualib/SparseArrayPush.lua

@@ -1,9 +0,0 @@
-local 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

@@ -1,8 +0,0 @@
-local function __TS__SparseArraySpread(sparseArray)
-    local ____unpack_0 = unpack
-    if ____unpack_0 == nil then
-        ____unpack_0 = table.unpack
-    end
-    local _unpack = ____unpack_0
-    return _unpack(sparseArray, 1, sparseArray.sparseLength)
-end

package/dist/lualib/Spread.lua

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

package/dist/lualib/StringAccess.lua

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

package/dist/lualib/StringCharAt.lua

@@ -1,9 +0,0 @@
-local function __TS__StringCharAt(self, pos)
-    if pos ~= pos then
-        pos = 0
-    end
-    if pos < 0 then
-        return ""
-    end
-    return string.sub(self, pos + 1, pos + 1)
-end

package/dist/lualib/StringCharCodeAt.lua

@@ -1,13 +0,0 @@
-local function __TS__StringCharCodeAt(self, index)
-    if index ~= index then
-        index = 0
-    end
-    if index < 0 then
-        return 0 / 0
-    end
-    local ____string_byte_result_0 = string.byte(self, index + 1)
-    if ____string_byte_result_0 == nil then
-        ____string_byte_result_0 = 0 / 0
-    end
-    return ____string_byte_result_0
-end

package/dist/lualib/StringEndsWith.lua

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

package/dist/lualib/StringIncludes.lua

@@ -1,9 +0,0 @@
-local function __TS__StringIncludes(self, searchString, position)
-    if not position then
-        position = 1
-    else
-        position = position + 1
-    end
-    local index = string.find(self, searchString, position, true)
-    return index ~= nil
-end

package/dist/lualib/StringPadEnd.lua

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

package/dist/lualib/StringPadStart.lua

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

package/dist/lualib/StringReplace.lua

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

package/dist/lualib/StringReplaceAll.lua

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

package/dist/lualib/StringSlice.lua

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

package/dist/lualib/StringSplit.lua

@@ -1,36 +0,0 @@
-local __TS__StringSplit
-do
-    local sub = string.sub
-    local find = string.find
-    function __TS__StringSplit(source, separator, limit)
-        if limit == nil then
-            limit = 4294967295
-        end
-        if limit == 0 then
-            return {}
-        end
-        local result = {}
-        local resultIndex = 1
-        if separator == nil or separator == "" then
-            for i = 1, #source do
-                result[resultIndex] = sub(source, i, i)
-                resultIndex = resultIndex + 1
-            end
-        else
-            local currentPos = 1
-            while resultIndex <= limit do
-                local startPos, endPos = find(source, separator, currentPos, true)
-                if not startPos then
-                    break
-                end
-                result[resultIndex] = sub(source, currentPos, startPos - 1)
-                resultIndex = resultIndex + 1
-                currentPos = endPos + 1
-            end
-            if resultIndex <= limit then
-                result[resultIndex] = sub(source, currentPos)
-            end
-        end
-        return result
-    end
-end

package/dist/lualib/StringStartsWith.lua

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

package/dist/lualib/StringSubstr.lua

@@ -1,15 +0,0 @@
-local function __TS__StringSubstr(self, from, length)
-    if from ~= from then
-        from = 0
-    end
-    if length ~= nil then
-        if length ~= length or length <= 0 then
-            return ""
-        end
-        length = length + from
-    end
-    if from >= 0 then
-        from = from + 1
-    end
-    return string.sub(self, from, length)
-end

package/dist/lualib/StringSubstring.lua

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

package/dist/lualib/StringTrim.lua

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

package/dist/lualib/StringTrimEnd.lua

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

package/dist/lualib/StringTrimStart.lua

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

package/dist/lualib/Symbol.lua

@@ -1,15 +0,0 @@
-local __TS__Symbol, Symbol
-do
-    local symbolMetatable = {__tostring = function(self)
-        return ("Symbol(" .. (self.description or "")) .. ")"
-    end}
-    function __TS__Symbol(description)
-        return setmetatable({description = description}, symbolMetatable)
-    end
-    Symbol = {
-        iterator = __TS__Symbol("Symbol.iterator"),
-        hasInstance = __TS__Symbol("Symbol.hasInstance"),
-        species = __TS__Symbol("Symbol.species"),
-        toStringTag = __TS__Symbol("Symbol.toStringTag")
-    }
-end

package/dist/lualib/SymbolRegistry.lua

@@ -1,17 +0,0 @@
-local __TS__SymbolRegistryFor, __TS__SymbolRegistryKeyFor
-do
-    local symbolRegistry = {}
-    function __TS__SymbolRegistryFor(key)
-        if not symbolRegistry[key] then
-            symbolRegistry[key] = __TS__Symbol(key)
-        end
-        return symbolRegistry[key]
-    end
-    function __TS__SymbolRegistryKeyFor(sym)
-        for key in pairs(symbolRegistry) do
-            if symbolRegistry[key] == sym then
-                return key
-            end
-        end
-    end
-end

package/dist/lualib/TypeOf.lua

@@ -1,10 +0,0 @@
-local function __TS__TypeOf(value)
-    local luaType = type(value)
-    if luaType == "table" then
-        return "object"
-    elseif luaType == "nil" then
-        return "undefined"
-    else
-        return luaType
-    end
-end

package/dist/lualib/Unpack.lua

@@ -1 +0,0 @@
-local __TS__Unpack = table.unpack or unpack