;ELC ;;; compiled by jwz@thalidomide on Thu Apr 21 01:04:31 1994 ;;; from file /th/jwz/emacs19/lisp/energize/energize-mode.el ;;; emacs version 19.10 Lucid (beta16). ;;; bytecomp version 2.23; 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.")) (fset 'energize-write-file-buffer-p #[nil "p!" [energize-buffer-p] 2]) (fset 'energize-beginning-of-defun #[(&optional arg) "p!!W[!Vouo`!us` p``&)SU" [arg 1 energize-buffer-p error "Not an Energize buffer" 0 energize-end-of-defun -1 extent-at pos map-extents #[(extent dummy) " !`W\nb" [extent-start-position extent pos] 2] nil t] 8 "\ Move point to the beginning of the current top-level form. With a numeric argument, move back that many forms." "_p"]) (fset 'energize-end-of-defun #[(&optional arg) "p!!W[!Vmum`!us`p``&)SU" [arg 1 energize-buffer-p error "Not an Energize buffer" 0 energize-beginning-of-defun extent-at pos map-extents #[(extent dummy) " !`V\nb" [extent-end-position extent pos] 2] nil t] 8 "\ Move point to the end of the current top-level form. With a numeric argument, move forward over that many forms." "_p"]) (byte-code "MMMM" [energize-write-data-hook #[(name) "p! \"! \"ȇ" [energize-buffer-p message "saving %s to Energize..." name energize-execute-command "save" energize-update-menubar "saved %s to Energize." t] 3] energize-revert-buffer-insert-file-contents-hook #[(file noconfirm) "p!!~ ! ) \"! ! \" !ʇ" [energize-buffer-p error "energize-revert-buffer-hook called for a non-energize buffer" file buffer-file-name file-exists-p nil unlock-buffer erase-buffer insert-file-contents t energize-execute-command "revert" "File %s no longer exists!"] 3] energize-kill-buffer-hook #[nil "p!p!!ć" [energize-buffer-p energize-request-kill-buffer error "energize-kill-buffer-hook called on a non-energize buffer" t] 2] energize-edit-definition-default #[nil "hz>!uv!uv#u`!!uv`{)" [(119 95) looking-at "\\sw\\|\\s_\\|\\'" 1 "\\sw\\|\\s_" re-search-backward nil t forward-sexp -1 "\\s'"] 4]] 2) (fset 'energize-edit-definition #[(def) " $ !" [connected-to-energize-p energize-execute-command "editdef" nil def t find-tag] 5 "\ If connected to Energize, the Energize database is used. Otherwise, `find-tag' is invoked. The X selection is used as a default, if it exists and contains no newlines. Otherwise, the preceeding token is used as a default. If invoked from a mouse command, prompting happens with a dialog box; otherwise, the minibuffer is used." (byte-code " \n!\n!\n!ŇƉ \"͕Oo\"͉Oo\"  \"Ɖ%!!\"!:@ۚ*C" [connected-to-energize-p menu-event-p last-command-event button-press-event-p button-release-event-p (nil) nil def default x-selection-owner-p x-get-selection string-match "\\`[ \n]+" 0 "[ \n]+\\'" "[ \n]" energize-edit-definition-default completing-read format "Edit definition [%s]: " "Edit definition: " fboundp find-tag-tag find-tag-default require tags "etags" ""] 7)]) (byte-code " # #" [define-key global-map "" energize-edit-definition "" energize-build-a-target] 4) (fset 'disconnect-from-energize-query #[nil "!! " [y-or-n-p "Disconnect from Energize? " error "not confirmed" disconnect-from-energize] 2 "\ Disconnect this emacs from the Energize server, after confirming." nil]) (byte-code "MMMMMMMM" [energize-insert-slots #[(got-to-top-p l) "=! y##!!!!`d=!p \")u" [major-mode energize-project-mode error "Command available only in project buffers" got-to-top-p beginning-of-buffer 0 search-backward "Related Projects:" nil t "Associated Files:" looking-at previous-line 2 "$" next-line 1 newline mapcar #[(i) "c " [i newline] 1] l 18] 4] energize-insert-rule #[nil "\"" [energize-insert-slots t (" Rules:" " : lcc -Xez -c -g -Xa -o $object $source")] 3 nil nil] energize-insert-object-file-target #[nil "\"" [energize-insert-slots nil (" Object File: " " Source File: " " Build Rule: ")] 3 nil nil] energize-insert-executable-target #[nil "\"" [energize-insert-slots nil (" Executable: " " Build Command: lcc -Xf -Xez -o $object ...")] 3 nil nil] energize-insert-library-target #[nil "\"" [energize-insert-slots nil (" Library: " " Build Command: energize_ar -Xez -remove -ranlib clq $object \\" " ...")] 3 nil nil] energize-insert-collection-target #[nil "\"" [energize-insert-slots nil (" Collection: " " Build Command: energize_collect -Xez -o $object ...")] 3 nil nil] energize-insert-file-target #[nil "\"" [energize-insert-slots nil (" File Target: " " Dependencies: ..." " Build Command: ")] 3 nil nil] energize-insert-target-target #[nil "\"" [energize-insert-slots nil (" Target: " " Dependencies: ..." " Build Command: ")] 3 nil nil]] 2) (defvar energize-map nil "\ *Parent keymap for all Energize buffers") (defvar energize-top-level-map nil "\ *Keymap for the Energize top-level buffer") (defvar energize-debugger-map nil "\ *Keymap for Energize debugger buffers") (defvar energize-breakpoint-map nil "\ *Keymap for Energize breakpoint-lists") (defvar energize-browser-map nil "\ *Keymap for Energize browser buffers") (defvar energize-project-map nil "\ *Keymap for Energize project buffers") (defvar energize-no-file-project-map nil "\ *Keymap for Energize project buffers not associated with a file") (defvar energize-source-map nil "\ *Keymap for Energize source buffers") (defvar energize-mode-hook nil "\ Hook called when each energize buffer is created.") (defvar energize-top-level-mode-hook nil "\ Hook called when the energize top-level buffer is created.") (defvar energize-project-mode-hook nil "\ Hook called when an Energize project buffer is created.") (defvar energize-no-file-project-mode-hook nil "\ Hook called when an Energize project buffer with no file is created.") (defvar energize-breakpoint-mode-hook nil "\ Hook called when an Energize breakpoint-list buffer is created.") (defvar energize-browser-mode-hook nil "\ Hook called when an Energize browser buffer is created.") (defvar energize-log-mode-hook nil "\ Hook called when an Energize log buffer is created.") (defvar energize-manual-mode-hook nil "\ Hook called when an Energize manual buffer is created.") (defvar energize-source-mode-hook nil "\ Hook called when any source buffer is placed in the Energize minor-mode.") (byte-code " \"####### \"\"!#############) ))\")\")#)#)#)#)#)#6 66\"6\"7 77\"7\"8 88\"8\"9 99\"9\"" [energize-map make-sparse-keymap set-keymap-name define-key "" energize-find-project "" energize-browse-error " " energize-browse-language-elt "" energize-browse-tree "" energize-browse-class "" energize-default-compile-file button3 energize-popup-menu energize-top-level-map set-keymap-parent suppress-keymap "?" describe-mode " " energize-top-next-project "n" "p" energize-top-prev-project "N" "P" " " (shift tab) (control I) "Q" disconnect-from-energize-query "d" energize-top-debug "" energize-top-delete-project "e" energize-top-edit-project energize-project-map " " energize-import-file "" energize-project-edit-file "" energize-project-sort-alpha " " energize-project-sort-link "" energize-project-view-names "" energize-project-view-options energize-no-file-project-map energize-breakpoint-map energize-browser-map energize-source-map] 4) (defvar energize-menu-state nil "\ State of the energize menu items of the buffer. Automatically updated by the kernel when the state changes") (defvar energize-default-menu-state nil "\ State of the energize default menu items. Automatically updated by the kernel when the state changes") (byte-code "MM######" [energize-mode-internal #[nil "!#!!! !!" [make-local-variable write-file-data-hooks add-hook energize-write-data-hook t revert-buffer-insert-file-contents-function energize-revert-buffer-insert-file-contents-hook kill-buffer-hook energize-kill-buffer-hook require-final-newline energize-menu-state run-hooks energize-mode-hook] 4] energize-non-file-mode-internal #[nil " !LŇ" [buffer-file-name buffer-name make-local-variable version-control never nil] 2] put energize-top-level-mode mode-class special energize-project-mode energize-no-file-project-mode energize-breakpoint-mode energize-browser-mode energize-log-mode] 4) (fset 'energize-top-level-mode #[nil " \n! ɚ!L!" [energize-mode-internal use-local-map energize-top-level-map energize-top-level-mode major-mode "Energize" mode-name energize-non-file-mode-internal screen-title-format "%S: %b" make-local-variable "%S: Top-Level" run-hooks energize-top-level-mode-hook] 2 "\ Major mode for the Energize top-level buffer. In addition to normal cursor-motion commands, the following keys are bound: \\{energize-top-level-map}" nil]) (fset 'energize-project-mode #[nil " \n! AW !" [energize-mode-internal use-local-map energize-project-map energize-project-mode major-mode "Project" mode-name energize-protocol-level 8 energize-non-file-mode-internal run-hooks energize-project-mode-hook] 2 "\ Major mode for the Energize Project buffers. In addition to the normal editing commands, the following keys are bound: \\{energize-project-map}" nil]) (fset 'energize-no-file-project-mode #[nil " \n! !" [energize-mode-internal use-local-map energize-no-file-project-map energize-no-file-project-mode major-mode "NoFileProject" mode-name energize-non-file-mode-internal run-hooks energize-no-file-project-mode-hook] 2 "\ Major mode for the Energize Project buffers not associated with a file. In addition to the normal editing commands, the following keys are bound: \\{energize-no-file-project-map}" nil]) (fset 'energize-breakpoint-mode #[nil " \n! !" [energize-mode-internal use-local-map energize-breakpoint-map energize-breakpoint-mode major-mode "Breakpoint" mode-name energize-non-file-mode-internal run-hooks energize-breakpoint-mode-hook] 2 "\ Major mode for the Energize Breakpoint-list buffers. In addition to the normal editing commands, the following keys are bound: \\{energize-breakpoint-map}" nil]) (fset 'energize-browser-mode #[nil " \n! !" [energize-mode-internal use-local-map energize-browser-map energize-browser-mode major-mode "Browser" mode-name energize-non-file-mode-internal run-hooks energize-browser-mode-hook] 2 "\ Major mode for the Energize Browser buffers. In addition to the normal editing commands, the following keys are bound: \\{energize-browser-map}" nil]) (fset 'energize-log-mode #[nil " \n! !" [energize-mode-internal use-local-map energize-map energize-log-mode major-mode "Energize-Log" mode-name energize-non-file-mode-internal run-hooks energize-log-mode-hook] 2 "\ Major mode for the Energize Error Log and System Log buffers. In addition to the normal editing commands, the following keys are bound: \\{energize-map}" nil]) (fset 'energize-manual-mode #[nil " \n! !" [energize-mode-internal use-local-map energize-map energize-manual-mode major-mode "Energize-Manual" mode-name energize-non-file-mode-internal run-hooks energize-manual-mode-hook] 2 "\ Major mode for the Energize UNIX Manual buffers. In addition to the normal editing commands, the following keys are bound: \\{energize-map}" nil]) (byte-code "! \"‡" [boundp energize-source-mode nil minor-mode-alist append ((energize-source-mode " Energize"))] 3) (fset 'energize-source-minor-mode #[nil " !  \"\"̉ \"*!f!*!" [energize-mode-internal make-local-variable energize-source-mode t energize-source-map make-sparse-keymap dest-map source-map set-keymap-parent current-local-map set-keymap-name energize-minor-mode-map nil prefixes mapper #[(key val) " ! B\" \") B\"\" #" [keymapp val append prefixes key nil map-keymap mapper define-key dest-map apply vector] 8] map-keymap keymap-parent use-local-map run-hooks energize-source-mode-hook] 4 "\ Minor mode for adding additional keybindings to Energize source buffers. The following key bindings are added: \\{energize-source-map} Since this minor mode defines keys, once it gets turned on you can't really turn it off." nil]) (fset 'recenter-definition #[nil " =!!!" [nil major-mode c++-mode c++-beginning-of-defun 1 beginning-of-defun recenter] 2 "\ Position the beginning of the current definition at the top of the screen." nil]) (define-key global-map "" 'recenter-definition) (fset 'energize-hide-error-glyphs-in-form #[nil " ` ` }eb`! !dW \" \" !g-" [energize-beginning-of-defun energize-end-of-defun nil e end start extent-at extent-end-position extent-property begin-glyph set-extent-begin-glyph next-extent] 4 "\ Hides the error icons in the current toplevel form. You cannot get them back until you recompile the file." nil]) (byte-code "MM" [energize-next-extent-for #[(command prev not-this-one) "‰ om`p\" = =  \"ʪu P) +" [not-this-one none nil result e last-e prev extent-at energize-menu-item-for-name command -1 1] 4] energize-next-extent-on-line-for #[(command not-this-one) "``}eb\n #*" [nil energize-next-extent-for command not-this-one] 4]] 2) (fset 'energize-top-next-project #[nil "`# !U !u#) !b!*" [p energize-next-extent-for "editproject" nil t e extent-start-position extent-length error "no next project"] 5 "\ Position the cursor at the beginning of the following project." nil]) (fset 'energize-top-prev-project #[nil "`É# !UuÉ#) !b!*" [p energize-next-extent-for "editproject" t e extent-start-position -1 error "no previous project"] 5 "\ Position the cursor at the beginning of the preceeding project." nil]) (fset 'energize-top-execute-command #[(command) " \" Q! \")" [energize-next-extent-on-line-for command nil error "no following field on this line that handles the `" "' Energize command." e energize-execute-command] 4]) (fset 'energize-top-debug #[nil "!" [energize-top-execute-command "debugprogram"] 2 "\ Execute the `Debug' command on the project at or following point." nil]) (fset 'energize-top-delete-project #[nil "!" [energize-top-execute-command "deleteproject"] 2 "\ Delete the project at or following point." nil]) (fset 'energize-top-edit-project #[nil "!" [energize-top-execute-command "editproject"] 2 "\ Edit the project at or following point." nil]) (byte-code "MMM" [energize-project-next-field #[(&optional prev) "`p\"\n !Sb !Tb`p\"\nŪuo`p#\nŪun\n`p\" !b`p\"?ut)" [extent-at e prev extent-start-position extent-end-position -1 1 write-protected] 5 nil nil] energize-project-prev-field #[nil "!" [energize-project-next-field t] 2 nil nil] energize-project-edit-file #[nil "!" [energize-top-execute-command "editfile"] 2 nil nil]] 2) (fset 'energize-project-prune-unused-rules #[nil "eb!yĉ!”•{ DBhUysy[ )   @ b @!Q# A Ӕē AABf) A K b  @ AA A@bhUysy`|ĉ \") A A b   @ A@b @!Q!!!۔”b!ޱ۔b۔ە|!c@ĉA4)T A + ĉ," [re-search-forward "^[ ]+Rules:" 1 "^[ ]*\\(\\.[a-zA-Z]+\\(([0-9]+)\\)?\\):" nil eor all-rules rules-regexp looking-at point-marker 92 rule rest "^[ ]+" regexp-quote ":" pattern t make-marker 0 p delq i referents "[^:(]+\\((\\([0-9]+\\))\\|\\):" error "internal error" 2 "(" int-to-string ")"] 5 "\ Deletes all unused rules from the Rules: part of a Project buffer, and renumbers the remaining rules sequentally." nil])