/*
** Datatype Sound Player
*/

#include "include/config.h"

#include <proto/exec.h>
#include <proto/datatypes.h>
#include <proto/dtclass.h>
#include <clib/datatypes_protos.h>
#include <clib/alib_protos.h>
#include <datatypes/datatypes.h>
#include <datatypes/datatypesclass.h>
#include <datatypes/soundclass.h>

#include "include/thread.h"

void __asm __saveds snd_player(void);


void snd_play(char *fname)
{
	if(!fname) return;
	th_spawn(NULL,"Amster sound player",snd_player,fname);
}


void __asm __saveds snd_player(void)
{
	thread t;
	struct Library *DosBase;
	struct Library *DataTypesBase;
	Object *sample;
	struct dtTrigger trigger;
	long ssig,tsig;

	t = thr_init();
	if(!t) return;
	tsig = (1L << (t->port->mp_SigBit));

	DosBase = OpenLibrary("dos.library",36);
	if(!DosBase) {
		thr_exit(t,1);
		return;
	}
	DataTypesBase = OpenLibrary("datatypes.library",39);
	if (!DataTypesBase) {
		CloseLibrary(DosBase);
		thr_exit(t,1);
		return;
	}

	ssig = AllocSignal(-1);
	if(ssig == -1) {
		CloseLibrary(DataTypesBase);
		CloseLibrary(DosBase);
		thr_exit(t,1);
		return;
	}

	sample = NewDTObject((char*)t->data, DTA_GroupID, GID_SOUND, TAG_DONE);
	if(!sample) {
		FreeSignal(ssig);
		CloseLibrary(DataTypesBase);
		CloseLibrary(DosBase);
		thr_exit(t,2);
		return;
	}

	SetDTAttrs(sample,NULL,NULL,SDTA_SignalBit,ssig,SDTA_SignalTask,t->task,TAG_DONE);

	trigger.MethodID = DTM_TRIGGER;
	trigger.dtt_GInfo = NULL;
	trigger.dtt_Function = STM_PLAY;
	trigger.dtt_Data = NULL;
	DoDTMethodA(sample,0L,0L,(Msg)&trigger);

	Wait((1L<<ssig)|tsig|SIGBREAKF_CTRL_C);

	DisposeDTObject(sample);
	FreeSignal(ssig);
	CloseLibrary(DataTypesBase);
	CloseLibrary(DosBase);
	thr_exit(t,0);
}