typescript-to-lua 1.8.2 → 1.10.0

package/dist/lualib/5.0/ArrayIncludes.lua

@@ -0,0 +1,19 @@
+local function __TS__ArrayIncludes(self, searchElement, fromIndex)
+    if fromIndex == nil then
+        fromIndex = 0
+    end
+    local len = table.getn(self)
+    local k = fromIndex
+    if fromIndex < 0 then
+        k = len + fromIndex
+    end
+    if k < 0 then
+        k = 0
+    end
+    for i = k + 1, len do
+        if self[i] == searchElement then
+            return true
+        end
+    end
+    return false
+end

package/dist/lualib/5.0/ArrayIndexOf.lua

@@ -0,0 +1,24 @@
+local function __TS__ArrayIndexOf(self, searchElement, fromIndex)
+    if fromIndex == nil then
+        fromIndex = 0
+    end
+    local len = table.getn(self)
+    if len == 0 then
+        return -1
+    end
+    if fromIndex >= len then
+        return -1
+    end
+    if fromIndex < 0 then
+        fromIndex = len + fromIndex
+        if fromIndex < 0 then
+            fromIndex = 0
+        end
+    end
+    for i = fromIndex + 1, len do
+        if self[i] == searchElement then
+            return i - 1
+        end
+    end
+    return -1
+end

package/dist/lualib/5.0/ArrayJoin.lua

@@ -0,0 +1,10 @@
+local function __TS__ArrayJoin(self, separator)
+    if separator == nil then
+        separator = ","
+    end
+    local parts = {}
+    for i = 1, table.getn(self) do
+        parts[i] = tostring(self[i])
+    end
+    return table.concat(parts, separator)
+end

package/dist/lualib/5.0/ArrayMap.lua

@@ -0,0 +1,7 @@
+local function __TS__ArrayMap(self, callbackfn, thisArg)
+    local result = {}
+    for i = 1, table.getn(self) do
+        result[i] = callbackfn(thisArg, self[i], i - 1, self)
+    end
+    return result
+end

package/dist/lualib/5.0/ArrayPush.lua

@@ -0,0 +1,9 @@
+local function __TS__ArrayPush(self, ...)
+    local items = arg
+    local len = table.getn(self)
+    for i = 1, table.getn(items) do
+        len = len + 1
+        self[len] = items[i]
+    end
+    return len
+end

package/dist/lualib/5.0/ArrayPushArray.lua

@@ -0,0 +1,8 @@
+local function __TS__ArrayPushArray(self, items)
+    local len = table.getn(self)
+    for i = 1, table.getn(items) do
+        len = len + 1
+        self[len] = items[i]
+    end
+    return len
+end

package/dist/lualib/5.0/ArrayReduce.lua

@@ -0,0 +1,23 @@
+local function __TS__ArrayReduce(self, callbackFn, ...)
+    local len = table.getn(self)
+    local k = 0
+    local accumulator = nil
+    if __TS__CountVarargs(unpack(arg)) ~= 0 then
+        accumulator = unpack(arg)
+    elseif len > 0 then
+        accumulator = self[1]
+        k = 1
+    else
+        error("Reduce of empty array with no initial value", 0)
+    end
+    for i = k + 1, len do
+        accumulator = callbackFn(
+            nil,
+            accumulator,
+            self[i],
+            i - 1,
+            self
+        )
+    end
+    return accumulator
+end

package/dist/lualib/5.0/ArrayReduceRight.lua

@@ -0,0 +1,23 @@
+local function __TS__ArrayReduceRight(self, callbackFn, ...)
+    local len = table.getn(self)
+    local k = len - 1
+    local accumulator = nil
+    if __TS__CountVarargs(unpack(arg)) ~= 0 then
+        accumulator = unpack(arg)
+    elseif len > 0 then
+        accumulator = self[k + 1]
+        k = k - 1
+    else
+        error("Reduce of empty array with no initial value", 0)
+    end
+    for i = k + 1, 1, -1 do
+        accumulator = callbackFn(
+            nil,
+            accumulator,
+            self[i],
+            i - 1,
+            self
+        )
+    end
+    return accumulator
+end

package/dist/lualib/5.0/ArrayReverse.lua

@@ -0,0 +1,12 @@
+local function __TS__ArrayReverse(self)
+    local i = 1
+    local j = table.getn(self)
+    while i < j do
+        local temp = self[j]
+        self[j] = self[i]
+        self[i] = temp
+        i = i + 1
+        j = j - 1
+    end
+    return self
+end

package/dist/lualib/5.0/ArraySetLength.lua

@@ -0,0 +1,12 @@
+local function __TS__ArraySetLength(self, length)
+    if length < 0 or length ~= length or length == 1 / 0 or math.floor(length) ~= length then
+        error(
+            "invalid array length: " .. tostring(length),
+            0
+        )
+    end
+    for i = length + 1, table.getn(self) do
+        self[i] = nil
+    end
+    return length
+end

