sox.c File Reference

#include "st.h"
#include <string.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <ctype.h>
#include <errno.h>
#include "machine.h"
#include "sox.h"
#include "sciprint.h"

Include dependency graph for sox.c:

Go to the source code of this file.

Defines
#define	Abs(x)   ( ( (x) >= 0) ? (x) : -( x) )
#define	Min(x, y)   ( ( (x) < (y)) ? (x) : (y) )
Functions
static void checkformat	__PARAMS ((ft_t ft))
static void cleanup	__PARAMS ((void))
static int filetype	__PARAMS ((int fd))
int C2F()	loadwave (char *filename, double *res, integer *size_res, integer flag, WavInfo *Wi, integer *ierr)
int C2F()	savewave (char *filename, double *res, integer *rate, integer *size_res, integer *nchannels, integer *ierr)
void	init (void)
int	filetype (int fd)
void	cleanup (void)
static void	checkformat (ft_t ft)
Variables
soundstream	informat
ft_t	ft

---

Define Documentation

#define Abs

(

x

)

( ( (x) >= 0) ? (x) : -( x) )

Definition at line 27 of file sox.c.

#define Min	(	x,
		y		)	( ( (x) < (y)) ? (x) : (y) )

Definition at line 28 of file sox.c.

---

Function Documentation

static int filetype __PARAMS

(

(int fd)

)

[static]

static void cleanup __PARAMS

(

(void)

)

[static]

static void checkformat __PARAMS

(

(ft_t ft)

)

[static]

static void checkformat

(

ft_t

ft

)

[static]

Definition at line 269 of file sox.c.

References signalinfo::channels, soundstream::filename, FLOATSCI, ft, soundstream::ierr, soundstream::info, signalinfo::rate, sciprint(), signalinfo::size, and signalinfo::style.

Referenced by loadwave().

{
  if (ft->info.rate == 0)
    {
      sciprint("Sampling rate for %s file was not given\r\n", ft->filename);
      ft->ierr=1;
      return;
    }
  if ((ft->info.rate < 100) || (ft->info.rate > 50000))
    {
      sciprint("Sampling rate %lu for %s file is bogus\r\n", 
           ft->info.rate, ft->filename);
      ft->ierr=1;
      return;
    }

  if (ft->info.size == -1)
    {
      sciprint("Data size was not given for %s file\r\n", ft->filename);
      ft->ierr=1;
      return;
    }
  if (ft->info.style == -1 && ft->info.size != FLOATSCI)
    {
      sciprint("Data style was not given for %s file\r\n", ft->filename);
      ft->ierr=1;
      return;
    }
  /* it's so common, might as well default */
  if (ft->info.channels == -1)
    ft->info.channels = 1;
}

Here is the call graph for this function:

Here is the caller graph for this function:

void cleanup

(

void

)

Definition at line 262 of file sox.c.

References soundstream::fp, and informat.

{
  if (informat.fp)
    fclose(informat.fp);
}

int filetype

(

int

fd

)

Definition at line 253 of file sox.c.

References stat.

Referenced by loadwave(), and savewave().

{
  struct stat st;
  fstat(fd, &st);
  return st.st_mode & S_IFMT;
}

Here is the caller graph for this function:

void init

(

void

)

Definition at line 232 of file sox.c.

References signalinfo::channels, soundstream::comment, soundstream::filename, soundstream::filetype, soundstream::fp, soundstream::info, informat, NULL, signalinfo::rate, signalinfo::size, signalinfo::style, and soundstream::swap.

{
  /* init files */
  informat.info.rate      = 0;
  informat.info.size      = -1;
  informat.info.style     = -1;
  informat.info.channels  = -1;
  informat.comment   = NULL;
  informat.swap      = 0;
  informat.filetype  = "wav";
  informat.fp        = stdin;
  informat.filename  = "input";
}

int C2F() loadwave	(	char *	filename,
		double *	res,
		integer *	size_res,
		integer	flag,
		WavInfo *	Wi,
		integer *	ierr
	)

Definition at line 46 of file sox.c.

References buf, signalinfo::channels, checkformat(), soundstream::comment, errno, soundstream::filename, filetype(), soundstream::fp, ft, i, soundstream::ierr, ierr, soundstream::info, informat, init, NULL, signalinfo::rate, READBINARY, res1(), sciprint(), soundstream::seekable, signalinfo::size, sizes, strerror(), signalinfo::style, styles, wavread(), and wavstartread().

Referenced by C2F().

