t.erl

%%%% Copyright (C) 2005-2008 Wager Labs, SA
%%%%
%%%% THE WORK (AS DEFINED BELOW) IS PROVIDED UNDER THE TERMS OF THIS 
%%%% CREATIVE COMMONS PUBLIC LICENSE ("CCPL" OR "LICENSE"). THE WORK IS 
%%%% PROTECTED BY COPYRIGHT AND/OR OTHER APPLICABLE LAW. ANY USE OF 
%%%% THE WORK OTHER THAN AS AUTHORIZED UNDER THIS LICENSE OR COPYRIGHT 
%%%% LAW IS PROHIBITED.
%%%%
%%%% BY EXERCISING ANY RIGHTS TO THE WORK PROVIDED HERE, YOU ACCEPT 
%%%% AND AGREE TO BE BOUND BY THE TERMS OF THIS LICENSE. TO THE EXTENT 
%%%% THIS LICENSE MAY BE CONSIDERED TO BE A CONTRACT, THE LICENSOR GRANTS 
%%%% YOU THE RIGHTS CONTAINED HERE IN CONSIDERATION OF YOUR ACCEPTANCE 
%%%% OF SUCH TERMS AND CONDITIONS.
%%%%
%%%% Please see LICENSE for full legal details and the following URL
%%%% for a human-readable explanation:
%%%%
%%%% http://creativecommons.org/licenses/by-nc-sa/3.0/us/
%%%%

-module(t).

-compile([export_all]).

-include_lib("stdlib/include/ms_transform.hrl").

ut() ->
    dbg:ctp().

t(What)
  when is_list(What) ->
    t(all, What, [c]);
t(What)
  when is_atom(What);
       is_tuple(What) ->
    t(all, [What], [c]).

t(Pid, What)
  when is_pid(Pid) ->
    t(Pid, What, [m, c]).

t(Pid, What, Opts) ->
    dbg:tracer(),
    dbg:p(Pid, Opts),
    t1(What).
    
t() ->
    t([mnesia,
       mnesia_backup,
       mnesia_bup,
       mnesia_checkpoint,
       mnesia_checkpoint_sup,
       mnesia_controller,
       mnesia_dumper,
       mnesia_event,
       mnesia_frag,
       mnesia_frag_hash,
       mnesia_frag_old_hash,
       mnesia_index,
       mnesia_kernel_sup,
       mnesia_late_loader,
       mnesia_lib,
       mnesia_loader,
       mnesia_locker,
       mnesia_log,
       mnesia_monitor,
       mnesia_recover,
       mnesia_registry,
       mnesia_schema,
       mnesia_snmp_hook,
       mnesia_snmp_sup,
       mnesia_sp,
       mnesia_subscr,
       mnesia_sup,
       mnesia_text,
       mnesia_tm
      ]).

ts() ->
    t([mnesia_schema,
       mnesia_controller,
       {mnesia_lib, set},
       {mnesia_lib, val},
       ramtab
      ]),
    ok.

t1([]) ->
    ok;

t1([{M, F}|T]) ->
    dbg:tpl(M, F, dbg:fun2ms(fun(_) -> return_trace() end)),
    t1(T);

t1([H|T]) ->
    dbg:tpl(H, dbg:fun2ms(fun(_) -> return_trace() end)),
    t1(T).