aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/boot/initial-env.lisp13
-rw-r--r--src/boot/strap/tokens.clisp5
-rw-r--r--src/boot/strap/translator.clisp3
-rw-r--r--src/boot/tokens.boot5
-rw-r--r--src/boot/translator.boot3
5 files changed, 14 insertions, 15 deletions
diff --git a/src/boot/initial-env.lisp b/src/boot/initial-env.lisp
index b9a76109..40ca50cc 100644
--- a/src/boot/initial-env.lisp
+++ b/src/boot/initial-env.lisp
@@ -46,11 +46,7 @@
(:use "AxiomCore")
#+:common-lisp (:use "COMMON-LISP")
#-:common-lisp (:use "LISP")
- (:export "loadNativeModule"
- "loadSystemRuntimeCore"
- "$InteractiveMode"
- "string2BootTree"
- "genImportDeclaration"))
+ )
(in-package "BOOTTRAN")
@@ -63,17 +59,10 @@
#+:ieee-floating-point (defparameter $ieee t)
#-:ieee-floating-point (defparameter $ieee nil)
-;; when true indicate that that the Boot translator
-;; is called interactively.
-(defparameter |$InteractiveMode| nil)
-
(defvar *lisp-bin-filetype* "o")
(defvar *lisp-source-filetype* "lisp")
-(defun |shoeInputFile| (filespec )
- (open filespec :direction :input :if-does-not-exist nil))
-
(defmacro |shoeOpenInputFile|
(stream fn prog)
`(with-open-file (,stream ,fn :direction :input
diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp
index f17b0d63..0207ed51 100644
--- a/src/boot/strap/tokens.clisp
+++ b/src/boot/strap/tokens.clisp
@@ -5,6 +5,11 @@
(PROVIDE "tokens")
+(EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE)
+ (EXPORT '|$InteractiveMode|))
+
+(DEFPARAMETER |$InteractiveMode| NIL)
+
(DEFUN |char| (|x|) (SCHAR (SYMBOL-NAME |x|) 0))
(DEFUN |shoeStartsId| (|x|)
diff --git a/src/boot/strap/translator.clisp b/src/boot/strap/translator.clisp
index a5a24e72..42a0740f 100644
--- a/src/boot/strap/translator.clisp
+++ b/src/boot/strap/translator.clisp
@@ -14,7 +14,8 @@
(PROVIDE "translator")
(EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE)
- (EXPORT '|evalBootFile|))
+ (EXPORT '(|evalBootFile| |loadNativeModule| |loadSystemRuntimeCore|
+ |string2BootTree| |genImportDeclaration|)))
(DEFPARAMETER |$currentModuleName| NIL)
diff --git a/src/boot/tokens.boot b/src/boot/tokens.boot
index 9c1f3d43..0b4946d5 100644
--- a/src/boot/tokens.boot
+++ b/src/boot/tokens.boot
@@ -34,7 +34,10 @@
import utility
namespace BOOTTRAN
-module tokens
+module tokens ($InteractiveMode)
+
+++ If true, means the system is in interactive mode.
+$InteractiveMode := false
++ converts `x', a 1-length symbol, to a character.
char x ==
diff --git a/src/boot/translator.boot b/src/boot/translator.boot
index a90079a5..5dd5a8dd 100644
--- a/src/boot/translator.boot
+++ b/src/boot/translator.boot
@@ -39,7 +39,8 @@ import pile
import parser
import ast
namespace BOOTTRAN
-module translator (evalBootFile)
+module translator (evalBootFile, loadNativeModule, loadSystemRuntimeCore,
+ string2BootTree, genImportDeclaration)
++ If non nil, holds the name of the current module being translated.
$currentModuleName := nil