starting all apps declared in app file

exampe.edl

start() ->
    a_start(yourapp, permanent).
    
...

a_start(App, Type) ->
	start_ok(App, Type, application:start(App, Type)).

start_ok(_App, _Type, ok) -> ok;
start_ok(_App, _Type, {error, {already_started, _App}}) -> ok;
start_ok(App, Type, {error, {not_started, Dep}}) ->
	ok = a_start(Dep, Type),
	a_start(App, Type);
start_ok(App, _Type, {error, Reason}) ->
	erlang:error({app_start_failed, App, Reason}).