Asa@0: --- AceConfigRegistry-3.0 handles central registration of options tables in use by addons and modules.\\
Asa@0: -- Options tables can be registered as raw tables, OR as function refs that return a table.\\
Asa@0: -- Such functions receive three arguments: "uiType", "uiName", "appName". \\
Asa@0: -- * Valid **uiTypes**: "cmd", "dropdown", "dialog". This is verified by the library at call time. \\
Asa@0: -- * The **uiName** field is expected to contain the full name of the calling addon, including version, e.g. "FooBar-1.0". This is verified by the library at call time.\\
Asa@0: -- * The **appName** field is the options table name as given at registration time \\
Asa@0: -- 
Asa@0: -- :IterateOptionsTables() (and :GetOptionsTable() if only given one argument) return a function reference that the requesting config handling addon must call with valid "uiType", "uiName".
Asa@0: -- @class file
Asa@0: -- @name AceConfigRegistry-3.0
Asa@0: -- @release $Id: AceConfigRegistry-3.0.lua 890 2009-12-06 12:50:05Z nevcairiel $
Asa@0: local MAJOR, MINOR = "AceConfigRegistry-3.0", 11
Asa@0: local AceConfigRegistry = LibStub:NewLibrary(MAJOR, MINOR)
Asa@0: 
Asa@0: if not AceConfigRegistry then return end
Asa@0: 
Asa@0: AceConfigRegistry.tables = AceConfigRegistry.tables or {}
Asa@0: 
Asa@0: local CallbackHandler = LibStub:GetLibrary("CallbackHandler-1.0")
Asa@0: 
Asa@0: if not AceConfigRegistry.callbacks then
Asa@0: 	AceConfigRegistry.callbacks = CallbackHandler:New(AceConfigRegistry)
Asa@0: end
Asa@0: 
Asa@0: -- Lua APIs
Asa@0: local tinsert, tconcat = table.insert, table.concat
Asa@0: local strfind, strmatch = string.find, string.match
Asa@0: local type, tostring, select, pairs = type, tostring, select, pairs
Asa@0: local error, assert = error, assert
Asa@0: 
Asa@0: -----------------------------------------------------------------------
Asa@0: -- Validating options table consistency:
Asa@0: 
Asa@0: 
Asa@0: AceConfigRegistry.validated = {
Asa@0: 	-- list of options table names ran through :ValidateOptionsTable automatically. 
Asa@0: 	-- CLEARED ON PURPOSE, since newer versions may have newer validators
Asa@0: 	cmd = {},
Asa@0: 	dropdown = {},
Asa@0: 	dialog = {},
Asa@0: }
Asa@0: 
Asa@0: 
Asa@0: 
Asa@0: local function err(msg, errlvl, ...)
Asa@0: 	local t = {}
Asa@0: 	for i=select("#",...),1,-1 do
Asa@0: 		tinsert(t, (select(i, ...)))
Asa@0: 	end
Asa@0: 	error(MAJOR..":ValidateOptionsTable(): "..tconcat(t,".")..msg, errlvl+2)
Asa@0: end
Asa@0: 
Asa@0: 
Asa@0: local isstring={["string"]=true, _="string"}
Asa@0: local isstringfunc={["string"]=true,["function"]=true, _="string or funcref"}
Asa@0: local istable={["table"]=true,   _="table"}
Asa@0: local ismethodtable={["table"]=true,["string"]=true,["function"]=true,   _="methodname, funcref or table"}
Asa@0: local optstring={["nil"]=true,["string"]=true, _="string"}
Asa@0: local optstringfunc={["nil"]=true,["string"]=true,["function"]=true, _="string or funcref"}
Asa@0: local optnumber={["nil"]=true,["number"]=true, _="number"}
Asa@0: local optmethod={["nil"]=true,["string"]=true,["function"]=true, _="methodname or funcref"}
Asa@0: local optmethodfalse={["nil"]=true,["string"]=true,["function"]=true,["boolean"]={[false]=true},  _="methodname, funcref or false"}
Asa@0: local optmethodnumber={["nil"]=true,["string"]=true,["function"]=true,["number"]=true,  _="methodname, funcref or number"}
Asa@0: local optmethodtable={["nil"]=true,["string"]=true,["function"]=true,["table"]=true,  _="methodname, funcref or table"}
Asa@0: local optmethodbool={["nil"]=true,["string"]=true,["function"]=true,["boolean"]=true,  _="methodname, funcref or boolean"}
Asa@0: local opttable={["nil"]=true,["table"]=true,  _="table"}
Asa@0: local optbool={["nil"]=true,["boolean"]=true,  _="boolean"}
Asa@0: local optboolnumber={["nil"]=true,["boolean"]=true,["number"]=true,  _="boolean or number"}
Asa@0: 
Asa@0: local basekeys={
Asa@0: 	type=isstring,
Asa@0: 	name=isstringfunc,
Asa@0: 	desc=optstringfunc,
Asa@0: 	descStyle=optstring,
Asa@0: 	order=optmethodnumber,
Asa@0: 	validate=optmethodfalse,
Asa@0: 	confirm=optmethodbool,
Asa@0: 	confirmText=optstring,
Asa@0: 	disabled=optmethodbool,
Asa@0: 	hidden=optmethodbool,
Asa@0: 		guiHidden=optmethodbool,
Asa@0: 		dialogHidden=optmethodbool,
Asa@0: 		dropdownHidden=optmethodbool,
Asa@0: 	cmdHidden=optmethodbool,
Asa@0: 	icon=optstringfunc,
Asa@0: 	iconCoords=optmethodtable,
Asa@0: 	handler=opttable,
Asa@0: 	get=optmethodfalse,
Asa@0: 	set=optmethodfalse,
Asa@0: 	func=optmethodfalse,
Asa@0: 	arg={["*"]=true},
Asa@0: 	width=optstring,
Asa@0: }
Asa@0: 
Asa@0: local typedkeys={
Asa@0: 	header={},
Asa@0: 	description={
Asa@0: 		image=optstringfunc,
Asa@0: 		imageCoords=optmethodtable,
Asa@0: 		imageHeight=optnumber,
Asa@0: 		imageWidth=optnumber,
Asa@0: 		fontSize=optstringfunc,
Asa@0: 	},
Asa@0: 	group={
Asa@0: 		args=istable,
Asa@0: 		plugins=opttable,
Asa@0: 		inline=optbool,
Asa@0: 			cmdInline=optbool,
Asa@0: 			guiInline=optbool,
Asa@0: 			dropdownInline=optbool,
Asa@0: 			dialogInline=optbool,
Asa@0: 		childGroups=optstring,
Asa@0: 	},
Asa@0: 	execute={
Asa@0: 		image=optstringfunc,
Asa@0: 		imageCoords=optmethodtable,
Asa@0: 		imageHeight=optnumber,
Asa@0: 		imageWidth=optnumber,
Asa@0: 	},
Asa@0: 	input={
Asa@0: 		pattern=optstring,
Asa@0: 		usage=optstring,
Asa@0: 		control=optstring,
Asa@0: 		dialogControl=optstring,
Asa@0: 		dropdownControl=optstring,
Asa@0: 		multiline=optboolnumber,
Asa@0: 	},
Asa@0: 	toggle={
Asa@0: 		tristate=optbool,
Asa@0: 		image=optstringfunc,
Asa@0: 		imageCoords=optmethodtable,
Asa@0: 	},
Asa@0: 	tristate={
Asa@0: 	},
Asa@0: 	range={
Asa@0: 		min=optnumber,
Asa@0: 		max=optnumber,
Asa@0: 		step=optnumber,
Asa@0: 		bigStep=optnumber,
Asa@0: 		isPercent=optbool,
Asa@0: 	},
Asa@0: 	select={
Asa@0: 		values=ismethodtable,
Asa@0: 		style={
Asa@0: 			["nil"]=true, 
Asa@0: 			["string"]={dropdown=true,radio=true}, 
Asa@0: 			_="string: 'dropdown' or 'radio'"
Asa@0: 		},
Asa@0: 		control=optstring,
Asa@0: 		dialogControl=optstring,
Asa@0: 		dropdownControl=optstring,
Asa@0: 	},
Asa@0: 	multiselect={
Asa@0: 		values=ismethodtable,
Asa@0: 		style=optstring,
Asa@0: 		tristate=optbool,
Asa@0: 		control=optstring,
Asa@0: 		dialogControl=optstring,
Asa@0: 		dropdownControl=optstring,
Asa@0: 	},
Asa@0: 	color={
Asa@0: 		hasAlpha=optbool,
Asa@0: 	},
Asa@0: 	keybinding={
Asa@0: 		-- TODO
Asa@0: 	},
Asa@0: }
Asa@0: 
Asa@0: local function validateKey(k,errlvl,...)
Asa@0: 	errlvl=(errlvl or 0)+1
Asa@0: 	if type(k)~="string" then
Asa@0: 		err("["..tostring(k).."] - key is not a string", errlvl,...)
Asa@0: 	end
Asa@0: 	if strfind(k, "[%c\127]") then
Asa@0: 		err("["..tostring(k).."] - key name contained control characters", errlvl,...)
Asa@0: 	end
Asa@0: end
Asa@0: 
Asa@0: local function validateVal(v, oktypes, errlvl,...)
Asa@0: 	errlvl=(errlvl or 0)+1
Asa@0: 	local isok=oktypes[type(v)] or oktypes["*"]
Asa@0: 
Asa@0: 	if not isok then
Asa@0: 		err(": expected a "..oktypes._..", got '"..tostring(v).."'", errlvl,...)
Asa@0: 	end
Asa@0: 	if type(isok)=="table" then		-- isok was a table containing specific values to be tested for!
Asa@0: 		if not isok[v] then
Asa@0: 			err(": did not expect "..type(v).." value '"..tostring(v).."'", errlvl,...)
Asa@0: 		end
Asa@0: 	end
Asa@0: end
Asa@0: 
Asa@0: local function validate(options,errlvl,...)
Asa@0: 	errlvl=(errlvl or 0)+1
Asa@0: 	-- basic consistency
Asa@0: 	if type(options)~="table" then
Asa@0: 		err(": expected a table, got a "..type(options), errlvl,...)
Asa@0: 	end
Asa@0: 	if type(options.type)~="string" then
Asa@0: 		err(".type: expected a string, got a "..type(options.type), errlvl,...)
Asa@0: 	end
Asa@0: 	
Asa@0: 	-- get type and 'typedkeys' member
Asa@0: 	local tk = typedkeys[options.type]
Asa@0: 	if not tk then
Asa@0: 		err(".type: unknown type '"..options.type.."'", errlvl,...)
Asa@0: 	end
Asa@0: 	
Asa@0: 	-- make sure that all options[] are known parameters
Asa@0: 	for k,v in pairs(options) do
Asa@0: 		if not (tk[k] or basekeys[k]) then
Asa@0: 			err(": unknown parameter", errlvl,tostring(k),...)
Asa@0: 		end
Asa@0: 	end
Asa@0: 
Asa@0: 	-- verify that required params are there, and that everything is the right type
Asa@0: 	for k,oktypes in pairs(basekeys) do
Asa@0: 		validateVal(options[k], oktypes, errlvl,k,...)
Asa@0: 	end
Asa@0: 	for k,oktypes in pairs(tk) do
Asa@0: 		validateVal(options[k], oktypes, errlvl,k,...)
Asa@0: 	end
Asa@0: 
Asa@0: 	-- extra logic for groups
Asa@0: 	if options.type=="group" then
Asa@0: 		for k,v in pairs(options.args) do
Asa@0: 			validateKey(k,errlvl,"args",...)
Asa@0: 			validate(v, errlvl,k,"args",...)
Asa@0: 		end
Asa@0: 		if options.plugins then
Asa@0: 			for plugname,plugin in pairs(options.plugins) do
Asa@0: 				if type(plugin)~="table" then
Asa@0: 					err(": expected a table, got '"..tostring(plugin).."'", errlvl,tostring(plugname),"plugins",...)
Asa@0: 				end
Asa@0: 				for k,v in pairs(plugin) do
Asa@0: 					validateKey(k,errlvl,tostring(plugname),"plugins",...)
Asa@0: 					validate(v, errlvl,k,tostring(plugname),"plugins",...)
Asa@0: 				end
Asa@0: 			end
Asa@0: 		end
Asa@0: 	end
Asa@0: end
Asa@0: 
Asa@0: 
Asa@0: --- Validates basic structure and integrity of an options table \\
Asa@0: -- Does NOT verify that get/set etc actually exist, since they can be defined at any depth
Asa@0: -- @param options The table to be validated
Asa@0: -- @param name The name of the table to be validated (shown in any error message)
Asa@0: -- @param errlvl (optional number) error level offset, default 0 (=errors point to the function calling :ValidateOptionsTable)
Asa@0: function AceConfigRegistry:ValidateOptionsTable(options,name,errlvl)
Asa@0: 	errlvl=(errlvl or 0)+1
Asa@0: 	name = name or "Optionstable"
Asa@0: 	if not options.name then
Asa@0: 		options.name=name	-- bit of a hack, the root level doesn't really need a .name :-/
Asa@0: 	end
Asa@0: 	validate(options,errlvl,name)
Asa@0: end
Asa@0: 
Asa@0: --- Fires a "ConfigTableChange" callback for those listening in on it, allowing config GUIs to refresh.
Asa@0: -- You should call this function if your options table changed from any outside event, like a game event
Asa@0: -- or a timer.
Asa@0: -- @param appName The application name as given to `:RegisterOptionsTable()`
Asa@0: function AceConfigRegistry:NotifyChange(appName)
Asa@0: 	if not AceConfigRegistry.tables[appName] then return end
Asa@0: 	AceConfigRegistry.callbacks:Fire("ConfigTableChange", appName)
Asa@0: end
Asa@0: 
Asa@0: -- -------------------------------------------------------------------
Asa@0: -- Registering and retreiving options tables:
Asa@0: 
Asa@0: 
Asa@0: -- validateGetterArgs: helper function for :GetOptionsTable (or, rather, the getter functions returned by it)
Asa@0: 
Asa@0: local function validateGetterArgs(uiType, uiName, errlvl)
Asa@0: 	errlvl=(errlvl or 0)+2
Asa@0: 	if uiType~="cmd" and uiType~="dropdown" and uiType~="dialog" then
Asa@0: 		error(MAJOR..": Requesting options table: 'uiType' - invalid configuration UI type, expected 'cmd', 'dropdown' or 'dialog'", errlvl)
Asa@0: 	end
Asa@0: 	if not strmatch(uiName, "[A-Za-z]%-[0-9]") then	-- Expecting e.g. "MyLib-1.2"
Asa@0: 		error(MAJOR..": Requesting options table: 'uiName' - badly formatted or missing version number. Expected e.g. 'MyLib-1.2'", errlvl)
Asa@0: 	end
Asa@0: end
Asa@0: 
Asa@0: --- Register an options table with the config registry.
Asa@0: -- @param appName The application name as given to `:RegisterOptionsTable()`
Asa@0: -- @param options The options table, OR a function reference that generates it on demand. \\
Asa@0: -- See the top of the page for info on arguments passed to such functions.
Asa@0: function AceConfigRegistry:RegisterOptionsTable(appName, options)
Asa@0: 	if type(options)=="table" then
Asa@0: 		if options.type~="group" then	-- quick sanity checker
Asa@0: 			error(MAJOR..": RegisterOptionsTable(appName, options): 'options' - missing type='group' member in root group", 2)
Asa@0: 		end
Asa@0: 		AceConfigRegistry.tables[appName] = function(uiType, uiName, errlvl)
Asa@0: 			errlvl=(errlvl or 0)+1
Asa@0: 			validateGetterArgs(uiType, uiName, errlvl)
Asa@0: 			if not AceConfigRegistry.validated[uiType][appName] then
Asa@0: 				AceConfigRegistry:ValidateOptionsTable(options, appName, errlvl)	-- upgradable
Asa@0: 				AceConfigRegistry.validated[uiType][appName] = true
Asa@0: 			end
Asa@0: 			return options 
Asa@0: 		end
Asa@0: 	elseif type(options)=="function" then
Asa@0: 		AceConfigRegistry.tables[appName] = function(uiType, uiName, errlvl)
Asa@0: 			errlvl=(errlvl or 0)+1
Asa@0: 			validateGetterArgs(uiType, uiName, errlvl)
Asa@0: 			local tab = assert(options(uiType, uiName, appName))
Asa@0: 			if not AceConfigRegistry.validated[uiType][appName] then
Asa@0: 				AceConfigRegistry:ValidateOptionsTable(tab, appName, errlvl)	-- upgradable
Asa@0: 				AceConfigRegistry.validated[uiType][appName] = true
Asa@0: 			end
Asa@0: 			return tab
Asa@0: 		end
Asa@0: 	else
Asa@0: 		error(MAJOR..": RegisterOptionsTable(appName, options): 'options' - expected table or function reference", 2)
Asa@0: 	end
Asa@0: end
Asa@0: 
Asa@0: --- Returns an iterator of ["appName"]=funcref pairs
Asa@0: function AceConfigRegistry:IterateOptionsTables()
Asa@0: 	return pairs(AceConfigRegistry.tables)
Asa@0: end
Asa@0: 
Asa@0: 
Asa@0: 
Asa@0: 
Asa@0: --- Query the registry for a specific options table.
Asa@0: -- If only appName is given, a function is returned which you
Asa@0: -- can call with (uiType,uiName) to get the table.\\
Asa@0: -- If uiType&uiName are given, the table is returned.
Asa@0: -- @param appName The application name as given to `:RegisterOptionsTable()`
Asa@0: -- @param uiType The type of UI to get the table for, one of "cmd", "dropdown", "dialog"
Asa@0: -- @param uiName The name of the library/addon querying for the table, e.g. "MyLib-1.0"
Asa@0: function AceConfigRegistry:GetOptionsTable(appName, uiType, uiName)
Asa@0: 	local f = AceConfigRegistry.tables[appName]
Asa@0: 	if not f then
Asa@0: 		return nil
Asa@0: 	end
Asa@0: 	
Asa@0: 	if uiType then
Asa@0: 		return f(uiType,uiName,1)	-- get the table for us
Asa@0: 	else
Asa@0: 		return f	-- return the function
Asa@0: 	end
Asa@0: end