Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /cml/trunk/src/Unix/os-process.sml
ViewVC logotype

Diff of /cml/trunk/src/Unix/os-process.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3106, Tue Jul 15 17:37:59 2008 UTC revision 3107, Wed Jul 16 14:44:29 2008 UTC
# Line 1  Line 1 
1  (* os-process.sml  (* os-process.sml
2   *   *
3   * COPYRIGHT (c) 1995 AT&T Bell Laboratories.   * COPYRIGHT (c) 2008 The Fellowship of SML/NJ (http://www.smlnj.org)
4     * All rights reserved.
5   *   *
6   * The generic process control interface.   * The generic process control interface --- Unix implementation.
7   *)   *)
8    
9  structure OS_Process : OS_PROCESS =  structure OS_Process : OS_PROCESS =
# Line 19  Line 20 
20    
21      val success = P.success      val success = P.success
22      val failure = P.failure      val failure = P.failure
23        val isSuccess = P.isSuccess
24    
25  (** NOTE: we probably need to disable timer signals here **)  (** NOTE: we probably need to disable timer signals here **)
26      fun system' cmd = (      fun system' cmd = (
# Line 47  Line 49 
49    
50      val getEnv = P.getEnv      val getEnv = P.getEnv
51    
52      (* should sleep be per-thread or for the whole system? *)
53        val sleep = Event.sync o TimeOut.timeOutEvt
54    
55    end    end

Legend:
Removed from v.3106  
changed lines
  Added in v.3107

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