echo>byte-array ( echo -- byte-array )

Vocabulary

ping.private

Inputs

echo

an object

Outputs

byte-array

an object

Definition

USING: accessors checksums checksums.internet combinators.smart
kernel pack sequences ;

IN: ping.private

: echo>byte-array ( echo -- byte-array )
    [
        [ [ type>> 0 0 ] [ identifier>> ] [ sequence>> ] tri ]
        output>array "CCSSS" pack-be
    ] [ data>> ] bi append [ internet checksum-bytes 2 4 ] keep
    replace-slice ;