static THTensor * libsox_(read_audio_file)(const char *file_name)
{
// Create sox objects and read into int32_t buffer
sox_format_t *fd;
fd = sox_open_read(file_name, NULL, NULL, NULL);
if (fd == NULL)
abort_("[read_audio_file] Failure to read file");
int nchannels = fd->signal.channels;
long buffer_size = fd->signal.length;
int32_t *buffer = (int32_t *)malloc(sizeof(int32_t) * buffer_size);
size_t samples_read = sox_read(fd, buffer, buffer_size);
if (samples_read == 0)
abort_("[read_audio_file] Empty file or read failed in sox_read");
// alloc tensor
THTensor *tensor = THTensor_(newWithSize2d)(nchannels, samples_read / nchannels );
tensor = THTensor_(newContiguous)(tensor);
real *tensor_data = THTensor_(data)(tensor);
// convert audio to dest tensor
int x,k;
for (k=0; k<nchannels; k++) {
for (x=0; x<samples_read/nchannels; x++) {
*tensor_data++ = (real)buffer[x*nchannels+k];
}
}
// free buffer and sox structures
sox_close(fd);
free(buffer);
THTensor_(free)(tensor);
// return tensor
return tensor;
}
static int doread(int fd, char *buf, int bufsize)
{
int len;
do
{
len=sox_read(fd, buf, bufsize);
} while (len < 0 && errno == EINTR);
return (len);
}
static int drain(
sox_effect_t * effp, sox_sample_t * obuf, size_t * osamp)
{
priv_t * p = (priv_t *)effp->priv;
/* ensure that *osamp is a multiple of the number of channels. */
*osamp -= *osamp % effp->out_signal.channels;
/* Read up to *osamp samples into obuf; store the actual number read
* back to *osamp */
*osamp = sox_read(p->file, obuf, *osamp);
/* sox_read may return a number that is less than was requested; only if
* 0 samples is returned does it indicate that end-of-file has been reached
* or an error has occurred */
if (!*osamp && p->file->sox_errno)
lsx_fail("%s: %s", p->file->filename, p->file->sox_errstr);
return *osamp? SOX_SUCCESS : SOX_EOF;
}
/* The function that will be called to input samples into the effects chain.
* In this example, we get samples to process from a SoX-openned audio file.
* In a different application, they might be generated or come from a different
* part of the application. */
static int input_drain(
sox_effect_t * effp, sox_sample_t * obuf, size_t * osamp)
{
(void)effp; /* This parameter is not needed in this example */
/* ensure that *osamp is a multiple of the number of channels. */
*osamp -= *osamp % effp->out_signal.channels;
/* Read up to *osamp samples into obuf; store the actual number read
* back to *osamp */
*osamp = sox_read(in, obuf, *osamp);
/* sox_read may return a number that is less than was requested; only if
* 0 samples is returned does it indicate that end-of-file has been reached
* or an error has occurred */
if (!*osamp && in->sox_errno)
fprintf(stderr, "%s: %s\n", in->filename, in->sox_errstr);
return *osamp? SOX_SUCCESS : SOX_EOF;
}
const char *tcpremoteinfo(const RFC1035_ADDR *laddr, int lport,
const RFC1035_ADDR *raddr, int rport, const char **ostype)
{
int fd;
time_t current_time, max_time;
fd_set fds;
struct timeval tv;
static char buf[512];
char *bufptr;
int bufleft, n;
char *p;
char *q;
RFC1035_NETADDR sin;
const struct sockaddr *addr;
int addrlen;
fd=rfc1035_mksocket(SOCK_STREAM, 0, &n);
if (fd < 0) return (0);
if (rfc1035_mkaddress(n, &sin, laddr, 0, &addr, &addrlen) < 0)
{
close(fd);
return (0);
}
if (sox_bind(fd, addr, addrlen) < 0)
{
sox_close(fd);
return (0);
}
time (¤t_time);
max_time=current_time+30;
if (rfc1035_mkaddress(n, &sin, raddr, htons(113), &addr, &addrlen) < 0)
{
sox_close(fd);
return (0);
}
if (s_connect(fd, addr, addrlen, max_time - current_time) < 0)
{
sox_close(fd);
return (0);
}
sprintf(buf, "%d,%d\r\n", ntohs(rport), ntohs(lport));
bufptr=buf;
bufleft=strlen(buf);
while (bufleft)
{
time(¤t_time);
if (current_time >= max_time)
{
sox_close(fd);
return (0);
}
FD_ZERO(&fds);
FD_SET(fd, &fds);
tv.tv_sec=max_time-current_time;
tv.tv_usec=0;
if (sox_select(fd+1, 0, &fds, 0, &tv) != 1 ||
!FD_ISSET(fd, &fds))
{
sox_close(fd);
return (0);
}
n=sox_write(fd, bufptr, bufleft);
if (n <= 0)
{
sox_close(fd);
return (0);
}
bufptr += n;
bufleft -= n;
}
bufptr=buf;
bufleft=sizeof(buf);
do
{
if (bufleft == 0)
{
sox_close(fd);
return (0);
}
time(¤t_time);
if (current_time >= max_time)
{
sox_close(fd);
return (0);
}
FD_ZERO(&fds);
FD_SET(fd, &fds);
tv.tv_sec=max_time-current_time;
tv.tv_usec=0;
if (sox_select(fd+1, &fds, 0, 0, &tv) != 1 ||
!FD_ISSET(fd, &fds))
{
sox_close(fd);
return (0);
}
n=sox_read(fd, bufptr, bufleft);
if (n <= 0)
{
sox_close(fd);
return (0);
}
bufptr += n;
bufleft -= n;
} while (bufptr[-1] != '\n');
sox_close(fd);
bufptr[-1]=0;
--bufptr;
if (bufptr > buf && bufptr[-1] == '\r')
bufptr[-1]=0;
if ((p=strchr(buf, ':')) == 0)
return (0);
q=++p;
if ((p=strchr(p, ':')) == 0)
return (0);
*p++=0;
q=strtok(q, " \t");
if (!q || strcmp(q, "USERID")) return (0);
if (ostype) *ostype=p;
if ((p=strchr(p, ':')) == 0)
return (0);
*p++=0;
while (*p && (*p == ' ' || *p == '\t')) p++;
return (p);
}
/*
* Reads input file and displays a few seconds of wave-form, starting from
* a given time through the audio. E.g. example2 song2.au 30.75 1
*/
int main(int argc, char * argv[])
{
sox_format_t * in;
sox_sample_t * buf;
size_t blocks, block_size;
/* Period of audio over which we will measure its volume in order to
* display the wave-form: */
static const double block_period = 0.025; /* seconds */
double start_secs = 0, period = 2;
char dummy;
uint64_t seek;
/* All libSoX applications must start by initialising the SoX library */
assert(sox_init() == SOX_SUCCESS);
assert(argc > 1);
++argv, --argc; /* Move to 1st parameter */
/* Open the input file (with default parameters) */
assert(in = sox_open_read(*argv, NULL, NULL, NULL));
++argv, --argc; /* Move past this parameter */
if (argc) { /* If given, read the start time: */
assert(sscanf(*argv, "%lf%c", &start_secs, &dummy) == 1);
++argv, --argc; /* Move past this parameter */
}
if (argc) { /* If given, read the period of time to display: */
assert(sscanf(*argv, "%lf%c", &period, &dummy) == 1);
++argv, --argc; /* Move past this parameter */
}
/* Calculate the start position in number of samples: */
seek = start_secs * in->signal.rate * in->signal.channels + .5;
/* Make sure that this is at a `wide sample' boundary: */
seek -= seek % in->signal.channels;
/* Move the file pointer to the desired starting position */
assert(sox_seek(in, seek, SOX_SEEK_SET) == SOX_SUCCESS);
/* Convert block size (in seconds) to a number of samples: */
block_size = block_period * in->signal.rate * in->signal.channels + .5;
/* Make sure that this is at a `wide sample' boundary: */
block_size -= block_size % in->signal.channels;
/* Allocate a block of memory to store the block of audio samples: */
assert(buf = malloc(sizeof(sox_sample_t) * block_size));
/* This example program requires that the audio has precisely 2 channels: */
assert(in->signal.channels == 2);
/* Read and process blocks of audio for the selected period or until EOF: */
for (blocks = 0; sox_read(in, buf, block_size) == block_size && blocks * block_period < period; ++blocks) {
double left = 0, right = 0;
size_t i;
static const char line[] = "===================================";
int l, r;
for (i = 0; i < block_size; ++i) {
SOX_SAMPLE_LOCALS;
/* convert the sample from SoX's internal format to a `double' for
* processing in this application: */
double sample = SOX_SAMPLE_TO_FLOAT_64BIT(buf[i],);
/* The samples for each channel are interleaved; in this example
* we allow only stereo audio, so the left channel audio can be found in
* even-numbered samples, and the right channel audio in odd-numbered
* samples: */
if (i & 1)
right = max(right, fabs(sample)); /* Find the peak volume in the block */
else
left = max(left, fabs(sample)); /* Find the peak volume in the block */
}
/* Build up the wave form by displaying the left & right channel
* volume as a line length: */
l = (1 - left) * 35 + .5;
r = (1 - right) * 35 + .5;
printf("%8.3f%36s|%s\n", start_secs + blocks * block_period, line + l, line + r);
}
/* All done; tidy up: */
free(buf);
sox_close(in);
sox_quit();
return 0;
}
int main(int argc, char* argv[])
{
static sox_format_t *in_file, *out_file;
sox_sample_t *buffer;
size_t read;
size_t sample_count;
unsigned int sample_order[SONG_LENGTH_S];
if(argc != 3) {
usage();
exit(EXIT_FAILURE);
}
if (sox_init() != SOX_SUCCESS) {
fprintf(stderr, "error: could not initialize Sox\n");
exit(EXIT_FAILURE);
}
if((in_file = sox_open_read(argv[1], NULL, NULL, NULL)) == NULL) {
fprintf(stderr, "error could not read input file\n");
exit(EXIT_FAILURE);
}
if((out_file = sox_open_write(argv[2], &in_file->signal,
NULL, "wav", NULL, NULL)) == NULL) {
fprintf(stderr, "error could not open output file\n");
exit(EXIT_FAILURE);
}
sample_count = SONG_LENGTH_S * in_file->signal.rate * in_file->signal.channels;
buffer = (sox_sample_t *) malloc(sizeof(sox_sample_t) * sample_count);
randomize_byte_order(sample_order);
if (sox_read(in_file, buffer, sample_count) != sample_count) {
fprintf(stderr, "Incorrect number of samples read");
}
unsigned int i=0;
for(i=0;i<SONG_LENGTH_S;i++) {
sox_write(out_file, buffer + (sample_order[i] * (((unsigned int)(in_file->signal.rate)
* in_file->signal.channels))),
in_file->signal.rate * in_file->signal.channels);
}
free(buffer);
sox_close(in_file);
sox_close(out_file);
sox_quit();
return 0;
}
