auser-poolparty 0.2.66 → 0.2.67

data/lib/erlang/messenger/lib/eunit/src/.svn/entries

@@ -0,0 +1,259 @@
+8
+
+dir
+263
+http://svn.process-one.net/contribs/trunk/eunit/src
+http://svn.process-one.net/contribs
+
+
+
+2008-10-02T07:09:39.920718Z
+258
+rcarlsson
+
+
+svn:special svn:externals svn:needs-lock
+
+
+
+
+
+
+
+
+
+
+
+5c723cce-c907-0410-9aa2-ab8348fff7a4
+
+eunit_tests.erl
+file
+
+
+
+
+2008-10-18T23:25:36.000000Z
+7bf5a76dd440923990c7b484df953d88
+2007-11-15T10:23:54.688786Z
+238
+mremond
+has-props
+
+eunit_proc.erl
+file
+
+
+
+
+2008-10-18T23:25:36.000000Z
+03043c0e066a109082097aef890fc37c
+2008-09-29T17:42:21.837614Z
+256
+rcarlsson
+has-props
+
+autoload.erl
+file
+
+
+
+
+2008-10-18T23:25:36.000000Z
+5e5050f0ad965ea25cb9ad302da9a217
+2007-11-15T10:23:54.688786Z
+238
+mremond
+has-props
+
+eunit.app.src
+file
+
+
+
+
+2008-10-18T23:25:36.000000Z
+3cf609893ad581006db46c7faccc018e
+2007-05-05T14:47:04.988837Z
+211
+rcarlsson
+
+eunit_server.erl
+file
+
+
+
+
+2008-10-18T23:25:36.000000Z
+dbc03f7a823600ddee4be9a1b9390a44
+2007-11-15T10:23:54.688786Z
+238
+mremond
+has-props
+
+eunit_lib.erl
+file
+
+
+
+
+2008-10-18T23:25:36.000000Z
+e56a109d2b0ca2a4f0fea79b171345c0
+2007-11-15T10:23:54.688786Z
+238
+mremond
+has-props
+
+eunit_data.erl
+file
+
+
+
+
+2008-10-18T23:25:36.000000Z
+9991ae2d9a13cc8daa2afa605687459f
+2008-09-29T17:13:43.707110Z
+253
+rcarlsson
+has-props
+
+eunit.appup.src
+file
+
+
+
+
+2008-10-18T23:25:36.000000Z
+cb8fccb1c3eb4716a1497a2acaca200b
+2007-05-05T14:47:04.988837Z
+211
+rcarlsson
+
+eunit_autoexport.erl
+file
+
+
+
+
+2008-10-18T23:25:36.000000Z
+5d1044347abc3dea56ca96165172ef6e
+2008-10-02T07:09:39.920718Z
+258
+rcarlsson
+has-props
+
+code_monitor.erl
+file
+
+
+
+
+2008-10-18T23:25:36.000000Z
+f572097b0ec7cafd2089f56a5eb7f9fe
+2007-11-15T10:23:54.688786Z
+238
+mremond
+has-props
+
+eunit_serial.erl
+file
+
+
+
+
+2008-10-18T23:25:36.000000Z
+cbef3435db2217b039b3a2c5ac1a9b4f
+2008-05-11T20:06:45.605499Z
+249
+rcarlsson
+has-props
+
+eunit_internal.hrl
+file
+
+
+
+
+2008-10-18T23:25:36.000000Z
+5004ef0c3c46afc59168be7f84f4d72e
+2007-11-15T10:23:54.688786Z
+238
+mremond
+has-props
+
+eunit_test.erl
+file
+
+
+
+
+2008-10-18T23:25:36.000000Z
+5002627123543a66a63ae39c2a9b8241
+2007-11-15T10:23:54.688786Z
+238
+mremond
+has-props
+
+eunit.erl
+file
+
+
+
+
+2008-10-18T23:25:36.000000Z
+6f5f15caa627e0ae275ccadcfc028acc
+2008-05-11T20:06:45.605499Z
+249
+rcarlsson
+has-props
+
+eunit_tty.erl
+file
+
+
+
+
+2008-10-18T23:25:36.000000Z
+81a970f0ac5baf4bb85175b7e135f1aa
+2007-11-15T10:23:54.688786Z
+238
+mremond
+has-props
+
+file_monitor.erl
+file
+
+
+
+
+2008-10-18T23:25:36.000000Z
+f2f7a2d45511f1990ed14e243bfaf563
+2008-08-23T09:12:02.363609Z
+250
+rcarlsson
+has-props
+
+eunit_striptests.erl
+file
+
+
+
+
+2008-10-18T23:25:36.000000Z
+1c4d2c7395132297628b6774ab39d327
+2007-11-15T10:23:54.688786Z
+238
+mremond
+has-props
+
+Makefile
+file
+
+
+
+
+2008-10-18T23:25:36.000000Z
+eb300b5f8d4ca4ce302536227aaf97fb
+2008-01-31T21:22:36.813745Z
+245
+rcarlsson
+

