The package LNet has a unit with the same name of fpc 2.3.1: fastcgi.pp

How can i install lnet?

Hmm must be new. I'll look into this.

Ales

Maybe it is best to rename the unit in FPC to fpfastcgi. This is in line with the rest of the unit names. If Joost agrees on that ?

Michael.

One way or the other. I can rename in lNet as well if it's a problem. But since this seems to be a trunk thing, changing in FPC might be simpler?

Ales

Op zondag 21-06-2009 om 12:45 uur [tijdzone +0200], schreef Michael Van Canneyt:

Isn't there also a fpfastcgi unit?

Joost

Not in the FPC sources ?

Michael.

Files are equal:

on LNet:
===========
unit fastcgi;

interface

{
Automatically converted by H2Pas 0.99.16 from fastcgi.h The following command line parameters were used:
fastcgi.h
}

{$IFDEF FPC}
{$PACKRECORDS C}
{$ENDIF}

{
* Listening socket file number
}

const
   FCGI_LISTENSOCK_FILENO = 0;
type
   PFCGI_Header = ^FCGI_Header;
   FCGI_Header = record
      version : byte;
      reqtype : byte;
      requestIdB1 : byte;
      requestIdB0 : byte;
      contentLengthB1 : byte;
      contentLengthB0 : byte;
      paddingLength : byte;
      reserved : byte;
   end;
{
 * Number of bytes in a FCGI_Header.  Future versions of the protocol
 * will not reduce this number.
}
const
   FCGI_HEADER_LEN = 8;

{
* Value for version component of FCGI_Header
}

   FCGI_VERSION_1 = 1;

{
 * Values for type component of FCGI_Header
}
   FCGI_BEGIN_REQUEST = 1;
   FCGI_ABORT_REQUEST = 2;
   FCGI_END_REQUEST = 3;
   FCGI_PARAMS = 4;
   FCGI_STDIN = 5;
   FCGI_STDOUT = 6;
   FCGI_STDERR = 7;
   FCGI_DATA = 8;
   FCGI_GET_VALUES = 9;
   FCGI_GET_VALUES_RESULT = 10;
   FCGI_UNKNOWN_TYPE = 11;
   FCGI_MAXTYPE = FCGI_UNKNOWN_TYPE;

{
* Value for requestId component of FCGI_Header
}

   FCGI_NULL_REQUEST_ID = 0;

type
   FCGI_BeginRequestBody = record
      roleB1 : byte;
      roleB0 : byte;
      flags : byte;
      reserved : array[0..4] of byte;
   end;
   FCGI_BeginRequestRecord = record
      header : FCGI_Header;
      body : FCGI_BeginRequestBody;
   end;

{
* Mask for flags component of FCGI_BeginRequestBody }

const
   FCGI_KEEP_CONN = 1;

{
* Values for role component of FCGI_BeginRequestBody }

   FCGI_RESPONDER = 1;
   FCGI_AUTHORIZER = 2;
   FCGI_FILTER = 3;
type
   FCGI_EndRequestBody = record
      appStatusB3 : byte;
      appStatusB2 : byte;
      appStatusB1 : byte;
      appStatusB0 : byte;
      protocolStatus : byte;
      reserved : array[0..2] of byte;
   end;
   FCGI_EndRequestRecord = record
      header : FCGI_Header;
      body : FCGI_EndRequestBody;
   end;

{
* Values for protocolStatus component of FCGI_EndRequestBody }

const
   FCGI_REQUEST_COMPLETE = 0;
   FCGI_CANT_MPX_CONN = 1;
   FCGI_OVERLOADED = 2;
   FCGI_UNKNOWN_ROLE = 3;

{
* Variable names for FCGI_GET_VALUES / FCGI_GET_VALUES_RESULT records }

   FCGI_MAX_CONNS = 'FCGI_MAX_CONNS';
   FCGI_MAX_REQS = 'FCGI_MAX_REQS';
   FCGI_MPXS_CONNS = 'FCGI_MPXS_CONNS';
type
   FCGI_UnknownTypeBody = record
      _type : byte;
      reserved : array[0..6] of byte;
   end;
   FCGI_UnknownTypeRecord = record
      header : FCGI_Header;
      body : FCGI_UnknownTypeBody;
   end;
implementation
end.
===========

on fcl-web:
===========
unit fastcgi;

interface

{
Automatically converted by H2Pas 0.99.16 from fastcgi.h The following command line parameters were used:
fastcgi.h
}

