Source file `config.ml`

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
(*----------------------------------------------------------------------------
 *  Copyright (c) 2017 Inhabited Type LLC.
 *  Copyright (c) 2019 Antonio N. Monteiro.
 *
 *  All rights reserved.
 *
 *  Redistribution and use in source and binary forms, with or without
 *  modification, are permitted provided that the following conditions
 *  are met:
 *
 *  1. Redistributions of source code must retain the above copyright
 *     notice, this list of conditions and the following disclaimer.
 *
 *  2. Redistributions in binary form must reproduce the above copyright
 *     notice, this list of conditions and the following disclaimer in the
 *     documentation and/or other materials provided with the distribution.
 *
 *  3. Neither the name of the author nor the names of his contributors
 *     may be used to endorse or promote products derived from this software
 *     without specific prior written permission.
 *
 *  THIS SOFTWARE IS PROVIDED BY THE CONTRIBUTORS ``AS IS'' AND ANY EXPRESS
 *  OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
 *  WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
 *  DISCLAIMED.  IN NO EVENT SHALL THE AUTHORS OR CONTRIBUTORS BE LIABLE FOR
 *  ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 *  DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 *  OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 *  HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
 *  STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
 *  ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 *  POSSIBILITY OF SUCH DAMAGE.
 *---------------------------------------------------------------------------*)

type t =
  { read_buffer_size : int
  ; request_body_buffer_size : int
  ; response_body_buffer_size : int
  ; enable_server_push : bool
  ; max_concurrent_streams : int
  ; initial_window_size : int
  }

let default =
  { (* This is effectively MAX_FRAME_SIZE, because the parser commits the frame
     * header to prevent backtracking, therefore the entire payload can fit the
     * read buffer. The default is 16384, and can't be lower than that.
     *
     * Note: h2 does not check that MAX_FRAME_SIZE is lower than 16384
     * octets. In the case that a lower value than permitted is set, peers will
     * reject the setting and close the connection with a PROTOCOL_ERROR.
     *
     * From RFC7540§6.5.2:
     *   SETTINGS_MAX_FRAME_SIZE (0x5): Indicates the size of the largest frame
     *   payload that the sender is willing to receive, in octets.
     *   The initial value is 2^14 (16,384) octets. The value advertised by an
     *   endpoint MUST be between this initial value and the maximum allowed
     *   frame size (2^24-1 or 16,777,215 octets), inclusive. *)
    read_buffer_size = Settings.default_settings.max_frame_size
  ; request_body_buffer_size = 0x1000 (* Buffer size for request bodies *)
  ; response_body_buffer_size = 0x1000 (* Buffer size for response bodies *)
  ; enable_server_push =
      true
      (* From RFC7540§6.5.2:
       *   Indicates the maximum number of concurrent streams that the sender
       *   will allow. This limit is directional: it applies to the number of
       *   streams that the sender permits the receiver to create. *)
  ; max_concurrent_streams =
      Settings.default_settings.max_concurrent_streams
      (* From RFC7540§6.5.2:
       *   Indicates the sender's initial window size (in octets) for
       *   stream-level flow control. *)
  ; initial_window_size = Settings.WindowSize.default_initial_window_size
  }