data/lib/erlang/messenger/lib/eunit/src/.svn/format

@@ -0,0 +1 @@
+8

data/lib/erlang/messenger/lib/eunit/src/.svn/prop-base/autoload.erl.svn-base

@@ -0,0 +1,5 @@
+K 12
+svn:keywords
+V 31
+Date Author Id Revision HeadURL
+END

data/lib/erlang/messenger/lib/eunit/src/.svn/prop-base/code_monitor.erl.svn-base

@@ -0,0 +1,5 @@
+K 12
+svn:keywords
+V 31
+Date Author Id Revision HeadURL
+END

data/lib/erlang/messenger/lib/eunit/src/.svn/prop-base/eunit.erl.svn-base

@@ -0,0 +1,5 @@
+K 12
+svn:keywords
+V 31
+Date Author Id Revision HeadURL
+END

data/lib/erlang/messenger/lib/eunit/src/.svn/prop-base/eunit_autoexport.erl.svn-base

@@ -0,0 +1,5 @@
+K 12
+svn:keywords
+V 31
+Date Author Id Revision HeadURL
+END

data/lib/erlang/messenger/lib/eunit/src/.svn/prop-base/eunit_data.erl.svn-base

@@ -0,0 +1,5 @@
+K 12
+svn:keywords
+V 31
+Date Author Id Revision HeadURL
+END

data/lib/erlang/messenger/lib/eunit/src/.svn/prop-base/eunit_internal.hrl.svn-base

@@ -0,0 +1,5 @@
+K 12
+svn:keywords
+V 31
+Date Author Id Revision HeadURL
+END

data/lib/erlang/messenger/lib/eunit/src/.svn/prop-base/eunit_lib.erl.svn-base

@@ -0,0 +1,5 @@
+K 12
+svn:keywords
+V 31
+Date Author Id Revision HeadURL
+END

data/lib/erlang/messenger/lib/eunit/src/.svn/prop-base/eunit_proc.erl.svn-base

@@ -0,0 +1,5 @@
+K 12
+svn:keywords
+V 31
+Date Author Id Revision HeadURL
+END

data/lib/erlang/messenger/lib/eunit/src/.svn/prop-base/eunit_serial.erl.svn-base

@@ -0,0 +1,5 @@
+K 12
+svn:keywords
+V 31
+Date Author Id Revision HeadURL
+END

data/lib/erlang/messenger/lib/eunit/src/.svn/prop-base/eunit_server.erl.svn-base

@@ -0,0 +1,5 @@
+K 12
+svn:keywords
+V 31
+Date Author Id Revision HeadURL
+END

data/lib/erlang/messenger/lib/eunit/src/.svn/prop-base/eunit_striptests.erl.svn-base

@@ -0,0 +1,5 @@
+K 12
+svn:keywords
+V 31
+Date Author Id Revision HeadURL
+END

data/lib/erlang/messenger/lib/eunit/src/.svn/prop-base/eunit_test.erl.svn-base

@@ -0,0 +1,5 @@
+K 12
+svn:keywords
+V 31
+Date Author Id Revision HeadURL
+END

data/lib/erlang/messenger/lib/eunit/src/.svn/prop-base/eunit_tests.erl.svn-base

@@ -0,0 +1,5 @@
+K 12
+svn:keywords
+V 31
+Date Author Id Revision HeadURL
+END

data/lib/erlang/messenger/lib/eunit/src/.svn/prop-base/eunit_tty.erl.svn-base

@@ -0,0 +1,5 @@
+K 12
+svn:keywords
+V 31
+Date Author Id Revision HeadURL
+END

data/lib/erlang/messenger/lib/eunit/src/.svn/prop-base/file_monitor.erl.svn-base

