roblox-opencode 1.0.0 → 1.0.1

package/vendor/fusion/Utility/Contextual.luau

@@ -1,91 +1,91 @@
---!strict
---!nolint LocalUnused
---!nolint LocalShadow
-local task = nil -- Disable usage of Roblox's task scheduler
-
---[[
-    Time-based contextual values, to allow for transparently passing values down
-	the call stack.
-]]
-
-local Package = script.Parent.Parent
-local Types = require(Package.Types)
-local External = require(Package.External)
--- Logging
-local parseError = require(Package.Logging.parseError)
-
-export type Self<T> = Types.Contextual<T> & {
-	_valuesNow: {[thread]: {value: T}},
-	_defaultValue: T
-}
-
-local class = {}
-class.type = "Contextual"
-
-local METATABLE = table.freeze {__index = class}
-local WEAK_KEYS_METATABLE = table.freeze {__mode = "k"}
-
-local function Contextual<T>(
-	defaultValue: T
-): Types.Contextual<T>
-	local self: Self<T> = setmetatable(
-		{
-			-- if we held strong references to threads here, then if a thread was
-			-- killed before this contextual had a chance to finish executing its
-			-- callback, it would be held strongly in this table forever
-			_valuesNow = setmetatable({}, WEAK_KEYS_METATABLE),
-			_defaultValue = defaultValue
-		}, 
-		METATABLE
-	) :: any
-
-	return self
-end
-
---[[
-	Returns the current value of this contextual.
-]]
-function class.now<T>(
-	self: Self<T>
-): T
-	local thread = coroutine.running()
-	local value = self._valuesNow[thread]
-	if typeof(value) ~= "table" then
-		return self._defaultValue
-	else
-		return value.value
-	end
-end
-
---[[
-	Temporarily assigns a value to this contextual.
-]]
-function class.is<T>(
-	self: Self<T>,
-	newValue: T
-)
-	local methods = {}
-	
-	function methods.during<T, A...>(
-		_: any, -- during is called with colon syntax but we don't care
-		callback: (A...) -> T,
-		...: A...
-	): T
-		local thread = coroutine.running()
-		local prevValue = self._valuesNow[thread]
-		-- Storing the value in this format allows us to distinguish storing
-		-- `nil` from not calling `:during()` at all.
-		self._valuesNow[thread] = { value = newValue }
-		local ok, value = xpcall(callback, parseError, ...)
-		self._valuesNow[thread] = prevValue
-		if not ok then
-			External.logError("callbackError", value :: any)
-		end
-		return value
-	end
-
-	return methods
-end
-
-table.freeze(class)
+--!strict
+--!nolint LocalUnused
+--!nolint LocalShadow
+local task = nil -- Disable usage of Roblox's task scheduler
+
+--[[
+    Time-based contextual values, to allow for transparently passing values down
+	the call stack.
+]]
+
+local Package = script.Parent.Parent
+local Types = require(Package.Types)
+local External = require(Package.External)
+-- Logging
+local parseError = require(Package.Logging.parseError)
+
+export type Self<T> = Types.Contextual<T> & {
+	_valuesNow: {[thread]: {value: T}},
+	_defaultValue: T
+}
+
+local class = {}
+class.type = "Contextual"
+
+local METATABLE = table.freeze {__index = class}
+local WEAK_KEYS_METATABLE = table.freeze {__mode = "k"}
+
+local function Contextual<T>(
+	defaultValue: T
+): Types.Contextual<T>
+	local self: Self<T> = setmetatable(
+		{
+			-- if we held strong references to threads here, then if a thread was
+			-- killed before this contextual had a chance to finish executing its
+			-- callback, it would be held strongly in this table forever
+			_valuesNow = setmetatable({}, WEAK_KEYS_METATABLE),
+			_defaultValue = defaultValue
+		}, 
+		METATABLE
+	) :: any
+
+	return self
+end
+
+--[[
+	Returns the current value of this contextual.
+]]
+function class.now<T>(
+	self: Self<T>
+): T
+	local thread = coroutine.running()
+	local value = self._valuesNow[thread]
+	if typeof(value) ~= "table" then
+		return self._defaultValue
+	else
+		return value.value
+	end
+end
+
+--[[
+	Temporarily assigns a value to this contextual.
+]]
+function class.is<T>(
+	self: Self<T>,
+	newValue: T
+)
+	local methods = {}
+	
+	function methods.during<T, A...>(
+		_: any, -- during is called with colon syntax but we don't care
+		callback: (A...) -> T,
+		...: A...
+	): T
+		local thread = coroutine.running()
+		local prevValue = self._valuesNow[thread]
+		-- Storing the value in this format allows us to distinguish storing
+		-- `nil` from not calling `:during()` at all.
+		self._valuesNow[thread] = { value = newValue }
+		local ok, value = xpcall(callback, parseError, ...)
+		self._valuesNow[thread] = prevValue
+		if not ok then
+			External.logError("callbackError", value :: any)
+		end
+		return value
+	end
+
+	return methods
+end
+
+table.freeze(class)
 return Contextual

