wuira 0.3.3 → 0.4.0

package/lib/datasources/UnitInfo.lua

@@ -1,801 +0,0 @@
---[[ Generated with https://github.com/TypeScriptToLua/TypeScriptToLua ]]
--- Lua Library inline imports
-local function __TS__Class(self)
-    local c = {prototype = {}}
-    c.prototype.__index = c.prototype
-    c.prototype.constructor = c
-    return c
-end
-
-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
-
-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 = {
-        asyncDispose = __TS__Symbol("Symbol.asyncDispose"),
-        dispose = __TS__Symbol("Symbol.dispose"),
-        iterator = __TS__Symbol("Symbol.iterator"),
-        hasInstance = __TS__Symbol("Symbol.hasInstance"),
-        species = __TS__Symbol("Symbol.species"),
-        toStringTag = __TS__Symbol("Symbol.toStringTag")
-    }
-end
-
-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 > #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
-
-local function __TS__New(target, ...)
-    local instance = setmetatable({}, target.prototype)
-    instance:____constructor(...)
-    return instance
-end
-
-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 ~= nil and previous ~= nil then
-                self.nextKey[previous] = next
-                self.previousKey[next] = previous
-            elseif next ~= nil then
-                self.firstKey = next
-                self.previousKey[next] = nil
-            elseif previous ~= nil 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 function getFirstKey()
-            return self.firstKey
-        end
-        local nextKey = self.nextKey
-        local key
-        local started = false
-        return {
-            [Symbol.iterator] = function(self)
-                return self
-            end,
-            next = function(self)
-                if not started then
-                    started = true
-                    key = getFirstKey(nil)
-                else
-                    key = nextKey[key]
-                end
-                return {done = not key, value = {key, key}}
-            end
-        }
-    end
-    function Set.prototype.keys(self)
-        local function getFirstKey()
-            return self.firstKey
-        end
-        local nextKey = self.nextKey
-        local key
-        local started = false
-        return {
-            [Symbol.iterator] = function(self)
-                return self
-            end,
-            next = function(self)
-                if not started then
-                    started = true
-                    key = getFirstKey(nil)
-                else
-                    key = nextKey[key]
-                end
-                return {done = not key, value = key}
-            end
-        }
-    end
-    function Set.prototype.values(self)
-        local function getFirstKey()
-            return self.firstKey
-        end
-        local nextKey = self.nextKey
-        local key
-        local started = false
-        return {
-            [Symbol.iterator] = function(self)
-                return self
-            end,
-            next = function(self)
-                if not started then
-                    started = true
-                    key = getFirstKey(nil)
-                else
-                    key = nextKey[key]
-                end
-                return {done = not key, value = key}
-            end
-        }
-    end
-    function Set.prototype.union(self, other)
-        local result = __TS__New(Set, self)
-        for ____, item in __TS__Iterator(other) do
-            result:add(item)
-        end
-        return result
-    end
-    function Set.prototype.intersection(self, other)
-        local result = __TS__New(Set)
-        for ____, item in __TS__Iterator(self) do
-            if other:has(item) then
-                result:add(item)
-            end
-        end
-        return result
-    end
-    function Set.prototype.difference(self, other)
-        local result = __TS__New(Set, self)
-        for ____, item in __TS__Iterator(other) do
-            result:delete(item)
-        end
-        return result
-    end
-    function Set.prototype.symmetricDifference(self, other)
-        local result = __TS__New(Set, self)
-        for ____, item in __TS__Iterator(other) do
-            if self:has(item) then
-                result:delete(item)
-            else
-                result:add(item)
-            end
-        end
-        return result
-    end
-    function Set.prototype.isSubsetOf(self, other)
-        for ____, item in __TS__Iterator(self) do
-            if not other:has(item) then
-                return false
-            end
-        end
-        return true
-    end
-    function Set.prototype.isSupersetOf(self, other)
-        for ____, item in __TS__Iterator(other) do
-            if not self:has(item) then
-                return false
-            end
-        end
-        return true
-    end
-    function Set.prototype.isDisjointFrom(self, other)
-        for ____, item in __TS__Iterator(self) do
-            if other:has(item) then
-                return false
-            end
-        end
-        return true
-    end
-    Set[Symbol.species] = Set
-end
-
-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
-
-local __TS__DescriptorGet
-do
-    local getmetatable = _G.getmetatable
-    local ____rawget = _G.rawget
-    function __TS__DescriptorGet(self, metatable, key)
-        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 ~= nil then
-                    if descriptor.get then
-                        return descriptor.get(self)
-                    end
-                    return descriptor.value
-                end
-            end
-            metatable = getmetatable(metatable)
-        end
-    end
-end
-
-local __TS__DescriptorSet
-do
-    local getmetatable = _G.getmetatable
-    local ____rawget = _G.rawget
-    local rawset = _G.rawset
-    function __TS__DescriptorSet(self, metatable, key, value)
-        while metatable do
-            local descriptors = ____rawget(metatable, "_descriptors")
-            if descriptors then
-                local descriptor = descriptors[key]
-                if descriptor ~= nil 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
-end
-
-local __TS__SetDescriptor
-do
-    local getmetatable = _G.getmetatable
-    local function descriptorIndex(self, key)
-        return __TS__DescriptorGet(
-            self,
-            getmetatable(self),
-            key
-        )
-    end
-    local function descriptorNewIndex(self, key, value)
-        return __TS__DescriptorSet(
-            self,
-            getmetatable(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
-        if not isPrototype and not rawget(metatable, "_isOwnDescriptorMetatable") then
-            local instanceMetatable = {}
-            instanceMetatable._isOwnDescriptorMetatable = true
-            setmetatable(instanceMetatable, metatable)
-            setmetatable(target, instanceMetatable)
-            metatable = instanceMetatable
-        end
-        local value = rawget(target, key)
-        if value ~= nil then
-            rawset(target, key, nil)
-        end
-        if not rawget(metatable, "_descriptors") then
-            metatable._descriptors = {}
-        end
-        metatable._descriptors[key] = __TS__CloneDescriptor(desc)
-        metatable.__index = descriptorIndex
-        metatable.__newindex = descriptorNewIndex
-    end
-end
-
-local function __TS__NumberIsFinite(value)
-    return type(value) == "number" and value == value and value ~= math.huge and value ~= -math.huge
-end
-
-local function __TS__NumberIsInteger(value)
-    return __TS__NumberIsFinite(value) and math.floor(value) == value
-end
-
-local function __TS__ArraySome(self, callbackfn, thisArg)
-    for i = 1, #self do
-        if callbackfn(thisArg, self[i], i - 1, self) then
-            return true
-        end
-    end
-    return false
-end
--- End of Lua Library inline imports
-local ____exports = {}
-local ____DataSource = require("datasources.DataSource")
-local DataSource = ____DataSource.DataSource
-local ____Source = require("datasources.Source")
-local registerSource = ____Source.registerSource
-local ____UseSource = require("datasources.UseSource")
-local UseSource = ____UseSource.UseSource
-local ____UnitSource = require("datasources.UnitSource")
-local resolveUnit = ____UnitSource.resolveUnit
-____exports.ClassSource = __TS__Class()
-local ClassSource = ____exports.ClassSource
-ClassSource.name = "ClassSource"
-__TS__ClassExtends(ClassSource, DataSource)
-function ClassSource.prototype.____constructor(self, unit)
-    DataSource.prototype.____constructor(self, nil)
-    self.restricted = false
-    self.listeners = __TS__New(Set)
-    self.target = resolveUnit(nil, unit)
-end
-function ClassSource.prototype.HasSecretFields(self)
-    return self.restricted
-end
-function ClassSource.prototype.GetValue(self)
-    self.restricted = false
-    local player = UnitIsPlayer(self.unit)
-    if issecretvalue(player) then
-        self.restricted = true
-        return nil
-    end
-    if not player then
-        return nil
-    end
-    local name, token, id = UnitClass(self.unit)
-    if issecretvalue(name) or issecretvalue(token) or issecretvalue(id) then
-        self.restricted = true
-        return nil
-    end
-    if name == nil or token == nil or id == nil then
-        return nil
-    end
-    return {name = name, token = token, id = id}
-end
-function ClassSource.prototype.onChange(self, listener)
-    self.listeners:add(listener)
-    if self.listeners.size == 1 then
-        local function refresh()
-            if not self:IsSecret() then
-                local value = self.Value
-                if self:CanEmit(value) then
-                    for ____, callback in __TS__Iterator(self.listeners) do
-                        callback(nil, value)
-                    end
-                end
-            end
-        end
-        local events = CreateFrame("Frame", nil, UIParent)
-        self.events = events
-        for ____, event in ipairs({"UNIT_NAME_UPDATE", "GROUP_ROSTER_UPDATE", "PLAYER_ENTERING_WORLD"}) do
-            events:RegisterEvent(event)
-        end
-        events:SetScript(
-            "OnEvent",
-            function(_frame, event, unit)
-                if event ~= "UNIT_NAME_UPDATE" or not issecretvalue(unit) and unit == self.unit then
-                    refresh(nil)
-                end
-            end
-        )
-        self.stopUnit = self.target:onChange(refresh)
-    end
-    return function()
-        self.listeners:delete(listener)
-        if self.listeners.size == 0 then
-            self:StopListening()
-        end
-    end
-end
-function ClassSource.prototype.StopListening(self)
-    local ____opt_0 = self.stopUnit
-    if ____opt_0 ~= nil then
-        ____opt_0(self)
-    end
-    self.stopUnit = nil
-    local ____opt_2 = self.events
-    if ____opt_2 ~= nil then
-        ____opt_2:UnregisterAllEvents()
-    end
-    local ____opt_4 = self.events
-    if ____opt_4 ~= nil then
-        ____opt_4:SetScript("OnEvent", nil)
-    end
-    local ____opt_6 = self.events
-    if ____opt_6 ~= nil then
-        ____opt_6:Hide()
-    end
-    self.events = nil
-end
-function ClassSource.prototype.Dispose(self)
-    self:StopListening()
-    self.listeners:clear()
-end;
-(function(self)
-    registerSource(
-        nil,
-        ____exports.ClassSource,
-        function(____, props) return __TS__New(____exports.ClassSource, props[1]) end
-    )
-end)(ClassSource)
-__TS__SetDescriptor(
-    ClassSource.prototype,
-    "unit",
-    {get = function(self)
-        return self.target.Token
-    end},
-    true
-)
---- Own data is read live; other units require an explicit inspect request.
-____exports.SpecSource = __TS__Class()
-local SpecSource = ____exports.SpecSource
-SpecSource.name = "SpecSource"
-__TS__ClassExtends(SpecSource, DataSource)
-function SpecSource.prototype.____constructor(self, unit)
-    DataSource.prototype.____constructor(self, nil)
-    self.restricted = false
-    self.status = "idle"
-    self.target = resolveUnit(nil, unit)
-end
-function SpecSource.prototype.HasSecretFields(self)
-    return self.restricted
-end
-function SpecSource.prototype.GetValue(self)
-    local player = UnitIsPlayer(self.unit)
-    if issecretvalue(player) then
-        self.restricted = true
-        return nil
-    end
-    if not player then
-        self.restricted = false
-        return nil
-    end
-    local ____self = UnitIsUnit(self.unit, "player")
-    if issecretvalue(____self) then
-        self.restricted = true
-        return nil
-    end
-    if ____self then
-        return self:Read(false)
-    end
-    local guid = UnitGUID(self.unit)
-    if issecretvalue(guid) then
-        self.restricted = true
-        return nil
-    end
-    if guid == nil or guid ~= self.snapshotGUID then
-        self.restricted = false
-        return nil
-    end
-    return self.snapshot
-end
-function SpecSource.prototype.Read(self, inspect)
-    self.restricted = false
-    local api = C_SpecializationInfo
-    if (api and api.GetNumSpecializationsForClassID) == nil or api.GetSpecializationInfo == nil then
-        self.status = "unsupported"
-        return nil
-    end
-    local classes = UseSource(nil, ____exports.ClassSource, self.target)
-    if classes:IsSecret() then
-        self.restricted = true
-        return nil
-    end
-    local info = classes.Value
-    if info == nil then
-        return nil
-    end
-    local count = api.GetNumSpecializationsForClassID(info.id)
-    if issecretvalue(count) then
-        self.restricted = true
-        return nil
-    end
-    if not __TS__NumberIsInteger(count) or count < 0 or count > 32 then
-        error("Specializations: invalid specialization count")
-    end
-    local result = {}
-    do
-        local index = 1
-        while index <= count do
-            local id, name, _description, icon, role, _stat, pointsSpent = api.GetSpecializationInfo(
-                index,
-                inspect,
-                false,
-                inspect and self.unit or nil,
-                nil,
-                nil,
-                info.id
-            )
-            if __TS__ArraySome(
-                {
-                    id,
-                    name,
-                    icon,
-                    role,
-                    pointsSpent
-                },
-                function(____, value) return issecretvalue(value) end
-            ) then
-                self.restricted = true
-                return nil
-            end
-            if id <= 0 then
-                return nil
-            end
-            result[#result + 1] = {
-                id = id,
-                name = name,
-                icon = icon,
-                role = role,
-                pointsSpent = pointsSpent
-            }
-            index = index + 1
-        end
-    end
-    self.status = "ready"
-    return result
-end
-function SpecSource.prototype.RequestInspect(self)
-    self:Dispose()
-    self.snapshot = nil
-    self.snapshotGUID = nil
-    self.restricted = false
-    local player = UnitIsPlayer(self.unit)
-    if issecretvalue(player) then
-        self.restricted = true
-        return false
-    end
-    if not player then
-        return false
-    end
-    if CanInspect == nil or NotifyInspect == nil or (C_SpecializationInfo and C_SpecializationInfo.GetSpecializationInfo) == nil then
-        self.status = "unsupported"
-        return false
-    end
-    if InCombatLockdown() then
-        return false
-    end
-    local guid = UnitGUID(self.unit)
-    if issecretvalue(guid) then
-        self.restricted = true
-        return false
-    end
-    local allowed = CanInspect(self.unit)
-    if issecretvalue(allowed) then
-        self.restricted = true
-        return false
-    end
-    if guid == nil or not allowed then
-        return false
-    end
-    self.snapshotGUID = guid
-    self.status = "pending"
-    local listener = CreateFrame("Frame", nil, UIParent)
-    self.listener = listener
-    listener:RegisterEvent("INSPECT_READY")
-    listener:SetScript(
-        "OnEvent",
-        function(_frame, _event, inspectedGUID)
-            if issecretvalue(inspectedGUID) or inspectedGUID ~= guid then
-                return
-            end
-            local current = UnitGUID(self.unit)
-            if issecretvalue(current) or current ~= guid then
-                self:Dispose()
-                return
-            end
-            self.snapshot = self:Read(true)
-            self:StopListening()
-            if self.status == "pending" then
-                self.status = "idle"
-            end
-        end
-    )
-    NotifyInspect(self.unit)
-    return true
-end
-function SpecSource.prototype.StopListening(self)
-    local ____opt_12 = self.listener
-    if ____opt_12 ~= nil then
-        ____opt_12:UnregisterAllEvents()
-    end
-    local ____opt_14 = self.listener
-    if ____opt_14 ~= nil then
-        ____opt_14:SetScript("OnEvent", nil)
-    end
-    local ____opt_16 = self.listener
-    if ____opt_16 ~= nil then
-        ____opt_16:Hide()
-    end
-    self.listener = nil
-end
-function SpecSource.prototype.Dispose(self)
-    self:StopListening()
-    self.status = "idle"
-    self.snapshot = nil
-    self.snapshotGUID = nil
-end;
-(function(self)
-    registerSource(
-        nil,
-        ____exports.SpecSource,
-        function(____, props) return __TS__New(____exports.SpecSource, props[1]) end
-    )
-end)(SpecSource)
-__TS__SetDescriptor(
-    SpecSource.prototype,
-    "unit",
-    {get = function(self)
-        return self.target.Token
-    end},
-    true
-)
-__TS__SetDescriptor(
-    SpecSource.prototype,
-    "Status",
-    {get = function(self)
-        local guid = UnitGUID(self.unit)
-        if not issecretvalue(guid) and self.snapshotGUID ~= nil and guid ~= self.snapshotGUID then
-            return "idle"
-        end
-        return self.status
-    end},
-    true
-)
-____exports.Specializations = ____exports.SpecSource
-return ____exports