SCM Repository
Annotation of /sml/trunk/src/compiler/TopLevel/interact/interact.sig
Parent Directory
|
Revision Log
Revision 260 - (view) (download) (as text)
1 : | monnier | 16 | (* COPYRIGHT (c) 1996 Bell Laboratories. *) |
2 : | (* interact.sig *) | ||
3 : | |||
4 : | signature INTERACT = | ||
5 : | sig | ||
6 : | exception Interrupt | ||
7 : | val interact : unit -> unit | ||
8 : | val useFile : string -> unit | ||
9 : | val useStream : TextIO.instream -> unit | ||
10 : | monnier | 95 | val evalStream : TextIO.instream * CMEnv.Env.environment -> |
11 : | CMEnv.Env.environment | ||
12 : | monnier | 16 | |
13 : | val installCompManager: | ||
14 : | (Ast.dec * | ||
15 : | monnier | 95 | { get: unit -> CMEnv.Env.environment, |
16 : | set: CMEnv.Env.environment -> unit } * | ||
17 : | monnier | 16 | { get: unit -> Environment.environment, |
18 : | set: Environment.environment -> unit } | ||
19 : | -> unit) option | ||
20 : | -> unit | ||
21 : | |||
22 : | (* These mUse functions should really be part of the Open Compiler *) | ||
23 : | val mUseFile : (int->bool) -> string -> unit | ||
24 : | val mUseFile_reset : unit -> unit | ||
25 : | val mUseFile_add : (((unit -> unit) * string)list) -> unit | ||
26 : | val mUseFile_list : unit -> (((unit -> unit)*string)list) list | ||
27 : | |||
28 : | end (* signature INTERACT *) | ||
29 : | |||
30 : | monnier | 95 | |
31 : | (* | ||
32 : | monnier | 118 | * $Log$ |
33 : | monnier | 95 | *) |
root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
Powered by ViewVC 1.0.0 |