diff options
| author | dos-reis <gdr@axiomatics.org> | 2007-08-19 15:50:54 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2007-08-19 15:50:54 +0000 |
| commit | b8b2eb6ec38b088065ede6cab25726c1ec9e6b3e (patch) | |
| tree | 30f128dfa1817a17f385d51f2bce68c7593653e7 /src/interp/metalex.lisp.pamphlet | |
| parent | 17bed73d60542761e6817b711fcc6d62c0d05cc6 (diff) | |
| download | open-axiom-b8b2eb6ec38b088065ede6cab25726c1ec9e6b3e.tar.gz | |
* bootlex.lisp.pamphlet (|boot-LEXPR|): Remove
* spad.lisp.pamphlet (BOOT-LEXPR): Remove.
(NBOOT-LEXPR): Likewise.
(New-LEXPR): Likewise.
(New-LEXPR1): Likewise.
(New-LEXPR-Interactive): Likewise.
(|getTranslation|): Likewise.
(|New-LEXPR|): Likewise.
(|boot2Lisp|): Likewise.
(|boot2LispError|): Likewise.
(|New,ENTRY|): Likewise.
(new): Likewise.
(newpo): Likewise.
(|New,ENTRY,SYS|): Likewise.
(|New,ENTRY1|): Likewise.
(/cx): Likewise.
(/foobar): Likewise.
(|/cxd|): Likewise.
(|/rx|): Likewise.
(|/ry|): Likewise.
(|/tb|): Likewise.
(|$lisp2lispRenameAssoc|): Likewise..
(|$spadOpList|): Likewise.
(SPAD-MDTR-1): Likewise.
(SPAD-MDTR-2): Likewise.
(foobar): Likewise.
* metalex.lisp.pamphlet (in-meta): Remove.
(newrule): Likewise.
(meta): Likrwise.
* spad.lisp.pamphlet (/TRANSMETA): Remove.
(/TRANSBOOT): Likewise.
(/TRANSNBOOT): Likewise.
* debug.lisp.pamphlet (META): Don't set property.
* Makefile.pamphlet (depsys_lisp_compiled_sources): Don't include
metameta.lisp
(OPOBJS): Likewise.
(depsys_lisp_sources): Likewise.
(depsys_objects): Likewise.
(${DEPSYS}): Don't depend on it. Don't load it.
(${AUTO}/metameta.$(FASLEXT)): Remove.
* metameta.lisp.pamphlet: Remove.
Diffstat (limited to 'src/interp/metalex.lisp.pamphlet')
| -rw-r--r-- | src/interp/metalex.lisp.pamphlet | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/src/interp/metalex.lisp.pamphlet b/src/interp/metalex.lisp.pamphlet index 1af8f038..d0b6554b 100644 --- a/src/interp/metalex.lisp.pamphlet +++ b/src/interp/metalex.lisp.pamphlet @@ -63,38 +63,6 @@ (in-package "BOOT") -; *** 1. META file handling - -(defun in-meta () - (setq XTokenReader 'get-META-token) - (setq Line-Handler 'next-META-line) - (setq Meta_Error_Handler 'meta-meta-error-handler) - (setq $BOOT nil)) - -(defun newrule () - (in-meta) - (setq meta_prefix "PARSE-") - (test Rule1) - (eval (pop-stack-1)) - (ioclear) - (in-boot)) - -(defun meta (&optional (*meta-input-file* "/spad/meta.meta") - (*meta-output-file* nil)) - (ioclear) - (in-meta) - (with-open-stream - (in-stream (open *meta-input-file* :direction :input)) - (with-open-stream - (out-stream (if *meta-output-file* - (open *meta-output-file* :direction :output) - *terminal-io*)) - (format out-stream - "~&;;; -*- Mode:Lisp; Package:Boot -*-~%~%") - (parse-program) - (IOClear in-stream out-stream))) - T) - ; *** 2. META Line Handling (defun next-META-line (&optional (in-stream t)) |