initial commit;

src/fewd.erl

@@ -0,0 +1,76 @@
+%%% @doc
+%%% front end web development lab
+%%% @end
+
+-module(fewd).
+-vsn("0.1.0").
+-behavior(application).
+-author("Peter Harpending <peterharpending@qpq.swiss>").
+-copyright("Peter Harpending <peterharpending@qpq.swiss>").
+-license("BSD-2-Clause-FreeBSD").
+
+-export([listen/1, ignore/0]).
+-export([start/0, start/1]).
+-export([start/2, stop/1]).
+
+
+
+-spec listen(PortNum) -> Result
+    when PortNum :: inet:port_num(),
+         Result  :: ok
+                  | {error, {listening, inet:port_num()}}.
+%% @doc
+%% Make the server start listening on a port.
+%% Returns an {error, Reason} tuple if it is already listening.
+
+listen(PortNum) ->
+    fd_client_man:listen(PortNum).
+
+
+-spec ignore() -> ok.
+%% @doc
+%% Make the server stop listening if it is, or continue to do nothing if it isn't.
+
+ignore() ->
+    fd_client_man:ignore().
+
+
+-spec start() -> ok.
+%% @doc
+%% Start the server in an "ignore" state.
+
+start() ->
+    ok = application:ensure_started(sasl),
+    ok = application:start(fewd),
+    io:format("Starting...").
+
+
+-spec start(PortNum) -> ok
+    when PortNum :: inet:port_number().
+%% @doc
+%% Start the server and begin listening immediately. Slightly more convenient when
+%% playing around in the shell.
+
+start(PortNum) ->
+    ok = start(),
+    ok = fd_client_man:listen(PortNum),
+    io:format("Startup complete, listening on ~w~n", [PortNum]).
+
+
+-spec start(normal, term()) -> {ok, pid()}.
+%% @private
+%% Called by OTP to kick things off. This is for the use of the "application" part of
+%% OTP, not to be called by user code.
+%% See: http://erlang.org/doc/apps/kernel/application.html
+
+start(normal, _Args) ->
+    fd_sup:start_link().
+
+
+-spec stop(term()) -> ok.
+%% @private
+%% Similar to start/2 above, this is to be called by the "application" part of OTP,
+%% not client code. Causes a (hopefully graceful) shutdown of the application.
+
+stop(_State) ->
+    ok.