[Lazarus] LNet + fcl-web 2.3.1 fastcgi.pp
Osvaldo Filho
arquivostcf at gmail.com
Mon Jun 22 02:02:39 CEST 2009
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.
===========
Em Dom, 2009-06-21 às 20:31 +0200, Michael Van Canneyt escreveu:
>
> On Sun, 21 Jun 2009, Joost van der Sluis wrote:
>
> > Op zondag 21-06-2009 om 12:45 uur [tijdzone +0200], schreef Michael Van
> > Canneyt:
> >>
> >> On Sun, 21 Jun 2009, Aleš Katona wrote:
> >>
> >> > On Sat, 20 Jun 2009 14:37:07 -0300
> >> > Osvaldo Filho <arquivostcf at gmail.com> wrote:
> >> >
> >> >> 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.
> >>
> >>
> >> 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 ?
> >
> > Isn't there also a fpfastcgi unit?
>
> Not in the FPC sources ?
>
> Michael.
> -- _______________________________________________ Lazarus mailing list Lazarus at lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
More information about the Lazarus
mailing list