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-kcl.el < prev    next >
Encoding:
Text File  |  1995-01-26  |  2.4 KB  |  83 lines
  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 --
  83.