home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / VDL020D.ZIP / VTYPES.DOC < prev    next >
Encoding:
Text File  |  1993-04-14  |  4.3 KB  |  156 lines
  1. {
  2. ════════════════════════════════════════════════════════════════════════════
  3.  
  4.  Visionix General Type Definitions Unit (VTYPE)
  5.  Copyright 1991,92,93 Visionix
  6.  ALL RIGHTS RESERVED
  7.  
  8. ────────────────────────────────────────────────────────────────────────────
  9.  
  10.  Revision history in reverse chronological order:
  11.  
  12.  Initials  Date      Comment
  13.  --------  --------  -------------------------------------------------------
  14.  
  15.  mep       04/07/93  Added TCharArray.
  16.  
  17.  mep       03/29/93  Added TDecHex and maxArrSize.
  18.  
  19.  mep       03/20/93  Added TWordArray and TLongIntArray.
  20.  
  21.  mep       02/11/93  Cleaned up code for beta release
  22.  
  23.  jrt       02/08/93  Sync with beta 0.12 release
  24.  
  25.  jrt       12/15/92  Changes for BP 7.0
  26.                        Added constants which are defined in bp 7.0
  27.                        but not in 6.0 so that they are included if
  28.                        this unit is being compiled under 6.0
  29.  
  30.  jrt       11/21/92  Sync with beta 0.08
  31.  
  32.  lpg       10/07/92  Added String Constants:
  33.                        cSPACE,cLoALPHA,cLoALPHANUM,cHiALPHA,cHiALPHANUM,
  34.                        cALPHA,cALPHANUM,cNUMERIC,cGRAMMAR
  35.  
  36.  jrt       09/01/92  First logged revision.
  37.  
  38. ────────────────────────────────────────────────────────────────────────────
  39. }
  40.  
  41. Unit VTypes;
  42.  
  43.  
  44. {────────────────────────────────────────────────────────────────────────────}
  45.  
  46. Const
  47.  
  48.   CBitMapB : Array[0..7] of Byte =
  49.     ( $1, $2, $4, $8,
  50.       $10, $20, $40, $80 );
  51.  
  52.   CBitMapW : Array[0..15] of Word =
  53.     ( $1, $2, $4, $8,
  54.       $10, $20, $40, $80,
  55.       $100, $200, $400, $800,
  56.       $1000, $2000, $4000, $8000 );
  57.  
  58.   CBitMapL : Array[0..31] of LongInt =
  59.     ( $1, $2, $4, $8,
  60.       $10, $20, $40, $80,
  61.       $100, $200, $400, $800,
  62.       $1000, $2000, $4000, $8000,
  63.       $10000, $20000, $40000, $80000,
  64.       $100000, $200000, $400000, $800000,
  65.       $1000000, $2000000, $4000000, $8000000,
  66.       $10000000, $20000000, $40000000, $80000000 );
  67.  
  68.   SE_Ok       = 0;
  69.   SE_NotFound = 1;
  70.   SE_NoMem    = 2;
  71.   SE_UserESC  = 3;
  72.  
  73.   cSPACE      = ' ';
  74.   cLoALPHA    = 'abcdefghijklmnopqrstuvwxyz';
  75.   cLoALPHANUM = 'abcdefghijklmnopqrstuvwxyz0123456789';
  76.   cHiALPHA    = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
  77.   cHiALPHANUM = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789';
  78.   cALPHA      = ' abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';
  79.   cALPHANUM   = ' abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789';
  80.   cNUMERIC    = '0123456789';
  81.   cGRAMMAR    = '!@#$%^&*(){}|[]\<>?,./';
  82.  
  83.   TDecHex : Array[0..15] of Char = '0123456789ABCDEF';
  84.  
  85.   maxArrSize  = $FFF8;
  86.  
  87. {-------------------------------------------------------------------------}
  88. { Borland Pascal 7.0 compatability constants -- these are constants which }
  89. { are found in Pascal 7.0 but not in 6.0.  They are included so that      }
  90. { they can be used when the VDL units are compiled in 6.0                 }
  91. {-------------------------------------------------------------------------}
  92.  
  93. {$IFNDEF VER70}
  94.  
  95.   Seg0040     = $0040;
  96.   SegA000     = $A000;
  97.   SegB000     = $B000;
  98.   SegB800     = $B800;
  99.  
  100.   SelectorInc = $1000;
  101.  
  102. {$ENDIF}
  103.  
  104. {$IFDEF DPMI    } {$DEFINE VDLPROT} {$ENDIF}
  105. {$IFDEF WINDOWS } {$DEFINE VDLPROT} {$ENDIF}
  106.  
  107. {────────────────────────────────────────────────────────────────────────────}
  108.  
  109. Type
  110.  
  111.   ST2   = STRING[2];
  112.   ST4   = STRING[4];
  113.   ST5   = STRING[5];
  114.   ST8   = STRING[8];
  115.   ST20  = STRING[20];
  116.   ST80  = STRING[80];
  117.   ST255 = STRING[255];
  118.  
  119.   TString = STRING;
  120.   PString = ^TString;
  121.  
  122.   TProcName = String[20];
  123.   PProcName = ^TProcName;
  124.  
  125.   THandle = POINTER;
  126.   PHandle = ^THandle;
  127.  
  128.   TCastWord = RECORD
  129.     LowByte  : BYTE;
  130.     HighByte : BYTE;
  131.   END;
  132.   PCastWord = ^TCastWord;
  133.  
  134.   TCastDWord = RECORD
  135.     LowWord  : WORD;
  136.     HighWord : WORD;
  137.   END;
  138.   PCastDWord = ^TCastDWord;
  139.  
  140.   TByteArray = ARRAY[1..maxArrSize] of BYTE;
  141.   PByteArray = ^TByteArray;
  142.  
  143.   TCharArray = ARRAY[1..maxArrSize] of CHAR;
  144.   PCharArray = ^TCharArray;
  145.  
  146.   TWordArray = ARRAY[1..(maxArrSize SHR 1)] of WORD;
  147.   PWordArray = ^PWordArray;
  148.  
  149.   TLongIntArray = ARRAY[1..(maxArrSize SHR 2)] of LONGINT;
  150.   PLongIntArray = ^TLongIntArray;
  151.  
  152. {────────────────────────────────────────────────────────────────────────────}
  153. {────────────────────────────────────────────────────────────────────────────}
  154. {────────────────────────────────────────────────────────────────────────────}
  155.  
  156.