parse-idx-v2 ( -- idx )

Vocabulary

git

Inputs

None

Outputs

idx

an object

Definition

USING: arrays endian grouping hex-strings io kernel math
sequences ;

IN: git

: parse-idx-v2 ( -- idx )
    4 read be> 256 4 * read 4 group [ be> ] map dup last
    [ [ 20 read bytes>hex-string ] replicate ]
    [ [ 4 read ] replicate ] [ [ 4 read be> ] replicate ] tri
    3array
    flip 20 read bytes>hex-string 20 read bytes>hex-string <idx>
    ;