/*

 * Copyright 1992 by Jutta Degener and Carsten Bormann, Technische

 * Universitaet Berlin.  See the accompanying file "COPYRIGHT" for

 * details.  THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.

 */

/* $Header: /tmp_amd/presto/export/kbs/jutta/src/gsm/RCS/toast_audio.c,v 1.6 1995/03/07 21:21:24 jutta Exp $ */

#include	"toast.h"

/*  toast_audio -- functions to manipulate SunOS audio files.

 *

 *  This is reverse engineered from our present soundfiles

 *  and in no way portable, durable or aesthetically pleasing.

 */

extern FILE	* in, 	  * out;

extern char	* inname;

extern char	* progname;

extern int	(*output) P((gsm_signal *)),

		(*input ) P((gsm_signal *));

extern int	alaw_input   P((gsm_signal *)),

		ulaw_input   P((gsm_signal *)),

		linear_input P((gsm_signal *));

extern int	ulaw_output P((gsm_signal *));

static int put_u32 P2((f, u), FILE * f, unsigned long u)

{

	/*  Write a 32-bit unsigned value msb first. 

	 */

	if (  putc( (char)((u>>24) & 0x0FF), f) == EOF

	   || putc( (char)((u>>16) & 0x0FF), f) == EOF

	   || putc( (char)((u>> 8) & 0x0FF), f) == EOF

	   || putc( (char)( u      & 0x0FF), f) == EOF) return -1;

	return 0;

}

static int get_u32 P2((f, up), FILE * f, unsigned long * up)

{

	/*  Read a 32-bit unsigned value msb first.

	 */

	int		i;

	unsigned long 	u;

	if (  				      (i = getc(f)) == EOF

	   || ((u =        (unsigned char)i), (i = getc(f)) == EOF)

	   || ((u = (u<<8)|(unsigned char)i), (i = getc(f)) == EOF)

	   || ((u = (u<<8)|(unsigned char)i), (i = getc(f)) == EOF)) return -1;

	*up = 	    (u<<8)|(unsigned char)i;

	return 0;

}

int audio_init_input P0()

{

	unsigned long	len, enc;	/* unsigned 32 bits	*/

	if (  fgetc(in) != '.' 

	   || fgetc(in) != 's'

	   || fgetc(in) != 'n'

	   || fgetc(in) != 'd'

	   || get_u32( in, &len )

	   || get_u32( in, &enc )	/* skip this */

	   || get_u32( in, &enc )) {

		fprintf(stderr, 

	"%s: bad (missing?) header in Sun audio file \"%s\";\n\

	Try one of -u, -a, -l instead (%s -h for help).\n",

			progname, inname ? inname : "stdin", progname);

		return -1;

	}

	switch (enc) {

	case 1:	input = ulaw_input;  	break;

	case 2: input = alaw_input;  	break;

	case 3: input = linear_input; 	break;

	default:

		fprintf(stderr,

"%s: warning: file format #%lu for %s not implemented, defaulting to u-law.\n",

			progname, enc, inname);

		input = ulaw_input;

		break;

	}

	while (len > 4*4)

		if (getc(in) == EOF) {

			fprintf(stderr, 

			"%s: EOF in header of Sun audio file \"%s\";\n\

			Try one of -u, -a, -l instead (%s -h for help).\n",

				progname, inname ? inname : "stdin", progname);

			return -1;

		}

		else len--;

	return 0;

}

int audio_init_output P0()

{

	if (  fputs(".snd", out) == EOF

	   || put_u32(out, 32)

	   || put_u32(out, ~(unsigned long)0)

	   || put_u32(out, 1)

	   || put_u32(out, 8000)

	   || put_u32(out, 1)

	   || put_u32(out, 0)

	   || put_u32(out, 0)) return -1;

	return 0;

}