home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TBTREE.ZIP / NUMBERS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-07-25  |  2.3 KB  |  71 lines
  1. (* TBTree13             Copyright (c)  1988            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.  
  24. (*\*)
  25. (*////////////////////////// I N T E R F A C E //////////////////////////////*)
  26.  
  27. interface
  28.  
  29. const
  30.     MAXBYTE     = 255;
  31.     MAXSHORTINT = 127;
  32.     MAXWORD     = 65535;
  33.  
  34.     (* the following constants are used to reflect the number of bytes
  35.         required to hold the corresponding variable types.                   *)
  36.  
  37.     BYTESIZE      = 1;
  38.     SHORTINTSIZE  = 1;
  39.     INTEGERSIZE   = 2;
  40.     LONGINTSIZE   = 4;
  41.     WORDSIZE      = 2;
  42.     REALSIZE      = 6;
  43.     SINGLESIZE    = 4;
  44.     DOUBLESIZE    = 8;
  45.     EXTENDEDSIZE  = 10;
  46.     COMPSIZE      = 8;
  47.  
  48. type
  49.     PosByte       = 1 .. MAXBYTE;
  50.     PosShortInt   = 1 .. MAXSHORTINT;
  51.     PosInteger    = 1 .. MAXINT;
  52.     PosLongInt    = 1 .. MAXLONGINT;
  53.     PosWord       = 1 .. MAXWORD;
  54.  
  55.     Condition     = (EX,      (* Exists *)
  56.                      LT,      (* Less Than *)
  57.                      LE,      (* Less Than Or Equal To *)
  58.                      EQ,      (* Equal To *)
  59.                      NE,      (* Not Equal To *)
  60.                      GE,      (* Greater Than Or Equal To *)
  61.                      GT);     (* Greater Than *)
  62.  
  63.     StringCondition = (ST,    (* String Starts With Substring *)
  64.                        CO,    (* String Contains Substring *)
  65.                        EN);   (* String Ends With Substring *)
  66.  
  67. (*///////////////////// I M P L E M E N T A T I O N /////////////////////////*)
  68.  
  69. implementation
  70. end.                                                  (* end of Numbers unit *)
  71.