Packages

form

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



-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, Opt) -> (?M):extract(Object, X, Opt).



extract(Object, X, Ref, Opt) ->

    (?M):extract(Object, X, Ref, Opt).



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