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

View of /sml/trunk/src/compiler/PervEnv/Win32/os.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 93 - (download) (annotate)
Tue May 12 21:56:22 1998 UTC (22 years, 3 months ago) by monnier
Original Path: sml/branches/SMLNJ/src/compiler/PervEnv/Win32/os.sml
File size: 702 byte(s)
*** empty log message ***
(* os.sml
 *
 * COPYRIGHT (c) 1996 Bell Laboratories.
 *
 * Win32 OS interface
 *
 *)

structure OS : OS =
  struct

    open OS (* open type-only structure to get types *)

    type syserror = int

(*    exception SysErr of (string * syserror option)  *)
    exception SysErr = Assembly.SysErr

    fun errorName _ = "<OS.errorName unimplemented>"
    fun errorMsg _ = "<OS.errorMessage unimplemented>"
    fun syserror _ = raise Fail "OS.syserror unimplemented"

    structure FileSys = OS_FileSys
    structure Path = OS_Path
    structure Process = OS_Process
    structure IO = OS_IO

  end (* OS *)

(*
 * $Log: os.sml,v $
 * Revision 1.1.1.1  1998/04/08 18:40:02  george
 * Version 110.5
 *
 *)

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