BlackBox Framework Center

Code: Select all

		File = POINTER TO RECORD (Files.File)
			state: INTEGER;
			name: FullName;
			ref: WinApi.HANDLE;
			loc: Locator;
			swapper: INTEGER;	(* index into file table / next buffer to swap *)
			len: INTEGER;
			bufs: ARRAY nofbufs OF Buffer;
			t: LONGINT	(* time stamp of last file operation *)
		END;

Code: Select all

		FileInfo = POINTER TO RECORD 
			next: FileInfo;
			name: Name;
			length: INTEGER;
			type: Type;
			modified: RECORD 
				year, month, day, hour, minute, second: INTEGER
			END;
			attr: SET
		END;

Code: Select all

				f.len := WinApi.GetFileSize(ref, j);
				ASSERT(j = 0);   (* >>> add this line *)

Code: Select all

DEFINITION ToolsBigFiles;

	IMPORT Files;

	CONST
		archive = 3;
		ask = TRUE;
		dontAsk = FALSE;
		exclusive = FALSE;
		hidden = 1;
		readOnly = 0;
		shared = TRUE;
		stationery = 4;
		system = 2;

	TYPE
		Directory = POINTER TO ABSTRACT RECORD 
			(d: Directory) Delete (loc: Files.Locator; name: Files.Name), NEW, ABSTRACT;
			(d: Directory) FileList (loc: Files.Locator): FileInfo, NEW, ABSTRACT;
			(d: Directory) GetFileName (name: Files.Name; type: Files.Type; OUT filename: Files.Name), NEW, ABSTRACT;
			(d: Directory) LocList (loc: Files.Locator): Files.LocInfo, NEW, ABSTRACT;
			(d: Directory) New (loc: Files.Locator; ask: BOOLEAN): File, NEW, ABSTRACT;
			(d: Directory) Old (loc: Files.Locator; name: Files.Name; shared: BOOLEAN): File, NEW, ABSTRACT;
			(d: Directory) Rename (loc: Files.Locator; old, new: Files.Name; ask: BOOLEAN), NEW, ABSTRACT;
			(d: Directory) SameFile (loc0: Files.Locator; name0: Files.Name; loc1: Files.Locator; name1: Files.Name): BOOLEAN, NEW, ABSTRACT;
			(d: Directory) Temp (): File, NEW, ABSTRACT;
			(d: Directory) This (IN path: ARRAY OF CHAR): Files.Locator, NEW, ABSTRACT
		END;

		File = POINTER TO ABSTRACT RECORD 
			type-: Files.Type;
			(f: File) Close, NEW, ABSTRACT;
			(f: File) Flush, NEW, ABSTRACT;
			(f: File) InitType (type: Files.Type), NEW;
			(f: File) Length (): LONGINT, NEW, ABSTRACT;
			(f: File) NewReader (old: Reader): Reader, NEW, ABSTRACT;
			(f: File) NewWriter (old: Writer): Writer, NEW, ABSTRACT;
			(f: File) Register (name: Files.Name; type: Files.Type; ask: BOOLEAN; OUT res: INTEGER), NEW, ABSTRACT
		END;

		FileInfo = POINTER TO RECORD 
			next: FileInfo;
			name: Files.Name;
			length: LONGINT;
			type: Files.Type;
			modified: RECORD 
				year, month, day, hour, minute, second: INTEGER
			END;
			attr: SET
		END;

		LocInfo = Files.LocInfo;

		Locator = Files.Locator;

		Reader = POINTER TO ABSTRACT RECORD 
			eof: BOOLEAN;
			(r: Reader) Base (): File, NEW, ABSTRACT;
			(r: Reader) Pos (): LONGINT, NEW, ABSTRACT;
			(r: Reader) ReadByte (OUT x: BYTE), NEW, ABSTRACT;
			(r: Reader) ReadBytes (VAR x: ARRAY OF BYTE; beg, len: INTEGER), NEW, ABSTRACT;
			(r: Reader) SetPos (pos: LONGINT), NEW, ABSTRACT
		END;

		Writer = POINTER TO ABSTRACT RECORD 
			(w: Writer) Base (): File, NEW, ABSTRACT;
			(w: Writer) Pos (): LONGINT, NEW, ABSTRACT;
			(w: Writer) SetPos (pos: LONGINT), NEW, ABSTRACT;
			(w: Writer) WriteByte (x: BYTE), NEW, ABSTRACT;
			(w: Writer) WriteBytes (IN x: ARRAY OF BYTE; beg, len: INTEGER), NEW, ABSTRACT
		END;

		Name = Files.Name;

		Type = Files.Type;

	VAR
		dir-: Directory;
		docType-: Files.Type;
		objType-: Files.Type;
		stdDir-: Directory;
		symType-: Files.Type;

	PROCEDURE SetDir (d: Directory);

