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/cml/src/Win32/os.sml
ViewVC logotype

Annotation of /sml/trunk/src/cml/src/Win32/os.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 651 - (view) (download)

1 : monnier 137 (* os.sml
2 :     *
3 :     * COPYRIGHT (c) 1998 Bell Labs, Lucent Technologies.
4 :     * COPYRIGHT (c) 1995 AT&T Bell Laboratories.
5 :     *)
6 :    
7 :     structure OS : OS =
8 :     struct
9 :     structure IO = OS_IO
10 :     structure Path = OS.Path
11 :     structure Process = OS_Process
12 :     structure FileSys = OS.FileSys (** may need to protect system calls *)
13 :    
14 :     type syserror = OS.syserror
15 :    
16 :     exception SysErr = OS.SysErr
17 :    
18 :     val errorName = OS.errorName
19 :     val errorMsg = OS.errorMsg
20 :    
21 :     end

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