Would you call this code "object oriented" ?
main() ->
Clock1 = clock:constructor() ,
H1 = Clock1:getTime() ,
timer:sleep( 1500 ) ,
H2 = Clock1:getTime() ,
Clock1:setTime( 100 ) ,
timer:sleep( 1500 ) ,
H3 = Clock1:getTime() ,
Clock1:stop( )
. % main ()
This the implementation of this "Erlang class" clock.
%% --------------------------------------------------------
%%
%% clock.erl
%%
%% --------------------------------------------------------
%% ------------------------------------------------
%% ------------------------------------------------
-module( clock ).
-export( [ constructor/1, constructor/0, loop/1,
getTime/1, setTime/2, stop/1,
ticTac/1
] ).
%% ------------------------------------------------
%%
%% ------------------------------------------------
-record( clock, { time } ).
%% ------------------------------------------------
%%
%% ------------------------------------------------
constructor() -> constructor( 0 ) . % ()
%% ------------------------------------------------
%%
%% ------------------------------------------------
constructor(H) ->
%%io:fwrite( "\nclock:constructor()\n" ) ,
LoopPid = spawn( ?MODULE, loop, [ #clock{ time=H } ] ) ,
TicTacPid = spawn( ?MODULE, ticTac, [ LoopPid ] ) ,
{clock, LoopPid}
. % ()
%% ------------------------------------------------
%%
%% ------------------------------------------------
ticTac( LoopPid ) ->
timer:sleep(1000) ,
LoopPid ! ticTack ,
ticTac( LoopPid )
. % ()
%% ------------------------------------------------
%%
%% ------------------------------------------------
loop( State ) ->
%% io:fwrite( "\nclock:loop()\n" ) ,
receive
{Pid, get} -> Pid ! State#clock.time ,
loop( State ) ;
{set, H} -> loop( #clock{ time=H } ) ;
stop -> ok ;
%%after 1000 -> % creo que se reinicia tras cada recepción
ticTack ->
io:fwrite( ".\n" ) ,
loop( #clock{ time=State#clock.time+1 } )
end
. % ()
%% ------------------------------------------------
%% helper
%% ------------------------------------------------
getTime( {clock, PidLoopClock} ) ->
PidLoopClock ! {self(), get} ,
receive
Time -> Time
end
. % ()
%% ------------------------------------------------
%% helper
%% ------------------------------------------------
setTime( H, {clock, PidLoopClock} ) ->
PidLoopClock ! {set, H}
. % ()
%% ------------------------------------------------
%% helper
%% ------------------------------------------------
stop( {clock, PidLoopClock} ) ->
PidLoopClock ! stop
. % ()
%% --------------------------------------------------------
%% --------------------------------------------------------
%% --------------------------------------------------------
%% --------------------------------------------------------