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/branches/SMLNJ/src/compiler/PervEnv/Win32/win32-io.sig
ViewVC logotype

View of /sml/branches/SMLNJ/src/compiler/PervEnv/Win32/win32-io.sig

Parent Directory Parent Directory | Revision Log Revision Log


Revision 249 - (download) (as text) (annotate)
Sat Apr 17 18:57:03 1999 UTC (20 years, 4 months ago) by monnier
File size: 2252 byte(s)
version 110.16
(* win32-io.sig
 *
 * COPYRIGHT (c) 1996 Bell Laboratories.
 *
 * Signature for hooks to Win32 IO system.
 *
 *)

signature WIN32_IO = 
    sig
	type hndl = Win32_General.hndl
	val setFilePointer' : (hndl * Win32_General.word * Win32_General.word)
	                      -> Win32_General.word

	val FILE_BEGIN : Win32_General.word
	val FILE_CURRENT : Win32_General.word
        val FILE_END : Win32_General.word

	val readVec : (hndl * int) -> Word8Vector.vector
	val readArr : (hndl * {buf:Word8Array.array, i:int, sz:int option})
	              -> int
	val readVecTxt : (hndl * int) -> CharVector.vector
	val readArrTxt : (hndl * {buf:CharArray.array, i:int, sz:int option})
	                 -> int

	val close : hndl -> unit

	val GENERIC_READ : Win32_General.word
	val GENERIC_WRITE : Win32_General.word

	val FILE_SHARE_READ : Win32_General.word
	val FILE_SHARE_WRITE : Win32_General.word

	val FILE_FLAG_WRITE_THROUGH : Win32_General.word
	val FILE_FLAG_OVERLAPPED : Win32_General.word
	val FILE_FLAG_NO_BUFFERING : Win32_General.word
	val FILE_FLAG_RANDOM_ACCESS : Win32_General.word
	val FILE_FLAG_SEQUENTIAL_SCAN : Win32_General.word
	val FILE_FLAG_DELETE_ON_CLOSE : Win32_General.word
	val FILE_FLAG_BACKUP_SEMANTICS : Win32_General.word
	val FILE_FLAG_POSIX_SEMANTICS : Win32_General.word

	val CREATE_NEW : Win32_General.word
	val CREATE_ALWAYS : Win32_General.word
	val OPEN_EXISTING : Win32_General.word
	val OPEN_ALWAYS : Win32_General.word
	val TRUNCATE_EXISTING : Win32_General.word

	val createFile : {name:string,
			  access:Win32_General.word,
			  share:Win32_General.word,
			  mode:Win32_General.word,
			  attrs:Win32_General.word} -> hndl

	val writeVec : (hndl * {buf:Word8Vector.vector,i:int,sz:int option})
	               -> int
	val writeArr : (hndl * {buf:Word8Array.array,i:int,sz:int option}) 
	               -> int
	val writeVecTxt : (hndl * {buf:CharVector.vector,i:int,sz:int option})
	                  -> int
	val writeArrTxt : (hndl * {buf:CharArray.array,i:int,sz:int option}) 
	                  -> int

	val STD_INPUT_HANDLE : Win32_General.word
	val STD_OUTPUT_HANDLE : Win32_General.word
	val STD_ERROR_HANDLE : Win32_General.word

	val getStdHandle : Win32_General.word -> hndl
    end


(*
 * $Log$
 *)

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