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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1455 - (download) (annotate)
Fri Feb 13 20:42:49 2004 UTC (16 years, 5 months ago) by mblume
File size: 570 byte(s)
working version 110.45
(* win32-process.sml
 *
 * COPYRIGHT (c) 1996 Bell Laboratories.
 *
 * Hooks to Win32 Process functions.
 *
 *)

structure Win32_Process : WIN32_PROCESS = 
    struct
	structure W32G = Win32_General

	fun cf name = W32G.cfun "WIN32-PROCESS" name

	val system' : string -> W32G.word = cf "system"

	fun exitProcess (w: W32G.word) : 'a = cf "exit_process" w

	val getEnvironmentVariable' : string -> string option = 
	    cf "get_environment_variable"

	val sleep' : W32G.word -> unit = cf "sleep"

	val sleep = sleep' o W32G.Word.fromLargeInt o TimeImp.toSeconds
    end

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