@@ -57,8 +57,10 @@ feature -- Access: SSL
5757 -- Is SSL/TLS session?.
5858
5959 ca_crt : STRING
60+ -- the signed certificate.
6061
6162 ca_key : STRING
63+ -- private key to the sertificate.
6264
6365 ssl_protocol : NATURAL
6466 -- By default protocol is tls 1.2.
@@ -78,44 +80,67 @@ feature -- Element change
7880 unset_http_server_name
7981 do
8082 http_server_name := Void
83+ -- | Missing postcondition
84+ -- | ensure
85+ -- | unser_http_server_name: http_server_name = Void.
8186 end
8287
8388 set_http_server_port (v : like http_server_port )
89+ -- Set `http_server_port' with `v'.
8490 do
8591 http_server_port := v
92+ ensure
93+ http_server_port_set : http_server_port = v
8694 end
8795
8896 set_max_tcp_clients (v : like max_tcp_clients )
97+ -- Set `max_tcp_clients' with `v'.
8998 do
9099 max_tcp_clients := v
100+ ensure
101+ max_tcp_clients_set : max_tcp_clients = v
91102 end
92103
93104 set_max_concurrent_connections (v : like max_concurrent_connections )
105+ -- Set `max_concurrent_connections' with `v'.
94106 do
95107 max_concurrent_connections := v
108+ ensure
109+ max_concurrent_connections_set : max_concurrent_connections = v
96110 end
97111
98112 set_socket_accept_timeout (v : like socket_accept_timeout )
113+ -- Set `socket_accept_timeout' with `v'
99114 do
100115 socket_accept_timeout := v
116+ ensure
117+ socket_accept_timeout_set : socket_accept_timeout = v
101118 end
102119
103120 set_socket_connect_timeout (v : like socket_connect_timeout )
121+ -- Set `socket_connect_timeout' with `v'
104122 do
105123 socket_connect_timeout := v
124+ ensure
125+ socket_connect_timeout_set : socket_connect_timeout = v
106126 end
107127
108128 set_force_single_threaded (v : like force_single_threaded )
109129 do
110130 if v then
111131 set_max_concurrent_connections (0 )
112132 end
133+ -- |Missing postcondition
134+ -- | force_single_thread_set: v implies max_concurrent_connections = 0
135+ -- | not_single_thread: not v implies max_concurrent_connections > 0
113136 end
114137
115138 set_is_verbose (b : BOOLEAN )
116139 -- Set `is_verbose' to `b'
117140 do
118141 is_verbose := b
142+ ensure
143+ is_verbose_set : is_verbose = b
119144 end
120145
121146 set_keep_alive_timeout (a_seconds : like keep_alive_timeout )
@@ -137,6 +162,12 @@ feature -- Element change
137162 else
138163 is_secure := False
139164 end
165+ -- | Missing postcondition
166+ -- | ensure
167+ -- is_secure_set : has_ssl_support implies is_secure
168+ -- http_server_port_set: has_ssl_support implies http_server_port = 443
169+ -- is_not_secure: not has_ssl_support implies not is_secure
170+ -- default_port: not has_ssl_support implies http_server_port = 80
140171 end
141172
142173feature -- Element change
0 commit comments