package/vendor/fusion/Utility/Safe.luau

@@ -1,23 +1,23 @@
---!strict
---!nolint LocalUnused
---!nolint LocalShadow
-local task = nil -- Disable usage of Roblox's task scheduler
-
---[[
-    A variant of xpcall() designed for inline usage, letting you define fallback
-	values based on caught errors.
-]]
-
-local Package = script.Parent.Parent
-
-local function Safe<Success, Fail>(
-	callbacks: {
-		try: () -> Success,
-		fallback: (err: unknown) -> Fail
-	}
-): Success | Fail
-	local _, value = xpcall(callbacks.try, callbacks.fallback)
-	return value
-end
-
+--!strict
+--!nolint LocalUnused
+--!nolint LocalShadow
+local task = nil -- Disable usage of Roblox's task scheduler
+
+--[[
+    A variant of xpcall() designed for inline usage, letting you define fallback
+	values based on caught errors.
+]]
+
+local Package = script.Parent.Parent
+
+local function Safe<Success, Fail>(
+	callbacks: {
+		try: () -> Success,
+		fallback: (err: unknown) -> Fail
+	}
+): Success | Fail
+	local _, value = xpcall(callbacks.try, callbacks.fallback)
+	return value
+end
+
 return Safe

package/vendor/fusion/Utility/isSimilar.luau

@@ -1,29 +1,29 @@
---!strict
---!nolint LocalUnused
---!nolint LocalShadow
-local task = nil -- Disable usage of Roblox's task scheduler
-
---[[
-	Implements the 'similarity test' used to determine whether two values have
-	a meaningful difference.
-
-	https://elttob.uk/Fusion/0.3/tutorials/best-practices/optimisation/#similarity
-]]
-
-local function isSimilar(
-	a: unknown, 
-	b: unknown
-): boolean
-	local typeA = typeof(a)
-	local isTable = typeA == "table"
-	local isUserdata = typeA == "userdata"
-	return
-		if not (isTable or isUserdata) then
-			a == b or a ~= a and b ~= b
-		elseif typeA == typeof(b) and (isUserdata or table.isfrozen(a :: any) or getmetatable(a :: any) ~= nil) then
-			a == b
-		else
-			false
-end
-
-return isSimilar
+--!strict
+--!nolint LocalUnused
+--!nolint LocalShadow
+local task = nil -- Disable usage of Roblox's task scheduler
+
+--[[
+	Implements the 'similarity test' used to determine whether two values have
+	a meaningful difference.
+
+	https://elttob.uk/Fusion/0.3/tutorials/best-practices/optimisation/#similarity
+]]
+
+local function isSimilar(
+	a: unknown, 
+	b: unknown
+): boolean
+	local typeA = typeof(a)
+	local isTable = typeA == "table"
+	local isUserdata = typeA == "userdata"
+	return
+		if not (isTable or isUserdata) then
+			a == b or a ~= a and b ~= b
+		elseif typeA == typeof(b) and (isUserdata or table.isfrozen(a :: any) or getmetatable(a :: any) ~= nil) then
+			a == b
+		else
+			false
+end
+
+return isSimilar

package/vendor/fusion/Utility/merge.luau

@@ -1,35 +1,35 @@
---!strict
---!nolint LocalUnused
---!nolint LocalShadow
-local task = nil -- Disable usage of Roblox's task scheduler
-
---[[
-	Attempts to merge a variadic number of tables together.
-]]
-
-local Package = script.Parent.Parent
-local External = require(Package.External)
-
-local function merge(
-	overwrite: boolean,
-	into: {[unknown]: unknown},
-	...: {[unknown]: unknown}
-): {[unknown]: unknown}
-	local fromTables = {...}
-	if #fromTables < 1 then
-		return into
-	else
-		for _, fromTable in fromTables do
-			for key, value in fromTable do
-				if into[key] == nil then
-					into[key] = value
-				elseif not overwrite then
-					External.logError("mergeConflict", nil, tostring(key))
-				end
-			end
-		end
-		return into
-	end
-end
-
-return merge
+--!strict
+--!nolint LocalUnused
+--!nolint LocalShadow
+local task = nil -- Disable usage of Roblox's task scheduler
+
+--[[
+	Attempts to merge a variadic number of tables together.
+]]
+
+local Package = script.Parent.Parent
+local External = require(Package.External)
+
+local function merge(
+	overwrite: boolean,
+	into: {[unknown]: unknown},
+	...: {[unknown]: unknown}
+): {[unknown]: unknown}
+	local fromTables = {...}
+	if #fromTables < 1 then
+		return into
+	else
+		for _, fromTable in fromTables do
+			for key, value in fromTable do
+				if into[key] == nil then
+					into[key] = value
+				elseif not overwrite then
+					External.logError("mergeConflict", nil, tostring(key))
+				end
+			end
+		end
+		return into
+	end
+end
+
+return merge

