steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

die if wav fmt or data chunk is missing

db4
Joe Groff 2009-04-29 08:40:31 -05:00
parent aa3025ce23
commit 4038d30e7e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/audio/wav/wav.factor
View File

@ -59,7 +59,7 @@ ERROR: invalid-wav-file ;
{ [ dup FMT-MAGIC "wav-fmt-chunk" heap-size check-chunk ] [ fmt! ] } { [ dup FMT-MAGIC "wav-fmt-chunk" heap-size check-chunk ] [ fmt! ] }
{ [ dup DATA-MAGIC "wav-data-chunk" heap-size check-chunk ] [ data! ] } { [ dup DATA-MAGIC "wav-data-chunk" heap-size check-chunk ] [ data! ] }
} cond ] while drop } cond ] while drop
fmt data ; fmt data 2dup and [ invalid-wav-file ] unless ;
: verify-wav ( chunk -- ) : verify-wav ( chunk -- )
{ {
@ -69,7 +69,7 @@ ERROR: invalid-wav-file ;
[ invalid-wav-file ] unless ; [ invalid-wav-file ] unless ;
: (read-wav) ( -- audio ) : (read-wav) ( -- audio )
read-wav-chunks read-wav-chunks
[ [
[ wav-fmt-chunk-num-channels 2 memory>byte-array le> ] [ wav-fmt-chunk-num-channels 2 memory>byte-array le> ]
[ wav-fmt-chunk-bits-per-sample 2 memory>byte-array le> ] [ wav-fmt-chunk-bits-per-sample 2 memory>byte-array le> ]