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

package/dist/lualib/5.0/Generator.lua

@@ -0,0 +1,34 @@
+local __TS__Generator
+do
+    local function generatorIterator(self)
+        return self
+    end
+    local function generatorNext(self, ...)
+        local co = self.____coroutine
+        if coroutine.status(co) == "dead" then
+            return {done = true}
+        end
+        local status, value = coroutine.resume(
+            co,
+            unpack(arg)
+        )
+        if not status then
+            error(value, 0)
+        end
+        return {
+            value = value,
+            done = coroutine.status(co) == "dead"
+        }
+    end
+    function __TS__Generator(fn)
+        return function(...)
+            local args = arg
+            local argsLength = __TS__CountVarargs(unpack(arg))
+            return {
+                ____coroutine = coroutine.create(function() return fn(__TS__Spread(__TS__Unpack(nil, args, 1, argsLength))) end),
+                [Symbol.iterator] = generatorIterator,
+                next = generatorNext
+            }
+        end
+    end
+end

package/dist/lualib/5.0/InstanceOf.lua

@@ -0,0 +1,18 @@
+local function __TS__InstanceOf(obj, classTbl)
+    if type(classTbl) ~= "table" then
+        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)
+    end
+    if type(obj) == "table" then
+        local luaClass = obj.constructor
+        while luaClass ~= nil do
+            if luaClass == classTbl then
+                return true
+            end
+            luaClass = luaClass.____super
+        end
+    end
+    return false
+end

package/dist/lualib/5.0/InstanceOfObject.lua

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

package/dist/lualib/5.0/Iterator.lua

@@ -0,0 +1,40 @@
+local __TS__Iterator
+do
+    local function iteratorGeneratorStep(self)
+        local co = self.____coroutine
+        local status, value = coroutine.resume(co)
+        if not status then
+            error(value, 0)
+        end
+        if coroutine.status(co) == "dead" then
+            return
+        end
+        return true, value
+    end
+    local function iteratorIteratorStep(self)
+        local result = self:next()
+        if result.done then
+            return
+        end
+        return true, result.value
+    end
+    local function iteratorStringStep(self, index)
+        index = index + 1
+        if index > string.len(self) then
+            return
+        end
+        return index, string.sub(self, index, index)
+    end
+    function __TS__Iterator(iterable)
+        if type(iterable) == "string" then
+            return iteratorStringStep, iterable, 0
+        elseif iterable.____coroutine ~= nil then
+            return iteratorGeneratorStep, iterable
+        elseif iterable[Symbol.iterator] then
+            local iterator = iterable[Symbol.iterator](iterable)
+            return iteratorIteratorStep, iterator
+        else
+            return ipairs(iterable)
+        end
+    end
+end

package/dist/lualib/5.0/LuaIteratorSpread.lua

@@ -0,0 +1,9 @@
+local function __TS__LuaIteratorSpread(self, state, firstKey)
+    local results = {}
+    local key, value = self(state, firstKey)
+    while key do
+        results[table.getn(results) + 1] = {key, value}
+        key, value = self(state, key)
+    end
+    return unpack(results)
+end

package/dist/lualib/5.0/Map.lua

@@ -0,0 +1,140 @@
+local Map
+do
+    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
+    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
+            self.nextKey[key] = nil
+            self.previousKey[key] = nil
+        end
+        self.items[key] = nil
+        return contains
+    end
+    function Map.prototype.forEach(self, callback)
+        for ____, key in __TS__Iterator(self:keys()) do
+            callback(nil, self.items[key], key, self)
+        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
+        return self
+    end
+    Map.prototype[Symbol.iterator] = function(self)
+        return self:entries()
+    end
+    function Map.prototype.entries(self)
+        local items = self.items
+        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, 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 items = self.items
+        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 = items[key]}
+                key = nextKey[key]
+                return result
+            end
+        }
+    end
+    Map[Symbol.species] = Map
+end

package/dist/lualib/5.0/Match.lua

@@ -0,0 +1,13 @@
+local function __TS__Match(s, pattern, init)
+    local ____temp_0 = {string.find(s, pattern, init)}
+    local start = ____temp_0[1]
+    local ____end = ____temp_0[2]
+    local captures = __TS__ArraySlice(____temp_0, 2)
+    if start == nil or ____end == nil then
+        return
+    elseif table.getn(captures) <= 0 then
+        return __TS__StringSlice(s, start - 1, ____end)
+    else
+        return unpack(captures)
+    end
+end

package/dist/lualib/5.0/MathAtan2.lua

@@ -0,0 +1 @@
+local __TS__MathAtan2 = math.atan2 or math.atan

package/dist/lualib/5.0/MathModf.lua

