From 38b4f67b70d7cbe007fdb525dc8931edae8bd6b7 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Wed, 6 Feb 2008 12:44:13 -0600
Subject: [PATCH] Save bootstrap time in a global variable

---
 core/bootstrap/stage2.factor | 79 +++++++++++++++++++++++-------------
 1 file changed, 51 insertions(+), 28 deletions(-)

diff --git a/core/bootstrap/stage2.factor b/core/bootstrap/stage2.factor
index 1a9bdd599a..9dd56c6524 100755
--- a/core/bootstrap/stage2.factor
+++ b/core/bootstrap/stage2.factor
@@ -8,25 +8,63 @@ definitions assocs compiler.errors compiler.units
 math.parser generic ;
 IN: bootstrap.stage2
 
+SYMBOL: bootstrap-time
+
+: default-image-name ( -- string )
+    vm file-name windows? [ "." split1 drop ] when
+    ".image" append ;
+
+: do-crossref ( -- )
+    "Cross-referencing..." print flush
+    H{ } clone crossref set-global
+    xref-words
+    xref-generics
+    xref-sources ;
+
+: load-components ( -- )
+    "exclude" "include"
+    [ get-global " " split [ empty? not ] subset ] 2apply
+    seq-diff
+    [ "bootstrap." swap append require ] each ;
+
+: compile-remaining ( -- )
+    "Compiling remaining words..." print flush
+    vocabs [
+        words "compile" "compiler" lookup execute
+    ] each ;
+
+: count-words ( pred -- )
+    all-words swap subset length number>string write ;
+
+: print-report ( time -- )
+    1000 /i
+    60 /mod swap
+    "Bootstrap completed in " write number>string write
+    " minutes and " write number>string write " seconds." print
+
+    [ compiled? ] count-words " compiled words" print
+    [ symbol? ] count-words " symbol words" print
+    [ ] count-words " words total" print
+
+    "Bootstrapping is complete." print
+    "Now, you can run Factor:" print
+    vm write " -i=" write "output-image" get print flush ;
+
 ! Wrap everything in a catch which starts a listener so
 ! you can see what went wrong, instead of dealing with a
 ! fep
 [
-    vm file-name windows? [ "." split1 drop ] when
-    ".image" append "output-image" set-global
+    ! We time bootstrap
+    millis >r
+
+    default-image-name "output-image" set-global
 
     "math help compiler tools ui ui.tools io" "include" set-global
     "" "exclude" set-global
 
     parse-command-line
 
-    "-no-crossref" cli-args member? [
-        "Cross-referencing..." print flush
-        H{ } clone crossref set-global
-        xref-words
-        xref-generics
-        xref-sources
-    ] unless
+    "-no-crossref" cli-args member? [ do-crossref ] unless
 
     ! Set dll paths
     wince? [ "windows.ce" require ] when
@@ -40,19 +78,12 @@ IN: bootstrap.stage2
     ] if
 
     [
-        "exclude" "include"
-        [ get-global " " split [ empty? not ] subset ] 2apply
-        seq-diff
-        [ "bootstrap." swap append require ] each
+        load-components
 
         run-bootstrap-init
 
-        "Compiling remaining words..." print flush
-
         "bootstrap.compiler" vocab [
-            vocabs [
-                words "compile" "compiler" lookup execute
-            ] each
+            compile-remaining
         ] when
     ] with-compiler-errors
     :errors
@@ -74,16 +105,8 @@ IN: bootstrap.stage2
             ] [ print-error 1 exit ] recover
         ] set-boot-quot
 
-        : count-words ( pred -- )
-            all-words swap subset length number>string write ;
-
-        [ compiled? ] count-words " compiled words" print
-        [ symbol? ] count-words " symbol words" print
-        [ ] count-words " words total" print
-
-        "Bootstrapping is complete." print
-        "Now, you can run Factor:" print
-        vm write " -i=" write "output-image" get print flush
+        millis r> - dup bootstrap-time set-global
+        print-report
 
         "output-image" get resource-path save-image-and-exit
     ] if