Mercurial > hg > xemacs-beta

comparison lisp/ilisp/ilisp-kcl.el @ 0:376386a54a3c r19-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-14
author cvs
date Mon, 13 Aug 2007 08:45:50 +0200
parents
children b82b59fe008d
comparison
equal deleted inserted replaced
-1:000000000000 0:376386a54a3c
1 ;;; -*- Mode: Emacs-Lisp -*-
2
3 ;;; ilisp-kcl.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 Kyoto Common Lisp dialect definition
25 ;;;
26
27 ;;;%%%KCL--these dialects by Tom Emerson
28 ;;; kcl-check-prompt doesn't after the first break because the
29 ;;; number of ">" characters doesn't increase.
30
31 (defun kcl-check-prompt (old new)
32 "Compare the break level printed at the beginning of the prompt."
33 (let* ((was-in-break (and old (string-match ">+" old)))
34 (old-level (if was-in-break
35 (- (match-end 0) (match-beginning 0))
36 0))
37 (is-in-break (string-match ">+" new))
38 (new-level (if is-in-break
39 (- (match-end 0) (match-beginning 0))
40 0)))
41 (<= new-level old-level)))
42
43 ;;;
44 (defdialect kcl "Kyoto Common LISP" clisp
45 (setq comint-prompt-regexp "^>+"
46 ilisp-error-regexp "Error: "
47 ilisp-binary-extension "o"
48 comint-fix-error ":q"
49 comint-continue ":r"
50 comint-prompt-status
51 (function
52 (lambda (old line)
53 (comint-prompt-status old line 'kcl-check-prompt)))))
54 (if (not kcl-program) (setq kcl-program "kcl"))
55
56 ;;;%%%AKCL
57 (defdialect akcl "Austin Kyoto Common LISP" kcl)
58 (if (not akcl-program) (setq akcl-program "akcl"))
59
60
61 ;;;%%%IBCL
62 (defdialect ibcl "Ibuki Common LISP" kcl
63 (setq comint-prompt-regexp "^[-A-Z]*>+\\|^[-A-Z]* ->"
64 comint-interrupt-regexp ">>Condition: Terminal Interrupt"
65 comint-continue ":q"
66 ilisp-reset ":q!"
67 ilisp-error-regexp ">>Error:"))
68 (if (not ibcl-program) (setq ibcl-program "ibcl"))
69
70
71 ;;; GCL -- I assume it is exactly as AKCL.
72 ;;; Should check whether it is similar to IBUKI.
73 (defdialect gcl "GNU Common LISP" akcl)
74 (if (not gcl-program) (setq gcl-program "gcl"))
75
76
77 ;;; ECL -- Beppe Attardi's developments over AKCL
78
79 (defdialect ecl "EcoLisp Common LISP" akcl)
80 (if (not ecl-program) (setq gcl-program "ecl"))
81
82 ;;; end of file -- ilisp-kcl.el --