/*

  Copyright (C) 2004,2015 Rocky Bernstein 

  Copyright (C) 1998 Monty xiphmont@mit.edu

  and Heiko Eissfeldt heiko@escape.colossus.de

*/

/** \file header.h

 *  \brief WAV, AIFF and AIFC header-writing routines.

 */

#include "header.h"

#include <unistd.h>

#include <stdlib.h>

#include <stdio.h>

#include <string.h>

static void PutNum(long num,int 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(write(f,&c,1)==-1){

      perror("Could not write to output.");

      exit(1);

    }

    if(endianness)

      i--;

    else

      i++;

  }

}

/** Writes WAV headers */

void

WriteWav(int f, long int bytes)

{

  int dummy __attribute__((unused));

  /* quick and dirty */

  dummy = write(f,"RIFF",4);       /*  0-3 */

  PutNum(bytes+44-8,f,0,4);        /*  4-7 */

  dummy = write(f,"WAVEfmt ",8);   /*  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 */

  dummy = write(f,"data",4);       /* 36-39 */

  PutNum(bytes,f,0,4);             /* 40-43 */

}

/** Writes AIFF headers */

void

WriteAiff(int f, long int bytes)

{

  long size=bytes+54;

  long frames=bytes/4;

  int dummy __attribute__((unused));

  /* Again, quick and dirty */

  dummy = write(f,"FORM",4);            /*  4 */

  PutNum(size-8,f,1,4);          	/*  8 */

  dummy = write(f,"AIFF",4);            /* 12 */

  dummy = write(f,"COMM",4);            /* 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 */

  dummy = write(f,"@\016\254D\0\0\0\0\0\0",10);

                                        /* 38 (44.100 as a float) */

  dummy = write(f,"SSND",4);            /* 42 */

  PutNum(bytes+8,f,1,4);         	/* 46 */

  PutNum(0,f,1,4);               	/* 50 */

  PutNum(0,f,1,4);               	/* 54 */

}

/** Writes AIFC headers */

void

WriteAifc(int f, long bytes)

{

  long size=bytes+86;

  long frames=bytes/4;

  int dummy __attribute__((unused));

  /* Again, quick and dirty */

  dummy = write(f,"FORM",4);            /*  4 */

  PutNum(size-8,f,1,4);          	/*  8 */

  dummy = write(f,"AIFC",4);            /* 12 */

  dummy = write(f,"FVER",4);            /* 16 */

  PutNum(4,f,1,4);               	/* 20 */

  PutNum(2726318400UL,f,1,4);    	/* 24 */

  dummy = write(f,"COMM",4);            /* 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 */

  dummy = write(f,"@\016\254D\0\0\0\0\0\0",10);

                                        /* 50 (44.100 as a float) */

  dummy = write(f,"NONE",4);            /* 54 */

  PutNum(14,f,1,1);              	/* 55 */

  dummy = write(f,"not compressed",14); /* 69 */

  PutNum(0,f,1,1);               	/* 70 */

  dummy = write(f,"SSND",4);            /* 74 */

  PutNum(bytes+8,f,1,4);         	/* 78 */

  PutNum(0,f,1,4);               	/* 82 */

  PutNum(0,f,1,4);               	/* 86 */

}