raw.c File Reference

#include "st.h"
#include "libst.h"
#include "sciprint.h"

Include dependency graph for raw.c:

Go to the source code of this file.

Functions
int	rawread (ft_t ft, long int *buf, long int nsamp)
void	rawwrite (ft_t ft, long int *buf, long int nsamp)

---

Function Documentation

int rawread	(	ft_t	ft,
		long int *	buf,
		long int	nsamp
	)

Definition at line 38 of file raw.c.

References ALAW, BYTESCI, count, done, FLOATSCI, soundstream::fp, ft, soundstream::ierr, soundstream::info, LEFT, long, rfloat(), rshort(), sciprint(), SIGN2, signalinfo::size, sizes, st_Alaw_to_linear(), st_ulaw_to_linear(), signalinfo::style, styles, ULAW, UNSIGNED, and WORDSCI.

Referenced by wavread().

{
  int count;
#if defined(__alpha)|defined(__ia64__)
  register int datum;
#else
  register long datum;
#endif
  int done = 0;
  count=0;
  switch(ft->info.size) 
    {
    case BYTESCI: switch(ft->info.style) 
      {
      case SIGN2:
        while(done < nsamp) 
          {
            datum = getc(ft->fp);
            if (feof(ft->fp))
              return done;
            /* scale signed up to long's range */
            *buf++ = datum = LEFT(datum, 24);
            done++;
          }
        return done;
      case UNSIGNED:
        while(done < nsamp) 
          {
            datum = getc(ft->fp);
            if (feof(ft->fp))
              return done;
            /* Convert to signed */
            datum ^= 128;
            /* scale signed up to long's range */
            *buf++ = datum =  LEFT(datum, 24);
            done++;
          }
        return done;
      case ULAW:
        while(done < nsamp) 
          {
            datum = getc(ft->fp);
            if (feof(ft->fp))
              return done;
            datum = st_ulaw_to_linear((unsigned char)datum);
            /* scale signed up to long's range */
            *buf++ = datum =  LEFT(datum, 16);
            done++;
          }
        return done;
      case ALAW:
        while(done < nsamp) 
          {
            datum = getc(ft->fp);
            if (feof(ft->fp))
              return done;
            datum =  st_Alaw_to_linear((unsigned char)datum);
            /* scale signed up to long's range */
            *buf++ = datum = LEFT(datum, 16);
            done++;
          }
        return done;
      }
    case WORDSCI: 
      switch(ft->info.style) 
        {
        case SIGN2:
          while(done < nsamp)
            {
              datum = rshort(ft);
              if (feof(ft->fp))
                return done;
              /* scale signed up to long's range */
              *buf++ = datum =  LEFT(datum, 16);
              done++;
            }
          return done;
        case UNSIGNED:
          while(done < nsamp) 
            {
              datum = rshort(ft);
              if (feof(ft->fp))
                return done;
              /* Convert to signed */
              datum ^= 0x8000;
              /* scale signed up to long's range */
              *buf++ = datum = LEFT(datum, 16);
              done++;
            }
          return done;
        case ULAW:
          sciprint("No U-Law support for shorts\r\n");
          ft->ierr=1;
          return done;
        case ALAW:
          sciprint("No A-Law support for shorts\r\n");
          ft->ierr=1;
          return done;
        }
    case FLOATSCI:
      while(done < nsamp) 
        {
          datum = (long) rfloat(ft);
          if (feof(ft->fp))
            return done;
          *buf++ = datum =  LEFT(datum, 16);
          done++;
        }
      return done;
    default:
      sciprint("Drop through in rawread!\r\n");
      ft->ierr=1;
    }
  sciprint("Sorry, don't have code to read %s, %s\r\n",
           styles[ft->info.style], sizes[ft->info.size]);
  ft->ierr=1;
  return done;
}

Here is the call graph for this function:

Here is the caller graph for this function:

void rawwrite	(	ft_t	ft,
		long int *	buf,
		long int	nsamp
	)

Definition at line 168 of file raw.c.

References ALAW, BYTESCI, done, FLOATSCI, soundstream::fp, ft, soundstream::ierr, soundstream::info, RIGHT, sciprint(), SIGN2, signalinfo::size, sizes, st_linear_to_Alaw(), st_linear_to_ulaw(), signalinfo::style, styles, ULAW, UNSIGNED, wfloat(), WORDSCI, and wshort().

Referenced by wavwrite().

{
  register int datum;
  int done = 0;
  switch(ft->info.size) 
    {
    case BYTESCI: switch(ft->info.style) 
      {
      case SIGN2:
        while(done < nsamp) 
          {
            /* scale signed up to long's range */
            datum = RIGHT(*buf++, 24);
            putc(datum, ft->fp);
            done++;
          }
        return;
      case UNSIGNED:
        while(done < nsamp) 
          {
            /* scale signed up to long's range */
            datum = RIGHT(*buf++, 24);
            /* Convert to unsigned */
            datum ^= 128;
            putc(datum, ft->fp);
            done++;
          }
        return;
      case ULAW:
        while(done < nsamp) 
          {
            /* scale signed up to long's range */
            datum = RIGHT(*buf++, 16);
            /* round up to 12 bits of data */
            datum += 0x8;       /* + 0b1000 */
            datum = st_linear_to_ulaw(datum);
            putc(datum, ft->fp);
            done++;
          }
        return;
      case ALAW:
        while(done < nsamp) 
          {
            /* scale signed up to long's range */
            datum = RIGHT(*buf++, 16);
            /* round up to 12 bits of data */
            datum += 0x8;       /* + 0b1000 */
            datum = st_linear_to_Alaw(datum);
            putc(datum, ft->fp);
            done++;
          }
        return;
      }
    case WORDSCI: switch(ft->info.style) {
    case SIGN2:
      while(done < nsamp) {
        /* scale signed up to long's range */
        datum = RIGHT(*buf++, 16);
        wshort(ft, datum);
        done++;
      }
      return;
    case UNSIGNED:
      while(done < nsamp) {
        /* scale signed up to long's range */
        datum = RIGHT(*buf++, 16);
        /* Convert to unsigned */
        datum ^= 0x8000;
        wshort(ft, datum);
        done++;
      }
      return;
    case ULAW:
      sciprint("No U-Law support for shorts (try -b option ?)\r\n");
      ft->ierr=1;
      return;
    case ALAW:
      sciprint("No A-Law support for shorts (try -b option ?)\r\n");
      ft->ierr=1;
      return;
    }
    case FLOATSCI:
      while(done < nsamp) {
        /* scale signed up to long's range */
        datum = RIGHT(*buf++, 16);
        wfloat(ft, (float) datum);
        done++;
      }
      return;
    default: 
      {
        sciprint("Drop through in rawwrite!\r\n");
        ft->ierr=1;
      }
      
    }
  sciprint("Sorry, don't have code to write %s, %s\r\n",styles[ft->info.style], sizes[ft->info.size]);
        ft->ierr=1;
}

Here is the call graph for this function:

Here is the caller graph for this function:

---