parse-loc ( -- loc )

Vocabulary

dns

Inputs

None

Outputs

loc

an object

Definition

USING: accessors endian io kernel math math.bitwise
math.functions ;

IN: dns

: parse-loc ( -- loc )
    loc new read1 0 assert= read1 [ -4 shift ] [ 4 bits ] bi
    10^ * >>size read1 [ -4 shift ] [ 4 bits ] bi 10^ *
    >>horizontal read1 [ -4 shift ] [ 4 bits ] bi 10^ *
    >>vertical 4 read be> 31 2^ - 3600000 / >>lat
    4 read be> 31 2^ - 3600000 / >>lon 4 read be> 10000000 -
    >>alt ;