typescript-to-lua 1.3.2 → 1.4.0

package/dist/lualib/Decorate.lua

@@ -1,4 +1,4 @@
-function __TS__Decorate(decorators, target, key, desc)
+local function __TS__Decorate(decorators, target, key, desc)
     local result = target
     do
         local i = #decorators
@@ -7,11 +7,11 @@ function __TS__Decorate(decorators, target, key, desc)
             if decorator then
                 local oldResult = result
                 if key == nil then
-                    result = decorator(_G, result)
+                    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(_G, target, key, descriptor) or descriptor
+                    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)
@@ -23,9 +23,9 @@ function __TS__Decorate(decorators, target, key, desc)
                         )
                     end
                 elseif desc == false then
-                    result = decorator(_G, target, key, desc)
+                    result = decorator(nil, target, key, desc)
                 else
-                    result = decorator(_G, target, key)
+                    result = decorator(nil, target, key)
                 end
                 result = result or oldResult
             end

package/dist/lualib/DecorateParam.lua

@@ -1,3 +1,3 @@
-function __TS__DecorateParam(paramIndex, decorator)
-    return function(____, target, key) return decorator(_G, target, key, paramIndex) end
+local function __TS__DecorateParam(paramIndex, decorator)
+    return function(____, target, key) return decorator(nil, target, key, paramIndex) end
 end

package/dist/lualib/DelegatedYield.lua

@@ -1,4 +1,4 @@
-function __TS__DelegatedYield(iterable)
+local function __TS__DelegatedYield(iterable)
     if type(iterable) == "string" then
         for index = 0, #iterable - 1 do
             coroutine.yield(__TS__StringAccess(iterable, index))

package/dist/lualib/Delete.lua

@@ -1,4 +1,4 @@
-function __TS__Delete(target, key)
+local function __TS__Delete(target, key)
     local descriptors = __TS__ObjectGetOwnPropertyDescriptors(target)
     local descriptor = descriptors[key]
     if descriptor then

package/dist/lualib/Error.lua

@@ -1,78 +1,77 @@
-function __TS__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
+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
+        return debug.traceback(nil, level)
     end
-    return debug.traceback(nil, level)
-end
-function __TS__WrapErrorToString(self, getDescription)
-    return function(self)
-        local description = getDescription(self)
-        local caller = debug.getinfo(3, "f")
-        if _VERSION == "Lua 5.1" or caller and caller.func ~= error then
-            return description
-        else
-            return (tostring(description) .. "\n") .. self.stack
+    local function wrapErrorToString(self, getDescription)
+        return function(self)
+            local description = getDescription(self)
+            local caller = debug.getinfo(3, "f")
+            if _VERSION == "Lua 5.1" or caller and caller.func ~= error then
+                return description
+            else
+                return (tostring(description) .. "\n") .. self.stack
+            end
         end
     end
-end
-function __TS__InitErrorClass(self, Type, name)
-    Type.name = name
-    return setmetatable(
-        Type,
-        {__call = function(____, _self, message) return __TS__New(Type, message) end}
-    )
-end
-local ____TS__InitErrorClass_3 = __TS__InitErrorClass
-local ____G_2 = _G
-____class_0 = __TS__Class()
-____class_0.name = ""
-function ____class_0.prototype.____constructor(self, message)
-    if message == nil then
-        message = ""
+    local function initErrorClass(self, Type, name)
+        Type.name = name
+        return setmetatable(
+            Type,
+            {__call = function(____, _self, message) return __TS__New(Type, message) end}
+        )
     end
-    self.message = message
-    self.name = "Error"
-    self.stack = __TS__GetErrorStack(_G, self.constructor.new)
-    local metatable = getmetatable(self)
-    if not metatable.__errorToStringPatched then
-        metatable.__errorToStringPatched = true
-        metatable.__tostring = __TS__WrapErrorToString(_G, metatable.__tostring)
+    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
-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
+    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
-    return ____temp_1
-end
-Error = ____TS__InitErrorClass_3(____G_2, ____class_0, "Error")
-for ____, errorName in ipairs({
-    "RangeError",
-    "ReferenceError",
-    "SyntaxError",
-    "TypeError",
-    "URIError"
-}) do
-    local ____G_7 = _G
-    local ____TS__InitErrorClass_6 = __TS__InitErrorClass
-    local ____G_5 = _G
-    local ____class_4 = __TS__Class()
-    ____class_4.name = ____class_4.name
-    __TS__ClassExtends(____class_4, Error)
-    function ____class_4.prototype.____constructor(self, ...)
-        Error.prototype.____constructor(self, ...)
-        self.name = errorName
+    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, ...)
+            self.name = name
+        end
+        return ____initErrorClass_4(nil, ____class_3, name)
     end
-    ____G_7[errorName] = ____TS__InitErrorClass_6(____G_5, ____class_4, errorName)
+    RangeError = createErrorClass(nil, "RangeError")
+    ReferenceError = createErrorClass(nil, "ReferenceError")
+    SyntaxError = createErrorClass(nil, "SyntaxError")
+    TypeError = createErrorClass(nil, "TypeError")
+    URIError = createErrorClass(nil, "URIError")
 end

package/dist/lualib/FunctionBind.lua

@@ -1,4 +1,4 @@
-function __TS__FunctionBind(fn, thisArg, ...)
+local function __TS__FunctionBind(fn, thisArg, ...)
     local boundArgs = {...}
     return function(____, ...)
         local args = {...}

package/dist/lualib/Generator.lua

