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

diff --git a/libs/oldmik/src/load_uni.c b/libs/oldmik/src/load_uni.c
new file mode 100644
index 0000000..27b7407
--- /dev/null
+++ b/libs/oldmik/src/load_uni.c
@@ -0,0 +1,190 @@
+/*
+
+Name:
+LOAD_UNI.C
+
+Description:
+UNIMOD (mikmod's internal format) module loader.
+
+Portability:
+All systems - all compilers (hopefully)
+
+*/
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include "mikmod.h"
+
+
+BOOL UNI_Test(void)
+{
+	char id[4];
+	if(!fread(id,4,1,modfp)) return 0;
+	if(!memcmp(id,"UN05",4)) return 1;
+	return 0;
+}
+
+
+BOOL UNI_Init(void)
+{
+	return 1;
+}
+
+
+void UNI_Cleanup(void)
+{
+	;
+}
+
+
+char *StrRead(void)
+{
+	char *s;
+	UWORD len;
+
+	len=_mm_read_I_UWORD(modfp);
+	if(!len) return NULL;
+
+	s=(char *)malloc(len+1);
+	fread(s,len,1,modfp);
+	s[len]=0;
+
+	return s;
+}
+
+
+UBYTE *TrkRead(void)
+{
+	UBYTE *t;
+	UWORD len;
+
+	len=_mm_read_I_UWORD(modfp);
+	t=(UBYTE *)malloc(len);
+	fread(t,len,1,modfp);
+	return t;
+}
+
+
+
+BOOL UNI_Load(void)
+{
+	int t,u;
+
+	_mm_fseek(modfp,4,SEEK_SET);
+
+	/* try to read module header */
+
+	of.numchn	=_mm_read_UBYTE(modfp);
+	of.numpos	=_mm_read_I_UWORD(modfp);
+	of.reppos	=_mm_read_I_UWORD(modfp);
+	of.numpat	=_mm_read_I_UWORD(modfp);
+	of.numtrk	=_mm_read_I_UWORD(modfp);
+	of.numins	=_mm_read_I_UWORD(modfp);
+	of.initspeed=_mm_read_UBYTE(modfp);
+	of.inittempo=_mm_read_UBYTE(modfp);
+	_mm_read_UBYTES(of.positions,256,modfp);
+	_mm_read_UBYTES(of.panning,32,modfp);
+	of.flags	=_mm_read_UBYTE(modfp);
+
+	if(feof(modfp)){
+		myerr=ERROR_LOADING_HEADER;
+		return 0;
+	}
+
+	of.songname=StrRead();
+	of.modtype=StrRead();
+	of.comment=StrRead();   /* <- new since UN01 */
+
+/*	printf("Song: %s\nModty: %s\n",of.songname,of.modtype);
+*/
+
+	if(!AllocInstruments()) return 0;
+	if(!AllocTracks()) return 0;
+	if(!AllocPatterns()) return 0;
+
+	/* Read sampleinfos */
+
+	for(t=0;t<of.numins;t++){
+
+		INSTRUMENT *i=&of.instruments[t];
+
+		i->numsmp=_mm_read_UBYTE(modfp);
+		_mm_read_UBYTES(i->samplenumber,96,modfp);
+
+		i->volflg=_mm_read_UBYTE(modfp);
+		i->volpts=_mm_read_UBYTE(modfp);
+		i->volsus=_mm_read_UBYTE(modfp);
+		i->volbeg=_mm_read_UBYTE(modfp);
+		i->volend=_mm_read_UBYTE(modfp);
+
+		for(u=0;u<12;u++){
+			i->volenv[u].pos=_mm_read_I_SWORD(modfp);
+			i->volenv[u].val=_mm_read_I_SWORD(modfp);
+		}
+
+		i->panflg=_mm_read_UBYTE(modfp);
+		i->panpts=_mm_read_UBYTE(modfp);
+		i->pansus=_mm_read_UBYTE(modfp);
+		i->panbeg=_mm_read_UBYTE(modfp);
+		i->panend=_mm_read_UBYTE(modfp);
+
+		for(u=0;u<12;u++){
+			i->panenv[u].pos=_mm_read_I_SWORD(modfp);
+			i->panenv[u].val=_mm_read_I_SWORD(modfp);
+		}
+
+		i->vibtype	=_mm_read_UBYTE(modfp);
+		i->vibsweep	=_mm_read_UBYTE(modfp);
+		i->vibdepth	=_mm_read_UBYTE(modfp);
+		i->vibrate	=_mm_read_UBYTE(modfp);
+
+		i->volfade	=_mm_read_I_UWORD(modfp);
+		i->insname	=StrRead();
+
+/*		printf("Ins: %s\n",i->insname);
+*/
+		if(!AllocSamples(i)) return 0;
+
+		for(u=0;u<i->numsmp;u++){
+
+			SAMPLE *s=&i->samples[u];
+
+			s->c2spd	= _mm_read_I_UWORD(modfp);
+			s->transpose= _mm_read_SBYTE(modfp);
+			s->volume	= _mm_read_UBYTE(modfp);
+			s->panning	= _mm_read_UBYTE(modfp);
+			s->length	= _mm_read_I_ULONG(modfp);
+			s->loopstart= _mm_read_I_ULONG(modfp);
+			s->loopend	= _mm_read_I_ULONG(modfp);
+			s->flags	= _mm_read_I_UWORD(modfp);
+			s->seekpos	= 0;
+
+			s->samplename=StrRead();
+		}
+	}
+
+	/* Read patterns */
+
+	_mm_read_I_UWORDS(of.pattrows,of.numpat,modfp);
+	_mm_read_I_UWORDS(of.patterns,of.numpat*of.numchn,modfp);
+
+	/* Read tracks */
+
+	for(t=0;t<of.numtrk;t++){
+		of.tracks[t]=TrkRead();
+	}
+
+	return 1;
+}
+
+
+LOADER load_uni={
+	NULL,
+	"UNI",
+	"Portable UNI loader v0.3",
+	UNI_Init,
+	UNI_Test,
+	UNI_Load,
+	UNI_Cleanup
+};
+