@@ -0,0 +1,10 @@
+local function __TS__MathModf(x)
+    local ____temp_0
+    if x > 0 then
+        ____temp_0 = math.floor(x)
+    else
+        ____temp_0 = math.ceil(x)
+    end
+    local integral = ____temp_0
+    return integral, x - integral
+end

package/dist/lualib/5.0/MathSign.lua

@@ -0,0 +1,8 @@
+local function __TS__MathSign(val)
+    if val > 0 then
+        return 1
+    elseif val < 0 then
+        return -1
+    end
+    return 0
+end

package/dist/lualib/5.0/Modulo50.lua

@@ -0,0 +1,3 @@
+local function __TS__Modulo50(a, b)
+    return a - math.floor(a / b) * b
+end

package/dist/lualib/5.0/New.lua

@@ -0,0 +1,5 @@
+local function __TS__New(target, ...)
+    local instance = setmetatable({}, target.prototype)
+    instance:____constructor(unpack(arg))
+    return instance
+end

package/dist/lualib/5.0/Number.lua

@@ -0,0 +1,26 @@
+local function __TS__Number(value)
+    local valueType = type(value)
+    if valueType == "number" then
+        return value
+    elseif valueType == "string" then
+        local numberValue = tonumber(value)
+        if numberValue then
+            return numberValue
+        end
+        if value == "Infinity" then
+            return 1 / 0
+        end
+        if value == "-Infinity" then
+            return -(1 / 0)
+        end
+        local stringWithoutSpaces = string.gsub(value, "%s", "")
+        if stringWithoutSpaces == "" then
+            return 0
+        end
+        return 0 / 0
+    elseif valueType == "boolean" then
+        return value and 1 or 0
+    else
+        return 0 / 0
+    end
+end

package/dist/lualib/5.0/NumberIsFinite.lua

@@ -0,0 +1,3 @@
+local function __TS__NumberIsFinite(value)
+    return type(value) == "number" and value == value and value ~= 1 / 0 and value ~= -(1 / 0)
+end

package/dist/lualib/5.0/NumberIsNaN.lua

@@ -0,0 +1,3 @@
+local function __TS__NumberIsNaN(value)
+    return value ~= value
+end

package/dist/lualib/5.0/NumberToString.lua

@@ -0,0 +1,47 @@
+local __TS__NumberToString
+do
+    local radixChars = "0123456789abcdefghijklmnopqrstuvwxyz"
+    function __TS__NumberToString(self, radix)
+        if radix == nil or radix == 10 or self == 1 / 0 or self == -(1 / 0) or self ~= self then
+            return tostring(self)
+        end
+        radix = math.floor(radix)
+        if radix < 2 or radix > 36 then
+            error("toString() radix argument must be between 2 and 36", 0)
+        end
+        local integer, fraction = __TS__MathModf(math.abs(self))
+        local result = ""
+        if radix == 8 then
+            result = string.format("%o", integer)
+        elseif radix == 16 then
+            result = string.format("%x", integer)
+        else
+            repeat
+                do
+                    result = __TS__StringAccess(
+                        radixChars,
+                        __TS__Modulo50(integer, radix)
+                    ) .. result
+                    integer = math.floor(integer / radix)
+                end
+            until not (integer ~= 0)
+        end
+        if fraction ~= 0 then
+            result = result .. "."
+            local delta = 1e-16
+            repeat
+                do
+                    fraction = fraction * radix
+                    delta = delta * radix
+                    local digit = math.floor(fraction)
+                    result = result .. __TS__StringAccess(radixChars, digit)
+                    fraction = fraction - digit
+                end
+            until not (fraction >= delta)
+        end
+        if self < 0 then
+            result = "-" .. result
+        end
+        return result
+    end
+end

package/dist/lualib/5.0/ObjectAssign.lua

@@ -0,0 +1,10 @@
+local function __TS__ObjectAssign(target, ...)
+    local sources = arg
+    for i = 1, table.getn(sources) do
+        local source = sources[i]
+        for key in pairs(source) do
+            target[key] = source[key]
+        end
+    end
+    return target
+end

package/dist/lualib/5.0/ObjectDefineProperty.lua

@@ -0,0 +1,59 @@
+local function __TS__ObjectDefineProperty(target, key, desc)
+    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 descriptor
+    if hasGetterOrSetter then
+        if value ~= nil then
+            error(
+                "Cannot redefine property: " .. tostring(key),
+                0
+            )
+        end
+        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_5,
+            get = ____desc_get_6,
+            configurable = ____temp_1,
+            enumerable = ____temp_2,
+            writable = ____temp_3,
+            value = ____temp_4
+        }
+    end
+    __TS__SetDescriptor(target, luaKey, descriptor)
+    return target
+end

package/dist/lualib/5.0/ObjectEntries.lua

