Don't compile contrib/ files until the very end; reduces compile time considerably.

diff --git a/contrib/aim/load.factor b/contrib/aim/load.factor
index 89114b5940694ed83f280a54ade2b958a01d0b97..fcfc45ea3959d4b19bab7b17f5023825abb1c5c7 100644 (file)
--- a/contrib/aim/load.factor
+++ b/contrib/aim/load.factor
@@ -1,9 +1,9 @@
 IN: scratchpad
 USING: kernel parser sequences words compiler ;
-"contrib/crypto/load.factor" run-file
 
-{ "net-bytes" "aim" }
-[ "contrib/aim/" swap ".factor" append3 run-file ]
+"contrib/crypto/load.factor" run-file
 
-{ "aim-internals" "aim" }
-[ words [ try-compile ] each ] each
+{ 
+    "net-bytes"
+    "aim"
+} [ "contrib/aim/" swap ".factor" append3 run-file ]

diff --git a/contrib/cairo/load.factor b/contrib/cairo/load.factor
index 05f8309581e5f1cfb3a96a53badc60e839cb0394..48613bbbfcaa740f03c393286d8cd30c1203ee3c 100644 (file)
--- a/contrib/cairo/load.factor
+++ b/contrib/cairo/load.factor
@@ -1,13 +1,13 @@
 IN: scratchpad
 USING: alien kernel parser compiler words sequences ;
 
-{ { "cairo" "libcairo" }
-  { "sdl-gfx" "libSDL_gfx" }
-  { "sdl" "libSDL" } }
-[ first2 add-simple-library ] each
+{ 
+    { "cairo" "libcairo" }
+    { "sdl-gfx" "libSDL_gfx" }
+    { "sdl" "libSDL" }
+} [ first2 add-simple-library ] each
 
-{ "cairo" "cairo_sdl" }
-[ "contrib/cairo/" swap ".factor" append3 run-file ] each
-
-{ "cairo" "cairo-sdl" }
-[ words [ try-compile ] each ] each
+{ 
+    "cairo"
+    "cairo_sdl"
+} [ "contrib/cairo/" swap ".factor" append3 run-file ] each

diff --git a/contrib/concurrency/load.factor b/contrib/concurrency/load.factor
index f2c29533850a920c7e7d45f4a7eb3d11265d1473..cfbe26f4d259ded3cda09933722145f2bab31ef5 100644 (file)
--- a/contrib/concurrency/load.factor
+++ b/contrib/concurrency/load.factor
@@ -4,7 +4,7 @@ USING: kernel parser compiler words sequences ;
 "contrib/dlists.factor" run-file
 "contrib/math/load.factor" run-file
 
-{ "concurrency" "concurrency-examples" }
-dup
-[ "contrib/concurrency/" swap ".factor" append3 run-file ] each
-[ words [ try-compile ] each ] each
+{ 
+    "concurrency"
+    "concurrency-examples"
+} [ "contrib/concurrency/" swap ".factor" append3 run-file ] each

diff --git a/contrib/cont-responder/load.factor b/contrib/cont-responder/load.factor
index 74d7d03dbe7ab258332bb913970143477e1ef243..ed24bd653f13f54cb7738ab847f598c22bd98c92 100644 (file)
--- a/contrib/cont-responder/load.factor
+++ b/contrib/cont-responder/load.factor
@@ -1,11 +1,16 @@
 IN: scratchpad
 USING: words kernel parser sequences io compiler ;
+
 "contrib/httpd/load.factor" run-file
 "contrib/parser-combinators/load.factor" run-file
 
-{ "cont-examples" "cont-numbers-game" "todo" "todo-example" "live-updater" "eval-responder" "live-updater-responder" "cont-testing" }
-[ "contrib/cont-responder/" swap ".factor" append3 run-file ] each
-
-{ "cont-examples" "numbers-game" "cont-responder" "eval-responder" "live-updater-responder" "live-updater" "todo-example" "todo" }
-[ words [ try-compile ] each ] each
-
+{ 
+    "cont-examples"
+    "cont-numbers-game"
+    "todo"
+    "todo-example"
+    "live-updater"
+    "eval-responder"
+    "live-updater-responder"
+    "cont-testing"
+} [ "contrib/cont-responder/" swap ".factor" append3 run-file ] each

diff --git a/contrib/crypto/load.factor b/contrib/crypto/load.factor
index 614a111fc84dbd6beba84115c5c1d5ed44df23cb..8efa13cf2ee3908e1320d2cf7087d68c5b312a2e 100644 (file)
--- a/contrib/crypto/load.factor
+++ b/contrib/crypto/load.factor
@@ -1,8 +1,10 @@
 IN: scratchpad
 USING: kernel parser sequences words compiler ;
