;ELC ;;; compiled by cthomp@willow on Thu Aug 12 00:49:53 1993 ;;; from file /era/era-0.80/editor/lisp/utils/trace.el ;;; emacs version 19.8 (beta8) Lucid. ;;; bytecomp version 2.15; 14-jul-93. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (byte-code "!!\"" [require advice fboundp \` autoload "backquote" "2.0" trace-version] 3) (defvar trace-buffer "*trace-output*" "\ *Trace output will by default go to that buffer.") (byte-code "!!!\"\"MMMMM" [boundp trace-level 0 trace-advice-name trace-function\ trace-separator format "%s\n" make-string 70 61 trace-entry-message #[(function level argument-bindings) " S\"# VǪ \n #&" [format "%s%s%d -> %s: %s\n" mapconcat char-to-string make-string level 124 " " 1 "" function #[(binding) "\n\"!\n\"!Q" [symbol-name ad-arg-binding-field binding name "=" prin1-to-string value] 6] argument-bindings] 10] trace-exit-message #[(function level value) " S\"# VǪ \n !&" [format "%s%s%d <- %s: %s\n" mapconcat char-to-string make-string level 124 " " 1 "" function prin1-to-string value] 8] trace-make-advice #[(function buffer background) "  DDDDFDDFDFF DDDDFDDFD\nF$" [ad-make-advice trace-advice-name nil t background advice lambda let (trace-level (1+ trace-level)) trace-buffer get-buffer-create buffer save-excursion (set-buffer trace-buffer) (goto-char (point-max)) (if (= trace-level 1) (insert trace-separator)) insert trace-entry-message quote function trace-level ad-arg-bindings ad-do-it (set-buffer trace-buffer) (goto-char (point-max)) trace-exit-message ad-return-value (trace-level (1+ trace-level)) (pop-to-buffer trace-buffer) (goto-char (point-max)) (if (= trace-level 1) (insert trace-separator)) (pop-to-buffer trace-buffer) (goto-char (point-max))] 21] trace-function-internal #[(function buffer background) " #$ \"" [ad-add-advice function trace-make-advice buffer trace-buffer background around last ad-activate nil] 6] trace-is-traced #[(function) "\nNA" [trace-advice-name around function ad-advice-info] 4]] 5) (fset 'trace-function #[(function &optional buffer) " \n#" [trace-function-internal function buffer nil] 4 "\ Traces FUNCTION with trace output going to BUFFER. For every call of FUNCTION Lisp-style trace messages that display argument and return values will be inserted into BUFFER. This function generates the trace advice for FUNCTION and activates it together with any other advice there might be!! The trace BUFFER will popup whenever FUNCTION is called. Do not use this to trace functions that switch buffers or do any other display oriented stuff, use `trace-function-background' instead." (byte-code " $!\"D" [intern completing-read "Trace function: " obarray fboundp t read-buffer "Output to buffer: " trace-buffer] 6)]) (fset 'trace-function-background #[(function &optional buffer) " \n#" [trace-function-internal function buffer t] 4 "\ Traces FUNCTION with trace output going quietly to BUFFER. For every call of FUNCTION Lisp-style trace messages that display argument and return values will be inserted into BUFFER. This function generates the trace advice for FUNCTION and activates it together with any other advice there might be!! Trace output will quietly go to BUFFER without changing the window or buffer configuration at all." (byte-code " $!\"D" [intern completing-read "Trace function in background: " obarray fboundp t read-buffer "Output to buffer: " trace-buffer] 6)]) (fset 'untrace-function #[(function) " ! # !" [trace-is-traced function ad-remove-advice around trace-advice-name ad-update] 4 "\ Untraces FUNCTION and possibly activates all remaining advice. Activation is performed with `ad-update', hence remaining advice will get activated only if the advice of FUNCTION is currently active. If FUNCTION was not traced this is a noop." (byte-code "\"C" [ad-read-advised-function "Untrace function: " trace-is-traced] 3)]) (fset 'untrace-all #[nil " @\n@!\n! An*" [ad-advised-functions nil function ad-dO-vAr intern untrace-function] 3 "\ Untraces all currently traced functions." nil]) (provide 'trace)