wake-on-lan: adding support for Wake-on-LAN protocol.

diff --git a/extra/wake-on-lan/authors.txt b/extra/wake-on-lan/authors.txt
new file mode 100644 (file)
index 0000000..e091bb8
--- /dev/null
+++ b/extra/wake-on-lan/authors.txt
@@ -0,0 +1 @@
+John Benediktsson

diff --git a/extra/wake-on-lan/summary.txt b/extra/wake-on-lan/summary.txt
new file mode 100644 (file)
index 0000000..6ecaafb
--- /dev/null
+++ b/extra/wake-on-lan/summary.txt
@@ -0,0 +1 @@
+Wake-on-LAN support

diff --git a/extra/wake-on-lan/wake-on-lan.factor b/extra/wake-on-lan/wake-on-lan.factor
new file mode 100644 (file)
index 0000000..4308290
--- /dev/null
+++ b/extra/wake-on-lan/wake-on-lan.factor
@@ -0,0 +1,22 @@
+! Copyright (C) 2012 John Benediktsson
+! See http://factorcode.org/license.txt for BSD license
+
+USING: arrays destructors io.sockets kernel math.parser
+sequences splitting ;
+
+IN: wake-on-lan
+
+<PRIVATE
+
+: mac-address-bytes ( mac-address -- byte-array )
+    ":-" split [ hex> ] B{ } map-as ;
+
+: wake-on-lan-packet ( mac-address -- bytearray )
+    [ 16 ] [ mac-address-bytes ] bi* <array> concat
+    B{ 0xff 0xff 0xff 0xff 0xff 0xff } prepend ;
+
+PRIVATE>
+
+: wake-on-lan ( mac-address broadcast-ip -- )
+    [ wake-on-lan-packet ] [ 9 <inet4> ] bi*
+    f 0 <inet4> <broadcast> [ send ] with-disposal ;