-"contrib/math/load.factor" run-file
 
-{ "common" "md5" "sha1" }
-[ "contrib/crypto/" swap ".factor" append3 run-file ] each
+"contrib/math/load.factor" run-file
 
-"crypto" words [ try-compile ] each
+{
+    "common"
+    "md5"
+    "sha1"
+} [ "contrib/crypto/" swap ".factor" append3 run-file ] each

diff --git a/contrib/httpd/load.factor b/contrib/httpd/load.factor
index f8c26eec49d3033fdd5f871fd12bbb6158bcfe51..e46a6dc4a64e6df0dca2bb316fc68583e471df6a 100644 (file)
--- a/contrib/httpd/load.factor
+++ b/contrib/httpd/load.factor
@@ -1,8 +1,21 @@
 IN: scratchpad
 USING: words kernel parser sequences io compiler ;
-{ "http-common" "mime" "html-tags" "html" "responder" "httpd" "file-responder" "cont-responder" "browser-responder" "default-responders" "http-client" 
-  "test/html" "test/http-client" "test/httpd" "test/url-encoding" }
-[ "contrib/httpd/" swap ".factor" append3 run-file ] each
 
-{ "browser-responder" "cont-responder" "httpd" "file-responder" "html" "http-client" "http" "xml" }
-[ words [ try-compile ] each ] each
+{ 
+    "http-common"
+    "mime"
+    "html-tags"
+    "html"
+    "responder"
+    "httpd"
+    "file-responder"
+    "cont-responder"
+    "browser-responder"
+    "default-responders"
+    "http-client"
+
+    "test/html"
+    "test/http-client"
+    "test/httpd"
+    "test/url-encoding"
+} [ "contrib/httpd/" swap ".factor" append3 run-file ] each

diff --git a/contrib/load.factor b/contrib/load.factor
index 35c833c3f0201ae4fc99d050dff54d9b5457cc10..a7a4020be16fd5ff5cf24634919984c8720c4a74 100644 (file)
--- a/contrib/load.factor
+++ b/contrib/load.factor
@@ -1,26 +1,26 @@
 ! Load all contrib libs, compile them, and save a new image.
 IN: scratchpad
-USING: alien kernel words sequences parser compiler memory ;
+USING: alien compiler kernel memory parser sequences words ;
 
-! digraph dependencies {
-!   // run-file libs in the correct order to avoid repeated run-filing
-!   aim -> crypto
-!   concurrency -> dlists
-!   concurrency -> math
-!   cont-responder -> httpd
-!   crypto -> math
-!   factor -> x11
-!   space-invaders -> parser-combinators
-!   cont-responder -> parser-combinators
-! }
+{ 
+    "coroutines"
+    "dlists"
+    "splay-trees"
+} [ "contrib/" swap ".factor" append3 run-file clear ] each
 
-{ "coroutines" "dlists" "splay-trees" }
-[ dup
-  "contrib/" swap ".factor" append3 run-file
-   words [ try-compile ] each ] each
-
-{ "cairo" "math" "concurrency" "crypto" "aim" "httpd" "units" "sqlite" "win32" "x11" ! "factory" has a C component, ick.
-  "postgresql" "parser-combinators" "cont-responder" "space-invaders"
-} [ "contrib/" swap "/load.factor" append3 run-file ] each
-
-compile-all
+{ "cairo"
+  "math"
+  "concurrency"
+  "crypto"
+  "aim"
+  "httpd"
+  "units"
+  "sqlite"
+  "win32"
+  "x11"
+  ! "factory" has a C component, ick.
+  "postgresql"
+  "parser-combinators"
+  "cont-responder"
+  "space-invaders"
+} [ "contrib/" swap "/load.factor" append3 run-file clear ] each

diff --git a/contrib/math/load.factor b/contrib/math/load.factor
index 5f69577e222d9be026754b4fe392f29bd1d654ec..ccf5b80e41c20f16a79071bce6302c0d974b7b9f 100644 (file)
--- a/contrib/math/load.factor
+++ b/contrib/math/load.factor
@@ -1,7 +1,13 @@
 IN: scratchpad
 USING: kernel parser sequences words compiler ;
-{ "utils" "combinatorics" "analysis" "polynomials" "quaternions" "matrices" "statistics" "numerical-integration" }
-[ "contrib/math/" swap ".factor" append3 run-file ] each
-
-"math-contrib" words [ try-compile ] each
 
+{ 
+    "utils"
+    "combinatorics"
+    "analysis"
+    "polynomials"
+    "quaternions"
+    "matrices"
+    "statistics"
+    "numerical-integration"
+} [ "contrib/math/" swap ".factor" append3 run-file ] each

