/* ======================================================================== */
/* = Programmname    : SampleListDemo V7.2			          = */
/* =									  = */
/* ======================================================================== */
/* = Author/Copyright : (c) 1994-97 by Andreas Ralph Kleinert.            = */
/* =		       Freeware. All rights reserved.			  = */
/* =									  = */
/* =                   Use it as an example for programming               = */
/* =                   superplay.library !                                = */
/* =									  = */
/* ======================================================================== */
/* = Function	      : SPObject operations :                             = */
/* =		        Test SampleList functions.                        = */
/* ======================================================================== */
/* = Last Update      : 15.08.1997            				  = */
/* =									  = */
/* ======================================================================== */
/* = Remarks          : Needs "asl.library" V37+                          = */
/* =		        and "superplay.library" V7+.                      = */
/* =									  = */
/* ======================================================================== */
/* = Compiler	      : SAS/C V6.58 					  = */
/* =		        (smakefile)                                       = */
/* ======================================================================== */

#define __USE_SYSBASE

#include <intuition/intuitionbase.h>

#include <superplay/superplay.h>
#include <spobjects/spobjects.h>

#include <libraries/asl.h>
#include <workbench/startup.h>
#include <exec/interrupts.h>

#include <proto/exec.h>
#include <proto/dos.h>
#include <proto/asl.h>
#include <proto/superplay.h>

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


   /* Help- and Info- Texts */

char entry1_text  [] = "\2331;32;40mSampleListDemo V7.2 \2330;32;40m\2333;32;40m(FREEWARE)\2330;32;40m\n(c) 1994-97 by Andreas Ralph Kleinert.\nAndreas R. Kleinert, Sandstrasse 1, D-57072 Siegen, Germany.\n";
char entry2_text  [] = "Plays Sound Samples and Modules via superplay.library.\n";
char entry3_text  [] = "USAGE : \2330;33;40mSampleListDemo\2330;31;40m [? | <Sample/ModuleFileName>]\n";


char ver_text [] = "\0$VER: SampleListDemo 7.2 (15.8.97)";


/* *************************************************** */
/* *						     * */
/* * Error-Messages for Leave() and KF_Message()     * */
/* *						     * */
/* *************************************************** */

char asllib_text 	[] = "You need \42asl.library\42 V37+ !";
char splib_text 	[] = "You need \42superplay.library\42 V7+ !";


/* *************************************************** */
/* *						     * */
/* * MACROs for Version-Tests			     * */
/* *						     * */
/* *************************************************** */

#define LibVer(x) ( ((struct Library *) x)->lib_Version )
#define OS_VER	  LibVer(SysBase)


/* *************************************************** */
/* *						     * */
/* * Function Declarations			     * */
/* *						     * */
/* *************************************************** */

void __regargs SP_Examine(char *filename);

void __regargs Leave(char *endtext, long code);


   /* Functions from module "SampleListDemo_Subs.o" : */

extern void __stdargs SP_Printf(char *formatstring, ...);


/* *************************************************** */
/* *						     * */
/* * Additional Base Declarations		     * */
/* *						     * */
/* *************************************************** */

extern struct ExecBase *SysBase;

struct SuperPlayBase *SuperPlayBase = N;
struct Library       *AslBase       = N;


/* *************************************************** */
/* *						     * */
/* * MAIN					     * */
/* *						     * */
/* *************************************************** */

