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/PervEnv/Win32/os-process.sml
ViewVC logotype

Annotation of /sml/trunk/src/compiler/PervEnv/Win32/os-process.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 114 - (view) (download)

1 : monnier 16 (* os-process.sml
2 :     *
3 :     * COPYRIGHT (c) 1996 Bell Laboratories.
4 :     *
5 :     * Win32 implementation of the OS.FileSys structure
6 :     *
7 :     *)
8 :    
9 :     structure OS_Process : OS_PROCESS =
10 :     struct
11 :     structure CU = CleanUp
12 :     structure W32G = Win32_General
13 :     structure W32P = Win32_Process
14 :    
15 :     type status = W32G.word
16 :    
17 :     val success = W32G.Word.fromInt 0
18 :     val failure = W32G.Word.fromInt 1
19 :    
20 :     val system = W32P.system'
21 :    
22 :     val atExit = AtExit.atExit
23 :    
24 :     fun exit code = (CU.clean CU.AtExit;
25 :     W32P.exitProcess code)
26 :    
27 :     fun terminate code = W32P.exitProcess code
28 :    
29 :     val getEnv = W32P.getEnvironmentVariable'
30 :     end
31 :    
32 :     (*
33 : monnier 113 * $Log$
34 : monnier 16 *)

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