23 lines
597 B
Factor
23 lines
597 B
Factor
! 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 ;
|