void main(long argc, char **argv)
{
 if(argc==0) exit(0);

 if( argc > 2 || (argv[1][0] =='?') )
  {
   SP_Printf("%s%s%s", entry1_text, entry2_text, entry3_text);

   Leave(N, 0);
  }

 AslBase = (struct Library *) OpenLibrary("asl.library", 37);
 if(!AslBase) Leave(asllib_text, 102);

 SuperPlayBase = (struct SuperPlayBase *) OpenLibrary("superplay.library", 7);
 if(!SuperPlayBase) Leave(splib_text, 102);


 /* Play */

 if(argc < 2)
  {
   struct FileRequester     *request;
   struct TagItem __aligned  tags[4];
   char                      namebuffer [256];

   namebuffer[0] = (char) 0;

   tags[0].ti_Tag  = (Tag)   ASL_Hail;
   tags[0].ti_Data = (ULONG) "Select Sample/Module to play :";

   tags[1].ti_Tag  = (Tag)   ASL_OKText;
   tags[1].ti_Data = (ULONG) " Play ";

   tags[2].ti_Tag  = (Tag)   ASL_CancelText;
   tags[2].ti_Data = (ULONG) " Quit ";

   tags[3].ti_Tag  = (Tag)   TAG_DONE;
   tags[3].ti_Data = (ULONG) N;

   request = AllocAslRequest(ASL_FileRequest, N);
   if(request)
    {
     if(AslRequest(request, &tags[0]))
      {
       ULONG len;

       strcpy(namebuffer, request->rf_Dir);

       len = strlen(namebuffer);
       if(len)
        {
         if(    (namebuffer[len-1] !=        ':')
             && (namebuffer[len-1] !=        '/')
             && (namebuffer[0]     != (char) 0) ) strcat(namebuffer, "/");
        }

       strcat(namebuffer, request->rf_File);

       if(namebuffer[0] != (char) 0) SP_Examine(namebuffer);
      }

     FreeAslRequest(request);
    }
  }else SP_Examine(argv[1]);

 Leave(N, 0);
}


/* *************************************************** */
/* *						     * */
/* * LEAVE : Global Exit Function Replacement	     * */
/* *						     * */
/* *************************************************** */

void __regargs Leave(char *endtext, long code)
{
 if(SuperPlayBase) CloseLibrary((APTR) SuperPlayBase);
 if(AslBase)       CloseLibrary((APTR) AslBase);

 if(endtext)       SP_Printf("%s\n", endtext);

 exit(code);
}

/* *************************************************** */
/* *						     * */
/* * Play-Function				     * */
/* *						     * */
/* *************************************************** */

void __regargs SP_Examine(char *filename)
{
 APTR handle;
 ULONG retval = SPERR_NO_ERROR;
 struct SPO_SampleList  *SampleList;
 struct SPO_SampleEntry *entry;

 handle = SPL_AllocHandle(N);
 if(handle)
  {
               retval = SPL_InitHandleAsDOS( handle, N);
   if(!retval) retval = SPL_ReadPlayData(    handle, filename);
   if(!retval) retval = SPL_GetSampleList(   handle, &SampleList);
   if(!retval)
    {
     if(SampleList)
      {
       SP_Printf("\n This File contains %ld Entrie(s)\n", SampleList->sl_NumEntries);

       for(entry=(APTR) SampleList->sl_EntryList.lh_Head;(entry)&&(entry!=(APTR) &(SampleList->sl_EntryList.lh_Tail));)
        {
         SP_Printf("\n Entry-Version : %ld", entry->se_Version);

         switch(entry->se_Type)
          {
           case SE_TYPE_SAMPLE :
            {
             SP_Printf("\n Entry-Type    : SAMPLE"
                       "\n SampleBuffer  : 0x%lx"
                       "\n SampleSize    : %ld Bytes"
                       "\n SampleBits    : %ld"
                       "\n SamplesPerSec : %ld"
                       "\n Volume        : %ld"
                      , entry->se_SampleBuffer
                      , entry->se_SampleSize
                      , entry->se_SampleBits
                      , entry->se_SamplesPerSec
                      , entry->se_Volume
                      );
             break;
            }
           default :
            {
             SP_Printf("\n Entry-Type    : <Unknown> -> skipped");

             break;
            }
          }

         SP_Printf("\n ----------------------------------");

         entry = (struct SPO_SampleEntry *) entry->se_Node.ln_Succ;
        }

       SP_Printf("\n");

      }else retval = SPERR_ILLEGAL_ACCESS;
    }
  
   SPL_FreeHandle(handle);
 
  }else retval = SPERR_NO_HANDLE;

 if(retval) Leave(SPL_GetErrorString(retval), 0);
}