From: <ma...@us...> - 2003-05-12 07:55:29
|
Update of /cvsroot/jungerl/jungerl/lib/pan/src In directory sc8-pr-cvs1:/tmp/cvs-serv20304/src Modified Files: cb_template.erl Log Message: cosmetic Index: cb_template.erl =================================================================== RCS file: /cvsroot/jungerl/jungerl/lib/pan/src/cb_template.erl,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -u -d -r1.1.1.1 -r1.2 --- cb_template.erl 28 Feb 2003 14:57:45 -0000 1.1.1.1 +++ cb_template.erl 12 May 2003 07:55:23 -0000 1.2 @@ -29,19 +29,16 @@ -export([go/1, requires/0, doc/0]). --record(state, {}). +-record(st, {}). requires() -> [{flags, []}, {tps, []}]. doc() -> "prints everything". go([Message, Line, Out, initial|_]) -> io:fwrite(Out, "~p: initializing~n", [?MODULE]), - go([Message, Line, Out, initial_state()]); -go([end_of_trace, Line, Out, State|_]) -> + go([Message, Line, Out, #st{}]); +go([end_of_trace, Line, Out, St|_]) -> io:fwrite(Out, "~p: exiting - msgs: ~w~n", [?MODULE, Line-1]); -go([Message, Line, Out, State|_]) -> +go([Message, Line, Out, St|_]) -> io:fwrite(Out, "~p: ~-5w - ~w~n", [?MODULE, Line, Message]), - State. - -initial_state() -> - #state{}. + St. |