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

View of /sml/trunk/src/system/Basis/Implementation/Win32/os-process.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1455 - (download) (annotate)
Fri Feb 13 20:42:49 2004 UTC (15 years, 6 months ago) by mblume
File size: 645 byte(s)
working version 110.45
(* os-process.sml
 *
 * COPYRIGHT (c) 1996 Bell Laboratories.
 *
 * Win32 implementation of the OS.FileSys structure
 *
 *)

structure OS_Process : OS_PROCESS = 
    struct
	structure CU = CleanUp
	structure W32G = Win32_General
	structure W32P = Win32_Process

	type status = W32G.word

	val success = W32G.Word.fromInt 0
	val failure = W32G.Word.fromInt 1

	fun isSuccess x = W32G.Word.toInt x = 0

	val system = W32P.system'

	val atExit = AtExit.atExit

	fun exit code = (CU.clean CU.AtExit;
			 W32P.exitProcess code)

	fun terminate code = W32P.exitProcess code

	val getEnv = W32P.getEnvironmentVariable'

	val sleep = W32P.sleep
    end

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