steve
/
guile-flac
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

typo, syntax error, comments

main
Steve Ayerhart 2022-11-23 15:28:10 -05:00
parent e4e7d1172f
commit 42cabaa9e8
No known key found for this signature in database
GPG Key ID: 4CB33EB9BB156C97
2 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/flac/Makefile.am
View File

@ -19,7 +19,7 @@ include $(top_srcdir)/build-aux/am/guile.am
SOURCES = \ SOURCES = \
version.scm \ version.scm \
decover.scm \ decoder.scm \
format.scm \ format.scm \
metadata.scm \ metadata.scm \
reader.scm reader.scm

7
src/flac/decoder.scm
View File

@ -171,7 +171,7 @@
((between? raw #b100000 #b111111) (values (+ 1 (bit-extract raw 0 5)) 'lpc)) ((between? raw #b100000 #b111111) (values (+ 1 (bit-extract raw 0 5)) 'lpc))
(else (values #f #f))))) (else (values #f #f)))))
; https://www.ietf.org/archive/id/draft-ietf-cellar-flac-07.html#name-interchannel-decorrelation ; https://www.ietf.org/archive/id/draft-ietf-cellar-flac-07.html#name-interchannel-decorrelation
(define (stereo-decorrelation samples channel-assignment) (define (stereo-decorrelation samples channel-assignment)
(match channel-assignment (match channel-assignment
('independent samples) ('independent samples)
@ -239,13 +239,12 @@
(residual (read-residual-partitioned-rice blocksize lpc-order))) (residual (read-residual-partitioned-rice blocksize lpc-order)))
(restore-linear-prediction warmup residual coefs lpc-order shift))) (restore-linear-prediction warmup residual coefs lpc-order shift)))
;; TODO: clean up the channel decorrelation this is kind of ugly
(define (read-subframes stream-info frame-header) (define (read-subframes stream-info frame-header)
(let ((channels (stream-info-channels stream-info)) (let ((channels (stream-info-channels stream-info))
(channel-assignment (frame-header-channel-assignment frame-header))) (channel-assignment (frame-header-channel-assignment frame-header)))
(map! (λ (channel) (read-subframe frame-header channel)) (iota channels)))) (map! (λ (channel) (read-subframe frame-header channel)) (iota channels))))
; TODO: actually verify the checksum ;;; TODO: actually verify the checksum
(define (read-frame-footer) (define (read-frame-footer)
(flac-read-uint 16)) (flac-read-uint 16))
@ -262,7 +261,7 @@
(blocksize (decode-block-size raw-blocksize)) (blocksize (decode-block-size raw-blocksize))
(sample-rate (decode-sample-rate stream-info raw-sample-rate)) (sample-rate (decode-sample-rate stream-info raw-sample-rate))
(crc (flac-read-uint 8))) (crc (flac-read-uint 8)))
(make-frame-header (%make-frame-header
blocking-strategy blocking-strategy
blocksize blocksize
sample-rate sample-rate