lcore/trunk/pgtypes.pas

{io core originally for linux bworld}

{ Copyright (C) 2005 Bas Steendijk and Peter Green
  For conditions of distribution and use, see copyright notice in zlib_license.txt
  which is included in the package
  ----------------------------------------------------------------------------- }

unit pgtypes;
interface

{$include pgtypes.inc}

  type
    {$ifdef i386}
      taddrint=longint;
    {$else}
      {$ifdef cpux64}
      taddrint=int64;
      {$else}
      taddrint=sizeint;
      {$endif}
    {$endif}
    paddrint=^taddrint;

    { string type for storing hostnames or IP addresses as strings }
    thostname = ansistring;
    { string type for storing data (bytes) }
    tbufferstring = ansistring;
    
    {another name for a string with bytes, not implying it's to be used for a buffer}
    bytestring = tbufferstring;

    {a char that is always one byte}
    bytechar = ansichar;

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