/******************************************************************
 * CopyPolicy: GNU Public License 2 applies
 * Copyright (C) 1998 Monty xiphmont@mit.edu
 * and Heiko Eissfeldt heiko@escape.colossus.de
 *
 * Writes wav and aifc headers
 *
 ******************************************************************/

#include <unistd.h>
#include <stdio.h>
#include <string.h>
#include <stdlib.h>

static void PutNum(long num,FILE *f,int endianness,int bytes){
  int i;
  unsigned char c;

  if(!endianness)
    i=0;
  else
    i=bytes-1;
  while(bytes--){
    c=(num>>(i<<3))&0xff;
    if(fwrite(&c,1,1,f)==0){
      perror("Could not write to output.");
      exit(1);
    }
    if(endianness)
      i--;
    else
      i++;
  }
}

void WriteWav(FILE *f,long bytes){
  /* quick and dirty */

  fwrite("RIFF",1,4,f);               /*  0-3 */
  PutNum(bytes+44-8,f,0,4);        /*  4-7 */
  fwrite("WAVEfmt ",1,8,f);           /*  8-15 */
  PutNum(16,f,0,4);                /* 16-19 */
  PutNum(1,f,0,2);                 /* 20-21 */
  PutNum(2,f,0,2);                 /* 22-23 */
  PutNum(44100,f,0,4);             /* 24-27 */
  PutNum(44100*2*2,f,0,4);         /* 28-31 */
  PutNum(4,f,0,2);                 /* 32-33 */
  PutNum(16,f,0,2);                /* 34-35 */
  fwrite("data",1,4,f);               /* 36-39 */
  PutNum(bytes,f,0,4);             /* 40-43 */
}

void WriteAiff(FILE *f,long bytes){
  long size=bytes+54;
  long frames=bytes/4;

  /* Again, quick and dirty */

  fwrite("FORM",1,4,f);             /*  4 */
  PutNum(size-8,f,1,4);          /*  8 */
  fwrite("AIFF",1,4,f);             /* 12 */

  fwrite("COMM",1,4,f);             /* 16 */
  PutNum(18,f,1,4);              /* 20 */
  PutNum(2,f,1,2);               /* 22 */
  PutNum(frames,f,1,4);          /* 26 */
  PutNum(16,f,1,2);              /* 28 */
  fwrite("@\016\254D\0\0\0\0\0\0",1,10,f); /* 38 (44.100 as a float) */

  fwrite("SSND",1,4,f);             /* 42 */
  PutNum(bytes+8,f,1,4);         /* 46 */
  PutNum(0,f,1,4);               /* 50 */
  PutNum(0,f,1,4);               /* 54 */

}

void WriteAifc(FILE *f,long bytes){
  long size=bytes+86;
  long frames=bytes/4;

  /* Again, quick and dirty */

  fwrite("FORM",1,4,f);             /*  4 */
  PutNum(size-8,f,1,4);          /*  8 */
  fwrite("AIFC",1,4,f);             /* 12 */
  fwrite("FVER",1,4,f);             /* 16 */
  PutNum(4,f,1,4);               /* 20 */
  PutNum(2726318400UL,f,1,4);    /* 24 */

  fwrite("COMM",1,4,f);             /* 28 */
  PutNum(38,f,1,4);              /* 32 */
  PutNum(2,f,1,2);               /* 34 */
  PutNum(frames,f,1,4);          /* 38 */
  PutNum(16,f,1,2);              /* 40 */
  fwrite("@\016\254D\0\0\0\0\0\0",1,10,f); /* 50 (44.100 as a float) */

  fwrite("NONE",1,4,f);             /* 54 */
  PutNum(14,f,1,1);              /* 55 */
  fwrite("not compressed",1,14,f);  /* 69 */
  PutNum(0,f,1,1);               /* 70 */

  fwrite("SSND",1,4,f);             /* 74 */
  PutNum(bytes+8,f,1,4);         /* 78 */
  PutNum(0,f,1,4);               /* 82 */
  PutNum(0,f,1,4);               /* 86 */

}

