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/win32-process.sml
ViewVC logotype

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 17 - (view) (download)
Original Path: sml/branches/SMLNJ/src/compiler/PervEnv/Win32/win32-process.sml

1 : monnier 16 (* win32-process.sml
2 :     *
3 :     * COPYRIGHT (c) 1996 Bell Laboratories.
4 :     *
5 :     * Hooks to Win32 Process functions.
6 :     *
7 :     *)
8 :    
9 :     structure Win32_Process : WIN32_PROCESS =
10 :     struct
11 :     structure W32G = Win32_General
12 :    
13 :     fun cf name = W32G.cfun "WIN32-PROCESS" name
14 :    
15 :     val system' : string -> W32G.word = cf "system"
16 :    
17 :     fun exitProcess (w: W32G.word) : 'a = cf "exit_process" w
18 :    
19 :     val getEnvironmentVariable' : string -> string option =
20 :     cf "get_environment_variable"
21 :     end
22 :    
23 :     (*
24 :     * $Log: win32-process.sml,v $
25 :     * Revision 1.1.1.1 1997/01/14 01:38:27 george
26 :     * Version 109.24
27 :     *
28 :     *)

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