{
  long i,size_max;
#if defined(__alpha)|defined(__ia64__)
  int buf[BUFSIZ];
#else
  long buf[BUFSIZ];
#endif
  int olen;
  double *res1;
  *ierr=0;
  init();
  /* Get input format options */
  ft = &informat;
  ft->ierr=*ierr;
  /* Get input file */
  if ((ft->fp = fopen(filename, READBINARY)) == NULL)
    {
      sciprint("Can't open input file '%s': %s\r\n", 
               filename, strerror(errno));
      *ierr=1;
      return 0;
    }
  ft->filename = filename;
#if defined(_MSC_VER)
  informat.seekable  = 1;
#else
  informat.seekable  = (filetype(fileno(informat.fp)) == S_IFREG);
#endif
  informat.comment = informat.filename;

  /* Read and write starters can change their formats. */
  wavstartread(&informat,Wi,flag);
  if ( ft->ierr > 0 ) 
    {
      sciprint("Error while reading \r\n");
      *ierr=1;
      return 0;
    }
  checkformat(&informat);
  if ( ft->ierr > 0 ) 
    {
      sciprint("Error while reading \r\n");
      *ierr=1;
      return 0;
    }
  if ( flag == 1) 
    {
      sciprint("Input file: using sample rate %lu\r\n", 
               informat.info.rate);
      sciprint("\tsize %s, style %s, %d %s\r\n",
               sizes[informat.info.size], 
               styles[informat.info.style], informat.info.channels, 
               (informat.info.channels > 1) ? "channels" : "channel");
  }
  /* read chunk */
  size_max = *size_res ; 
  *size_res  = 0;
  olen = 1;
  res1=res;
  while ( olen > 0 )
    {
      olen = wavread(&informat,buf, (long) BUFSIZ);
      if ( ft->ierr > 0 ) 
        {
          sciprint("Error while reading \r\n");
          *ierr=1;
          return 0;
        }
      *size_res += olen ;
      if (flag == 1 &&  *size_res > size_max ) 
        {
          sciprint(" Sorry wav file too big \r\n");
          return 0;
        }
      if (flag == 1) 
        for ( i = 0 ; i < olen ; i++ ) 
          {
            *res1++ = buf[i];
          }
    }
  
  fclose(informat.fp);

  if ( flag == 1 ) 
    {
      for ( i = 0 ; i < *size_res ; i++ ) 
        {
          if ( informat.info.size /8 == 1 )
            res[i] = (res[i]-128)/128;
          else 
            res[i] = ((res[i])/32768)/65536;
        }
    }
  *ierr= ft->ierr;
  return 0 ;
}

Here is the call graph for this function:

Here is the caller graph for this function:

int C2F() savewave	(	char *	filename,
		double *	res,
		integer *	rate,
		integer *	size_res,
		integer *	nchannels,
		integer *	ierr
	)

Definition at line 148 of file sox.c.

References buf, signalinfo::channels, cleanup(), soundstream::comment, count, errno, soundstream::filename, filetype(), soundstream::fp, ft, i, soundstream::ierr, ierr, soundstream::info, informat, init, len, long, m, NULL, num, signalinfo::rate, sciprint(), soundstream::seekable, SIGN2, signalinfo::size, strerror(), signalinfo::style, wavstartwrite(), wavstopwrite(), wavwrite(), WORDSCI, WRITEBINARY, and x.

Referenced by C2F().

{
  long buf[BUFSIZ];
  long i,size_max;
  int count;
  double m,*loc;
  *ierr=0;
  init();
  /* Get input format options */
  ft = &informat;
  ft->ierr=*ierr;
  /* Get input file */
  if ((ft->fp = fopen(filename, WRITEBINARY)) == NULL)
    {
      sciprint("Can't open output file '%s': %s\r\n", 
           filename, strerror(errno));
      *ierr=1;
      return 0;
    }

  ft->filename = filename;
#if defined(_MSC_VER)
  informat.seekable  = 1;
#else
  informat.seekable  = (filetype(fileno(informat.fp)) == S_IFREG);
#endif
  informat.comment = informat.filename;
  
  /* changing the formats. */
  informat.info.size = WORDSCI;
  informat.info.rate = *rate ;
  informat.info.style = SIGN2;
  informat.info.channels = *nchannels;

  m=1.0;
  /* 
  m=res[0];
  for ( i = 0 ; i < *size_res ; i++) 
    {
      if ( Abs(res[i]) > m ) m = Abs(res[i]);
    }
  */
  wavstartwrite(&informat);
  if ( ft->ierr > 0 ) 
    {
      *ierr= ft->ierr;
      cleanup();
      return 0;
    }
  /* read chunk */
  size_max = *size_res ; 
  *size_res  = 0;
  count = 0 ;
  loc= res;
  while ( count < size_max ) 
    {
      double x;
      long int len, num;
      len = count + BUFSIZ;
      len = ( len > size_max ) ? size_max : len;
      for ( i = count ; i < len   ; i++ ) 
        {
          /* x= v/m*2**(31-1); */
          x= (*loc++)/m*2147483647;
          buf[i-count ] = (long) x;
        }
      num = len - count ;
      wavwrite(&informat,buf, num );
      if ( ft->ierr > 0 ) 
        {
          *ierr= ft->ierr;
          cleanup();
          return 0;
        }
      count = len;
    }
  wavstopwrite(&informat);
  fclose(informat.fp);
  res[0] = ((double)(size_max))/((double) (*rate));
  *ierr= ft->ierr;
  return 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

---

Variable Documentation

ft_t ft

Definition at line 30 of file sox.c.

Referenced by checkformat(), fill_type(), loadwave(), mget2(), mgeti(), mput2(), mputi(), rawread(), rawwrite(), rblong(), rbshort(), rdouble(), rfloat(), rllong(), rlong(), rlshort(), rshort(), savewave(), wavread(), wavstartread(), wavstartwrite(), wavstopwrite(), wavwrite(), wavwritehdr(), wblong(), wbshort(), wdouble(), wfloat(), wllong(), wlong(), wlshort(), and wshort().

struct soundstream informat

Definition at line 29 of file sox.c.

Referenced by cleanup(), init(), loadwave(), and savewave().

---