diff --git a/contrib/parser-combinators/load.factor b/contrib/parser-combinators/load.factor
index 1cc873d17b32ff1943f6bb462b1096ee1f9340ff..470c6de5007a3b413b6a545bbb18a2ed68cf2022 100644 (file)
--- a/contrib/parser-combinators/load.factor
+++ b/contrib/parser-combinators/load.factor
@@ -1,8 +1,9 @@
 IN: scratchpad
 USING: kernel parser sequences words compiler ;
 
-{ "lazy" "parser-combinators" "lazy-examples" "tests" }
-[ "contrib/parser-combinators/" swap ".factor" append3 run-file ] each
-
-{ "lazy" "lazy-examples" "parser-combinators" }
-[ words [ try-compile ] each ] each
+{
+    "lazy"
+    "parser-combinators"
+    "lazy-examples"
+    "tests"
+} [ "contrib/parser-combinators/" swap ".factor" append3 run-file ] each

diff --git a/contrib/postgresql/load.factor b/contrib/postgresql/load.factor
index 88eeefbbdd7f27cbec402038a9272f37fd5dc845..2e15f1c86e45f476dd3f71c10edbcf79f23248fd 100644 (file)
--- a/contrib/postgresql/load.factor
+++ b/contrib/postgresql/load.factor
@@ -1,8 +1,11 @@
 IN: scratchpad
 USING: alien compiler kernel parser sequences words ;
-"postgresql" "libpq" add-simple-library
-{ "libpq" "postgresql" "postgresql-test" ! "private" ! Put your password in this file
-} [ "contrib/postgresql/" swap ".factor" append3 run-file ] each
 
-"postgresql" words [ try-compile ] each
+"postgresql" "libpq" add-simple-library
 
+{
+    "libpq"
+    "postgresql"
+    "postgresql-test"
+    ! "private" ! Put your password in this file
+} [ "contrib/postgresql/" swap ".factor" append3 run-file ] each

diff --git a/contrib/space-invaders/load.factor b/contrib/space-invaders/load.factor
index 2f5c3ba58bd812f81d774e1084c3331678905a81..a222d190d8d3d2682ee759ce1d99eebfce1bdc97 100644 (file)
--- a/contrib/space-invaders/load.factor
+++ b/contrib/space-invaders/load.factor
@@ -1,11 +1,9 @@
 IN: scratchpad
 USING: kernel parser compiler words sequences io ;
-"contrib/parser-combinators/load.factor" run-file
-
-{ "cpu-8080" "space-invaders" }
-[ "contrib/space-invaders/" swap ".factor" append3 run-file ] each
 
-{ "cpu-8080" "space-invaders" }
-[ words [ try-compile ] each ] each
+"contrib/parser-combinators/load.factor" run-file
 
-"Use 'run' in the 'space-invaders' vocabulary to start." print
+{
+    "cpu-8080"
+    "space-invaders"
+} [ "contrib/space-invaders/" swap ".factor" append3 run-file ] each

diff --git a/contrib/sqlite/load.factor b/contrib/sqlite/load.factor
index 028f304cb907c906f24806bfcf876cc655e10f9c..2a80b829fe5da37fc67cbecc9b969ce156ad887f 100644 (file)
--- a/contrib/sqlite/load.factor
+++ b/contrib/sqlite/load.factor
@@ -1,9 +1,11 @@
 IN: scratchpad
 USING: kernel alien parser compiler words sequences ;
-"sqlite" "libsqlite3" add-simple-library
 
-{ "sqlite" "tuple-db" "test" "tuple-db-tests" }
-[ "contrib/sqlite/" swap ".factor" append3 run-file ] each
+"sqlite" "libsqlite3" add-simple-library
 
-{ "sqlite" "tuple-db" }
-[ words [ try-compile ] each ] each
+{
+    "sqlite"
+    "tuple-db"
+    "test"
+    "tuple-db-tests"
+} [ "contrib/sqlite/" swap ".factor" append3 run-file ] each

diff --git a/contrib/units/load.factor b/contrib/units/load.factor
index a3199b6dce5a21833498bebe4a4e880b683754d4..c24c6a1984bca9580ceef8e3815c2299a8a2fb18 100644 (file)
--- a/contrib/units/load.factor
+++ b/contrib/units/load.factor
@@ -1,8 +1,8 @@
 IN: scratchpad
 USING: kernel parser sequences words compiler ;
-{ "dimensioned" "si-units" "constants" }
-[ "contrib/units/" swap ".factor" append3 run-file ] each
-
-{ "units-internal" "units" "si-units" }
-[ words [ try-compile ] each ] each
 
+{ 
+    "dimensioned"
+    "si-units"
+    "constants"
+} [ "contrib/units/" swap ".factor" append3 run-file ] each

