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

SCM Repository

[smlnj] Annotation of /sml/trunk/src/compiler/TopLevel/batch/envcvt.sml
ViewVC logotype

Annotation of /sml/trunk/src/compiler/TopLevel/batch/envcvt.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 114 - (view) (download)

1 : monnier 16 (* envcvt.sml
2 :     *
3 :     * COPYRIGHT (c) 1996 Bell Laboratories.
4 :     *
5 :     *)
6 :    
7 :     signature COERCE_ENV =
8 : monnier 93 sig val e2b : CMEnv.Env.environment -> Environment.environment
9 :     val es2bs : CMEnv.Env.staticEnv -> Environment.staticEnv
10 :     val b2e : Environment.environment -> CMEnv.Env.environment
11 :     val bs2es : Environment.staticEnv -> CMEnv.Env.staticEnv
12 : monnier 16 val debugging : bool ref
13 :     end
14 :    
15 :     structure CoerceEnv : COERCE_ENV =
16 :     struct
17 : monnier 93 val b2e = CMEnv.CM
18 :     val bs2es = CMStaticEnv.CM
19 :     val e2b = CMEnv.unCM
20 :     val es2bs = CMStaticEnv.unCM
21 :     val debugging = CMStaticEnv.debugging
22 : monnier 16 end
23 :    
24 :     (*
25 : monnier 113 * $Log$
26 : monnier 16 *)

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