shithub: sox

ref: b5db60e89ae731cf22f7405722353b06d9b8977f
dir: /pick.c/

View raw version

/*
 * July 5, 1991
 * Copyright 1991 Lance Norskog And Sundry Contributors
 * This source code is freely redistributable and may be used for
 * any purpose.  This copyright notice must be maintained. 
 * Lance Norskog And Sundry Contributors are not responsible for 
 * the consequences of using this software.
 */

/*
 *  "pick" effect by Lauren Weinstein (lauren@vortex.com); 2/94
 *  Creates a 1 channel file by selecting a single channel from
 *  a 2 or 4 channel file.  Does not currently allow creating a 2 channel
 *  file by selecting 2 channels from a 4 channel file.
 */

#include "st.h"

/* Private data for SKEL file */
typedef struct pickstuff {
	int	chan;	 /* selected channel */
} *pick_t;

/* channel names are offset by 1 from actual channel byte array offsets */
#define CHAN_1	0	
#define CHAN_2	1
#define CHAN_3	2
#define CHAN_4	3

/*
 * Process options
 */
int st_pick_getopts(effp, n, argv) 
eff_t effp;
int n;
char **argv;
{
	pick_t pick = (pick_t) effp->priv;

	if (n == 1 && argv[0][0] == '-') {  /* must specify channel to pick */
		switch (argv[0][1]) {
			case 'l':
				pick->chan = CHAN_1;
				return (ST_SUCCESS);
			case 'r':
				pick->chan = CHAN_2;
				return (ST_SUCCESS);
			case '1':
				pick->chan = CHAN_1;
				return (ST_SUCCESS);
			case '2':
				pick->chan = CHAN_2;
				return (ST_SUCCESS);
			case '3':
				pick->chan = CHAN_3;
				return (ST_SUCCESS);
			case '4':
				pick->chan = CHAN_4;
				return (ST_SUCCESS);
		}
	}
	/* Invalid option given.  Will give error when st_pick_stat()
	 * is called
	 */
	pick->chan = -1;
	return (ST_SUCCESS);
}


/*
 * Start processing.  Final option checking is done here since
 * error/usage messages will vary based on the number of input/output
 * channels selected, and that info is not available in pick_getopts()
 * above.
 */
int st_pick_start(effp)
eff_t effp;
{
	pick_t pick = (pick_t) effp->priv;

	if (effp->outinfo.channels != 1)  /* must be one output channel */
	{
	   st_fail("Pick effect requires output to be forced to 1 channel.  Currenty it is set for %d channels.",effp->outinfo.channels); 
	   return (ST_EOF);
	}
	if (effp->ininfo.channels != 2 && effp->ininfo.channels != 4)
	{
	        st_fail("Pick effect can not work with mono input data.");
		return (ST_EOF);
	}
        if (effp->ininfo.channels == 2) {  /* check for valid option */
	   if (pick->chan == -1 || pick->chan == CHAN_3 || pick->chan == CHAN_4)
	   {
   	      st_fail("Must specify channel to pick: '-l', '-r', '-1', or '-2'.");
	      return (ST_EOF);
	   }
	}
	else  /* must be 4 channels; check for valid option */
	   if (pick->chan == -1)
	   {
	      st_fail("Must specify channel to pick: '-1', '-2', '-3', or '-4'.");
	      return (ST_EOF);
	   }
	return (ST_SUCCESS);
}

/*
 * Process signed long samples from ibuf to obuf,
 * isamp or osamp samples, whichever is smaller,
 * while picking appropriate channels.
 */

int st_pick_flow(effp, ibuf, obuf, isamp, osamp)
eff_t effp;
LONG *ibuf, *obuf;
LONG *isamp, *osamp;
{
	pick_t pick = (pick_t) effp->priv;
	int len, done;
	
	switch (effp->ininfo.channels) {
		case 2:
			len = ((*isamp/2 > *osamp) ? *osamp : *isamp/2);
			for(done = 0; done < len; done++) {
				*obuf++ = ibuf[pick->chan];
				ibuf += 2;
			}
			*isamp = len * 2;
			*osamp = len;
			break;
		case 4:
			len = ((*isamp/4 > *osamp) ? *osamp : *isamp/4);
			for(done = 0; done < len; done++) {
				*obuf++ = ibuf[pick->chan];
				ibuf += 4;
			}
			*isamp = len * 4;
			*osamp = len;
			break;
	}
	return (ST_SUCCESS);
}

/*
 * Do anything required when you stop reading samples.  
 * Don't close input file! 
 */
int st_pick_stop(effp)
eff_t effp;
{
	/* nothing to do */
    return (ST_SUCCESS);
}