pgtypes.pas

   1 {io core originally for linux bworld}\r
   2 \r
   3 { Copyright (C) 2005 Bas Steendijk and Peter Green\r
   4   For conditions of distribution and use, see copyright notice in zlib_license.txt\r
   5   which is included in the package\r
   6   ----------------------------------------------------------------------------- }\r
   7 \r
   8 unit pgtypes;\r
   9 interface\r
  10 \r
  11 {$include pgtypes.inc}\r
  12 {$include uint32.inc}\r
  13 \r
  14   type\r
  15     {$ifdef i386}\r
  16       taddrint=uint32;\r
  17     {$else}\r
  18       {$ifdef cpux64}\r
  19       taddrint=int64;\r
  20       {$else}\r
  21       taddrint=sizeint;\r
  22       {$endif}\r
  23     {$endif}\r
  24     paddrint=^taddrint;\r
  25 \r
  26     { string type for storing hostnames or IP addresses as strings }\r
  27     thostname = ansistring;\r
  28     { string type for storing data (bytes) }\r
  29     tbufferstring = ansistring;\r
  30     \r
  31     {another name for a string with bytes, not implying it's to be used for a buffer}\r
  32     bytestring = tbufferstring;\r
  33 \r
  34     {a char that is always one byte}\r
  35     bytechar = ansichar;\r
  36 \r
  37 implementation\r
  38 end.\r