X-Git-Url: https://scm.cri.ensmp.fr/git/Faustine.git/blobdiff_plain/992d59159547267e1491fcd1c5123765b4c452b8..63cf293f572ae7d5c1c83b9dffb31e7d774f8854:/interpretor/lib/src/libsndfile-1.0.25/programs/common.c diff --git a/interpretor/lib/src/libsndfile-1.0.25/programs/common.c b/interpretor/lib/src/libsndfile-1.0.25/programs/common.c new file mode 100644 index 0000000..41b8e6e --- /dev/null +++ b/interpretor/lib/src/libsndfile-1.0.25/programs/common.c @@ -0,0 +1,379 @@ +/* +** Copyright (C) 1999-2011 Erik de Castro Lopo +** Copyright (C) 2008 George Blood Audio +** +** All rights reserved. +** +** Redistribution and use in source and binary forms, with or without +** modification, are permitted provided that the following conditions are +** met: +** +** * Redistributions of source code must retain the above copyright +** notice, this list of conditions and the following disclaimer. +** * Redistributions in binary form must reproduce the above copyright +** notice, this list of conditions and the following disclaimer in +** the documentation and/or other materials provided with the +** distribution. +** * Neither the author nor the names of any contributors may be used +** to endorse or promote products derived from this software without +** specific prior written permission. +** +** THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS +** "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED +** TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR +** PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR +** CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, +** EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, +** PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; +** OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, +** WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR +** OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF +** ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. +*/ + +#include +#include +#include +#include +#include + +#include + +#include "common.h" + +#define BUFFER_LEN 4096 + +#define MIN(x,y) ((x) < (y) ? (x) : (y)) + +void +sfe_copy_data_fp (SNDFILE *outfile, SNDFILE *infile, int channels) +{ static double data [BUFFER_LEN], max ; + int frames, readcount, k ; + + frames = BUFFER_LEN / channels ; + readcount = frames ; + + sf_command (infile, SFC_CALC_SIGNAL_MAX, &max, sizeof (max)) ; + + if (max < 1.0) + { while (readcount > 0) + { readcount = sf_readf_double (infile, data, frames) ; + sf_writef_double (outfile, data, readcount) ; + } ; + } + else + { sf_command (infile, SFC_SET_NORM_DOUBLE, NULL, SF_FALSE) ; + + while (readcount > 0) + { readcount = sf_readf_double (infile, data, frames) ; + for (k = 0 ; k < readcount * channels ; k++) + data [k] /= max ; + sf_writef_double (outfile, data, readcount) ; + } ; + } ; + + return ; +} /* sfe_copy_data_fp */ + +void +sfe_copy_data_int (SNDFILE *outfile, SNDFILE *infile, int channels) +{ static int data [BUFFER_LEN] ; + int frames, readcount ; + + frames = BUFFER_LEN / channels ; + readcount = frames ; + + while (readcount > 0) + { readcount = sf_readf_int (infile, data, frames) ; + sf_writef_int (outfile, data, readcount) ; + } ; + + return ; +} /* sfe_copy_data_int */ + +/*============================================================================== +*/ + +static int +merge_broadcast_info (SNDFILE * infile, SNDFILE * outfile, int format, const METADATA_INFO * info) +{ SF_BROADCAST_INFO_2K binfo ; + int infileminor ; + + memset (&binfo, 0, sizeof (binfo)) ; + + if ((SF_FORMAT_TYPEMASK & format) != SF_FORMAT_WAV) + { printf ("Error : This is not a WAV file and hence broadcast info cannot be added to it.\n\n") ; + return 1 ; + } ; + + infileminor = SF_FORMAT_SUBMASK & format ; + + switch (infileminor) + { case SF_FORMAT_PCM_16 : + case SF_FORMAT_PCM_24 : + case SF_FORMAT_PCM_32 : + break ; + + default : + printf ( + "Warning : The EBU Technical Recommendation R68-2000 states that the only\n" + " allowed encodings are Linear PCM and MPEG3. This file is not in\n" + " the right format.\n\n" + ) ; + break ; + } ; + + if (sf_command (infile, SFC_GET_BROADCAST_INFO, &binfo, sizeof (binfo)) == 0) + { if (infile == outfile) + { printf ( + "Error : Attempting in-place broadcast info update, but file does not\n" + " have a 'bext' chunk to modify. The solution is to specify both\n" + " input and output files on the command line.\n\n" + ) ; + return 1 ; + } ; + } ; + +#define REPLACE_IF_NEW(x) \ + if (info->x != NULL) \ + { memset (binfo.x, 0, sizeof (binfo.x)) ; \ + memcpy (binfo.x, info->x, MIN (strlen (info->x), sizeof (binfo.x))) ; \ + } ; + + REPLACE_IF_NEW (description) ; + REPLACE_IF_NEW (originator) ; + REPLACE_IF_NEW (originator_reference) ; + REPLACE_IF_NEW (origination_date) ; + REPLACE_IF_NEW (origination_time) ; + REPLACE_IF_NEW (umid) ; + + /* Special case for Time Ref. */ + if (info->time_ref != NULL) + { uint64_t ts = atoll (info->time_ref) ; + + binfo.time_reference_high = (ts >> 32) ; + binfo.time_reference_low = (ts & 0xffffffff) ; + } ; + + /* Special case for coding_history because we may want to append. */ + if (info->coding_history != NULL) + { if (info->coding_hist_append) + { int slen = strlen (binfo.coding_history) ; + + while (slen > 1 && isspace (binfo.coding_history [slen - 1])) + slen -- ; + + memcpy (binfo.coding_history + slen, info->coding_history, sizeof (binfo.coding_history) - slen) ; + } + else + { size_t slen = MIN (strlen (info->coding_history), sizeof (binfo.coding_history)) ; + + memset (binfo.coding_history, 0, sizeof (binfo.coding_history)) ; + memcpy (binfo.coding_history, info->coding_history, slen) ; + binfo.coding_history_size = slen ; + } ; + } ; + + if (sf_command (outfile, SFC_SET_BROADCAST_INFO, &binfo, sizeof (binfo)) == 0) + { printf ("Error : Setting of broadcast info chunks failed.\n\n") ; + return 1 ; + } ; + + return 0 ; +} /* merge_broadcast_info*/ + +static void +update_strings (SNDFILE * outfile, const METADATA_INFO * info) +{ + if (info->title != NULL) + sf_set_string (outfile, SF_STR_TITLE, info->title) ; + + if (info->copyright != NULL) + sf_set_string (outfile, SF_STR_COPYRIGHT, info->copyright) ; + + if (info->artist != NULL) + sf_set_string (outfile, SF_STR_ARTIST, info->artist) ; + + if (info->comment != NULL) + sf_set_string (outfile, SF_STR_COMMENT, info->comment) ; + + if (info->date != NULL) + sf_set_string (outfile, SF_STR_DATE, info->date) ; + + if (info->album != NULL) + sf_set_string (outfile, SF_STR_ALBUM, info->album) ; + + if (info->license != NULL) + sf_set_string (outfile, SF_STR_LICENSE, info->license) ; + +} /* update_strings */ + + + +void +sfe_apply_metadata_changes (const char * filenames [2], const METADATA_INFO * info) +{ SNDFILE *infile = NULL, *outfile = NULL ; + SF_INFO sfinfo ; + METADATA_INFO tmpinfo ; + int error_code = 0 ; + + memset (&sfinfo, 0, sizeof (sfinfo)) ; + memset (&tmpinfo, 0, sizeof (tmpinfo)) ; + + if (filenames [1] == NULL) + infile = outfile = sf_open (filenames [0], SFM_RDWR, &sfinfo) ; + else + { infile = sf_open (filenames [0], SFM_READ, &sfinfo) ; + + /* Output must be WAV. */ + sfinfo.format = SF_FORMAT_WAV | (SF_FORMAT_SUBMASK & sfinfo.format) ; + outfile = sf_open (filenames [1], SFM_WRITE, &sfinfo) ; + } ; + + if (infile == NULL) + { printf ("Error : Not able to open input file '%s' : %s\n", filenames [0], sf_strerror (infile)) ; + error_code = 1 ; + goto cleanup_exit ; + } ; + + if (outfile == NULL) + { printf ("Error : Not able to open output file '%s' : %s\n", filenames [1], sf_strerror (outfile)) ; + error_code = 1 ; + goto cleanup_exit ; + } ; + + if (info->has_bext_fields && merge_broadcast_info (infile, outfile, sfinfo.format, info)) + { error_code = 1 ; + goto cleanup_exit ; + } ; + + if (infile != outfile) + { int infileminor = SF_FORMAT_SUBMASK & sfinfo.format ; + + /* If the input file is not the same as the output file, copy the data. */ + if ((infileminor == SF_FORMAT_DOUBLE) || (infileminor == SF_FORMAT_FLOAT)) + sfe_copy_data_fp (outfile, infile, sfinfo.channels) ; + else + sfe_copy_data_int (outfile, infile, sfinfo.channels) ; + } ; + + update_strings (outfile, info) ; + +cleanup_exit : + + if (outfile != NULL && outfile != infile) + sf_close (outfile) ; + + if (infile != NULL) + sf_close (infile) ; + + if (error_code) + exit (error_code) ; + + return ; +} /* sfe_apply_metadata_changes */ + +/*============================================================================== +*/ + +typedef struct +{ const char *ext ; + int len ; + int format ; +} OUTPUT_FORMAT_MAP ; + +static OUTPUT_FORMAT_MAP format_map [] = +{ + { "aif", 3, SF_FORMAT_AIFF }, + { "wav", 0, SF_FORMAT_WAV }, + { "au", 0, SF_FORMAT_AU }, + { "caf", 0, SF_FORMAT_CAF }, + { "flac", 0, SF_FORMAT_FLAC }, + { "snd", 0, SF_FORMAT_AU }, + { "svx", 0, SF_FORMAT_SVX }, + { "paf", 0, SF_ENDIAN_BIG | SF_FORMAT_PAF }, + { "fap", 0, SF_ENDIAN_LITTLE | SF_FORMAT_PAF }, + { "gsm", 0, SF_FORMAT_RAW }, + { "nist", 0, SF_FORMAT_NIST }, + { "htk", 0, SF_FORMAT_HTK }, + { "ircam", 0, SF_FORMAT_IRCAM }, + { "sf", 0, SF_FORMAT_IRCAM }, + { "voc", 0, SF_FORMAT_VOC }, + { "w64", 0, SF_FORMAT_W64 }, + { "raw", 0, SF_FORMAT_RAW }, + { "mat4", 0, SF_FORMAT_MAT4 }, + { "mat5", 0, SF_FORMAT_MAT5 }, + { "mat", 0, SF_FORMAT_MAT4 }, + { "pvf", 0, SF_FORMAT_PVF }, + { "sds", 0, SF_FORMAT_SDS }, + { "sd2", 0, SF_FORMAT_SD2 }, + { "vox", 0, SF_FORMAT_RAW }, + { "xi", 0, SF_FORMAT_XI }, + { "wve", 0, SF_FORMAT_WVE }, + { "oga", 0, SF_FORMAT_OGG }, + { "mpc", 0, SF_FORMAT_MPC2K }, + { "rf64", 0, SF_FORMAT_RF64 }, +} ; /* format_map */ + +int +sfe_file_type_of_ext (const char *str, int format) +{ char buffer [16], *cptr ; + int k ; + + format &= SF_FORMAT_SUBMASK ; + + if ((cptr = strrchr (str, '.')) == NULL) + return 0 ; + + strncpy (buffer, cptr + 1, 15) ; + buffer [15] = 0 ; + + for (k = 0 ; buffer [k] ; k++) + buffer [k] = tolower ((buffer [k])) ; + + if (strcmp (buffer, "gsm") == 0) + return SF_FORMAT_RAW | SF_FORMAT_GSM610 ; + + if (strcmp (buffer, "vox") == 0) + return SF_FORMAT_RAW | SF_FORMAT_VOX_ADPCM ; + + for (k = 0 ; k < (int) (sizeof (format_map) / sizeof (format_map [0])) ; k++) + { if (format_map [k].len > 0 && strncmp (buffer, format_map [k].ext, format_map [k].len) == 0) + return format_map [k].format | format ; + else if (strcmp (buffer, format_map [k].ext) == 0) + return format_map [k].format | format ; + } ; + + /* Default if all the above fails. */ + return (SF_FORMAT_WAV | SF_FORMAT_PCM_24) ; +} /* sfe_file_type_of_ext */ + +void +sfe_dump_format_map (void) +{ SF_FORMAT_INFO info ; + int k ; + + for (k = 0 ; k < ARRAY_LEN (format_map) ; k++) + { info.format = format_map [k].format ; + sf_command (NULL, SFC_GET_FORMAT_INFO, &info, sizeof (info)) ; + printf (" %-10s : %s\n", format_map [k].ext, info.name == NULL ? "????" : info.name) ; + } ; + +} /* sfe_dump_format_map */ + +const char * +program_name (const char * argv0) +{ const char * tmp ; + + tmp = strrchr (argv0, '/') ; + argv0 = tmp ? tmp + 1 : argv0 ; + + tmp = strrchr (argv0, '/') ; + argv0 = tmp ? tmp + 1 : argv0 ; + + /* Remove leading libtool name mangling. */ + if (strstr (argv0, "lt-") == argv0) + return argv0 + 3 ; + + return argv0 ; +} /* program_name */