simon/tiny_httpd
1
0
Fork 0
mirror of https://github.com/c-cube/tiny_httpd.git synced 2025-12-06 11:15:35 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

refactor: improve the echo server

Browse source
This commit is contained in:
Simon Cruanes 2019-12-03 16:20:05 -06:00
parent 17a26ea297
commit 1fc544aa16
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/examples/echo.ml
View file

@ -7,12 +7,15 @@ let debug_ k =
)
let () =
let port_ = ref 8080 in
let j = ref 32 in
Arg.parse (Arg.align [
"--port", Arg.Set_int port_, " set port";
"-p", Arg.Set_int port_, " set port";
"--debug", Arg.Unit (fun () -> S._enable_debug true), " enable debug";
"-j", Arg.Set_int j, " maximum number of connections";
]) (fun _ -> raise (Arg.Bad "")) "echo [option]*";
let server = S.create ~max_connections:!j () in
let server = S.create ~port:!port_ ~max_connections:!j () in
(* say hello *)
S.add_path_handler ~meth:`GET server
"/hello/%s@/" (fun name _req -> S.Response.make_string (Ok ("hello " ^name ^"!\n")));