@@ -0,0 +1,5 @@
+K 12
+svn:keywords
+V 31
+Date Author Id Revision HeadURL
+END

data/lib/erlang/messenger/lib/eunit/src/.svn/text-base/autoload.erl.svn-base

@@ -0,0 +1,388 @@
+%% This library is free software; you can redistribute it and/or modify
+%% it under the terms of the GNU Lesser General Public License as
+%% published by the Free Software Foundation; either version 2 of the
+%% License, or (at your option) any later version.
+%%
+%% This library 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
+%% Lesser General Public License for more details.
+%%
+%% You should have received a copy of the GNU Lesser General Public
+%% License along with this library; if not, write to the Free Software
+%% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
+%% USA
+%%
+%% $Id:$ 
+%%
+%% @private (for now)
+%% @author Richard Carlsson <richardc@it.uu.se>
+%% @copyright 2006 Richard Carlsson
+%% @doc Erlang automatic code loading service
+
+-module(autoload).
+
+-export([start/0, start/1, stop/0, stop/1,
+	 watch_module/1, watch_module/2, watch_module/3,
+	 watch_file/1, watch_file/2, watch_file/3,
+	 watch_dir/1, watch_dir/2, watch_dir/3
+	]).
+
+-include_lib("kernel/include/file.hrl").
+
+-define(SERVER, autoload).
+-define(ZERO_TIMESTAMP, {0,0,0}).
+
+%% TODO: un-watching functionality
+
+%% We're not trying to provide strong guarantees here. The autoloader is
+%% supposed to behave like a human assistant might - race conditions may
+%% cause modules to be reloaded twice, or cause a reload from the wrong
+%% file (if paths are suddenly changed).
+
+
+watch_dir(Path) ->
+    watch_dir(Path, []).
+
+watch_dir(Path, Opts) ->
+    watch_dir(?SERVER, Path, Opts).
+
+watch_dir(Server, Path, Opts) ->
+    command(Server, {watch, {dir, filename:flatten(Path)}, Opts}).
+
+watch_file(Path) ->
+    watch_file(Path, []).
+
+watch_file(Path, Opts) ->
+    watch_file(?SERVER, Path, Opts).
+
+watch_file(Server, Path, Opts) ->
+    command(Server, {watch, {file, filename:flatten(Path)}, Opts}).
+
+watch_module(Module) ->
+    watch_module(Module, []).
+
+watch_module(Module, Opts) ->
+    watch_module(?SERVER, Module, Opts).
+
+watch_module(Server, Module, Opts) when is_atom(Module) ->
+    command(Server, {watch, {module, Module}, Opts}).
+
+
+command(Server, Msg) ->
+    ServerPid = ensure_started(Server),
+    ServerPid ! {command, self(), Msg},
+    receive
+	{ServerPid, Result} -> Result
+    end.
+
+stop() ->
+    stop(?SERVER).
+
+stop(Server) ->
+    Server ! stop,
+    ok.
+	    
+ensure_started(Name) when is_atom(Name) ->
+    start(Name);
+ensure_started(Pid) when is_pid(Pid) ->
+    Pid.
+
+
+start() ->
+    start(?SERVER).
+
+start(Name) ->
+    case whereis(Name) of
+	undefined ->
+	    Parent = self(),
+	    Pid = spawn(fun () -> server_init(Name, Parent) end),
+	    receive
+		{Pid, ok} -> Pid;
+		{Pid, error} -> throw(no_server)
+	    end;
+	Pid -> Pid
+    end.
+
+-record(state, {name, modules, files, dirs}).
+
+-record(module, {time = ?ZERO_TIMESTAMP, file, opts = []}).
+
+server_init(Name, Parent) ->
+    Self = self(),
+    case catch register(Name, Self) of
+	true ->
+	    Parent ! {Self, ok},
+	    code_monitor:monitor(self()),
+	    server(#state{name = Name,
+			  modules = dict:new(),
+			  files = dict:new(),
+			  dirs = dict:new()});
+	_ ->
+	    init_failure(Parent)
+    end.
+
+init_failure(Parent) ->
+    Parent ! {self(), error},
+    exit(failed).
+
+server(St) ->
+    receive
+	{file_monitor, _Ref, Msg} ->
+	    file_event(Msg, St);
+	{code_monitor, Msg} ->
+	    code_event(Msg, St);
+	{command, From, Cmd} ->
+	    server_command(From, Cmd, St);
+	stop ->
+	    exit(normal);
+	Msg ->
+	    erlang:display({autoload_unexpected, Msg}),
+	    server(St)
+    end.
+
+server_command_reply(From, Msg) ->
+    From ! {self(), Msg}.
+
+server_command(From, {watch, {dir, Path}, Opts}, St) ->
+    server_command_reply(From, ok),
+    server(monitor_dir(Path, Opts, St));
+server_command(From, {watch, {file, Path}, Opts}, St) ->
+    server_command_reply(From, ok),
+    server(monitor_file(Path, Opts, St));
+server_command(From, {watch, {module, M}, Opts}, St) ->
+    server_command_reply(From, ok),
+    server(monitor_module(M, Opts, St)).
+
+file_event({exists, Path, dir, _Info, Files}, St) ->
+    %%erlang:display({autoload_saw_exists, dir, Path}),
+    server(monitor_objs(Path, Files, St));
+file_event({exists, Path, file, Info, _}, St) ->
+    %%erlang:display({autoload_saw_exists, file, Path}),
+    %% treat file-exists messages just like file-changed messages
+    server(changed_file(Path, Info#file_info.mtime, St));
+file_event({changed, Path, dir, _Info, Files}, St) ->
+    %%erlang:display({autoload_saw_changed, dir, Path}),
+    server(monitor_objs(Path, Files, St));
+file_event({changed, Path, file, #file_info{}=Info, _}, St) ->
+    %%erlang:display({autoload_saw_changed, file, Path}),
+    server(changed_file(Path, Info#file_info.mtime, St));
+file_event({error, _Path, file, _ErrorAtom}=_Msg, St) ->
+    %%erlang:display({autoload_ignoring, _Msg}),
+    %% just consider the files as being temporarily unavailable
+    server(St);
+file_event(_Msg, St) ->
+    erlang:display({autoload_unexpected_file_event, _Msg}),
+    server(St).
+
+code_event({loaded, M, Time}, St) ->
+    %%erlang:display({autoload_saw_loaded, M, Time}),
+    server(loaded_module(M, Time, St));
+code_event(_Msg, St) ->
+    erlang:display({autoload_unexpected_code_event, _Msg}),
+    server(St).
+
+
+%% called when asked to watch a module M
+
+monitor_module(M, Opts, St) ->
+    ensure_loaded(M, "", Opts),
+    case code:which(M) of
+	non_existing ->
+	    %% no module loaded or found in path (e.g., the user has not
+	    %% run 'make' yet, or has not updated the path): store
+	    %% mapping from M to undefined file, for late binding
+	    store_record(M, #module{opts = Opts}, St);
+	File when is_list(File) ->
+	    %% existing file found (already loaded or in path): monitor
+	    %% the file and map M to that file (even if the first load
+	    %% might turn out to be from another file)
+	    store_record(M, #module{file = File},
+			 monitor_file(File, Opts, St));
+	_ ->
+	    %% preloaded or cover-compiled module - ignore
+	    St
+    end.
+
+%% called when a monitored directory is detected as new or changed
+
+monitor_objs(Path, Files, St) ->
+    Opts = get_dir_opts(Path, St),
+    ObjExt = file:objfile_extension(),
+    Objs = [F || {added, F} <- Files, filename:extension(F) == ObjExt],
+    lists:foldl(
+      fun (F, St) ->
+	      F1 = filename:absname(filename:join(Path, F)),
+	      %%erlang:display({autoload_monitoring, file, F1}),
+	      monitor_file(F1, Opts, St)
+      end,
+      St,
+      Objs).
+
+get_dir_opts(Path, St) ->
+    case dict:find(Path, St#state.dirs) of
+	{ok, {_Ref, Opts}} -> Opts;	    
+	error -> []
+    end.
+
+%% called when a module was detected as loaded or reloaded (either
+%% caused by an auto-load or by someone else)
+
+loaded_module(M, Time, St) ->
+    case find_record(M, St) of
+	{ok, R} ->
+	    File = code:which(M),
+	    case R#module.file of
+		undefined when is_list(File) ->
+		    %% a watched module gets a late binding to a file
+		    %%erlang:display({autoload_late_binding, M, File}),
+		    Opts = R#module.opts,
+		    update_record(M, R, Time, File,
+				  monitor_file(File, Opts, St));
+		File when is_list(File) ->
+		    %% loaded from watched file - update the load time
+		    update_record(M, R, Time, File, St);
+		_ ->
+		    St    %% not loaded from the watched file
+	    end;
+	error ->
+	    St    %% uninteresting module
+    end.
+
+
+%% called whenever a file has changed and exists
+
+changed_file(File, Time, St) ->
+    %% always reread the module name from the file
+    case obj_module(File) of
+	{module, M} ->
+	    case find_record(M, St) of
+		{ok, R} ->
+		    check_reload(M, File, Time, R),
+		    St;
+		error ->
+		    %% first time we see this module: map to file
+		    %% and don't try to reload
+		    R = #module{file = File},
+		    store_record(M, R, St)
+	    end;
+	error ->
+	    St    %% bad file - ignore until changed again
+    end.
+
+
+%% check if a module needs to be reloaded, when its file has changed
+
+check_reload(M, File, Time, R) ->
+    %%erlang:display({autoload_checking, M, File, Time, R}),
+    case ((R#module.file == File)
+	  andalso is_loaded(M)
+	  andalso (code:which(M) == File)
+	  andalso is_newer(Time, R#module.time))
+	of
+	true ->
+	    reload(M);
+	false ->
+	    ok
+    end.
+
+
+reload(M) ->
+    erlang:display({autoload_loading, M}),
+    code:purge(M),
+    code:load_file(M).
+
+update_record(M, R, Time, File, St) ->
+    store_record(M, R#module{time = Time, file = File}, St).
+
+find_record(M, St) ->
+    dict:find(M, St#state.modules).
+
+store_record(M, R, St) ->
+    St#state{modules = dict:store(M, R, St#state.modules)}.
+
+%% we must remember watched files/dirs, so we don't set up more than one
+%% file monitor for the same path, and so we can cancel monitors; for
+%% dirs, we also remember options
+
+monitor_file(Path, Opts, St) ->
+    ensure_loaded([], Path, Opts),
+    case dict:is_key(Path, St#state.files) of
+	true ->
+	    %%erlang:display({autoload_already_watching, Path}),
+	    St;
+	false ->
+	    {ok, _, Ref} = file_monitor:monitor_file(Path, self()),
+	    St#state{files = dict:store(Path, Ref, St#state.files)}
+    end.
+
+monitor_dir(Path, Opts, St) ->
+    case dict:is_key(Path, St#state.dirs) of
+	true ->
+	    %%erlang:display({autoload_already_watching, Path}),
+	    St;
+	false ->
+	    {ok, _, Ref} = file_monitor:monitor_dir(Path, self()),
+	    St#state{dirs = dict:store(Path, {Ref, Opts},
+				       St#state.dirs)}
+    end.
+
+%% try to ensure that a module/file is loaded (M is [] if unknown;
+%% File is "" if unknown)
+
+ensure_loaded(M, File, Opts) ->
+    case proplists:get_bool(load, Opts) of
+	true when is_atom(M) ->
+	    ensure_loaded_1(M, File);  %% known module name
+	true when M == [] ->
+	    case obj_module(File) of
+		{module, Module} ->
+		    ensure_loaded_1(Module, File);
+		error ->
+		    ok  %% couldn't load
+	    end;
+	false -> ok
+    end.
+
+ensure_loaded_1(M, File) ->
+    %% always try to load using the path first
+    case code:ensure_loaded(M) of
+	{module, _} ->
+	    ok;
+	{error, _} when File == [] ->
+	    ok;  %% ignore error
+	{error, _} ->
+	    %% try loading directly from the file
+	    code:load_abs(File)  %% ignore result    
+    end.
+
+%% find name of module stored in an object file
+
+obj_module(File) ->
+    case beam_lib:info(File) of
+	List when is_list(List) ->
+	    case lists:keysearch(module, 1, List) of
+		{value, {module, M}} ->
+		    {module, M};
+		_ ->
+		    error
+	    end;
+	_ ->
+	    error
+    end.
+
+%% check if the file timestamp (on DateTime format) is newer than
+%% the module load-time (on Now-format)
+
+is_newer(DateTime, LoadTime) ->
+    calendar:datetime_to_gregorian_seconds(DateTime) >
+	calendar:datetime_to_gregorian_seconds(
+	  calendar:now_to_local_time(LoadTime)).
+
+%% wrapper for code:is_loaded/1
+
+is_loaded(Module) ->  
+    case code:is_loaded(Module) of
+	{file, _} -> true;
+	false -> false
+    end.