From fa5ea78cb2bd127b797f161d9bc922469a55375d Mon Sep 17 00:00:00 2001 From: Greg Burri Date: Thu, 5 Jun 2008 20:24:56 +0000 Subject: [PATCH] oublie d'un fichier... --- modules/erl/euphorik_common.erl | 36 +++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) create mode 100644 modules/erl/euphorik_common.erl diff --git a/modules/erl/euphorik_common.erl b/modules/erl/euphorik_common.erl new file mode 100644 index 0000000..12ac9cb --- /dev/null +++ b/modules/erl/euphorik_common.erl @@ -0,0 +1,36 @@ +% coding: utf-8 +% Copyright 2008 Grégory Burri +% +% This file is part of Euphorik. +% +% Euphorik is free software: you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation, either version 3 of the License, or +% (at your option) any later version. +% +% Euphorik is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% 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 + +-module(euphorik_common). +-export([serialize_ip/1, unserialize_ip/1]). + + +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}; + _ -> erreur + end. -- 2.43.0