view saitools/header.c @ 0:5242703e91d3 tip

Initial checkin for AIM92 aimR8.2 (last updated May 1997).

/*
    Copyright (c) Applied Psychology Unit, Medical Research Council. 1993
    ===========================================================================

    Permission to use, copy, modify, and distribute this software without fee 
    is hereby granted for research purposes, provided that this copyright 
    notice appears in all copies and in all supporting documentation, and that 
    the software is not redistributed for any fee (except for a nominal 
    shipping charge). Anyone wanting to incorporate all or part of this 
    software in a commercial product must obtain a license from the Medical 
    Research Council.

    The MRC makes no representations about the suitability of this 
    software for any purpose.  It is provided "as is" without express or 
    implied warranty.
 
    THE MRC DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING 
    ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL 
    THE A.P.U. BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES 
    OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, 
    WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, 
    ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS 
    SOFTWARE.
*/

/*-------------------------------------------------------------------------*/

/* header.c 
* ----------
*
* Part of the tr+fg+sai collection
*
* temporary version only, until I get architectures sussed:
* see the comments to 'readheader'
*
*
* M. Akeroyd. 26th May 1993. Revised Winter 1994.
*
*/


#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include "tip.h"



extern char progname[MAX_STRING_LENGTH];
extern char header[MAX_LINES_HEADER][MAX_LINE_LENGTH];

extern int verboseflag;
extern int oppositearchflag;    /* ON if reading Sun on DEC, or DEC on Sun.*/
extern int header_lines;        /* number of lines in header */


/* .sai parameters */

extern int no_frames;
extern int frameheight;             /* number of channels */
extern int framewidth_samples;      /* pwidth + nwidth * samplerate */
extern int frameshift_samples;      /* frstep_aid * samplerate */
extern int pwidth;                  /* in msecs */
extern int nwidth;                  /* in msecs: NEGATIVE */
extern int width_win;               /* pixels */
extern int height_win;              /* pixels */
extern long samplerate;              /* samples per sec */
extern int mincf;                   /* Hz */
extern int maxcf;                   /* Hz */


/*-------------------------------------------------------------------------*/

