Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] View of /sml/trunk/src/compiler/TopLevel/batch/batchconfig.sml
ViewVC logotype

View of /sml/trunk/src/compiler/TopLevel/batch/batchconfig.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 879 - (download) (annotate)
Thu Jul 19 18:59:38 2001 UTC (18 years, 7 months ago) by blume
File size: 664 byte(s)
extensive organizational changes
(* COPYRIGHT (c) 1996 Bell Laboratories *)
(* batchconfig.sml *)

structure BatchConfig: CCONFIG = struct
   
    type pickle = Word8Vector.vector
    type hash = PersStamps.persstamp

    fun pickUnpick { context, env = newenv } = let
	val m = GenModIdMap.mkMap context
	fun up_context _ = m
	val { hash, pickle, exportLvars, exportPid } = 
	    PickMod.pickleEnv (PickMod.INITIAL m) newenv
	val newenv' = UnpickMod.unpickleEnv up_context (hash, pickle)
    in
	{ hash = hash,
          pickle = pickle,
	  exportLvars = exportLvars,
	  exportPid = exportPid,
	  newenv = newenv' }
    end

    val mkMkStamp = Stamps.newGenerator
end (* structure BatchConfig *)

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0