Skip to content

Instantly share code, notes, and snippets.

@AryanGodara

AryanGodara/main.ml

Created September 19, 2023 12:28
Show Gist options
  • Save AryanGodara/c71eb802b1c1be910a8075ed86cc6afa to your computer and use it in GitHub Desktop.
Save AryanGodara/c71eb802b1c1be910a8075ed86cc6afa to your computer and use it in GitHub Desktop.
Download ZIP
main.ml for pub-sub-publisher
Raw
main.ml
let () =
print_endline "Launching UDP Client...";
let msgList = ["903C28" ; "903C00" ; "903C1e" ; "903C00" ; "90432D" ; "904300" ; "904332"; "904300"; "90452D" ; "904500"; "904532"; "904500"; "904323"; "904300"; "904132"; "904100"; "90412D"; "904100"; "904032"; "904000" ; "904028"; "904000" ; "903E2D"; "903E00"; "903E32" ; "903E00" ; "903C1E"; "903C00"] in
let () = Logs.set_reporter (Logs.format_reporter ()) in
let () = Logs.set_level (Some Logs.Info) in
let client_socket = Client.create_socket () in
Lwt_main.run Client.(handle_request client_socket msgList)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment