add flac seek

master
Steve Ayerhart 2021-08-09 11:49:36 -04:00
parent 2a0c71fd6e
commit 1829f4e732
No known key found for this signature in database
GPG Key ID: 5C815FDF3A00B8BA
1 changed files with 4 additions and 0 deletions

View File

@ -31,6 +31,10 @@ M: flac-stream-reader dispose stream>> dispose ;
dup bytes>> swap [ prepend ] dip swap >>bytes drop
] while flac-input-stream get bitstream>> bitstreams:read ;
: flac-seek ( n -- )
[ 8 * flac-input-stream get bitstream>> bitstreams:seek ]
[ io:seek-relative flac-input-stream get stream>> io:stream-seek ] bi ;
: flac-read-sint ( n -- n )
! TODO: this isn't rightt
dup flac-read-uint dup . dup 1 - neg shift swap shift ;