package/dist/lualib/5.0/ArraySlice.lua

@@ -0,0 +1,43 @@
+local function __TS__ArraySlice(self, first, last)
+    local len = table.getn(self)
+    local ____first_0 = first
+    if ____first_0 == nil then
+        ____first_0 = 0
+    end
+    first = ____first_0
+    if first < 0 then
+        first = len + first
+        if first < 0 then
+            first = 0
+        end
+    else
+        if first > len then
+            first = len
+        end
+    end
+    local ____last_1 = last
+    if ____last_1 == nil then
+        ____last_1 = len
+    end
+    last = ____last_1
+    if last < 0 then
+        last = len + last
+        if last < 0 then
+            last = 0
+        end
+    else
+        if last > len then
+            last = len
+        end
+    end
+    local out = {}
+    first = first + 1
+    last = last + 1
+    local n = 1
+    while first < last do
+        out[n] = self[first]
+        first = first + 1
+        n = n + 1
+    end
+    return out
+end

package/dist/lualib/5.0/ArraySome.lua

@@ -0,0 +1,8 @@
+local function __TS__ArraySome(self, callbackfn, thisArg)
+    for i = 1, table.getn(self) do
+        if callbackfn(thisArg, self[i], i - 1, self) then
+            return true
+        end
+    end
+    return false
+end

package/dist/lualib/5.0/ArraySplice.lua

@@ -0,0 +1,77 @@
+local function __TS__ArraySplice(self, ...)
+    local args = arg
+    local len = table.getn(self)
+    local actualArgumentCount = __TS__CountVarargs(unpack(arg))
+    local start = args[1]
+    local deleteCount = args[2]
+    if start < 0 then
+        start = len + start
+        if start < 0 then
+            start = 0
+        end
+    elseif start > len then
+        start = len
+    end
+    local itemCount = actualArgumentCount - 2
+    if itemCount < 0 then
+        itemCount = 0
+    end
+    local actualDeleteCount
+    if actualArgumentCount == 0 then
+        actualDeleteCount = 0
+    elseif actualArgumentCount == 1 then
+        actualDeleteCount = len - start
+    else
+        local ____deleteCount_0 = deleteCount
+        if ____deleteCount_0 == nil then
+            ____deleteCount_0 = 0
+        end
+        actualDeleteCount = ____deleteCount_0
+        if actualDeleteCount < 0 then
+            actualDeleteCount = 0
+        end
+        if actualDeleteCount > len - start then
+            actualDeleteCount = len - start
+        end
+    end
+    local out = {}
+    for k = 1, actualDeleteCount do
+        local from = start + k
+        if self[from] ~= nil then
+            out[k] = self[from]
+        end
+    end
+    if itemCount < actualDeleteCount then
+        for k = start + 1, len - actualDeleteCount do
+            local from = k + actualDeleteCount
+            local to = k + itemCount
+            if self[from] then
+                self[to] = self[from]
+            else
+                self[to] = nil
+            end
+        end
+        for k = len - actualDeleteCount + itemCount + 1, len do
+            self[k] = nil
+        end
+    elseif itemCount > actualDeleteCount then
+        for k = len - actualDeleteCount, start + 1, -1 do
+            local from = k + actualDeleteCount
+            local to = k + itemCount
+            if self[from] then
+                self[to] = self[from]
+            else
+                self[to] = nil
+            end
+        end
+    end
+    local j = start + 1
+    for i = 3, actualArgumentCount do
+        self[j] = args[i]
+        j = j + 1
+    end
+    for k = table.getn(self), len - actualDeleteCount + itemCount + 1, -1 do
+        self[k] = nil
+    end
+    return out
+end

package/dist/lualib/5.0/ArrayToObject.lua

@@ -0,0 +1,7 @@
+local function __TS__ArrayToObject(self)
+    local object = {}
+    for i = 1, table.getn(self) do
+        object[i - 1] = self[i]
+    end
+    return object
+end

package/dist/lualib/5.0/ArrayUnshift.lua

@@ -0,0 +1,14 @@
+local function __TS__ArrayUnshift(self, ...)
+    local items = arg
+    local numItemsToInsert = table.getn(items)
+    if numItemsToInsert == 0 then
+        return table.getn(self)
+    end
+    for i = table.getn(self), 1, -1 do
+        self[i + numItemsToInsert] = self[i]
+    end
+    for i = 1, numItemsToInsert do
+        self[i] = items[i]
+    end
+    return table.getn(self)
+end

package/dist/lualib/5.0/CountVarargs.lua

@@ -0,0 +1,4 @@
+local function __TS__CountVarargs(...)
+    local args = arg
+    return table.getn(args)
+end

package/dist/lualib/5.0/Decorate.lua

