home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-387-Vol-3of3.iso
/
s
/
sltpu70a.zip
/
BLOCK.REF
< prev
next >
Wrap
Text File
|
1991-07-11
|
2KB
|
46 lines
The follwing is a reference of the data types provided by BLOCK.TPU.
Note: do not attempt to compile this file. Doing so may cause the
updated BLOCK.TPU file to be incompatible with the other TPU files.
type FileHeader = record { header info on file }
version: word; { version of unit that created file }
recsize: word; { record size }
offset: longint; { offset to 1st record }
nextfree: longint; { next free record }
end;
RecordHeader = record { control header to records }
mark: byte; { FF to indicate deleted rec }
extra: byte;
next: longint; { ptr to next free rec }
end;
TreeRootType = record { root info for tree/list type files }
treeroot: longint; { root of tree }
listroot: longint; { linked list root }
entries: longint; { # of entries }
end;
TreeLeafType = record { leaf info for tree/list type files }
status: byte; { 0=active, 255=deleted }
left,right: longint; { pointers to child nodes }
last,next: longint; { linked list ptrs }
end;
BlockFileType = record { ram file info }
filevar: file; { dos file var }
open: boolean; { set if file is open }
lock: integer; { file lock count }
recsize: word; { record size }
offset: longint; { offset to 1st record }
header: fileheader; { header info }
hlock: integer; { header locked? }
end;
(c) Copyright 1991 Searchlight Software