mirror of
https://github.com/c-cube/tiny_httpd.git
synced 2025-12-06 11:15:35 -05:00
28 lines
852 B
OCaml
28 lines
852 B
OCaml
let addr = ref "127.0.0.1"
|
|
let port = ref 8080
|
|
|
|
let bufsize = 1024
|
|
|
|
let () =
|
|
Arg.parse (Arg.align [
|
|
"-p", Arg.Set_int port, " port to connect to";
|
|
]) (fun s -> addr := s) "sse_client [opt]* [addr]?";
|
|
|
|
Format.printf "connect to %s:%d@." !addr !port;
|
|
let sock = Unix.socket Unix.PF_INET Unix.SOCK_STREAM 0 in
|
|
Unix.connect sock (Unix.ADDR_INET (Unix.inet_addr_of_string !addr, !port));
|
|
Unix.setsockopt sock Unix.TCP_NODELAY false;
|
|
|
|
let ic = Unix.in_channel_of_descr sock in
|
|
let oc = Unix.out_channel_of_descr sock in
|
|
output_string oc "GET /clock HTTP/1.1\r\nHost: localhost\r\n\r\n";
|
|
flush oc;
|
|
|
|
let continue = ref true in
|
|
let buf = Bytes.create bufsize in
|
|
while !continue do
|
|
let n = input ic buf 0 bufsize in
|
|
if n=0 then continue := false;
|
|
output stdout buf 0 n; flush stdout
|
|
done;
|
|
Format.printf "bye!@."
|