From a45ef09bdb155b6fa3ad6c21e4267c41b4de5035 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Tue, 4 Oct 2005 13:39:37 +0000
Subject: [PATCH] The commander-s executable is now an image

---
 install.scm | 42 +++++++++++++++++++++++++++---------------
 1 file changed, 27 insertions(+), 15 deletions(-)

diff --git a/install.scm b/install.scm
index 6365bab..eb370a3 100755
--- a/install.scm
+++ b/install.scm
@@ -6,22 +6,34 @@ exec scsh -lel install-lib/load.scm -dm -o install-commander-s -e install-progra
   (open scheme-with-scsh
 	install-lib)
   (begin
-    (define commander-s-template #<<END
-#!/bin/sh
-exec scsh -lel afs/load.scm -lel pps/load.scm -lel module-system/load.scm -lel interaction/load.scm -lel cml/load.scm -lm ~a/debug-packages.scm -lel scsh-ncurses-0.2/load.scm -lm ~a/nuit-packages.scm -m nuit -s "$0"
-!#
-(nuit)
 
+    (run (scsh -lel afs/load.scm -lel pps/load.scm -lel module-system/load.scm -lel 
+               interaction/load.scm -lel cml/load.scm -lm scheme/debug-packages.scm -lel scsh-ncurses-1.0/load.scm
+               -lm scheme/nuit-packages.scm -o nuit -e main -sfd 0)
+         (<< #<<END
+             (define (main args) 
+               (define image-header 
+                 (format #f "#!~a/scsh/scshvm \\\n-o ~a/scsh/scshvm -i\n" (lib-dir) (lib-dir)))
+  
+               (with-current-output-port 
+                (open-output-file "commander-s.header")
+                (display image-header))
+
+               (dump-scsh-program 
+                (lambda a (nuit)) "commander-s.image")
+    
+               (run (cat "commander-s.header" "commander-s.image") (> "commander-s"))
+    
+               (set-file-mode "commander-s" #o755)
+    
+               (delete-file "commander-s.header")
+    
+               (delete-file "commander-s.image"))
 END
-)
-
-(define-program "commander-s" (0 1) ((install-lib-version (1 1)))
-  (install-directory-contents "scheme" 'scheme)
-  (install-string (format #f commander-s-template 
-			  (get-directory 'scheme #f) (get-directory 'scheme #f))
-		  "commander-s"
-		  'bin
-		  "."
-		  #o555))))
+))
+ 
+    (define-program "commander-s" (0 1) ((install-lib-version (1 2)))
+      (install-directory-contents "scheme" 'scheme)
+      (install-file "commander-s" 'bin))))