home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / ilisp / ilisp-luc.el < prev    next >
Encoding:
Text File  |  1995-01-26  |  1.8 KB  |  63 lines
  1. ;;; -*- Mode: Emacs-Lisp -*-
  2.  
  3. ;;; ilisp-luc.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 Lucid Common Lisp dialect definition
  25. ;;;
  26.  
  27.  
  28.  
  29. ;;;%%%Lucid
  30. (defvar ilisp-lucid-init-file "lucid.lisp")
  31.  
  32.  
  33. (defun lucid-check-prompt (old new)
  34.   "Compare the break level printed at the beginning of the prompt."
  35.   (let* ((old-level (if (and old (eq 0 (string-match "\\(->\\)+" old)))
  36.              (- (match-end 0) (match-beginning 0))
  37.              0))
  38.      (new-level (if (eq 0 (string-match "\\(->\\)+" new))
  39.              (- (match-end 0) (match-beginning 0))
  40.              0)))
  41.     (<= new-level old-level)))
  42.  
  43. ;;;
  44. (defdialect lucid "Lucid Common LISP"
  45.   clisp
  46.   (ilisp-load-init 'lucid ilisp-lucid-init-file)
  47.   (setq comint-prompt-regexp "^\\(->\\)+ \\|^[^> ]*> "
  48.     comint-fix-error ":a"
  49.     ilisp-reset ":a :t"
  50.     comint-continue ":c"
  51.     comint-interrupt-regexp ">>Break: Keyboard interrupt"
  52.     comint-prompt-status 
  53.     (function (lambda (old line)
  54.       (comint-prompt-status old line 'lucid-check-prompt))))
  55.   (setq ilisp-error-regexp "ILISP:[^\"]*\\|>>[^\n]*")
  56.   (setq ilisp-source-types (append ilisp-source-types '(("any"))))
  57.   (setq ilisp-find-source-command 
  58.     "(ILISP:ilisp-source-files \"%s\" \"%s\" \"%s\")")
  59.   (setq ilisp-binary-command 
  60.     "(first (last lucid::*load-binary-pathname-types*))"))
  61.  
  62. (if (not lucid-program) (setq lucid-program "lisp"))
  63.