Packages

form

4.11.14
11.4.15 11.4.14 8.3.0 8.0.0 7.10.0 7.8.0 7.7.0 7.6.2 7.6.1 7.6.0 7.4.2 7.4.1 7.4.0 7.1.0 6.11.1 6.10.7 6.10.6 6.10.5 6.10.4 6.10.2 6.10.1 6.4.0 5.12.1 5.12.0 5.8.7 5.8.6 5.8.5 5.8.4 5.8.3 5.8.2 5.8.1 5.8.0 5.7.0 5.5.0 5.3.4 5.3.3 5.3.2 5.3.1 5.3.0 5.1.10 5.1.9 5.1.8 5.1.7 5.1.6 5.1.5 5.1.4 5.1.3 5.1.2 5.1.1 4.12.3 4.12.2 4.12.1 4.12.0 4.11.15 4.11.14 4.11.13 4.11.12 4.11.11 4.11.10 4.11.9 4.11.8 4.11.7 4.11.6 4.11.5 4.11.4 4.11.3 4.11.2 4.11.1 4.11.0 4.10.5 4.10.4 4.10.3 4.10.2 4.10.1 4.10.0 4.7.0 4.6.0

ERP/1 X-FORM Business Cartulary

HexDocs

Current section

Files

Jump to
Readme
77 Versions
1 Dependency
Dependants
Files
Activity
form src form.erl
Raw

src/form.erl 

-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]).



-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).

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).

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,[]).