annotate lisp/ilisp/ilisp-luc.el @ 0:376386a54a3c r19-14

Import from CVS: tag r19-14
author cvs
date Mon, 13 Aug 2007 08:45:50 +0200
parents
children b82b59fe008d
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1 ;;; -*- Mode: Emacs-Lisp -*-
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3 ;;; ilisp-luc.el --
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
4
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
5 ;;; This file is part of ILISP.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
6 ;;; Version: 5.7
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
7 ;;;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
8 ;;; Copyright (C) 1990, 1991, 1992, 1993 Chris McConnell
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
9 ;;; 1993, 1994 Ivan Vasquez
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
10 ;;; 1994, 1995 Marco Antoniotti and Rick Busdiecker
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
11 ;;;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
12 ;;; Other authors' names for which this Copyright notice also holds
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
13 ;;; may appear later in this file.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
14 ;;;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
15 ;;; Send mail to 'ilisp-request@lehman.com' to be included in the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
16 ;;; ILISP mailing list. 'ilisp@lehman.com' is the general ILISP
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
17 ;;; mailing list were bugs and improvements are discussed.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
18 ;;;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
19 ;;; ILISP is freely redistributable under the terms found in the file
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
20 ;;; COPYING.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
21
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
22
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
23 ;;;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
24 ;;; ILISP Lucid Common Lisp dialect definition
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
25 ;;;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
26
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
27
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
28
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
29 ;;;%%%Lucid
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
30 (defvar ilisp-lucid-init-file "lucid.lisp")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
31
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
32
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
33 (defun lucid-check-prompt (old new)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
34 "Compare the break level printed at the beginning of the prompt."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
35 (let* ((old-level (if (and old (eq 0 (string-match "\\(->\\)+" old)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
36 (- (match-end 0) (match-beginning 0))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
37 0))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
38 (new-level (if (eq 0 (string-match "\\(->\\)+" new))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
39 (- (match-end 0) (match-beginning 0))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
40 0)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
41 (<= new-level old-level)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
42
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
43 ;;;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
44 (defdialect lucid "Lucid Common LISP"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
45 clisp
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
46 (ilisp-load-init 'lucid ilisp-lucid-init-file)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
47 (setq comint-prompt-regexp "^\\(->\\)+ \\|^[^> ]*> "
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
48 comint-fix-error ":a"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
49 ilisp-reset ":a :t"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
50 comint-continue ":c"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
51 comint-interrupt-regexp ">>Break: Keyboard interrupt"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
52 comint-prompt-status
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
53 (function (lambda (old line)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
54 (comint-prompt-status old line 'lucid-check-prompt))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
55 (setq ilisp-error-regexp "ILISP:[^\"]*\\|>>[^\n]*")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
56 (setq ilisp-source-types (append ilisp-source-types '(("any"))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
57 (setq ilisp-find-source-command
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
58 "(ILISP:ilisp-source-files \"%s\" \"%s\" \"%s\")")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
59 (setq ilisp-binary-command
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
60 "(first (last lucid::*load-binary-pathname-types*))"))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
61
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
62 (if (not lucid-program) (setq lucid-program "lisp"))