|
0
|
1 ;;; -*- Mode: Emacs-Lisp -*-
|
|
|
2
|
|
|
3 ;;; ilisp-hnd.el --
|
|
|
4
|
|
|
5 ;;; This file is part of ILISP.
|
|
|
6 ;;; Version: 5.7
|
|
|
7 ;;;
|
|
|
8 ;;; Copyright (C) 1990, 1991, 1992, 1993 Chris McConnell
|
|
|
9 ;;; 1993, 1994 Ivan Vasquez
|
|
|
10 ;;; 1994, 1995 Marco Antoniotti and Rick Busdiecker
|
|
|
11 ;;;
|
|
|
12 ;;; Other authors' names for which this Copyright notice also holds
|
|
|
13 ;;; may appear later in this file.
|
|
|
14 ;;;
|
|
|
15 ;;; Send mail to 'ilisp-request@lehman.com' to be included in the
|
|
|
16 ;;; ILISP mailing list. 'ilisp@lehman.com' is the general ILISP
|
|
|
17 ;;; mailing list were bugs and improvements are discussed.
|
|
|
18 ;;;
|
|
|
19 ;;; ILISP is freely redistributable under the terms found in the file
|
|
|
20 ;;; COPYING.
|
|
|
21
|
|
|
22
|
|
|
23 ;;;
|
|
|
24 ;;; ILISP Error handler
|
|
|
25 ;;;
|
|
|
26
|
|
|
27
|
|
|
28 ;; Do not handle errors by default.
|
|
|
29 (defvar ilisp-handle-errors nil)
|
|
|
30
|
|
|
31 ;;;
|
|
|
32 (defun ilisp-handler (error-p wait-p message output prompt)
|
|
|
33 "Given ERROR-P, WAIT-P, MESSAGE, OUTPUT and PROMPT, show the message
|
|
|
34 and output if there is an error or the output is multiple lines and
|
|
|
35 let the user decide what to do."
|
|
|
36 (if (not ilisp-handle-errors)
|
|
|
37 (progn
|
|
|
38 (if message
|
|
|
39 (progn
|
|
|
40 (setq ilisp-last-message message
|
|
|
41 ilisp-last-prompt prompt)
|
|
|
42 (if (not wait-p) (lisp-display-output output))))
|
|
|
43 nil)
|
|
|
44 (if (and (not wait-p)
|
|
|
45 (setq output (comint-remove-whitespace output))
|
|
|
46 (or error-p (string-match "\n" output)))
|
|
|
47 (let* ((buffer (ilisp-output-buffer))
|
|
|
48 (out (if error-p
|
|
|
49 (funcall ilisp-error-filter output)
|
|
|
50 output))
|
|
|
51 (key
|
|
|
52 (if (and error-p (not (comint-interrupted)))
|
|
|
53 (comint-handle-error
|
|
|
54 out
|
|
|
55 "SPC-scroll, I-ignore, K-keep, A-abort sends and keep or B-break: "
|
|
|
56 '(?i ?k ?a ?b))
|
|
|
57 (comint-handle-error
|
|
|
58 out
|
|
|
59 "SPC-scroll, I-ignore, K-keep or A-abort sends and keep: "
|
|
|
60 '(?i ?k ?a))))
|
|
|
61 (clear comint-queue-emptied))
|
|
|
62 (if (= key ?i)
|
|
|
63 (progn
|
|
|
64 (message "Ignore message")
|
|
|
65 (if buffer
|
|
|
66 (funcall
|
|
|
67 (ilisp-temp-buffer-show-function)
|
|
|
68 buffer)
|
|
|
69 (ilisp-bury-output))
|
|
|
70 t)
|
|
|
71 (save-excursion
|
|
|
72 (set-buffer (get-buffer-create "*Errors*"))
|
|
|
73 (if clear (delete-region (point-min) (point-max)))
|
|
|
74 (goto-char (point-max))
|
|
|
75 (insert message)
|
|
|
76 (insert ?\n)
|
|
|
77 (insert out)
|
|
|
78 (insert "\n\n"))
|
|
|
79 (if clear (setq comint-queue-emptied nil))
|
|
|
80 (if (= key ?a)
|
|
|
81 (progn
|
|
|
82 (message "Abort pending commands and keep in *Errors*")
|
|
|
83 (comint-abort-sends)
|
|
|
84 t)
|
|
|
85 (if (= key ?b)
|
|
|
86 (progn
|
|
|
87 (comint-insert
|
|
|
88 (concat comment-start comment-start comment-start
|
|
|
89 message "\n"
|
|
|
90 output "\n" prompt))
|
|
|
91 (message "Preserve break") nil)
|
|
|
92 (message "Keep error in *Errors* and continue")
|
|
|
93 t))))
|
|
|
94 t)))
|
|
|
95
|
|
|
96 ;;;
|
|
|
97 (defun ilisp-abort-handler ()
|
|
|
98 "Handle when the user aborts commands."
|
|
|
99 (setq ilisp-initializing nil
|
|
|
100 ilisp-load-files nil)
|
|
|
101 (let ((add nil))
|
|
|
102 (while ilisp-pending-changes
|
|
|
103 (if (not (memq (car ilisp-pending-changes) lisp-changes))
|
|
|
104 (setq add (cons (car ilisp-pending-changes) add)))
|
|
|
105 (setq ilisp-pending-changes (cdr ilisp-pending-changes)))
|
|
|
106 (setq lisp-changes (nconc lisp-changes add))))
|
