shpack_s.c

speech signal process tools

/******************************************************************************
******************************************************************************/

# include <math.h>
# include <stdio.h>
# include <sp/sphere.h>
# include <sp/shpack/shpk_sph.h>


#define		SWAP_BYTES	1

int shortpack_compress(fpin, fpout, status) FOB *fpin, *fpout; char *status; {
  int exitcode;

return(-1);
/*
  exitmessage = status;
  if((exitcode = setjmp(exitenv)) == 0)
    exitcode = shorten(fpin, fpout, shorten_argc, shorten_argv);
  shorten_reset_flags();
  return(exitcode + 1);
*/
}

int shortpack_uncompress(fpin, fpout, header) 
FOB *fpin, *fpout;
struct header_t *header; 
{
    int waveform_len, write_len;
    short *waveform;
    int swap;
    int filesize;

    waveform_len = read_wav_data(fpin, &waveform, header, 1);
/*    printf(" Read length = %d\n",waveform_len);    */
    if (waveform_len < 0)
	return(-1);

    write_len = fob_fwrite(waveform,2,waveform_len,fpout);
/*    printf(" Write length = %d\n",write_len);*/
    if (write_len != waveform_len)
	return(-1);
    free(waveform);

    return(0);
}

  
  
  
    
  



#ifdef old

    int swap;
    int filesize;
    int pos, num_in_chunk, written;
    short array[1024];
 
    read_shortpack_header(fpin, 0, &filesize, &swap);    /* read the header from input */
    do {
	num_in_chunk =  read_shortpack_chunk_from_file(fpin, array, 0,
						       1024, 0xffffffff);
	printf("  %d read\n",num_in_chunk);
	if (num_in_chunk < 0)
	    return(-1);
	written=fob_fwrite(array,2,num_in_chunk,fpout);
	printf("  %d written\n",num_in_chunk);
	if (written != num_in_chunk)
	    return(-1);
    } while (num_in_chunk > 0);
    return 0;


/*
read_shortpacked_data(array, num_elements, fp)
short *array;
int num_elements;
FILE *fp;
    { int i,j,k;
      int input_pointer;
      int num_in_chunk;
 
      input_pointer = 0;
 
      while(input_pointer < num_elements)
	  { num_in_chunk =  read_shortpack_chunk_from_file(fp, array, input_pointer,
							   num_elements, ALL_ONES);
	    input_pointer += num_in_chunk;
	}
      return input_pointer;
  }
 */
/*


    pos=fob_ftell(fpin);
    read_shortpack_header(fpin, 0, &filesize, &swap);    /* read the header from input */
    while (!fob_feof(fpin) && read_shortpack_writing_to_file(fpin, fpout, swap) == 0)
      ;
    return(0);
*/

#endif



/* 
 * read_shortpack_header(): This stuff gets the byte-ordering of the
   compressed file.  Default (unswapped) is IEEE ordering (SPARC,
   Motorola 680X0) Swapped is VAX, DEC RISC, Intel 80X86, etc.  * * arg:
   use in_core rotines if 1, file access if 0
 */

read_shortpack_header(ifp, arg, pfilesize, pswap)
FOB *ifp;
int arg;
int *pfilesize;
int *pswap;
{
  int flags;

  *pfilesize = ntohl(getw(ifp));
  flags = ntohl(getw(ifp));

  *pswap = (flags & SWAP_BYTES);
}