[Ilisp-devel] armedbear

[<as...@ma...>]

This is a patch and two files which provide some support for Armedbear
Lisp. Would it be possible to include this in ilisp?

Andras

First the patch:

Index: cl-ilisp.lisp
===================================================================
RCS file: /cvsroot/ilisp/ILISP/cl-ilisp.lisp,v
retrieving revision 1.21
diff -c -r1.21 cl-ilisp.lisp
*** cl-ilisp.lisp	3 Nov 2003 04:40:16 -0000	1.21
--- cl-ilisp.lisp	17 Dec 2003 15:55:27 -0000
***************
*** 151,157 ****

  ;; MNA: ecl (ecls-0.5) still had special-form-p in COMMON-LISP,
  ;; which produced an error, when redefined.
! #+(and (or :cormanlisp :ansi-cl) (not :ecl))
  (defun special-form-p (symbol)
    "Backward compatibility for non ANSI CL's."
    (special-operator-p symbol))
--- 151,157 ----

  ;; MNA: ecl (ecls-0.5) still had special-form-p in COMMON-LISP,
  ;; which produced an error, when redefined.
! #+(and (or :armedbear :cormanlisp :ansi-cl) (not :ecl))
  (defun special-form-p (symbol)
    "Backward compatibility for non ANSI CL's."
    (special-operator-p symbol))
***************
*** 499,504 ****
--- 499,507 ----
  	   #+allegro
  	   (excl::arglist symbol)

+ 	   #+armedbear
+ 	   (ignore-errors (ext:arglist symbol))
+
  	   #+(or ibcl kcl gcl)
  	   (help symbol)

***************
*** 523,529 ****
  	   #+:openmcl
  	   (arglist symbol (symbol-package symbol))

! 	   #-(or allegro lucid kcl ibcl ecl gcl lispworks clisp cmu :sbcl :openmcl)
  	   (documentation symbol 'function)))))


--- 526,532 ----
  	   #+:openmcl
  	   (arglist symbol (symbol-package symbol))

! 	   #-(or allegro armedbear lucid kcl ibcl ecl gcl lispworks clisp cmu :sbcl :openmcl)
  	   (documentation symbol 'function)))))


***************
*** 540,546 ****
--- 543,551 ----
  	    ;; (ilisp-message t "symbol ~S not present in ~S." symbol package)
  	    (values))
  	   ((special-form-p real-symbol)
+ 	    #-armedbear
  	    (format t "~S: special-operator." real-symbol)
+ 	    #+armedbear (print-function-arglist real-symbol)
  	    (values))
  	   ((fboundp real-symbol)
  	    (print-function-arglist real-symbol))
Index: ilisp.el
===================================================================
RCS file: /cvsroot/ilisp/ILISP/ilisp.el,v
retrieving revision 1.10
diff -c -r1.10 ilisp.el
*** ilisp.el	13 Dec 2003 23:43:44 -0000	1.10
--- ilisp.el	17 Dec 2003 15:55:28 -0000
***************
*** 143,148 ****
--- 143,149 ----
  (load "ilisp-sbcl")
  (load "ilisp-chs")
  (load "ilisp-acl")
+ (load "ilisp-armedbear")
  (load "ilisp-hlw")
  (load "ilisp-kcl")
  (load "ilisp-luc")



Now the files:

;;armedbear.lisp

;;; -*- Mode: Lisp -*-

;;; armedbear.lisp --
;;; ILISP Armedbear Lisp dialect support definitions.
;;;
;;; This file is part of ILISP.
;;; Please refer to the file COPYING for copyrights and licensing
;;; information.
;;; Please refer to the file ACKNOWLEGDEMENTS for an (incomplete) list
;;; of present and past contributors.


(in-package :cl)

(defun pprint (object &optional stream)
  (print object stream))


;;; end of file -- armedbear.lisp --

;;ilisp-armedbear.el

;;;;; -*- Mode: Emacs-Lisp -*-

;;; ilisp-armedbear.el --
;;; ILISP Armedbear Lisp dialect definition
;;;
;;; This file is part of ILISP.
;;; Please refer to the file COPYING for copyrights and licensing
;;; information.
;;; Please refer to the file ACKNOWLEGDEMENTS for an (incomplete) list
;;; of present and past contributors.
;;;


;;;%%%Armedbear
(defvar ilisp-armedbear-init-file "armedbear.lisp")

(defun armedbear-check-prompt (old new)
  "Compare the break level printed at the beginning of the prompt."
  (let* ((old-level (if (and old (eq 1 (string-match "[0-9]+" old)))
 			(string-to-int (substring old 1))
 			0))
 	 (new-level (if (eq 1 (string-match "[0-9]+" new))
 			(string-to-int (substring new 1))
 			0)))
    (<= new-level old-level)))

;;;
(defdialect armedbear "Armedbear LISP"
  common-lisp
  (ilisp-load-init 'armedbear ilisp-armedbear-init-file)
  ;; (ilisp-load-init 'new-edit-definitions "find-src") not yet
  (setq comint-fix-error ":pop"
	ilisp-reset ":reset"
	comint-continue ":cont"
	comint-interrupt-regexp  "Error: [^\n]* interrupt\)")
  (setq comint-prompt-status
	(function (lambda (old line)
		    (comint-prompt-status old line 'armedbear-check-prompt))))
  ;; <cl> or package> at top-level
  ;; [0-9c] <cl> or package> in error
  ;; (setq comint-prompt-regexp "^\\(\\[[0-9]*c*\\] \\|\\)\\(<\\|\\)[^>]*> ")
  ;; (setq comint-prompt-regexp "^\\(\\[[0-9]+i?c?\\] \\|\\[step\\]\\)?\\(<?[-A-Za-z]* ?[0-9]*?>\\|[-A-Za-z0-9]+([0-9]+):\\) ")

  ;; Patch by kpc 94/8/30: allow prompts that look like this:
  ;; USER(23): USER(23):
  (setq comint-prompt-regexp "^\\(\\(\\[[0-9]+i?c?\\] \\|\\[step\\] \\)?\\(<?[-A-Za-z]* ?[0-9]*?>\\|[-A-Za-z0-9]+([0-9]+):\\) \\)+")

  (setq ilisp-error-regexp
	"\\(ILISP:[^\"]*\\)\\|\\(Error:[^\n]*\\)\\|\\(Break:[^\n]*\\)")

  (setq ilisp-source-types (append ilisp-source-types '(("any"))))

  ;; [use new protocol.  -- rgr, 24-Mar-03.]
  (setq ilisp-find-source-command "(ilisp::source-file %S %S %S)")


  ;; FI:CLMAN support

  (setf ilisp-*use-fi-clman-interface-p* nil)

  ;; ILD Support

  (setq ild-abort-string ":pop"
	ild-continue-string ":cont"
	ild-next-string ":dn"
	ild-next-string-arg ":dn %s"
	ild-previous-string ":up"
	ild-previous-string-arg ":up %s"
	ild-top-string ":to"
	ild-bottom-string ":bo"
	ild-backtrace-string ":bt"
	ild-locals-string ":local"
	ild-local-string-arg ":local %s"
	ild-return-string nil		;needs work
	ild-retry-string ":rest"
	ild-trap-on-exit-string ":boe")
  )

(unless armedbear-program (setq armedbear-program "abl"))

;;; end of file -- ilisp-armedbear.el --