/*
  Copyright (C) 2004,2015 Rocky Bernstein <rocky@gnu.org
  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 */

}