CVS: sml-dist/src/cm/main cm-boot.sml,1.85,1.86

Update of /cvsroot/smlnj/sml-dist/src/cm/main
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2588/src/cm/main

Modified Files:
	cm-boot.sml 
Log Message:
added some script support for Mac OS X package installer

Index: cm-boot.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/cm/main/cm-boot.sml,v
retrieving revision 1.85
retrieving revision 1.86
diff -C2 -d -r1.85 -r1.86
*** cm-boot.sml	17 May 2005 04:46:11 -0000	1.85
--- cm-boot.sml	18 May 2005 16:59:22 -0000	1.86
***************
*** 429,432 ****
--- 429,435 ----
  	  end
  
+ 	  fun redump_heap s : unit =
+ 	      SMLofNJ.Cont.throw (!HostBackend.Interact.redump_heap_cont) s
+ 
  	  fun slave () = let
  	      val gr = GroupReg.new ()
***************
*** 836,839 ****
--- 839,844 ----
  	      | args ("-q" :: _, _) = quit ()
  	      | args ("@CMbuild" :: rest, _) = mlbuild rest
+ 	      | args (["@CMredump", heapfile], _) =
+ 		  redump_heap heapfile
  	      | args (f :: rest, mk) =
  		(carg (String.substring (f, 0, 2)
***************
*** 918,923 ****
  	val cm_dir_arc = FilenamePolicy.cm_dir_arc
  
! 	fun redump_heap s : unit =
! 	    SMLofNJ.Cont.throw (!HostBackend.Interact.redump_heap_cont) s
      end
  
--- 923,927 ----
  	val cm_dir_arc = FilenamePolicy.cm_dir_arc
  
! 	val redump_heap = redump_heap
      end
  



-------------------------------------------------------
This SF.Net email is sponsored by Oracle Space Sweepstakes
Want to be the first software developer in space?
Enter now for the Oracle Space Sweepstakes!
http://ads.osdn.com/?ad_id=7412&alloc_id=16344&op=click