23 lines
423 B
Erlang
23 lines
423 B
Erlang
-module(events).
|
|
-compile(export_all).
|
|
|
|
log(Msg) ->
|
|
{H,M,S} = erlang:time(),
|
|
io:fwrite("~2.B:~2.B:~2.B => ~s~n",[H,M,S,Msg]).
|
|
|
|
task() ->
|
|
log("Task start"),
|
|
receive
|
|
go -> ok
|
|
end,
|
|
log("Task resumed").
|
|
|
|
main() ->
|
|
log("Program start"),
|
|
P = spawn(?MODULE,task,[]),
|
|
log("Program sleeping"),
|
|
timer:sleep(1000),
|
|
log("Program signalling event"),
|
|
P ! go,
|
|
timer:sleep(100).
|