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 168 - (download) (annotate)
Sat Nov 7 20:11:41 1998 UTC (21 years, 7 months ago) by monnier
File size: 1195 byte(s)
This commit was generated by cvs2svn to compensate for changes in r167,
which included commits to RCS files with non-trunk default branches.
(* COPYRIGHT (c) 1996 Bell Laboratories *)
(* batchconfig.sml *)

structure BatchConfig: CCONFIG = 
struct
  exception SilentException
  
  type statenv = StaticEnv.staticEnv
  type cmstatenv = CMStaticEnv.staticEnv
  val toCM : statenv -> cmstatenv = CMStaticEnv.CM
  val fromCM : cmstatenv -> statenv = CMStaticEnv.unCM
   
  type pickle = Word8Vector.vector
  type hash = PersStamps.persstamp
  type lvar = Access.lvar
  type pid = PersStamps.persstamp

  val pickUnpick : cmstatenv * statenv ->
                     {hash: hash, pickle: pickle, exportLvars: lvar list,
                      exportPid: pid option, newenv: statenv}
    = fn (compenv, newenv) =>
        let val {hash,pickle,exportLvars,exportPid} = 
              PickMod.pickleEnv(compenv,newenv)
            val newenv' = 
              UnpickMod.unpickleEnv(compenv, {hash=hash,pickle=pickle})
         in {hash=hash, pickle=pickle, exportLvars=exportLvars,
             exportPid=exportPid, newenv=newenv'}
        end

  val mkMkStamp : unit -> (unit -> Stamps.stamp) = Stamps.new

end (* structure BatchConfig *)

(*
 * $Log: batchconfig.sml,v $
 * Revision 1.1.1.1  1998/04/08 18:39:16  george
 * Version 110.5
 *
 *)

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