(ntp) ( payload -- ntp )

Vocabulary

ntp.private

Inputs

payload

an object

Outputs

ntp

an object

Definition

USING: accessors arrays combinators kernel math pack sequences ;

IN: ntp.private

: (ntp) ( payload -- ntp )
    "CCCcIIIIIIIIIII" unpack-be {
        [ first -6 shift 3 bitand ]
        [ first -3 shift 7 bitand ]
        [ first 7 bitand ]
        [ second ]
        [ third ]
        [ [ 3 ] dip nth ]
        [ [ 4 ] dip nth 16 2^ / ]
        [ [ 5 ] dip nth 16 2^ / ]
        [ [ 6 ] dip nth ]
        [ [ { 7 8 } ] dip nths (time) ]
        [ [ { 9 10 } ] dip nths (time) ]
        [ [ { 11 12 } ] dip nths (time) ]
        [ [ { 13 14 } ] dip nths (time) ]
    } cleave ntp boa dup stratum>> [ (ref-id) ] curry
    change-ref-id [ dup (leap) 2array ] change-leap
    [ dup (mode) 2array ] change-mode
    [ dup (stratum) 2array ] change-stratum ;