dominus-cli 0.6.0 → 2.1.0

package/plugin/src/InstanceRegistry.lua

@@ -0,0 +1,122 @@
+local HttpService = game:GetService("HttpService")
+
+local InstanceRegistry = {}
+
+local instanceToId = setmetatable({}, { __mode = "k" })
+local idToInstance = {}
+
+local function register(instance)
+	local existing = instanceToId[instance]
+	if existing then
+		return existing
+	end
+
+	local id = HttpService:GenerateGUID(false)
+	instanceToId[instance] = id
+	idToInstance[id] = instance
+	instance.Destroying:Connect(function()
+		if idToInstance[id] == instance then
+			idToInstance[id] = nil
+		end
+		instanceToId[instance] = nil
+	end)
+	return id
+end
+
+function InstanceRegistry.getPathSegments(instance)
+	local segments = {}
+	local current = instance
+	while current and current ~= game do
+		table.insert(segments, 1, current.Name)
+		current = current.Parent
+	end
+	return segments
+end
+
+function InstanceRegistry.getDisplayPath(instance)
+	local path = "game"
+	for _, segment in InstanceRegistry.getPathSegments(instance) do
+		local escaped = segment:gsub("\\", "\\\\"):gsub('"', '\\"')
+		path ..= '["' .. escaped .. '"]'
+	end
+	return path
+end
+
+function InstanceRegistry.toRef(instance)
+	return {
+		instanceId = register(instance),
+		pathSegments = InstanceRegistry.getPathSegments(instance),
+		displayPath = InstanceRegistry.getDisplayPath(instance),
+	}
+end
+
+local function resolveSegments(segments)
+	if type(segments) ~= "table" or #segments == 0 then
+		return nil, "pathSegments must contain at least one name"
+	end
+
+	local current = game
+	for index, segment in segments do
+		if type(segment) ~= "string" then
+			return nil, "pathSegments[" .. index .. "] must be a string"
+		end
+		local match = nil
+		local count = 0
+		for _, child in current:GetChildren() do
+			if child.Name == segment then
+				match = child
+				count += 1
+			end
+		end
+		if count == 0 and current == game then
+			local ok, service = pcall(function()
+				return game:GetService(segment)
+			end)
+			if ok then
+				match = service
+				count = 1
+			end
+		end
+		if count == 0 then
+			return nil, "Instance path does not exist at segment: " .. segment
+		end
+		if count > 1 then
+			return nil, "Instance path is ambiguous at duplicate sibling name: " .. segment
+		end
+		current = match
+	end
+	return current
+end
+
+function InstanceRegistry.resolve(target)
+	if typeof(target) == "Instance" then
+		return target
+	end
+	if type(target) ~= "table" then
+		return nil, "Target must be an instance reference"
+	end
+
+	if type(target.instanceId) == "string" then
+		local instance = idToInstance[target.instanceId]
+		if instance then
+			return instance
+		end
+		return nil, "Instance reference is stale: " .. target.instanceId
+	end
+
+	if target.pathSegments then
+		local instance, err = resolveSegments(target.pathSegments)
+		if instance then
+			register(instance)
+		end
+		return instance, err
+	end
+
+	return nil, "Target requires instanceId or pathSegments"
+end
+
+function InstanceRegistry.register(instance)
+	return register(instance)
+end
+
+return InstanceRegistry

package/plugin/src/Mutation.lua

