/*
 * Copyright 1996 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*/

/* Generate code to pack a bit array from a name:#bits description */

#include	<stdio.h>
#include	"taste.h"
#include	"proto.h"
#include	<limits.h>

/* This module goes back to one Jeff Chilton used for his implementation
 * of the #49 WAV GSM format.  (In his original patch 8, it replaced
 * bitter.c.)
 *
 * In Microsoft's WAV #49 version of the GSM format, two 32 1/2
 * byte GSM frames are packed together to make one WAV frame, and
 * the GSM parameters are packed into bytes right-to-left rather
 * than left-to-right.
 *
 * That is, where toast's GSM format writes
 *
 * 	aaaaaabb bbbbcccc cdddddee ...
 *	___1____ ___2____ ___3____
 *
 *  for parameters a (6 bits), b (6 bits), c (5 bits), d (5 bits), e ..
 *  the WAV format has
 *
 * 	bbaaaaaa ccccbbbb eedddddc ...
 *	___1____ ___2____ ___3____
 *
 *  (This format looks a lot prettier if one pictures octets coming
 *  in through a fifo queue from the left, rather than waiting in the
 *  right-hand remainder of a C array.)
 */

#define WORD_BITS	16	/* sizeof(uword) * CHAR_BIT on the 
				 * target architecture---if this isn't 16,
				 * you're in trouble with this library anyway.
				 */

#define CHAR_BITS	 8	/* CHAR_BIT on the target architecture---
				 * if this isn't 8, you're in *deep* trouble.
				 */

void write_code P2((s_spex, n_spex), struct spex * s_spex, int n_spex)
{
	struct spex	* sp = s_spex;
	int		  n_in = 0;

	printf("uword sr = 0;\n");

	for (; n_spex > 0; n_spex--, sp++) {

		/*	insert       old 
		 *	new var	     value     unused
		 *	here  
		 *
		 *	[____________xxxxxx**********]
		 *
		 *	<----- n_in ------>
		 */
		printf("sr = sr >> %d | %s << %d;\n",
			sp->varsize,
			sp->var, 
			WORD_BITS - sp->varsize);

		n_in += sp->varsize;

		while (n_in >= CHAR_BIT) {
			printf("*c++ = sr >> %d;\n",
				WORD_BITS - n_in);
			n_in -= CHAR_BIT;
		}
	}

	while (n_in >= CHAR_BIT) {
		printf("*c++ = sr >> %d;\n", WORD_BITS - n_in);
		n_in -= CHAR_BIT;
	}

	if (n_in > 0) {
		fprintf(stderr, "warning: %d bits left over\n", n_in);
	}
}