Category : Pascal Source Code
Archive   : BTREE1.ZIP
Filename : FILEDECS.PAS
unit FileDecs;
(*****************************************************************************)
(* *)
(* F I L E D E C L A R A T I O N S *)
(* *)
(*****************************************************************************)
(* This unit is required because these declarations are needed by both
the Files unit and the Page unit. They logically belong in the File unit
but putting them there means that the File unit can not depend on the
Page unit which it does. In other words, separately declaring this
info alleviates the recursive unit dependency problem which would occur. *)
(*////////////////////////// I N T E R F A C E //////////////////////////////*)
interface
const
FNSIZE = 80; (* Max number of characters in a file name.
80 characters is used since a file name
may consist of a drive specifier and/or
directory info along with the actual
name
for example -
A:\mydir\thisdir\xxxxxxxx.yyy *)
RNSIZE = 4; (* bytes required to store a record number *)
type
FileTypes = (BITMAP,INDEX,DATA,LLIST);
FnString = String[FnSize]; (* See FNSIZE definition above for an
example of a file name *)
RecordNumber = -1 .. MAXLONGINT; (* range of record numbers
-1 used for error or unusual
conditions *)
PrNumber = RecordNumber; (* Physical Record Number within a file *)
LrNumber = RecordNumber; (* Logical Record Number within a file *)
(* For both of the above type definitions
-1 is used to account for error or
unusual conditions *)
(*///////////////////// I M P L E M E N T A T I O N /////////////////////////*)
implementation
end. (* end of FileDecs unit *)
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/