forked from zamronypj/fano
/
FcgiFrameParserFactoryImpl.pas
93 lines (75 loc) · 2.89 KB
/
FcgiFrameParserFactoryImpl.pas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
{*!
* Fano Web Framework (https://fanoframework.github.io)
*
* @link https://github.com/fanoframework/fano
* @copyright Copyright (c) 2018 Zamrony P. Juhara
* @license https://github.com/fanoframework/fano/blob/master/LICENSE (MIT)
*}
unit FcgiFrameParserFactoryImpl;
interface
{$MODE OBJFPC}
{$H+}
uses
InjectableObjectImpl,
FcgiFrameParserIntf,
FcgiFrameParserFactoryIntf;
type
(*!-----------------------------------------------
* FastCGI Frame Parser Factory
*
* @author Zamrony P. Juhara <zamronypj@yahoo.com>
*-----------------------------------------------*)
TFcgiFrameParserFactory = class (TInjectableObject, IFcgiFrameParserFactory)
private
public
(*!------------------------------------------------
* build frame parser instance
*-----------------------------------------------
* @return frame parser instance
*-----------------------------------------------*)
function build() : IFcgiFrameParser;
end;
implementation
uses
fastcgi,
FcgiRecordFactoryIntf,
FcgiBeginRequestFactory,
FcgiAbortRequestFactory,
FcgiEndRequestFactory,
FcgiParamsFactory,
FcgiStdInFactory,
FcgiStdOutFactory,
FcgiStdErrFactory,
FcgiDataFactory,
FcgiGetValuesFactory,
FcgiGetValuesResultFactory,
FcgiUnknownTypeFactory,
FcgiFrameParserImpl;
(*!------------------------------------------------
* build frame parser instance
*-----------------------------------------------
* @return frame parser instance
*-----------------------------------------------*)
function TFcgiFrameParserFactory.build() : IFcgiFrameParser;
var factories : TFcgiRecordFactoryArray;
begin
setLength(factories, FCGI_MAXTYPE + 1);
//FCGI_BEGIN_REQUEST = 1, FCGI_ABORT_REQUEST =2, and so on
//this is provided so we can get factory by record type on zero-based array
//without having to offset
//so to access correct factory by record type, it simply factories[fcgiRec.reqtype]
factories[0] := nil;
factories[FCGI_BEGIN_REQUEST] := TFcgiBeginRequestFactory.create();
factories[FCGI_ABORT_REQUEST] := TFcgiAbortRequestFactory.create();
factories[FCGI_END_REQUEST] := TFcgiEndRequestFactory.create();
factories[FCGI_PARAMS] := TFcgiParamsFactory.create();
factories[FCGI_STDIN] := TFcgiStdInFactory.create();
factories[FCGI_STDOUT] := TFcgiStdOutFactory.create();
factories[FCGI_STDERR] := TFcgiStdErrFactory.create();
factories[FCGI_DATA] := TFcgiDataFactory.create();
factories[FCGI_GET_VALUES] := TFcgiGetValuesFactory.create();
factories[FCGI_GET_VALUES_RESULT] := TFcgiGetValuesResultFactory.create();
factories[FCGI_UNKNOWN_TYPE] := TFcgiUnknownTypeFactory.create();
result := TFcgiFrameParser.create(factories);
end;
end.