;ELC ;;; compiled by jwz@thalidomide on Wed Mar 23 18:55:53 1994 ;;; from file /th/jwz/emacs19/lisp/eos/eos-debugger.el ;;; emacs version 19.10 Lucid (beta8). ;;; bytecomp version 2.22; 22-dec-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 eos-common nil current-hollow-arrow current-solid-arrow] 2) (fset 'eos::debugger-startup #[nil "!!! \"!!\"\n\"!!\" \"!!\"  !!!\"\"\"" [make-face stop-face solid-arrow-face hollow-arrow-face set-face-foreground eos::stop-color set-face-background face-background get-face default eos::solid-arrow-color eos::hollow-arrow-color eos::create-debugger-patterns eos::dbx-pattern-list make-pixmap "solid-arrow.xbm" solid-arrow "hollow-arrow.xbm" hollow-arrow "stop.xbm" stop set-pixmap-contributes-to-line-height nil] 5 "\ Actions to do at startup for eos-debugger.el"]) (byte-code "MMM" [eos::spro_te_eventset #[(msg pat) " # # #!\n \n & !+" [get-tooltalk-message-attribute msg arg_val 1 trap-id 4 filename read arg_ival 5 lineno eos::add-annotation stop debugger-stop stop-face return-tooltalk-message] 7] eos::spro_te_eventdel #[(msg pat) " # # #!\n\n $ !+" [get-tooltalk-message-attribute msg arg_val 0 trap-id 3 filename read arg_ival 4 lineno eos::delete-annotation debugger-stop return-tooltalk-message] 5] eos::spro_te_stopped #[(msg pat) " # #! #\n #! \n!\n #!!!q)!!`#\"\"\n   ! #!!!!!q)!!!!\"`#!!\"!\" !," [get-tooltalk-message-attribute msg arg_val 1 filename-hollow read arg_ival 3 lineno-hollow 4 filename-solid 6 lineno-solid eos::null-file eos::find-line debugger-arrow error "No screen to select" eos::valid-annotation current-solid-arrow extent-buffer delete-annotation nil t use-left-overflow set-buffer-left-margin-width eos::left-margin-width make-annotation solid-arrow whitespace set-annotation-data set-extent-face solid-arrow-face current-hollow-arrow hollow-arrow hollow-arrow-face return-tooltalk-message] 5]] 2) (defvar eos::current-dbx-proc-id nil "\ TT id for the current dbx") (defvar eos::current-debugger-clique-id nil "\ Clique_ID for the current debugger/dbx") (byte-code "MMMMMMM" [eos::update-dbx-proc-id #[(msg) " \"" [get-tooltalk-message-attribute msg sender eos::current-dbx-proc-id] 3] eos::update-current-debugger-clique-id #[(msg) " #" [get-tooltalk-message-attribute msg arg_val 0 eos::current-debugger-clique-id] 4] eos::show_no_arrows #[(msg pat) " ! !q) ! ! !q) !!" [eos::valid-annotation current-hollow-arrow extent-buffer delete-annotation nil current-solid-arrow return-tooltalk-message msg] 2] eos::update-and-show_no_arrows_no_stops #[(msg pat) " ! ! \"" [eos::update-dbx-proc-id msg eos::update-current-debugger-clique-id eos::show_no_arrows_no_stops pat] 3] eos::show_no_arrows_no_stops #[(msg pat) " ! ! !q) !!!q)!! !" [eos::update-dbx-proc-id msg eos::valid-annotation current-hollow-arrow extent-buffer delete-annotation nil current-solid-arrow eos::remove-all-from-annotation-list debugger-stop return-tooltalk-message] 2] eos::spro_te_location #[(msg pat) " # #! #\n #! \n!\n #!!!q)!!`#\"\"\n   ! #!!!!!q)!!!!\"`#!!\"!\" !," [get-tooltalk-message-attribute msg arg_val 1 filename-hollow read arg_ival 3 lineno-hollow 4 filename-solid 6 lineno-solid eos::null-file eos::find-line debugger-arrow error "No screen to select" eos::valid-annotation current-solid-arrow extent-buffer delete-annotation nil t use-left-overflow set-buffer-left-margin-width eos::left-margin-width make-annotation solid-arrow whitespace set-annotation-data set-extent-face solid-arrow-face current-hollow-arrow hollow-arrow hollow-arrow-face return-tooltalk-message] 5] eos::spro_te_visit #[(msg pat) " # #! #!\n ! !q) !  \nÚ ! #! ! !q) ! !`#  \" \" #! !+" [get-tooltalk-message-attribute msg arg_val 1 filename read arg_ival 3 lineno 4 stackpos eos::valid-annotation current-hollow-arrow extent-buffer delete-annotation nil eos::null-file eos::find-line debugger-arrow error "No screen to select" t use-left-overflow set-buffer-left-margin-width eos::left-margin-width make-annotation hollow-arrow whitespace set-annotation-data set-extent-face hollow-arrow-face return-tooltalk-message] 5]] 2) (fset 'eos::create-debugger-patterns #[nil " !) !) !) !) !) !) !) !) !) !) !) !) !) " [(category TT_OBSERVE scope TT_SESSION class TT_NOTICE op "SPRO_TE_STOPPED" callback 'eos::spro_te_stopped) pattern-desc make-tooltalk-pattern (category TT_OBSERVE scope TT_SESSION class TT_NOTICE op "SPRO_SE_STARTED" callback 'eos::show_no_arrows) (category TT_OBSERVE scope TT_SESSION class TT_NOTICE op "SPRO_TE_STEPPED" callback 'eos::show_no_arrows) (category TT_OBSERVE scope TT_SESSION class TT_NOTICE op "SPRO_TE_CONTINUED" callback 'eos::show_no_arrows) (category TT_OBSERVE scope TT_SESSION class TT_NOTICE op "SPRO_SE_DROPPED" callback 'eos::show_no_arrows_no_stops) (category TT_OBSERVE scope TT_SESSION class TT_NOTICE op "SPRO_SE_DEBUGGED" callback 'eos::update-and-show_no_arrows_no_stops) (category TT_OBSERVE scope TT_SESSION class TT_NOTICE op "SPRO_SE_REVIVED" callback 'eos::update-and-show_no_arrows_no_stops) (category TT_OBSERVE scope TT_SESSION class TT_NOTICE op "SPRO_SE_ATTACHED" callback 'eos::update-and-show_no_arrows_no_stops) (category TT_OBSERVE scope TT_SESSION class TT_NOTICE op "SPRO_SE_GONE" callback 'eos::show_no_arrows) (category TT_OBSERVE scope TT_SESSION class TT_NOTICE op "SPRO_TE_LOCATION" callback 'eos::spro_te_location) (category TT_OBSERVE scope TT_SESSION class TT_NOTICE op "SPRO_TE_VISIT" callback 'eos::spro_te_visit) (category TT_OBSERVE scope TT_SESSION class TT_NOTICE op "SPRO_TE_EVENTSET" callback 'eos::spro_te_eventset) (category TT_OBSERVE scope TT_SESSION class TT_NOTICE op "SPRO_TE_EVENTDEL" callback 'eos::spro_te_eventdel)] 14 "\ returns a list of patterns"]) (fset 'eos::register-debugger-patterns #[nil "\n\" " [mapcar register-tooltalk-pattern eos::dbx-pattern-list eos::register-debugger-extra-patterns] 3 "\ register all dbx patterns"]) (fset 'eos::unregister-debugger-patterns #[nil "\n\" " [mapcar unregister-tooltalk-pattern eos::dbx-pattern-list eos::unregister-debugger-extra-patterns] 3 "\ unregister all dbx patterns"])