-- DATA FORM FIELD

local F = { }
local M = { }
M.__index = M

-- field.new      -- create new field
-- field:index    -- get index
-- field:type     -- get type
-- field:name     -- get var
-- field:desc     -- get label, desc
-- field:value    -- get/set value
-- field:values   -- get values
-- field:clear    -- clear value
-- field:options  -- get options
-- field:required -- get required

function F.new ( args )
	local obj = {
		t = args.type,
		l = args.label,
		d = args.desc,
		o = args.options,  -- XXX
		v = args.value,    -- XXX
		r = args.required,
		n = args.var,
		i = args.index,    -- XXX
	}
	setmetatable ( obj, M )
	return obj
end

function M.index ( obj )
	return obj.i
end

function M.type ( obj )
	return obj.t
end

function M.name ( obj )
	return obj.n
end

function M.desc ( obj )
	return obj.l, obj.d
end

function M.options ( obj )
	return pairs ( obj.o )
end

function M.value ( obj, value )
	local ftype = obj.t
	if value == nil then
		-- XXX
		return obj.v
	else
		if ftype == 'jid-multi' or ftype == 'list-multi' or ftype == 'text-multi' then
			table.insert ( obj.v, value )
		else
			obj.v = value
		end
	end
end

function M.values ( obj )
	local ftype = obj.t
	if ftype == 'jid-multi' or ftype == 'list-multi' or ftype == 'text-multi' then
		return ipairs ( obj.v )
	else
		return
			function ( arg )
				if not arg then
					return obj.v
				else
					return nil
				end
			end, nil
	end
end

function M.clear ( obj )
	local ftype = obj.t
	if ftype == 'jid-multi' or ftype == 'list-multi' or ftype == 'text-multi' then
		obj.v = { }
	else
		obj.v = ''
	end
end

function M.required ( obj )
	return obj.r
end

return F

-- vim: se ts=4: --