@@ -1,28 +1,31 @@
-function __TS__GeneratorIterator(self)
-    return self
-end
-function __TS__GeneratorNext(self, ...)
-    local co = self.____coroutine
-    if coroutine.status(co) == "dead" then
-        return {done = true}
-    end
-    local status, value = coroutine.resume(co, ...)
-    if not status then
-        error(value, 0)
+local __TS__Generator
+do
+    local function generatorIterator(self)
+        return self
     end
-    return {
-        value = value,
-        done = coroutine.status(co) == "dead"
-    }
-end
-function __TS__Generator(fn)
-    return function(...)
-        local args = {...}
-        local argsLength = select("#", ...)
+    local function generatorNext(self, ...)
+        local co = self.____coroutine
+        if coroutine.status(co) == "dead" then
+            return {done = true}
+        end
+        local status, value = coroutine.resume(co, ...)
+        if not status then
+            error(value, 0)
+        end
         return {
-            ____coroutine = coroutine.create(function() return fn((unpack or table.unpack)(args, 1, argsLength)) end),
-            [Symbol.iterator] = __TS__GeneratorIterator,
-            next = __TS__GeneratorNext
+            value = value,
+            done = coroutine.status(co) == "dead"
         }
     end
+    function __TS__Generator(fn)
+        return function(...)
+            local args = {...}
+            local argsLength = select("#", ...)
+            return {
+                ____coroutine = coroutine.create(function() return fn((unpack or table.unpack)(args, 1, argsLength)) end),
+                [Symbol.iterator] = generatorIterator,
+                next = generatorNext
+            }
+        end
+    end
 end

package/dist/lualib/InstanceOf.lua

@@ -1,4 +1,4 @@
-function __TS__InstanceOf(obj, classTbl)
+local function __TS__InstanceOf(obj, classTbl)
     if type(classTbl) ~= "table" then
         error("Right-hand side of 'instanceof' is not an object", 0)
     end

package/dist/lualib/InstanceOfObject.lua

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

package/dist/lualib/Iterator.lua

@@ -1,37 +1,40 @@
-function __TS__IteratorGeneratorStep(self)
-    local co = self.____coroutine
-    local status, value = coroutine.resume(co)
-    if not status then
-        error(value, 0)
+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
-    if coroutine.status(co) == "dead" then
-        return
+    local function iteratorIteratorStep(self)
+        local result = self:next()
+        if result.done then
+            return
+        end
+        return true, result.value
     end
-    return true, value
-end
-function __TS__IteratorIteratorStep(self)
-    local result = self:next()
-    if result.done then
-        return
-    end
-    return true, result.value
-end
-function __TS__IteratorStringStep(self, index)
-    index = index + 1
-    if index > #self then
-        return
+    local function iteratorStringStep(self, index)
+        index = index + 1
+        if index > #self then
+            return
+        end
+        return index, string.sub(self, index, index)
     end
-    return index, string.sub(self, index, index)
-end
-function __TS__Iterator(iterable)
-    if type(iterable) == "string" then
-        return __TS__IteratorStringStep, iterable, 0
-    elseif iterable.____coroutine ~= nil then
-        return __TS__IteratorGeneratorStep, iterable
-    elseif iterable[Symbol.iterator] then
-        local iterator = iterable[Symbol.iterator](iterable)
-        return __TS__IteratorIteratorStep, iterator
-    else
-        return ipairs(iterable)
+    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/Map.lua

@@ -1,140 +1,142 @@
-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])
+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
-    else
-        local array = entries
-        for ____, kvp in ipairs(array) do
-            self:set(kvp[1], kvp[2])
+        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
-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
+    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.nextKey[key] = nil
-        self.previousKey[key] = nil
+        self.items[key] = nil
+        return contains
     end
-    self.items[key] = nil
-    return contains
-end
-function Map.prototype.forEach(self, callback)
-    for ____, key in __TS__Iterator(self:keys()) do
-        callback(_G, self.items[key], key, self)
+    function Map.prototype.forEach(self, callback)
+        for ____, key in __TS__Iterator(self:keys()) do
+            callback(nil, self.items[key], key, self)
+        end
     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
+    function Map.prototype.get(self, key)
+        return self.items[key]
     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
+    function Map.prototype.has(self, key)
+        return self.nextKey[key] ~= nil or self.lastKey == key
     end
-    return self
-end
-Map.prototype[Symbol.iterator] = function(self)
-    return self:entries()
-end
-function Map.prototype.entries(self)
-    local ____temp_0 = self
-    local items = ____temp_0.items
-    local nextKey = ____temp_0.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
+    function Map.prototype.set(self, key, value)
+        local isNewValue = not self:has(key)
+        if isNewValue then
+            self.size = self.size + 1
         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
+        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
-    }
-end
-function Map.prototype.values(self)
-    local ____temp_1 = self
-    local items = ____temp_1.items
-    local nextKey = ____temp_1.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
-    }
+        return self
+    end
+    Map.prototype[Symbol.iterator] = function(self)
+        return self:entries()
+    end
+    function Map.prototype.entries(self)
+        local ____temp_0 = self
+        local items = ____temp_0.items
+        local nextKey = ____temp_0.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 ____temp_1 = self
+        local items = ____temp_1.items
+        local nextKey = ____temp_1.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
-Map[Symbol.species] = Map
-Map = Map

package/dist/lualib/MathAtan2.lua

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

package/dist/lualib/MathSign.lua

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

package/dist/lualib/New.lua

@@ -1,4 +1,4 @@
-function __TS__New(target, ...)
+local function __TS__New(target, ...)
     local instance = setmetatable({}, target.prototype)
     instance:____constructor(...)
     return instance

package/dist/lualib/Number.lua

@@ -1,4 +1,4 @@
-function __TS__Number(value)
+local function __TS__Number(value)
     local valueType = type(value)
     if valueType == "number" then
         return value

package/dist/lualib/NumberIsFinite.lua

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