bootstrap: some cleanup, move stage1 to basis/bootstrap/

[factor.git] / basis / bootstrap / stage1.factor

diff --git a/basis/bootstrap/stage1.factor b/basis/bootstrap/stage1.factor
new file mode 100644 (file)
index 0000000..0e9c805
--- /dev/null
+++ b/basis/bootstrap/stage1.factor
@@ -0,0 +1,59 @@
+! Copyright (C) 2004, 2009 Slava Pestov.
+! See http://factorcode.org/license.txt for BSD license.
+USING: assocs bootstrap.image.private hash-sets hashtables init
+io io.files kernel kernel.private make memory namespaces parser
+parser.notes sequences system vocabs vocabs.loader ;
+
+"Bootstrap stage 1..." print flush
+
+"resource:basis/bootstrap/primitives.factor" run-file
+
+load-help? off
+{ "resource:core" } vocab-roots set
+
+! Create a boot quotation for the target by collecting all top-level
+! forms into a quotation, surrounded by some boilerplate.
+[
+    [
+        ! Rehash hashtables first, since bootstrap.image creates
+        ! them using the host image's hashing algorithms.
+        [ hashtable? ] instances [ hashtables:rehash ] each
+        [ hash-set? ] instances [ hash-sets:rehash ] each
+        boot
+    ] %
+
+    "math.integers" require
+    "math.ratios" require
+    "math.floats" require
+    "memory" require
+
+    "io.streams.c" require
+    "io.streams.byte-array" require ! for utf16 on Windows
+    "vocabs.loader" require
+
+    "syntax" require
+
+    "locals" require
+    "locals.fry" require
+    "locals.macros" require
+
+    "resource:basis/bootstrap/layouts.factor" parse-file %
+
+    [
+        f parser-quiet? set-global
+
+        init-resource-path
+
+        "resource:basis/bootstrap/stage2.factor"
+        dup file-exists? [
+            run-file
+        ] [
+            "Cannot find " write write "." print
+            "Please move " write image-path write " into the same directory as the Factor sources," print
+            "and try again." print
+            1 (exit)
+        ] if
+    ] %
+] [ ] make
+OBJ-STARTUP-QUOT
+bootstrap.image.private:special-objects get set-at