add ffi and metadata
parent
ebd93fd55f
commit
eb6b7e9c10
|
|
@ -0,0 +1,147 @@
|
|||
! Copyright (C) 2020 .
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
|
||||
USING: system combinators alien alien.libraries alien.syntax alien.c-types classes.struct ;
|
||||
IN: flac.ffi
|
||||
|
||||
<<
|
||||
"avcodec" {
|
||||
{ [ os unix? ] [ "libFLAC.so" ] }
|
||||
} cond cdecl add-library
|
||||
>>
|
||||
|
||||
TYPEDEF: int FLAC__bool
|
||||
TYPEDEF: int16_t FLAC__int16
|
||||
TYPEDEF: int32_t FLAC__int32
|
||||
TYPEDEF: int64_t FLAC__int64
|
||||
TYPEDEF: uint FLAC__uint8
|
||||
TYPEDEF: uint16_t FLAC__uint16
|
||||
TYPEDEF: uint32_t FLAC__uint32
|
||||
TYPEDEF: uint64_t FLAC__uint64
|
||||
TYPEDEF: uint unsigned
|
||||
TYPEDEF: uint8_t FLAC__byte
|
||||
|
||||
ENUM: FLAC__MetadataType
|
||||
FLAC__METADATA_TYPE_STREAMINFO
|
||||
FLAC__METADATA_TYPE_PADDING
|
||||
FLAC__METADATA_TYPE_APPLICATION
|
||||
FLAC__METADATA_TYPE_SEEKTABLE
|
||||
FLAC__METADATA_TYPE_VORBIS_COMMENT
|
||||
FLAC__METADATA_TYPE_CUESHEET
|
||||
FLAC__METADATA_TYPE_PICTURE
|
||||
FLAC__METADATA_TYPE_UNDEFINED
|
||||
FLAC__METADATA_TYPE_TYPE ;
|
||||
|
||||
STRUCT: FLAC__StreamMetadata_StreamInfo
|
||||
{ min_blocksize unsigned }
|
||||
{ max_blocksize unsigned }
|
||||
{ min_framesize unsigned }
|
||||
{ max_framesize unsigned }
|
||||
{ sample_rate unsigned }
|
||||
{ channels unsigned }
|
||||
{ bits_per_sample unsigned }
|
||||
{ total_samples FLAC__uint64 }
|
||||
{ md5sum FLAC__byte[16] } ;
|
||||
|
||||
STRUCT: FLAC__StreamMetadata_Padding
|
||||
{ dummy int } ;
|
||||
|
||||
STRUCT: FLAC__StreamMetadata_Application
|
||||
{ id FLAC__byte[4] }
|
||||
{ data FLAC__byte* } ;
|
||||
|
||||
STRUCT: FLAC__StreamMetadata_SeekPoint
|
||||
{ sample_number FLAC__uint64 }
|
||||
{ stream_offset FLAC__uint64 }
|
||||
{ frame_samples unsigned } ;
|
||||
|
||||
STRUCT: FLAC__StreamMetadata_SeekTable
|
||||
{ num_points unsigned }
|
||||
{ points FLAC__StreamMetadata_SeekPoint* } ;
|
||||
|
||||
STRUCT: FLAC__StreamMetadata_VorbisComment_Entry
|
||||
{ length FLAC__uint32 }
|
||||
{ entry FLAC__byte* } ;
|
||||
|
||||
STRUCT: FLAC__StreamMetadata_VorbisComment
|
||||
{ vendor_string FLAC__StreamMetadata_VorbisComment_Entry }
|
||||
{ num_comments FLAC__uint32 }
|
||||
{ comments FLAC__StreamMetadata_VorbisComment_Entry* } ;
|
||||
|
||||
STRUCT: FLAC__StreamMetadata_CueSheet_Index
|
||||
{ offset FLAC__uint64 }
|
||||
{ number FLAC__byte } ;
|
||||
|
||||
STRUCT: FLAC__StreamMetadata_CueSheet_Track
|
||||
{ offset FLAC__uint64 }
|
||||
{ number FLAC__byte }
|
||||
{ isrc char[13] }
|
||||
{ type unsigned bits: 1 }
|
||||
{ pre_emphasis unsigned bits: 1 }
|
||||
{ num_indices FLAC__byte }
|
||||
{ indices FLAC__StreamMetadata_CueSheet_Index* } ;
|
||||
|
||||
STRUCT: FLAC__StreamMetadata_CueSheet
|
||||
{ media_catalog_number char[129] }
|
||||
{ lead_in FLAC__uint64 }
|
||||
{ is_cd FLAC__bool }
|
||||
{ num_tracks unsigned }
|
||||
{ tracks FLAC__StreamMetadata_CueSheet_Track* } ;
|
||||
|
||||
ENUM: FLAC__StreamMetadata_Picture_Type
|
||||
FLAC__STREAM_METADATA_PICTURE_TYPE_OTHER
|
||||
FLAC__STREAM_METADATA_PICTURE_TYPE_FILE_ICON_STANDARD
|
||||
FLAC__STREAM_METADATA_PICTURE_TYPE_FILE_ICON
|
||||
FLAC__STREAM_METADATA_PICTURE_TYPE_FRONT_COVER
|
||||
FLAC__STREAM_METADATA_PICTURE_TYPE_BACK_COVER
|
||||
FLAC__STREAM_METADATA_PICTURE_TYPE_LEAFLET_PAGE
|
||||
FLAC__STREAM_METADATA_PICTURE_TYPE_MEDIA
|
||||
FLAC__STREAM_METADATA_PICTURE_TYPE_LEAD_ARTIST
|
||||
FLAC__STREAM_METADATA_PICTURE_TYPE_ARTIST
|
||||
FLAC__STREAM_METADATA_PICTURE_TYPE_CONDUCTOR
|
||||
FLAC__STREAM_METADATA_PICTURE_TYPE_BAND
|
||||
FLAC__STREAM_METADATA_PICTURE_TYPE_COMPOSER
|
||||
FLAC__STREAM_METADATA_PICTURE_TYPE_LYRICIST
|
||||
FLAC__STREAM_METADATA_PICTURE_TYPE_RECORDING_LOCATION
|
||||
FLAC__STREAM_METADATA_PICTURE_TYPE_DURING_RECORDING
|
||||
FLAC__STREAM_METADATA_PICTURE_TYPE_DURING_PERFORMANCE
|
||||
FLAC__STREAM_METADATA_PICTURE_TYPE_VIDEO_SCREEN_CAPTURE
|
||||
FLAC__STREAM_METADATA_PICTURE_TYPE_FISH
|
||||
FLAC__STREAM_METADATA_PICTURE_TYPE_ILLUSTRATION
|
||||
FLAC__STREAM_METADATA_PICTURE_TYPE_BAND_LOGOTYPE
|
||||
FLAC__STREAM_METADATA_PICTURE_TYPE_PUBLISHER_LOGOTYPE ;
|
||||
|
||||
STRUCT: FLAC__StreamMetadata_Picture
|
||||
{ type FLAC__StreamMetadata_Picture_Type }
|
||||
{ mime_type char* }
|
||||
{ description FLAC__byte* }
|
||||
{ width FLAC__uint32 }
|
||||
{ height FLAC__uint32 }
|
||||
{ depth FLAC__uint32 }
|
||||
{ colors FLAC__uint32 }
|
||||
{ data_length FLAC__uint32 }
|
||||
{ data FLAC__byte* } ;
|
||||
|
||||
STRUCT: FLAC__StreamMetadata_Unknown
|
||||
{ data FLAC__byte* } ;
|
||||
|
||||
UNION-STRUCT: metadata-union
|
||||
{ stream_info FLAC__StreamMetadata_StreamInfo }
|
||||
{ padding FLAC__StreamMetadata_Padding }
|
||||
{ application FLAC__StreamMetadata_Application }
|
||||
{ seek_table FLAC__StreamMetadata_SeekTable }
|
||||
{ vorbis_comment FLAC__StreamMetadata_VorbisComment }
|
||||
{ cue_sheet FLAC__StreamMetadata_CueSheet }
|
||||
{ picture FLAC__StreamMetadata_Picture }
|
||||
{ unknown FLAC__StreamMetadata_Unknown } ;
|
||||
|
||||
STRUCT: FLAC__StreamMetadata
|
||||
{ type FLAC__MetadataType }
|
||||
{ is_last FLAC__bool }
|
||||
{ length unsigned }
|
||||
{ data metadata-union } ;
|
||||
|
||||
FUNCTION: FLAC__bool FLAC__metadata_get_streaminfo ( c-string filename, FLAC__StreamMetadata* streaminfo )
|
||||
FUNCTION: FLAC__bool FLAC__metadata_get_tags ( c-string filename, FLAC__StreamMetadata** streaminfo )
|
||||
|
||||
|
||||
|
|
@ -0,0 +1,140 @@
|
|||
! Copyright (C) 2020 .
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: endian sequences kernel classes.struct io.binary io.files io.encodings io.encodings.string io.encodings.utf8 io.encodings.binary alien.c-types alien.endian math locals accessors prettyprint combinators math.parser strings arrays io.streams.byte-array sequences.generalizations assocs splitting byte-arrays alien.syntax alien.enums io.encodings.ascii pack ;
|
||||
USING: flac.bitstream flac.format ;
|
||||
|
||||
QUALIFIED: bitstreams
|
||||
QUALIFIED: io
|
||||
|
||||
IN: flac.metadata
|
||||
|
||||
ERROR: cuesheet-index-reserved-must-be-zero ;
|
||||
|
||||
: read-metadata-block-header ( -- header )
|
||||
1 flac-read-uint 1 =
|
||||
7 flac-read-uint <metadata-type>
|
||||
24 flac-read-uint
|
||||
metadata-block-header boa ;
|
||||
|
||||
: read-metadata-block-stream-info ( -- stream-info )
|
||||
16 flac-read-uint
|
||||
16 flac-read-uint
|
||||
24 flac-read-uint
|
||||
24 flac-read-uint
|
||||
20 flac-read-uint
|
||||
3 flac-read-uint 1 +
|
||||
5 flac-read-uint 1 +
|
||||
36 flac-read-uint
|
||||
128 flac-read-uint 16 >be bytes>hex-string
|
||||
stream-info boa ;
|
||||
|
||||
: read-metadata-block-seek-table ( length -- seek-table )
|
||||
18 / <iota> [
|
||||
drop
|
||||
64 flac-read-uint
|
||||
64 flac-read-uint
|
||||
16 flac-read-uint
|
||||
seek-point boa
|
||||
] map
|
||||
seek-table boa ;
|
||||
|
||||
|
||||
: read-metadata-block-vorbis-comment ( length -- vorbis-comment )
|
||||
! vorbis comments are in little endian...
|
||||
drop
|
||||
32 flac-read-uint 4 >le be> dup 8 * flac-read-uint swap >n-byte-array utf8 decode
|
||||
32 flac-read-uint 4 >le be> <iota>
|
||||
[
|
||||
drop
|
||||
32 flac-read-uint 4 >le be> dup 8 * flac-read-uint swap >n-byte-array utf8 decode
|
||||
"=" split
|
||||
] map
|
||||
>alist vorbis-comment boa ;
|
||||
|
||||
: encode-vorbis-string ( str -- byte-array )
|
||||
dup binary [ length 4 >le io:write utf8 encode io:write ] with-byte-writer ;
|
||||
|
||||
: encode-vorbis-comments ( assoc -- byte-array )
|
||||
dup binary [
|
||||
length 4 >le io:write
|
||||
[ 2array "=" join encode-vorbis-string io:write ] assoc-each
|
||||
] with-byte-writer ;
|
||||
|
||||
: encode-vorbis-comment ( vorbis-comment -- byte-array )
|
||||
binary [
|
||||
[ vendor-string>> encode-vorbis-string io:write ]
|
||||
[ comments>> encode-vorbis-comments io:write ] bi
|
||||
] with-byte-writer ;
|
||||
|
||||
: encode-padding ( padding -- byte-array )
|
||||
length>> <byte-array> ;
|
||||
|
||||
: read-metadata-block-padding ( length -- padding )
|
||||
dup 8 * flac-read-uint drop flac-padding boa ;
|
||||
|
||||
: read-metadata-block-application ( length -- application )
|
||||
8 * flac-read-uint drop application new ;
|
||||
|
||||
: read-metadata-block-cuesheet ( length -- cuesheet )
|
||||
dup [ 8 * flac-read-uint ] dip >be
|
||||
binary
|
||||
[
|
||||
128 io:read ascii decode
|
||||
8 io:read be>
|
||||
259 io:read drop f
|
||||
1 io:read be> <iota> [
|
||||
drop
|
||||
8 io:read be>
|
||||
1 io:read be>
|
||||
12 io:read ascii decode
|
||||
21 io:read drop 0 <cuesheet-track-type> t
|
||||
1 io:read <iota> [
|
||||
drop
|
||||
8 io:read be>
|
||||
1 io:read be>
|
||||
3 io:read be> = 0 [ cuesheet-index-reserved-must-be-zero ] unless
|
||||
cuesheet-index boa
|
||||
] map
|
||||
cuesheet-track boa
|
||||
] map
|
||||
] with-byte-reader cuesheet boa ;
|
||||
|
||||
: read-metadata-block-picture ( length -- picture )
|
||||
drop
|
||||
32 flac-read-uint <picture-type>
|
||||
32 flac-read-uint dup 8 * flac-read-uint swap >n-byte-array utf8 decode
|
||||
32 flac-read-uint dup 8 * flac-read-uint swap >n-byte-array utf8 decode
|
||||
32 flac-read-uint
|
||||
32 flac-read-uint
|
||||
32 flac-read-uint
|
||||
32 flac-read-uint
|
||||
32 flac-read-uint dup 8 * flac-read-uint swap >n-byte-array
|
||||
picture boa ;
|
||||
|
||||
: read-metadata-block ( metadata length type -- metadata )
|
||||
[
|
||||
{
|
||||
{ metadata-stream-info [ drop read-metadata-block-stream-info >>stream-info ] }
|
||||
{ metadata-padding [ read-metadata-block-padding >>padding ] }
|
||||
{ metadata-application [ read-metadata-block-application >>application ] }
|
||||
{ metadata-seek-table [ read-metadata-block-seek-table >>seek-table ] }
|
||||
{ metadata-vorbis-comment [ read-metadata-block-vorbis-comment >>vorbis-comment ] }
|
||||
{ metadata-cuesheet [ read-metadata-block-cuesheet >>cuesheet ] }
|
||||
{ metadata-picture [ read-metadata-block-picture >>picture ] }
|
||||
} case
|
||||
] with-big-endian ;
|
||||
|
||||
: read/assert-flac-magic ( -- )
|
||||
32 flac-read-uint FLAC-MAGIC = [ not-a-flac-file ] unless ;
|
||||
|
||||
: read-flac-metadata ( -- metadata )
|
||||
read/assert-flac-magic
|
||||
metadata new
|
||||
[
|
||||
read-metadata-block-header
|
||||
[ length>> ] [ type>> ] [ last?>> not ] tri
|
||||
[ read-metadata-block ] dip
|
||||
] loop ;
|
||||
|
||||
: <flac-metadata> ( filename -- metadata )
|
||||
[ read-flac-metadata ] with-flac-file-reader ;
|
||||
Loading…
Reference in New Issue