/*------------------------------------------*/
/*       Player IFF SMUS V 1.0              */
/*       (c) ANT 1992                       */
/*------------------------------------------*/

#include <exec/types.h>
#include <exec/memory.h>
#include <graphics/gfxbase.h>
#include <libraries/dosextens.h>
#include <devices/audio.h>
#include <devices/timer.h>
#include <iff/iff.h>
#include <iff/smus.h>
#include <iff/8svx.h>

#define SMUS MakeID('S','M','U','S')  /* chunk form SMUS */
#define SHDR MakeID('S','H','D','R')  /* chunk ScoreHeader décrivant les données de base */
#define INS1 MakeID('I','N','S','1')  /* chunk de description des instruments */
#define TRAK MakeID('T','R','A','K')  /* chunk décrivant une piste */
#define I8SVX MakeID('8','S','V','X')  /* chunk form 8SVX */
#define VHDR MakeID('V','H','D','R')  /* chunk VoiceHeader pour l'instrument */
#define BODY MakeID('B','O','D','Y')  /* chunk des données associées à l'instruments */

#define LIMIT_INSTRUMENT 8

struct GfxBase    *OpenLibrary(); /* Ouverture des bibliothèques */
struct GfxBase    *GfxBase; /* Pointeur sue la bibliothèque graphique */
struct Message    *GetMsg(); /* Récupération de message */
struct MsgPort    *CreatePort(); /* Création d'un port */
struct IORequest  *CreateExtIO(); /* Création du timer */ 
struct Task       *FindTask(); /* recherche de taches */
struct FileHandle *Open(),     /* pour l'ouverture du fichier */
                  *inshandle;   /* gestion d'un instrument     */
       APTR       AllocMem();  /* pour l'allocation memoire   */
       ULONG       notes();     /* jouer les SEvents           */
       void       finaudio();  /* Arret du morceau            */
       ULONG      initaudio();  /* initialisation audio        */
       ULONG      chargeinst(); /* chargement d'un instrument  */
       void       referme();   /* desallocation générale      */
       LONG       arret(); /* gestion de l'arret user     */
       void      dechinst(); /* dechargement d'un instrument */
       ULONG     calcul(); /* calcul de la note */

/*------------------------------------------*/
/*  Définition des variables globales       */
/*------------------------------------------*/

struct FileHandle *smusfichier; /* pointeur sur le fichier SMUS */
UBYTE             *sdonnee; /* donnees associées au fichier SMUS */
ChunkHeader       *smusheader; /* header SMUS */
SEvent            *piste[8]; /* tableau des pistes */
LONG               tcompteur; /* compteur de piste */

LONG              icompteur, horloge; /* compteur et constante d'horloge */
UBYTE             *idonnee;           /* pointeur vers les données du fichier 8SVX */
Voice8Header     *instheader; /* header d'un instrument 8SVX */
Chunk             *instchunk; /* chunk d'instrument */
LONG              taillefich,numinst,scompteur;
UBYTE             *sechant,*sechants[LIMIT_INSTRUMENT]; /* pointeur vers les blocs d'échantillons */
LONG              *ptabptr, *ptabptrs[LIMIT_INSTRUMENT],staille,stailles[LIMIT_INSTRUMENT],longueur[16*LIMIT_INSTRUMENT];
BYTE              *echant[16*LIMIT_INSTRUMENT];

/*LONG              frequence[] = { 41860,44540,46986,49780,52740,55860,
                              59200,62720,66448,70400,74586,79022};*/
struct IOAudio    *ioaud[20]; /* 2 attaques, 2 parties principales, */
struct Message    *msg;          /* 1 descente x 4 canaux = 20 */
struct MsgPort    *port[4];  /* port de gestion de message pour les ioauds */
struct MsgPort    *tport[4];
ULONG             device[4]; /* device */
struct timerequest *treq[4]; /* timers */
ULONG             timer[4];

UBYTE inreg[4];
UBYTE canal1[] = {1};
UBYTE canal2[] = {2};
UBYTE canal3[] = {4};
UBYTE canal4[] = {8};
UBYTE *canaux[] = {canal1,canal2,canal3,canal4};

