os.sml

来自「这是我们参加06年全国开源软件的竞赛作品」· SML 代码 · 共 22 行

(* os.sml
 *
 * COPYRIGHT (c) 1998 Bell Labs, Lucent Technologies.
 * COPYRIGHT (c) 1995 AT&T Bell Laboratories.
 *)

structure OS : OS =
  struct
    structure IO = OS_IO 
    structure Path = OS.Path
    structure Process = OS_Process
    structure FileSys = OS.FileSys	(** may need to protect system calls *)

    type syserror = OS.syserror

    exception SysErr = OS.SysErr

    val errorName = OS.errorName
    val errorMsg = OS.errorMsg

  end