local iq         = require 'iq'

local x_data     = require 'x_data'

local form_field = require 'form_field'

--

local F = { }

local M = { }

M.__index = M

function F.new ( args )

	local form = {

		xmlns        = 'jabber:iq:register',

		ftype        = args.type or 'form',

		registered   = args.registered,

		-- XXX title

		instructions = args.instructions,

		x_data       = args.x_data,

		f            = { },

	}

	setmetatable ( form, M )

	return form

end

function F.parse ( query )

		instructions = instructions:value ()

	local registered

		registered = true

		return F.new { type = 'form', registered = registered, instructions = instructions, x_data = x_data.parse ( x ) }

	local form = F.new { type = 'form', registered = registered, instructions = instructions }

			form:add ( name, { type = 'text-single', value = field:value () or '' } )

function M.type ( form )

	return form.ftype

end

function M.desc ( form )

	if form.x_data then

		return form.x_data:desc ()

	else

		return form.title, form.instructions

	end

end

function M.format ( form, root, format_as )

	local ft = format_as or form:type ()

	if form.x_data then

		root.query = form.x_data:format ( { xmlns = 'jabber:iq:register' }, ft )

	else

		root.query = { xmlns = 'jabber:iq:register' }

		for index, field in form:fields () do

			root.query[field:name ()] = field:value ()

		end

	end

	if ft == 'form' then

		local title, instructions = form:desc ()

		if instructions then

			root.query.instructions = { instructions }

		end

		if form.registered then

			root.query.registered = { }

		end

	end

	return root

end

function M.fields ( form )

	if form.x_data then

		return form.x_data:fields ()

	else

		return ipairs ( form.f )

	end

end

function M.add ( form, name, fld )

	if form.x_data then

		return form.x_data:add ( name, fld )

	else

		fld.var   = name

		fld.index = #form.f + 1

		local obj = form_field.new ( fld )

		table.insert ( form.f, obj )

		form.f[name] = obj

		return obj

	end

end

function M.field ( form, name )

	if form.x_data then

		return form.x_data:field ( name )

	else

		return form.f[name]

	end

end

function F.register ( conn, to, success, fail )

				success ( F.parse ( query ),

						iq.send ( conn, to, 'set', form:format ( form, { }, 'submit' ), success , fail )

function F.unregister ( conn, to, success, fail )

				success ( F.parse ( query ),

						iq.send ( conn, to, 'set', form:format ( form, { }, 'submit' ), success, fail )

return F