home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / btree / tree / numbers.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-07-13  |  3.0 KB  |  102 lines
  1. (* TBTree16             Copyright (c)  1988,1989       Dean H. Farwell II    *)
  2.  
  3. unit Numbers;
  4.  
  5. (*****************************************************************************)
  6. (*                                                                           *)
  7. (*                  N U M B E R   D E C L A R A T I O N S                    *)
  8. (*                                                                           *)
  9. (*****************************************************************************)
  10.  
  11. (* This unit has declarations for often used standard constants and types.
  12.    These are obviously not all inclusive and can be added to as desired.     *)
  13.  
  14.  
  15. (* Version Information
  16.  
  17.    Version 1.1 - Added StringCondition type
  18.  
  19.    Version 1.2 - No Changes
  20.  
  21.    Version 1.3 - No Changes
  22.  
  23.    Version 1.4 - Moved the ValueType type definition from the compare unit
  24.                  to this unit to avoid a circular unit definition problem
  25.                  caused by adding the ByteData unit.
  26.  
  27.    Version 1.5 - No changes
  28.  
  29.    Version 1.6 - No changes                                                  *)
  30.  
  31.  
  32. (*////////////////////////// I N T E R F A C E //////////////////////////////*)
  33.  
  34. interface
  35.  
  36. const
  37.     MAXBYTE     = 255;
  38.     MAXSHORTINT = 127;
  39.     MAXWORD     = 65535;
  40.  
  41.     (* the following constants are used to reflect the number of bytes
  42.         required to hold the corresponding variable types.                   *)
  43.  
  44.     BYTESIZE      = 1;
  45.     SHORTINTSIZE  = 1;
  46.     INTEGERSIZE   = 2;
  47.     LONGINTSIZE   = 4;
  48.     WORDSIZE      = 2;
  49.     REALSIZE      = 6;
  50.     SINGLESIZE    = 4;
  51.     DOUBLESIZE    = 8;
  52.     EXTENDEDSIZE  = 10;
  53.     COMPSIZE      = 8;
  54.  
  55. (*\*)
  56. type
  57.     PosByte       = 1 .. MAXBYTE;
  58.     PosShortInt   = 1 .. MAXSHORTINT;
  59.     PosInteger    = 1 .. MAXINT;
  60.     PosLongInt    = 1 .. MAXLONGINT;
  61.     PosWord       = 1 .. MAXWORD;
  62.  
  63.     Condition     = (EX,      (* Exists *)
  64.                      LT,      (* Less Than *)
  65.                      LE,      (* Less Than Or Equal To *)
  66.                      EQ,      (* Equal To *)
  67.                      NE,      (* Not Equal To *)
  68.                      GE,      (* Greater Than Or Equal To *)
  69.                      GT);     (* Greater Than *)
  70.  
  71.     StringCondition = (ST,    (* String Starts With Substring *)
  72.                        CO,    (* String Contains Substring *)
  73.                        EN);   (* String Ends With Substring *)
  74.  
  75.     ValueType = (INVALIDVALUE,
  76.                  BYTEVALUE,
  77.                  SHORTINTVALUE,
  78.                  INTEGERVALUE,
  79.                  LONGINTVALUE,
  80.                  WORDVALUE,
  81.                  STRINGVALUE,
  82.                  REALVALUE,
  83.                  SINGLEVALUE,
  84.                  DOUBLEVALUE,
  85.                  EXTENDEDVALUE,
  86.                  COMPVALUE,
  87.                  BYTEARRAYVALUE);
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  
  96. (*!*)
  97. (*///////////////////// I M P L E M E N T A T I O N /////////////////////////*)
  98.  
  99. implementation
  100.  
  101. end.                                                  (* end of Numbers unit *)
  102.