#include <proto/exec.h>
#include <proto/freedb.h>
#include <proto/dos.h>
#include <signal.h>
#include <stdio.h>
#include <string.h>

/***************************************************************************/

#ifndef SAVEDS
#define SAVEDS  __saveds
#endif

#ifndef ASM
#define ASM     __asm
#endif

#ifndef REG
#define REG(x)  register __ ## x
#endif

/***************************************************************************/

struct Library *FreeDBBase;

/***************************************************************************/

SAVEDS ASM LONG
statusFun(REG(a0) struct Hook *hook,REG(a1) ULONG status,REG(a2) APTR handle)
{
    FPrintf((BPTR)hook->h_Data," Status: %ld [%s]\n",status,FreeDBGetString(status));

    return 0;
}

/***************************************************************************/

SAVEDS ASM LONG
multiFun(REG(a0) struct Hook *hook,REG(a1) struct FREEDBS_MultiHookMessage *msg,REG(a2) APTR handle)
{
    FPrintf((BPTR)hook->h_Data,"\\
 Categ: %s\n\\
DiscID: %08lx\n\\
Artist: %s\n\\
 Title: %s\n\n",
msg->categ,
msg->discID,
msg->artist,
msg->title);

    FreeDBFreeMessage(msg);
    return 0;
}

/***************************************************************************/

void main(void)
{
    signal(SIGINT,SIG_IGN);

    if (FreeDBBase = OpenLibrary(FreeDBName,FreeDBVersion))
    {
        register struct FREEDBS_DiscInfo  *di;
        LONG                            err;

        if (di = FreeDBAllocObject(FREEDBV_AllocObject_DiscInfoTOC,TAG_DONE))
        {
            register struct FREEDBS_TOC *toc = FREEDBM_GETTOCFROMDI(di);

            if (!(err = FreeDBReadTOC(FREEDBA_TOC,toc,FREEDBA_DeviceName,"CD0",TAG_DONE)))
            {
                register APTR handle;

                if (handle = FreeDBHandleCreateA(NULL))
                {
                    struct Hook     statusHook, multiHook;
                    register LONG   res;

                    statusHook.h_Entry = (APTR)statusFun;
                    statusHook.h_Data  = (APTR)Output();

                    multiHook.h_Entry = (APTR)multiFun;
                    multiHook.h_Data  = (APTR)Output();

                    res = FreeDBGetDisc(FREEDBA_Handle,     handle,
                                      FREEDBA_TOC,        toc,
                                      FREEDBA_DiscInfo,   di,
                                      FREEDBA_StatusHook, &statusHook,
                                      FREEDBA_MultiHook,  &multiHook,
                                      FREEDBA_ErrorPtr,   &err,
                                      TAG_DONE);

                    switch (res)
                    {
                        case FREEDBV_GetDisc_LocalFound:
                            break;

                        case FREEDBV_GetDisc_LocalMulti:
                            break;

                        case FREEDBV_GetDisc_Remote:
                            err = FreeDBHandleWait(handle);
                            break;

                        case FREEDBV_GetDisc_Error:
                            break;
                    }

                    if (!err)
                    {
                        register int i;

                        printf("DiscID: %lx\n",di->discID);
                        printf("Artist: %s\n",di->artist);
                        printf(" Title: %s\n",di->title);
                        printf("  Year: %ld\n",di->year);
                        printf(" Categ: %s\n",di->categ);
                        printf(" Genre: %s\n",di->genre);
                        printf("  Extd: %s\n",di->extd ? di->extd : "");
                        printf(" Flags: %lx\n",di->flags);

                        for (i = 0; i<di->numTracks; i++)
                        {
                            printf("Title %ld: %s\n",i,di->tracks[i]->title);
                            if (di->tracks[i]->extd)  printf(" Extd %ld: %s\n",i,di->tracks[i]->extd);
                        }
                    }
                    else printf("GetDisc error: %s\n",FreeDBGetString(err));

                    FreeDBHandleFree(handle);
                }
                else printf("Can't create handle\n");
            }
            else printf("Can't read TOC: %s\n",FreeDBGetString(err));

            FreeDBFreeObject(di);
        }
        else printf("No DiscInfo\n");

        CloseLibrary(FreeDBBase);
    }
    else printf("No %s %ld+\n",FreeDBName,FreeDBVersion);
}

/***************************************************************************/