diff options
| author | norly <ny-git@enpas.org> | 2019-04-26 16:26:03 +0200 |
|---|---|---|
| committer | norly <ny-git@enpas.org> | 2019-04-26 16:33:30 +0200 |
| commit | 6ca1a0f9cd1e5400701ad1ec7d09206aa75ff2f9 (patch) | |
| tree | 624197580f28583cf6b289d6852bd4bb5796711a /apps/plugins/mikmod/loaders/load_uni.c | |
| parent | 1b98f7c930017b5becdb28409eac170c843f23f2 (diff) | |
This is an early port of MikMod to Rockbox that I did back in 2007.
It was one of my early exercises in the C language.
Since I didn't upstream it back then, someone else ended up porting it
with a nicer UI.
Fun fact:
This version's PCM buffers are designed to be just about large enough
to allow an iPod Video to render fm-2year/rapido.xm without pausing.
Diffstat (limited to 'apps/plugins/mikmod/loaders/load_uni.c')
| -rw-r--r-- | apps/plugins/mikmod/loaders/load_uni.c | 718 |
1 files changed, 718 insertions, 0 deletions
diff --git a/apps/plugins/mikmod/loaders/load_uni.c b/apps/plugins/mikmod/loaders/load_uni.c new file mode 100644 index 0000000..ae33671 --- /dev/null +++ b/apps/plugins/mikmod/loaders/load_uni.c @@ -0,0 +1,718 @@ +/* MikMod sound library
+ (c) 1998, 1999, 2000, 2001, 2002 Miodrag Vallat and others - see file
+ AUTHORS for complete list.
+
+ This library is free software; you can redistribute it and/or modify
+ it under the terms of the GNU Library General Public License as
+ published by the Free Software Foundation; either version 2 of
+ the License, or (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU Library General Public License for more details.
+
+ You should have received a copy of the GNU Library General Public
+ License along with this library; if not, write to the Free Software
+ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+ 02111-1307, USA.
+*/
+
+/*==============================================================================
+
+ $Id: load_uni.c,v 1.2 2004/02/06 19:29:03 raph Exp $
+
+ UNIMOD (libmikmod's and APlayer's internal module format) loader
+
+==============================================================================*/
+
+#ifdef HAVE_CONFIG_H
+#include "config.h"
+#endif
+
+#ifdef HAVE_UNISTD_H
+#include <unistd.h>
+#endif
+
+#include <stdio.h>
+#ifdef HAVE_MEMORY_H
+#include <memory.h>
+#endif
+#include <string.h>
+
+#include "mikmod_internals.h"
+
+#ifdef SUNOS
+extern int fprintf(FILE *, const char *, ...);
+#endif
+
+/*========== Module structure */
+
+typedef struct UNIHEADER {
+ CHAR id[4];
+ UBYTE numchn;
+ UWORD numpos;
+ UWORD reppos;
+ UWORD numpat;
+ UWORD numtrk;
+ UWORD numins;
+ UWORD numsmp;
+ UBYTE initspeed;
+ UBYTE inittempo;
+ UBYTE initvolume;
+ UWORD flags;
+ UBYTE numvoices;
+ UWORD bpmlimit;
+
+ UBYTE positions[256];
+ UBYTE panning[32];
+} UNIHEADER;
+
+typedef struct UNISMP05 {
+ UWORD c2spd;
+ UWORD transpose;
+ UBYTE volume;
+ UBYTE panning;
+ ULONG length;
+ ULONG loopstart;
+ ULONG loopend;
+ UWORD flags;
+ CHAR* samplename;
+ UBYTE vibtype;
+ UBYTE vibsweep;
+ UBYTE vibdepth;
+ UBYTE vibrate;
+} UNISMP05;
+
+/*========== Loader variables */
+
+static UWORD universion;
+static UNIHEADER mh;
+
+#define UNI_SMPINCR 64
+static UNISMP05 *wh=NULL,*s=NULL;
+
+/*========== Loader code */
+
+static char* readstring(void)
+{
+ char *s=NULL;
+ UWORD len;
+
+ len=_mm_read_I_UWORD(modreader);
+ if(len) {
+ s=_mm_malloc(len+1);
+ _mm_read_UBYTES(s,len,modreader);
+ s[len]=0;
+ }
+ return s;
+}
+
+BOOL UNI_Test(void)
+{
+ char id[6];
+
+ if(!_mm_read_UBYTES(id,6,modreader)) return 0;
+
+ /* UNIMod created by MikCvt */
+ if(!(memcmp(id,"UN0",3))) {
+ if((id[3]>='4')&&(id[3]<='6')) return 1;
+ }
+ /* UNIMod created by APlayer */
+ if(!(memcmp(id,"APUN\01",5))) {
+ if((id[5]>=1)&&(id[5]<=6)) return 1;
+ }
+ return 0;
+}
+
+BOOL UNI_Init(void)
+{
+ return 1;
+}
+
+void UNI_Cleanup(void)
+{
+ _mm_free(wh);
+ s=NULL;
+}
+
+static UBYTE* readtrack(void)
+{
+ UBYTE *t;
+ UWORD len;
+ int cur=0,chunk;
+
+ if(universion>=6)
+ len=_mm_read_M_UWORD(modreader);
+ else
+ len=_mm_read_I_UWORD(modreader);
+
+ if(!len) return NULL;
+ if(!(t=_mm_malloc(len))) return NULL;
+ _mm_read_UBYTES(t,len,modreader);
+
+ /* Check if the track is correct */
+ while(1) {
+ chunk=t[cur++];
+ if(!chunk) break;
+ chunk=(chunk&0x1f)-1;
+ while(chunk>0) {
+ int opcode,oplen;
+
+ if(cur>=len) {
+ free(t);
+ return NULL;
+ }
+ opcode=t[cur];
+
+ /* Remap opcodes */
+ if (universion <= 5) {
+ if (opcode > 29) {
+ free(t);
+ return NULL;
+ }
+ switch (opcode) {
+ /* UNI_NOTE .. UNI_S3MEFFECTQ are the same */
+ case 25:
+ opcode = UNI_S3MEFFECTT;
+ break;
+ case 26:
+ opcode = UNI_XMEFFECTA;
+ break;
+ case 27:
+ opcode = UNI_XMEFFECTG;
+ break;
+ case 28:
+ opcode = UNI_XMEFFECTH;
+ break;
+ case 29:
+ opcode = UNI_XMEFFECTP;
+ break;
+ }
+ } else {
+ /* APlayer < 1.05 does not have XMEFFECT6 */
+ if (opcode >= UNI_XMEFFECT6 && universion < 0x105)
+ opcode++;
+ /* APlayer < 1.03 does not have ITEFFECTT */
+ if (opcode >= UNI_ITEFFECTT && universion < 0x103)
+ opcode++;
+ /* APlayer < 1.02 does not have ITEFFECTZ */
+ if (opcode >= UNI_ITEFFECTZ && universion < 0x102)
+ opcode++;
+ }
+
+ if((!opcode)||(opcode>=UNI_LAST)) {
+ free(t);
+ return NULL;
+ }
+ t[cur]=opcode;
+ oplen=unioperands[opcode]+1;
+ cur+=oplen;
+ chunk-=oplen;
+ }
+ if((chunk<0)||(cur>=len)) {
+ free(t);
+ return NULL;
+ }
+ }
+ return t;
+}
+
+static BOOL loadsmp6(void)
+{
+ int t;
+ SAMPLE *s;
+
+ s=of.samples;
+ for(t=0;t<of.numsmp;t++,s++) {
+ int flags;
+
+ flags = _mm_read_M_UWORD(modreader);
+ s->flags=0;
+ if(flags&0x0004) s->flags|=SF_STEREO;
+ if(flags&0x0002) s->flags|=SF_SIGNED;
+ if(flags&0x0001) s->flags|=SF_16BITS;
+ /* convert flags */
+ if(universion>=0x104) {
+ if(flags&0x2000) s->flags|=SF_UST_LOOP;
+ if(flags&0x1000) s->flags|=SF_OWNPAN;
+ if(flags&0x0800) s->flags|=SF_SUSTAIN;
+ if(flags&0x0400) s->flags|=SF_REVERSE;
+ if(flags&0x0200) s->flags|=SF_BIDI;
+ if(flags&0x0100) s->flags|=SF_LOOP;
+ if(flags&0x0020) s->flags|=SF_ITPACKED;
+ if(flags&0x0010) s->flags|=SF_DELTA;
+ if(flags&0x0008) s->flags|=SF_BIG_ENDIAN;
+ } else if(universion>=0x102) {
+ if(flags&0x0800) s->flags|=SF_UST_LOOP;
+ if(flags&0x0400) s->flags|=SF_OWNPAN;
+ if(flags&0x0200) s->flags|=SF_SUSTAIN;
+ if(flags&0x0100) s->flags|=SF_REVERSE;
+ if(flags&0x0080) s->flags|=SF_BIDI;
+ if(flags&0x0040) s->flags|=SF_LOOP;
+ if(flags&0x0020) s->flags|=SF_ITPACKED;
+ if(flags&0x0010) s->flags|=SF_DELTA;
+ if(flags&0x0008) s->flags|=SF_BIG_ENDIAN;
+ } else {
+ if(flags&0x400) s->flags|=SF_UST_LOOP;
+ if(flags&0x200) s->flags|=SF_OWNPAN;
+ if(flags&0x100) s->flags|=SF_REVERSE;
+ if(flags&0x080) s->flags|=SF_SUSTAIN;
+ if(flags&0x040) s->flags|=SF_BIDI;
+ if(flags&0x020) s->flags|=SF_LOOP;
+ if(flags&0x010) s->flags|=SF_BIG_ENDIAN;
+ if(flags&0x008) s->flags|=SF_DELTA;
+ }
+
+ s->speed = _mm_read_M_ULONG(modreader);
+ s->volume = _mm_read_UBYTE(modreader);
+ s->panning = _mm_read_M_UWORD(modreader);
+ s->length = _mm_read_M_ULONG(modreader);
+ s->loopstart = _mm_read_M_ULONG(modreader);
+ s->loopend = _mm_read_M_ULONG(modreader);
+ s->susbegin = _mm_read_M_ULONG(modreader);
+ s->susend = _mm_read_M_ULONG(modreader);
+ s->globvol = _mm_read_UBYTE(modreader);
+ s->vibflags = _mm_read_UBYTE(modreader);
+ s->vibtype = _mm_read_UBYTE(modreader);
+ s->vibsweep = _mm_read_UBYTE(modreader);
+ s->vibdepth = _mm_read_UBYTE(modreader);
+ s->vibrate = _mm_read_UBYTE(modreader);
+
+ s->samplename=readstring();
+
+ if(_mm_eof(modreader)) {
+ _mm_errno = MMERR_LOADING_SAMPLEINFO;
+ return 0;
+ }
+ }
+ return 1;
+}
+
+static BOOL loadinstr6(void)
+{
+ int t,w;
+ INSTRUMENT *i;
+
+ i=of.instruments;
+ for(t=0;t<of.numins;t++,i++) {
+ i->flags = _mm_read_UBYTE(modreader);
+ i->nnatype = _mm_read_UBYTE(modreader);
+ i->dca = _mm_read_UBYTE(modreader);
+ i->dct = _mm_read_UBYTE(modreader);
+ i->globvol = _mm_read_UBYTE(modreader);
+ i->panning = _mm_read_M_UWORD(modreader);
+ i->pitpansep = _mm_read_UBYTE(modreader);
+ i->pitpancenter = _mm_read_UBYTE(modreader);
+ i->rvolvar = _mm_read_UBYTE(modreader);
+ i->rpanvar = _mm_read_UBYTE(modreader);
+ i->volfade = _mm_read_M_UWORD(modreader);
+
+#if defined __STDC__ || defined _MSC_VER || defined MPW_C
+#define UNI_LoadEnvelope6(name) \
+ i-> name##flg=_mm_read_UBYTE(modreader); \
+ i-> name##pts=_mm_read_UBYTE(modreader); \
+ i-> name##susbeg=_mm_read_UBYTE(modreader); \
+ i-> name##susend=_mm_read_UBYTE(modreader); \
+ i-> name##beg=_mm_read_UBYTE(modreader); \
+ i-> name##end=_mm_read_UBYTE(modreader); \
+ for(w=0;w<(universion>=0x100?32:i-> name##pts);w++) { \
+ i-> name##env[w].pos=_mm_read_M_SWORD(modreader); \
+ i-> name##env[w].val=_mm_read_M_SWORD(modreader); \
+ }
+#else
+#define UNI_LoadEnvelope6(name) \
+ i-> name/**/flg=_mm_read_UBYTE(modreader); \
+ i-> name/**/pts=_mm_read_UBYTE(modreader); \
+ i-> name/**/susbeg=_mm_read_UBYTE(modreader); \
+ i-> name/**/susend=_mm_read_UBYTE(modreader); \
+ i-> name/**/beg=_mm_read_UBYTE(modreader); \
+ i-> name/**/end=_mm_read_UBYTE(modreader); \
+ for (w=0;w<(universion>=0x100?32:i-> name/**/pts);w++) { \
+ i-> name/**/env[w].pos=_mm_read_M_SWORD(modreader); \
+ i-> name/**/env[w].val=_mm_read_M_SWORD(modreader); \
+ }
+#endif
+
+ UNI_LoadEnvelope6(vol);
+ UNI_LoadEnvelope6(pan);
+ UNI_LoadEnvelope6(pit);
+#undef UNI_LoadEnvelope6
+
+ if(universion>=0x103)
+ _mm_read_M_UWORDS(i->samplenumber,120,modreader);
+ else
+ for(w=0;w<120;w++)
+ i->samplenumber[w]=_mm_read_UBYTE(modreader);
+ _mm_read_UBYTES(i->samplenote,120,modreader);
+
+ i->insname=readstring();
+
+ if(_mm_eof(modreader)) {
+ _mm_errno = MMERR_LOADING_SAMPLEINFO;
+ return 0;
+ }
+ }
+ return 1;
+}
+
+static BOOL loadinstr5(void)
+{
+ INSTRUMENT *i;
+ int t;
+ UWORD wavcnt=0;
+ UBYTE vibtype,vibsweep,vibdepth,vibrate;
+
+ i=of.instruments;
+ for(of.numsmp=t=0;t<of.numins;t++,i++) {
+ int u,numsmp;
+
+ numsmp=_mm_read_UBYTE(modreader);
+
+ memset(i->samplenumber,0xff,INSTNOTES*sizeof(UWORD));
+ for(u=0;u<96;u++)
+ i->samplenumber[u]=of.numsmp+_mm_read_UBYTE(modreader);
+
+#if defined __STDC__ || defined _MSC_VER || defined MPW_C
+#define UNI_LoadEnvelope5(name) \
+ i-> name##flg=_mm_read_UBYTE(modreader); \
+ i-> name##pts=_mm_read_UBYTE(modreader); \
+ i-> name##susbeg=_mm_read_UBYTE(modreader); \
+ i-> name##susend=i-> name##susbeg; \
+ i-> name##beg=_mm_read_UBYTE(modreader); \
+ i-> name##end=_mm_read_UBYTE(modreader); \
+ for(u=0;u<12;u++) { \
+ i-> name##env[u].pos=_mm_read_I_SWORD(modreader); \
+ i-> name##env[u].val=_mm_read_I_SWORD(modreader); \
+ }
+#else
+#define UNI_LoadEnvelope5(name) \
+ i-> name/**/flg=_mm_read_UBYTE(modreader); \
+ i-> name/**/pts=_mm_read_UBYTE(modreader); \
+ i-> name/**/susbeg=_mm_read_UBYTE(modreader); \
+ i-> name/**/susend=i-> name/**/susbeg; \
+ i-> name/**/beg=_mm_read_UBYTE(modreader); \
+ i-> name/**/end=_mm_read_UBYTE(modreader); \
+ for(u=0;u<12;u++) { \
+ i-> name/**/env[u].pos=_mm_read_I_SWORD(modreader); \
+ i-> name/**/env[u].val=_mm_read_I_SWORD(modreader); \
+ }
+#endif
+
+ UNI_LoadEnvelope5(vol);
+ UNI_LoadEnvelope5(pan);
+#undef UNI_LoadEnvelope5
+
+ vibtype =_mm_read_UBYTE(modreader);
+ vibsweep =_mm_read_UBYTE(modreader);
+ vibdepth =_mm_read_UBYTE(modreader);
+ vibrate =_mm_read_UBYTE(modreader);
+
+ i->volfade=_mm_read_I_UWORD(modreader);
+ i->insname=readstring();
+
+ for(u=0;u<numsmp;u++,s++,of.numsmp++) {
+ /* Allocate more room for sample information if necessary */
+ if(of.numsmp+u==wavcnt) {
+ wavcnt+=UNI_SMPINCR;
+ if(!(wh=realloc(wh,wavcnt*sizeof(UNISMP05)))) {
+ _mm_errno=MMERR_OUT_OF_MEMORY;
+ return 0;
+ }
+ s=wh+(wavcnt-UNI_SMPINCR);
+ }
+
+ s->c2spd =_mm_read_I_UWORD(modreader);
+ s->transpose=_mm_read_SBYTE(modreader);
+ s->volume =_mm_read_UBYTE(modreader);
+ s->panning =_mm_read_UBYTE(modreader);
+ s->length =_mm_read_I_ULONG(modreader);
+ s->loopstart=_mm_read_I_ULONG(modreader);
+ s->loopend =_mm_read_I_ULONG(modreader);
+ s->flags =_mm_read_I_UWORD(modreader);
+ s->samplename=readstring();
+
+ s->vibtype =vibtype;
+ s->vibsweep=vibsweep;
+ s->vibdepth=vibdepth;
+ s->vibrate =vibrate;
+
+ if(_mm_eof(modreader)) {
+ free(wh);wh=NULL;
+ _mm_errno=MMERR_LOADING_SAMPLEINFO;
+ return 0;
+ }
+ }
+ }
+
+ /* sanity check */
+ if(!of.numsmp) {
+ if(wh) { free(wh);wh=NULL; }
+ _mm_errno=MMERR_LOADING_SAMPLEINFO;
+ return 0;
+ }
+ return 1;
+}
+
+static BOOL loadsmp5(void)
+{
+ int t,u;
+ SAMPLE *q;
+ INSTRUMENT *d;
+
+ q=of.samples;s=wh;
+ for(u=0;u<of.numsmp;u++,q++,s++) {
+ q->samplename=s->samplename;
+
+ q->length =s->length;
+ q->loopstart=s->loopstart;
+ q->loopend =s->loopend;
+ q->volume =s->volume;
+ q->speed =s->c2spd;
+ q->panning =s->panning;
+ q->vibtype =s->vibtype;
+ q->vibsweep =s->vibsweep;
+ q->vibdepth =s->vibdepth;
+ q->vibrate =s->vibrate;
+
+ /* convert flags */
+ q->flags=0;
+ if(s->flags&128) q->flags|=SF_REVERSE;
+ if(s->flags& 64) q->flags|=SF_SUSTAIN;
+ if(s->flags& 32) q->flags|=SF_BIDI;
+ if(s->flags& 16) q->flags|=SF_LOOP;
+ if(s->flags& 8) q->flags|=SF_BIG_ENDIAN;
+ if(s->flags& 4) q->flags|=SF_DELTA;
+ if(s->flags& 2) q->flags|=SF_SIGNED;
+ if(s->flags& 1) q->flags|=SF_16BITS;
+ }
+
+ d=of.instruments;s=wh;
+ for(u=0;u<of.numins;u++,d++)
+ for(t=0;t<INSTNOTES;t++)
+ d->samplenote[t]=(d->samplenumber[t]>=of.numsmp)?
+ 255:(t+s[d->samplenumber[t]].transpose);
+
+ free(wh);wh=NULL;
+
+ return 1;
+}
+
+BOOL UNI_Load(BOOL curious)
+{
+ int t;
+ char *modtype,*oldtype=NULL;
+ INSTRUMENT *d;
+ SAMPLE *q;
+ (void)curious;
+
+ /* read module header */
+ _mm_read_UBYTES(mh.id,4,modreader);
+ if(mh.id[3]!='N')
+ universion=mh.id[3]-'0';
+ else
+ universion=0x100;
+
+ if(universion>=6) {
+ if (universion==6)
+ _mm_read_UBYTE(modreader);
+ else
+ universion=_mm_read_M_UWORD(modreader);
+
+ mh.flags =_mm_read_M_UWORD(modreader);
+ mh.numchn =_mm_read_UBYTE(modreader);
+ mh.numvoices =_mm_read_UBYTE(modreader);
+ mh.numpos =_mm_read_M_UWORD(modreader);
+ mh.numpat =_mm_read_M_UWORD(modreader);
+ mh.numtrk =_mm_read_M_UWORD(modreader);
+ mh.numins =_mm_read_M_UWORD(modreader);
+ mh.numsmp =_mm_read_M_UWORD(modreader);
+ mh.reppos =_mm_read_M_UWORD(modreader);
+ mh.initspeed =_mm_read_UBYTE(modreader);
+ mh.inittempo =_mm_read_UBYTE(modreader);
+ mh.initvolume=_mm_read_UBYTE(modreader);
+ /* I expect this to show up soon in APlayer 1.06 format */
+ if (universion >= 0x106)
+ mh.bpmlimit=_mm_read_M_UWORD(modreader);
+ else
+ mh.bpmlimit=32;
+
+ mh.flags &= UF_XMPERIODS | UF_LINEAR | UF_INST | UF_NNA;
+ mh.flags |= UF_PANNING;
+ } else {
+ mh.numchn =_mm_read_UBYTE(modreader);
+ mh.numpos =_mm_read_I_UWORD(modreader);
+ mh.reppos =(universion==5)?_mm_read_I_UWORD(modreader):0;
+ mh.numpat =_mm_read_I_UWORD(modreader);
+ mh.numtrk =_mm_read_I_UWORD(modreader);
+ mh.numins =_mm_read_I_UWORD(modreader);
+ mh.initspeed =_mm_read_UBYTE(modreader);
+ mh.inittempo =_mm_read_UBYTE(modreader);
+ _mm_read_UBYTES(mh.positions,256,modreader);
+ _mm_read_UBYTES(mh.panning,32,modreader);
+ mh.flags =_mm_read_UBYTE(modreader);
+ mh.bpmlimit =32;
+
+ mh.flags &= UF_XMPERIODS | UF_LINEAR;
+ mh.flags |= UF_INST | UF_NOWRAP | UF_PANNING;
+ }
+
+ /* set module parameters */
+ of.flags =mh.flags;
+ of.numchn =mh.numchn;
+ of.numpos =mh.numpos;
+ of.numpat =mh.numpat;
+ of.numtrk =mh.numtrk;
+ of.numins =mh.numins;
+ of.reppos =mh.reppos;
+ of.initspeed =mh.initspeed;
+ of.inittempo =mh.inittempo;
+ if(mh.bpmlimit)
+ of.bpmlimit=mh.bpmlimit;
+ else
+ /* be bug-compatible with older releases */
+ of.bpmlimit=32;
+
+ of.songname=readstring();
+ if(universion<0x102)
+ oldtype=readstring();
+ if(oldtype) {
+ int len=strlen(oldtype)+20;
+ if(!(modtype=_mm_malloc(len))) return 0;
+#ifdef HAVE_SNPRINTF
+ snprintf(modtype,len,"%s (was %s)",(universion>=0x100)?"APlayer":"MikCvt2",oldtype);
+#else
+ sprintf(modtype,"%s (was %s)",(universion>=0x100)?"APlayer":"MikCvt2",oldtype);
+#endif
+ } else {
+ if(!(modtype=_mm_malloc(10))) return 0;
+#ifdef HAVE_SNPRINTF
+ snprintf(modtype,10,"%s",(universion>=0x100)?"APlayer":"MikCvt3");
+#else
+ sprintf(modtype,"%s",(universion>=0x100)?"APlayer":"MikCvt3");
+#endif
+ }
+ of.modtype=strdup(modtype);
+ free(modtype);free(oldtype);
+ of.comment=readstring();
+
+ if(universion>=6) {
+ of.numvoices=mh.numvoices;
+ of.initvolume=mh.initvolume;
+ }
+
+ if(_mm_eof(modreader)) {
+ _mm_errno=MMERR_LOADING_HEADER;
+ return 0;
+ }
+
+ /* positions */
+ if(!AllocPositions(of.numpos)) return 0;
+ if(universion>=6) {
+ if(universion>=0x100)
+ _mm_read_M_UWORDS(of.positions,of.numpos,modreader);
+ else
+ for(t=0;t<of.numpos;t++) of.positions[t]=_mm_read_UBYTE(modreader);
+ _mm_read_M_UWORDS(of.panning,of.numchn,modreader);
+ _mm_read_UBYTES(of.chanvol,of.numchn,modreader);
+ } else {
+ if((mh.numpos>256)||(mh.numchn>32)) {
+ _mm_errno=MMERR_LOADING_HEADER;
+ return 0;
+ }
+ for(t=0;t<of.numpos;t++) of.positions[t]=mh.positions[t];
+ for(t=0;t<of.numchn;t++) of.panning[t]=mh.panning[t];
+ }
+ /* convert the ``end of song'' pattern code if necessary */
+ if(universion<0x106)
+ for(t=0;t<of.numpos;t++)
+ if(of.positions[t]==255) of.positions[t]=LAST_PATTERN;
+
+ /* instruments and samples */
+ if(universion>=6) {
+ of.numsmp=mh.numsmp;
+ if(!AllocSamples()) return 0;
+ if(!loadsmp6()) return 0;
+
+ if(of.flags&UF_INST) {
+ if(!AllocInstruments()) return 0;
+ if(!loadinstr6()) return 0;
+ }
+ } else {
+ if(!AllocInstruments()) return 0;
+ if(!loadinstr5()) return 0;
+ if(!AllocSamples()) {
+ if(wh) { free(wh);wh=NULL; }
+ return 0;
+ }
+ if(!loadsmp5()) return 0;
+
+ /* check if the original file had no instruments */
+ if(of.numsmp==of.numins) {
+ for(t=0,d=of.instruments;t<of.numins;t++,d++) {
+ int u;
+
+ if((d->volpts)||(d->panpts)||(d->globvol!=64)) break;
+ for(u=0;u<96;u++)
+ if((d->samplenumber[u]!=t)||(d->samplenote[u]!=u)) break;
+ if(u!=96) break;
+ }
+ if(t==of.numins) {
+ of.flags&=~UF_INST;
+ of.flags&=~UF_NOWRAP;
+ for(t=0,d=of.instruments,q=of.samples;t<of.numins;t++,d++,q++) {
+ q->samplename=d->insname;
+ d->insname=NULL;
+ }
+ }
+ }
+ }
+
+ /* patterns */
+ if(!AllocPatterns()) return 0;
+ if(universion>=6) {
+ _mm_read_M_UWORDS(of.pattrows,of.numpat,modreader);
+ _mm_read_M_UWORDS(of.patterns,of.numpat*of.numchn,modreader);
+ } else {
+ _mm_read_I_UWORDS(of.pattrows,of.numpat,modreader);
+ _mm_read_I_UWORDS(of.patterns,of.numpat*of.numchn,modreader);
+ }
+
+ /* tracks */
+ if(!AllocTracks()) return 0;
+ for(t=0;t<of.numtrk;t++)
+ if(!(of.tracks[t]=readtrack())) {
+ _mm_errno=MMERR_LOADING_TRACK;
+ return 0;
+ }
+
+ return 1;
+}
+
+CHAR *UNI_LoadTitle(void)
+{
+ UBYTE ver;
+ int posit[3]={304,306,26};
+
+ _mm_fseek(modreader,3,SEEK_SET);
+ ver=_mm_read_UBYTE(modreader);
+ if(ver=='N') ver='6';
+
+ _mm_fseek(modreader,posit[ver-'4'],SEEK_SET);
+ return readstring();
+}
+
+/*========== Loader information */
+
+MIKMODAPI MLOADER load_uni={
+ NULL,
+ "UNI",
+ "APUN (APlayer) and UNI (MikMod)",
+ UNI_Init,
+ UNI_Test,
+ UNI_Load,
+ UNI_Cleanup,
+ UNI_LoadTitle
+};
+
+/* ex:set ts=4: */
|