home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TBTREE.ZIP / FILEDECS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-07-25  |  2.7 KB  |  66 lines
  1. (* TBTree13             Copyright (c)  1988            Dean H. Farwell II    *)
  2.  
  3. unit FileDecs;
  4.  
  5. (*****************************************************************************)
  6. (*                                                                           *)
  7. (*                     F I L E   D E C L A R A T I O N S                     *)
  8. (*                                                                           *)
  9. (*****************************************************************************)
  10.  
  11.  
  12. (* This unit is required because these declarations are needed by both
  13.    the Files unit and the Page unit.  They logically belong in the File unit
  14.    but putting them there means that the File unit can not depend on the
  15.    Page unit which it does.  In other words, separately declaring this
  16.    info alleviates the recursive unit dependency problem which would occur.  *)
  17.  
  18. (* Version Information
  19.  
  20.    Version 1.1 - No Changes
  21.  
  22.    Version 1.2 - No Changes
  23.  
  24.    Version 1.3 - No Changes                                                  *)
  25.  
  26.  
  27. (*////////////////////////// I N T E R F A C E //////////////////////////////*)
  28.  
  29. interface
  30.  
  31. const
  32.     FNSIZE = 80;                (* Max number of characters in a file name.
  33.                                    80 characters is used since a file name
  34.                                    may consist of a drive specifier and/or
  35.                                    directory info along with the actual
  36.                                    name
  37.  
  38.                                    for example -
  39.                                               A:\mydir\thisdir\xxxxxxxx.yyy  *)
  40.  
  41.  
  42.     RNSIZE = 4;                 (* bytes required to store a record number *)
  43.  
  44. type
  45.     FileTypes = (BITMAP,INDEX,DATA,LLIST);
  46.  
  47.     FnString = String[FnSize];      (* See FNSIZE definition above for an
  48.                                        example of a file name                *)
  49.  
  50.     RecordNumber = -1 .. MAXLONGINT;       (* range of record numbers
  51.                                               -1 used for error or unusual
  52.                                               conditions                   *)
  53.  
  54.     PrNumber = RecordNumber;   (* Physical Record Number within a file     *)
  55.     LrNumber = RecordNumber;   (* Logical Record Number within a file      *)
  56.                                (* For both of the above type definitions
  57.                                   -1 is used to account for error or
  58.                                   unusual conditions                       *)
  59.  
  60. (*///////////////////// I M P L E M E N T A T I O N /////////////////////////*)
  61.  
  62. implementation
  63.  
  64.  
  65. end.                                                 (* end of FileDecs unit *)
  66.