@@ -0,0 +1,9 @@
+local function __TS__ObjectEntries(obj)
+    local result = {}
+    local len = 0
+    for key in pairs(obj) do
+        len = len + 1
+        result[len] = {key, obj[key]}
+    end
+    return result
+end

package/dist/lualib/5.0/ObjectFromEntries.lua

@@ -0,0 +1,20 @@
+local function __TS__ObjectFromEntries(entries)
+    local obj = {}
+    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
+            obj[value[1]] = value[2]
+        end
+    else
+        for ____, entry in ipairs(entries) do
+            obj[entry[1]] = entry[2]
+        end
+    end
+    return obj
+end

package/dist/lualib/5.0/ObjectGetOwnPropertyDescriptor.lua

@@ -0,0 +1,10 @@
+local function __TS__ObjectGetOwnPropertyDescriptor(object, key)
+    local metatable = getmetatable(object)
+    if not metatable then
+        return
+    end
+    if not rawget(metatable, "_descriptors") then
+        return
+    end
+    return rawget(metatable, "_descriptors")[key]
+end

package/dist/lualib/5.0/ObjectGetOwnPropertyDescriptors.lua

@@ -0,0 +1,7 @@
+local function __TS__ObjectGetOwnPropertyDescriptors(object)
+    local metatable = getmetatable(object)
+    if not metatable then
+        return {}
+    end
+    return rawget(metatable, "_descriptors") or ({})
+end

package/dist/lualib/5.0/ObjectKeys.lua

@@ -0,0 +1,9 @@
+local function __TS__ObjectKeys(obj)
+    local result = {}
+    local len = 0
+    for key in pairs(obj) do
+        len = len + 1
+        result[len] = key
+    end
+    return result
+end

package/dist/lualib/5.0/ObjectRest.lua

@@ -0,0 +1,9 @@
+local function __TS__ObjectRest(target, usedProperties)
+    local result = {}
+    for property in pairs(target) do
+        if not usedProperties[property] then
+            result[property] = target[property]
+        end
+    end
+    return result
+end

package/dist/lualib/5.0/ObjectValues.lua

@@ -0,0 +1,9 @@
+local function __TS__ObjectValues(obj)
+    local result = {}
+    local len = 0
+    for key in pairs(obj) do
+        len = len + 1
+        result[len] = obj[key]
+    end
+    return result
+end

package/dist/lualib/5.0/ParseFloat.lua

@@ -0,0 +1,18 @@
+local function __TS__ParseFloat(numberString)
+    local infinityMatch = __TS__Match(numberString, "^%s*(-?Infinity)")
+    if infinityMatch then
+        local ____temp_0
+        if __TS__StringAccess(infinityMatch, 0) == "-" then
+            ____temp_0 = -(1 / 0)
+        else
+            ____temp_0 = 1 / 0
+        end
+        return ____temp_0
+    end
+    local number = tonumber(__TS__Match(numberString, "^%s*(-?%d+%.?%d*)"))
+    local ____number_1 = number
+    if ____number_1 == nil then
+        ____number_1 = 0 / 0
+    end
+    return ____number_1
+end

package/dist/lualib/5.0/ParseInt.lua

@@ -0,0 +1,49 @@
+local __TS__ParseInt
+do
+    local parseIntBasePattern = "0123456789aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTvVwWxXyYzZ"
+    function __TS__ParseInt(numberString, base)
+        if base == nil then
+            base = 10
+            local hexMatch = __TS__Match(numberString, "^%s*-?0[xX]")
+            if hexMatch then
+                base = 16
+                local ____TS__Match_result__0_0
+                if __TS__Match(hexMatch, "-") then
+                    ____TS__Match_result__0_0 = "-" .. __TS__StringSubstr(
+                        numberString,
+                        string.len(hexMatch)
+                    )
+                else
+                    ____TS__Match_result__0_0 = __TS__StringSubstr(
+                        numberString,
+                        string.len(hexMatch)
+                    )
+                end
+                numberString = ____TS__Match_result__0_0
+            end
+        end
+        if base < 2 or base > 36 then
+            return 0 / 0
+        end
+        local ____temp_1
+        if base <= 10 then
+            ____temp_1 = __TS__StringSubstring(parseIntBasePattern, 0, base)
+        else
+            ____temp_1 = __TS__StringSubstr(parseIntBasePattern, 0, 10 + 2 * (base - 10))
+        end
+        local allowedDigits = ____temp_1
+        local pattern = ("^%s*(-?[" .. allowedDigits) .. "]*)"
+        local number = tonumber(
+            __TS__Match(numberString, pattern),
+            base
+        )
+        if number == nil then
+            return 0 / 0
+        end
+        if number >= 0 then
+            return math.floor(number)
+        else
+            return math.ceil(number)
+        end
+    end
+end