ULONG ttable[] = {26880,13440, 6720, 3360, 1680,  840,  420,  210,
                  40320,20160,10080, 5040, 2520, 1260,  630,  315,
                  17920, 8960, 4480, 2240, 1120,  560,  280,  140,
                  26880,13440, 6720, 3360, 1680,  840,  420,  210,
                  21504,10752, 5376, 2688, 1344,  672,  336,  168,
                  32256,16128, 8064, 4032, 2016, 1008,  504,  252,
                  23040,11520, 5760, 2880, 1440,  720,  360,  180,
                  34560,17280, 8640, 4320, 2160, 1080,  540,  170};

/*------------------------------------------*/
/*       Programme principal                */
/*------------------------------------------*/


LONG main(argc,argv)
LONG argc;
char *argv[];

{

SEvent        *sevent;
RefInstrument *instref;
SScoreHeader  *partheader;
Chunk         *chunk;
char          *nom,instnom[60],iobuffer[8];
LONG          i,lcompteur,compteur,gamme;
ULONG         etat;

onbreak(&arret);

/* On commence par tester la validité des instruments d'entrée */

smusfichier = 0;
scompteur = 0;
numinst = 0;
etat = 1;

if(argv[1] == NULL)
   referme("Aucun nom de fichier en entrée\n");

/* On lit le fichier  */

nom = argv[1];
if(!(smusfichier = Open(nom,MODE_OLDFILE)))
   referme("Je n'arrive pas à ouvrir le fichier");

lcompteur = Read(smusfichier,iobuffer,8);
if(lcompteur == -1)
   referme("Problème de lecture du fichier");
if(lcompteur < 8)
   referme("Ce n'est pas un fichier IFF il est trop petit");

/* On analyse le Header */

smusheader = (ChunkHeader *)iobuffer;
if(smusheader->ckID != FORM)
   referme(" Ce n'est pas un fichier IFF\n");
if(smusheader->ckSize > 65536)
   referme("Fichier trop gros\n");

/* On charge le fichier */

if (!(sdonnee = (UBYTE *) AllocMem(smusheader->ckSize, MEMF_PUBLIC | MEMF_CLEAR)))
   referme("Impossible d'allouer de la mémoire\n");

lcompteur = Read(smusfichier,sdonnee,smusheader->ckSize);
if(lcompteur == -1)
   referme("Problème de lecture du fichier");
if(lcompteur < smusheader->ckSize)
   referme("fichier IFF malformé");

/* Evaluation du type de fichier */

if(MakeID( *sdonnee, *(sdonnee+1), *(sdonnee+2) , *(sdonnee+3)) != SMUS)
   referme("Ce n'est pas un fichier IFF SMUS");

/* recherche des différents chunks */

compteur = 4;
tcompteur = 0;

while(compteur < smusheader->ckSize);
   {
   chunk = (Chunk *)(sdonnee+compteur);
   switch(chunk->ckID)
      {
      case SHDR:

         partheader = (SScoreHeader *)(sdonnee+compteur+8L);
         gamme = (8929 / (partheader->tempo >> 7));
         for(i=0;i<64;i++) ttable[i] *= (ULONG)gamme;
         break;

      case INS1:

         instref = (RefInstrument *)(sdonnee + compteur + 8L);
         for(i=0;i <= chunk->ckSize; i++)
            instnom[i] = instref->name[i];
         instnom[chunk->ckSize-4L] = 0;
         if(etat = chargeinst(instnom))
            referme("Impossible de charger un instrument \n");
         break;

      case TRAK:

         if(tcompteur < 4)
            {
            sevent = (SEvent *)(sdonnee+compteur+8L);
            piste[tcompteur] = sevent;
            piste[tcompteur+4] = (SEvent *)(sdonnee+compteur+8L+chunk->ckSize);
            tcompteur ++;
            }
         else
            puts("Les pistes supérieures à 4 ne sont pas prises en compte ...\n");
         sevent = (SEvent *)(sdonnee+compteur+8L+chunk->ckSize);
         break;

      default:
         break;
      }
   compteur += 8L + chunk->ckSize;
   if(chunk->ckSize & 1L == 1)
      compteur ++;
   }

/* on est parti pour jouer la partition */

if(!etat && !numinst)
   {
   if(!(etat = initaudio()))
      notes(piste);

/*  C'est fini */

   finaudio();
   dechinst();
   }

if(smusfichier) Close(smusfichier);
if(sdonnee) FreeMem(sdonnee,smusheader->ckSize);
return(0L);
}