DEFINITION MODULE DosShow;
(*$ NameChk:=FALSE LargeVars:=FALSE *)
(* 9.6.90/bp
 * Dies sind alle Dos-Prozeduren, die ein neues Lock oder FileHandle
 * erzeugen.
 * Die Objekte werden in einer Liste vermerkt und bei Programmende
 * wieder freigegeben.
 *)

FROM SYSTEM IMPORT ADDRESS;
IMPORT Dos;

(*
PROCEDURE Open(name:ADDRESS; accessMode:LONGINT):Dos.FileHandlePtr;
PROCEDURE Close(file:Dos.FileHandlePtr);
*)
PROCEDURE Lock(name:ADDRESS; accessMode:LONGINT):Dos.FileLockPtr;
PROCEDURE UnLock(lock:Dos.FileLockPtr);
PROCEDURE DupLock(lock:Dos.FileLockPtr):Dos.FileLockPtr;
PROCEDURE ParentDir(lock:Dos.FileLockPtr):Dos.FileLockPtr;
PROCEDURE CurrentDir(lock:Dos.FileLockPtr):Dos.FileLockPtr;
(*
PROCEDURE CreateDir(name:ADDRESS):Dos.FileLockPtr;
*)

END DosShow.def