package/vendor/fusion/Utility/nameOf.luau

@@ -1,35 +1,35 @@
---!strict
---!nolint LocalUnused
---!nolint LocalShadow
-local task = nil -- Disable usage of Roblox's task scheduler
-
---[[
-	Returns the most specific custom name for the given object.
-]]
-
-local Package = script.Parent.Parent
--- Utility
-local nicknames = require(Package.Utility.nicknames)
-
-local function nameOf(
-	x: unknown,
-	defaultName: string
-): string
-	local nickname = nicknames[x]
-	if typeof(nickname) == "string" then
-		return nickname
-	end
-	if typeof(x) == "table" then
-		local x = x :: {[any]: any}
-		if typeof(x.name) == "string" then
-			return x.name
-		elseif typeof(x.kind) == "string" then
-			return x.kind
-		elseif typeof(x.type) == "string" then
-			return x.type
-		end
-	end
-	return defaultName
-end
-
+--!strict
+--!nolint LocalUnused
+--!nolint LocalShadow
+local task = nil -- Disable usage of Roblox's task scheduler
+
+--[[
+	Returns the most specific custom name for the given object.
+]]
+
+local Package = script.Parent.Parent
+-- Utility
+local nicknames = require(Package.Utility.nicknames)
+
+local function nameOf(
+	x: unknown,
+	defaultName: string
+): string
+	local nickname = nicknames[x]
+	if typeof(nickname) == "string" then
+		return nickname
+	end
+	if typeof(x) == "table" then
+		local x = x :: {[any]: any}
+		if typeof(x.name) == "string" then
+			return x.name
+		elseif typeof(x.kind) == "string" then
+			return x.kind
+		elseif typeof(x.type) == "string" then
+			return x.type
+		end
+	end
+	return defaultName
+end
+
 return nameOf

package/vendor/fusion/Utility/never.luau

@@ -1,14 +1,14 @@
---!strict
---!nolint LocalUnused
---!nolint LocalShadow
-local task = nil -- Disable usage of Roblox's task scheduler
-
---[[
-	Never returns.
-]]
-
-local function never(): never
-	error("This codepath should not be reachable")
-end
-
+--!strict
+--!nolint LocalUnused
+--!nolint LocalShadow
+local task = nil -- Disable usage of Roblox's task scheduler
+
+--[[
+	Never returns.
+]]
+
+local function never(): never
+	error("This codepath should not be reachable")
+end
+
 return never

package/vendor/fusion/Utility/nicknames.luau

@@ -1,11 +1,11 @@
---!strict
---!nolint LocalUnused
---!nolint LocalShadow
-local task = nil -- Disable usage of Roblox's task scheduler
-
---[[
-	Stores nicknames for values that don't support metatables, so that `nameOf`
-	can return values for them.
-]]
-
+--!strict
+--!nolint LocalUnused
+--!nolint LocalShadow
+local task = nil -- Disable usage of Roblox's task scheduler
+
+--[[
+	Stores nicknames for values that don't support metatables, so that `nameOf`
+	can return values for them.
+]]
+
 return setmetatable({}, {__mode = "k"})

package/vendor/fusion/Utility/xtypeof.luau

@@ -1,27 +1,27 @@
---!strict
---!nolint LocalUnused
---!nolint LocalShadow
-local task = nil -- Disable usage of Roblox's task scheduler
-
---[[
-	Extended typeof, designed for identifying custom objects.
-	If given a table with a `type` string, returns that.
-	Otherwise, returns `typeof()` the argument.
-]]
-
-local function xtypeof(
-	x: unknown
-): string
-	local typeString = typeof(x)
-
-	if typeString == "table" then
-		local x = x :: {type: unknown?}
-		if typeof(x.type) == "string" then
-			return x.type
-		end
-	end
-
-	return typeString
-end
-
+--!strict
+--!nolint LocalUnused
+--!nolint LocalShadow
+local task = nil -- Disable usage of Roblox's task scheduler
+
+--[[
+	Extended typeof, designed for identifying custom objects.
+	If given a table with a `type` string, returns that.
+	Otherwise, returns `typeof()` the argument.
+]]
+
+local function xtypeof(
+	x: unknown
+): string
+	local typeString = typeof(x)
+
+	if typeString == "table" then
+		local x = x :: {type: unknown?}
+		if typeof(x.type) == "string" then
+			return x.type
+		end
+	end
+
+	return typeString
+end
+
 return xtypeof