anchor.diff:          {'DOWN', Ref, process, Receiver, normal} -> {Sender, Receiver}
       end.
   
  -message_script() ->
  -    [{probe, 'BEGIN',
  -      [{printf, ["\n"]}]},
  -     {probe, ["message-send"], [],
  -      [{printf, ["sent %s %s %d\n", {arg_str,1}, {arg_str,2}, {arg,3}]}]},
  -     {probe, ["message-queued"], [],
  -      [{printf, ["queued %s %d %d\n", {arg_str,1}, {arg,2}, {arg,3}]}]},
  -     {probe, ["message-receive"], [],
  -      [{printf, ["received %s %d %d\n", {arg_str,1}, {arg,2}, {arg,3}]}]}
  -    ].
  -
   check_local_message(Sender, Receiver, TermOutput) ->
       {SenderStr, ReceiverStr} = {?p2l(Sender), ?p2l(Receiver)},
       {Msg1Size, Msg2Size} = {?msize(?msg1), ?msize(?msg2)},
  
positive.code:      {exit, PidStr, "normal"}] = FiltOutput,
      ok.
  
  process_spawn_exit_scenario() ->
      {Pid, Ref} = spawn_monitor(fun() ->
                                         receive quit -> ok end
                                 end),
      Pid ! quit,
      receive
          {'DOWN', Ref, process, Pid, normal} -> Pid
      end.
  
  process_spawn_exit_script() ->
      [{probe, 'BEGIN',
        [{printf, ["\n"]}]},
       {probe, ["process-spawn"], [],
        [{printf, ["spawn %s %s\n", {arg_str,1}, {arg_str,2}]}]},
       {probe, ["process-exit"], [],
        [{printf, ["exit %s %s\n", {arg_str,1}, {arg_str,2}]}]}
      ].
  
  process_scheduling_test(_Config) ->
      {Pid, Output} = dyntrace_util:trace(process_scheduling_script(),
                                          fun process_scheduling_scenario/0),
  
negative.code: termify_line(L) ->
      [H|T] = re:split(L, " ", [{return,list}]),
      list_to_tuple([list_to_atom(H)|T]).
  
  %%%-------------------------------------------------------------------
  %%% Dyntrace scripts
  %%%-------------------------------------------------------------------
  
  process_spawn_exit_script() ->
      [{probe, ['begin'], [],
        [{printf, "\n", []}]},
       {probe, ["process-spawn"], [],
        [{printf, "spawn %s %s\n", [{arg_str,1}, {arg_str,2}]}]},
       {probe, ["process-exit"], [],
        [{printf, "exit %s %s\n", [{arg_str,1}, {arg_str,2}]}]}
      ].
  
  process_scheduling_script() ->
      [{probe, ['begin'], [],
        [{printf, "\n", []}]},
       {probe, ["process-scheduled"], [],
        [{printf, "schedule %s\n", [{arg_str,1}]}]},
       {probe, ["process-unscheduled"], [],
        [{printf, "unschedule %s\n", [{arg_str,1}]}]},
       {probe, ["process-hibernate"], [],
        [{printf, "hibernate %s %s\n", [{arg_str,1}, {arg_str,2}]}]},
       {probe, ["process-exit"], [],
        [{printf, "exit %s\n", [{arg_str,1}]}]}
      ].
  
  message_script() ->
      [{probe, ['begin'], [],
        [{printf, "\n", []}]},
       {probe, ["message-send"], [],
        [{printf, "sent %s %s %d\n", [{arg_str,1}, {arg_str,2}, {arg,3}]}]},
       {probe, ["message-queued"], [],
        [{printf, "queued %s %d %d\n", [{arg_str,1}, {arg,2}, {arg,3}]}]},
       {probe, ["message-receive"], [],
        [{printf, "received %s %d %d\n", [{arg_str,1}, {arg,2}, {arg,3}]}]}
      ].
  