interpreter/lib/src/libsndfile-1.0.25/programs/sndfile-deinterleave.c

   1 /*
   2 ** Copyright (C) 2009-2011 Erik de Castro Lopo <erikd@mega-nerd.com>
   3 **
   4 ** All rights reserved.
   5 **
   6 ** Redistribution and use in source and binary forms, with or without
   7 ** modification, are permitted provided that the following conditions are
   8 ** met:
   9 **
  10 **     * Redistributions of source code must retain the above copyright
  11 **       notice, this list of conditions and the following disclaimer.
  12 **     * Redistributions in binary form must reproduce the above copyright
  13 **       notice, this list of conditions and the following disclaimer in
  14 **       the documentation and/or other materials provided with the
  15 **       distribution.
  16 **     * Neither the author nor the names of any contributors may be used
  17 **       to endorse or promote products derived from this software without
  18 **       specific prior written permission.
  19 **
  20 ** THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
  21 ** "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
  22 ** TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  23 ** PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
  24 ** CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
  25 ** EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
  26 ** PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
  27 ** OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
  28 ** WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
  29 ** OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
  30 ** ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  31 */
  32
  33 #include <stdio.h>
  34 #include <stdlib.h>
  35 #include <string.h>
  36 #include <sndfile.h>
  37
  38 #include "common.h"
  39
  40 #define BUFFER_LEN      4096
  41 #define MAX_CHANNELS    16
  42
  43
  44 typedef struct
  45 {       SNDFILE * infile ;
  46         SNDFILE * outfile [MAX_CHANNELS] ;
  47
  48         union
  49         {       double  d [MAX_CHANNELS * BUFFER_LEN] ;
  50                 int             i [MAX_CHANNELS * BUFFER_LEN] ;
  51         } din ;
  52
  53         union
  54         {       double  d [BUFFER_LEN] ;
  55                 int             i [BUFFER_LEN] ;
  56         } dout ;
  57
  58         int channels ;
  59 } STATE ;
  60
  61 static void usage_exit (void) ;
  62
  63 static void deinterleave_int (STATE * state) ;
  64 static void deinterleave_double (STATE * state) ;
  65
  66 int
  67 main (int argc, char **argv)
  68 {       STATE state ;
  69         SF_INFO sfinfo ;
  70         char pathname [512], ext [32], *cptr ;
  71         int ch, double_split ;
  72
  73         if (argc != 2)
  74         {       if (argc != 1)
  75                         puts ("\nError : need a single input file.\n") ;
  76                 usage_exit () ;
  77                 } ;
  78
  79         memset (&state, 0, sizeof (state)) ;
  80         memset (&sfinfo, 0, sizeof (sfinfo)) ;
  81
  82         if ((state.infile = sf_open (argv [1], SFM_READ, &sfinfo)) == NULL)
  83         {       printf ("\nError : Not able to open input file '%s'\n%s\n", argv [1], sf_strerror (NULL)) ;
  84                 exit (1) ;
  85                 } ;
  86
  87         if (sfinfo.channels < 2)
  88         {       printf ("\nError : Input file '%s' only has one channel.\n", argv [1]) ;
  89                 exit (1) ;
  90                 } ;
  91
  92         state.channels = sfinfo.channels ;
  93         sfinfo.channels = 1 ;
  94
  95         snprintf (pathname, sizeof (pathname), "%s", argv [1]) ;
  96         if ((cptr = strrchr (pathname, '.')) == NULL)
  97                 ext [0] = 0 ;
  98         else
  99         {       snprintf (ext, sizeof (ext), "%s", cptr) ;
 100                 cptr [0] = 0 ;
 101                 } ;
 102
 103         printf ("Input file : %s\n", pathname) ;
 104         puts ("Output files :") ;
 105
 106         for (ch = 0 ; ch < state.channels ; ch++)
 107         {       char filename [520] ;
 108
 109                 snprintf (filename, sizeof (filename), "%s_%02d%s", pathname, ch, ext) ;
 110
 111                 if ((state.outfile [ch] = sf_open (filename, SFM_WRITE, &sfinfo)) == NULL)
 112                 {       printf ("Not able to open output file '%s'\n%s\n", filename, sf_strerror (NULL)) ;
 113                         exit (1) ;
 114                         } ;
 115
 116                 printf ("    %s\n", filename) ;
 117                 } ;
 118
 119         switch (sfinfo.format & SF_FORMAT_SUBMASK)
 120         {       case SF_FORMAT_FLOAT :
 121                 case SF_FORMAT_DOUBLE :
 122                 case SF_FORMAT_VORBIS :
 123                         double_split = 1 ;
 124                         break ;
 125
 126                 default :
 127                         double_split = 0 ;
 128                         break ;
 129                 } ;
 130
 131         if (double_split)
 132                 deinterleave_double (&state) ;
 133         else
 134                 deinterleave_int (&state) ;
 135
 136         sf_close (state.infile) ;
 137         for (ch = 0 ; ch < MAX_CHANNELS ; ch++)
 138                 if (state.outfile [ch] != NULL)
 139                         sf_close (state.outfile [ch]) ;
 140
 141         return 0 ;
 142 } /* main */
 143
 144 /*------------------------------------------------------------------------------
 145 */
 146
 147 static void
 148 usage_exit (void)
 149 {       puts ("\nUsage : sndfile-deinterleave <filename>\n") ;
 150         puts (
 151                 "Split a mutli-channel file into a set of mono files.\n"
 152                 "\n"
 153                 "If the input file is named 'a.wav', the output files will be named\n"
 154                 "a_00.wav, a_01.wav and so on.\n"
 155                 ) ;
 156         printf ("Using %s.\n\n", sf_version_string ()) ;
 157         exit (0) ;
 158 } /* usage_exit */
 159
 160 static void
 161 deinterleave_int (STATE * state)
 162 {       int read_len ;
 163         int ch, k ;
 164
 165         do
 166         {       read_len = sf_readf_int (state->infile, state->din.i, BUFFER_LEN) ;
 167
 168                 for (ch = 0 ; ch < state->channels ; ch ++)
 169                 {       for (k = 0 ; k < read_len ; k++)
 170                                 state->dout.i [k] = state->din.i [k * state->channels + ch] ;
 171                         sf_write_int (state->outfile [ch], state->dout.i, read_len) ;
 172                         } ;
 173                 }
 174         while (read_len > 0) ;
 175
 176 } /* deinterleave_int */
 177
 178 static void
 179 deinterleave_double (STATE * state)
 180 {       int read_len ;
 181         int ch, k ;
 182
 183         do
 184         {       read_len = sf_readf_double (state->infile, state->din.d, BUFFER_LEN) ;
 185
 186                 for (ch = 0 ; ch < state->channels ; ch ++)
 187                 {       for (k = 0 ; k < read_len ; k++)
 188                                 state->dout.d [k] = state->din.d [k * state->channels + ch] ;
 189                         sf_write_double (state->outfile [ch], state->dout.d, read_len) ;
 190                         } ;
 191                 }
 192         while (read_len > 0) ;
 193
 194 } /* deinterleave_double */