{$IFDEF FPC}
{$PACKRECORDS C}
{$ENDIF}

{
* Listening socket file number
}

const
   FCGI_LISTENSOCK_FILENO = 0;
type
   PFCGI_Header = ^FCGI_Header;
   FCGI_Header = record
      version : byte;
      reqtype : byte;
      // requestIdB1 : byte;
      // requestIdB0 : byte;
      requestID : word; // Stored as big-endian
      //contentLengthB1 : byte;
      //contentLengthB0 : byte;
      contentLength : word; // Stored as big-endian
      paddingLength : byte;
      reserved : byte;
   end;

{
* Number of bytes in a FCGI_Header. Future versions of the protocol
* will not reduce this number.
}

const
   FCGI_HEADER_LEN = 8;

{
* Value for version component of FCGI_Header
}

   FCGI_VERSION_1 = 1;

{
 * Values for type component of FCGI_Header
}
   FCGI_BEGIN_REQUEST = 1;
   FCGI_ABORT_REQUEST = 2;
   FCGI_END_REQUEST = 3;
   FCGI_PARAMS = 4;
   FCGI_STDIN = 5;
   FCGI_STDOUT = 6;
   FCGI_STDERR = 7;
   FCGI_DATA = 8;
   FCGI_GET_VALUES = 9;
   FCGI_GET_VALUES_RESULT = 10;
   FCGI_UNKNOWN_TYPE = 11;
   FCGI_MAXTYPE = FCGI_UNKNOWN_TYPE;

{
* Value for requestId component of FCGI_Header
}

   FCGI_NULL_REQUEST_ID = 0;

type
   FCGI_BeginRequestBody = record
      //roleB1 : byte;
      //roleB0 : byte;
      role : word; // Stored as big-endian
      flags : byte;
      reserved : array[0..4] of byte;
   end;
   PFCGI_BeginRequestRecord = ^FCGI_BeginRequestRecord;
   FCGI_BeginRequestRecord = record
      header : FCGI_Header;
      body : FCGI_BeginRequestBody;
   end;

{
* Mask for flags component of FCGI_BeginRequestBody }

const
   FCGI_KEEP_CONN = 1;

{
* Values for role component of FCGI_BeginRequestBody }

   FCGI_RESPONDER = 1;
   FCGI_AUTHORIZER = 2;
   FCGI_FILTER = 3;
type
   FCGI_EndRequestBody = record
      appStatusB3 : byte;
      appStatusB2 : byte;
      appStatusB1 : byte;
      appStatusB0 : byte;
      protocolStatus : byte;
      reserved : array[0..2] of byte;
   end;
   FCGI_EndRequestRecord = record
      header : FCGI_Header;
      body : FCGI_EndRequestBody;
   end;

{
* Values for protocolStatus component of FCGI_EndRequestBody }

const
   FCGI_REQUEST_COMPLETE = 0;
   FCGI_CANT_MPX_CONN = 1;
   FCGI_OVERLOADED = 2;
   FCGI_UNKNOWN_ROLE = 3;

{
* Variable names for FCGI_GET_VALUES / FCGI_GET_VALUES_RESULT records }

   FCGI_MAX_CONNS = 'FCGI_MAX_CONNS';
   FCGI_MAX_REQS = 'FCGI_MAX_REQS';
   FCGI_MPXS_CONNS = 'FCGI_MPXS_CONNS';
type
   FCGI_UnknownTypeBody = record
      _type : byte;
      reserved : array[0..6] of byte;
   end;
   FCGI_UnknownTypeRecord = record
      header : FCGI_Header;
      body : FCGI_UnknownTypeBody;
   end;
   PFCGI_ContentRecord = ^FCGI_ContentRecord;
   FCGI_ContentRecord = record
      header : FCGI_Header;
      ContentData : array[0..1023] of byte;
   end;
implementation
end.

===========

I'll rename the one in lNet so there's no conflict.

Ales

Op zondag 21-06-2009 om 21:02 uur [tijdzone -0300], schreef Osvaldo Filho:

Files are equal: on LNet:

Ow, yes. That's true. It's just the header-file which I copied from lNet. I think it's better to add a fcgi-header package, which can be used by fcl-web and lNet.

Joost.

Agreed. I'll look into this ASAP.

Ales

I moved fastcgi out of fcl-web. Hopefully everything works on every Os, but I didn't test functionality, just compile/install.

Will update lNet soon (so trunk/trunk will work)

Ales