-module(form).
-behaviour(supervisor).
-behaviour(application).
-include_lib("form/include/meta.hrl").
-compile(export_all).
-export([start/0, start/1, start/2, stop/1, new/2, new/3, init/1, id/0, dispatch/2]).
-export([steps/3, caption/3, fields/3, buttons/3]).
-export([field/3, field/1]).

-define(M, (application:get_env(form,module,form_backend))).

% FORM API

sources(Object)           -> sources(Object,[]).
sources(Object,Options)   -> ?M:sources(Object,Options).
type(Object)              -> ?M:type(Object).
kind(Options)             -> ?M:kind(Options).
pos(Object,X)             -> ?M:pos(Object,X).
extract(Object,X)         -> ?M:extract(Object,X).
extract(Object,X,Ref)     -> ?M:extract(Object,X,Ref).
evoke(Object,X,Value)     -> ?M:evoke(Object,X,Value).
id()                      -> fun (X) -> X end.
atom(List) when is_list(List) -> string:join([ nitro:to_list(L) || L <- List],"_");
atom(Scalar)              -> nitro:to_list(Scalar).
dispatch(Object, Options) -> ?M:dispatch(Object, Options).
new(A,B)                  -> new(A,B,[]).
new(Doc=#document{},Object,Opt) -> ?M:new(Doc,Object,Opt);
new(Document,_O,_)        -> Document.
steps(Doc, Obj, Opt)      -> ?M:steps(Doc,Obj,Opt).
caption(Doc, Obj, Opt)    -> ?M:caption(Doc, Obj, Opt).
fields(Doc, Obj, Opt)     -> ?M:fields(Doc, Obj, Opt).
field(Field, Obj, Opt)    -> ?M:field(Field, Obj, Opt).
field(Field)    -> ?M:field(Field).
buttons(Doc, Obj, Opt)    -> ?M:buttons(Doc,Obj,Opt).
translate(A,B)            -> ?M:translate(A,B).
translate(A)              -> ?M:translate(A).
val(A,B)                  -> ?M:val(A,B).
fieldType(A,B,C,D,E)      -> ?M:fieldType(A,B,C,D,E).
fieldType(A,B,C,D)        -> ?M:fieldType(A,B,C,D).

% OTP

stop(_)    -> ok.
start()    -> start(normal,[]).
start(_)   -> start().
init([])   -> {ok, {{one_for_one, 5, 10}, [] }}.
start(_,_) -> supervisor:start_link({local,form},form,[]).