73 lines
2.3 KiB
Factor
73 lines
2.3 KiB
Factor
|
! Copyright (C) 2020 .
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
USING: alien.syntax math byte-arrays sequences ;
|
||
|
|
|
||
|
|
IN: flac.format
|
||
|
|
|
||
|
|
ENUM: flac-frame-number-type
|
||
|
|
frame-number-type-frame
|
||
|
|
frame-number-type-sample ;
|
||
|
|
|
||
|
|
ENUM: flac-channel-assignment
|
||
|
|
channels-mono
|
||
|
|
channels-left/right
|
||
|
|
channels-left/right/center
|
||
|
|
channels-left/right/left-surround/right-surround
|
||
|
|
channels-left/right/center/left-surround/right-surround
|
||
|
|
channels-left/right/center/lfe/left-surround/right-surround
|
||
|
|
channels-left/right/center/lfe/center-surround/side-left/side-right
|
||
|
|
channels-left/right/center/lfe/left-surround/right-surround/side-left/side-right
|
||
|
|
channels-left
|
||
|
|
channels-right
|
||
|
|
channels-mid ;
|
||
|
|
|
||
|
|
TUPLE: flac-frame-header
|
||
|
|
{ number-type maybe{ frame-number-type-frame frame-number-type-sample } }
|
||
|
|
{ blocksize integer }
|
||
|
|
{ sample-rate integer }
|
||
|
|
{ channels integer }
|
||
|
|
{ channel-assignment
|
||
|
|
maybe{ channels-mono
|
||
|
|
channels-left/right
|
||
|
|
channels-left/right/center
|
||
|
|
channels-left/right/left-surround/right-surround
|
||
|
|
channels-left/right/center/left-surround/right-surround
|
||
|
|
channels-left/right/center/lfe/left-surround/right-surround
|
||
|
|
channels-left/right/center/lfe/center-surround/side-left/side-right
|
||
|
|
channels-left/right/center/lfe/left-surround/right-surround/side-left/side-right
|
||
|
|
channels-left
|
||
|
|
channels-right
|
||
|
|
channels-mid } }
|
||
|
|
{ bits-per-sample integer }
|
||
|
|
{ frame|sample-number integer }
|
||
|
|
{ crc integer } ;
|
||
|
|
|
||
|
|
ENUM: flac-subframe-type
|
||
|
|
subframe-type-constant
|
||
|
|
subframe-type-verbatim
|
||
|
|
subframe-type-fixed
|
||
|
|
subframe-type-lpc ;
|
||
|
|
|
||
|
|
TUPLE: flac-subframe-header
|
||
|
|
{ subframe-type maybe{ subframe-type-constant
|
||
|
|
subframe-type-verbatim
|
||
|
|
subframe-type-fixed
|
||
|
|
subframe-type-lpc } }
|
||
|
|
{ wasted-bits integer } ;
|
||
|
|
|
||
|
|
TUPLE: flac-subframe
|
||
|
|
{ subframe-header flac-subframe-header }
|
||
|
|
{ data byte-array } ;
|
||
|
|
|
||
|
|
ENUM: flac-entropy-coding-method
|
||
|
|
entropy-coding-partioned-rice
|
||
|
|
entropy-coding-partioned-rice2 ;
|
||
|
|
|
||
|
|
TUPLE: flac-frame-footer
|
||
|
|
{ crc integer } ;
|
||
|
|
|
||
|
|
TUPLE: flac-frame
|
||
|
|
{ header flac-frame-header }
|
||
|
|
{ subframes sequence }
|
||
|
|
{ footer flac-frame-footer } ;
|