An OCaml library for constructing Wake-on-LAN magic packets
Merge pull request #1 from patricoferris/mirageify
Mirageify
+137
-49
+1
.gitignore
+1
.gitignore
···
1
+
_build
+1
.ocamlformat
+1
.ocamlformat
···
1
+
version=0.26.0
+2
-1
bin/dune
+2
-1
bin/dune
+9
-6
bin/owol.ml
+9
-6
bin/owol.ml
···
1
-
2
1
let send_wol mac port broadcast =
3
-
Eio_posix.run @@ fun env ->
4
-
Wol.send ~net:env#net ~port ~broadcast mac
2
+
Eio_posix.run @@ fun env -> Wol_eio.send ~net:env#net ~port ~broadcast mac
5
3
6
4
let () =
7
5
let open Cmdliner in
···
11
9
in
12
10
let port =
13
11
let doc = "Port to send the packet too (default 9)." in
14
-
Arg.(value & opt int 9 & info ["p"; "port"] ~docv:"PORT" ~doc)
12
+
Arg.(value & opt int 9 & info [ "p"; "port" ] ~docv:"PORT" ~doc)
15
13
in
16
14
let broadcast =
17
-
let doc = "Address to send the packet too (default broadcast to 255.255.255.255)." in
18
-
Arg.(value & opt string "255.255.255.255" & info ["a"; "address"] ~docv:"ADDRESS" ~doc)
15
+
let doc =
16
+
"Address to send the packet too (default broadcast to 255.255.255.255)."
17
+
in
18
+
Arg.(
19
+
value
20
+
& opt string "255.255.255.255"
21
+
& info [ "a"; "address" ] ~docv:"ADDRESS" ~doc)
19
22
in
20
23
let cmd =
21
24
let term = Term.(const send_wol $ mac_address $ port $ broadcast) in
+17
-1
dune-project
+17
-1
dune-project
···
19
19
(name wol)
20
20
(synopsis "A short synopsis")
21
21
(description "A longer description")
22
-
(depends ocaml dune eio_main ipaddr)
22
+
(depends ipaddr)
23
+
(tags
24
+
(topics "to describe" your project)))
25
+
26
+
(package
27
+
(name wol-mirage)
28
+
(synopsis "A short synopsis")
29
+
(description "A longer description")
30
+
(depends wol tcpip)
31
+
(tags
32
+
(topics "to describe" your project)))
33
+
34
+
(package
35
+
(name wol-eio)
36
+
(synopsis "A short synopsis")
37
+
(description "A longer description")
38
+
(depends wol eio eio_main)
23
39
(tags
24
40
(topics "to describe" your project)))
25
41
-36
lib/wol.ml
-36
lib/wol.ml
···
1
-
2
-
let mac_of_string mac_str =
3
-
List.map (fun x -> int_of_string ("0x" ^ x)) (Str.split (Str.regexp ":") mac_str)
4
-
|> Array.of_list
5
-
6
-
let mac_to_bytes mac =
7
-
String.split_on_char ':' mac
8
-
|> List.map (fun x -> int_of_string ("0x" ^ x))
9
-
10
-
let repeat_list n list =
11
-
List.init n (fun _ -> list)
12
-
|> List.concat
13
-
14
-
let construct_magic_packet mac_str =
15
-
let prefix = [0xFF; 0xFF; 0xFF; 0xFF; 0xFF; 0xFF] in
16
-
let mac_bytes = mac_to_bytes mac_str in
17
-
let repeated_mac = repeat_list 16 mac_bytes in
18
-
let packet_data = prefix @ repeated_mac in
19
-
let buf = Cstruct.create (List.length packet_data) in
20
-
List.iteri (fun i byte -> Cstruct.set_uint8 buf i byte) packet_data;
21
-
buf
22
-
23
-
let send ~net ?(port=9) ?(broadcast="255.255.255.255") mac_str =
24
-
Eio.Switch.run @@ fun sw ->
25
-
let addr = Ipaddr.V4.of_string_exn broadcast |> Ipaddr.V4.to_octets |> Eio.Net.Ipaddr.of_raw in
26
-
let sock =
27
-
let proto =
28
-
Eio.Net.Ipaddr.fold
29
-
~v4:(fun _v4 -> `UdpV4)
30
-
~v6:(fun _v6 -> `UdpV6)
31
-
addr
32
-
in
33
-
Eio.Net.datagram_socket ~sw net proto
34
-
in
35
-
let packet = construct_magic_packet mac_str in
36
-
Eio.Net.send sock ~dst:(`Udp (addr, port)) [ packet ]
+4
src/eio/dune
+4
src/eio/dune
+14
src/eio/wol_eio.ml
+14
src/eio/wol_eio.ml
···
1
+
let send ~net ?(port = 9) ?(broadcast = "255.255.255.255") mac_str =
2
+
Eio.Switch.run @@ fun sw ->
3
+
let addr =
4
+
Ipaddr.V4.of_string_exn broadcast
5
+
|> Ipaddr.V4.to_octets |> Eio.Net.Ipaddr.of_raw
6
+
in
7
+
let sock =
8
+
let proto =
9
+
Eio.Net.Ipaddr.fold ~v4:(fun _v4 -> `UdpV4) ~v6:(fun _v6 -> `UdpV6) addr
10
+
in
11
+
Eio.Net.datagram_socket ~sw net proto
12
+
in
13
+
let packet = Wol.magic_packet (Macaddr.of_string_exn mac_str) in
14
+
Eio.Net.send sock ~dst:(`Udp (addr, port)) [ packet ]
+4
src/lib/dune
+4
src/lib/dune
+9
src/lib/wol.ml
+9
src/lib/wol.ml
···
1
+
let magic_packet (mac : Macaddr.t) =
2
+
let mac = Macaddr.to_octets mac |> Cstruct.of_string in
3
+
let buf = Cstruct.create 102 in
4
+
Cstruct.BE.set_uint32 buf 0 0xFFFFFFFFl;
5
+
Cstruct.BE.set_uint16 buf 4 0xFFFF;
6
+
for i = 0 to 15 do
7
+
Cstruct.blit mac 0 buf (6 + (i * 6)) 6
8
+
done;
9
+
buf
+1
src/lib/wol.mli
+1
src/lib/wol.mli
···
1
+
val magic_packet : Macaddr.t -> Cstruct.t
+4
src/mirage/dune
+4
src/mirage/dune
+6
src/mirage/wol_mirage.ml
+6
src/mirage/wol_mirage.ml
+33
wol-eio.opam
+33
wol-eio.opam
···
1
+
# This file is generated by dune, edit dune-project instead
2
+
opam-version: "2.0"
3
+
synopsis: "A short synopsis"
4
+
description: "A longer description"
5
+
maintainer: ["Maintainer Name"]
6
+
authors: ["Author Name"]
7
+
license: "LICENSE"
8
+
tags: ["topics" "to describe" "your" "project"]
9
+
homepage: "https://github.com/username/reponame"
10
+
doc: "https://url/to/documentation"
11
+
bug-reports: "https://github.com/username/reponame/issues"
12
+
depends: [
13
+
"dune" {>= "3.10"}
14
+
"wol"
15
+
"eio"
16
+
"eio_main"
17
+
"odoc" {with-doc}
18
+
]
19
+
build: [
20
+
["dune" "subst"] {dev}
21
+
[
22
+
"dune"
23
+
"build"
24
+
"-p"
25
+
name
26
+
"-j"
27
+
jobs
28
+
"@install"
29
+
"@runtest" {with-test}
30
+
"@doc" {with-doc}
31
+
]
32
+
]
33
+
dev-repo: "git+https://github.com/username/reponame.git"
+32
wol-mirage.opam
+32
wol-mirage.opam
···
1
+
# This file is generated by dune, edit dune-project instead
2
+
opam-version: "2.0"
3
+
synopsis: "A short synopsis"
4
+
description: "A longer description"
5
+
maintainer: ["Maintainer Name"]
6
+
authors: ["Author Name"]
7
+
license: "LICENSE"
8
+
tags: ["topics" "to describe" "your" "project"]
9
+
homepage: "https://github.com/username/reponame"
10
+
doc: "https://url/to/documentation"
11
+
bug-reports: "https://github.com/username/reponame/issues"
12
+
depends: [
13
+
"dune" {>= "3.10"}
14
+
"wol"
15
+
"tcpip"
16
+
"odoc" {with-doc}
17
+
]
18
+
build: [
19
+
["dune" "subst"] {dev}
20
+
[
21
+
"dune"
22
+
"build"
23
+
"-p"
24
+
name
25
+
"-j"
26
+
jobs
27
+
"@install"
28
+
"@runtest" {with-test}
29
+
"@doc" {with-doc}
30
+
]
31
+
]
32
+
dev-repo: "git+https://github.com/username/reponame.git"