diff options
author | dos-reis <gdr@axiomatics.org> | 2012-01-14 11:56:20 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2012-01-14 11:56:20 +0000 |
commit | 9906d4079093b27d185f4116485fffe80ff19380 (patch) | |
tree | da1b4e4f7d0ffc3e05ee63f04826274c62832708 /src/interp/patches.lisp | |
parent | 7d98b7fa7d816f132fb09bf439333f4145c603f8 (diff) | |
download | open-axiom-9906d4079093b27d185f4116485fffe80ff19380.tar.gz |
* lisp/core.lisp.in (mkIntArray): New. Export.
* interp/patches.lisp (/RF): Move to cparse.boot.
(/RQ): Likewise.
(/RQ,LIB): Likewise.
(/RF-1): Likewise.
(/EF): Move to spad.lisp.
(construct): Remove.
(READSPADEXPR): Likewise.
(SHAREDITEMS): Likewise.
(installStandardTestPackages): Likewise.
(spadtestValueHook): Likewise.
(testError): Likewise.
($TestOptions): Likewise.
(rebuild): Likewise.
($ViewportProcessToWatch): Likewise.
(setViewportProcess): Likewise.
(waitForViewport): Likewise.
* interp/i-analy.boot (pushDownOp?): Use mkIntArray in place of
GETZEROVEC.
* interp/i-funsel.boot (argCouldBelongToSubdomain): Likewise.
* interp/i-intern.boot (flagArguments): Likewise.
Diffstat (limited to 'src/interp/patches.lisp')
-rw-r--r-- | src/interp/patches.lisp | 91 |
1 files changed, 0 insertions, 91 deletions
diff --git a/src/interp/patches.lisp b/src/interp/patches.lisp index 62e8eb3e..a4299431 100644 --- a/src/interp/patches.lisp +++ b/src/interp/patches.lisp @@ -40,8 +40,6 @@ (defun CATCHALL (a &rest b) a) ;; not correct but ok for now (defvar |$demoFlag| nil) -(define-function '|construct| #'list) ;; NEEDED , SPAD-COMPILER generated Lisp code - (defmacro dribinit (streamvar) `(if (is-console ,streamvar) (setq ,streamvar *terminal-io*))) @@ -64,56 +62,6 @@ #+(and :GCL :IEEE-FLOATING-POINT ) (setq system:*print-nans* T) -(defun /RF (&rest foo &aux (|$Echo| 'T)) - (declare (special |$Echo|)) - (/RF-1 nil)) - -(defun /RQ (&rest foo &aux (|$Echo| nil)) - (declare (special |$Echo|)) - (/RF-1 nil)) - -(defun |/RQ,LIB| (&rest foo &aux (|$Echo| nil)) - (declare (special |$Echo|)) - (/RF-1 nil)) - -(defun /RF-1 (ignore) - (declare (ignore ignore)) - (declare (special |$Echo|)) - (let* ((input-file (make-input-filename /EDITFILE)) - (lfile ()) - (type (pathname-type input-file))) - (cond - ((string= type "boot") - (boot input-file - (setq lfile (make-pathname :type "lisp" - :defaults input-file))) - (load lfile)) - ((string= type "lisp") (load input-file)) - ((string= type "bbin") (load input-file)) - ((string= type "input") - (|ncINTERPFILE| input-file |$Echo|)) - (t (spad input-file))))) - -(defun /EF (&rest foo) - (|runCommand| (concat "vi " (namestring (make-input-filename /EDITFILE))))) - -(defun SHAREDITEMS (x) T) ;;checked in history code - -(defun GETZEROVEC (n) (MAKE-ARRAY n :initial-element 0)) - -(defun READSPADEXPR () - (declare (special in-stream)) - (let* ((line (cdar (preparse in-stream)))) - (cond ((or (not (stringp line)) (zerop (SIZE line))) - (SAY " Scratchpad -- input") - (READSPADEXPR)) - (t (|parseTransform| (|postTransform| (|string2SpadTree| line))))))) - -;; following are defined in spadtest.boot and stantest.boot -(defun |installStandardTestPackages| () ()) -(defun |spadtestValueHook| (val type) ()) -(defun |testError| (errotype erroValue) ()) -(defvar |$TestOptions| ()) ;; following in defined in word.boot (defun |bootFind| (word) ()) @@ -147,43 +95,4 @@ (cacheKeyedMsg |$defaultMsgDatabaseName|)) (gethash key *msghash*)) -#+:AKCL (proclaim '(ftype (function (t) t) identity)) -#+:AKCL (defun identity (x) x) - (|initializeTimedNames| |$interpreterTimedNames| |$interpreterTimedClasses|) - -(defun |rebuild| (filemode) - "rebuild MODEMAP.DAASE, exit lisp with bad return code on failure" - (let ((returncode -16)) - (unwind-protect - (let (|$databaseQueue| |$e|) - (declare (special |$databaseQueue| |$e|)) - (|clearConstructorAndLisplibCaches|) - (setq |$databaseQueue| nil) - (setq |$e| (cons (cons nil nil) nil)) - (|buildDatabase| filemode t) - (setq |$IOindex| 1) - (setq |$InteractiveFrame| (cons (cons nil nil) nil)) - (setq returncode 0)) - (unless (zerop returncode) (bye returncode))))) - -(defvar |$ViewportProcessToWatch| nil) -(defun |setViewportProcess| () - (setq |$ViewportProcessToWatch| - (stringimage (CDR - (|processInteractive| '(|key| (|%%| -2)) NIL) )))) - -(defun |waitForViewport| () - (progn - (do () - ((not (zerop (|runCommand| - (concat - "ps " - |$ViewportProcessToWatch| - " > /dev/null"))))) - ()) - (|sockSendInt| |$MenuServer| 1) - (|setIOindex| (- |$IOindex| 3)) - ) -) - |