reynir/udpdup
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Add command arguments

Browse source
This commit is contained in:
Reynir Björnsson 2021-09-24 14:56:45 +02:00
parent 3d41a5ff55
commit e4bdf9a97c
1 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
udpdup.ml
View file

@ -14,7 +14,17 @@ let rec loop fd dests =
let main () = let main () =
let addr = "0.0.0.0" in let addr = "0.0.0.0" in
let dests = ["127.0.0.1", 2234; "127.0.0.1", 2235] in let dests =
Array.to_list Sys.argv
|> List.tl
|> List.map (fun dest ->
match String.split_on_char ':' dest with
| [host; port] ->
host, int_of_string port
| _ ->
Printf.eprintf "bad argument: %s" dest;
exit 1)
in
let fd = Lwt_unix.socket Lwt_unix.PF_INET Lwt_unix.SOCK_DGRAM 0 in let fd = Lwt_unix.socket Lwt_unix.PF_INET Lwt_unix.SOCK_DGRAM 0 in
Lwt_unix.bind fd Unix.(ADDR_INET (inet_addr_of_string addr, port)) >>= fun () -> Lwt_unix.bind fd Unix.(ADDR_INET (inet_addr_of_string addr, port)) >>= fun () ->
Lwt_list.map_p (fun (addr, port) -> Lwt_list.map_p (fun (addr, port) ->