MessageTracer.st
changeset 4452 48908302f213
parent 4451 8fcca6fa38f7
child 4468 f19b16167969
equal deleted inserted replaced
4451:8fcca6fa38f7 4452:48908302f213
  1810     "
  1810     "
  1811 
  1811 
  1812     "Modified (comment): / 29-06-2019 / 09:06:15 / Claus Gittinger"
  1812     "Modified (comment): / 29-06-2019 / 09:06:15 / Claus Gittinger"
  1813 !
  1813 !
  1814 
  1814 
  1815 traceMethod:aMethod in:aProcess on:aStream
  1815 traceMethod:aMethod inProcess:aProcess on:aStream
  1816     "arrange for a trace message to be output on aStream,
  1816     "arrange for a trace message to be output on aStream,
  1817      when aMethod is executed. Traces both entry and exit.
  1817      when aMethod is executed. Traces both entry and exit.
  1818      Use unwrapMethod to remove this."
  1818      Use unwrapMethod to remove this."
  1819 
  1819 
  1820     |lvl inside|
  1820     |lvl inside|
  1863      MessageTracer traceMethod:(SequenceableCollection compiledMethodAt:#quickSortFrom:to:) on:Transcript.
  1863      MessageTracer traceMethod:(SequenceableCollection compiledMethodAt:#quickSortFrom:to:) on:Transcript.
  1864      #(6 1 9 66 2 17) copy sort.
  1864      #(6 1 9 66 2 17) copy sort.
  1865      MessageTracer untraceMethod:(SequenceableCollection compiledMethodAt:#quickSortFrom:to:).
  1865      MessageTracer untraceMethod:(SequenceableCollection compiledMethodAt:#quickSortFrom:to:).
  1866     "
  1866     "
  1867 
  1867 
  1868     "Created: / 29-06-2019 / 09:13:48 / Claus Gittinger"
  1868     "Created: / 29-06-2019 / 09:26:49 / Claus Gittinger"
  1869 !
  1869 !
  1870 
  1870 
  1871 traceMethod:aMethod on:aStream
  1871 traceMethod:aMethod on:aStream
  1872     "arrange for a trace message to be output on aStream,
  1872     "arrange for a trace message to be output on aStream,
  1873      when aMethod is executed. Traces both entry and exit.
  1873      when aMethod is executed. Traces both entry and exit.
  2010     "Created: / 15-12-1995 / 18:19:31 / cg"
  2010     "Created: / 15-12-1995 / 18:19:31 / cg"
  2011     "Modified: / 22-10-1996 / 17:39:28 / cg"
  2011     "Modified: / 22-10-1996 / 17:39:28 / cg"
  2012     "Modified (format): / 29-06-2019 / 09:06:38 / Claus Gittinger"
  2012     "Modified (format): / 29-06-2019 / 09:06:38 / Claus Gittinger"
  2013 !
  2013 !
  2014 
  2014 
  2015 traceMethodFull:aMethod in:aProcess on:aStream
  2015 traceMethodFull:aMethod inProcess:aProcess on:aStream
  2016     "arrange for a full trace message to be output on aStream, when aMethod is executed.
  2016     "arrange for a full trace message to be output on aStream, when aMethod is executed.
  2017      Only the sender is traced on entry.
  2017      Only the sender is traced on entry.
  2018      Use untraceMethod to remove this trace."
  2018      Use untraceMethod to remove this trace."
  2019 
  2019 
  2020     |onEntry onExit|
  2020     |onEntry onExit|
  2034                             LeaveTraceBlock value:con value:retVal
  2034                             LeaveTraceBlock value:con value:retVal
  2035                         ].
  2035                         ].
  2036                         retVal
  2036                         retVal
  2037                ].
  2037                ].
  2038 
  2038 
  2039     "Created: / 29-06-2019 / 09:20:22 / Claus Gittinger"
  2039     "Created: / 29-06-2019 / 09:26:37 / Claus Gittinger"
  2040 !
  2040 !
  2041 
  2041 
  2042 traceMethodFull:aMethod on:aStream
  2042 traceMethodFull:aMethod on:aStream
  2043     "arrange for a full trace message to be output on aStream, when aMethod is executed.
  2043     "arrange for a full trace message to be output on aStream, when aMethod is executed.
  2044      Only the sender is traced on entry.
  2044      Only the sender is traced on entry.