static int mod_load(struct module_data *m, FILE *f, const int start)
{
struct xmp_module *mod = &m->mod;
int i, j;
int smp_size, pat_size, wow, ptsong = 0;
struct xmp_event *event;
struct mod_header mh;
uint8 mod_event[4];
char *x, pathname[PATH_MAX] = "", *tracker = "";
int detected = 0;
char magic[8], idbuffer[32];
int ptkloop = 0; /* Protracker loop */
LOAD_INIT();
mod->ins = 31;
mod->smp = mod->ins;
mod->chn = 0;
smp_size = 0;
pat_size = 0;
m->quirk |= QUIRK_MODRNG;
fread(&mh.name, 20, 1, f);
for (i = 0; i < 31; i++) {
fread(&mh.ins[i].name, 22, 1, f); /* Instrument name */
mh.ins[i].size = read16b(f); /* Length in 16-bit words */
mh.ins[i].finetune = read8(f); /* Finetune (signed nibble) */
mh.ins[i].volume = read8(f); /* Linear playback volume */
mh.ins[i].loop_start = read16b(f); /* Loop start in 16-bit words */
mh.ins[i].loop_size = read16b(f); /* Loop size in 16-bit words */
smp_size += 2 * mh.ins[i].size;
}
mh.len = read8(f);
mh.restart = read8(f);
fread(&mh.order, 128, 1, f);
memset(magic, 0, 8);
fread(magic, 4, 1, f);
for (i = 0; mod_magic[i].ch; i++) {
if (!(strncmp (magic, mod_magic[i].magic, 4))) {
mod->chn = mod_magic[i].ch;
tracker = mod_magic[i].tracker;
detected = mod_magic[i].flag;
ptkloop = mod_magic[i].ptkloop;
break;
}
}
if (!mod->chn) {
if (!strncmp(magic + 2, "CH", 2) &&
isdigit(magic[0]) && isdigit(magic[1])) {
if ((mod->chn = (*magic - '0') *
10 + magic[1] - '0') > 32)
return -1;
} else if (!strncmp(magic + 1, "CHN", 3) &&
isdigit(*magic)) {
if (!(mod->chn = (*magic - '0')))
return -1;
} else
return -1;
tracker = "TakeTracker/FastTracker II";
detected = 1;
m->quirk &= ~QUIRK_MODRNG;
}
strncpy (mod->name, (char *) mh.name, 20);
mod->len = mh.len;
/* mod->rst = mh.restart; */
if (mod->rst >= mod->len)
mod->rst = 0;
memcpy(mod->xxo, mh.order, 128);
for (i = 0; i < 128; i++) {
/* This fixes dragnet.mod (garbage in the order list) */
if (mod->xxo[i] > 0x7f)
break;
if (mod->xxo[i] > mod->pat)
mod->pat = mod->xxo[i];
}
mod->pat++;
pat_size = 256 * mod->chn * mod->pat;
INSTRUMENT_INIT();
for (i = 0; i < mod->ins; i++) {
mod->xxi[i].sub = calloc(sizeof (struct xmp_subinstrument), 1);
mod->xxs[i].len = 2 * mh.ins[i].size;
mod->xxs[i].lps = 2 * mh.ins[i].loop_start;
mod->xxs[i].lpe = mod->xxs[i].lps + 2 * mh.ins[i].loop_size;
if (mod->xxs[i].lpe > mod->xxs[i].len)
mod->xxs[i].lpe = mod->xxs[i].len;
mod->xxs[i].flg = (mh.ins[i].loop_size > 1 && mod->xxs[i].lpe > 8) ?
XMP_SAMPLE_LOOP : 0;
mod->xxi[i].sub[0].fin = (int8)(mh.ins[i].finetune << 4);
mod->xxi[i].sub[0].vol = mh.ins[i].volume;
mod->xxi[i].sub[0].pan = 0x80;
mod->xxi[i].sub[0].sid = i;
mod->xxi[i].nsm = !!(mod->xxs[i].len);
copy_adjust(mod->xxi[i].name, mh.ins[i].name, 22);
}
/*
* Experimental tracker-detection routine
*/
if (detected)
goto skip_test;
/* Test for Flextrax modules
*
* FlexTrax is a soundtracker for Atari Falcon030 compatible computers.
* FlexTrax supports the standard MOD file format (up to eight channels)
* for compatibility reasons but also features a new enhanced module
* format FLX. The FLX format is an extended version of the standard
* MOD file format with support for real-time sound effects like reverb
* and delay.
*/
if (0x43c + mod->pat * 4 * mod->chn * 0x40 + smp_size < m->size) {
int pos = ftell(f);
fseek(f, start + 0x43c + mod->pat * 4 * mod->chn * 0x40 + smp_size, SEEK_SET);
fread(idbuffer, 1, 4, f);
fseek(f, start + pos, SEEK_SET);
if (!memcmp(idbuffer, "FLEX", 4)) {
tracker = "Flextrax";
ptkloop = 0;
goto skip_test;
}
}
/* Test for Mod's Grave WOW modules
*
* Stefan Danes <*****@*****.**> said:
* This weird format is identical to '8CHN' but still uses the 'M.K.' ID.
* You can only test for WOW by calculating the size of the module for 8
* channels and comparing this to the actual module length. If it's equal,
* the module is an 8 channel WOW.
*/
if ((wow = (!strncmp(magic, "M.K.", 4) &&
(0x43c + mod->pat * 32 * 0x40 + smp_size == m->size)))) {
mod->chn = 8;
tracker = "Mod's Grave";
ptkloop = 0;
goto skip_test;
}
/* Test for Protracker song files
*/
else if ((ptsong = (!strncmp((char *)magic, "M.K.", 4) &&
(0x43c + mod->pat * 0x400 == m->size)))) {
tracker = "Protracker";
goto skip_test;
}
/* Test Protracker-like files
*/
if (mod->chn == 4 && mh.restart == mod->pat) {
tracker = "Soundtracker";
} else if (mod->chn == 4 && mh.restart == 0x78) {
tracker = "Noisetracker" /*" (0x78)"*/;
ptkloop = 1;
} else if (mh.restart < 0x7f) {
if (mod->chn == 4) {
tracker = "Noisetracker";
ptkloop = 1;
} else {
tracker = "unknown tracker";
ptkloop = 0;
}
mod->rst = mh.restart;
}
if (mod->chn != 4 && mh.restart == 0x7f) {
tracker = "Scream Tracker 3 MOD";
ptkloop = 0;
m->quirk &= ~QUIRK_MODRNG;
m->read_event_type = READ_EVENT_ST3;
}
if (mod->chn == 4 && mh.restart == 0x7f) {
for (i = 0; i < 31; i++) {
if (mh.ins[i].loop_size == 0)
break;
}
if (i < 31) {
tracker = "Protracker clone";
ptkloop = 0;
}
}
if (mh.restart != 0x78 && mh.restart < 0x7f) {
for (i = 0; i < 31; i++) {
if (mh.ins[i].loop_size == 0)
break;
}
if (i == 31) { /* All loops are size 2 or greater */
for (i = 0; i < 31; i++) {
if (mh.ins[i].size == 1 && mh.ins[i].volume == 0) {
tracker = "Probably converted";
ptkloop = 0;
goto skip_test;
}
}
for (i = 0; i < 31; i++) {
if (is_st_ins((char *)mh.ins[i].name))
break;
}
if (i == 31) { /* No st- instruments */
for (i = 0; i < 31; i++) {
if (mh.ins[i].size == 0 && mh.ins[i].loop_size == 1) {
switch (mod->chn) {
case 4:
tracker = "Noisetracker"; /* or Octalyzer */
break;
case 6:
case 8:
tracker = "Octalyser";
ptkloop = 0;
break;
default:
tracker = "unknown tracker";
ptkloop = 0;
}
goto skip_test;
}
}
if (mod->chn == 4) {
tracker = "Protracker";
printf("asd\n");
} else if (mod->chn == 6 || mod->chn == 8) {
tracker = "FastTracker 1.01?";
ptkloop = 0;
m->quirk &= ~QUIRK_MODRNG;
} else {
tracker = "unknown tracker";
ptkloop = 0;
}
}
} else { /* Has loops with 0 size */
for (i = 15; i < 31; i++) {
if (strlen((char *)mh.ins[i].name) || mh.ins[i].size > 0)
break;
}
if (i == 31 && is_st_ins((char *)mh.ins[14].name)) {
tracker = "converted 15 instrument";
ptkloop = 0;
goto skip_test;
}
/* Assume that Fast Tracker modules won't have ST- instruments */
for (i = 0; i < 31; i++) {
if (is_st_ins((char *)mh.ins[i].name))
break;
}
if (i < 31) {
tracker = "unknown/converted";
ptkloop = 0;
goto skip_test;
}
if (mod->chn == 4 || mod->chn == 6 || mod->chn == 8) {
tracker = "Fast Tracker";
ptkloop = 0;
m->quirk &= ~QUIRK_MODRNG;
goto skip_test;
}
tracker = "unknown tracker"; /* ??!? */
ptkloop = 0;
}
}
skip_test:
mod->trk = mod->chn * mod->pat;
snprintf(mod->type, XMP_NAME_SIZE, "%s (%s)", tracker, magic);
MODULE_INFO();
for (i = 0; i < mod->ins; i++) {
D_(D_INFO "[%2X] %-22.22s %04x %04x %04x %c V%02x %+d %c\n",
i, mod->xxi[i].name,
mod->xxs[i].len, mod->xxs[i].lps, mod->xxs[i].lpe,
(mh.ins[i].loop_size > 1 && mod->xxs[i].lpe > 8) ?
'L' : ' ', mod->xxi[i].sub[0].vol,
mod->xxi[i].sub[0].fin >> 4,
ptkloop && mod->xxs[i].lps == 0 && mh.ins[i].loop_size > 1 &&
mod->xxs[i].len > mod->xxs[i].lpe ? '!' : ' ');
}
PATTERN_INIT();
/* Load and convert patterns */
D_(D_INFO "Stored patterns: %d", mod->pat);
for (i = 0; i < mod->pat; i++) {
PATTERN_ALLOC (i);
mod->xxp[i]->rows = 64;
TRACK_ALLOC (i);
for (j = 0; j < (64 * mod->chn); j++) {
event = &EVENT (i, j % mod->chn, j / mod->chn);
fread (mod_event, 1, 4, f);
cvt_pt_event(event, mod_event);
}
}
/* Load samples */
if ((x = strrchr(m->filename, '/')))
strncpy(pathname, m->filename, x - m->filename);
D_(D_INFO "Stored samples: %d", mod->smp);
for (i = 0; i < mod->smp; i++) {
int flags;
if (!mod->xxs[i].len)
continue;
flags = ptkloop ? SAMPLE_FLAG_FULLREP : 0;
if (ptsong) {
FILE *s;
char sn[256];
snprintf(sn, XMP_NAME_SIZE, "%s%s", pathname, mod->xxi[i].name);
if ((s = fopen (sn, "rb"))) {
load_sample(s, flags, &mod->xxs[mod->xxi[i].sub[0].sid], NULL);
}
} else {
load_sample(f, flags, &mod->xxs[mod->xxi[i].sub[0].sid], NULL);
}
}
if (mod->chn > 4) {
m->quirk &= ~QUIRK_MODRNG;
m->quirk |= QUIRKS_FT2;
m->read_event_type = READ_EVENT_FT2;
} else if (strcmp(tracker, "Protracker") == 0) {
m->quirk |= QUIRK_INVLOOP;
}
return 0;
}
static int ptdt_load(struct module_data *m, FILE *f, const int start)
{
struct xmp_module *mod = &m->mod;
int i, j;
struct xmp_event *event;
struct mod_header mh;
uint8 mod_event[4];
fread(&mh.name, 20, 1, f);
for (i = 0; i < 31; i++) {
fread(&mh.ins[i].name, 22, 1, f);
mh.ins[i].size = read16b(f);
mh.ins[i].finetune = read8(f);
mh.ins[i].volume = read8(f);
mh.ins[i].loop_start = read16b(f);
mh.ins[i].loop_size = read16b(f);
}
mh.len = read8(f);
mh.restart = read8(f);
fread(&mh.order, 128, 1, f);
fread(&mh.magic, 4, 1, f);
mod->ins = 31;
mod->smp = mod->ins;
mod->chn = 4;
mod->len = mh.len;
mod->rst = mh.restart;
memcpy(mod->xxo, mh.order, 128);
for (i = 0; i < 128; i++) {
if (mod->xxo[i] > mod->pat)
mod->pat = mod->xxo[i];
}
mod->pat++;
mod->trk = mod->chn * mod->pat;
INSTRUMENT_INIT();
for (i = 0; i < mod->ins; i++) {
mod->xxi[i].sub = calloc(sizeof (struct xmp_subinstrument), 1);
mod->xxs[i].len = 2 * mh.ins[i].size;
mod->xxs[i].lps = 2 * mh.ins[i].loop_start;
mod->xxs[i].lpe = mod->xxs[i].lps + 2 * mh.ins[i].loop_size;
mod->xxs[i].flg = mh.ins[i].loop_size > 1 ? XMP_SAMPLE_LOOP : 0;
mod->xxi[i].sub[0].fin = (int8)(mh.ins[i].finetune << 4);
mod->xxi[i].sub[0].vol = mh.ins[i].volume;
mod->xxi[i].sub[0].pan = 0x80;
mod->xxi[i].sub[0].sid = i;
mod->xxi[i].nsm = !!(mod->xxs[i].len);
mod->xxi[i].rls = 0xfff;
copy_adjust(mod->xxi[i].name, mh.ins[i].name, 22);
D_(D_INFO "[%2X] %-22.22s %04x %04x %04x %c V%02x %+d",
i, mod->xxi[i].name,
mod->xxs[i].len, mod->xxs[i].lps,
mod->xxs[i].lpe,
mh.ins[i].loop_size > 1 ? 'L' : ' ',
mod->xxi[i].sub[0].vol,
mod->xxi[i].sub[0].fin >> 4);
}
PATTERN_INIT();
/* Load and convert patterns */
D_(D_INFO "Stored patterns: %d", mod->pat);
for (i = 0; i < mod->pat; i++) {
PATTERN_ALLOC(i);
mod->xxp[i]->rows = 64;
TRACK_ALLOC(i);
for (j = 0; j < (64 * 4); j++) {
event = &EVENT(i, j % 4, j / 4);
fread(mod_event, 1, 4, f);
cvt_pt_event(event, mod_event);
}
}
m->quirk |= QUIRK_MODRNG;
/* Load samples */
D_(D_INFO "Stored samples: %d", mod->smp);
for (i = 0; i < mod->smp; i++) {
if (!mod->xxs[i].len)
continue;
load_sample(f, 0, &mod->xxs[mod->xxi[i].sub[0].sid], NULL);
}
return 0;
}
static int mfp_load(struct module_data *m, xmp_file f, const int start)
{
struct xmp_module *mod = &m->mod;
int i, j, k, x, y;
struct xmp_event *event;
struct stat st;
char smp_filename[PATH_MAX];
xmp_file s;
int size1, size2;
int pat_addr, pat_table[128][4];
uint8 buf[1024], mod_event[4];
int row;
LOAD_INIT();
set_type(m, "Magnetic Fields Packer");
MODULE_INFO();
mod->chn = 4;
mod->ins = mod->smp = 31;
INSTRUMENT_INIT();
for (i = 0; i < 31; i++) {
int loop_size;
mod->xxi[i].sub = calloc(sizeof (struct xmp_subinstrument), 1);
mod->xxs[i].len = 2 * read16b(f);
mod->xxi[i].sub[0].fin = (int8)(read8(f) << 4);
mod->xxi[i].sub[0].vol = read8(f);
mod->xxs[i].lps = 2 * read16b(f);
loop_size = read16b(f);
mod->xxs[i].lpe = mod->xxs[i].lps + 2 * loop_size;
mod->xxs[i].flg = loop_size > 1 ? XMP_SAMPLE_LOOP : 0;
mod->xxi[i].sub[0].pan = 0x80;
mod->xxi[i].sub[0].sid = i;
mod->xxi[i].nsm = !!(mod->xxs[i].len);
mod->xxi[i].rls = 0xfff;
D_(D_INFO "[%2X] %04x %04x %04x %c V%02x %+d",
i, mod->xxs[i].len, mod->xxs[i].lps,
mod->xxs[i].lpe,
loop_size > 1 ? 'L' : ' ',
mod->xxi[i].sub[0].vol, mod->xxi[i].sub[0].fin >> 4);
}
mod->len = mod->pat = read8(f);
read8(f); /* restart */
for (i = 0; i < 128; i++)
mod->xxo[i] = read8(f);
#if 0
for (i = 0; i < 128; i++) {
mod->xxo[i] = read8(f);
if (mod->xxo[i] > mod->pat)
mod->pat = mod->xxo[i];
}
mod->pat++;
#endif
mod->trk = mod->pat * mod->chn;
/* Read and convert patterns */
PATTERN_INIT();
size1 = read16b(f);
size2 = read16b(f);
for (i = 0; i < size1; i++) { /* Read pattern table */
for (j = 0; j < 4; j++) {
pat_table[i][j] = read16b(f);
}
}
D_(D_INFO "Stored patterns: %d ", mod->pat);
pat_addr = xmp_ftell(f);
for (i = 0; i < mod->pat; i++) {
PATTERN_ALLOC(i);
mod->xxp[i]->rows = 64;
TRACK_ALLOC(i);
for (j = 0; j < 4; j++) {
xmp_fseek(f, pat_addr + pat_table[i][j], SEEK_SET);
xmp_fread(buf, 1, 1024, f);
for (row = k = 0; k < 4; k++) {
for (x = 0; x < 4; x++) {
for (y = 0; y < 4; y++, row++) {
event = &EVENT(i, j, row);
memcpy(mod_event, &buf[buf[buf[buf[k] + x] + y] * 2], 4);
cvt_pt_event(event, mod_event);
}
}
}
}
}
/* Read samples */
D_(D_INFO "Loading samples: %d", mod->ins);
/* first check smp.filename */
if (strlen(m->basename) < 5 || m->basename[3] != '.') {
fprintf(stderr, "libxmp: invalid filename %s\n", m->basename);
goto err;
}
m->basename[0] = 's';
m->basename[1] = 'm';
m->basename[2] = 'p';
snprintf(smp_filename, PATH_MAX, "%s%s", m->dirname, m->basename);
if (stat(smp_filename, &st) < 0) {
/* handle .set filenames like in Kid Chaos*/
char *x;
if (strchr(m->basename, '-')) {
if ((x = strrchr(smp_filename, '-')))
strcpy(x, ".set");
}
if (stat(smp_filename, &st) < 0) {
fprintf(stderr, "libxmp: missing file %s\n",
smp_filename);
goto err;
}
}
if ((s = xmp_fopen(smp_filename, "rb")) == NULL) {
fprintf(stderr, "libxmp: can't open sample file %s\n",
smp_filename);
goto err;
}
for (i = 0; i < mod->ins; i++) {
load_sample(m, s, SAMPLE_FLAG_FULLREP,
&mod->xxs[mod->xxi[i].sub[0].sid], NULL);
}
xmp_fclose(s);
m->quirk |= QUIRK_MODRNG;
return 0;
err:
for (i = 0; i < mod->ins; i++) {
mod->xxi[i].nsm = 0;
memset(&mod->xxs[i], 0, sizeof(struct xmp_sample));
}
return 0;
}
