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/Unix/pre-os.sml
ViewVC logotype

View of /sml/trunk/src/compiler/PervEnv/Unix/pre-os.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 16 - (download) (annotate)
Wed Mar 11 21:00:04 1998 UTC (22 years, 6 months ago) by monnier
File size: 658 byte(s)
Initial revision
(* pre-os.sml
 *
 * COPYRIGHT (c) 1995 AT&T Bell Laboratories.
 *
 * This sthe OS structure(s) with only types, so that the signatures can compile.
 *
 *)

structure OS =
  struct
    type syserror = int	    (* the integer code; we may need to beef this up *)

    structure Process =
      struct
	type status = int (* should this be Word8.word ?*)
      end

    structure IO =
      struct
	datatype iodesc = IODesc of int
(** This probably should be
	datatype iodesc = IODesc of Posix.FileSys.file_desc
 **)
      end

  end;

structure PreOS = OS;


(*
 * $Log: pre-os.sml,v $
 * Revision 1.1.1.1  1997/01/14 01:38:25  george
 *   Version 109.24
 *
 *)

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