(provide (quote db-summary)) (defvar database-summary-mode-hooks nil "\ Function or list of functions run when switching to database summary mode.") (deflocalvar dbs-data-display-buffer nil "The buffer of the format for which this buffer is a summary.") (deflocalvar dbs-index nil "The index of the record summary at point. Used in determining whether the data display buffer and its summary are in synch. Don't set this variable directly; use `dbs-set-index' instead.") (defun dbs-set-index (index) (byte-code "  #" [dbs-index index dbs-index-fraction dbs-no-of-records format "%d/%d"] 4)) (proclaim-inline dbs-set-index) (deflocalvar dbs-no-of-records nil "The number of records in the database when this summary was made.") (deflocalvar dbs-point nil "The beginning of the current record.") (deflocalvar dbs-index-fraction nil "Like `dbc-index-fraction', for the benefit of the mode line.") (deflocalvar dbs-recompute-p nil "T if some summary information is out of date, nil otherwise. This is usually set to t when some link-summary is set to nil.") (deflocalvar dbf-summary-format nil "A string in the same format as the format-file. Use `dbf-set-summary-format' to set it.") (defvar dbf-default-summary-format nil) (deflocalvar dbf-summary-function nil "Function which inserts summary information for a single record in the summary buffer; it takes the record as its argument.") (deflocalvar dbf-summary-buffer nil "The summary buffer associated with this format.") (deflocalvar dbf-summary-show-omitted-records-p t "Nil if omitted records should be omitted from the summary, t otherwise.") (deflocalvar dbf-summary-recompute-all-p nil "T if every record summary in this buffer should be recomputed.") (deflocalvar dbfs-lines nil "The (constant) number of screen lines occupied by each record summary. This variable is computed automatically from the summary format. It has a value in both the summary and data display buffers.") (defmacro dbf-summary-buffer nil (byte-code "" [(and (bufferp dbf-summary-buffer) (buffer-name dbf-summary-buffer) dbf-summary-buffer)] 1)) (defmacro dbf-in-summary-buffer (&rest body) (byte-code "\"EE" [body if (dbf-summary-buffer) in-buffer dbf-summary-buffer append (progn)] 7)) (put (quote dbf-in-summary-buffer) (quote lisp-indent-hook) 0) (put (quote dbf-in-summary-buffer) (quote edebug-form-spec) (quote (&rest form))) (defmacro dbs-in-data-display-buffer (&rest body) (byte-code "\"" [body append (in-buffer dbs-data-display-buffer)] 3)) (put (quote dbs-in-data-display-buffer) (quote lisp-indent-hook) 0) (put (quote dbs-in-data-display-buffer) (quote edebug-form-spec) (quote (&rest form))) (defun db-data-display-buffer nil "\ Return the database data display buffer associated with the current buffer, which must be either a summary buffer or a data display buffer." (byte-code "  p!" [dbs-data-display-buffer t db-summary-buffer-p db-data-display-buffer-p error "Neither in format nor summary buffer"] 4)) (proclaim-inline db-data-display-buffer) (defun db-summary-buffer nil (byte-code " p! !!!!" [dbf-summary-buffer t db-summary-buffer-p db-data-display-buffer-p bufferp buffer-name error "Neither in format nor summary buffer"] 6)) (proclaim-inline db-summary-buffer) (defmacro db-in-data-display-buffer (&rest body) (byte-code "\"" [body append (in-buffer (db-data-display-buffer))] 3)) (put (quote db-in-data-display-buffer) (quote lisp-indent-hook) 0) (put (quote db-in-data-display-buffer) (quote edebug-form-spec) (quote (&rest form))) (defun db-summary nil "\ Display a summary (or directory) of all database records according to the variable `dbf-summary-function', which is set by `dbf-set-summary-format'. The summary appears in a separate buffer. When called from the summary buffer, this updates the summary." (interactive) (byte-code "ˈ !p = !+ !# !# !!p?7! !E !E ?N ! !p =` ׎q! =?y!`=  p=!= =?`\"*)* !  )ߎq! =?!`= ! ! ! !!yp?! !  !  ? ! !p =$ fq! =?=!`=  [p=[!=[ =?c`\"*)*l !  ) p=!= =?`\"*)*" [target-buffer this-buffer dbc-database dbf-summary-buffer t data-display-buffer dbf-summary-function dbf-summary-format target-window track-window-point-p dbs-data-display-buffer nil get-buffer-create db-data-display-buffer database-empty-p delete-windows-on bufferp buffer-name db-message "Database is empty." dbf-set-summary-format db-create-summary-buffer dbs-out-of-date-p ((byte-code "! !q" [this-buffer bufferp buffer-name] 3)) get-buffer-window selected-window window-point set-window-point dbf-fill-summary-buffer pop-to-buffer dbs-move-to-proper-record ((byte-code "! !q" [this-buffer bufferp buffer-name] 3)) ((byte-code "! !q" [this-buffer bufferp buffer-name] 3))] 53)) (defun db-create-summary-buffer (data-display-buffer) (byte-code " !P!!p =r  !p =( i̎ q ! =?A!`= ^p =^ !=^ =?f`\"*)* Ҏ q ! =?!`=  !p = ӎ q ! =?!`= p = != =?`\"*)* p = != =? `\"*)*)" [sbuf data-display-buffer target-buffer this-buffer dbs-data-display-buffer dbc-database target-window track-window-point-p generate-new-buffer buffer-name "-summary" get-buffer-create ((byte-code "! !q" [this-buffer bufferp buffer-name] 3)) get-buffer-window selected-window window-point set-window-point database-summary-mode ((byte-code "! !q" [this-buffer bufferp buffer-name] 3)) ((byte-code "! !q" [this-buffer bufferp buffer-name] 3))] 28)) (defvar mode-motion-hook) (defun database-summary-mode nil "\ Summary buffer for database mode. Most keystrokes perform the same function they do in the data display buffer. Key bindings: \\{database-summary-mode-map}" (byte-code "Љщ!ĉ!‰! !p  =? \"&q!  =?Z !`= \"& p= != =? `\"*)* ! !" [major-mode mode-name nil buffer-read-only t buffer-file-name database-summary-mode-map mode-line-format target-buffer dbs-data-display-buffer this-buffer target-window track-window-point-p db-running-lucid-emacs mode-motion-hook dbs-no-of-records database-summary-mode "Database Summary" set-buffer-modified-p auto-save-mode 0 use-local-map get-buffer-create list format "-----Database: %17s %%[(Summary" buffer-name minor-mode-alist " " dbs-index-fraction ")%]---" (-3 . "%p") "-%-" ((byte-code "! !q" [this-buffer bufferp buffer-name] 3)) get-buffer-window selected-window window-point set-window-point require mode-motion mode-motion-highlight-line db-lucid-summary-mode-menubar run-hooks database-summary-mode-hooks -1] 21)) (defun db-summary-buffer-p nil (byte-code "=" [major-mode database-summary-mode] 2)) (proclaim-inline db-summary-buffer-p) (defun dbs-insert-link-summary (link mark-omitted-records-p) (byte-code "` Hc` Hb!c b ' HHb!` WE!c!1 b*" [start end link mark-omitted-records-p nil 5 3 delete-char 1 "+" 4 forward-char 2 backward-delete-char "[" next-line] 6)) (proclaim-inline dbs-insert-link-summary) (defun dbf-fill-summary-buffer nil (byte-code " ?  ʈ !& !&  !p    = ! MHʈtH?H?ʈH\"I\"\"!\"HT=ʉf.!!!H ʉ) q ! =?!`= ! (HʈOH?t]H?mʈH\"I\"\"!\"HT=ʉA.!!!H ʉ)p = != =?`\"*)*ʉ -" [summary-function dbf-summary-function lines dbfs-lines omit dbf-summary-show-omitted-records-p dbc-omit-p mark-omitted-records-p recompute-all-p dbf-summary-recompute-all-p nil dbf-summary-buffer target-buffer this-buffer buffer-read-only omitp message-evalled db-inform-interval first-link dbc-database maplinks-link maplinks-index maplinks-not-done t dbs-no-of-records dbs-recompute-p dbs-index target-window track-window-point-p bufferp buffer-name get-buffer-create erase-buffer db-message "Computing summary..." "Computing summary...%d" 2 1 4 5 funcall 6 dbs-insert-link-summary zerop % "Computing summary...done." backward-delete-char set-buffer-modified-p 3 0 ((byte-code "! !q" [this-buffer bufferp buffer-name] 3)) get-buffer-window selected-window window-point set-window-point] 32)) (defun dbf-fill-summary-buffer-and-move-to-proper-record nil (byte-code "! ! o ! ! o!p =4 nʎ q ! =?J !`= dp =d !=d =?k `\"*)*" [dbf-summary-buffer target-buffer this-buffer target-window track-window-point-p bufferp buffer-name dbf-fill-summary-buffer get-buffer-create dbs-move-to-proper-record ((byte-code "! !q" [this-buffer bufferp buffer-name] 3)) get-buffer-window selected-window window-point set-window-point] 17)) (defun dbf-update-summary-marks nil (byte-code "  ? ! !  !p =`  ؎eb ?  H  Ȉ  ^H?!Hqނrc!  W!!Hゝc! T }HT =ȉP-)+ q ! =?!`=`  eb ?  H  Ȉ  %H?t!H8ނ9c!  Wt!!\\Hcdc! T DHT =ȉ-)+p = != =?`\"*)**" [mark-omitted-records-p dbc-omit-p omitted-records-shown-p dbf-summary-show-omitted-records-p dbf-summary-buffer target-buffer this-buffer buffer-read-only nil opoint line omitp first-link dbc-database maplinks-link maplinks-index maplinks-not-done t dbfs-lines target-window track-window-point-p bufferp buffer-name get-buffer-create ((byte-code "b" [opoint] 1)) 2 1 4 delete-char 3 "+" " " backward-char 0 forward-char "[" forward-line ((byte-code "! !q" [this-buffer bufferp buffer-name] 3)) get-buffer-window selected-window window-point ((byte-code "b" [opoint] 1)) set-window-point] 22)) (defun dbf-update-summary-item (index &optional link) (byte-code " \" H? ?  !4 !4  !p    =| َHdH\"I !`!`\" \")+ q ! =?!`= HH\"I !`!`\" \")+p = != =?`\"*)*+" [link dbc-database index mark-omitted-records-p dbc-omit-p this-record-shown-p dbf-summary-show-omitted-records-p summary-function dbf-summary-function dbf-summary-buffer target-buffer this-buffer buffer-read-only nil oindex dbs-index line dbfs-lines target-window track-window-point-p database-link 4 bufferp buffer-name get-buffer-create ((byte-code "!" [oindex dbs-move-to-proper-record] 2)) 5 funcall 6 dbs-move-to-proper-record delete-region forward-line dbs-insert-link-summary ((byte-code "! !q" [this-buffer bufferp buffer-name] 3)) get-buffer-window selected-window window-point ((byte-code "!" [oindex dbs-move-to-proper-record] 2)) set-window-point] 23)) (defun dbf-summarize-link (link) (byte-code " H?ˆ H\"I % H?% H8 !5 !5 8 !p=`  Hc`#` Hsb!c b Hb!` W!c! b*7ݎq!  =? !`= `  Hc`#` Hb!c b Hb!` W !c! b* ,p=, !=, =?4 `\"*)*" [dbf-summary-recompute-all-p link nil dbf-summary-function dbf-summary-show-omitted-records-p dbf-summary-buffer target-buffer this-buffer start end target-window track-window-point-p 5 funcall 6 4 3 bufferp buffer-name get-buffer-create indent-rigidly 2 delete-char 1 "*" forward-char backward-delete-char "[" next-line ((byte-code "! !q" [this-buffer bufferp buffer-name] 3)) get-buffer-window selected-window window-point set-window-point] 23)) (defun dbf-make-summary-maker (summary-format database) (byte-code " %@A\"E)" [lasfl summary-format database t nil dbfs-lines dbf-summary-function format->lines-and-stringform-list 2 lambda (formatted-record) append (concat)] 6)) (defun format->lines-and-stringform-list (format database indent add-newline variable-height) (byte-code " \" !V5\"\"P #P E !! # \" ! !^ !  \" o H?y HI H HU HS\\ H H $ !? O !!#B\"\\) !B OF P \"?  !! # B \"\\!B." [results beginning end this-displayspec backslash-placeholder format lines indent displayspec-regexp displayspec-regexp-content-beginning displayspec-regexp-content-end displayspec-regexp-content-end-alt database variable-height literal add-newline nil string-match "\\\\\\\\" db-unused-char-in-string 0 make-string 32 db-string-substitute-substring-general-case " " char-to-string regexp-quote "\\\\" match-beginning match-end make-displayspec-from-string-internal 6 5 error "Min-height %s must equal max-height %s in summary displayspec %s." zerop db-string-substitute-opt 92 count-array 10 make-format-printer equal "" nreverse] 28)) (defun make-format-printer (displayspec) (byte-code "E" [displayspec displayspec->printed-rep formatted-record] 3)) (defun make-summary-initial-indentation nil (byte-code " F" [if dbf-sr-markedp "* " make-summary-indentation] 5)) (defun make-summary-indentation nil (byte-code "" [(if (and dbf-sr-omittedp (not dbf-sr-markedp)) " [ " " ")] 1)) (defun dbs-in-synch-p nil (byte-code " !p = LȎ q ! =?' !`= Bp =B !=B =?I `\"*)*U" [dbs-index target-buffer dbs-data-display-buffer this-buffer dbc-index target-window track-window-point-p get-buffer-create ((byte-code "! !q" [this-buffer bufferp buffer-name] 3)) get-buffer-window selected-window window-point set-window-point] 11)) (proclaim-inline dbs-in-synch-p) (defun dbs-out-of-date-p nil (byte-code " HU?" [dbs-recompute-p dbs-no-of-records dbc-database 3] 3)) (proclaim-inline dbs-out-of-date-p) (defun dbf-set-summary-out-of-date-p nil (byte-code "! ! `!p =\"ĉ_ʎ q ! =?8 !`=ĉUp =U !=U =?\\ `\"*)*" [dbf-summary-buffer target-buffer this-buffer dbs-recompute-p t target-window track-window-point-p bufferp buffer-name get-buffer-create ((byte-code "! !q" [this-buffer bufferp buffer-name] 3)) get-buffer-window selected-window window-point set-window-point] 12)) (proclaim-inline dbf-set-summary-out-of-date-p) (defun dbs-synch-format-with-summary nil (byte-code " ? !p =m !p =- h̎q! =?C !`= ^p=^ !=^ =?e `\"*)*!юq! =? !`= !p = Ҏq! =? !`= p= != =? `\"*)*!p= != =? `\"*)*" [target-buffer dbs-data-display-buffer this-buffer dbf-summary-buffer dbs-index target-window track-window-point-p dbs-out-of-date-p dbs-synch-summary-with-format dbs-in-synch-p get-buffer-create db-select-record ((byte-code "! !q" [this-buffer bufferp buffer-name] 3)) get-buffer-window selected-window window-point set-window-point ((byte-code "! !q" [this-buffer bufferp buffer-name] 3)) ((byte-code "! !q" [this-buffer bufferp buffer-name] 3))] 29)) (defun dbs-synch-summary-with-format nil (byte-code " Q !p = PȎq! =?, !`= Fp=F !=F =?M `\"*)* ?Z " [target-buffer dbs-data-display-buffer this-buffer target-window track-window-point-p dbs-out-of-date-p get-buffer-create dbf-fill-summary-buffer ((byte-code "! !q" [this-buffer bufferp buffer-name] 3)) get-buffer-window selected-window window-point set-window-point dbs-in-synch-p dbs-move-to-proper-record] 13)) (defun dbs-goto-nth-summary (n) (byte-code " S\"T!`" [dbfs-lines n dbs-point goto-line *] 4)) (proclaim-inline dbs-goto-nth-summary) (defun dbs-move-to-proper-record (&optional index) (byte-code " !p = ? UՎq! =?+ !`= ?3 Kp=K !=K =?R `\"*)* !p =oڎq! =? !`=p= != =? `\"*)*!!) !p =ގq! =? !`=p= != =?  `\"*)*    Hˈ >H?e XW T  e ?e  HT=ˉ0-  U? \" ! !+" [target-buffer dbs-data-display-buffer this-buffer dbc-omit-p dbf-summary-show-omitted-records-p target-window track-window-point-p index dbc-index previous-displayed-records last-displayed-record nil proper-index omitp t first-link dbc-database maplinks-link maplinks-index maplinks-not-done get-buffer-create ((byte-code "! !q" [this-buffer bufferp buffer-name] 3)) get-buffer-window selected-window window-point set-window-point ((byte-code "! !q" [this-buffer bufferp buffer-name] 3)) dbs-goto-nth-summary dbs-set-index 0 ((byte-code "! !q" [this-buffer bufferp buffer-name] 3)) 2 1 4 db-message "Record %s does not appear in the summary buffer."] 28)) (defun dbs-forward-record (arg) (byte-code "b \"!`" [dbs-point dbfs-lines arg db-forward-line-wrapping *] 4)) (proclaim-inline dbs-forward-record) (defun dbs-next-record-ignore-omitting (arg) "\ Go to the ARGth next record, ignoring omitting. That is, all records, even those which are omitted, are counted." (interactive "p") (byte-code "Ȉ !p = Kʎq! =?( !`= Ap=A !=A =?H `\"*)*?W! !p =m!юq! =? !`=! p= != =? `\"*)*! !p =Ԏq! =? !`= p= != =? `\"*)*!" [target-buffer dbs-data-display-buffer this-buffer dbf-summary-show-omitted-records-p target-window track-window-point-p arg dbc-index nil get-buffer-create ((byte-code "! !q" [this-buffer bufferp buffer-name] 3)) get-buffer-window selected-window window-point set-window-point db-next-record-ignore-omitting dbs-synch-format-with-summary ((byte-code "! !q" [this-buffer bufferp buffer-name] 3)) dbs-forward-record dbs-set-index ((byte-code "! !q" [this-buffer bufferp buffer-name] 3))] 30)) (defun dbs-previous-record-ignore-omitting (arg) "\ Go to the ARGth previous record, ignoring omitting. That is, all records, even those which are omitted, are counted." (interactive "p") (byte-code "[!" [arg nil dbs-next-record-ignore-omitting] 2)) (defun dbs-scroll-up nil (interactive) (byte-code " " [nil scroll-up db-jump-to-point] 3)) (defun dbs-scroll-down nil (interactive) (byte-code " " [nil scroll-down db-jump-to-point] 3)) (defvar database-summary-mode-map (make-keymap) "\ Keymap for database summary buffer.") (suppress-keymap database-summary-mode-map) (define-key database-summary-mode-map "n" (quote db-next-record)) (define-key database-summary-mode-map "p" (quote db-previous-record)) (define-key database-summary-mode-map "" (quote db-next-record)) (define-key database-summary-mode-map "" (quote db-previous-record)) (define-key database-summary-mode-map "<" (quote db-first-record)) (define-key database-summary-mode-map ">" (quote db-last-record)) (define-key database-summary-mode-map (db-meta-prefix-ify "<") (quote db-first-record)) (define-key database-summary-mode-map (db-meta-prefix-ify ">") (quote db-last-record)) (define-key database-summary-mode-map "j" (quote db-jump-to-record)) (define-key database-summary-mode-map " " (quote db-next-screen-or-record)) (define-key database-summary-mode-map "" (quote db-previous-screen-or-record)) (define-key database-summary-mode-map (db-meta-prefix-ify "n") (quote dbs-next-record-ignore-omitting)) (define-key database-summary-mode-map (db-meta-prefix-ify "p") (quote dbs-previous-record-ignore-omitting)) (define-key database-summary-mode-map (db-meta-prefix-ify "") (quote db-next-marked-record)) (define-key database-summary-mode-map (db-meta-prefix-ify "") (quote db-previous-marked-record)) (define-key database-summary-mode-map "e" (quote dbs-edit)) (define-key database-summary-mode-map "v" (quote dbs-view)) (define-key database-summary-mode-map "q" (quote dbs-exit)) (define-key database-summary-mode-map "x" (quote dbs-exit)) (define-key database-summary-mode-map "a" (quote db-add-record)) (define-key database-summary-mode-map "i" (quote db-add-record)) (define-key database-summary-mode-map "d" (quote dbs-delete-record)) (define-key database-summary-mode-map "k" (quote dbs-delete-record)) (define-key database-summary-mode-map "o" (quote dbs-output-record-to-db)) (define-key database-summary-mode-map "c" (quote db-copy-record)) (define-key database-summary-mode-map "s" (quote db-search)) (define-key database-summary-mode-map "" (quote db-isearch-forward)) (define-key database-summary-mode-map "" (quote db-isearch-backward)) (define-key database-summary-mode-map "?" (quote describe-mode)) (define-key database-summary-mode-map "O" (quote db-omit-record)) (define-key database-summary-mode-map (db-meta-prefix-ify "o") (quote db-omitting-toggle)) (define-key database-summary-mode-map (db-meta-prefix-ify "O") (quote db-omitting-set)) (define-key database-summary-mode-map (db-meta-prefix-ify "") (quote db-toggle-show-omitted-records)) (define-key database-summary-mode-map "g" (quote db-summary)) (define-key database-summary-mode-map "h" (quote db-summary)) (define-key database-summary-mode-map "D" (quote db-summary)) (define-key database-summary-mode-map "m" (quote db-mark-record)) (define-key database-summary-mode-map "r" (quote db-report)) (define-key database-summary-mode-map "r" (quote db-revert-database)) (define-key database-summary-mode-map "" (quote dbs-scroll-up)) (define-key database-summary-mode-map (db-meta-prefix-ify "v") (quote dbs-scroll-down)) (define-key database-summary-mode-map "" (quote db-toggle-modifiable-p)) (define-key database-summary-mode-map "" (quote db-x-jump-to-point)) (define-key database-summary-mode-map "" (quote dbs-exit)) (define-key database-summary-mode-map "b" (quote undefined)) (define-key database-summary-mode-map "f" (quote undefined)) (define-key database-summary-mode-map "l" (quote undefined)) (define-key database-summary-mode-map "t" (quote undefined)) (define-key database-summary-mode-map "w" (quote undefined)) (define-key database-summary-mode-map "y" (quote undefined)) (define-key database-summary-mode-map "z" (quote undefined)) (defun dbs-view nil "\ Manipulate this record in the data display buffer in View mode." (interactive) (byte-code "! " [dbs-data-display-buffer nil pop-to-buffer db-view-mode] 3)) (defun dbs-edit nil "\ Manipulate this record in the data display buffer in Edit mode." (interactive) (byte-code "ˆ! = " [dbs-data-display-buffer dbf-minor-mode nil pop-to-buffer view db-first-field] 3)) (defun dbs-exit nil "\ Exit the summary buffer." (interactive) (byte-code "ˆ p!!)" [data-display-buffer dbs-data-display-buffer nil delete-windows-on switch-to-buffer] 3)) (defun dbs-delete-record (&optional force) "\ Delete the current record from the database. With a prefix arg, doesn't verify." (interactive "P") (byte-code "Ȉ ! !p =![Ў q ! =?4 !`=!Qp =Q !=Q =?X `\"*)* !mkeb) S ! !p = َ q ! =? !`= p = != =? `\"*)*!" [force target-buffer dbs-data-display-buffer this-buffer t target-window track-window-point-p buffer-read-only nil dbfs-lines dbs-no-of-records dbc-index y-or-n-p "Delete this record? " get-buffer-create db-delete-record ((byte-code "! !q" [this-buffer bufferp buffer-name] 3)) get-buffer-window selected-window window-point set-window-point kill-line db-message "Record deleted." dbs-set-index ((byte-code "! !q" [this-buffer bufferp buffer-name] 3))] 23))