END ToolsBigFiles.

Code: Select all

DEFINITION ToolsBigFMappers;

	IMPORT ToolsBigFiles;

	TYPE
		Reader = RECORD 
			rider-: ToolsBigFiles.Reader;
			(VAR rd: Reader) ConnectTo (f: ToolsBigFiles.File), NEW;
			(VAR rd: Reader) Pos (): LONGINT, NEW;
			(VAR rd: Reader) ReadBool (OUT x: BOOLEAN), NEW;
			(VAR rd: Reader) ReadByte (OUT x: BYTE), NEW;
			(VAR rd: Reader) ReadChar (OUT x: CHAR), NEW;
			(VAR rd: Reader) ReadInt (OUT x: INTEGER), NEW;
			(VAR rd: Reader) ReadLong (OUT x: LONGINT), NEW;
			(VAR rd: Reader) ReadReal (OUT x: REAL), NEW;
			(VAR rd: Reader) ReadSChar (OUT x: SHORTCHAR), NEW;
			(VAR rd: Reader) ReadSInt (OUT x: SHORTINT), NEW;
			(VAR rd: Reader) ReadSReal (OUT x: SHORTREAL), NEW;
			(VAR rd: Reader) ReadSString (OUT x: ARRAY OF SHORTCHAR), NEW;
			(VAR rd: Reader) ReadSet (OUT x: SET), NEW;
			(VAR rd: Reader) ReadString (OUT x: ARRAY OF CHAR), NEW;
			(VAR rd: Reader) ReadXChar (OUT x: CHAR), NEW;
			(VAR rd: Reader) ReadXInt (OUT x: INTEGER), NEW;
			(VAR rd: Reader) ReadXReal (OUT x: REAL), NEW;
			(VAR rd: Reader) ReadXString (OUT x: ARRAY OF CHAR), NEW;
			(VAR rd: Reader) SetPos (pos: LONGINT), NEW
		END;

		Writer = RECORD 
			rider-: ToolsBigFiles.Writer;
			(VAR wr: Writer) ConnectTo (f: ToolsBigFiles.File), NEW;
			(VAR wr: Writer) Pos (): LONGINT, NEW;
			(VAR wr: Writer) SetPos (pos: LONGINT), NEW;
			(VAR wr: Writer) WriteBool (x: BOOLEAN), NEW;
			(VAR wr: Writer) WriteByte (x: BYTE), NEW;
			(VAR wr: Writer) WriteChar (x: CHAR), NEW;
			(VAR wr: Writer) WriteInt (x: INTEGER), NEW;
			(VAR wr: Writer) WriteLong (x: LONGINT), NEW;
			(VAR wr: Writer) WriteReal (x: REAL), NEW;
			(VAR wr: Writer) WriteSChar (x: SHORTCHAR), NEW;
			(VAR wr: Writer) WriteSInt (x: SHORTINT), NEW;
			(VAR wr: Writer) WriteSReal (x: SHORTREAL), NEW;
			(VAR wr: Writer) WriteSString (IN x: ARRAY OF SHORTCHAR), NEW;
			(VAR wr: Writer) WriteSet (x: SET), NEW;
			(VAR wr: Writer) WriteString (IN x: ARRAY OF CHAR), NEW;
			(VAR wr: Writer) WriteXChar (x: CHAR), NEW;
			(VAR wr: Writer) WriteXInt (x: INTEGER), NEW;
			(VAR wr: Writer) WriteXReal (x: REAL), NEW;
			(VAR wr: Writer) WriteXString (IN x: ARRAY OF CHAR), NEW
		END;

END ToolsBigFMappers.