Mercurial > hg > xemacs-beta
comparison lisp/ilisp/ilisp-hlw.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 |
comparison
equal
deleted
inserted
replaced
| -1:000000000000 | 0:376386a54a3c |
|---|---|
| 1 ;;; -*- Mode: Emacs-Lisp -*- | |
| 2 | |
| 3 ;;; ilisp-hlw.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 LispWorks Common Lisp dialect definition | |
| 25 ;;; | |
| 26 ;;; Independently written by: | |
| 27 ;;; | |
| 28 ;;; Jason Trenouth: jason@harlequin.co.uk | |
| 29 ;;; Qiegang Long: qlong@cs.umass.edu | |
| 30 ;;; | |
| 31 ;;; and later merged together by Jason | |
| 32 ;;; | |
| 33 | |
| 34 (defvar ilisp-lispworks-init-file "lispworks.lisp") | |
| 35 | |
| 36 ;; may use Qiegang's instead? "[-A-Z]+ [0-9]+ : \\([0-9]+\\) >" | |
| 37 | |
| 38 (defun lispworks-break-level (prompt) | |
| 39 (let ((position nil)) | |
| 40 (if (and prompt (setq position (string-match ": [0-9]+" prompt))) | |
| 41 (string-to-int (substring prompt (+ 2 position))) | |
| 42 0))) | |
| 43 | |
| 44 (defun lispworks-check-prompt (old new) | |
| 45 "Compare the break level printed at the beginning of the prompt." | |
| 46 (<= (lispworks-break-level new) (lispworks-break-level old))) | |
| 47 | |
| 48 ;; Qiegang's prompt matcher "^\\([-A-Z]+ [0-9]+ >\\)\\|\\([-A-Z]+ [0-9]+ : [0-9]+ >\\) " | |
| 49 ;; Qiegang's error matcher "\\(ILISP:[^\"]*\\)\\|\\(Error: [^\n]*\\)\\|\\(Break.[^\n]*\\)" | |
| 50 | |
| 51 (defdialect lispworks "LispWorks" | |
| 52 clisp | |
| 53 (ilisp-load-init 'lispworks ilisp-lispworks-init-file) | |
| 54 (setq comint-fix-error ":a" | |
| 55 ilisp-reset ":a" ;; LW doesn't have a multi-level abort yet | |
| 56 comint-continue ":c" | |
| 57 comint-interrupt-regexp "Break.\n.*") | |
| 58 (setq comint-prompt-status | |
| 59 (function (lambda (old line) | |
| 60 (comint-prompt-status old line 'lispworks-check-prompt)))) | |
| 61 ;; <cl> or package> at top-level | |
| 62 ;; [0-9c] <cl> or package> in error | |
| 63 ;; (setq comint-prompt-regexp "^\\(\\[[0-9]*c*\\] \\|\\)\\(<\\|\\)[^>]*> ") | |
| 64 (setq comint-prompt-regexp "^[A-Z=][-a-z0-9A-Z:= ]*[$%#>]+ *") | |
| 65 (setq ilisp-error-regexp "ILISP [0-9]* : [0-9]* > ") | |
| 66 (setq ilisp-binary-command "system::*binary-file-type*") | |
| 67 (setq ilisp-source-types (append ilisp-source-types '(("any")))) | |
| 68 (setq ilisp-directory-command "(lw:current-pathname)") | |
| 69 (setq ilisp-set-directory-command "(lw:change-directory \"%s\")") | |
| 70 (setq ilisp-find-source-command | |
| 71 "(ILISP:ilisp-source-files \"%s\" \"%s\" \"%s\")") | |
| 72 (setq ilisp-init-binary-command | |
| 73 "system::*binary-file-type*")) | |
| 74 | |
| 75 (if (not lispworks-program) (setq lispworks-program "lispworks")) | |
| 76 | |
| 77 (provide 'ilisp-lw) |