removing unnecessary comments

Author: Laymer

src/achlys.erl

@@ -39,9 +39,7 @@
 -export([members/0]).
 -export([gc/0]).
 -export([flush/1]).
-
--compile({nowarn_export_all}).
--compile(export_all).
+-export([join/1]).
 
 %%====================================================================
 %% Type definitions
@@ -257,29 +255,5 @@ flush(Name) ->
         , self()).
 
 %% @private
-j1() ->
-    lasp_peer_service:join(achlys@my_grisp_board_1).
-
-%% @private
-j2() ->
-    lasp_peer_service:join(achlys@my_grisp_board_2).
-
-%% @private
-j3() ->
-    lasp_peer_service:join(achlys@my_grisp_board_3).
-
-%% @private
-j4() ->
-    lasp_peer_service:join(achlys@my_grisp_board_4).
-
-%% @private
-j5() ->
-    lasp_peer_service:join(achlys@my_grisp_board_5).
-
-%% @private
-j6() ->
-    lasp_peer_service:join(achlys@my_grisp_board_6).
-
-%% @private
-jm() ->
-    lasp_peer_service:join(achlys@LaymerMac).
+join(Host) ->
+    lasp_peer_service:join(Host).

src/achlys_pmod_nav_worker.erl

@@ -164,10 +164,8 @@ handle_cast(run , State) ->
 
     NewState = maps:map(fun
       (K, V1) when is_map(V1) ->
-          {SetId, _CardinalityId} = achlys_util:get_variable_identifier(K),
-          {ok, {Id,_,_,_}} = lasp:declare({SetId , state_awset}, state_awset),
-        % Id = achlys_util:declare_crdt(K , state_awset),
-        % Id = maybe_declare_crdt(K , state_awset_ps),
+        {SetId, _CardinalityId} = achlys_util:get_variable_identifier(K),
+        {ok, {Id,_,_,_}} = lasp:declare({SetId , state_awset}, state_awset),
 
         V2 = mapz:deep_put([crdt], Id , V1),
         T = create_table(K),
@@ -217,7 +215,6 @@ handle_info(temperature , State) ->
     Res = maybe_get_temp() ,
     case Res of
         {ok , [Temp]} when is_number(Temp) ->
-            % true = ets:insert_new(State#state.measures , {?TIME , [Temp]});
             true = ets:insert_new(temperature , {?TIME , erlang:round(Temp)});
         _ ->
             logger:log(notice , "Could not fetch temperature : ~p ~n" , [Res])
@@ -231,7 +228,6 @@ handle_info(pressure , State) ->
     Res = maybe_get_press() ,
     case Res of
         {ok , [Press]} when is_number(Press) ->
-            % true = ets:insert_new(State#state.measures , {?TIME , [Press]});
             true = ets:insert_new(pressure , {?TIME , erlang:round(Press)});
         _ ->
             logger:log(notice , "Could not fetch pressure : ~p ~n" , [Res])
@@ -251,14 +247,10 @@ handle_info({mean, Val} , State) ->
     Len = ets:info(Val, size),
     _ = case Len >= A of
             true ->
-                % Mean = get_mean(Val) ,
-                % {ok, {C2, _, _, _}} = lasp:update(C , {add , {State#state.number , T, Mean}} , self());
                 {_Sample, Mean} = get_mean(Val) ,
                 ComputedSample = (maps:get(Val, State#state.aggregations) * A) ,
-                % logger:log(debug , "ETS size : ~p Computed : ~p  ~n" , [Sample,ComputedSample]) ,
                 {ok, {C2, _, _, _}} = lasp:update(
                     C ,
-                    % {add , {State#state.number , ComputedSample , erlang:round(Mean)}} ,
                     {add , {ComputedSample , erlang:round(Mean)}} ,
                     self());
             _ ->
@@ -345,7 +337,6 @@ code_change(_OldVsn , State , _Extra) ->
 get_mean(Tab) ->
     Sum = ets:foldl(fun
                         (Elem , AccIn) ->
-                            % {_ , [Temp]} = Elem ,
                             {_ , Temp} = Elem ,
                             Temp + AccIn
                     end , 0 , Tab) ,
@@ -391,8 +382,7 @@ is_pmod_nav_alive() ->
         _:_ ->
             {error , unknown}
     end.
-%   error:{badmatch, {device, ?PMOD_NAV_SLOT, pmod_nav, _Pid, _Ref}} ->
-%     {error, no_pmod_nav};
+
 create_table(Name) ->
     case ets:info(Name, size) of
       undefined ->

src/achlys_util.erl

@@ -156,21 +156,17 @@ sample_function() ->
     fun F() -> io:format("Sample function ! ~n") end.
 
 get_temperatures() ->
-    {ok,S} = lasp:query({<<"achlys@LaymerMac_temperature">> , state_awset}) ,
     {ok,S1} = lasp:query({<<"achlys@my_grisp_board_1_temperature">> , state_awset}) ,
     {ok,S2} = lasp:query({<<"achlys@my_grisp_board_2_temperature">> , state_awset}) ,
     {ok,S3} = lasp:query({<<"achlys@my_grisp_board_3_temperature">> , state_awset}) ,
-    logger:log(notice, "Mac Temp : ~p ~n", [ sets:to_list(S) ]) ,
     logger:log(notice, "Board 1 Temp : ~p ~n", [ sets:to_list(S1) ]) ,
     logger:log(notice, "Board 2 Temp : ~p ~n", [ sets:to_list(S2) ]) ,
     logger:log(notice, "Board 3 Temp : ~p ~n", [ sets:to_list(S3) ]).
 
 get_pressures() ->
-    {ok,S} = lasp:query({<<"achlys@LaymerMac_pressure">> , state_awset}) ,
     {ok,S1} = lasp:query({<<"achlys@my_grisp_board_1_pressure">> , state_awset}) ,
     {ok,S2} = lasp:query({<<"achlys@my_grisp_board_2_pressure">> , state_awset}) ,
     {ok,S3} = lasp:query({<<"achlys@my_grisp_board_3_pressure">> , state_awset}) ,
-    logger:log(notice, "Mac Press : ~p ~n", [ sets:to_list(S) ]) ,
     logger:log(notice, "Board 1 Press : ~p ~n", [ sets:to_list(S1) ]) ,
     logger:log(notice, "Board 2 Press : ~p ~n", [ sets:to_list(S2) ]) ,
     logger:log(notice, "Board 3 Press : ~p ~n", [ sets:to_list(S3) ]).