dmlib: minijss/jloadjss.c annotate

annotate minijss/jloadjss.c @ 1311:f1c4b9b074ad

Fixes to jssmod loader.

author	Matti Hamalainen <ccr@tnsp.org>
date	Sun, 20 Aug 2017 01:01:40 +0300
parents	dce4730372c7
children	4eb394c9e682

rev	line source
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1 /*
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	2 * miniJSS - JSSMOD module loader
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	3 * Programmed and designed by Matti 'ccr' Hamalainen
1163 aa3738b121d1 Bump copyright years. Matti Hamalainen <ccr@tnsp.org> parents: 1129 diff changeset	4 * (C) Copyright 2007-2015 Tecnic Software productions (TNSP)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	5 */
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	6 #include "jssmod.h"
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	7
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	8
1196 aa6c3af36008 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 1167 diff changeset	9 // If all pattern modes are required, enable them here
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	10 #ifdef JM_SUP_PATMODE_ALL
282 175328b20341 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 204 diff changeset	11 # define JM_SUP_PATMODE_1 1
175328b20341 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 204 diff changeset	12 # define JM_SUP_PATMODE_2 1
175328b20341 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 204 diff changeset	13 # define JM_SUP_PATMODE_3 1
175328b20341 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 204 diff changeset	14 # define JM_SUP_PATMODE_4 1
175328b20341 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 204 diff changeset	15 # define JM_SUP_PATMODE_5 1
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	16 #endif
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	17
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	18
1196 aa6c3af36008 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 1167 diff changeset	19 // Short helper macros for reading data
aa6c3af36008 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 1167 diff changeset	20 #define JSGETBYTE(XV) \
aa6c3af36008 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 1167 diff changeset	21 if (!dmf_read_byte(inFile, XV)) \
aa6c3af36008 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 1167 diff changeset	22 return DMERR_OUT_OF_DATA
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	23
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	24
1208 fa758951720f Remove some code duplication. Matti Hamalainen <ccr@tnsp.org> parents: 1198 diff changeset	25 static int jssDoGetConvertedNote(DMResource inFile, JSSNote pnote, Uint8 note)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	26 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	27 Uint8 tmp;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	28
1208 fa758951720f Remove some code duplication. Matti Hamalainen <ccr@tnsp.org> parents: 1198 diff changeset	29 if (note == 127)
1197 0ee6ba7b3e4a Rename variables. Matti Hamalainen <ccr@tnsp.org> parents: 1196 diff changeset	30 pnote->note = jsetNoteOff;
1208 fa758951720f Remove some code duplication. Matti Hamalainen <ccr@tnsp.org> parents: 1198 diff changeset	31 else
fa758951720f Remove some code duplication. Matti Hamalainen <ccr@tnsp.org> parents: 1198 diff changeset	32 if (note == 0)
1197 0ee6ba7b3e4a Rename variables. Matti Hamalainen <ccr@tnsp.org> parents: 1196 diff changeset	33 pnote->note = jsetNotSet;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	34 else
1208 fa758951720f Remove some code duplication. Matti Hamalainen <ccr@tnsp.org> parents: 1198 diff changeset	35 pnote->note = note - 1;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	36
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	37 JSGETBYTE(&tmp);
1197 0ee6ba7b3e4a Rename variables. Matti Hamalainen <ccr@tnsp.org> parents: 1196 diff changeset	38 pnote->instrument = (tmp > 0) ? tmp - 1 : jsetNotSet;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	39
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	40 JSGETBYTE(&tmp);
1197 0ee6ba7b3e4a Rename variables. Matti Hamalainen <ccr@tnsp.org> parents: 1196 diff changeset	41 pnote->volume = (tmp > 0) ? tmp - 1 : jsetNotSet;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	42
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	43 JSGETBYTE(&tmp);
1197 0ee6ba7b3e4a Rename variables. Matti Hamalainen <ccr@tnsp.org> parents: 1196 diff changeset	44 pnote->effect = (tmp > 0) ? tmp - 1 : jsetNotSet;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	45
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	46 JSGETBYTE(&tmp);
1197 0ee6ba7b3e4a Rename variables. Matti Hamalainen <ccr@tnsp.org> parents: 1196 diff changeset	47 pnote->param = (tmp == 0 && pnote->effect == jsetNotSet) ? jsetNotSet : tmp;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	48
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	49 return DMERR_OK;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	50 }
1208 fa758951720f Remove some code duplication. Matti Hamalainen <ccr@tnsp.org> parents: 1198 diff changeset	51
fa758951720f Remove some code duplication. Matti Hamalainen <ccr@tnsp.org> parents: 1198 diff changeset	52
fa758951720f Remove some code duplication. Matti Hamalainen <ccr@tnsp.org> parents: 1198 diff changeset	53 static inline int jssGetConvertedNote(DMResource inFile, JSSNote pnote)
fa758951720f Remove some code duplication. Matti Hamalainen <ccr@tnsp.org> parents: 1198 diff changeset	54 {
fa758951720f Remove some code duplication. Matti Hamalainen <ccr@tnsp.org> parents: 1198 diff changeset	55 Uint8 tmp;
fa758951720f Remove some code duplication. Matti Hamalainen <ccr@tnsp.org> parents: 1198 diff changeset	56 JSGETBYTE(&tmp);
fa758951720f Remove some code duplication. Matti Hamalainen <ccr@tnsp.org> parents: 1198 diff changeset	57 return jssDoGetConvertedNote(inFile, pnote, tmp);
fa758951720f Remove some code duplication. Matti Hamalainen <ccr@tnsp.org> parents: 1198 diff changeset	58 }
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	59
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	60
204 d3a9a3804079 Implement pattern mode 5 in the JMOD jloader. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	61 #if defined(JM_SUP_PATMODE_2) \|\| defined(JM_SUP_PATMODE_4)
1197 0ee6ba7b3e4a Rename variables. Matti Hamalainen <ccr@tnsp.org> parents: 1196 diff changeset	62 static int jssGetCompressedNote(DMResource inFile, JSSNote pnote)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	63 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	64 Uint8 packb, tmp;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	65
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	66 JSGETBYTE(&packb);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	67 if (packb & 0x80)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	68 {
1210 6b48bad13399 Rename pattern note packing flag COMP_* constants to JM_COMP_. Matti Hamalainen <ccr@tnsp.org>* parents: 1208 diff changeset	69 if (packb & JM_COMP_NOTE)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	70 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	71 JSGETBYTE(&tmp);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	72 if (tmp == 127)
1197 0ee6ba7b3e4a Rename variables. Matti Hamalainen <ccr@tnsp.org> parents: 1196 diff changeset	73 pnote->note = jsetNoteOff;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	74 else
1197 0ee6ba7b3e4a Rename variables. Matti Hamalainen <ccr@tnsp.org> parents: 1196 diff changeset	75 pnote->note = tmp;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	76 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	77
1210 6b48bad13399 Rename pattern note packing flag COMP_* constants to JM_COMP_. Matti Hamalainen <ccr@tnsp.org>* parents: 1208 diff changeset	78 if (packb & JM_COMP_INSTRUMENT)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	79 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	80 JSGETBYTE(&tmp);
1197 0ee6ba7b3e4a Rename variables. Matti Hamalainen <ccr@tnsp.org> parents: 1196 diff changeset	81 pnote->instrument = tmp;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	82 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	83
1210 6b48bad13399 Rename pattern note packing flag COMP_* constants to JM_COMP_. Matti Hamalainen <ccr@tnsp.org>* parents: 1208 diff changeset	84 if (packb & JM_COMP_VOLUME)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	85 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	86 JSGETBYTE(&tmp);
1197 0ee6ba7b3e4a Rename variables. Matti Hamalainen <ccr@tnsp.org> parents: 1196 diff changeset	87 pnote->volume = tmp;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	88 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	89
1210 6b48bad13399 Rename pattern note packing flag COMP_* constants to JM_COMP_. Matti Hamalainen <ccr@tnsp.org>* parents: 1208 diff changeset	90 if (packb & JM_COMP_EFFECT)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	91 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	92 JSGETBYTE(&tmp);
1197 0ee6ba7b3e4a Rename variables. Matti Hamalainen <ccr@tnsp.org> parents: 1196 diff changeset	93 pnote->effect = tmp;
0ee6ba7b3e4a Rename variables. Matti Hamalainen <ccr@tnsp.org> parents: 1196 diff changeset	94 pnote->param = 0;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	95 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	96
1210 6b48bad13399 Rename pattern note packing flag COMP_* constants to JM_COMP_. Matti Hamalainen <ccr@tnsp.org>* parents: 1208 diff changeset	97 if (packb & JM_COMP_PARAM)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	98 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	99 JSGETBYTE(&tmp);
1197 0ee6ba7b3e4a Rename variables. Matti Hamalainen <ccr@tnsp.org> parents: 1196 diff changeset	100 pnote->param = tmp;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	101 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	102 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	103 else
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	104 {
1208 fa758951720f Remove some code duplication. Matti Hamalainen <ccr@tnsp.org> parents: 1198 diff changeset	105 int ret;
fa758951720f Remove some code duplication. Matti Hamalainen <ccr@tnsp.org> parents: 1198 diff changeset	106 if ((ret = jssDoGetConvertedNote(inFile, pnote, packb)) != DMERR_OK)
fa758951720f Remove some code duplication. Matti Hamalainen <ccr@tnsp.org> parents: 1198 diff changeset	107 return ret;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	108 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	109
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	110 return DMERR_OK;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	111 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	112 #endif
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	113
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	114
204 d3a9a3804079 Implement pattern mode 5 in the JMOD jloader. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	115 #ifdef JM_SUP_PATMODE_2
777 ed60a7ee3ebb Change JSSMOD loader to use DMResources. Matti Hamalainen <ccr@tnsp.org> parents: 658 diff changeset	116 static int jssGetPatternCompHoriz(DMResource inFile, JSSPattern pattern)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	117 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	118 int row, channel;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	119
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	120 assert(buf != NULL);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	121 assert(pattern != NULL);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	122
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	123 for (row = 0; row < pattern->nrows; row++)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	124 for (channel = 0; channel < pattern->nchannels; channel++)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	125 {
1197 0ee6ba7b3e4a Rename variables. Matti Hamalainen <ccr@tnsp.org> parents: 1196 diff changeset	126 JSSNote pnote = &pattern->data[(pattern->nchannels row) + channel];
0ee6ba7b3e4a Rename variables. Matti Hamalainen <ccr@tnsp.org> parents: 1196 diff changeset	127 int res = jssGetCompressedNote(inFile, pnote);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	128 if (res != DMERR_OK)
1197 0ee6ba7b3e4a Rename variables. Matti Hamalainen <ccr@tnsp.org> parents: 1196 diff changeset	129 JSSERROR(res, res, "Error uncompressing note on row=%d, chn=%d\n",
0ee6ba7b3e4a Rename variables. Matti Hamalainen <ccr@tnsp.org> parents: 1196 diff changeset	130 row, channel);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	131 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	132
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	133 return DMERR_OK;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	134 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	135 #endif
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	136
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	137
204 d3a9a3804079 Implement pattern mode 5 in the JMOD jloader. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	138 #ifdef JM_SUP_PATMODE_4
777 ed60a7ee3ebb Change JSSMOD loader to use DMResources. Matti Hamalainen <ccr@tnsp.org> parents: 658 diff changeset	139 static int jssGetPatternCompVert(DMResource inFile, JSSPattern pattern)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	140 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	141 int row, channel;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	142
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	143 assert(buf != NULL);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	144 assert(pattern != NULL);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	145
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	146 for (channel = 0; channel < pattern->nchannels; channel++)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	147 for (row = 0; row < pattern->nrows; row++)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	148 {
1197 0ee6ba7b3e4a Rename variables. Matti Hamalainen <ccr@tnsp.org> parents: 1196 diff changeset	149 JSSNote pnote = &pattern->data[(pattern->nchannels row) + channel];
0ee6ba7b3e4a Rename variables. Matti Hamalainen <ccr@tnsp.org> parents: 1196 diff changeset	150 int res = jssGetCompressedNote(inFile, pnote);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	151 if (res != DMERR_OK)
1197 0ee6ba7b3e4a Rename variables. Matti Hamalainen <ccr@tnsp.org> parents: 1196 diff changeset	152 JSSERROR(res, res, "Error uncompressing note on row=%d, chn=%d\n",
0ee6ba7b3e4a Rename variables. Matti Hamalainen <ccr@tnsp.org> parents: 1196 diff changeset	153 row, channel);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	154 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	155
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	156 return DMERR_OK;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	157 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	158 #endif
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	159
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	160
204 d3a9a3804079 Implement pattern mode 5 in the JMOD jloader. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	161 #ifdef JM_SUP_PATMODE_1
777 ed60a7ee3ebb Change JSSMOD loader to use DMResources. Matti Hamalainen <ccr@tnsp.org> parents: 658 diff changeset	162 static int jssGetPatternRawHoriz(DMResource inFile, JSSPattern pattern)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	163 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	164 int row, channel;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	165
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	166 assert(buf != NULL);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	167 assert(pattern != NULL);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	168
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	169 for (row = 0; row < pattern->nrows; row++)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	170 for (channel = 0; channel < pattern->nchannels; channel++)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	171 {
1197 0ee6ba7b3e4a Rename variables. Matti Hamalainen <ccr@tnsp.org> parents: 1196 diff changeset	172 JSSNote pnote = &pattern->data[(pattern->nchannels row) + channel];
0ee6ba7b3e4a Rename variables. Matti Hamalainen <ccr@tnsp.org> parents: 1196 diff changeset	173 int res = jssGetConvertedNote(inFile, pnote);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	174 if (res != DMERR_OK)
1197 0ee6ba7b3e4a Rename variables. Matti Hamalainen <ccr@tnsp.org> parents: 1196 diff changeset	175 JSSERROR(res, res, "Error converting note on row=%d, chn=%d\n",
0ee6ba7b3e4a Rename variables. Matti Hamalainen <ccr@tnsp.org> parents: 1196 diff changeset	176 row, channel);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	177 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	178
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	179 return DMERR_OK;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	180 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	181 #endif
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	182
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	183
204 d3a9a3804079 Implement pattern mode 5 in the JMOD jloader. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	184 #ifdef JM_SUP_PATMODE_3
777 ed60a7ee3ebb Change JSSMOD loader to use DMResources. Matti Hamalainen <ccr@tnsp.org> parents: 658 diff changeset	185 static int jssGetPatternRawVert(DMResource inFile, JSSPattern pattern)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	186 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	187 int row, channel;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	188
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	189 assert(buf != NULL);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	190 assert(pattern != NULL);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	191
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	192 for (channel = 0; channel < pattern->nchannels; channel++)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	193 for (row = 0; row < pattern->nrows; row++)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	194 {
1197 0ee6ba7b3e4a Rename variables. Matti Hamalainen <ccr@tnsp.org> parents: 1196 diff changeset	195 JSSNote pnote = &pattern->data[(pattern->nchannels row) + channel];
0ee6ba7b3e4a Rename variables. Matti Hamalainen <ccr@tnsp.org> parents: 1196 diff changeset	196 int res = jssGetConvertedNote(inFile, pnote);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	197 if (res != DMERR_OK)
1197 0ee6ba7b3e4a Rename variables. Matti Hamalainen <ccr@tnsp.org> parents: 1196 diff changeset	198 JSSERROR(res, res, "Error converting note on row=%d, chn=%d\n",
0ee6ba7b3e4a Rename variables. Matti Hamalainen <ccr@tnsp.org> parents: 1196 diff changeset	199 row, channel);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	200 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	201
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	202 return DMERR_OK;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	203 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	204 #endif
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	205
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	206
204 d3a9a3804079 Implement pattern mode 5 in the JMOD jloader. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	207 #ifdef JM_SUP_PATMODE_5
d3a9a3804079 Implement pattern mode 5 in the JMOD jloader. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	208
d3a9a3804079 Implement pattern mode 5 in the JMOD jloader. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	209 #undef JSGETBYTE
777 ed60a7ee3ebb Change JSSMOD loader to use DMResources. Matti Hamalainen <ccr@tnsp.org> parents: 658 diff changeset	210 #define JSGETBYTE(XV) if (!dmf_read_byte(inFile, XV)) return DMERR_OUT_OF_DATA
204 d3a9a3804079 Implement pattern mode 5 in the JMOD jloader. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	211
d3a9a3804079 Implement pattern mode 5 in the JMOD jloader. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	212 #define JSFOREACHNOTE1 \
d3a9a3804079 Implement pattern mode 5 in the JMOD jloader. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	213 for (channel = 0; channel < pattern->nchannels; channel++) \
d3a9a3804079 Implement pattern mode 5 in the JMOD jloader. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	214 for (row = 0; row < pattern->nrows; row++) { \
1197 0ee6ba7b3e4a Rename variables. Matti Hamalainen <ccr@tnsp.org> parents: 1196 diff changeset	215 JSSNote pnote = pattern->data + (pattern->nchannels row) + channel;
204 d3a9a3804079 Implement pattern mode 5 in the JMOD jloader. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	216
d3a9a3804079 Implement pattern mode 5 in the JMOD jloader. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	217 #define JSFOREACHNOTE2 }
d3a9a3804079 Implement pattern mode 5 in the JMOD jloader. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	218
777 ed60a7ee3ebb Change JSSMOD loader to use DMResources. Matti Hamalainen <ccr@tnsp.org> parents: 658 diff changeset	219 static int jssGetPatternRawVertElem(DMResource inFile, JSSPattern pattern)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	220 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	221 int row, channel;
204 d3a9a3804079 Implement pattern mode 5 in the JMOD jloader. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	222 Uint8 tmp;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	223
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	224 assert(buf != NULL);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	225 assert(pattern != NULL);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	226
204 d3a9a3804079 Implement pattern mode 5 in the JMOD jloader. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	227 JSFOREACHNOTE1
d3a9a3804079 Implement pattern mode 5 in the JMOD jloader. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	228 JSGETBYTE(&tmp);
d3a9a3804079 Implement pattern mode 5 in the JMOD jloader. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	229 if (tmp == 0)
1197 0ee6ba7b3e4a Rename variables. Matti Hamalainen <ccr@tnsp.org> parents: 1196 diff changeset	230 pnote->note = jsetNotSet;
204 d3a9a3804079 Implement pattern mode 5 in the JMOD jloader. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	231 else if (tmp == 127)
1197 0ee6ba7b3e4a Rename variables. Matti Hamalainen <ccr@tnsp.org> parents: 1196 diff changeset	232 pnote->note = jsetNoteOff;
204 d3a9a3804079 Implement pattern mode 5 in the JMOD jloader. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	233 else
1197 0ee6ba7b3e4a Rename variables. Matti Hamalainen <ccr@tnsp.org> parents: 1196 diff changeset	234 pnote->note = tmp - 1;
204 d3a9a3804079 Implement pattern mode 5 in the JMOD jloader. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	235 JSFOREACHNOTE2
1127 e22d4ceb6414 Cosmetics pass, remove excess and trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1118 diff changeset	236
204 d3a9a3804079 Implement pattern mode 5 in the JMOD jloader. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	237 JSFOREACHNOTE1
d3a9a3804079 Implement pattern mode 5 in the JMOD jloader. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	238 JSGETBYTE(&tmp);
1197 0ee6ba7b3e4a Rename variables. Matti Hamalainen <ccr@tnsp.org> parents: 1196 diff changeset	239 pnote->instrument = (tmp > 0) ? tmp - 1 : jsetNotSet;
204 d3a9a3804079 Implement pattern mode 5 in the JMOD jloader. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	240 JSFOREACHNOTE2
1127 e22d4ceb6414 Cosmetics pass, remove excess and trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1118 diff changeset	241
204 d3a9a3804079 Implement pattern mode 5 in the JMOD jloader. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	242 JSFOREACHNOTE1
d3a9a3804079 Implement pattern mode 5 in the JMOD jloader. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	243 JSGETBYTE(&tmp);
1197 0ee6ba7b3e4a Rename variables. Matti Hamalainen <ccr@tnsp.org> parents: 1196 diff changeset	244 pnote->volume = (tmp > 0) ? tmp - 1 : jsetNotSet;
204 d3a9a3804079 Implement pattern mode 5 in the JMOD jloader. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	245 JSFOREACHNOTE2
1127 e22d4ceb6414 Cosmetics pass, remove excess and trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1118 diff changeset	246
204 d3a9a3804079 Implement pattern mode 5 in the JMOD jloader. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	247 JSFOREACHNOTE1
d3a9a3804079 Implement pattern mode 5 in the JMOD jloader. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	248 JSGETBYTE(&tmp);
1197 0ee6ba7b3e4a Rename variables. Matti Hamalainen <ccr@tnsp.org> parents: 1196 diff changeset	249 pnote->effect = (tmp > 0) ? tmp - 1 : jsetNotSet;
204 d3a9a3804079 Implement pattern mode 5 in the JMOD jloader. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	250 JSFOREACHNOTE2
1127 e22d4ceb6414 Cosmetics pass, remove excess and trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1118 diff changeset	251
204 d3a9a3804079 Implement pattern mode 5 in the JMOD jloader. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	252 JSFOREACHNOTE1
d3a9a3804079 Implement pattern mode 5 in the JMOD jloader. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	253 JSGETBYTE(&tmp);
1197 0ee6ba7b3e4a Rename variables. Matti Hamalainen <ccr@tnsp.org> parents: 1196 diff changeset	254 pnote->param = (tmp == 0 && pnote->effect == jsetNotSet) ? jsetNotSet : tmp;
204 d3a9a3804079 Implement pattern mode 5 in the JMOD jloader. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	255 JSFOREACHNOTE2
d3a9a3804079 Implement pattern mode 5 in the JMOD jloader. Matti Hamalainen <ccr@tnsp.org> parents: 96 diff changeset	256
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	257 return DMERR_OK;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	258 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	259 #endif
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	260
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	261
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	262 #ifdef JM_SUP_EXT_INSTR
1247 5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	263 static int jssMODLoadEnvelope(DMResource *inFile,
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	264 JSSEnvelope env, const char name, const int ninst)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	265 {
1247 5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	266 JSSMODEnvelope jssEnv;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	267 int i;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	268
1247 5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	269 // Read envelope data
1250 99852310dc02 Some more work on the loader. Matti Hamalainen <ccr@tnsp.org> parents: 1247 diff changeset	270 if (!dmf_read_byte(inFile, &jssEnv.flags) \|\|
99852310dc02 Some more work on the loader. Matti Hamalainen <ccr@tnsp.org> parents: 1247 diff changeset	271 !dmf_read_byte(inFile, &jssEnv.npoints) \|\|
99852310dc02 Some more work on the loader. Matti Hamalainen <ccr@tnsp.org> parents: 1247 diff changeset	272 !dmf_read_byte(inFile, &jssEnv.sustain) \|\|
99852310dc02 Some more work on the loader. Matti Hamalainen <ccr@tnsp.org> parents: 1247 diff changeset	273 !dmf_read_byte(inFile, &jssEnv.loopS) \|\|
99852310dc02 Some more work on the loader. Matti Hamalainen <ccr@tnsp.org> parents: 1247 diff changeset	274 !dmf_read_byte(inFile, &jssEnv.loopE))
1247 5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	275 JSSERROR(DMERR_FREAD, DMERR_FREAD,
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	276 "Failed to read %s-envelope data for instrument #%d.\n",
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	277 name, ninst);
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	278
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	279 // Do some sanity checking
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	280 if (jssEnv.npoints > jsetMaxEnvPoints \|\|
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	281 jssEnv.loopS < jssEnv.loopE \|\|
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	282 jssEnv.loopS > jssEnv.npoints \|\|
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	283 jssEnv.loopE > jssEnv.npoints)
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	284 JSSERROR(DMERR_INVALID_DATA, DMERR_INVALID_DATA,
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	285 "Invalid values in %s-envelope for instrument #%d.\n",
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	286 name, ninst);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	287
1247 5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	288 // Copy data
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	289 env->flags = jssEnv.flags;
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	290 env->npoints = jssEnv.npoints;
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	291 env->sustain = jssEnv.sustain;
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	292 env->loopS = jssEnv.loopS;
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	293 env->loopE = jssEnv.loopE;
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	294
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	295 for (i = 0; i < jssEnv.npoints; i++)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	296 {
1247 5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	297 Uint16 frame, value;
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	298 if (!dmf_read_le16(inFile, &frame) \|\|
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	299 !dmf_read_le16(inFile, &value))
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	300 JSSERROR(DMERR_FREAD, DMERR_FREAD,
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	301 "Failed to read %s-envelope values (%d) for instrument #%d.\n",
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	302 name, i, ninst);
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	303
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	304 env->points[i].frame = frame;
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	305 env->points[i].value = value;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	306 }
1247 5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	307
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	308 return DMERR_OK;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	309 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	310 #endif
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	311
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	312
1256 d88d5f88b77a Rename variable. Matti Hamalainen <ccr@tnsp.org> parents: 1255 diff changeset	313 int jssLoadJSSMOD(DMResource inFile, JSSModule *pmodule, BOOL probe)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	314 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	315 JSSModule *module;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	316 JSSMODHeader jssH;
1247 5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	317 int index, ret = DMERR_OK;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	318
1256 d88d5f88b77a Rename variable. Matti Hamalainen <ccr@tnsp.org> parents: 1255 diff changeset	319 *pmodule = NULL;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	320
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	321 // Check the JSSMOD header
1247 5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	322 if (!dmf_read_str(inFile, &jssH.idMagic, sizeof(jssH.idMagic)) \|\|
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	323 !dmf_read_byte(inFile, &jssH.idVersion))
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	324 JSSERROR(DMERR_FREAD, DMERR_FREAD,
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	325 "Failed to read JSSMOD header #1.\n");
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	326
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	327 if (memcmp(jssH.idMagic, "JM", 2) != 0)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	328 {
796 97ecc0a9c21f Silence some "probing". Matti Hamalainen <ccr@tnsp.org> parents: 777 diff changeset	329 if (probe)
97ecc0a9c21f Silence some "probing". Matti Hamalainen <ccr@tnsp.org> parents: 777 diff changeset	330 return DMERR_NOT_SUPPORTED;
97ecc0a9c21f Silence some "probing". Matti Hamalainen <ccr@tnsp.org> parents: 777 diff changeset	331 else
1310 dce4730372c7 Add some blocks, cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 1271 diff changeset	332 {
796 97ecc0a9c21f Silence some "probing". Matti Hamalainen <ccr@tnsp.org> parents: 777 diff changeset	333 JSSERROR(DMERR_NOT_SUPPORTED, DMERR_NOT_SUPPORTED,
97ecc0a9c21f Silence some "probing". Matti Hamalainen <ccr@tnsp.org> parents: 777 diff changeset	334 "Not a JSSMOD file, header signature mismatch!\n");
1310 dce4730372c7 Add some blocks, cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 1271 diff changeset	335 }
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	336 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	337
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	338 if (jssH.idVersion != JSSMOD_VERSION)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	339 {
1198 5d20c80df290 Improve probing. Matti Hamalainen <ccr@tnsp.org> parents: 1197 diff changeset	340 if (probe)
5d20c80df290 Improve probing. Matti Hamalainen <ccr@tnsp.org> parents: 1197 diff changeset	341 return DMERR_VERSION;
5d20c80df290 Improve probing. Matti Hamalainen <ccr@tnsp.org> parents: 1197 diff changeset	342 else
1310 dce4730372c7 Add some blocks, cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 1271 diff changeset	343 {
dce4730372c7 Add some blocks, cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 1271 diff changeset	344 JSSERROR(DMERR_VERSION, DMERR_VERSION,
dce4730372c7 Add some blocks, cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 1271 diff changeset	345 "Unsupported version of JSSMOD 0x%2x, this version only supports 0x%2x!\n",
dce4730372c7 Add some blocks, cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 1271 diff changeset	346 jssH.idVersion, JSSMOD_VERSION);
dce4730372c7 Add some blocks, cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 1271 diff changeset	347 }
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	348 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	349
1247 5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	350 // Read rest of the header
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	351 if (!dmf_read_le16(inFile, &jssH.defFlags) \|\|
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	352 !dmf_read_le16(inFile, &jssH.intVersion) \|\|
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	353 !dmf_read_le16(inFile, &jssH.norders) \|\|
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	354 !dmf_read_le16(inFile, &jssH.npatterns) \|\|
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	355 !dmf_read_le16(inFile, &jssH.nextInstruments) \|\|
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	356 !dmf_read_le16(inFile, &jssH.ninstruments) \|\|
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	357 !dmf_read_le16(inFile, &jssH.defRestartPos) \|\|
1310 dce4730372c7 Add some blocks, cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 1271 diff changeset	358
1247 5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	359 !dmf_read_byte(inFile, &jssH.nchannels) \|\|
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	360 !dmf_read_byte(inFile, &jssH.defSpeed) \|\|
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	361 !dmf_read_byte(inFile, &jssH.defTempo) \|\|
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	362 !dmf_read_byte(inFile, &jssH.patMode))
1310 dce4730372c7 Add some blocks, cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 1271 diff changeset	363 {
1247 5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	364 JSSERROR(DMERR_FREAD, DMERR_FREAD,
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	365 "Failed to read JSSMOD header #2.\n");
1310 dce4730372c7 Add some blocks, cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 1271 diff changeset	366 }
1247 5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	367
1198 5d20c80df290 Improve probing. Matti Hamalainen <ccr@tnsp.org> parents: 1197 diff changeset	368 if (probe)
5d20c80df290 Improve probing. Matti Hamalainen <ccr@tnsp.org> parents: 1197 diff changeset	369 return DMERR_OK;
5d20c80df290 Improve probing. Matti Hamalainen <ccr@tnsp.org> parents: 1197 diff changeset	370
1218 30c2dbf05841 Add a sanity check for JSSMOD header values. Matti Hamalainen <ccr@tnsp.org> parents: 1214 diff changeset	371 // Check some of the things for sanity
30c2dbf05841 Add a sanity check for JSSMOD header values. Matti Hamalainen <ccr@tnsp.org> parents: 1214 diff changeset	372 if (jssH.nchannels > jsetMaxChannels \|\|
30c2dbf05841 Add a sanity check for JSSMOD header values. Matti Hamalainen <ccr@tnsp.org> parents: 1214 diff changeset	373 jssH.nchannels == 0 \|\|
30c2dbf05841 Add a sanity check for JSSMOD header values. Matti Hamalainen <ccr@tnsp.org> parents: 1214 diff changeset	374 jssH.norders > jsetMaxOrders \|\|
30c2dbf05841 Add a sanity check for JSSMOD header values. Matti Hamalainen <ccr@tnsp.org> parents: 1214 diff changeset	375 jssH.npatterns > jsetMaxPatterns \|\|
30c2dbf05841 Add a sanity check for JSSMOD header values. Matti Hamalainen <ccr@tnsp.org> parents: 1214 diff changeset	376 jssH.nextInstruments > jsetMaxInstruments \|\|
30c2dbf05841 Add a sanity check for JSSMOD header values. Matti Hamalainen <ccr@tnsp.org> parents: 1214 diff changeset	377 jssH.ninstruments > jsetMaxInstruments)
30c2dbf05841 Add a sanity check for JSSMOD header values. Matti Hamalainen <ccr@tnsp.org> parents: 1214 diff changeset	378 {
30c2dbf05841 Add a sanity check for JSSMOD header values. Matti Hamalainen <ccr@tnsp.org> parents: 1214 diff changeset	379 JSSERROR(DMERR_INVALID_DATA, DMERR_INVALID_DATA,
30c2dbf05841 Add a sanity check for JSSMOD header values. Matti Hamalainen <ccr@tnsp.org> parents: 1214 diff changeset	380 "Invalid values in JSSMOD header.\n");
30c2dbf05841 Add a sanity check for JSSMOD header values. Matti Hamalainen <ccr@tnsp.org> parents: 1214 diff changeset	381 }
30c2dbf05841 Add a sanity check for JSSMOD header values. Matti Hamalainen <ccr@tnsp.org> parents: 1214 diff changeset	382
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	383 // Allocate the module
1256 d88d5f88b77a Rename variable. Matti Hamalainen <ccr@tnsp.org> parents: 1255 diff changeset	384 if ((*pmodule = module = jssAllocateModule()) == NULL)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	385 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	386 JSSERROR(DMERR_MALLOC, DMERR_MALLOC,
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	387 "Could not allocate memory for module structure.\n");
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	388 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	389
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	390 // Copy header information
1216 f57dc769bd39 Cosmetic. Matti Hamalainen <ccr@tnsp.org> parents: 1214 diff changeset	391 module->defFlags = jssH.defFlags;
f57dc769bd39 Cosmetic. Matti Hamalainen <ccr@tnsp.org> parents: 1214 diff changeset	392 module->intVersion = jssH.intVersion;
f57dc769bd39 Cosmetic. Matti Hamalainen <ccr@tnsp.org> parents: 1214 diff changeset	393
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	394 module->norders = jssH.norders;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	395 module->npatterns = jssH.npatterns;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	396 module->nchannels = jssH.nchannels;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	397 module->nextInstruments = jssH.nextInstruments;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	398 module->ninstruments = jssH.ninstruments;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	399 module->defRestartPos = jssH.defRestartPos;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	400 module->defSpeed = jssH.defSpeed;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	401 module->defTempo = jssH.defTempo;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	402
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	403 // Get the orders list
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	404 for (index = 0; index < module->norders; index++)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	405 {
1247 5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	406 Uint16 tmp;
1250 99852310dc02 Some more work on the loader. Matti Hamalainen <ccr@tnsp.org> parents: 1247 diff changeset	407 if (!dmf_read_le16(inFile, &tmp))
1247 5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	408 JSSERROR(DMERR_FREAD, DMERR_FREAD,
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	409 "Failed to read orders list entry #%d.\n",
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	410 index);
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	411
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	412 if (tmp != 0xffff && tmp > jssH.npatterns)
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	413 JSSERROR(DMERR_INVALID_DATA, DMERR_INVALID_DATA,
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	414 "Invalid orders list entry #%d value %d > %d.\n",
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	415 index, tmp, jssH.npatterns);
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	416
1311 f1c4b9b074ad Fixes to jssmod loader. Matti Hamalainen <ccr@tnsp.org> parents: 1310 diff changeset	417 module->orderList[index] = (tmp == 0xffff) ? jsetNotSet : tmp;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	418 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	419
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	420 // Parse the patterns
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	421 for (index = 0; index < module->npatterns; index++)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	422 {
1255 f9bf71071f0b Some work on JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1250 diff changeset	423 JSSPattern *pattern;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	424 JSSMODPattern jssP;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	425
1255 f9bf71071f0b Some work on JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1250 diff changeset	426 // Read pattern header
f9bf71071f0b Some work on JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1250 diff changeset	427 if (!dmf_read_le32(inFile, &jssP.size) \|\|
f9bf71071f0b Some work on JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1250 diff changeset	428 !dmf_read_le16(inFile, &jssP.nrows))
f9bf71071f0b Some work on JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1250 diff changeset	429 JSSERROR(DMERR_FREAD, DMERR_FREAD,
f9bf71071f0b Some work on JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1250 diff changeset	430 "Failed to read JSSMOD pattern header #%d.\n",
f9bf71071f0b Some work on JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1250 diff changeset	431 index);
f9bf71071f0b Some work on JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1250 diff changeset	432
f9bf71071f0b Some work on JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1250 diff changeset	433 // Validate
f9bf71071f0b Some work on JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1250 diff changeset	434 if (jssP.nrows == 0 \|\| jssP.nrows > jsetMaxRows)
f9bf71071f0b Some work on JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1250 diff changeset	435 JSSERROR(DMERR_INVALID_DATA, DMERR_INVALID_DATA,
f9bf71071f0b Some work on JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1250 diff changeset	436 "Invalid number of rows in pattern #%d: %d.\n",
1257 60dc14a2e4c5 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 1256 diff changeset	437 index, jssP.nrows);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	438
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	439 // Allocate pattern
1255 f9bf71071f0b Some work on JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1250 diff changeset	440 pattern = module->patterns[index] = jssAllocatePattern(jssP.nrows, module->nchannels);
f9bf71071f0b Some work on JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1250 diff changeset	441 if (pattern == NULL)
1310 dce4730372c7 Add some blocks, cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 1271 diff changeset	442 {
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	443 JSSERROR(DMERR_MALLOC, DMERR_MALLOC,
1212 1483b6af6065 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 1210 diff changeset	444 "Could not allocate memory for pattern #%d.\n",
1483b6af6065 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 1210 diff changeset	445 index);
1310 dce4730372c7 Add some blocks, cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 1271 diff changeset	446 }
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	447
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	448 // Get pattern data
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	449 switch (jssH.patMode)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	450 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	451 #ifdef JM_SUP_PATMODE_1
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	452 case PATMODE_RAW_HORIZ:
1255 f9bf71071f0b Some work on JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1250 diff changeset	453 ret = jssGetPatternRawHoriz(inFile, pattern);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	454 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	455 #endif
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	456 #ifdef JM_SUP_PATMODE_2
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	457 case PATMODE_COMP_HORIZ:
1255 f9bf71071f0b Some work on JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1250 diff changeset	458 ret = jssGetPatternCompHoriz(inFile, pattern);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	459 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	460 #endif
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	461 #ifdef JM_SUP_PATMODE_3
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	462 case PATMODE_RAW_VERT:
1255 f9bf71071f0b Some work on JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1250 diff changeset	463 ret = jssGetPatternRawVert(inFile, pattern);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	464 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	465 #endif
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	466 #ifdef JM_SUP_PATMODE_4
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	467 case PATMODE_COMP_VERT:
1255 f9bf71071f0b Some work on JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1250 diff changeset	468 ret = jssGetPatternCompVert(inFile, pattern);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	469 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	470 #endif
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	471 #ifdef JM_SUP_PATMODE_5
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	472 case PATMODE_RAW_ELEM:
1255 f9bf71071f0b Some work on JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1250 diff changeset	473 ret = jssGetPatternRawVertElem(inFile, pattern);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	474 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	475 #endif
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	476 default:
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	477 JSSERROR(DMERR_INVALID_DATA, DMERR_INVALID_DATA,
1212 1483b6af6065 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 1210 diff changeset	478 "Unsupported pattern mode %d. Check compilation options.",
1483b6af6065 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 1210 diff changeset	479 jssH.patMode);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	480 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	481 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	482
1247 5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	483 if (ret != DMERR_OK)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	484 {
1247 5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	485 JSSERROR(ret, ret,
1212 1483b6af6065 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 1210 diff changeset	486 "Error in unpacking pattern #%d data.\n",
1483b6af6065 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 1210 diff changeset	487 index);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	488 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	489 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	490
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	491 #ifdef JM_SUP_EXT_INSTR
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	492 // Read extended instruments
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	493 for (index = 0; index < module->nextInstruments; index++)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	494 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	495 JSSMODExtInstrument jssE;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	496 JSSExtInstrument *einst;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	497 int i;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	498
1247 5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	499 // Read header data
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	500 if (!dmf_read_byte(inFile, &jssE.nsamples) \|\|
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	501 !dmf_read_byte(inFile, &jssE.vibratoType) \|\|
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	502 !dmf_read_le16(inFile, &jssE.vibratoSweep) \|\|
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	503 !dmf_read_le16(inFile, &jssE.vibratoDepth) \|\|
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	504 !dmf_read_le16(inFile, &jssE.vibratoRate) \|\|
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	505 !dmf_read_le16(inFile, &jssE.fadeOut))
1271 197c9ccdb33c Cosmetic. Matti Hamalainen <ccr@tnsp.org> parents: 1257 diff changeset	506 {
1247 5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	507 JSSERROR(DMERR_FREAD, DMERR_FREAD,
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	508 "Failed to read ext.instrument #%d header.\n",
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	509 index);
1271 197c9ccdb33c Cosmetic. Matti Hamalainen <ccr@tnsp.org> parents: 1257 diff changeset	510 }
1247 5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	511
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	512 // Allocate instrument
1311 f1c4b9b074ad Fixes to jssmod loader. Matti Hamalainen <ccr@tnsp.org> parents: 1310 diff changeset	513 einst = module->extInstruments[index] = jssAllocateExtInstrument();
f1c4b9b074ad Fixes to jssmod loader. Matti Hamalainen <ccr@tnsp.org> parents: 1310 diff changeset	514 if (einst == NULL)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	515 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	516 JSSERROR(DMERR_MALLOC, DMERR_MALLOC,
1214 1133dffe3713 s/%i/%d/g. Matti Hamalainen <ccr@tnsp.org> parents: 1213 diff changeset	517 "Could not allocate extended instrument structure #%d\n", index);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	518 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	519
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	520 einst->nsamples = jssE.nsamples;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	521 einst->vibratoType = jssE.vibratoType;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	522 einst->vibratoSweep = jssE.vibratoSweep;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	523 einst->vibratoDepth = jssE.vibratoDepth;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	524 einst->vibratoRate = jssE.vibratoRate;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	525 einst->fadeOut = jssE.fadeOut;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	526
1247 5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	527 // Read and somewhat validate sNumForNotes
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	528 for (i = 0; i < jsetNNotes; i++)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	529 {
1247 5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	530 int snum;
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	531 Uint32 tmp;
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	532
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	533 if (!dmf_read_le32(inFile, &tmp))
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	534 {
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	535 JSSERROR(DMERR_FREAD, DMERR_FREAD,
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	536 "Failed to read ext.instrument #%d sNumForNotes[%d].\n",
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	537 index, i);
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	538 }
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	539
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	540 einst->sNumForNotes[i] = snum = (tmp > 0) ? ((int) tmp - 1) : jsetNotSet;
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	541
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	542 if (snum != jsetNotSet && snum > module->ninstruments)
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	543 {
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	544 JSSERROR(DMERR_INVALID_DATA, DMERR_INVALID_DATA,
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	545 "Ext.instrument #%d has invalid sNumForNotes[%d] = %d > %d max.\n",
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	546 index, i, snum, module->ninstruments);
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	547 }
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	548 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	549
1247 5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	550 // Read and validate envelopes
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	551 if ((ret = jssMODLoadEnvelope(inFile, &einst->volumeEnv, "volume", index)) != DMERR_OK \|\|
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	552 (ret = jssMODLoadEnvelope(inFile, &einst->panningEnv, "panning", index)) != DMERR_OK)
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	553 return ret;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	554 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	555
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	556 #ifdef JM_SUP_INSTR
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	557 // Read sample instrument headers
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	558 for (index = 0; index < module->ninstruments; index++)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	559 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	560 JSSMODInstrument jssI;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	561 JSSInstrument *inst;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	562
1247 5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	563 // Read header data
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	564 if (!dmf_read_le32(inFile, &jssI.size) \|\|
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	565 !dmf_read_le32(inFile, &jssI.loopS) \|\|
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	566 !dmf_read_le32(inFile, &jssI.loopE) \|\|
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	567 !dmf_read_le16(inFile, &jssI.flags) \|\|
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	568 !dmf_read_le16(inFile, &jssI.C4BaseSpeed) \|\|
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	569 !dmf_read_le16(inFile, &jssI.ERelNote) \|\|
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	570 !dmf_read_le16(inFile, &jssI.EFineTune) \|\|
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	571 !dmf_read_le16(inFile, &jssI.EPanning) \|\|
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	572 !dmf_read_byte(inFile, &jssI.volume) \|\|
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	573 !dmf_read_byte(inFile, &jssI.convFlags))
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	574 {
1247 5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	575 JSSERROR(DMERR_FREAD, DMERR_FREAD,
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	576 "Failed to read sample instrument #%d header.\n",
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	577 index);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	578 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	579
1247 5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	580 // Validate what we can
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	581 if (jssI.loopS > jssI.size \|\|
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	582 jssI.loopE > jssI.size \|\|
1311 f1c4b9b074ad Fixes to jssmod loader. Matti Hamalainen <ccr@tnsp.org> parents: 1310 diff changeset	583 jssI.loopS > jssI.loopE)
1247 5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	584 {
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	585 JSSERROR(DMERR_INVALID_DATA, DMERR_INVALID_DATA,
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	586 "Invalid or corrupted sample instrument #%d.\n",
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	587 index);
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	588 }
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	589
5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	590 // Allocate instrument
1311 f1c4b9b074ad Fixes to jssmod loader. Matti Hamalainen <ccr@tnsp.org> parents: 1310 diff changeset	591 inst = module->instruments[index] = jssAllocateInstrument();
f1c4b9b074ad Fixes to jssmod loader. Matti Hamalainen <ccr@tnsp.org> parents: 1310 diff changeset	592 if (inst == NULL)
f1c4b9b074ad Fixes to jssmod loader. Matti Hamalainen <ccr@tnsp.org> parents: 1310 diff changeset	593 {
f1c4b9b074ad Fixes to jssmod loader. Matti Hamalainen <ccr@tnsp.org> parents: 1310 diff changeset	594 JSSERROR(DMERR_MALLOC, DMERR_MALLOC,
f1c4b9b074ad Fixes to jssmod loader. Matti Hamalainen <ccr@tnsp.org> parents: 1310 diff changeset	595 "Could not allocate sample instrument structure #%d\n",
f1c4b9b074ad Fixes to jssmod loader. Matti Hamalainen <ccr@tnsp.org> parents: 1310 diff changeset	596 index);
f1c4b9b074ad Fixes to jssmod loader. Matti Hamalainen <ccr@tnsp.org> parents: 1310 diff changeset	597 }
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	598
1231 a275b7382ffa Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 1219 diff changeset	599 // Copy data
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	600 inst->size = jssI.size;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	601 inst->loopS = jssI.loopS;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	602 inst->loopE = jssI.loopE;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	603 inst->flags = jssI.flags;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	604 inst->C4BaseSpeed = jssI.C4BaseSpeed;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	605 inst->ERelNote = jssI.ERelNote;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	606 inst->EFineTune = jssI.EFineTune;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	607 inst->EPanning = jssI.EPanning;
1247 5ae2ce21c7ae Some work on refactoring the JSSMOD loader. Matti Hamalainen <ccr@tnsp.org> parents: 1239 diff changeset	608 inst->volume = jssI.volume;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	609 inst->convFlags = jssI.convFlags;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	610 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	611
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	612 #ifdef JM_SUP_SAMPLES
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	613 // Read sample data
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	614 for (index = 0; index < module->ninstruments; index++)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	615 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	616 JSSInstrument *inst = module->instruments[index];
1236 b8c9af10b7fd Work on JSSMOD format. Matti Hamalainen <ccr@tnsp.org> parents: 1234 diff changeset	617 if (inst != NULL && inst->convFlags & jsampHasData)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	618 {
1129 e466d10dae6d Change API of jssDecodeSample{8,16}() functions to return dmlib error codes Matti Hamalainen <ccr@tnsp.org> parents: 1127 diff changeset	619 int ret;
1213 505317227ab4 Rename variable, improve two error messages. Matti Hamalainen <ccr@tnsp.org> parents: 1212 diff changeset	620 size_t bsize = (inst->flags & jsf16bit) ? sizeof(Uint16) : sizeof(Uint8);
505317227ab4 Rename variable, improve two error messages. Matti Hamalainen <ccr@tnsp.org> parents: 1212 diff changeset	621 bsize *= inst->size;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	622
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	623 // Allocate
1213 505317227ab4 Rename variable, improve two error messages. Matti Hamalainen <ccr@tnsp.org> parents: 1212 diff changeset	624 if ((inst->data = dmMalloc(bsize)) == NULL)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	625 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	626 JSSERROR(DMERR_MALLOC, DMERR_MALLOC,
1213 505317227ab4 Rename variable, improve two error messages. Matti Hamalainen <ccr@tnsp.org> parents: 1212 diff changeset	627 "Could not allocate %d bytes of sample data #%d\n",
505317227ab4 Rename variable, improve two error messages. Matti Hamalainen <ccr@tnsp.org> parents: 1212 diff changeset	628 bsize, index);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	629 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	630
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	631 // Copy data
1213 505317227ab4 Rename variable, improve two error messages. Matti Hamalainen <ccr@tnsp.org> parents: 1212 diff changeset	632 if (!dmf_read_str(inFile, inst->data, bsize))
777 ed60a7ee3ebb Change JSSMOD loader to use DMResources. Matti Hamalainen <ccr@tnsp.org> parents: 658 diff changeset	633 {
ed60a7ee3ebb Change JSSMOD loader to use DMResources. Matti Hamalainen <ccr@tnsp.org> parents: 658 diff changeset	634 JSSERROR(DMERR_FREAD, DMERR_FREAD,
1213 505317227ab4 Rename variable, improve two error messages. Matti Hamalainen <ccr@tnsp.org> parents: 1212 diff changeset	635 "Could not read %d bytes of sample data for #%d\n",
505317227ab4 Rename variable, improve two error messages. Matti Hamalainen <ccr@tnsp.org> parents: 1212 diff changeset	636 bsize, index);
777 ed60a7ee3ebb Change JSSMOD loader to use DMResources. Matti Hamalainen <ccr@tnsp.org> parents: 658 diff changeset	637 }
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	638
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	639 // Convert, if needed
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	640 if (inst->flags & jsf16bit)
1129 e466d10dae6d Change API of jssDecodeSample{8,16}() functions to return dmlib error codes Matti Hamalainen <ccr@tnsp.org> parents: 1127 diff changeset	641 ret = jssDecodeSample16(inst->data, inst->size, inst->convFlags);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	642 else
1129 e466d10dae6d Change API of jssDecodeSample{8,16}() functions to return dmlib error codes Matti Hamalainen <ccr@tnsp.org> parents: 1127 diff changeset	643 ret = jssDecodeSample8(inst->data, inst->size, inst->convFlags);
e466d10dae6d Change API of jssDecodeSample{8,16}() functions to return dmlib error codes Matti Hamalainen <ccr@tnsp.org> parents: 1127 diff changeset	644
e466d10dae6d Change API of jssDecodeSample{8,16}() functions to return dmlib error codes Matti Hamalainen <ccr@tnsp.org> parents: 1127 diff changeset	645 if (ret != DMERR_OK)
e466d10dae6d Change API of jssDecodeSample{8,16}() functions to return dmlib error codes Matti Hamalainen <ccr@tnsp.org> parents: 1127 diff changeset	646 {
e466d10dae6d Change API of jssDecodeSample{8,16}() functions to return dmlib error codes Matti Hamalainen <ccr@tnsp.org> parents: 1127 diff changeset	647 JSSERROR(ret, ret,
e466d10dae6d Change API of jssDecodeSample{8,16}() functions to return dmlib error codes Matti Hamalainen <ccr@tnsp.org> parents: 1127 diff changeset	648 "Failed to decode sample data for #%d\n", index);
e466d10dae6d Change API of jssDecodeSample{8,16}() functions to return dmlib error codes Matti Hamalainen <ccr@tnsp.org> parents: 1127 diff changeset	649 }
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	650 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	651 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	652 #else
282 175328b20341 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 204 diff changeset	653 # warning Not including JSSMOD sample loading!
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	654 #endif // JM_SUP_SAMPLES
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	655 #else
282 175328b20341 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 204 diff changeset	656 # warning Not including JSSMOD instrument loading!
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	657 #endif // JM_SUP_INSTR
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	658 #else
282 175328b20341 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 204 diff changeset	659 # warning Not including JSSMOD ext.instrument loading!
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	660 #endif // JM_SUP_EXT_INSTR
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	661
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	662 return DMERR_OK;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	663 }

Mercurial > hg > dmlib

annotate minijss/jloadjss.c @ 1311:f1c4b9b074ad