@@ -0,0 +1,36 @@
+local function __TS__Decorate(decorators, target, key, desc)
+    local result = target
+    do
+        local i = table.getn(decorators)
+        while i >= 0 do
+            local decorator = decorators[i + 1]
+            if decorator then
+                local oldResult = result
+                if key == nil then
+                    result = decorator(nil, result)
+                elseif desc == true then
+                    local value = rawget(target, key)
+                    local descriptor = __TS__ObjectGetOwnPropertyDescriptor(target, key) or ({configurable = true, writable = true, value = value})
+                    local desc = decorator(nil, target, key, descriptor) or descriptor
+                    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
+                        __TS__SetDescriptor(
+                            target,
+                            key,
+                            __TS__ObjectAssign({}, descriptor, desc)
+                        )
+                    end
+                elseif desc == false then
+                    result = decorator(nil, target, key, desc)
+                else
+                    result = decorator(nil, target, key)
+                end
+                result = result or oldResult
+            end
+            i = i - 1
+        end
+    end
+    return result
+end

package/dist/lualib/5.0/DelegatedYield.lua

@@ -0,0 +1,34 @@
+local function __TS__DelegatedYield(iterable)
+    if type(iterable) == "string" then
+        for index = 0, string.len(iterable) - 1 do
+            coroutine.yield(__TS__StringAccess(iterable, index))
+        end
+    elseif iterable.____coroutine ~= nil then
+        local co = iterable.____coroutine
+        while true do
+            local status, value = coroutine.resume(co)
+            if not status then
+                error(value, 0)
+            end
+            if coroutine.status(co) == "dead" then
+                return value
+            else
+                coroutine.yield(value)
+            end
+        end
+    elseif iterable[Symbol.iterator] then
+        local iterator = iterable[Symbol.iterator](iterable)
+        while true do
+            local result = iterator:next()
+            if result.done then
+                return result.value
+            else
+                coroutine.yield(result.value)
+            end
+        end
+    else
+        for ____, value in ipairs(iterable) do
+            coroutine.yield(value)
+        end
+    end
+end

package/dist/lualib/5.0/Error.lua

@@ -0,0 +1,85 @@
+local Error, RangeError, ReferenceError, SyntaxError, TypeError, URIError
+do
+    local function getErrorStack(self, constructor)
+        local level = 1
+        while true do
+            local info = debug.getinfo(level, "f")
+            level = level + 1
+            if not info then
+                level = 1
+                break
+            elseif info.func == constructor then
+                break
+            end
+        end
+        if __TS__StringIncludes(_VERSION, "Lua 5.0") then
+            return debug.traceback(("[Level " .. tostring(level)) .. "]")
+        else
+            return debug.traceback(nil, level)
+        end
+    end
+    local function wrapErrorToString(self, getDescription)
+        return function(self)
+            local description = getDescription(self)
+            local caller = debug.getinfo(3, "f")
+            local isClassicLua = __TS__StringIncludes(_VERSION, "Lua 5.0") or _VERSION == "Lua 5.1"
+            if isClassicLua or caller and caller.func ~= error then
+                return description
+            else
+                return (tostring(description) .. "\n") .. self.stack
+            end
+        end
+    end
+    local function initErrorClass(self, Type, name)
+        Type.name = name
+        return setmetatable(
+            Type,
+            {__call = function(____, _self, message) return __TS__New(Type, message) end}
+        )
+    end
+    local ____initErrorClass_2 = initErrorClass
+    local ____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 = getErrorStack(nil, self.constructor.new)
+        local metatable = getmetatable(self)
+        if not metatable.__errorToStringPatched then
+            metatable.__errorToStringPatched = true
+            metatable.__tostring = wrapErrorToString(nil, 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 = ____initErrorClass_2(nil, ____class_0, "Error")
+    local function createErrorClass(self, name)
+        local ____initErrorClass_4 = initErrorClass
+        local ____class_3 = __TS__Class()
+        ____class_3.name = ____class_3.name
+        __TS__ClassExtends(____class_3, Error)
+        function ____class_3.prototype.____constructor(self, ...)
+            ____class_3.____super.prototype.____constructor(
+                self,
+                unpack(arg)
+            )
+            self.name = name
+        end
+        return ____initErrorClass_4(nil, ____class_3, name)
+    end
+    RangeError = createErrorClass(nil, "RangeError")
+    ReferenceError = createErrorClass(nil, "ReferenceError")
+    SyntaxError = createErrorClass(nil, "SyntaxError")
+    TypeError = createErrorClass(nil, "TypeError")
+    URIError = createErrorClass(nil, "URIError")
+end

package/dist/lualib/5.0/FunctionBind.lua

@@ -0,0 +1,11 @@
+local function __TS__FunctionBind(fn, ...)
+    local boundArgs = arg
+    return function(____, ...)
+        local args = arg
+        __TS__ArrayUnshift(
+            args,
+            unpack(boundArgs)
+        )
+        return fn(unpack(args))
+    end
+end

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/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/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/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/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