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/branches/SMLNJ/src/compiler/PervEnv/Win32/os.sml
ViewVC logotype

Annotation of /sml/branches/SMLNJ/src/compiler/PervEnv/Win32/os.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 17 - (view) (download)

1 : monnier 16 (* os.sml
2 :     *
3 :     * COPYRIGHT (c) 1996 Bell Laboratories.
4 :     *
5 :     * Win32 OS interface
6 :     *
7 :     *)
8 :    
9 :     structure OS : OS =
10 :     struct
11 :    
12 :     open OS (* open type-only structure to get types *)
13 :    
14 :     type syserror = int
15 :    
16 :     (* exception SysErr of (string * syserror option) *)
17 :     exception SysErr = Assembly.SysErr
18 :    
19 :     fun errorName _ = "<OS.errorName unimplemented>"
20 :     fun errorMsg _ = "<OS.errorMessage unimplemented>"
21 :     fun syserror _ = raise Fail "OS.syserror unimplemented"
22 :    
23 :     structure FileSys = OS_FileSys
24 :     structure Path = OS_Path
25 :     structure Process = OS_Process
26 :     structure IO = OS_IO
27 :    
28 :     end (* OS *)
29 :    
30 :     (*
31 :     * $Log: os.sml,v $
32 :     * Revision 1.1.1.1 1997/01/14 01:38:26 george
33 :     * Version 109.24
34 :     *
35 :     *)

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