read-job-time ( -- duration )

Vocabulary

images.tga

Inputs

None

Outputs

duration

an object

Definition

USING: accessors calendar endian io kernel ranges sequences ;

IN: images.tga

: read-job-time ( -- duration )
    duration new 2 read le> >>hour
    2 read le> dup 59 [0..b] member?
    [ bad-tga-timestamp ] unless >>minute
    2 read le> dup 59 [0..b] member?
    [ bad-tga-timestamp ] unless >>second ; inline