X-Git-Url: http://git.euphorik.ch/?a=blobdiff_plain;f=modules%2Ferl%2Feuphorik_common.erl;h=e9e14b777b1619c29f9163be6dedb244cbb7199c;hb=79f0cfc91b7220d98e4caf50fbb3857807fc6bc4;hp=3806df35b8607cd373e5d4aed8ea8f866291f4d0;hpb=afc7c6e84fac05e989a208f72538e6a55daa758f;p=euphorik.git diff --git a/modules/erl/euphorik_common.erl b/modules/erl/euphorik_common.erl index 3806df3..e9e14b7 100644 --- a/modules/erl/euphorik_common.erl +++ b/modules/erl/euphorik_common.erl @@ -15,7 +15,7 @@ % % You should have received a copy of the GNU General Public License % along with Euphorik. If not, see . -% +% % Module avec plein de bordel utile à l'intérieur. % @author G.Burri @@ -40,9 +40,9 @@ ceiling(X) -> Pos when Pos > 0 -> T + 1; _ -> T end. - -% Retourne la difference entre deux timestamp (erlang:now()) en miliseconde + +% Retourne la difference entre deux timestamp (erlang:timestamp()) en miliseconde delta_date_ms(D1, D2) -> 1000000000 * abs(element(1, D1) - element(1, D2)) + 1000 * abs(element(2, D1) - element(2, D2)) + trunc(abs(element(3, D1) - element(3, D2)) / 1000). @@ -50,14 +50,14 @@ delta_date_ms(D1, D2) -> % Retourne la différence entre deux timestamp (erlang:now) en minutes delta_date_minute(D1, D2) -> trunc(delta_date_ms(D1, D2) / 1000 / 60). - + serialize_ip(undefined) -> ""; serialize_ip(IP) -> lists:flatten(io_lib:format("~w.~w.~w.~w", tuple_to_list(IP))). - - + + unserialize_ip(IP) -> case io_lib:fread("~d.~d.~d.~d", IP) of {ok, [A, B, C, D], []} -> {A, B, C, D};