writeau.c File Reference

#include <stdio.h>
#include <string.h>
#include <math.h>
#include "machine.h"
#include "sciprint.h"

Include dependency graph for writeau.c:

Go to the source code of this file.

Functions
void mput2	__PARAMS ((FILE *fa, integer swap, double *res, integer n, char *type, integer *ierr))
void	writeau (integer *flag, integer *nevprt,*t, xd, x, integer *nx, z, integer *nz, tvec, integer *ntvec, rpar, integer *nrpar, ipar, integer *nipar, inptr, insz, integer *nin, outptr, outsz, integer *nout)

---

Function Documentation

void mput2 __PARAMS

(

(FILE *fa, integer swap, double *res, integer n, char *type, integer *ierr)

)

void writeau	(	integer *	flag,
		integer*	nevprt,
		*	t,
		xd	,
		x	,
		integer*	nx,
		z	,
		integer*	nz,
		tvec	,
		integer*	ntvec,
		rpar	,
		integer*	nrpar,
		ipar	,
		integer*	nipar,
		inptr	,
		insz	,
		integer*	nin,
		outptr	,
		outsz	,
		integer*	nout
	)

Definition at line 11 of file writeau.c.

References buffer, f(), fd, i, ierr, int, mput2(), n, sciprint(), and y.

                      : file name length
     ipar[2:4] = fmt  : numbers type ascii code
     ipar[5]   = n : buffer length in number of records
     ipar[6]   = swap
     ipar[7:6+lfil] = character codes for file name
     */
{
  FILE *fd;
  int n, k,/* m,*/ i, ierr;
  double *buffer,*record;
/*  long offset;*/
  int SCALE  = 32768;
  int BIAS   =   132;
  int CLIP   = 32635;
  int OFFSET =   335;
  double y;
  int sig;
  int e;
  double f;
  

  --ipar;
  --z;
  fd=(FILE *)(long)z[2];
  buffer = (z+3);
  ierr=0;
  /*
    k    : record counter within the buffer
  */

  if (*flag==2&&*nevprt>0) 
    { /* add a new record to the buffer */
      n    = ipar[5];
      k    = (int)z[1];
      /* copy current record to output 
         printf("%i\n",k);*/
      record=buffer+(k-1)*(*nin); 

      for (i=0;i<*nin;i++)
        {
          y= *inptr[i];
          y=SCALE*y;
          if (y<0.0)
            {
              y=-y;
              sig=-1;
            }
          else
            sig=1;
          if(y>CLIP)
            y=CLIP;
          y=y+BIAS;
          f=frexp(y,&e);
          y=64*sig-16*e- (int) (32*f)+OFFSET;
          record[i] = y;
        }
      if (k<n) 
        z[1] = z[1]+1.0;
      else {
        mput2(fd,ipar[6],buffer,ipar[5]*(*nin),"uc",&ierr); 
        if(ierr!=0) {
          *flag = -3;
          return;
        }
        z[1] = 1.0;
        
      }
      
    }
  else if (*flag==4) {
    fd = fopen("/dev/audio","wb");
    if (!fd ) {
      sciprint("Could not open /dev/audio!\n");
      *flag = -3;
      return;
    }
    z[2]=(double)(long)fd;
    z[1] = 1.0;
  }
  else if (*flag==5) {
    if(z[2]==0) return;
    k    =(int) z[1];
    if (k>1) {/* flush rest of buffer */
      mput2(fd,ipar[6],buffer,(k-1)*(*nin),"uc",&ierr);
      if(ierr!=0) {
        *flag = -3;
        return;
      }
    }
    fclose(fd);
    z[2] = 0.0;
  }
  return;
}

Here is the call graph for this function:

---