Chris@40: /* Chris@40: ** Copyright (C) 1999-2014 Erik de Castro Lopo Chris@40: ** Copyright (C) 2008 George Blood Audio Chris@40: ** Chris@40: ** All rights reserved. Chris@40: ** Chris@40: ** Redistribution and use in source and binary forms, with or without Chris@40: ** modification, are permitted provided that the following conditions are Chris@40: ** met: Chris@40: ** Chris@40: ** * Redistributions of source code must retain the above copyright Chris@40: ** notice, this list of conditions and the following disclaimer. Chris@40: ** * Redistributions in binary form must reproduce the above copyright Chris@40: ** notice, this list of conditions and the following disclaimer in Chris@40: ** the documentation and/or other materials provided with the Chris@40: ** distribution. Chris@40: ** * Neither the author nor the names of any contributors may be used Chris@40: ** to endorse or promote products derived from this software without Chris@40: ** specific prior written permission. Chris@40: ** Chris@40: ** THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS Chris@40: ** "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED Chris@40: ** TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR Chris@40: ** PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR Chris@40: ** CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, Chris@40: ** EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, Chris@40: ** PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; Chris@40: ** OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, Chris@40: ** WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR Chris@40: ** OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF Chris@40: ** ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. Chris@40: */ Chris@40: Chris@40: #include Chris@40: #include Chris@40: #include Chris@40: #include Chris@40: #include Chris@40: Chris@40: #include Chris@40: Chris@40: #include "common.h" Chris@40: Chris@40: #define BUFFER_LEN 4096 Chris@40: Chris@40: #define MIN(x, y) ((x) < (y) ? (x) : (y)) Chris@40: Chris@40: void Chris@40: sfe_copy_data_fp (SNDFILE *outfile, SNDFILE *infile, int channels, int normalize) Chris@40: { static double data [BUFFER_LEN], max ; Chris@40: int frames, readcount, k ; Chris@40: Chris@40: frames = BUFFER_LEN / channels ; Chris@40: readcount = frames ; Chris@40: Chris@40: sf_command (infile, SFC_CALC_SIGNAL_MAX, &max, sizeof (max)) ; Chris@40: Chris@40: if (!normalize && max < 1.0) Chris@40: { while (readcount > 0) Chris@40: { readcount = sf_readf_double (infile, data, frames) ; Chris@40: sf_writef_double (outfile, data, readcount) ; Chris@40: } ; Chris@40: } Chris@40: else Chris@40: { sf_command (infile, SFC_SET_NORM_DOUBLE, NULL, SF_FALSE) ; Chris@40: Chris@40: while (readcount > 0) Chris@40: { readcount = sf_readf_double (infile, data, frames) ; Chris@40: for (k = 0 ; k < readcount * channels ; k++) Chris@40: data [k] /= max ; Chris@40: sf_writef_double (outfile, data, readcount) ; Chris@40: } ; Chris@40: } ; Chris@40: Chris@40: return ; Chris@40: } /* sfe_copy_data_fp */ Chris@40: Chris@40: void Chris@40: sfe_copy_data_int (SNDFILE *outfile, SNDFILE *infile, int channels) Chris@40: { static int data [BUFFER_LEN] ; Chris@40: int frames, readcount ; Chris@40: Chris@40: frames = BUFFER_LEN / channels ; Chris@40: readcount = frames ; Chris@40: Chris@40: while (readcount > 0) Chris@40: { readcount = sf_readf_int (infile, data, frames) ; Chris@40: sf_writef_int (outfile, data, readcount) ; Chris@40: } ; Chris@40: Chris@40: return ; Chris@40: } /* sfe_copy_data_int */ Chris@40: Chris@40: /*============================================================================== Chris@40: */ Chris@40: Chris@40: static int Chris@40: merge_broadcast_info (SNDFILE * infile, SNDFILE * outfile, int format, const METADATA_INFO * info) Chris@40: { SF_BROADCAST_INFO_2K binfo ; Chris@40: int infileminor ; Chris@40: Chris@40: memset (&binfo, 0, sizeof (binfo)) ; Chris@40: Chris@40: if ((SF_FORMAT_TYPEMASK & format) != SF_FORMAT_WAV) Chris@40: { printf ("Error : This is not a WAV file and hence broadcast info cannot be added to it.\n\n") ; Chris@40: return 1 ; Chris@40: } ; Chris@40: Chris@40: infileminor = SF_FORMAT_SUBMASK & format ; Chris@40: Chris@40: switch (infileminor) Chris@40: { case SF_FORMAT_PCM_16 : Chris@40: case SF_FORMAT_PCM_24 : Chris@40: case SF_FORMAT_PCM_32 : Chris@40: break ; Chris@40: Chris@40: default : Chris@40: printf ( Chris@40: "Warning : The EBU Technical Recommendation R68-2000 states that the only\n" Chris@40: " allowed encodings are Linear PCM and MPEG3. This file is not in\n" Chris@40: " the right format.\n\n" Chris@40: ) ; Chris@40: break ; Chris@40: } ; Chris@40: Chris@40: if (sf_command (infile, SFC_GET_BROADCAST_INFO, &binfo, sizeof (binfo)) == 0) Chris@40: { if (infile == outfile) Chris@40: { printf ( Chris@40: "Error : Attempting in-place broadcast info update, but file does not\n" Chris@40: " have a 'bext' chunk to modify. The solution is to specify both\n" Chris@40: " input and output files on the command line.\n\n" Chris@40: ) ; Chris@40: return 1 ; Chris@40: } ; Chris@40: } ; Chris@40: Chris@40: #define REPLACE_IF_NEW(x) \ Chris@40: if (info->x != NULL) \ Chris@40: { memset (binfo.x, 0, sizeof (binfo.x)) ; \ Chris@40: memcpy (binfo.x, info->x, MIN (strlen (info->x), sizeof (binfo.x))) ; \ Chris@40: } ; Chris@40: Chris@40: REPLACE_IF_NEW (description) ; Chris@40: REPLACE_IF_NEW (originator) ; Chris@40: REPLACE_IF_NEW (originator_reference) ; Chris@40: REPLACE_IF_NEW (origination_date) ; Chris@40: REPLACE_IF_NEW (origination_time) ; Chris@40: REPLACE_IF_NEW (umid) ; Chris@40: Chris@40: /* Special case for Time Ref. */ Chris@40: if (info->time_ref != NULL) Chris@40: { uint64_t ts = atoll (info->time_ref) ; Chris@40: Chris@40: binfo.time_reference_high = (ts >> 32) ; Chris@40: binfo.time_reference_low = (ts & 0xffffffff) ; Chris@40: } ; Chris@40: Chris@40: /* Special case for coding_history because we may want to append. */ Chris@40: if (info->coding_history != NULL) Chris@40: { if (info->coding_hist_append) Chris@40: { int slen = strlen (binfo.coding_history) ; Chris@40: Chris@40: while (slen > 1 && isspace (binfo.coding_history [slen - 1])) Chris@40: slen -- ; Chris@40: Chris@40: memcpy (binfo.coding_history + slen, info->coding_history, sizeof (binfo.coding_history) - slen) ; Chris@40: } Chris@40: else Chris@40: { size_t slen = MIN (strlen (info->coding_history), sizeof (binfo.coding_history)) ; Chris@40: Chris@40: memset (binfo.coding_history, 0, sizeof (binfo.coding_history)) ; Chris@40: memcpy (binfo.coding_history, info->coding_history, slen) ; Chris@40: binfo.coding_history_size = slen ; Chris@40: } ; Chris@40: } ; Chris@40: Chris@40: if (sf_command (outfile, SFC_SET_BROADCAST_INFO, &binfo, sizeof (binfo)) == 0) Chris@40: { printf ("Error : Setting of broadcast info chunks failed.\n\n") ; Chris@40: return 1 ; Chris@40: } ; Chris@40: Chris@40: return 0 ; Chris@40: } /* merge_broadcast_info*/ Chris@40: Chris@40: static void Chris@40: update_strings (SNDFILE * outfile, const METADATA_INFO * info) Chris@40: { Chris@40: if (info->title != NULL) Chris@40: sf_set_string (outfile, SF_STR_TITLE, info->title) ; Chris@40: Chris@40: if (info->copyright != NULL) Chris@40: sf_set_string (outfile, SF_STR_COPYRIGHT, info->copyright) ; Chris@40: Chris@40: if (info->artist != NULL) Chris@40: sf_set_string (outfile, SF_STR_ARTIST, info->artist) ; Chris@40: Chris@40: if (info->comment != NULL) Chris@40: sf_set_string (outfile, SF_STR_COMMENT, info->comment) ; Chris@40: Chris@40: if (info->date != NULL) Chris@40: sf_set_string (outfile, SF_STR_DATE, info->date) ; Chris@40: Chris@40: if (info->album != NULL) Chris@40: sf_set_string (outfile, SF_STR_ALBUM, info->album) ; Chris@40: Chris@40: if (info->license != NULL) Chris@40: sf_set_string (outfile, SF_STR_LICENSE, info->license) ; Chris@40: Chris@40: } /* update_strings */ Chris@40: Chris@40: Chris@40: Chris@40: void Chris@40: sfe_apply_metadata_changes (const char * filenames [2], const METADATA_INFO * info) Chris@40: { SNDFILE *infile = NULL, *outfile = NULL ; Chris@40: SF_INFO sfinfo ; Chris@40: METADATA_INFO tmpinfo ; Chris@40: int error_code = 0 ; Chris@40: Chris@40: memset (&sfinfo, 0, sizeof (sfinfo)) ; Chris@40: memset (&tmpinfo, 0, sizeof (tmpinfo)) ; Chris@40: Chris@40: if (filenames [1] == NULL) Chris@40: infile = outfile = sf_open (filenames [0], SFM_RDWR, &sfinfo) ; Chris@40: else Chris@40: { infile = sf_open (filenames [0], SFM_READ, &sfinfo) ; Chris@40: Chris@40: /* Output must be WAV. */ Chris@40: sfinfo.format = SF_FORMAT_WAV | (SF_FORMAT_SUBMASK & sfinfo.format) ; Chris@40: outfile = sf_open (filenames [1], SFM_WRITE, &sfinfo) ; Chris@40: } ; Chris@40: Chris@40: if (infile == NULL) Chris@40: { printf ("Error : Not able to open input file '%s' : %s\n", filenames [0], sf_strerror (infile)) ; Chris@40: error_code = 1 ; Chris@40: goto cleanup_exit ; Chris@40: } ; Chris@40: Chris@40: if (outfile == NULL) Chris@40: { printf ("Error : Not able to open output file '%s' : %s\n", filenames [1], sf_strerror (outfile)) ; Chris@40: error_code = 1 ; Chris@40: goto cleanup_exit ; Chris@40: } ; Chris@40: Chris@40: if (info->has_bext_fields && merge_broadcast_info (infile, outfile, sfinfo.format, info)) Chris@40: { error_code = 1 ; Chris@40: goto cleanup_exit ; Chris@40: } ; Chris@40: Chris@40: if (infile != outfile) Chris@40: { int infileminor = SF_FORMAT_SUBMASK & sfinfo.format ; Chris@40: Chris@40: /* If the input file is not the same as the output file, copy the data. */ Chris@40: if ((infileminor == SF_FORMAT_DOUBLE) || (infileminor == SF_FORMAT_FLOAT)) Chris@40: sfe_copy_data_fp (outfile, infile, sfinfo.channels, SF_FALSE) ; Chris@40: else Chris@40: sfe_copy_data_int (outfile, infile, sfinfo.channels) ; Chris@40: } ; Chris@40: Chris@40: update_strings (outfile, info) ; Chris@40: Chris@40: cleanup_exit : Chris@40: Chris@40: if (outfile != NULL && outfile != infile) Chris@40: sf_close (outfile) ; Chris@40: Chris@40: if (infile != NULL) Chris@40: sf_close (infile) ; Chris@40: Chris@40: if (error_code) Chris@40: exit (error_code) ; Chris@40: Chris@40: return ; Chris@40: } /* sfe_apply_metadata_changes */ Chris@40: Chris@40: /*============================================================================== Chris@40: */ Chris@40: Chris@40: typedef struct Chris@40: { const char *ext ; Chris@40: int len ; Chris@40: int format ; Chris@40: } OUTPUT_FORMAT_MAP ; Chris@40: Chris@40: static OUTPUT_FORMAT_MAP format_map [] = Chris@40: { Chris@40: { "wav", 0, SF_FORMAT_WAV }, Chris@40: { "aif", 3, SF_FORMAT_AIFF }, Chris@40: { "au", 0, SF_FORMAT_AU }, Chris@40: { "snd", 0, SF_FORMAT_AU }, Chris@40: { "raw", 0, SF_FORMAT_RAW }, Chris@40: { "gsm", 0, SF_FORMAT_RAW }, Chris@40: { "vox", 0, SF_FORMAT_RAW }, Chris@40: { "paf", 0, SF_FORMAT_PAF | SF_ENDIAN_BIG }, Chris@40: { "fap", 0, SF_FORMAT_PAF | SF_ENDIAN_LITTLE }, Chris@40: { "svx", 0, SF_FORMAT_SVX }, Chris@40: { "nist", 0, SF_FORMAT_NIST }, Chris@40: { "sph", 0, SF_FORMAT_NIST }, Chris@40: { "voc", 0, SF_FORMAT_VOC }, Chris@40: { "ircam", 0, SF_FORMAT_IRCAM }, Chris@40: { "sf", 0, SF_FORMAT_IRCAM }, Chris@40: { "w64", 0, SF_FORMAT_W64 }, Chris@40: { "mat", 0, SF_FORMAT_MAT4 }, Chris@40: { "mat4", 0, SF_FORMAT_MAT4 }, Chris@40: { "mat5", 0, SF_FORMAT_MAT5 }, Chris@40: { "pvf", 0, SF_FORMAT_PVF }, Chris@40: { "xi", 0, SF_FORMAT_XI }, Chris@40: { "htk", 0, SF_FORMAT_HTK }, Chris@40: { "sds", 0, SF_FORMAT_SDS }, Chris@40: { "avr", 0, SF_FORMAT_AVR }, Chris@40: { "wavex", 0, SF_FORMAT_WAVEX }, Chris@40: { "sd2", 0, SF_FORMAT_SD2 }, Chris@40: { "flac", 0, SF_FORMAT_FLAC }, Chris@40: { "caf", 0, SF_FORMAT_CAF }, Chris@40: { "wve", 0, SF_FORMAT_WVE }, Chris@40: { "prc", 0, SF_FORMAT_WVE }, Chris@40: { "ogg", 0, SF_FORMAT_OGG }, Chris@40: { "oga", 0, SF_FORMAT_OGG }, Chris@40: { "mpc", 0, SF_FORMAT_MPC2K }, Chris@40: { "rf64", 0, SF_FORMAT_RF64 }, Chris@40: } ; /* format_map */ Chris@40: Chris@40: int Chris@40: sfe_file_type_of_ext (const char *str, int format) Chris@40: { char buffer [16], *cptr ; Chris@40: int k ; Chris@40: Chris@40: format &= SF_FORMAT_SUBMASK ; Chris@40: Chris@40: if ((cptr = strrchr (str, '.')) == NULL) Chris@40: return 0 ; Chris@40: Chris@40: strncpy (buffer, cptr + 1, 15) ; Chris@40: buffer [15] = 0 ; Chris@40: Chris@40: for (k = 0 ; buffer [k] ; k++) Chris@40: buffer [k] = tolower ((buffer [k])) ; Chris@40: Chris@40: if (strcmp (buffer, "gsm") == 0) Chris@40: return SF_FORMAT_RAW | SF_FORMAT_GSM610 ; Chris@40: Chris@40: if (strcmp (buffer, "vox") == 0) Chris@40: return SF_FORMAT_RAW | SF_FORMAT_VOX_ADPCM ; Chris@40: Chris@40: for (k = 0 ; k < (int) (sizeof (format_map) / sizeof (format_map [0])) ; k++) Chris@40: { if (format_map [k].len > 0 && strncmp (buffer, format_map [k].ext, format_map [k].len) == 0) Chris@40: return format_map [k].format | format ; Chris@40: else if (strcmp (buffer, format_map [k].ext) == 0) Chris@40: return format_map [k].format | format ; Chris@40: } ; Chris@40: Chris@40: /* Default if all the above fails. */ Chris@40: return (SF_FORMAT_WAV | SF_FORMAT_PCM_24) ; Chris@40: } /* sfe_file_type_of_ext */ Chris@40: Chris@40: void Chris@40: sfe_dump_format_map (void) Chris@40: { SF_FORMAT_INFO info ; Chris@40: int k ; Chris@40: Chris@40: for (k = 0 ; k < ARRAY_LEN (format_map) ; k++) Chris@40: { info.format = format_map [k].format ; Chris@40: sf_command (NULL, SFC_GET_FORMAT_INFO, &info, sizeof (info)) ; Chris@40: printf (" %-10s : %s\n", format_map [k].ext, info.name == NULL ? "????" : info.name) ; Chris@40: } ; Chris@40: Chris@40: } /* sfe_dump_format_map */ Chris@40: Chris@40: const char * Chris@40: program_name (const char * argv0) Chris@40: { const char * tmp ; Chris@40: Chris@40: tmp = strrchr (argv0, '/') ; Chris@40: argv0 = tmp ? tmp + 1 : argv0 ; Chris@40: Chris@40: /* Remove leading libtool name mangling. */ Chris@40: if (strstr (argv0, "lt-") == argv0) Chris@40: return argv0 + 3 ; Chris@40: Chris@40: return argv0 ; Chris@40: } /* program_name */ Chris@40: Chris@40: const char * Chris@40: sfe_endian_name (int format) Chris@40: { Chris@40: switch (format & SF_FORMAT_ENDMASK) Chris@40: { case SF_ENDIAN_FILE : return "file" ; Chris@40: case SF_ENDIAN_LITTLE : return "little" ; Chris@40: case SF_ENDIAN_BIG : return "big" ; Chris@40: case SF_ENDIAN_CPU : return "cpu" ; Chris@40: default : break ; Chris@40: } ; Chris@40: Chris@40: return "unknown" ; Chris@40: } /* sfe_endian_name */ Chris@40: Chris@40: const char * Chris@40: sfe_container_name (int format) Chris@40: { Chris@40: switch (format & SF_FORMAT_TYPEMASK) Chris@40: { case SF_FORMAT_WAV : return "WAV" ; Chris@40: case SF_FORMAT_AIFF : return "AIFF" ; Chris@40: case SF_FORMAT_AU : return "AU" ; Chris@40: case SF_FORMAT_RAW : return "RAW" ; Chris@40: case SF_FORMAT_PAF : return "PAF" ; Chris@40: case SF_FORMAT_SVX : return "SVX" ; Chris@40: case SF_FORMAT_NIST : return "NIST" ; Chris@40: case SF_FORMAT_VOC : return "VOC" ; Chris@40: case SF_FORMAT_IRCAM : return "IRCAM" ; Chris@40: case SF_FORMAT_W64 : return "W64" ; Chris@40: case SF_FORMAT_MAT4 : return "MAT4" ; Chris@40: case SF_FORMAT_MAT5 : return "MAT5" ; Chris@40: case SF_FORMAT_PVF : return "PVF" ; Chris@40: case SF_FORMAT_XI : return "XI" ; Chris@40: case SF_FORMAT_HTK : return "HTK" ; Chris@40: case SF_FORMAT_SDS : return "SDS" ; Chris@40: case SF_FORMAT_AVR : return "AVR" ; Chris@40: case SF_FORMAT_WAVEX : return "WAVEX" ; Chris@40: case SF_FORMAT_SD2 : return "SD2" ; Chris@40: case SF_FORMAT_FLAC : return "FLAC" ; Chris@40: case SF_FORMAT_CAF : return "CAF" ; Chris@40: case SF_FORMAT_WVE : return "WVE" ; Chris@40: case SF_FORMAT_OGG : return "OGG" ; Chris@40: case SF_FORMAT_MPC2K : return "MPC2K" ; Chris@40: case SF_FORMAT_RF64 : return "RF64" ; Chris@40: default : break ; Chris@40: } ; Chris@40: Chris@40: return "unknown" ; Chris@40: } /* sfe_container_name */ Chris@40: Chris@40: const char * Chris@40: sfe_codec_name (int format) Chris@40: { Chris@40: switch (format & SF_FORMAT_SUBMASK) Chris@40: { case SF_FORMAT_PCM_S8 : return "signed 8 bit PCM" ; Chris@40: case SF_FORMAT_PCM_16 : return "16 bit PCM" ; Chris@40: case SF_FORMAT_PCM_24 : return "24 bit PCM" ; Chris@40: case SF_FORMAT_PCM_32 : return "32 bit PCM" ; Chris@40: case SF_FORMAT_PCM_U8 : return "unsigned 8 bit PCM" ; Chris@40: case SF_FORMAT_FLOAT : return "32 bit float" ; Chris@40: case SF_FORMAT_DOUBLE : return "64 bit double" ; Chris@40: case SF_FORMAT_ULAW : return "u-law" ; Chris@40: case SF_FORMAT_ALAW : return "a-law" ; Chris@40: case SF_FORMAT_IMA_ADPCM : return "IMA ADPCM" ; Chris@40: case SF_FORMAT_MS_ADPCM : return "MS ADPCM" ; Chris@40: case SF_FORMAT_GSM610 : return "gsm610" ; Chris@40: case SF_FORMAT_VOX_ADPCM : return "Vox ADPCM" ; Chris@40: case SF_FORMAT_G721_32 : return "g721 32kbps" ; Chris@40: case SF_FORMAT_G723_24 : return "g723 24kbps" ; Chris@40: case SF_FORMAT_G723_40 : return "g723 40kbps" ; Chris@40: case SF_FORMAT_DWVW_12 : return "12 bit DWVW" ; Chris@40: case SF_FORMAT_DWVW_16 : return "16 bit DWVW" ; Chris@40: case SF_FORMAT_DWVW_24 : return "14 bit DWVW" ; Chris@40: case SF_FORMAT_DWVW_N : return "DWVW" ; Chris@40: case SF_FORMAT_DPCM_8 : return "8 bit DPCM" ; Chris@40: case SF_FORMAT_DPCM_16 : return "16 bit DPCM" ; Chris@40: case SF_FORMAT_VORBIS : return "Vorbis" ; Chris@40: case SF_FORMAT_ALAC_16 : return "16 bit ALAC" ; Chris@40: case SF_FORMAT_ALAC_20 : return "20 bit ALAC" ; Chris@40: case SF_FORMAT_ALAC_24 : return "24 bit ALAC" ; Chris@40: case SF_FORMAT_ALAC_32 : return "32 bit ALAC" ; Chris@40: default : break ; Chris@40: } ; Chris@40: return "unknown" ; Chris@40: } /* sfe_codec_name */ Chris@40: