FastCGI implementation in OCaml
anil.recoil.org
1(** FastCGI record handling for parsing and creating protocol messages.
2
3 This module provides the core functionality for handling FastCGI records,
4 which are the fundamental units of communication in the FastCGI protocol.
5 Records multiplex multiple requests over a single connection and provide
6 independent data streams within each request. *)
7
8(** {1 Record Structure} *)
9
10(** FastCGI protocol version *)
11type version = int
12
13(** Record types define the purpose and interpretation of record content *)
14type record =
15 | Begin_request (** Start a new FastCGI request *)
16 | Abort_request (** Abort an existing request *)
17 | End_request (** Terminate a request *)
18 | Params (** Name-value pairs (environment variables) *)
19 | Stdin (** Standard input data stream *)
20 | Stdout (** Standard output data stream *)
21 | Stderr (** Standard error data stream *)
22 | Data (** Additional data stream for Filter role *)
23 | Get_values (** Query application capabilities *)
24 | Get_values_result (** Response to capability query *)
25 | Unknown_type (** Unknown record type response *)
26
27(** [record_type_to_int rt] converts record type to its protocol integer value *)
28val record_to_int : record -> int
29
30(** [record_type_of_int i] converts protocol integer to record type.
31 Raises Invalid_argument for unknown values. *)
32val record_of_int : int -> record
33
34(** [pp_record ppf rt] pretty-prints a record type *)
35val pp_record : Format.formatter -> record -> unit
36
37(** Request identifier for multiplexing multiple requests over one connection.
38 Request ID 0 is reserved for management records. *)
39type request_id = int
40
41(** A complete FastCGI record containing header and content.
42 Records consist of an 8-byte fixed header followed by variable-length
43 content and optional padding for alignment. *)
44type t = {
45 version : version; (** Protocol version (always 1) *)
46 record_type : record; (** Type of this record *)
47 request_id : request_id; (** Request identifier *)
48 content : string; (** Record content data *)
49}
50
51(** [pp ?max_content_len ppf record] pretty-prints a FastCGI record.
52 [max_content_len] limits the displayed content length (default: 100 bytes) *)
53val pp : ?max_content_len:int -> Format.formatter -> t -> unit
54
55(** {1 Record Operations} *)
56
57(** [read buf_read] reads a complete FastCGI record from the input buffer.
58 Returns the parsed record or raises an exception if the record is malformed
59 or if there's insufficient data. The padding is automatically handled and
60 discarded during parsing. *)
61val read : Eio.Buf_read.t -> t
62
63(** [write buf_write record] writes a FastCGI record to the output buffer.
64 The record header is automatically constructed from the record fields,
65 and appropriate padding is added to align the record on 8-byte boundaries
66 for optimal performance. *)
67val write : Eio.Buf_write.t -> t -> unit
68
69(** [create ~version ~record ~request_id ~content] creates a new record
70 with the specified parameters. The content length is automatically
71 calculated from the content string. *)
72val create : version:version -> record:record ->
73 request_id:request_id -> content:string -> t
74
75(** {1 Key-Value Pairs} *)
76
77(** Key-value pairs are used to transmit environment variables and other
78 key-value data in FCGI_PARAMS and other record types. The FastCGI protocol
79 uses a specific encoding where lengths are variable-width (1 or 4 bytes). *)
80
81module KV : sig
82 (** Type for key-value pair collections *)
83 type t
84
85 (** [empty] creates an empty key-value pair collection *)
86 val empty : t
87
88 (** [add name value pairs] adds a key-value pair to the collection *)
89 val add : string -> string -> t -> t
90
91 (** [remove name pairs] removes all pairs with the given key *)
92 val remove : string -> t -> t
93
94 (** [find name pairs] returns the value associated with the given key.
95 Raises Not_found if the key is not present. *)
96 val find : string -> t -> string
97
98 (** [find_opt name pairs] returns Some value or None if not found *)
99 val find_opt : string -> t -> string option
100
101 (** [to_seq pairs] converts to a sequence of (key, value) tuples *)
102 val to_seq : t -> (string * string) Seq.t
103
104 (** [of_seq pairs] creates from a sequence of (key, value) tuples *)
105 val of_seq : (string * string) Seq.t -> t
106
107 (** [read buf_read] reads key-value pairs from a buffer.
108 Handles the FastCGI variable-length encoding where lengths ≤ 127 bytes
109 use 1 byte, longer lengths use 4 bytes with the high bit set. *)
110 val read : Eio.Buf_read.t -> t
111
112 (** [write buf_write pairs] writes key-value pairs to a buffer using
113 the FastCGI encoding format *)
114 val write : Eio.Buf_write.t -> t -> unit
115
116 (** [encode pairs] returns the encoded byte string representation *)
117 val encode : t -> string
118
119 (** [decode content] parses encoded key-value pairs from a string *)
120 val decode : string -> t
121
122 (** [pp ppf pairs] pretty-prints key-value pairs *)
123 val pp : Format.formatter -> t -> unit
124end