@@ -0,0 +1,135 @@
+local ChangeHistoryService = game:GetService("ChangeHistoryService")
+
+local InstanceRegistry = require(script.Parent.InstanceRegistry)
+local ValueCodec = require(script.Parent.ValueCodec)
+
+local Mutation = {}
+local MAX_OPERATIONS = 100
+local MAX_PROPERTIES = 100
+
+local function resolve(target, label)
+	local instance, err = InstanceRegistry.resolve(target)
+	if not instance then
+		error(label .. ": " .. tostring(err))
+	end
+	return instance
+end
+
+local function setProperties(instance, properties)
+	assert(type(properties) == "table", "properties must be an object")
+	local count = 0
+	local applied = {}
+	for propertyName, value in properties do
+		count += 1
+		if count > MAX_PROPERTIES then
+			error("Too many properties in one operation")
+		end
+		applied[propertyName] = ValueCodec.setProperty(instance, propertyName, value)
+	end
+	return applied
+end
+
+function Mutation.apply(spec)
+	local operations = spec.operations
+	if type(operations) ~= "table" or #operations == 0 then
+		return { success = false, error = "operations must contain at least one mutation" }
+	end
+	if #operations > MAX_OPERATIONS then
+		return { success = false, error = "A mutation batch is limited to " .. MAX_OPERATIONS .. " operations" }
+	end
+
+	local recording = ChangeHistoryService:TryBeginRecording("Dominus 2: Apply mutation batch")
+	if not recording then
+		return { success = false, error = "Another plugin recording is already active" }
+	end
+
+	local results = {}
+	local ok, err = pcall(function()
+		for index, operation in operations do
+			assert(type(operation) == "table", "Operation " .. index .. " must be an object")
+			if operation.op == "setProperties" then
+				local target = resolve(operation.target, "Operation " .. index .. " target")
+				table.insert(results, {
+					op = operation.op,
+					target = InstanceRegistry.toRef(target),
+					properties = setProperties(target, operation.properties),
+				})
+			elseif operation.op == "create" then
+				local parent = resolve(operation.parent, "Operation " .. index .. " parent")
+				assert(type(operation.className) == "string", "create.className must be a string")
+				assert(type(operation.name) == "string", "create.name must be a string")
+				local instance = Instance.new(operation.className)
+				instance.Name = operation.name
+				if operation.properties then
+					setProperties(instance, operation.properties)
+				end
+				instance.Parent = parent
+				table.insert(results, { op = operation.op, created = InstanceRegistry.toRef(instance) })
+			elseif operation.op == "move" then
+				local target = resolve(operation.target, "Operation " .. index .. " target")
+				local parent = resolve(operation.parent, "Operation " .. index .. " parent")
+				assert(target ~= game and target.Parent ~= game, "Services cannot be moved")
+				target.Parent = parent
+				table.insert(results, { op = operation.op, target = InstanceRegistry.toRef(target) })
+			else
+				error("Unsupported mutation operation: " .. tostring(operation.op))
+			end
+		end
+	end)
+
+	if not ok then
+		ChangeHistoryService:FinishRecording(recording, Enum.FinishRecordingOperation.Cancel)
+		return { success = false, error = tostring(err), rolledBack = true }
+	end
+
+	ChangeHistoryService:FinishRecording(recording, Enum.FinishRecordingOperation.Commit)
+	return { success = true, operationCount = #results, results = results }
+end
+
+function Mutation.delete(spec)
+	if spec.confirm ~= true then
+		return { success = false, error = "confirm must be true" }
+	end
+	if type(spec.targets) ~= "table" or #spec.targets == 0 then
+		return { success = false, error = "targets must contain at least one instance reference" }
+	end
+	if #spec.targets > 50 then
+		return { success = false, error = "At most 50 instances can be deleted at once" }
+	end
+
+	local targets = {}
+	local seen = {}
+	for index, targetRef in spec.targets do
+		local target = resolve(targetRef, "Target " .. index)
+		assert(target ~= game and target.Parent ~= game, "Services cannot be deleted")
+		local id = InstanceRegistry.register(target)
+		if not seen[id] then
+			seen[id] = true
+			table.insert(targets, target)
+		end
+	end
+
+	local recording = ChangeHistoryService:TryBeginRecording("Dominus 2: Delete instances")
+	if not recording then
+		return { success = false, error = "Another plugin recording is already active" }
+	end
+	local deleted = {}
+	local ok, err = pcall(function()
+		for _, target in targets do
+			table.insert(deleted, {
+				name = target.Name,
+				className = target.ClassName,
+				pathSegments = InstanceRegistry.getPathSegments(target),
+			})
+			target:Destroy()
+		end
+	end)
+	if not ok then
+		ChangeHistoryService:FinishRecording(recording, Enum.FinishRecordingOperation.Cancel)
+		return { success = false, error = tostring(err), rolledBack = true }
+	end
+	ChangeHistoryService:FinishRecording(recording, Enum.FinishRecordingOperation.Commit)
+	return { success = true, deleted = deleted }
+end
+
+return Mutation