+ Build md5 objects

+ Build stripped-scsh.image which has maps, source, locations and
  debug-data flushed. This image is 2MB smaller than scsh.image.

Makefile.in

@@ -132,13 +132,14 @@ SCSHOBJS = \
 	scsh/tty1.o \
 	scsh/userinfo1.o \
 	scsh/sighandlers1.o \
-	scsh/libscsh.o
+	scsh/libscsh.o \
+	scsh/md5.o
 
 SCSH_INITIALIZERS = s48_init_syslog s48_init_posix_regexp \
 	s48_init_userinfo s48_init_sighandlers \
 	s48_init_syscalls s48_init_network s48_init_flock \
 	s48_init_dirstuff s48_init_time s48_init_tty \
-	s48_init_cig s48_init_libscsh
+	s48_init_cig s48_init_libscsh s48_init_md5
 
 UNIX_OBJS = c/unix/misc.o c/unix/io.o c/unix/fd-io.o c/unix/event.o
 
@@ -785,6 +786,7 @@ SCHEME =scsh/awk.scm \
 	scsh/machine/time_dep.scm \
 	scsh/machine/tty-consts.scm \
 	scsh/machine/waitcodes.scm \
+	scsh/md5.scm \
 	scsh/meta-arg.scm \
 	scsh/network.scm \
 	scsh/newports.scm \
@@ -856,28 +858,33 @@ loads = $(srcdir)/scsh/let-opt.scm $(srcdir)/scsh/scsh-interfaces.scm \
 	 $(srcdir)/scsh/lib/ccp-pack.scm \
 	 $(srcdir)/scsh/lib/char-package.scm
 
+opens = floatnums scsh ccp-lib scsh-top-package scsh-here-string-hax
 
 scsh/scsh.image: $(VM) $(SCHEME) $(IMAGE)
 	(echo ",translate =scheme48/ `pwd`/scheme/"; \
 	 echo ",batch on"; \
-	 echo ",load-package floatnums"; \
-	 echo ",config"; \
-	 echo ",load $(loads)"; \
-	 echo ",load-package scsh"; \
-	 echo ",load-package scsh-here-string-hax"; \
-	 echo ",load-package ccp-lib"; \
-	 echo ",in scsh-level-0"; \
-	 echo ",user"; \
-	 echo ",open floatnums"; \
-	 echo ",open scsh"; \
-	 echo ",open ccp-lib"; \
-	 echo ",batch off"; \
-	 echo ",open scsh-top-package"; \
-	 echo "(dump-scsh \"scsh/scsh.image\")"; \
-	 echo ",batch on") \
+	 echo ",config ,load $(loads)"; \
+	 echo ",open $(opens)"; \
+	 echo "(dump-scsh \"$@\")"; \
+	 ) \
 	| ./$(VM) -o ./$(VM) -i $(IMAGE) -h 10000000
 
-install-scsh: scsh install-scsh-image
+# ,flush files => 0k
+# ,flush names => -= 17k
+# ,flush maps => -= 350K
+# ,flush source => -= 1117k
+# ,flush => 550k
+scsh/stripped-scsh.image: $(VM) $(SCHEME) $(IMAGE)
+	(echo ",flush maps source";\
+	 echo ",translate =scheme48/ `pwd`/scheme/"; \
+	 echo ",batch on"; \
+	 echo ",config ,load $(loads)"; \
+	 echo ",open $(opens)"; \
+	 echo ",flush"; \
+	 echo "(dump-scsh \"$@\")";) \
+	| ./$(VM) -o ./$(VM) -i $(IMAGE) -h 10000000
+
+install-scsh: scsh install-scsh-image install-stripped-scsh-image
 	$(RM) $(bindir)/$(RUNNABLE)
 	$(INSTALL_PROGRAM) $(srcdir)/scsh/scsh $(bindir)/$(RUNNABLE)
 	$(INSTALL_PROGRAM) $(srcdir)/$(LIBSCSHVM) $(libdir)/$(LIBSCSHVM)
@@ -892,6 +899,12 @@ install-scsh-image: $(VM) scsh/scsh.image
 		echo ',exit';						\
 	) | ./$(VM) -i scsh/scsh.image	
 
+install-stripped-scsh-image: $(VM) scsh/stripped-scsh.image
+	(	echo ',translate =scheme48 $(LIB)';			\
+		echo '(dump-scsh "$(LIB)/stripped-scsh.image")';	\
+		echo ',exit';						\
+	) | ./$(VM) -i scsh/stripped-scsh.image
+
 clean-scsh:
 	$(RM) scsh/*.o scsh/rx/*.o scsh/machine/*.o 
 	$(RM) scsh/*.image