Mercurial > hg > xemacs-beta

comparison lisp/ilisp/ilisp-kcl.el @ 4:b82b59fe008d r19-15b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b3
author cvs
date Mon, 13 Aug 2007 08:46:56 +0200
parents 376386a54a3c
children
comparison
equal deleted inserted replaced
3:30df88044ec6 4:b82b59fe008d
1 ;;; -*- Mode: Emacs-Lisp -*- 1 ;;; -*- Mode: Emacs-Lisp -*-
2 2
3 ;;; ilisp-kcl.el -- 3 ;;; ilisp-kcl.el --
4 4
5 ;;; This file is part of ILISP. 5 ;;; This file is part of ILISP.
6 ;;; Version: 5.7 6 ;;; Version: 5.8
7 ;;; 7 ;;;
8 ;;; Copyright (C) 1990, 1991, 1992, 1993 Chris McConnell 8 ;;; Copyright (C) 1990, 1991, 1992, 1993 Chris McConnell
9 ;;; 1993, 1994 Ivan Vasquez 9 ;;; 1993, 1994 Ivan Vasquez
10 ;;; 1994, 1995 Marco Antoniotti and Rick Busdiecker 10 ;;; 1994, 1995, 1996 Marco Antoniotti and Rick Busdiecker
11 ;;; 1996 Marco Antoniotti and Rick Campbell
11 ;;; 12 ;;;
12 ;;; Other authors' names for which this Copyright notice also holds 13 ;;; Other authors' names for which this Copyright notice also holds
13 ;;; may appear later in this file. 14 ;;; may appear later in this file.
14 ;;; 15 ;;;
15 ;;; Send mail to 'ilisp-request@lehman.com' to be included in the 16 ;;; Send mail to 'ilisp-request@naggum.no' to be included in the
16 ;;; ILISP mailing list. 'ilisp@lehman.com' is the general ILISP 17 ;;; ILISP mailing list. 'ilisp@naggum.no' is the general ILISP
17 ;;; mailing list were bugs and improvements are discussed. 18 ;;; mailing list were bugs and improvements are discussed.
18 ;;; 19 ;;;
19 ;;; ILISP is freely redistributable under the terms found in the file 20 ;;; ILISP is freely redistributable under the terms found in the file
20 ;;; COPYING. 21 ;;; COPYING.
21 22
41 (<= new-level old-level))) 42 (<= new-level old-level)))
42 43
43 ;;; 44 ;;;
44 (defdialect kcl "Kyoto Common LISP" clisp 45 (defdialect kcl "Kyoto Common LISP" clisp
45 (setq comint-prompt-regexp "^>+" 46 (setq comint-prompt-regexp "^>+"
46 ilisp-error-regexp "Error: " 47 ilisp-error-regexp "Error: [^\n]*"
47 ilisp-binary-extension "o" 48 ilisp-binary-extension "o"
49 ilisp-init-binary-extension "o"
50 ilisp-binary-command "\"o\""
48 comint-fix-error ":q" 51 comint-fix-error ":q"
49 comint-continue ":r" 52 comint-continue ":r"
50 comint-prompt-status 53 comint-prompt-status
51 (function 54 (function
52 (lambda (old line) 55 (lambda (old line)
62 (defdialect ibcl "Ibuki Common LISP" kcl 65 (defdialect ibcl "Ibuki Common LISP" kcl
63 (setq comint-prompt-regexp "^[-A-Z]*>+\\|^[-A-Z]* ->" 66 (setq comint-prompt-regexp "^[-A-Z]*>+\\|^[-A-Z]* ->"
64 comint-interrupt-regexp ">>Condition: Terminal Interrupt" 67 comint-interrupt-regexp ">>Condition: Terminal Interrupt"
65 comint-continue ":q" 68 comint-continue ":q"
66 ilisp-reset ":q!" 69 ilisp-reset ":q!"
67 ilisp-error-regexp ">>Error:")) 70 ilisp-error-regexp ">>Error:[^\n]*"))
68 (if (not ibcl-program) (setq ibcl-program "ibcl")) 71 (if (not ibcl-program) (setq ibcl-program "ibcl"))
69 72
70 73
74 ;;; GCL and ECL (at least) have slightly different compilers and
75 ;;; runtimes, hence we need to provide different extensions for their
76 ;;; init files.
77 ;;; Marco Antoniotti <marcoxa@icsi.berkeley.edu> 19951028.
78
71 ;;; GCL -- I assume it is exactly as AKCL. 79 ;;; GCL -- I assume it is exactly as AKCL.
72 ;;; Should check whether it is similar to IBUKI. 80 ;;; Should check whether it is similar to IBUKI.
73 (defdialect gcl "GNU Common LISP" akcl) 81 (defdialect gcl "GNU Common LISP" akcl
82 (setq comint-prompt-regexp "^>+"
83 ilisp-binary-extension "o"
84 ilisp-init-binary-extension "gcl.o"
85 ilisp-binary-command "\"o\""
86 ilisp-init-binary-command "\"gcl.o\""
87 ))
74 (if (not gcl-program) (setq gcl-program "gcl")) 88 (if (not gcl-program) (setq gcl-program "gcl"))
75 89
76 90
77 ;;; ECL -- Beppe Attardi's developments over AKCL 91 ;;; ECL -- Beppe Attardi's developments over AKCL
78 92
79 (defdialect ecl "EcoLisp Common LISP" akcl) 93 (defdialect ecl "EcoLisp Common LISP" akcl
80 (if (not ecl-program) (setq gcl-program "ecl")) 94 (setq comint-prompt-regexp "^>+"
95 ilisp-binary-extension "o"
96 ilisp-init-binary-extension "ecl.o"
97 ilisp-binary-command "\"o\""
98 ilisp-init-binary-command "\"ecl.o\""
99 ))
100 (if (not ecl-program) (setq ecl-program "ecl"))
81 101
82 ;;; end of file -- ilisp-kcl.el -- 102 ;;; end of file -- ilisp-kcl.el --