flac overhaul with tests
parent
e5f4bd1186
commit
0992da86d0
|
|
@ -0,0 +1,175 @@
|
|||
USING: tools.test io.encodings.binary io.streams.byte-array kernel accessors ;
|
||||
USING: flac.format flac.metadata flac.metadata.private flac.stream flac.decoder ;
|
||||
|
||||
IN: flac.tests
|
||||
|
||||
CONSTANT: example-1 B{
|
||||
0x66 0x4c 0x61 0x43 0x80 0x00 0x00 0x22 0x10 0x00 0x10 0x00
|
||||
0x00 0x00 0x0f 0x00 0x00 0x0f 0x0a 0xc4 0x42 0xf0 0x00 0x00
|
||||
0x00 0x01 0x3e 0x84 0xb4 0x18 0x07 0xdc 0x69 0x03 0x07 0x58
|
||||
0x6a 0x3d 0xad 0x1a 0x2e 0x0f 0xff 0xf8 0x69 0x18 0x00 0x00
|
||||
0xbf 0x03 0x58 0xfd 0x03 0x12 0x8b 0xaa 0x9a
|
||||
}
|
||||
|
||||
CONSTANT: example-2 B{
|
||||
0x66 0x4c 0x61 0x43 0x00 0x00 0x00 0x22 0x00 0x10 0x00 0x10
|
||||
0x00 0x00 0x17 0x00 0x00 0x44 0x0a 0xc4 0x42 0xf0 0x00 0x00
|
||||
0x00 0x13 0xd5 0xb0 0x56 0x49 0x75 0xe9 0x8b 0x8d 0x8b 0x93
|
||||
0x04 0x22 0x75 0x7b 0x81 0x03 0x03 0x00 0x00 0x12 0x00 0x00
|
||||
0x00 0x00 0x00 0x00 0x00 0x00 0x00 0x00 0x00 0x00 0x00 0x00
|
||||
0x00 0x00 0x00 0x10 0x04 0x00 0x00 0x3a 0x20 0x00 0x00 0x00
|
||||
0x72 0x65 0x66 0x65 0x72 0x65 0x6e 0x63 0x65 0x20 0x6c 0x69
|
||||
0x62 0x46 0x4c 0x41 0x43 0x20 0x31 0x2e 0x33 0x2e 0x33 0x20
|
||||
0x32 0x30 0x31 0x39 0x30 0x38 0x30 0x34 0x01 0x00 0x00 0x00
|
||||
0x0e 0x00 0x00 0x00 0x54 0x49 0x54 0x4c 0x45 0x3d 0xd7 0xa9
|
||||
0xd7 0x9c 0xd7 0x95 0xd7 0x9d 0x81 0x00 0x00 0x06 0x00 0x00
|
||||
0x00 0x00 0x00 0x00 0xff 0xf8 0x69 0x98 0x00 0x0f 0x99 0x12
|
||||
0x08 0x67 0x01 0x62 0x3d 0x14 0x42 0x99 0x8f 0x5d 0xf7 0x0d
|
||||
0x6f 0xe0 0x0c 0x17 0xca 0xeb 0x21 0x00 0x0e 0xe7 0xa7 0x7a
|
||||
0x24 0xa1 0x59 0x0c 0x12 0x17 0xb6 0x03 0x09 0x7b 0x78 0x4f
|
||||
0xaa 0x9a 0x33 0xd2 0x85 0xe0 0x70 0xad 0x5b 0x1b 0x48 0x51
|
||||
0xb4 0x01 0x0d 0x99 0xd2 0xcd 0x1a 0x68 0xf1 0xe6 0xb8 0x10
|
||||
0xff 0xf8 0x69 0x18 0x01 0x02 0xa4 0x02 0xc3 0x82 0xc4 0x0b
|
||||
0xc1 0x4a 0x03 0xee 0x48 0xdd 0x03 0xb6 0x7c 0x13 0x30
|
||||
}
|
||||
|
||||
CONSTANT: example-3 B{
|
||||
0x66 0x4c 0x61 0x43 0x80 0x00 0x00 0x22 0x10 0x00 0x10 0x00
|
||||
0x00 0x00 0x1f 0x00 0x00 0x1f 0x07 0xd0 0x00 0x70 0x00 0x00
|
||||
0x00 0x18 0xf8 0xf9 0xe3 0x96 0xf5 0xcb 0xcf 0xc6 0xdc 0x80
|
||||
0x7f 0x99 0x77 0x90 0x6b 0x32 0xff 0xf8 0x68 0x02 0x00 0x17
|
||||
0xe9 0x44 0x00 0x4f 0x6f 0x31 0x3d 0x10 0x47 0xd2 0x27 0xcb
|
||||
0x6d 0x09 0x08 0x31 0x45 0x2b 0xdc 0x28 0x22 0x22 0x80 0x57
|
||||
0xa3
|
||||
}
|
||||
|
||||
{
|
||||
T{ metadata
|
||||
{ stream-info
|
||||
T{ stream-info
|
||||
{ min-block-size 4096 }
|
||||
{ max-block-size 4096 }
|
||||
{ min-frame-size 15 }
|
||||
{ max-frame-size 15 }
|
||||
{ sample-rate 44100 }
|
||||
{ channels 2 }
|
||||
{ bits-per-sample 16 }
|
||||
{ samples 1 }
|
||||
{ md5 "3e84b41807dc690307586a3dad1a2e0f" }
|
||||
}
|
||||
}
|
||||
{ padding f }
|
||||
{ application f }
|
||||
{ seek-table f }
|
||||
{ vorbis-comment f }
|
||||
{ cuesheet f }
|
||||
{ picture { } }
|
||||
}
|
||||
T{ flac-frame
|
||||
{ header
|
||||
T{ flac-frame-header
|
||||
{ blocking-strategy fixed-blocksize }
|
||||
{ blocksize 1 }
|
||||
{ sample-rate 44100 }
|
||||
{ channel-assignment channel-assignment-independent }
|
||||
{ bits-per-sample 16 }
|
||||
{ crc 191 }
|
||||
}
|
||||
}
|
||||
{ subframes
|
||||
{
|
||||
T{ flac-subframe
|
||||
{ header
|
||||
T{ flac-subframe-header
|
||||
{ subframe-type subframe-type-verbatim }
|
||||
{ wasted-bits 2 }
|
||||
}
|
||||
}
|
||||
{ data
|
||||
T{ flac-subframe-verbatim
|
||||
{ value { 25588 } }
|
||||
}
|
||||
}
|
||||
}
|
||||
T{ flac-subframe
|
||||
{ header
|
||||
T{ flac-subframe-header
|
||||
{ subframe-type subframe-type-verbatim }
|
||||
{ wasted-bits 4 }
|
||||
}
|
||||
}
|
||||
{ data
|
||||
T{ flac-subframe-verbatim
|
||||
{ value { 10416 } }
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
{ footer T{ flac-frame-footer { crc 43674 } } }
|
||||
}
|
||||
} [
|
||||
example-1 binary <byte-reader> [
|
||||
read-flac-metadata dup stream-info>>
|
||||
read-flac-frame
|
||||
] with-flac-stream-reader
|
||||
] unit-test
|
||||
|
||||
{
|
||||
T{ metadata
|
||||
{ stream-info
|
||||
T{ stream-info
|
||||
{ min-block-size 16 }
|
||||
{ max-block-size 16 }
|
||||
{ min-frame-size 23 }
|
||||
{ max-frame-size 68 }
|
||||
{ sample-rate 44100 }
|
||||
{ channels 2 }
|
||||
{ bits-per-sample 16 }
|
||||
{ samples 19 }
|
||||
{ md5 "d5b0564975e98b8d8b930422757b8103" }
|
||||
}
|
||||
}
|
||||
{ padding T{ flac-padding { length 6 } } }
|
||||
{ seek-table
|
||||
T{ seek-table
|
||||
{ seek-points
|
||||
{ T{ seek-point { total-samples 16 } } }
|
||||
}
|
||||
}
|
||||
}
|
||||
{ vorbis-comment
|
||||
T{ vorbis-comment
|
||||
{ vendor-string "reference libFLAC 1.3.3 20190804" }
|
||||
{ comments { { "TITLE" "שלום" } } }
|
||||
}
|
||||
}
|
||||
}
|
||||
} [
|
||||
example-2 binary <byte-reader> [
|
||||
read-flac-metadata dup stream-info>>
|
||||
read-flac-frame
|
||||
] with-flac-stream-reader
|
||||
] unit-test
|
||||
|
||||
{
|
||||
T{ metadata
|
||||
{ stream-info
|
||||
T{ stream-info
|
||||
{ min-block-size 4096 }
|
||||
{ max-block-size 4096 }
|
||||
{ min-frame-size 31 }
|
||||
{ max-frame-size 31 }
|
||||
{ sample-rate 32000 }
|
||||
{ channels 1 }
|
||||
{ bits-per-sample 8 }
|
||||
{ samples 24 }
|
||||
{ md5 "f8f9e396f5cbcfc6dc807f9977906b32" }
|
||||
}
|
||||
}
|
||||
}
|
||||
} [
|
||||
example-3 binary <byte-reader> [
|
||||
read-flac-metadata
|
||||
] with-flac-stream-reader
|
||||
] unit-test
|
||||
|
|
@ -0,0 +1,52 @@
|
|||
USING: kernel namespaces accessors sequences destructors io.files io.encodings.binary math math.functions math.bitwise ;
|
||||
FROM: flac.format => FLAC-MAGIC not-a-flac-stream ;
|
||||
QUALIFIED: bitstreams
|
||||
QUALIFIED: io
|
||||
|
||||
IN: flac.stream
|
||||
|
||||
SYMBOL: flac-input-stream
|
||||
|
||||
CONSTANT: default-bitreader-capacity 65536
|
||||
|
||||
TUPLE: flac-stream-reader stream bitstream ;
|
||||
|
||||
M: flac-stream-reader dispose stream>> dispose ;
|
||||
|
||||
: <flac-stream-reader> ( stream -- flac-stream-reader )
|
||||
B{ } bitstreams:<msb0-bit-reader> flac-stream-reader boa ;
|
||||
|
||||
: flac-read ( n -- m )
|
||||
[ dup flac-input-stream get bitstream>> bitstreams:enough-bits? not ]
|
||||
[
|
||||
flac-input-stream get
|
||||
[ stream>> default-bitreader-capacity swap io:stream-read ] [ bitstream>> ] bi
|
||||
dup bytes>> swap [ prepend ] dip swap >>bytes drop
|
||||
] while flac-input-stream get bitstream>> bitstreams:read ;
|
||||
|
||||
: >32int ( x -- x' )
|
||||
32 >signed ;
|
||||
|
||||
: flac-read-int32 ( n -- m )
|
||||
flac-read >32int ;
|
||||
|
||||
: flac-read-rice-signed-int ( param -- n )
|
||||
[ 0 [ 1 flac-read 0 = ] [ 1 + ] do while ] dip
|
||||
[ shift ] keep flac-read bitor
|
||||
[ -1 shift ] [ 1 bitand -1 * ] bi ^ ;
|
||||
|
||||
: flac-read-coded-number ( -- n )
|
||||
8 flac-read
|
||||
[ dup 0b11000000 >= ] [ 8 flac-read drop 2^ 0xff bitand ] while ;
|
||||
|
||||
: (with-flac-stream-reader) ( stream quot -- )
|
||||
flac-input-stream swap with-variable ; inline
|
||||
|
||||
: with-flac-stream-reader ( stream quot -- )
|
||||
[ <flac-stream-reader> ] dip [ (with-flac-stream-reader) ] curry with-disposal ; inline
|
||||
|
||||
: with-flac-file-reader ( path quot -- )
|
||||
[ binary <file-reader> ] dip with-flac-stream-reader ; inline
|
||||
|
||||
: read/assert-flac-magic ( -- )
|
||||
32 flac-read FLAC-MAGIC = [ not-a-flac-stream ] unless ;
|
||||
Loading…
Reference in New Issue