typescript-to-lua 1.9.0 → 1.10.0-beta.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/ArrayIsArray.lua

@@ -0,0 +1,3 @@
+local function __TS__ArrayIsArray(value)
+    return type(value) == "table" and (value[1] ~= nil or next(value) == nil)
+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/ArraySort.lua

@@ -0,0 +1,11 @@
+local function __TS__ArraySort(self, compareFn)
+    if compareFn ~= nil then
+        table.sort(
+            self,
+            function(a, b) return compareFn(nil, a, b) < 0 end
+        )
+    else
+        table.sort(self)
+    end
+    return self
+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/Await.lua

@@ -0,0 +1,54 @@
+local function __TS__AsyncAwaiter(generator)
+    return __TS__New(
+        __TS__Promise,
+        function(____, resolve, reject)
+            local adopt, fulfilled, step, resolved, asyncCoroutine
+            function adopt(self, value)
+                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)
+                if success then
+                    step(nil, resultOrError)
+                else
+                    reject(nil, resultOrError)
+                end
+            end
+            function step(self, result)
+                if resolved then
+                    return
+                end
+                if coroutine.status(asyncCoroutine) == "dead" then
+                    resolve(nil, result)
+                else
+                    local ____self_1 = adopt(nil, result)
+                    ____self_1["then"](____self_1, fulfilled, reject)
+                end
+            end
+            resolved = false
+            asyncCoroutine = coroutine.create(generator)
+            local success, resultOrError = coroutine.resume(
+                asyncCoroutine,
+                function(____, v)
+                    resolved = true
+                    local ____self_2 = adopt(nil, v)
+                    ____self_2["then"](____self_2, resolve, reject)
+                end
+            )
+            if success then
+                step(nil, resultOrError)
+            else
+                reject(nil, resultOrError)
+            end
+        end
+    )
+end
+local function __TS__Await(thing)
+    return coroutine.yield(thing)
+end

package/dist/lualib/5.0/Class.lua

@@ -0,0 +1,6 @@
+local function __TS__Class(self)
+    local c = {prototype = {}}
+    c.prototype.__index = c.prototype
+    c.prototype.constructor = c
+    return c
+end

package/dist/lualib/5.0/ClassExtends.lua

@@ -0,0 +1,24 @@
+local function __TS__ClassExtends(target, base)
+    target.____super = base
+    local staticMetatable = setmetatable({__index = base}, base)
+    setmetatable(target, staticMetatable)
+    local baseMetatable = getmetatable(base)
+    if baseMetatable then
+        if type(baseMetatable.__index) == "function" then
+            staticMetatable.__index = baseMetatable.__index
+        end
+        if type(baseMetatable.__newindex) == "function" then
+            staticMetatable.__newindex = baseMetatable.__newindex
+        end
+    end
+    setmetatable(target.prototype, base.prototype)
+    if type(base.prototype.__index) == "function" then
+        target.prototype.__index = base.prototype.__index
+    end
+    if type(base.prototype.__newindex) == "function" then
+        target.prototype.__newindex = base.prototype.__newindex
+    end
+    if type(base.prototype.__tostring) == "function" then
+        target.prototype.__tostring = base.prototype.__tostring
+    end
+end

package/dist/lualib/5.0/CloneDescriptor.lua

@@ -0,0 +1,28 @@
+local function __TS__CloneDescriptor(____bindingPattern0)
+    local value
+    local writable
+    local set
+    local get
+    local configurable
+    local enumerable
+    enumerable = ____bindingPattern0.enumerable
+    configurable = ____bindingPattern0.configurable
+    get = ____bindingPattern0.get
+    set = ____bindingPattern0.set
+    writable = ____bindingPattern0.writable
+    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
+    if hasGetterOrSetter and hasValueOrWritableAttribute then
+        error("Invalid property descriptor. Cannot both specify accessors and a value or writable attribute.", 0)
+    end
+    if get or set then
+        descriptor.get = get
+        descriptor.set = set
+    else
+        descriptor.value = value
+        descriptor.writable = writable == true
+    end
+    return descriptor
+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/DecorateParam.lua

@@ -0,0 +1,3 @@
+local function __TS__DecorateParam(paramIndex, decorator)
+    return function(____, target, key) return decorator(nil, target, key, paramIndex) end
+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/Delete.lua

@@ -0,0 +1,19 @@
+local function __TS__Delete(target, key)
+    local descriptors = __TS__ObjectGetOwnPropertyDescriptors(target)
+    local descriptor = descriptors[key]
+    if descriptor then
+        if not descriptor.configurable then
+            error(
+                __TS__New(
+                    TypeError,
+                    ((("Cannot delete property " .. tostring(key)) .. " of ") .. tostring(target)) .. "."
+                ),
+                0
+            )
+        end
+        descriptors[key] = nil
+        return true
+    end
+    target[key] = nil
+    return true
+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