home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / lemacs-19.6 / lisp / energize / energize-mode.el < prev    next >
Encoding:
Text File  |  1993-03-18  |  30.5 KB  |  860 lines
  1. ;;; -*- Mode:Emacs-Lisp -*-
  2. ;;; Copyright ⌐ 1991-1993 by Lucid, Inc.  All Rights Reserved.
  3.  
  4. (require 'gdb)
  5. (require 'compile)
  6. (or (and (fboundp 'ask-user-about-lock)
  7.      (not (eq 'autoload
  8.           (car-safe (symbol-function 'ask-user-about-lock)))))
  9.     (load-library "userlock"))
  10.  
  11. ;;; Energize advised functions
  12.  
  13. (defun energize-next-error (&optional arg)
  14.   "If the current buffer is an Energize buffer, the server is consulted.
  15. In this case, a prefix argument means ``previous error''.  Otherwise,
  16. use the original definition of next-error."
  17.   (interactive "P")
  18.   (cond ((and (boundp 'compilation-error-list)
  19.           (boundp 'compilation-error-buffer)
  20.           compilation-error-list
  21.           compilation-error-buffer
  22.           (bufferp compilation-error-buffer)
  23.           (buffer-name compilation-error-buffer))
  24.      (energize-orig-next-error arg))
  25.     (t
  26.      (energize-execute-command (if arg "previouserror" "nexterror"))))
  27. ;  (if (energize-buffer-p (current-buffer))
  28. ;      (energize-execute-command (if arg "previouserror" "nexterror"))
  29. ;    (energize-orig-next-error arg))
  30.   )
  31.  
  32. ;(defun energize-previous-error (&optional arg)
  33. ;  "If the current buffer is an Energize buffer, the server is consulted.
  34. ;In this case, a prefix argument means ``next error''.  Otherwise,
  35. ;use the original definition of previous-error."
  36. ;  (interactive "P")
  37. ;  (if (energize-buffer-p (current-buffer))
  38. ;      (energize-execute-command (if arg "nexterror" "previouserror"))
  39. ;    (energize-orig-previous-error arg)))
  40.  
  41. (defun energize-set-visited-file-name (filename)
  42.   "This is illegal for Energize buffers."
  43.   (interactive "FSet visited file name: ")
  44.   (if (and (energize-write-file-buffer-p)
  45.        (not (equal filename buffer-file-name)))
  46.       (error "Can't change the name associated with an Energize buffer.")
  47.     (energize-orig-set-visited-file-name filename)
  48.     (if (energize-buffer-p (current-buffer))
  49.     (energize-mode-internal))))
  50.  
  51.  
  52. (defun energize-find-file-noselect (filename &optional nowarn)
  53.   "When connected to Energize, if the visited file is one that
  54. Energize knows about, it will be correctly annotated."
  55.   (if (and (connected-to-energize-p)
  56.        (not (file-directory-p filename))
  57.        (energize-query-buffer filename t))
  58.       ;; after-find-file and abbreviate-file-name are called from
  59.       ;; energize-buffer-creation-hook-function, which is run from
  60.       ;; editorside.c (way down under energize-query-buffer).
  61.       ;; This is a mess...
  62.       (energize-query-buffer filename)
  63.     (energize-orig-find-file-noselect filename nowarn)))
  64.  
  65.  
  66. (defun energize-ask-user-about-lock (fn opponent)
  67.   "Energize buffers do this by asking the server."
  68.   (if (energize-buffer-p (current-buffer))
  69.       t
  70.     (energize-orig-ask-user-about-lock fn opponent)))
  71.  
  72. (defun energize-init ()
  73.   (if (= 0 (energize-bits 1024))
  74.       (energize-announce (get 'energize 'energize))))
  75.  
  76. ;; true if current-buffer is an energize buffer that does not support
  77. ;; the real write-file and so has to do the special energize way of doing
  78. ;; write-file that loses the annotations.
  79. (defun energize-write-file-buffer-p ()
  80. ;;  (and (energize-buffer-p (current-buffer)
  81. ;;       (not (eq major-mode 'energize-project-mode)))
  82.   (energize-buffer-p (current-buffer)))
  83.  
  84. (defun energize-write-file (filename)
  85.   "When executed on an Energize buffer, this will cause all 
  86. annotations to be lost (that is, the buffer will become a normal
  87. buffer, not one that the Energize server knows about.)"
  88.   (interactive
  89.    (list (let ((prompt (if (energize-write-file-buffer-p)
  90.                "Write Energize buffer to file: "
  91.              "Write file: ")))
  92.        (if buffer-file-name
  93.            (read-file-name prompt nil nil nil nil)
  94.          (read-file-name prompt (cdr (assq 'default-directory
  95.                            (buffer-local-variables)))
  96.                  nil nil (buffer-name))))))
  97.   (if (not (energize-write-file-buffer-p))
  98.       (energize-orig-write-file filename)
  99.     ;; else...
  100.     (if (and (file-exists-p filename)
  101.          (not
  102.           (yes-or-no-p (format "File %s already exists.  Overwrite it? "
  103.                    filename))))
  104.     (error "Aborted"))
  105.     (write-region (point-min) (point-max) filename nil nil)
  106.     (if buffer-file-name
  107.     (revert-buffer t t)) ; revert this buffer from the Energize server
  108.     (kill-buffer nil) ; kill the current buffer, to lose Energize properties
  109.     (set-window-buffer ; and now visit the "new" file, and all that entails
  110.      (selected-window)
  111.      (find-file-noselect filename))))
  112.  
  113.  
  114. (defun energize-gdb-break (arg)
  115.   "If the current buffer is an Energize buffer, then this works by talking 
  116. to the server."
  117.   (interactive "P")
  118.   (if (not (energize-buffer-p (current-buffer)))
  119.       (energize-orig-gdb-break arg)
  120.     (energize-execute-command "setbreakpoint")))
  121.  
  122. (defun energize-gdb-step (arg)
  123.   "If the current buffer is an Energize buffer, then this works by talking to
  124. the server."
  125.   (interactive "p")
  126.   (if (not (energize-buffer-p (current-buffer)))
  127.       (energize-orig-gdb-step arg)
  128.     (while (> arg 0)
  129.       (energize-execute-command "steponce")
  130.       (setq arg (1- arg)))))
  131.  
  132. (defun energize-gdb-stepi (arg)
  133.   "If the current buffer is an Energize buffer, then this works by talking to
  134. the server."
  135.   (interactive "p")
  136.   (if (not (energize-buffer-p (current-buffer)))
  137.       (energize-orig-gdb-step arg)
  138.     ;; there's no energize command for this, so do it this way...
  139.     (save-excursion
  140.       (set-buffer "*Debugger*")
  141.       (goto-char (point-max))
  142.       (insert (format "stepi %d" arg))
  143.       (comint-send-input))))
  144.  
  145. (defun energize-beginning-of-defun (&optional arg)
  146.   "Move point to the beginning of the current top-level form.
  147. With a numeric argument, move back that many forms."
  148.   (interactive "p")
  149.   (or arg (setq arg 1))
  150.   (if (not (energize-buffer-p (current-buffer)))
  151.       ;;(energize-orig-beginning-of-defun arg)
  152.       (error "Not an Energize buffer")
  153.     (if (< arg 0)
  154.     (energize-end-of-defun (- arg))
  155.       (while (> arg 0)
  156.         (or (bobp) (forward-char -1))
  157.         (while (and (not (bobp)) (null (extent-at (point))))
  158.           (forward-char -1))
  159.         (let ((pos (point)))
  160.           (map-extents 
  161.            (function
  162.             (lambda (extent dummy)
  163.           (if (< (setq pos (extent-start-position extent)) (point))
  164.           (goto-char pos))))
  165.            (current-buffer) (point) (point) nil t))
  166.         (setq arg (1- arg))))))
  167.  
  168. (defun energize-end-of-defun (&optional arg)
  169.   "Move point to the end of the current top-level form.
  170. With a numeric argument, move forward over that many forms."
  171.   (interactive "p")
  172.   (or arg (setq arg 1))
  173.   (if (not (energize-buffer-p (current-buffer)))
  174.       ;;(energize-orig-end-of-defun arg)
  175.       (error "Not an Energize buffer")
  176.     (if (< arg 0)
  177.     (energize-beginning-of-defun (- arg))
  178.       (while (> arg 0)
  179.         (or (eobp) (forward-char 1))
  180.         (while (and (not (eobp)) (null (extent-at (point))))
  181.           (forward-char 1))
  182.         (let ((pos (point)))
  183.           (map-extents 
  184.            (function
  185.             (lambda (extent dummy)
  186.           (if (> (setq pos (extent-end-position extent)) (point))
  187.           (goto-char pos))))
  188.            (current-buffer) (point) (point) nil t))
  189.         (setq arg (1- arg))))))
  190.  
  191. (defun energize-normal-mode (&optional find-file)
  192. "If this is an Energize buffer, then the Energize modes are turned on as well."
  193.   (interactive)
  194.   (energize-orig-normal-mode find-file)
  195.   (if (and (energize-buffer-p (current-buffer))
  196.        (not inside-energize-buffer-creation-hook-function))
  197.       (funcall energize-create-buffer-hook (current-buffer))))
  198.  
  199.  
  200.  
  201. ;;; Patching Energize into file I/O via the standard hooks.
  202.  
  203. (defun energize-write-data-hook (name)
  204.   ;; for use as the last element of write-file-data-hooks
  205.   ;; in energize buffers.
  206.   (if (energize-buffer-p (current-buffer))
  207.       (progn
  208.     (message "saving %s to Energize..." name)
  209.     (energize-execute-command "save")
  210.     (energize-update-menubar)
  211.     (message "saved %s to Energize." name)
  212.     t)
  213.     nil))
  214.  
  215. (defun energize-revert-buffer-insert-file-contents-hook (file noconfirm)
  216.   ;; for use as the value of revert-buffer-insert-file-contents-function
  217.   ;; in energize buffers.
  218.   (if (not (energize-buffer-p (current-buffer)))
  219.       (error "energize-revert-buffer-hook called for a non-energize buffer"))
  220.   (widen)
  221.   (cond ((equal file buffer-file-name)        ; reverting from energize
  222.      (energize-execute-command "revert"))
  223.     (t                    ; reverting from autosave
  224.      (if (not (file-exists-p file))
  225.          (error "File %s no longer exists!" file))
  226.      (erase-buffer)
  227.      (insert-file-contents file)))
  228.   t)
  229.  
  230.  
  231. (defun energize-kill-buffer-hook ()
  232.   ;; for use as the value of kill-buffer-hook in energize buffers.
  233.   (if (energize-buffer-p (current-buffer))
  234.       (energize-request-kill-buffer (current-buffer))
  235.       (error "energize-kill-buffer-hook called on a non-energize buffer"))
  236.   t)
  237.  
  238.  
  239. ; 
  240. ; ;;; An importing version of find-file.
  241. ; 
  242. ; (fset 'find-file-in-energize 'energize-find-file)
  243. ; (defun energize-find-file (name)
  244. ;   "When connected to energize, energize will know about this file."
  245. ;   (interactive (list (read-file-name 
  246. ;               (if (connected-to-energize-p)
  247. ;               "Energize find file: "
  248. ;             "Find file: "))))
  249. ;   (if (and (connected-to-energize-p)
  250. ;        (not (file-directory-p name))
  251. ;        (or (energize-query-buffer name t)
  252. ;            (y-or-n-p (format "Import \"%s\" into Energize? " name))))
  253. ;       (let ((buffer (energize-query-buffer name))) ; create if necessary
  254. ;     (or (bufferp buffer) (error "couldn't import %s" name))
  255. ;     ;; change name, as energize might have trunamed it.
  256. ;     (setq name (or (buffer-file-name buffer) (error "no name?")))
  257. ;     ;; if it was in a buffer already, give it the energize keybindings.
  258. ;     (save-excursion
  259. ;       (set-buffer buffer)
  260. ;       (if (not energize-source-mode)
  261. ;           (energize-source-minor-mode)))
  262. ;     ))
  263. ;   ;; find-file will switch to the buffer if we created it above.
  264. ;   (find-file name))
  265.  
  266.  
  267. ;;; 
  268.  
  269. (defun energize-edit-definition-default ()
  270.   (save-excursion
  271.     (if (not (memq (char-syntax (preceding-char)) '(?w ?_)))
  272.     (while (not (looking-at "\\sw\\|\\s_\\|\\'"))
  273.       (forward-char 1)))
  274.     (while (looking-at "\\sw\\|\\s_")
  275.       (forward-char 1))
  276.     (if (re-search-backward "\\sw\\|\\s_" nil t)
  277.     (progn (forward-char 1)
  278.            (buffer-substring (point)
  279.                  (progn (forward-sexp -1)
  280.                     (while (looking-at "\\s'")
  281.                       (forward-char 1))
  282.                     (point))))
  283.       nil)))
  284.  
  285. ;;; This prompts in the minibuffer, ##### with no completion.
  286. (defun energize-edit-definition (def)
  287.   "If connected to Energize, the Energize database is used.  
  288. Otherwise, `find-tag' is invoked.
  289. The X selection is used as a default, if it exists and contains no 
  290. newlines.  Otherwise, the preceeding token is used as a default.  
  291. If invoked from a mouse command, prompting happens with a dialog box; 
  292. otherwise, the minibuffer is used."
  293.   (interactive
  294.    (if (and (connected-to-energize-p)
  295.         (or (menu-event-p last-command-event)
  296.         (button-press-event-p last-command-event)
  297.         (button-release-event-p last-command-event)))
  298.        '(nil)
  299.      (list
  300.       (let (default
  301.         def)
  302.     (cond ((x-selection-owner-p)
  303.            (setq default (x-get-selection))
  304.            (while (string-match "\\`[ \t\n]+" default)
  305.          (setq default (substring default (match-end 0))))
  306.            (while (string-match "[ \t\n]+\\'" default)
  307.          (setq default (substring default 0 (match-beginning 0))))
  308.            (if (string-match "[ \t\n]" default)
  309.            (setq default nil))))
  310.     (or default (setq default (energize-edit-definition-default)))
  311.     (setq def
  312.           (if (connected-to-energize-p)
  313.           (completing-read
  314.            (if default
  315.                (format "Edit definition [%s]: " default)
  316.              "Edit definition: ")
  317.            nil nil; 'energize-edit-def-predicate
  318.            nil nil)
  319.         (or (and (fboundp 'find-tag-tag) (fboundp 'find-tag-default))
  320.             (require 'tags "etags"))
  321.         (find-tag-tag "Edit definition: ")))
  322.     (if (consp def) (setq def (car def)))
  323.     (if (equal "" def) (setq def default))
  324.     def))))
  325.   (if (connected-to-energize-p)
  326.       (energize-execute-command "editdef" () def t)
  327.     (find-tag def)))
  328.  
  329. (define-key global-map "\M-." 'energize-edit-definition)
  330. (define-key global-map "\M-B" 'energize-build-a-target)   ; M-Sh-B
  331.  
  332. (defun disconnect-from-energize-query ()
  333.   "Disconnect this emacs from the Energize server, after confirming."
  334.   (interactive)
  335.   (or (y-or-n-p "Disconnect from Energize? ") (error "not confirmed"))
  336.   (disconnect-from-energize))
  337.  
  338.  
  339. ;;; Functions to add commands to the project buffers
  340. (defun energize-insert-slots (got-to-top-p l)
  341.   (if (not (eq major-mode 'energize-project-mode))
  342.       (error "Command available only in project buffers"))
  343.   ;; move to a suitable place
  344.   (if got-to-top-p
  345.       (beginning-of-buffer)
  346.     (beginning-of-line))
  347.   ;; go before "Associated Projects" and "Related Files"
  348.   (if (or (search-backward "Related Projects:" () t)
  349.       (search-backward "Associated Files:" () t)
  350.       (looking-at "Related Projects:")
  351.       (looking-at "Associated Files:"))
  352.       (previous-line 2))
  353.   ;; find empty space
  354.   (while (and (not (looking-at "$"))
  355.           (not (eq (point) (point-max))))
  356.     (next-line 1))
  357.   (newline)
  358.   (save-excursion
  359.     (mapcar '(lambda (i) (insert i) (newline)) l))
  360.   ;; this is magic
  361.   (forward-char 18))
  362.  
  363. (defun energize-insert-rule ()
  364.   (interactive)
  365.   (energize-insert-slots
  366.    t
  367.    '("           Rules:"
  368.      "          <rule>: lcc -Xez -c -g -Xa -o $object $source")))
  369.  
  370. (defun energize-insert-object-file-target ()
  371.   (interactive)
  372.   (energize-insert-slots
  373.    ()
  374.    '("     Object File: <object-file>"
  375.      "     Source File: <source-file>"
  376.      "      Build Rule: <rule>")))
  377.  
  378. (defun energize-insert-executable-target ()
  379.   (interactive)
  380.   (energize-insert-slots
  381.    ()
  382.    '("      Executable: <executable>"
  383.      "   Build Command: lcc -Xf -Xez -o $object <object-file> ...")))
  384.  
  385. (defun energize-insert-library-target ()
  386.   (interactive)
  387.   (energize-insert-slots
  388.    ()
  389.    '("         Library: <library>"
  390.      "   Build Command: energize_ar -Xez -remove -ranlib clq $object \\"
  391.      "                    <object-file> ...")))
  392.  
  393. (defun energize-insert-collection-target ()
  394.   (interactive)
  395.   (energize-insert-slots
  396.    ()
  397.    '("      Collection: <collection>"
  398.      "   Build Command: energize_collect -Xez -o $object <object-file> ...")))
  399.  
  400. (defun energize-insert-file-target ()
  401.   (interactive)
  402.   (energize-insert-slots
  403.    ()
  404.    '("     File Target: <target>"
  405.      "    Dependencies: <target> ..."
  406.      "   Build Command: <shell-command>")))
  407.  
  408. (defun energize-insert-target-target ()
  409.   (interactive)
  410.   (energize-insert-slots
  411.    ()
  412.    '("          Target: <target>"
  413.      "    Dependencies: <target> ..."
  414.      "   Build Command: <shell-command>")))
  415.  
  416.  
  417.  
  418. ;;; Keymaps for Energize buffers.
  419.  
  420. (defvar energize-map nil "*Parent keymap for all Energize buffers")
  421. (defvar energize-top-level-map nil "*Keymap for the Energize top-level buffer")
  422. (defvar energize-user-input-map nil
  423.   "*Parent keymap for Energize input buffers")
  424. (defvar energize-debugger-map nil "*Keymap for Energize debugger buffers")
  425. (defvar energize-breakpoint-map nil "*Keymap for Energize breakpoint-lists")
  426. (defvar energize-browser-map nil "*Keymap for Energize browser buffers")
  427. (defvar energize-project-map nil "*Keymap for Energize project buffers")
  428. (defvar energize-no-file-project-map nil
  429.   "*Keymap for Energize project buffers not associated with a file")
  430. (defvar energize-source-map nil "*Keymap for Energize source buffers")
  431.  
  432. (defvar energize-mode-hook nil
  433.   "Hook called when each energize buffer is created.")
  434. (defvar energize-top-level-mode-hook nil
  435.   "Hook called when the energize top-level buffer is created.")
  436. (defvar energize-project-mode-hook nil
  437.   "Hook called when an Energize project buffer is created.")
  438. (defvar energize-no-file-project-mode-hook nil
  439.   "Hook called when an Energize project buffer with no file is created.")
  440. (defvar energize-breakpoint-mode-hook nil
  441.   "Hook called when an Energize breakpoint-list buffer is created.")
  442. (defvar energize-browser-mode-hook nil
  443.   "Hook called when an Energize browser buffer is created.")
  444. (defvar energize-log-mode-hook nil
  445.   "Hook called when an Energize log buffer is created.")
  446. (defvar energize-manual-mode-hook nil
  447.   "Hook called when an Energize manual buffer is created.")
  448. (defvar energize-source-mode-hook nil
  449.   "Hook called when any source buffer is placed in the Energize minor-mode.")
  450.  
  451.  
  452. (if energize-map
  453.     nil
  454.   (setq energize-map (make-sparse-keymap))
  455.   (set-keymap-name energize-map 'energize-map)
  456.   (define-key energize-map "\^C\^F"    'energize-find-project)
  457.   (define-key energize-map "\^C\^B\^E"    'energize-browse-error)
  458.   (define-key energize-map "\^C\^B\^L"    'energize-browse-language-elt)
  459.   (define-key energize-map "\^C\^B\^T"    'energize-browse-tree)
  460.   (define-key energize-map "\^C\^B\^C"    'energize-browse-class)
  461. ;;  now in global-map
  462. ;;  (define-key energize-map "\M-B" 'energize-build-a-target) ; M-Sh-B
  463.   (define-key energize-map "\M-C" 'energize-default-compile-file) ; M-Sh-C
  464.   (define-key energize-map 'button3 'energize-popup-menu)
  465.   )
  466.  
  467. (if energize-top-level-map
  468.     nil
  469.   (setq energize-top-level-map (make-sparse-keymap))
  470.   (set-keymap-name energize-top-level-map 'energize-top-level-map)
  471.   (set-keymap-parent energize-top-level-map energize-map)
  472.   (suppress-keymap energize-top-level-map)
  473.   (define-key energize-top-level-map "?" 'describe-mode)
  474.   (define-key energize-top-level-map " " 'energize-top-next-project)
  475.   (define-key energize-top-level-map "n" 'energize-top-next-project)
  476.   (define-key energize-top-level-map "p" 'energize-top-prev-project)
  477.   (define-key energize-top-level-map "N" 'energize-top-next-project)
  478.   (define-key energize-top-level-map "P" 'energize-top-prev-project)
  479.   (define-key energize-top-level-map "\t" 'energize-top-next-project)
  480.   (define-key energize-top-level-map '(shift tab) 'energize-top-prev-project)
  481.   (define-key energize-top-level-map '(control I) 'energize-top-prev-project)
  482.  
  483.   (define-key energize-top-level-map "Q" 'disconnect-from-energize-query)
  484.  
  485.   (define-key energize-top-level-map "d" 'energize-top-debug)
  486.   (define-key energize-top-level-map "\^D" 'energize-top-delete-project)
  487.   (define-key energize-top-level-map "e" 'energize-top-edit-project)
  488.   )
  489.  
  490. (if energize-project-map
  491.     nil
  492.   (setq energize-project-map (make-sparse-keymap))
  493.   (set-keymap-name energize-project-map 'energize-project-map)
  494.   (set-keymap-parent energize-project-map energize-map)
  495.   ;;(suppress-keymap energize-project-map)
  496.   ;;(define-key energize-project-map "\t" 'energize-project-next-field)
  497.   ;;(define-key energize-project-map '(shift tab) 'energize-project-prev-field)
  498.   ;;(define-key energize-project-map '(control I) 'energize-project-prev-field)
  499.  
  500.   (define-key energize-project-map "\^C\^I" 'energize-import-file)
  501.   (define-key energize-project-map "\^C\^E" 'energize-project-edit-file)
  502.   (define-key energize-project-map "\^C\^S\^A" 'energize-project-sort-alpha)
  503.   (define-key energize-project-map "\^C\^S\^L" 'energize-project-sort-link)
  504.   (define-key energize-project-map "\^C\^V\^N" 'energize-project-view-names)
  505. ;  (define-key energize-project-map "\^C\^V\^L" 'energize-project-view-long)
  506.   (define-key energize-project-map "\^C\^V\^C" 'energize-project-view-options)
  507.   )
  508.  
  509.  
  510. (if energize-no-file-project-map
  511.     nil
  512.   (setq energize-no-file-project-map (make-sparse-keymap))
  513.   (set-keymap-name energize-no-file-project-map 'energize-no-file-project-map)
  514.   (set-keymap-parent energize-no-file-project-map energize-map))
  515.  
  516. (if energize-breakpoint-map
  517.     nil
  518.   (setq energize-breakpoint-map (make-sparse-keymap))
  519.   (set-keymap-name energize-breakpoint-map 'energize-breakpoint-map)
  520.   (set-keymap-parent energize-breakpoint-map energize-map)
  521.   )
  522.  
  523. (if energize-browser-map
  524.     nil
  525.   (setq energize-browser-map (make-sparse-keymap))
  526.   (set-keymap-name energize-browser-map 'energize-browser-map)
  527.   (set-keymap-parent energize-browser-map energize-map)
  528.   )
  529.  
  530. (if energize-source-map
  531.     nil
  532.   (setq energize-source-map (make-sparse-keymap))
  533.   (set-keymap-name energize-source-map 'energize-source-map)
  534.   (set-keymap-parent energize-source-map energize-map)
  535. ;;  There are too many problems with using extents to determine where the
  536. ;;  top level forms are...
  537. ;;  (define-key energize-source-map "\M-\C-a" 'energize-beginning-of-defun)
  538. ;;  (define-key energize-source-map "\M-\C-e" 'energize-end-of-defun)
  539.  )
  540.  
  541. (if energize-user-input-map
  542.     nil
  543.   (setq energize-user-input-map (copy-keymap comint-mode-map))
  544.   (if (keymap-parent comint-mode-map) (error "comint-mode-map has a parent?"))
  545.   (set-keymap-parent energize-user-input-map energize-map)
  546.   (define-key energize-user-input-map "\M-\t" 'comint-dynamic-complete)
  547.   (define-key energize-user-input-map "\M-?" 'comint-dynamic-list-completions)
  548.   )
  549.  
  550.  
  551. (defvar energize-menu-state nil
  552.   "State of the energize menu items of the buffer.  
  553. Automatically updated by the kernel when the state changes")
  554.  
  555. (defvar energize-default-menu-state nil
  556.   "State of the energize default menu items.  
  557. Automatically updated by the kernel when the state changes")
  558.  
  559. (defun energize-mode-internal ()
  560.   ;; initialize stuff common to all energize buffers (hooks, etc).
  561.   (make-local-variable 'write-file-data-hooks)
  562.   (add-hook 'write-file-data-hooks 'energize-write-data-hook t)
  563.   ;;
  564.   (make-local-variable 'revert-buffer-insert-file-contents-function)
  565.   (setq revert-buffer-insert-file-contents-function
  566.     'energize-revert-buffer-insert-file-contents-hook)
  567.   ;;
  568.   (make-local-variable 'kill-buffer-hook)
  569.   (setq kill-buffer-hook 'energize-kill-buffer-hook)
  570.   ;;
  571.   (make-local-variable 'require-final-newline)
  572.   (setq require-final-newline t)
  573.   ;;
  574.   (make-local-variable 'energize-menu-state)
  575.   ;;
  576.   (run-hooks 'energize-mode-hook))
  577.  
  578. (defun energize-non-file-mode-internal ()
  579.   ;; do magic associated with energize-modes for buffers which are not
  580.   ;; and cannot be associated with files.
  581. ;  (or (null buffer-file-name)
  582. ;      (equal buffer-file-name mode-name)
  583. ;      (error
  584. ;       "This buffer is associated with a file, it can't be placed in %s mode"
  585. ;       mode-name))
  586.   ;; hack so that save-file doesn't prompt for a filename.
  587.   (or buffer-file-name
  588.       (setq buffer-file-name (buffer-name)))
  589.   (set (make-local-variable 'version-control) 'never)
  590.   nil)
  591.  
  592. ;; don't create random new buffers in these modes
  593. (put 'energize-top-level-mode        'mode-class 'special)
  594. (put 'energize-project-mode        'mode-class 'special)
  595. (put 'energize-no-file-project-mode    'mode-class 'special)
  596. (put 'energize-breakpoint-mode        'mode-class 'special)
  597. (put 'energize-browser-mode        'mode-class 'special)
  598. (put 'energize-log-mode            'mode-class 'special)
  599.  
  600. (defun energize-top-level-mode ()
  601.   "Major mode for the Energize top-level buffer.
  602. In addition to normal cursor-motion commands, the following keys are bound:
  603. \\{energize-top-level-map}"
  604.   (interactive)
  605.   (energize-mode-internal)
  606.   (use-local-map energize-top-level-map)
  607.   (setq major-mode 'energize-top-level-mode
  608.     mode-name "Energize")
  609.   (energize-non-file-mode-internal)
  610.   ;; the default of "energize: Energize" is not very attractive.
  611.   (if (equal screen-title-format "%S: %b")
  612.       (set (make-local-variable 'screen-title-format) "%S: Top-Level"))
  613.   (run-hooks 'energize-top-level-mode-hook))
  614.  
  615.  
  616. (defun energize-project-mode ()
  617.   "Major mode for the Energize Project buffers.
  618. In addition to the normal editing commands, the following keys are bound:
  619. \\{energize-project-map}"
  620.   (interactive)
  621.   (energize-mode-internal)
  622.   (use-local-map energize-project-map)
  623.   (setq major-mode 'energize-project-mode
  624.     mode-name "Project")
  625.   ;; in later revisions of the kernel the project is really a file.
  626.   (if (< (cdr (energize-protocol-level)) 8)
  627.       (energize-non-file-mode-internal))
  628.   (run-hooks 'energize-project-mode-hook))
  629.  
  630. (defun energize-no-file-project-mode ()
  631.   "Major mode for the Energize Project buffers not associated with a file.
  632. In addition to the normal editing commands, the following keys are bound:
  633. \\{energize-no-file-project-map}"
  634.   (interactive)
  635.   (energize-mode-internal)
  636.   (use-local-map energize-no-file-project-map)
  637.   (setq major-mode 'energize-no-file-project-mode
  638.     mode-name "NoFileProject")
  639.   (energize-non-file-mode-internal)
  640.   (run-hooks 'energize-no-file-project-mode-hook))
  641.  
  642. (defun energize-breakpoint-mode ()
  643.   "Major mode for the Energize Breakpoint-list buffers.
  644. In addition to the normal editing commands, the following keys are bound:
  645. \\{energize-breakpoint-map}"
  646.   (interactive)
  647.   (energize-mode-internal)
  648.   (use-local-map energize-breakpoint-map)
  649.   (setq major-mode 'energize-breakpoint-mode
  650.     mode-name "Breakpoint")
  651.   (energize-non-file-mode-internal)
  652.   (run-hooks 'energize-breakpoint-mode-hook))
  653.  
  654. (defun energize-browser-mode ()
  655.   "Major mode for the Energize Browser buffers.
  656. In addition to the normal editing commands, the following keys are bound:
  657. \\{energize-browser-map}"
  658.   (interactive)
  659.   (energize-mode-internal)
  660.   (use-local-map energize-browser-map)
  661.   (setq major-mode 'energize-browser-mode
  662.     mode-name "Browser")
  663.   (energize-non-file-mode-internal)
  664.   (run-hooks 'energize-browser-mode-hook))
  665.  
  666. (defun energize-log-mode ()
  667.   "Major mode for the Energize Error Log and System Log buffers.
  668. In addition to the normal editing commands, the following keys are bound:
  669. \\{energize-map}"
  670.   (interactive)
  671.   (energize-mode-internal)
  672.   (use-local-map energize-map)
  673.   (setq major-mode 'energize-log-mode
  674.     mode-name "Energize-Log")
  675.   (energize-non-file-mode-internal)
  676.   (run-hooks 'energize-log-mode-hook))
  677.  
  678. (defun energize-manual-mode ()
  679.   "Major mode for the Energize UNIX Manual buffers.
  680. In addition to the normal editing commands, the following keys are bound:
  681. \\{energize-map}"
  682.   (interactive)
  683.   (energize-mode-internal)
  684.   (use-local-map energize-map)
  685.   (setq major-mode 'energize-manual-mode
  686.     mode-name "Energize-Manual")
  687.   (energize-non-file-mode-internal)
  688.   (run-hooks 'energize-manual-mode-hook))
  689.  
  690. (defvar energize-source-mode nil)
  691. ;;(put 'energize-source-mode 'permanent-local t) ; persists beyond mode-change
  692.  
  693. ;;; Add energize-source-mode to minor-mode-alist so that it shows up in 
  694. ;;; the modeline when true.
  695. ;;;
  696. (or (assq 'energize-source-mode minor-mode-alist)
  697.     (setq minor-mode-alist
  698.       (append minor-mode-alist
  699.           '((energize-source-mode " Energize")))))
  700.  
  701. ;;; add a function to the find-file-hooks that turns on the energize minor
  702. ;;; mode if this is an Energize buffer.  This happens both with find-file and
  703. ;;; with revert-buffer.
  704. ;;;
  705. ;(add-hook 'find-file-hooks 'maybe-turn-on-energize-minor-mode t)
  706.  
  707. (fmakunbound 'maybe-turn-on-energize-minor-mode)
  708. ;(defun maybe-turn-on-energize-minor-mode ()
  709. ;  (if (and (energize-buffer-p (current-buffer))
  710. ;       (eq (energize-buffer-type (current-buffer))
  711. ;           'energize-source-buffer))
  712. ;      (energize-source-minor-mode)))
  713.  
  714. (defun energize-source-minor-mode ()
  715.   "Minor mode for adding additional keybindings to Energize source buffers.
  716. The following key bindings are added:
  717. \\{energize-source-map}
  718.  
  719. Since this minor mode defines keys, once it gets turned on you can't really
  720. turn it off."
  721.   (interactive)
  722.   (energize-mode-internal)
  723.   (make-local-variable 'energize-source-mode)
  724.   (setq energize-source-mode t)
  725.   (let ((source-map energize-source-map)
  726.     (dest-map (make-sparse-keymap)))
  727.     (set-keymap-parent dest-map (current-local-map))
  728.     (set-keymap-name dest-map 'energize-minor-mode-map)
  729.     (while source-map
  730.       (let (mapper prefixes)
  731.     (setq mapper (function (lambda (key val)
  732.                  (if (keymapp val)
  733.                      (let ((prefixes (append prefixes
  734.                                  (cons key nil))))
  735.                        (map-keymap val mapper))
  736.                    (define-key dest-map
  737.                      (apply 'vector
  738.                         (append prefixes (cons key nil)))
  739.                      val)
  740.                    ))))
  741.     (map-keymap source-map mapper))
  742.       (setq source-map (keymap-parent source-map)))
  743.     (use-local-map dest-map))
  744.   (run-hooks 'energize-source-mode-hook))
  745.  
  746.  
  747. ;;; Commands in source buffers
  748.  
  749. (defun recenter-definition ()
  750.   "Position the beginning of the current definition at the top of the screen."
  751.   (interactive)
  752.   (end-of-line)
  753.   (if (eq major-mode 'c++-mode)
  754.       (c++-beginning-of-defun 1)
  755.     (beginning-of-defun 1))
  756.   (recenter 1))
  757.  
  758. (define-key global-map "\M-\C-r" 'recenter-definition)
  759.  
  760. ;;; Dired-like commands
  761.  
  762. (defun energize-next-extent-for (command prev not-this-one)
  763.   (let ((last-e (if not-this-one 'none nil))
  764.     e result)
  765.     (save-excursion
  766.       (let ((p (point)))
  767.     (while (not (or result
  768.             (if prev (bobp) (eobp))))
  769.       (setq e (extent-at (point) (current-buffer)))
  770.       (if (and (not (eq e last-e))
  771.            (not (eq last-e 'none)))
  772.           (setq result
  773.             (energize-menu-item-for-name e command)))
  774.       (forward-char (if prev -1 1))
  775.       (setq last-e e))))
  776.     (if result e)))
  777.  
  778. (defun energize-next-extent-on-line-for (command not-this-one)
  779.   (save-excursion
  780.     (save-restriction
  781.       (narrow-to-region (point) (progn (end-of-line) (point)))
  782.       (goto-char (point-min))
  783.       (energize-next-extent-for command nil not-this-one))))
  784.  
  785.  
  786. ;;; commands in the top-level buffer
  787.  
  788. (defun energize-top-next-project ()
  789.   "Position the cursor at the beginning of the following project."
  790.   (interactive)
  791.   (let ((p (point)))
  792.     (let ((e (energize-next-extent-for "editproject" nil t)))
  793.       (if (and e (= p (extent-start-position e)))
  794.       (save-excursion
  795.         (forward-char (extent-length e))
  796.         (setq e (energize-next-extent-for "editproject" nil t))))
  797.       (if e
  798.       (goto-char (extent-start-position e))
  799.     (error "no next project")))))
  800.  
  801. (defun energize-top-prev-project ()
  802.   "Position the cursor at the beginning of the preceeding project."
  803.   (interactive)
  804.   (let ((p (point)))
  805.     (let ((e (energize-next-extent-for "editproject" t t)))
  806.       (if (and e (= p (extent-start-position e)))
  807.       (save-excursion
  808.         (forward-char -1)
  809.         (setq e (energize-next-extent-for "editproject" t t))))
  810.       (if e
  811.       (goto-char (extent-start-position e))
  812.     (error "no previous project")))))
  813.  
  814. (defun energize-top-execute-command (command)
  815.   (let ((e (or (energize-next-extent-on-line-for command nil)
  816.            (error
  817.         (concat "no following field on this line that handles the `"
  818.             command "' Energize command.")))))
  819.     (energize-execute-command command e)))
  820.  
  821. (defun energize-top-debug ()
  822.   "Execute the `Debug' command on the project at or following point."
  823.   (interactive)
  824.   (energize-top-execute-command "debugprogram"))
  825.  
  826. (defun energize-top-delete-project ()
  827.   "Delete the project at or following point."
  828.   (interactive)
  829.   (energize-top-execute-command "deleteproject"))
  830.  
  831. (defun energize-top-edit-project ()
  832.   "Edit the project at or following point."
  833.   (interactive)
  834.   (energize-top-execute-command "editproject"))
  835.  
  836. ;;; commands in the project buffer
  837.  
  838. (defun energize-project-next-field (&optional prev)
  839.   (interactive)
  840.   (let ((e (extent-at (point) (current-buffer))))
  841.     (if e
  842.     (if prev
  843.         (goto-char (1- (extent-start-position e)))
  844.       (goto-char (1+ (extent-end-position e)))))
  845.     (while (null (extent-at (point) (current-buffer)))
  846.       (forward-char (if prev -1 1)))
  847.     (while (extent-at (point) (current-buffer) 'write-protected)
  848.       (forward-char (if prev -1 1)))
  849.     (if prev
  850.     (if (setq e (extent-at (point) (current-buffer)))
  851.         (goto-char (extent-start-position e))
  852.       (while (not (extent-at (point) (current-buffer)))
  853.         (forward-char -1))))))
  854.  
  855. (defun energize-project-prev-field () (interactive)
  856.   (energize-project-next-field t))
  857.  
  858. (defun energize-project-edit-file () (interactive)
  859.   (energize-top-execute-command "editfile"))
  860.