read-srt-timestamp ( -- duration )

Vocabulary

subrip-subtitles

Inputs

None

Outputs

duration

an object

Definition

USING: accessors calendar calendar.parser math ;

IN: subrip-subtitles

: read-srt-timestamp ( -- duration )
    instant read-00 >>hour ":" expect read-00 >>minute
    ":" expect read-00 "," expect read-000 1000 /f + >>second ;