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