diff --git a/contrib/win32/load.factor b/contrib/win32/load.factor
index ac8eea3df7285ec7dbe3d2d79a473c72345616a2..3a19182e3a82da72f35c2c9a459345bfdda29b8c 100644 (file)
--- a/contrib/win32/load.factor
+++ b/contrib/win32/load.factor
@@ -1,11 +1,14 @@
 IN: scratchpad\r
 USING: alien compiler kernel parser sequences words ;\r
 \r
-{ { "user" "user32" }\r
-  { "kernel" "kernel32" } }\r
-[ first2 add-simple-library ] each\r
+{\r
+    { "user" "user32" }\r
+    { "kernel" "kernel32" }\r
+} [ first2 add-simple-library ] each\r
 \r
-{ "utils" "types" "kernel32" "user32" }\r
-[ "contrib/win32/" swap ".factor" append3 run-file ] each\r
-\r
-"win32" words [ try-compile ] each\r
+{ \r
+    "utils"\r
+    "types"\r
+    "kernel32"\r
+    "user32"\r
+} [ "contrib/win32/" swap ".factor" append3 run-file ] each\r

diff --git a/contrib/x11/load.factor b/contrib/x11/load.factor
index c82ae1f99ff6df25f4bdbaadd2f63a58fabfadc6..953a8412e473a792c609d42fff15c92bd7ecbbeb 100644 (file)
--- a/contrib/x11/load.factor
+++ b/contrib/x11/load.factor
@@ -1,5 +1,5 @@
 IN: scratchpad
-USING: kernel parser words compiler sequences ;
+USING: alien compiler kernel parser sequences words ;
 
 "X11" "libX11" add-simple-library
 
@@ -13,4 +13,4 @@ USING: kernel parser words compiler sequences ;
     "gl"    
 } [ "contrib/x11/" swap ".factor" append3 run-file ] each
 
-{ "xlib" "x11" } [ words [ try-compile ] each ] each
+! { "xlib" "x11" } [ words [ try-compile ] each ] each

diff --git a/debian/changelog b/debian/changelog
index 53f2164f4b86ebe304b6fa350e115de3072845ea..2bcac7509595241ccf206df56ba00c8a35ad890d 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+factor (0.79+cvs20060120-1) unstable; urgency=low
+
+  * Refactored wrapper scripts and reduced build time.
+
+ -- Trent Buck <trentbuck@gmail.com>  Fri, 20 Jan 2006 12:18:21 +1100
+
 factor (0.79+cvs20060119-1) unstable; urgency=low
 
   * Make an extended.image.

diff --git a/debian/rules b/debian/rules
index a485e658ee33ad1859eb924672dd0c0aaafcfc51..ab4ab5f64933d2d974d36dfe774398c05975fb52 100644 (file)
--- a/debian/rules
+++ b/debian/rules
@@ -28,7 +28,7 @@ build-stamp: configure-stamp
        # Build the extended image
        sqlite3 contrib/sqlite/test.db < contrib/sqlite/test.txt
        $(CC) $(CFLAGS) -L /usr/X11R6/lib -shared -o contrib/factory/simple-error-handler.so contrib/factory/simple-error-handler.c -lX11
-       echo 'USING: image kernel ; "extended.image" save-image 0 exit' | ./runtime basic.image contrib/load.factor
+       echo 'USING: image kernel ; "contrib/load.factor" run-file compile-all "extended.image" save-image 0 exit' | ./runtime basic.image +X8
        # Build the documentation
        cd doc && for i in *.eps; do epstopdf $$i; done
        cd doc && rubber --pdf theory
@@ -49,11 +49,15 @@ install: build
        dh_clean -k 
        dh_installdirs
        # Install binary files
-       install runtime boot.image basic.image extended.image $(CURDIR)/debian/factor/usr/lib/factor
+       install -m 755 -o root -g root runtime $(CURDIR)/debian/factor/usr/lib/factor
+       install -m 644 -o root -g root boot.image basic.image extended.image $(CURDIR)/debian/factor/usr/lib/factor
        # Install source files
-       install contrib examples fonts library version.factor $(CURDIR)/debian/factor/usr/share/factor
+       cp -r contrib examples fonts library version.factor $(CURDIR)/debian/factor/usr/share/factor
+       find $(CURDIR)/debian/factor/usr/share/factor -type d -exec chmod 755 {} \;
+       find $(CURDIR)/debian/factor/usr/share/factor -type f -exec chmod 644 {} \;
+       chown -R root.root $(CURDIR)/debian/factor/usr/share/factor
        # Install wrapper scripts
-       install -m 755 debian/scripts/factor-* $(CURDIR)/debian/factor/usr/bin
+       install -m 755 -o root -g root debian/scripts/factor-* $(CURDIR)/debian/factor/usr/bin
 
 binary-indep: build install