X-Git-Url: http://git.mutantstargoat.com/user/nuclear/?p=dosdemo;a=blobdiff_plain;f=libs%2Foldmik%2Fsrc%2Fmdriver.c;fp=libs%2Foldmik%2Fsrc%2Fmdriver.c;h=d7c5de9c581d1184776ea8b3c2254bed6fd6a1ce;hp=0000000000000000000000000000000000000000;hb=77db1ca18d5446dcda9e524261399b63c2cd1813;hpb=a714b8c4811627d874934b0a0387b8cb27fc5921

diff --git a/libs/oldmik/src/mdriver.c b/libs/oldmik/src/mdriver.c
new file mode 100644
index 0000000..d7c5de9
--- /dev/null
+++ b/libs/oldmik/src/mdriver.c
@@ -0,0 +1,264 @@
+/*
+
+Name:
+MDRIVER.C
+
+Description:
+These routines are used to access the available soundcard drivers.
+
+Portability:
+All systems - all compilers
+
+*/
+#include <stdio.h>
+#include <stdlib.h>
+#include "mikmod.h"
+
+DRIVER *firstdriver=NULL,*md_driver;
+
+UWORD md_device         =0;
+UWORD md_mixfreq        =44100;
+UWORD md_mode           =0;
+UWORD md_dmabufsize     =8192;
+UBYTE md_numchn         =0;
+UBYTE md_bpm            =125;
+
+static void dummyplay(void)
+{
+}
+
+void (*md_player)(void)=dummyplay;
+
+static FILE *sl_fp;
+static SWORD sl_old;
+static UWORD sl_infmt;
+static UWORD sl_outfmt;
+static SWORD sl_buffer[1024];
+
+static BOOL isplaying=0;
+
+
+void SL_Init(FILE *fp,UWORD infmt,UWORD outfmt)
+{
+	sl_old=0;
+	sl_fp=fp;
+	sl_infmt=infmt;
+	sl_outfmt=outfmt;
+}
+
+
+void SL_Exit(void)
+{
+}
+
+
+void SL_Load(void *buffer,ULONG length)
+{
+	SBYTE *bptr=(SBYTE *)buffer;
+	SWORD *wptr=(SWORD *)buffer;
+	UWORD stodo;
+	int t;
+
+	/* compute number of samples to load */
+	if(sl_outfmt & SF_16BITS) length>>=1;
+
+	while(length){
+
+		stodo=(length<1024) ? length : 1024;
+
+		if(sl_infmt&SF_16BITS){
+			fread(sl_buffer,sizeof(SWORD),stodo,sl_fp);
+#ifdef MM_BIG_ENDIAN
+			if(!(sl_infmt&SF_BIG_ENDIAN))
+				swab((char *)sl_buffer,(char *)sl_buffer,stodo<<1);
+#else
+                        /* assume machine is little endian by default */
+			if(sl_infmt&SF_BIG_ENDIAN)
+				swab((char *)sl_buffer,(char *)sl_buffer,stodo<<1);
+#endif
+		}
+		else{
+			SBYTE *s;
+			SWORD *d;
+
+			fread(sl_buffer,sizeof(SBYTE),stodo,sl_fp);
+
+			s=(SBYTE *)sl_buffer;
+			d=sl_buffer;
+			s+=stodo;
+			d+=stodo;
+
+                        for(t=0;t<stodo;t++){
+				s--;
+				d--;
+				*d=(*s)<<8;
+			}
+		}
+
+		if(sl_infmt & SF_DELTA){
+			for(t=0;t<stodo;t++){
+				sl_buffer[t]+=sl_old;
+				sl_old=sl_buffer[t];
+			}
+		}
+
+		if((sl_infmt^sl_outfmt) & SF_SIGNED){
+			for(t=0;t<stodo;t++){
+				sl_buffer[t]^=0x8000;
+			}
+		}
+
+		if(sl_outfmt & SF_16BITS){
+			for(t=0;t<stodo;t++) *(wptr++)=sl_buffer[t];
+		}
+		else{
+			for(t=0;t<stodo;t++) *(bptr++)=sl_buffer[t]>>8;
+		}
+
+		length-=stodo;
+	}
+}
+
+
+void MD_InfoDriver(void)
+{
+	int t;
+	DRIVER *l;
+
+	/* list all registered devicedrivers: */
+
+	for(t=1,l=firstdriver; l!=NULL; l=l->next, t++){
+		printf("%d. %s\n",t,l->Version);
+	}
+}
+
+
+void MD_RegisterDriver(DRIVER *drv)
+{
+	if(firstdriver==NULL){
+		firstdriver=drv;
+		drv->next=NULL;
+	}
+	else{
+		drv->next=firstdriver;
+		firstdriver=drv;
+	}
+}
+
+
+SWORD MD_SampleLoad(FILE *fp,ULONG size,ULONG reppos,ULONG repend,UWORD flags)
+{
+	SWORD result=md_driver->SampleLoad(fp,size,reppos,repend,flags);
+	SL_Exit();
+	return result;
+}
+
+
+void MD_SampleUnLoad(SWORD handle)
+{
+	md_driver->SampleUnLoad(handle);
+}
+
+
+BOOL MD_Init(void)
+{
+	UWORD t;
+
+	/* if md_device==0, try to find a device number */
+
+	if(md_device==0){
+
+		for(t=1,md_driver=firstdriver; md_driver!=NULL; md_driver=md_driver->next, t++){
+			if(md_driver->IsPresent()) break;
+		}
+
+		if(md_driver==NULL){
+			myerr="You don't have any of the supported sound-devices";
+			return 0;
+		}
+
+		md_device=t;
+	}
+
+	/* if n>0 use that driver */
+
+	for(t=1,md_driver=firstdriver; md_driver!=NULL && t!=md_device; md_driver=md_driver->next, t++);
+
+	if(md_driver==NULL){
+		myerr="Device number out of range";
+		return 0;
+	}
+
+	return(md_driver->Init());
+}
+
+
+void MD_Exit(void)
+{
+	md_driver->Exit();
+}
+
+
+void MD_PlayStart(void)
+{
+	/* safety valve, prevents entering
+	   playstart twice: */
+
+	if(isplaying) return;
+	md_driver->PlayStart();
+	isplaying=1;
+}
+
+
+void MD_PlayStop(void)
+{
+	/* safety valve, prevents calling playStop when playstart
+	   hasn't been called: */
+
+	if(isplaying){
+		isplaying=0;
+		md_driver->PlayStop();
+	}
+}
+
+
+void MD_SetBPM(UBYTE bpm)
+{
+	md_bpm=bpm;
+}
+
+
+void MD_RegisterPlayer(void (*player)(void))
+{
+	md_player=player;
+}
+
+
+void MD_Update(void)
+{
+	if(isplaying) md_driver->Update();
+}
+
+
+void MD_VoiceSetVolume(UBYTE voice,UBYTE vol)
+{
+	md_driver->VoiceSetVolume(voice,vol);
+}
+
+
+void MD_VoiceSetFrequency(UBYTE voice,ULONG frq)
+{
+	md_driver->VoiceSetFrequency(voice,frq);
+}
+
+
+void MD_VoiceSetPanning(UBYTE voice,ULONG pan)
+{
+	md_driver->VoiceSetPanning(voice,pan);
+}
+
+
+void MD_VoicePlay(UBYTE voice,SWORD handle,ULONG start,ULONG size,ULONG reppos,ULONG repend,UWORD flags)
+{
+	md_driver->VoicePlay(voice,handle,start,size,reppos,repend,flags);
+}