int readheader(FILE *inputfp) 
{ 
  /* Version of 20v1993 
   * This is the latest attempt to get it to READ the required bytes.
   *
   * Because the headerlines are of the format "string"="number", 
   * with no spaces imbetween, there is this hack ... 
   * 
   * MAA: Autumn 1993: but see comments below about Sparc10s and 
   * DECstations.
   */
 
  char *p_equal=" ";       /* pointer to where the '=' is in the headerline */
  char tempstring[MAX_STRING_LENGTH];        

  int bytes_required = 0;  /* no. of bytes in header, as in "header_bytes=...
			    * This is RETURNed */
  int bytes_loaded = 0;    /* number actually loaded */
  int counter;



  /* get first line */
  header_lines = 0;
  fgets(header[0], MAX_LINE_LENGTH, inputfp);

  if(strspn(header[0], "header_bytes") == 0) {
    fprintf(stderr, "%s: is the input an AIM output file?\n", progname);
    exit(-1);}

  /* find out how many bytes there SHOULD be */
  p_equal = strchr(header[0], '=');
  bytes_required = atoi(++p_equal); 

/*---------------------------------*/

  /* loop on remaining lines, saving important information as required */

  while (strncmp(fgets(header[++header_lines], MAX_LINE_LENGTH, inputfp),
		 "Version=", 8)  != 0) {
    if (strncmp(header[header_lines], "frameheight=", 12) == 0 ) {
      p_equal = strchr(header[header_lines], '=');
      frameheight = atoi(++p_equal); }

    if (strncmp(header[header_lines], "framewidth=", 11) == 0 ) {
      p_equal = strchr(header[header_lines], '=');
      framewidth_samples = atoi(++p_equal); }

    if (strncmp(header[header_lines], "frames=", 7) == 0 ) {
      p_equal = strchr(header[header_lines], '=');
      no_frames = atoi(++p_equal); }

    if (strncmp(header[header_lines], "frameshift=", 11) == 0 ) {
      p_equal = strchr(header[header_lines], '=');
      frameshift_samples = atoi(++p_equal); }

    if (strncmp(header[header_lines], "samplerate=", 11) == 0 ) {
      /* For some unknown reason, the samplerate has a "." at the
       * end of it. 
       */
      strncpy(tempstring, header[header_lines], 
	      (strlen(header[header_lines])-0));
      p_equal = strchr(tempstring, '=');
      samplerate = atol(++p_equal); } 

    if (strncmp(header[header_lines], "pwidth_aid=", 11) == 0 ) {
      p_equal = strchr(header[header_lines], '=');
      pwidth = atoi(++p_equal); }

    if (strncmp(header[header_lines], "nwidth_aid=", 11) == 0 ) {
      p_equal = strchr(header[header_lines], '=');
      nwidth = atoi(++p_equal); }

    if (strncmp(header[header_lines], "width_win=", 10) == 0 ) {
      p_equal = strchr(header[header_lines], '=');
      width_win = atoi(++p_equal); }

    if (strncmp(header[header_lines], "height_win=", 11) == 0 ) {
      p_equal = strchr(header[header_lines], '=');
      height_win = atoi(++p_equal); }

    if (strncmp(header[header_lines], "mincf_afb=", 10) == 0 ) {
      p_equal = strchr(header[header_lines], '=');
      mincf = atoi(++p_equal); }

    if (strncmp(header[header_lines], "maxcf_afb=", 10) == 0 ) {
      p_equal = strchr(header[header_lines], '=');
      maxcf = atoi(++p_equal); }

  }

/*------------------------------------*/

  /* how many bytes have we loaded ? */
  for (counter=0; counter<=header_lines; counter++) 
    bytes_loaded += strlen(header[counter]);


  /* include this warning */
  if (bytes_loaded > bytes_required) {
    fprintf(stderr, "%s: something's gone wrong ... too many header bytes were loaded.\n");
    exit(-1);
  }
  
  /* read some more bytes, till we are at the end of the header */
  for (counter = 1; counter <= (bytes_required - bytes_loaded); counter++) 
    fgetc(inputfp);


/* printf("header.c: bytes_required %i\n", bytes_required); */
/* printf("header.c: bytes_loaded %i\n", bytes_loaded); */


/* MAA: Autumn 1993: Roy noticied that saisummary didn't always work
*  properly, giving a "negative data" error. The following line is the
*  standard working hack: load one extra byte of the header.
*  It might be that the reason I didn't notice before
*  is that a Sparc10 seems to require this extra byte, but that a DECstation
*  3100 doesn't. At least when BOTH are reading a DECstation .sai file.
*  But when they read their 'own' .sai files, it isn't needed.
*  Therefore this is a byte-swapping bug.
*/
/* So, in summary:
* KEEP this line if reading DEC .sai on a SPARC, or SPARC .sai on a DEC
* REMOVE this line if reading DEc .sai on a DEC, or SPARC .sai on a SPARC
*/
/*     fgetc(inputfp);           /* THIS ONE !!!!!!!!!!!!!!!!!!!!!!!!!!!!!! */

/* MAA: Winter 1994: Changed this bit to the "-oparch" option */
  if (oppositearchflag == ON) 
    fgetc(inputfp);           /* THIS ONE !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!*/
  
  return bytes_required; 
}




/*---------------------------------------------------------------------------*/



void writeheader(FILE *outputfp)
{
  /* Version of 20v1993
   * The header is written as a sequence of strings. If the total length
   * is less than the number required ("header_bytes=..."), then send some
   * NULL bytes, till its the correct length.
   */

  int counter;
  int bytes_required = 0;
  int bytes_outputed = 0;
  char *p_equal;



  /* find out how many bytes we are supposed to be writing */
  p_equal = strchr(header[0], '=');
  bytes_required = atoi(++p_equal); 

  /* write header; in the process add up the bytes */
  for(counter=0; counter<=header_lines; counter++) {
    bytes_outputed += strlen(header[counter]);
    fputs(header[counter], outputfp);}

  fflush(outputfp);

  /* if we haven't yet sent enough bytes, send some more */
  for (counter=1; counter<=(bytes_required - bytes_outputed); counter++) 
    fputc(NULL, outputfp);


  /* include this warning */
  if (bytes_required < bytes_outputed) {
    fprintf(stderr, "%s: something's gone wrong ... the new header is %i too big.\n", progname, (bytes_outputed - bytes_required));
    exit(-1);
  }

}




/*---------------------------------------------------------------------------*/



void checkheader()
{

  if (framewidth_samples >= MAX_DATA) {
    fprintf(stderr, "%s: frames are too wide at %i: only alllowed %i samples\n", progname, framewidth_samples, MAX_DATA);
    exit(-1); }

  if (frameheight >= MAX_CHANNELS) {
    fprintf(stderr, "%s: too many channels (%i): only alllowed %i \n", progname, frameheight, MAX_CHANNELS);
    exit(-1); }

}




/* The End */
/*---------------------------------------------------------------------------*/