Mercurial > hg > dmlib
annotate minijss/jloadxm.c @ 1179:e7a951937374
Move variable definitions closer to where they are used.
| author | Matti Hamalainen <ccr@tnsp.org> |
|---|---|
| date | Thu, 05 Mar 2015 10:28:48 +0200 |
| parents | dc26df8b642c |
| children | 08c93ebb85b9 |
| rev | line source |
|---|---|
| 0 | 1 /* |
| 2 * miniJSS - Fast Tracker ][ (XM) module loader | |
| 3 * Programmed and designed by Matti 'ccr' Hamalainen | |
| 1125 | 4 * (C) Copyright 2006-2015 Tecnic Software productions (TNSP) |
| 0 | 5 * |
| 6 * TO DO: | |
| 7 * - Add support for 1.02/1.03 XM-format versions. | |
| 8 * (Not very useful, but if it's not too hard, then do it) | |
| 9 */ | |
| 10 #include "jssmod.h" | |
| 11 | |
| 12 | |
| 13 /* XM value limit definitions | |
| 14 */ | |
| 15 #define XM_MaxChannels (32) | |
| 16 #define XM_MaxPatterns (256) | |
| 17 #define XM_MaxOrders (255) | |
| 18 #define XM_MaxInstruments (128) | |
| 19 #define XM_MaxInstSamples (16) | |
| 20 #define XM_MaxEnvPoints (12) | |
| 21 #define XM_MaxNotes (96) | |
| 22 #define XM_MaxSampleVolume (64) | |
|
1161
92cee852a8af
Check header size against the known values. Bail out if it's too small, and
Matti Hamalainen <ccr@tnsp.org>
parents:
1160
diff
changeset
|
23 #define XM_HeaderSize 276 |
| 0 | 24 |
| 1174 | 25 |
| 0 | 26 /* XM format structures |
| 27 */ | |
| 28 typedef struct | |
| 29 { | |
| 30 char idMagic[17]; // XM header ID "Extended Module: " | |
| 31 char songName[20]; // Module song name | |
| 32 Uint8 unUsed1A; // ALWAYS 0x1a | |
| 33 char trackerName[20]; // ID-string of tracker software | |
|
1176
afdbf62ce8ad
Revamp instrument sample loading somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents:
1175
diff
changeset
|
34 Uint16 version; // XM-version tag |
| 0 | 35 Uint32 headSize; // Module header size, FROM THIS POINT! |
| 36 Uint16 norders, // Number of orders | |
| 37 defRestartPos, // Default song restart position | |
| 38 nchannels, // Number of channels | |
| 39 npatterns, // Number of patterns | |
| 40 ninstruments, // Number of instruments | |
|
552
d4cee32e7050
Rename internal structures, cosmetics.
Matti Hamalainen <ccr@tnsp.org>
parents:
313
diff
changeset
|
41 flags, // Module flags: |
|
d4cee32e7050
Rename internal structures, cosmetics.
Matti Hamalainen <ccr@tnsp.org>
parents:
313
diff
changeset
|
42 // bit0: 0 = Amiga frequency table |
|
d4cee32e7050
Rename internal structures, cosmetics.
Matti Hamalainen <ccr@tnsp.org>
parents:
313
diff
changeset
|
43 // 1 = Linear frequency table |
|
d4cee32e7050
Rename internal structures, cosmetics.
Matti Hamalainen <ccr@tnsp.org>
parents:
313
diff
changeset
|
44 // |
| 0 | 45 defSpeed, // Default speed |
| 46 defTempo; // Default tempo | |
| 47 Uint8 orderList[256]; // Order list | |
| 48 } XMHeader; | |
| 49 | |
| 50 | |
| 51 typedef struct | |
| 52 { | |
| 53 Uint32 headSize; // Instrument header size (see docs!) | |
| 54 char instName[22]; // Name/description | |
| 55 Uint8 instType; // Type | |
| 56 Uint16 nsamples; // Number of samples | |
| 57 } XMInstrument1; | |
| 58 | |
| 59 | |
| 60 typedef struct | |
| 61 { | |
| 62 Uint16 frame, value; | |
|
552
d4cee32e7050
Rename internal structures, cosmetics.
Matti Hamalainen <ccr@tnsp.org>
parents:
313
diff
changeset
|
63 } XMEnvPoint; |
| 0 | 64 |
| 65 | |
| 66 typedef struct | |
| 67 { | |
| 68 Uint8 flags, npoints, sustain, loopS, loopE; | |
|
552
d4cee32e7050
Rename internal structures, cosmetics.
Matti Hamalainen <ccr@tnsp.org>
parents:
313
diff
changeset
|
69 XMEnvPoint points[XM_MaxEnvPoints]; |
|
d4cee32e7050
Rename internal structures, cosmetics.
Matti Hamalainen <ccr@tnsp.org>
parents:
313
diff
changeset
|
70 } XMEnvelope; |
| 0 | 71 |
| 72 | |
| 73 typedef struct | |
| 74 { | |
| 75 Uint32 headSize; // Header size | |
| 76 Uint8 sNumForNotes[XM_MaxNotes]; // Sample numbers for notes | |
|
552
d4cee32e7050
Rename internal structures, cosmetics.
Matti Hamalainen <ccr@tnsp.org>
parents:
313
diff
changeset
|
77 XMEnvelope volumeEnv, panningEnv; |
| 0 | 78 Uint8 vibratoType, vibratoSweep, vibratoDepth, vibratoRate; |
| 79 | |
| 80 Uint16 fadeOut, ARESERVED; | |
| 81 } XMInstrument2; | |
| 82 | |
| 83 | |
| 84 typedef struct | |
| 85 { | |
| 86 Uint32 size, loopS, loopL; | |
| 87 Uint8 volume; | |
|
778
a4cf7716ba58
Clean up the XM module loader a bit, add more error checking.
Matti Hamalainen <ccr@tnsp.org>
parents:
658
diff
changeset
|
88 Sint8 fineTune; |
| 0 | 89 Uint8 type, panning; |
|
778
a4cf7716ba58
Clean up the XM module loader a bit, add more error checking.
Matti Hamalainen <ccr@tnsp.org>
parents:
658
diff
changeset
|
90 Sint8 relNote; |
| 0 | 91 Uint8 ARESERVED; |
| 92 char sampleName[22]; | |
| 93 } XMSample; | |
| 94 | |
| 95 | |
| 96 typedef struct | |
| 97 { | |
| 98 Uint32 headSize; | |
| 99 Uint8 packing; | |
| 100 Uint16 nrows, size; | |
| 101 } XMPattern; | |
| 102 | |
| 103 | |
| 104 | |
| 105 /* Unpack XM-format pattern from file-stream into JSS-pattern structure | |
| 106 */ | |
| 1148 | 107 #define JSGETBYTE(XV) \ |
| 108 do { \ | |
|
778
a4cf7716ba58
Clean up the XM module loader a bit, add more error checking.
Matti Hamalainen <ccr@tnsp.org>
parents:
658
diff
changeset
|
109 size--; \ |
|
a4cf7716ba58
Clean up the XM module loader a bit, add more error checking.
Matti Hamalainen <ccr@tnsp.org>
parents:
658
diff
changeset
|
110 if (size < 0) \ |
|
a4cf7716ba58
Clean up the XM module loader a bit, add more error checking.
Matti Hamalainen <ccr@tnsp.org>
parents:
658
diff
changeset
|
111 JSSERROR(DMERR_OUT_OF_DATA, DMERR_OUT_OF_DATA, \ |
|
a4cf7716ba58
Clean up the XM module loader a bit, add more error checking.
Matti Hamalainen <ccr@tnsp.org>
parents:
658
diff
changeset
|
112 "Unexpected end of packed pattern data.\n"); \ |
|
a4cf7716ba58
Clean up the XM module loader a bit, add more error checking.
Matti Hamalainen <ccr@tnsp.org>
parents:
658
diff
changeset
|
113 XV = dmfgetc(inFile); \ |
| 0 | 114 } while (0) |
| 115 | |
| 116 | |
| 1148 | 117 /* Convert XM note value to internal JSS note |
| 118 */ | |
|
313
a89500f26dde
Cleanup the pattern decoder a bit.
Matti Hamalainen <ccr@tnsp.org>
parents:
183
diff
changeset
|
119 static int jssXMConvertNote(int val) |
|
a89500f26dde
Cleanup the pattern decoder a bit.
Matti Hamalainen <ccr@tnsp.org>
parents:
183
diff
changeset
|
120 { |
|
a89500f26dde
Cleanup the pattern decoder a bit.
Matti Hamalainen <ccr@tnsp.org>
parents:
183
diff
changeset
|
121 if (val < 1 || val > 97) |
|
a89500f26dde
Cleanup the pattern decoder a bit.
Matti Hamalainen <ccr@tnsp.org>
parents:
183
diff
changeset
|
122 return jsetNotSet; |
| 1148 | 123 else |
| 124 if (val == 97) | |
|
313
a89500f26dde
Cleanup the pattern decoder a bit.
Matti Hamalainen <ccr@tnsp.org>
parents:
183
diff
changeset
|
125 return jsetNoteOff; |
|
a89500f26dde
Cleanup the pattern decoder a bit.
Matti Hamalainen <ccr@tnsp.org>
parents:
183
diff
changeset
|
126 else |
|
a89500f26dde
Cleanup the pattern decoder a bit.
Matti Hamalainen <ccr@tnsp.org>
parents:
183
diff
changeset
|
127 return val - 1; |
|
a89500f26dde
Cleanup the pattern decoder a bit.
Matti Hamalainen <ccr@tnsp.org>
parents:
183
diff
changeset
|
128 } |
|
a89500f26dde
Cleanup the pattern decoder a bit.
Matti Hamalainen <ccr@tnsp.org>
parents:
183
diff
changeset
|
129 |
|
a89500f26dde
Cleanup the pattern decoder a bit.
Matti Hamalainen <ccr@tnsp.org>
parents:
183
diff
changeset
|
130 |
| 1148 | 131 /* Unpack a XM pattern structure from resource to given JSS pattern |
| 132 */ | |
| 0 | 133 static int jssXMUnpackPattern(DMResource *inFile, int size, JSSPattern *pattern) |
| 134 { | |
| 135 JSSNote *pnote; | |
|
1179
e7a951937374
Move variable definitions closer to where they are used.
Matti Hamalainen <ccr@tnsp.org>
parents:
1177
diff
changeset
|
136 int row, channel; |
| 0 | 137 assert(pattern != NULL); |
| 138 | |
| 139 pnote = pattern->data; | |
| 140 | |
|
313
a89500f26dde
Cleanup the pattern decoder a bit.
Matti Hamalainen <ccr@tnsp.org>
parents:
183
diff
changeset
|
141 for (row = 0; row < pattern->nrows && size > 0; row++) |
|
a89500f26dde
Cleanup the pattern decoder a bit.
Matti Hamalainen <ccr@tnsp.org>
parents:
183
diff
changeset
|
142 for (channel = 0; channel < pattern->nchannels && size > 0; channel++) |
| 0 | 143 { |
|
1179
e7a951937374
Move variable definitions closer to where they are used.
Matti Hamalainen <ccr@tnsp.org>
parents:
1177
diff
changeset
|
144 int packb, tmp; |
| 0 | 145 JSGETBYTE(packb); |
| 146 if (packb & 0x80) | |
| 147 { | |
| 148 if (packb & 0x01) | |
| 149 { | |
| 150 // PACK 0x01: Read note | |
| 151 JSGETBYTE(tmp); | |
|
313
a89500f26dde
Cleanup the pattern decoder a bit.
Matti Hamalainen <ccr@tnsp.org>
parents:
183
diff
changeset
|
152 pnote->note = jssXMConvertNote(tmp); |
| 0 | 153 } |
| 154 | |
| 155 if (packb & 0x02) | |
| 156 { | |
| 157 // PACK 0x02: Read instrument | |
| 158 JSGETBYTE(tmp); | |
| 159 pnote->instrument = (tmp > 0) ? tmp - 1 : jsetNotSet; | |
| 160 } | |
| 161 | |
| 162 if (packb & 0x04) | |
| 163 { | |
| 164 // PACK 0x04: Read volume | |
| 165 JSGETBYTE(tmp); | |
| 166 pnote->volume = (tmp >= 0x10) ? tmp - 0x10 : jsetNotSet; | |
| 167 } | |
| 168 | |
| 169 if (packb & 0x08) | |
| 170 { | |
| 171 // PACK 0x08: Read effect | |
| 172 JSGETBYTE(pnote->effect); | |
| 173 pnote->param = 0; | |
| 174 } | |
| 175 | |
| 176 if (packb & 0x10) | |
| 177 { | |
| 178 // PACK 0x10: Read effect parameter | |
| 179 JSGETBYTE(pnote->param); | |
| 180 if (pnote->effect == jsetNotSet && pnote->param != 0) | |
| 181 pnote->effect = 0; | |
| 182 } | |
| 183 } | |
| 184 else | |
| 185 { | |
| 186 // All data available | |
|
313
a89500f26dde
Cleanup the pattern decoder a bit.
Matti Hamalainen <ccr@tnsp.org>
parents:
183
diff
changeset
|
187 pnote->note = jssXMConvertNote(packb & 0x7f); |
| 0 | 188 |
| 189 // Get instrument | |
| 190 JSGETBYTE(tmp); | |
| 191 pnote->instrument = (tmp > 0) ? tmp - 1 : jsetNotSet; | |
| 192 | |
| 193 // Get volume | |
| 194 JSGETBYTE(tmp); | |
| 195 pnote->volume = (tmp >= 0x10) ? tmp - 0x10 : jsetNotSet; | |
| 196 | |
| 197 // Get effect | |
| 198 JSGETBYTE(pnote->effect); | |
| 199 | |
| 200 // Get parameter | |
| 201 JSGETBYTE(pnote->param); | |
| 202 if (pnote->effect == 0 && pnote->param == 0) | |
| 203 pnote->effect = pnote->param = jsetNotSet; | |
| 204 } | |
| 205 pnote++; | |
| 206 } | |
| 207 | |
| 208 // Check the state | |
| 209 if (size > 0) | |
| 210 { | |
| 211 // Some data left unparsed | |
| 212 JSSWARNING(DMERR_EXTRA_DATA, DMERR_EXTRA_DATA, | |
| 1162 | 213 "Unparsed data after pattern (%d bytes), possibly broken file.\n", |
| 214 size); | |
| 0 | 215 } |
| 216 | |
| 217 return DMERR_OK; | |
| 218 } | |
| 219 | |
| 220 | |
| 221 /* Convert XM envelope structure to JSS envelope structure | |
| 222 */ | |
| 1174 | 223 static int jssXMConvertEnvelope( |
| 224 JSSEnvelope *dst, XMEnvelope *src, | |
| 225 const char *name, const int ninstr) | |
| 0 | 226 { |
| 227 int i; | |
| 1148 | 228 (void) name; |
| 229 (void) ninstr; | |
| 0 | 230 |
| 231 // Convert envelope points | |
| 232 for (i = 0; i < XM_MaxEnvPoints; i++) | |
| 233 { | |
|
1149
f5edb39a8db1
Rename some function arguments for clarity. One letter variable names are
Matti Hamalainen <ccr@tnsp.org>
parents:
1148
diff
changeset
|
234 dst->points[i].frame = src->points[i].frame; |
|
f5edb39a8db1
Rename some function arguments for clarity. One letter variable names are
Matti Hamalainen <ccr@tnsp.org>
parents:
1148
diff
changeset
|
235 dst->points[i].value = src->points[i].value; |
| 0 | 236 } |
|
1127
e22d4ceb6414
Cosmetics pass, remove excess and trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
1126
diff
changeset
|
237 |
| 0 | 238 // Convert other values |
|
1149
f5edb39a8db1
Rename some function arguments for clarity. One letter variable names are
Matti Hamalainen <ccr@tnsp.org>
parents:
1148
diff
changeset
|
239 dst->npoints = src->npoints; |
|
f5edb39a8db1
Rename some function arguments for clarity. One letter variable names are
Matti Hamalainen <ccr@tnsp.org>
parents:
1148
diff
changeset
|
240 dst->sustain = src->sustain; |
|
f5edb39a8db1
Rename some function arguments for clarity. One letter variable names are
Matti Hamalainen <ccr@tnsp.org>
parents:
1148
diff
changeset
|
241 dst->loopS = src->loopS; |
|
f5edb39a8db1
Rename some function arguments for clarity. One letter variable names are
Matti Hamalainen <ccr@tnsp.org>
parents:
1148
diff
changeset
|
242 dst->loopE = src->loopE; |
|
1127
e22d4ceb6414
Cosmetics pass, remove excess and trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
1126
diff
changeset
|
243 |
| 0 | 244 // Check if the envelope is used |
|
1149
f5edb39a8db1
Rename some function arguments for clarity. One letter variable names are
Matti Hamalainen <ccr@tnsp.org>
parents:
1148
diff
changeset
|
245 if (src->flags & 0x01) |
| 0 | 246 { |
| 247 // Convert envelope flags | |
|
1149
f5edb39a8db1
Rename some function arguments for clarity. One letter variable names are
Matti Hamalainen <ccr@tnsp.org>
parents:
1148
diff
changeset
|
248 dst->flags = jenvfUsed; |
|
f5edb39a8db1
Rename some function arguments for clarity. One letter variable names are
Matti Hamalainen <ccr@tnsp.org>
parents:
1148
diff
changeset
|
249 if (src->flags & 0x02) |
|
f5edb39a8db1
Rename some function arguments for clarity. One letter variable names are
Matti Hamalainen <ccr@tnsp.org>
parents:
1148
diff
changeset
|
250 dst->flags |= jenvfSustain; |
|
f5edb39a8db1
Rename some function arguments for clarity. One letter variable names are
Matti Hamalainen <ccr@tnsp.org>
parents:
1148
diff
changeset
|
251 |
|
f5edb39a8db1
Rename some function arguments for clarity. One letter variable names are
Matti Hamalainen <ccr@tnsp.org>
parents:
1148
diff
changeset
|
252 if (src->flags & 0x04) |
|
f5edb39a8db1
Rename some function arguments for clarity. One letter variable names are
Matti Hamalainen <ccr@tnsp.org>
parents:
1148
diff
changeset
|
253 dst->flags |= jenvfLooped; |
| 0 | 254 |
|
1149
f5edb39a8db1
Rename some function arguments for clarity. One letter variable names are
Matti Hamalainen <ccr@tnsp.org>
parents:
1148
diff
changeset
|
255 if (src->flags & 0xf0) |
|
f5edb39a8db1
Rename some function arguments for clarity. One letter variable names are
Matti Hamalainen <ccr@tnsp.org>
parents:
1148
diff
changeset
|
256 { |
|
f5edb39a8db1
Rename some function arguments for clarity. One letter variable names are
Matti Hamalainen <ccr@tnsp.org>
parents:
1148
diff
changeset
|
257 JSSWARNING(DMERR_INVALID_DATA, DMERR_INVALID_DATA, |
|
f5edb39a8db1
Rename some function arguments for clarity. One letter variable names are
Matti Hamalainen <ccr@tnsp.org>
parents:
1148
diff
changeset
|
258 "Inst#%d/%s-env: Uses unsupported flags values, 0x%02x.\n", |
|
f5edb39a8db1
Rename some function arguments for clarity. One letter variable names are
Matti Hamalainen <ccr@tnsp.org>
parents:
1148
diff
changeset
|
259 ninstr, name, src->flags); |
|
f5edb39a8db1
Rename some function arguments for clarity. One letter variable names are
Matti Hamalainen <ccr@tnsp.org>
parents:
1148
diff
changeset
|
260 } |
| 0 | 261 |
| 262 // Check other values | |
|
1149
f5edb39a8db1
Rename some function arguments for clarity. One letter variable names are
Matti Hamalainen <ccr@tnsp.org>
parents:
1148
diff
changeset
|
263 if (src->npoints > XM_MaxEnvPoints) |
| 0 | 264 { |
| 265 JSSWARNING(DMERR_INVALID_DATA, DMERR_INVALID_DATA, | |
| 1174 | 266 "Inst#%d/%s-env: npoints > MAX, possibly broken file.\n", |
|
1149
f5edb39a8db1
Rename some function arguments for clarity. One letter variable names are
Matti Hamalainen <ccr@tnsp.org>
parents:
1148
diff
changeset
|
267 ninstr, name); |
|
f5edb39a8db1
Rename some function arguments for clarity. One letter variable names are
Matti Hamalainen <ccr@tnsp.org>
parents:
1148
diff
changeset
|
268 dst->npoints = XM_MaxEnvPoints; |
| 0 | 269 } |
| 270 | |
|
1149
f5edb39a8db1
Rename some function arguments for clarity. One letter variable names are
Matti Hamalainen <ccr@tnsp.org>
parents:
1148
diff
changeset
|
271 if ((dst->flags & jenvfSustain) && src->sustain > src->npoints) |
| 0 | 272 { |
| 273 JSSWARNING(DMERR_INVALID_DATA, DMERR_INVALID_DATA, | |
| 1174 | 274 "Inst#%d/%s-env: sustain > npoints (%d > %d), possibly broken file.\n", |
|
1149
f5edb39a8db1
Rename some function arguments for clarity. One letter variable names are
Matti Hamalainen <ccr@tnsp.org>
parents:
1148
diff
changeset
|
275 ninstr, name, src->sustain, src->npoints); |
|
f5edb39a8db1
Rename some function arguments for clarity. One letter variable names are
Matti Hamalainen <ccr@tnsp.org>
parents:
1148
diff
changeset
|
276 dst->sustain = src->npoints; |
| 0 | 277 } |
| 278 | |
|
1149
f5edb39a8db1
Rename some function arguments for clarity. One letter variable names are
Matti Hamalainen <ccr@tnsp.org>
parents:
1148
diff
changeset
|
279 if ((dst->flags & jenvfLooped) && src->loopE > src->npoints) |
| 0 | 280 { |
| 281 JSSWARNING(DMERR_INVALID_DATA, DMERR_INVALID_DATA, | |
| 1174 | 282 "Inst#%d/%s-env: loopE > npoints (%d > %d), possibly broken file.\n", |
|
1149
f5edb39a8db1
Rename some function arguments for clarity. One letter variable names are
Matti Hamalainen <ccr@tnsp.org>
parents:
1148
diff
changeset
|
283 ninstr, name, src->loopE, src->npoints); |
|
f5edb39a8db1
Rename some function arguments for clarity. One letter variable names are
Matti Hamalainen <ccr@tnsp.org>
parents:
1148
diff
changeset
|
284 dst->loopE = src->npoints; |
| 0 | 285 } |
| 286 | |
|
1149
f5edb39a8db1
Rename some function arguments for clarity. One letter variable names are
Matti Hamalainen <ccr@tnsp.org>
parents:
1148
diff
changeset
|
287 if ((dst->flags & jenvfLooped) && src->loopS > src->loopE) |
| 0 | 288 { |
| 289 JSSWARNING(DMERR_INVALID_DATA, DMERR_INVALID_DATA, | |
|
778
a4cf7716ba58
Clean up the XM module loader a bit, add more error checking.
Matti Hamalainen <ccr@tnsp.org>
parents:
658
diff
changeset
|
290 "Inst#%d/%s-env: loopS > loopE (%d > %d), possibly broken file.\n", |
|
1149
f5edb39a8db1
Rename some function arguments for clarity. One letter variable names are
Matti Hamalainen <ccr@tnsp.org>
parents:
1148
diff
changeset
|
291 ninstr, name, src->loopS, src->loopE); |
|
f5edb39a8db1
Rename some function arguments for clarity. One letter variable names are
Matti Hamalainen <ccr@tnsp.org>
parents:
1148
diff
changeset
|
292 dst->loopS = src->loopE; |
| 0 | 293 } |
| 294 } | |
| 295 | |
| 296 return DMERR_OK; | |
| 297 } | |
| 298 | |
| 299 | |
|
1176
afdbf62ce8ad
Revamp instrument sample loading somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents:
1175
diff
changeset
|
300 static int jssXMLoadSampleInstrument( |
|
afdbf62ce8ad
Revamp instrument sample loading somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents:
1175
diff
changeset
|
301 DMResource *inFile, JSSModule *module, |
|
afdbf62ce8ad
Revamp instrument sample loading somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents:
1175
diff
changeset
|
302 JSSExtInstrument *einst, int ninst, int nsample) |
|
1124
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
303 { |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
304 XMSample xmS; |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
305 JSSInstrument *inst; |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
306 |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
307 // Read header data |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
308 if (!dmf_read_le32(inFile, &xmS.size) || |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
309 !dmf_read_le32(inFile, &xmS.loopS) || |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
310 !dmf_read_le32(inFile, &xmS.loopL) || |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
311 !dmf_read_byte(inFile, &xmS.volume) || |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
312 !dmf_read_byte(inFile, (Uint8 *) &xmS.fineTune) || |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
313 !dmf_read_byte(inFile, &xmS.type) || |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
314 !dmf_read_byte(inFile, &xmS.panning) || |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
315 !dmf_read_byte(inFile, (Uint8 *) &xmS.relNote) || |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
316 !dmf_read_byte(inFile, &xmS.ARESERVED) || |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
317 !dmf_read_str(inFile, &xmS.sampleName, sizeof(xmS.sampleName))) |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
318 { |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
319 JSSERROR(DMERR_FREAD, DMERR_FREAD, |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
320 "Error reading instrument sample header #%d/%d [%d]", |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
321 ninst, nsample, module->ninstruments); |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
322 } |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
323 |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
324 if (xmS.size <= 0) |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
325 return DMERR_OK; |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
326 |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
327 // Allocate sample instrument |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
328 JSSDEBUG("Allocating sample #%d/%d [%d]\n", |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
329 ninst, nsample, module->ninstruments); |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
330 |
|
1176
afdbf62ce8ad
Revamp instrument sample loading somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents:
1175
diff
changeset
|
331 einst->instConvTable[nsample] = module->ninstruments; |
|
1124
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
332 inst = module->instruments[module->ninstruments] = jssAllocateInstrument(); |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
333 if (inst == NULL) |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
334 { |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
335 JSSERROR(DMERR_MALLOC, DMERR_MALLOC, |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
336 "Could not allocate sample #%d/%d [%d]\n", |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
337 ninst, nsample, module->ninstruments); |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
338 } |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
339 module->ninstruments++; |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
340 |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
341 // Copy values |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
342 if (xmS.volume > XM_MaxSampleVolume) |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
343 { |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
344 JSSWARNING(DMERR_INVALID_DATA, DMERR_INVALID_DATA, |
| 1162 | 345 "Samp #%d/%d: volume > MAX\n", ninst, nsample); |
|
1124
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
346 xmS.volume = XM_MaxSampleVolume; |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
347 } |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
348 |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
349 inst->volume = xmS.volume; |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
350 inst->ERelNote = xmS.relNote; |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
351 inst->EFineTune = xmS.fineTune; |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
352 inst->EPanning = xmS.panning; |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
353 #ifndef JSS_LIGHT |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
354 inst->desc = jssASCIItoStr(xmS.sampleName, 0, sizeof(xmS.sampleName)); |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
355 #endif |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
356 |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
357 // Convert flags |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
358 switch (xmS.type & 0x03) |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
359 { |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
360 case 0: inst->flags = 0; break; |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
361 case 1: inst->flags = jsfLooped; break; |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
362 default: |
|
1171
bc7473c0b9ce
Assume that sample type 3 is basically misinterpretation of the field as a
Matti Hamalainen <ccr@tnsp.org>
parents:
1167
diff
changeset
|
363 // Basically 2 is the value for bidi-loop, and |
|
bc7473c0b9ce
Assume that sample type 3 is basically misinterpretation of the field as a
Matti Hamalainen <ccr@tnsp.org>
parents:
1167
diff
changeset
|
364 // 3 is undefined, but some module writers might've |
|
bc7473c0b9ce
Assume that sample type 3 is basically misinterpretation of the field as a
Matti Hamalainen <ccr@tnsp.org>
parents:
1167
diff
changeset
|
365 // assumed that this is a bit-field, e.g. 1 | 2 = 3 |
|
bc7473c0b9ce
Assume that sample type 3 is basically misinterpretation of the field as a
Matti Hamalainen <ccr@tnsp.org>
parents:
1167
diff
changeset
|
366 inst->flags = jsfLooped | jsfBiDi; break; |
|
1124
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
367 break; |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
368 } |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
369 |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
370 if (xmS.type & 0x10) |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
371 { |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
372 // 16-bit sample |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
373 JSFSET(inst->flags, jsf16bit); |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
374 inst->size = xmS.size / sizeof(Uint16); |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
375 inst->loopS = xmS.loopS / sizeof(Uint16); |
| 1174 | 376 inst->loopE = (xmS.loopS + xmS.loopL) / sizeof(Uint16); |
|
1124
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
377 } |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
378 else |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
379 { |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
380 // 8-bit sample |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
381 inst->size = xmS.size; |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
382 inst->loopS = xmS.loopS; |
| 1174 | 383 inst->loopE = xmS.loopS + xmS.loopL; |
|
1124
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
384 } |
|
1127
e22d4ceb6414
Cosmetics pass, remove excess and trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
1126
diff
changeset
|
385 |
|
1124
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
386 if (xmS.loopL == 0) |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
387 { |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
388 // Always unset loop, if loop length is zero |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
389 JSFUNSET(inst->flags, jsfLooped); |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
390 } |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
391 |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
392 if (inst->flags & jsfLooped) |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
393 { |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
394 if (inst->loopS >= inst->size) |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
395 { |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
396 JSSWARNING(DMERR_INVALID_DATA, DMERR_INVALID_DATA, |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
397 "Samp #%d/%d: loopS >= size (%d >= %d)\n", |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
398 ninst, nsample, inst->loopS, inst->size); |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
399 JSFUNSET(inst->flags, jsfLooped); |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
400 } |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
401 |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
402 if (inst->loopE > inst->size) |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
403 { |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
404 JSSWARNING(DMERR_INVALID_DATA, DMERR_INVALID_DATA, |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
405 "Samp #%d/%d: loopE > size (%d > %d)\n", |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
406 ninst, nsample, inst->loopE, inst->size); |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
407 JSFUNSET(inst->flags, jsfLooped); |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
408 } |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
409 } |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
410 |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
411 return DMERR_OK; |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
412 } |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
413 |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
414 |
| 1158 | 415 static int jssXMLoadSampleData(DMResource *inFile, JSSInstrument *inst, int ninst, int nsample) |
|
1130
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
416 { |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
417 int ret; |
|
1157
e13269e17422
Clean up the sample data loading a bit.
Matti Hamalainen <ccr@tnsp.org>
parents:
1149
diff
changeset
|
418 size_t bsize; |
|
1130
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
419 |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
420 JSSDEBUG("desc....: '%s'\n" |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
421 "size....: %d\n" |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
422 "loopS...: %d\n" |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
423 "loopE...: %d\n" |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
424 "volume..: %d\n" |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
425 "flags...: %x\n", |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
426 inst->desc, |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
427 inst->size, inst->loopS, inst->loopE, |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
428 inst->volume, inst->flags); |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
429 |
|
1157
e13269e17422
Clean up the sample data loading a bit.
Matti Hamalainen <ccr@tnsp.org>
parents:
1149
diff
changeset
|
430 // Allocate memory for sample data |
|
e13269e17422
Clean up the sample data loading a bit.
Matti Hamalainen <ccr@tnsp.org>
parents:
1149
diff
changeset
|
431 bsize = (inst->flags & jsf16bit) ? sizeof(Uint16) : sizeof(Uint8); |
|
e13269e17422
Clean up the sample data loading a bit.
Matti Hamalainen <ccr@tnsp.org>
parents:
1149
diff
changeset
|
432 bsize *= inst->size; |
|
e13269e17422
Clean up the sample data loading a bit.
Matti Hamalainen <ccr@tnsp.org>
parents:
1149
diff
changeset
|
433 |
|
e13269e17422
Clean up the sample data loading a bit.
Matti Hamalainen <ccr@tnsp.org>
parents:
1149
diff
changeset
|
434 if ((inst->data = dmMalloc(bsize)) == NULL) |
|
e13269e17422
Clean up the sample data loading a bit.
Matti Hamalainen <ccr@tnsp.org>
parents:
1149
diff
changeset
|
435 { |
|
e13269e17422
Clean up the sample data loading a bit.
Matti Hamalainen <ccr@tnsp.org>
parents:
1149
diff
changeset
|
436 JSSERROR(DMERR_MALLOC, DMERR_MALLOC, |
|
e13269e17422
Clean up the sample data loading a bit.
Matti Hamalainen <ccr@tnsp.org>
parents:
1149
diff
changeset
|
437 "Could not allocate %d bytes of sample data for instrument/sample #%d/%d.\n", |
|
e13269e17422
Clean up the sample data loading a bit.
Matti Hamalainen <ccr@tnsp.org>
parents:
1149
diff
changeset
|
438 bsize, ninst, nsample); |
|
e13269e17422
Clean up the sample data loading a bit.
Matti Hamalainen <ccr@tnsp.org>
parents:
1149
diff
changeset
|
439 } |
|
e13269e17422
Clean up the sample data loading a bit.
Matti Hamalainen <ccr@tnsp.org>
parents:
1149
diff
changeset
|
440 |
|
e13269e17422
Clean up the sample data loading a bit.
Matti Hamalainen <ccr@tnsp.org>
parents:
1149
diff
changeset
|
441 // Read sampledata |
|
e13269e17422
Clean up the sample data loading a bit.
Matti Hamalainen <ccr@tnsp.org>
parents:
1149
diff
changeset
|
442 if (dmfread(inst->data, sizeof(Uint8), bsize, inFile) != bsize) |
|
e13269e17422
Clean up the sample data loading a bit.
Matti Hamalainen <ccr@tnsp.org>
parents:
1149
diff
changeset
|
443 { |
|
e13269e17422
Clean up the sample data loading a bit.
Matti Hamalainen <ccr@tnsp.org>
parents:
1149
diff
changeset
|
444 JSSERROR(DMERR_FREAD, DMERR_FREAD, |
|
e13269e17422
Clean up the sample data loading a bit.
Matti Hamalainen <ccr@tnsp.org>
parents:
1149
diff
changeset
|
445 "Error reading sample data for instrument #%d/%d, %d bytes.\n", |
|
e13269e17422
Clean up the sample data loading a bit.
Matti Hamalainen <ccr@tnsp.org>
parents:
1149
diff
changeset
|
446 ninst, nsample, bsize); |
|
e13269e17422
Clean up the sample data loading a bit.
Matti Hamalainen <ccr@tnsp.org>
parents:
1149
diff
changeset
|
447 } |
|
e13269e17422
Clean up the sample data loading a bit.
Matti Hamalainen <ccr@tnsp.org>
parents:
1149
diff
changeset
|
448 |
|
e13269e17422
Clean up the sample data loading a bit.
Matti Hamalainen <ccr@tnsp.org>
parents:
1149
diff
changeset
|
449 // Convert the sample data |
|
1130
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
450 if (inst->flags & jsf16bit) |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
451 { |
|
1157
e13269e17422
Clean up the sample data loading a bit.
Matti Hamalainen <ccr@tnsp.org>
parents:
1149
diff
changeset
|
452 ret = jssDecodeSample16( |
|
e13269e17422
Clean up the sample data loading a bit.
Matti Hamalainen <ccr@tnsp.org>
parents:
1149
diff
changeset
|
453 (Uint16 *) inst->data, inst->size, |
|
1130
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
454 #if (SDL_BYTEORDER == SDL_BIG_ENDIAN) |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
455 (jsampDelta | jsampSwapEndianess) |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
456 #else |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
457 (jsampDelta) |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
458 #endif |
|
1157
e13269e17422
Clean up the sample data loading a bit.
Matti Hamalainen <ccr@tnsp.org>
parents:
1149
diff
changeset
|
459 ); |
|
1130
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
460 } |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
461 else |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
462 { |
|
1157
e13269e17422
Clean up the sample data loading a bit.
Matti Hamalainen <ccr@tnsp.org>
parents:
1149
diff
changeset
|
463 ret = jssDecodeSample8( |
|
e13269e17422
Clean up the sample data loading a bit.
Matti Hamalainen <ccr@tnsp.org>
parents:
1149
diff
changeset
|
464 (Uint8 *) inst->data, inst->size, |
|
e13269e17422
Clean up the sample data loading a bit.
Matti Hamalainen <ccr@tnsp.org>
parents:
1149
diff
changeset
|
465 (jsampDelta | jsampFlipSign)); |
|
1130
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
466 } |
|
1176
afdbf62ce8ad
Revamp instrument sample loading somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents:
1175
diff
changeset
|
467 |
|
1157
e13269e17422
Clean up the sample data loading a bit.
Matti Hamalainen <ccr@tnsp.org>
parents:
1149
diff
changeset
|
468 return ret; |
|
1130
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
469 } |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
470 |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
471 |
|
1176
afdbf62ce8ad
Revamp instrument sample loading somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents:
1175
diff
changeset
|
472 static int jssXMLoadInstrumentSamples( |
|
afdbf62ce8ad
Revamp instrument sample loading somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents:
1175
diff
changeset
|
473 DMResource *inFile, JSSModule *module, |
|
afdbf62ce8ad
Revamp instrument sample loading somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents:
1175
diff
changeset
|
474 JSSExtInstrument *einst, int ninst) |
|
afdbf62ce8ad
Revamp instrument sample loading somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents:
1175
diff
changeset
|
475 { |
|
afdbf62ce8ad
Revamp instrument sample loading somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents:
1175
diff
changeset
|
476 int nsample, ret; |
|
afdbf62ce8ad
Revamp instrument sample loading somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents:
1175
diff
changeset
|
477 |
|
afdbf62ce8ad
Revamp instrument sample loading somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents:
1175
diff
changeset
|
478 for (nsample = 0; nsample < einst->nsamples; nsample++) |
|
afdbf62ce8ad
Revamp instrument sample loading somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents:
1175
diff
changeset
|
479 if (einst->instConvTable[nsample] != jsetNotSet) |
|
afdbf62ce8ad
Revamp instrument sample loading somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents:
1175
diff
changeset
|
480 { |
|
afdbf62ce8ad
Revamp instrument sample loading somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents:
1175
diff
changeset
|
481 JSSInstrument *inst = module->instruments[einst->instConvTable[nsample]]; |
|
afdbf62ce8ad
Revamp instrument sample loading somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents:
1175
diff
changeset
|
482 if ((ret = jssXMLoadSampleData(inFile, inst, ninst, nsample)) != DMERR_OK) |
|
afdbf62ce8ad
Revamp instrument sample loading somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents:
1175
diff
changeset
|
483 return ret; |
|
afdbf62ce8ad
Revamp instrument sample loading somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents:
1175
diff
changeset
|
484 } |
|
afdbf62ce8ad
Revamp instrument sample loading somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents:
1175
diff
changeset
|
485 |
|
afdbf62ce8ad
Revamp instrument sample loading somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents:
1175
diff
changeset
|
486 return DMERR_OK; |
|
afdbf62ce8ad
Revamp instrument sample loading somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents:
1175
diff
changeset
|
487 } |
|
afdbf62ce8ad
Revamp instrument sample loading somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents:
1175
diff
changeset
|
488 |
|
afdbf62ce8ad
Revamp instrument sample loading somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents:
1175
diff
changeset
|
489 |
| 1132 | 490 static BOOL jssXMLoadEnvelopePoints(DMResource *inFile, XMEnvelope *env) |
|
1131
b349646f19a0
Split envelope reading to tiny helper function.
Matti Hamalainen <ccr@tnsp.org>
parents:
1130
diff
changeset
|
491 { |
|
b349646f19a0
Split envelope reading to tiny helper function.
Matti Hamalainen <ccr@tnsp.org>
parents:
1130
diff
changeset
|
492 int i; |
|
b349646f19a0
Split envelope reading to tiny helper function.
Matti Hamalainen <ccr@tnsp.org>
parents:
1130
diff
changeset
|
493 for (i = 0; i < XM_MaxEnvPoints; i++) |
|
b349646f19a0
Split envelope reading to tiny helper function.
Matti Hamalainen <ccr@tnsp.org>
parents:
1130
diff
changeset
|
494 { |
|
b349646f19a0
Split envelope reading to tiny helper function.
Matti Hamalainen <ccr@tnsp.org>
parents:
1130
diff
changeset
|
495 if (!dmf_read_le16(inFile, &(env->points[i].frame)) || |
|
b349646f19a0
Split envelope reading to tiny helper function.
Matti Hamalainen <ccr@tnsp.org>
parents:
1130
diff
changeset
|
496 !dmf_read_le16(inFile, &(env->points[i].value))) |
|
b349646f19a0
Split envelope reading to tiny helper function.
Matti Hamalainen <ccr@tnsp.org>
parents:
1130
diff
changeset
|
497 return FALSE; |
|
b349646f19a0
Split envelope reading to tiny helper function.
Matti Hamalainen <ccr@tnsp.org>
parents:
1130
diff
changeset
|
498 } |
|
b349646f19a0
Split envelope reading to tiny helper function.
Matti Hamalainen <ccr@tnsp.org>
parents:
1130
diff
changeset
|
499 return TRUE; |
|
b349646f19a0
Split envelope reading to tiny helper function.
Matti Hamalainen <ccr@tnsp.org>
parents:
1130
diff
changeset
|
500 } |
|
b349646f19a0
Split envelope reading to tiny helper function.
Matti Hamalainen <ccr@tnsp.org>
parents:
1130
diff
changeset
|
501 |
|
b349646f19a0
Split envelope reading to tiny helper function.
Matti Hamalainen <ccr@tnsp.org>
parents:
1130
diff
changeset
|
502 |
| 1132 | 503 static BOOL jssXMLoadEnvelopeData(DMResource *inFile, XMEnvelope *env) |
| 504 { | |
| 505 return | |
| 506 dmf_read_byte(inFile, &(env->sustain)) && | |
| 507 dmf_read_byte(inFile, &(env->loopS)) && | |
| 508 dmf_read_byte(inFile, &(env->loopE)); | |
| 509 } | |
| 510 | |
| 511 | |
| 0 | 512 /* Load XM-format extended instrument from file-stream into JSS module's given inst |
| 513 */ | |
| 514 static int jssXMLoadExtInstrument(DMResource *inFile, int ninst, JSSModule *module) | |
| 515 { | |
| 516 XMInstrument1 xmI1; | |
| 1126 | 517 off_t remainder, pos = dmftell(inFile); |
| 1175 | 518 JSSExtInstrument *einst; |
|
1130
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
519 XMInstrument2 xmI2; |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
520 int i, nsample, ret; |
| 0 | 521 |
| 522 // Get instrument header #1 | |
|
778
a4cf7716ba58
Clean up the XM module loader a bit, add more error checking.
Matti Hamalainen <ccr@tnsp.org>
parents:
658
diff
changeset
|
523 if (!dmf_read_le32(inFile, &xmI1.headSize) || |
|
a4cf7716ba58
Clean up the XM module loader a bit, add more error checking.
Matti Hamalainen <ccr@tnsp.org>
parents:
658
diff
changeset
|
524 !dmf_read_str(inFile, &xmI1.instName, sizeof(xmI1.instName)) || |
|
a4cf7716ba58
Clean up the XM module loader a bit, add more error checking.
Matti Hamalainen <ccr@tnsp.org>
parents:
658
diff
changeset
|
525 !dmf_read_byte(inFile, &xmI1.instType) || |
|
a4cf7716ba58
Clean up the XM module loader a bit, add more error checking.
Matti Hamalainen <ccr@tnsp.org>
parents:
658
diff
changeset
|
526 !dmf_read_le16(inFile, &xmI1.nsamples)) |
|
1159
29dc9337fa11
Add a meaningful error message for instrument header read failure.
Matti Hamalainen <ccr@tnsp.org>
parents:
1158
diff
changeset
|
527 { |
|
29dc9337fa11
Add a meaningful error message for instrument header read failure.
Matti Hamalainen <ccr@tnsp.org>
parents:
1158
diff
changeset
|
528 JSSERROR(DMERR_FREAD, DMERR_FREAD, |
|
29dc9337fa11
Add a meaningful error message for instrument header read failure.
Matti Hamalainen <ccr@tnsp.org>
parents:
1158
diff
changeset
|
529 "Failed to read primary extended instrument header #%d\n", ninst); |
|
29dc9337fa11
Add a meaningful error message for instrument header read failure.
Matti Hamalainen <ccr@tnsp.org>
parents:
1158
diff
changeset
|
530 } |
| 0 | 531 |
| 532 // If there are samples, there is header #2 | |
|
1130
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
533 if (xmI1.nsamples == 0) |
| 0 | 534 { |
| 535 // We may STILL need to skip extra data after 1st instr. header | |
| 536 remainder = xmI1.headSize - (dmftell(inFile) - pos); | |
| 537 if (remainder > 0) | |
| 538 { | |
| 98 | 539 JSSDEBUG("xmI1#2 Skipping: %li\n", remainder); |
| 0 | 540 dmfseek(inFile, remainder, SEEK_CUR); |
| 541 } | |
|
1130
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
542 return DMERR_OK; |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
543 } |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
544 |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
545 // Allocate instrument |
| 1175 | 546 if ((einst = jssAllocateExtInstrument()) == NULL) |
|
1130
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
547 { |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
548 JSSERROR(DMERR_MALLOC, DMERR_MALLOC, |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
549 "Could not allocate extended instrument structure #%d\n", ninst); |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
550 } |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
551 |
| 1175 | 552 module->extInstruments[ninst] = einst; |
|
1130
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
553 |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
554 // Get instrument header #2 |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
555 if (!dmf_read_le32(inFile, &xmI2.headSize) || |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
556 !dmf_read_str(inFile, &xmI2.sNumForNotes, sizeof(xmI2.sNumForNotes))) |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
557 { |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
558 JSSERROR(DMERR_FREAD, DMERR_FREAD, |
| 1132 | 559 "Could not read secondary instrument header part #1 for #%d.\n", ninst); |
|
1130
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
560 } |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
561 |
| 1132 | 562 if (!jssXMLoadEnvelopePoints(inFile, &xmI2.volumeEnv) || |
| 563 !jssXMLoadEnvelopePoints(inFile, &xmI2.panningEnv)) | |
| 564 { | |
| 565 JSSERROR(DMERR_FREAD, DMERR_FREAD, | |
| 566 "Could not read envelope point data for instrument #%d.\n", ninst); | |
| 567 } | |
|
1130
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
568 |
| 1132 | 569 if (!dmf_read_byte(inFile, &xmI2.volumeEnv.npoints) || |
|
1130
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
570 !dmf_read_byte(inFile, &xmI2.panningEnv.npoints) || |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
571 |
| 1132 | 572 !jssXMLoadEnvelopeData(inFile, &xmI2.volumeEnv) || |
| 573 !jssXMLoadEnvelopeData(inFile, &xmI2.panningEnv) || | |
|
1130
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
574 |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
575 !dmf_read_byte(inFile, &xmI2.volumeEnv.flags) || |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
576 !dmf_read_byte(inFile, &xmI2.panningEnv.flags) || |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
577 |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
578 !dmf_read_byte(inFile, &xmI2.vibratoType) || |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
579 !dmf_read_byte(inFile, &xmI2.vibratoSweep) || |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
580 !dmf_read_byte(inFile, &xmI2.vibratoDepth) || |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
581 !dmf_read_byte(inFile, &xmI2.vibratoRate) || |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
582 |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
583 !dmf_read_le16(inFile, &xmI2.fadeOut) || |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
584 !dmf_read_le16(inFile, &xmI2.ARESERVED)) |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
585 { |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
586 JSSERROR(DMERR_FREAD, DMERR_FREAD, |
| 1132 | 587 "Could not read secondary instrument header part #2 for #%d.\n", ninst); |
|
1130
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
588 } |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
589 |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
590 // Skip the extra data after header #2 |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
591 remainder = xmI1.headSize - (dmftell(inFile) - pos); |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
592 if (remainder > 0) |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
593 { |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
594 JSSDEBUG("xmI1#1 Skipping: %li\n", remainder); |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
595 dmfseek(inFile, remainder, SEEK_CUR); |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
596 } |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
597 |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
598 // Check and convert all ext instrument information |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
599 #ifndef JSS_LIGHT |
| 1175 | 600 einst->desc = jssASCIItoStr(xmI1.instName, 0, sizeof(xmI1.instName)); |
|
1130
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
601 #endif |
| 1175 | 602 jssXMConvertEnvelope(&einst->volumeEnv, &xmI2.volumeEnv, "vol", ninst); |
| 603 jssXMConvertEnvelope(&einst->panningEnv, &xmI2.panningEnv, "pan", ninst); | |
|
1130
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
604 |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
605 switch (xmI2.vibratoType) |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
606 { |
| 1175 | 607 case 0: einst->vibratoType = jvibSine; break; |
| 608 case 1: einst->vibratoType = jvibRamp; break; | |
| 609 case 2: einst->vibratoType = jvibSquare; break; | |
| 610 case 3: einst->vibratoType = jvibRandom; break; | |
|
1130
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
611 default: |
| 1175 | 612 einst->vibratoType = jvibSine; |
|
1130
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
613 JSSWARNING(DMERR_INVALID_DATA, DMERR_INVALID_DATA, |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
614 "Invalid extinstrument vibrato type %d for inst #%d\n", ninst); |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
615 break; |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
616 } |
| 1175 | 617 einst->vibratoSweep = xmI2.vibratoSweep; |
| 618 einst->vibratoDepth = xmI2.vibratoDepth; | |
| 619 einst->vibratoRate = xmI2.vibratoRate; | |
| 620 einst->fadeOut = xmI2.fadeOut; | |
| 621 einst->nsamples = xmI1.nsamples; | |
|
1130
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
622 |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
623 // Initialize the SNumForNotes conversion table |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
624 for (i = 0; i < XM_MaxInstruments; i++) |
|
1176
afdbf62ce8ad
Revamp instrument sample loading somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents:
1175
diff
changeset
|
625 einst->instConvTable[i] = jsetNotSet; |
|
1130
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
626 |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
627 // Read sample headers |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
628 for (nsample = 0; nsample < xmI1.nsamples; nsample++) |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
629 { |
|
1176
afdbf62ce8ad
Revamp instrument sample loading somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents:
1175
diff
changeset
|
630 if ((ret = jssXMLoadSampleInstrument(inFile, module, einst, ninst, nsample)) != DMERR_OK) |
|
1130
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
631 return ret; |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
632 } |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
633 |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
634 // Apply new values to sNumForNotes values |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
635 for (i = 0; i < XM_MaxNotes; i++) |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
636 { |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
637 int tmp = xmI2.sNumForNotes[i]; |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
638 if (tmp >= 0 && tmp < xmI1.nsamples) |
|
1176
afdbf62ce8ad
Revamp instrument sample loading somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents:
1175
diff
changeset
|
639 einst->sNumForNotes[i] = einst->instConvTable[tmp]; |
|
1130
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
640 else |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
641 { |
| 1175 | 642 einst->sNumForNotes[i] = jsetNotSet; |
|
1130
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
643 JSSWARNING(DMERR_INVALID_DATA, DMERR_INVALID_DATA, |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
644 "Ext.instrument #%d sNumForNotes[%d] out of range (%d).\n", |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
645 ninst, i, tmp); |
|
725e7caa43a0
Split instrument sample data loading to another function in XM loader.
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
646 } |
| 0 | 647 } |
| 648 | |
|
1177
dc26df8b642c
Some support for 0x0102 version of the XM format. Does not work fully yet,
Matti Hamalainen <ccr@tnsp.org>
parents:
1176
diff
changeset
|
649 // Read sample data if needed |
|
dc26df8b642c
Some support for 0x0102 version of the XM format. Does not work fully yet,
Matti Hamalainen <ccr@tnsp.org>
parents:
1176
diff
changeset
|
650 if (module->intVersion == 0x0104) |
|
dc26df8b642c
Some support for 0x0102 version of the XM format. Does not work fully yet,
Matti Hamalainen <ccr@tnsp.org>
parents:
1176
diff
changeset
|
651 { |
|
1176
afdbf62ce8ad
Revamp instrument sample loading somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents:
1175
diff
changeset
|
652 if ((ret = jssXMLoadInstrumentSamples(inFile, module, einst, ninst)) != DMERR_OK) |
|
afdbf62ce8ad
Revamp instrument sample loading somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents:
1175
diff
changeset
|
653 return ret; |
|
1177
dc26df8b642c
Some support for 0x0102 version of the XM format. Does not work fully yet,
Matti Hamalainen <ccr@tnsp.org>
parents:
1176
diff
changeset
|
654 } |
|
dc26df8b642c
Some support for 0x0102 version of the XM format. Does not work fully yet,
Matti Hamalainen <ccr@tnsp.org>
parents:
1176
diff
changeset
|
655 |
|
1124
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
656 return DMERR_OK; |
| 0 | 657 } |
| 658 | |
| 659 | |
|
1124
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
660 static int jssXMLoadPatterns(DMResource *inFile, JSSModule *module, XMHeader *xmH) |
| 0 | 661 { |
|
1124
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
662 int index, result; |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
663 XMPattern xmP; |
| 0 | 664 |
| 665 for (index = 0; index < module->npatterns; index++) | |
| 666 { | |
| 667 // Get the pattern header | |
| 1126 | 668 off_t remainder, pos = dmftell(inFile); |
|
1127
e22d4ceb6414
Cosmetics pass, remove excess and trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
1126
diff
changeset
|
669 |
|
778
a4cf7716ba58
Clean up the XM module loader a bit, add more error checking.
Matti Hamalainen <ccr@tnsp.org>
parents:
658
diff
changeset
|
670 if (!dmf_read_le32(inFile, &xmP.headSize) || |
|
a4cf7716ba58
Clean up the XM module loader a bit, add more error checking.
Matti Hamalainen <ccr@tnsp.org>
parents:
658
diff
changeset
|
671 !dmf_read_byte(inFile, &xmP.packing) || |
|
a4cf7716ba58
Clean up the XM module loader a bit, add more error checking.
Matti Hamalainen <ccr@tnsp.org>
parents:
658
diff
changeset
|
672 !dmf_read_le16(inFile, &xmP.nrows) || |
|
a4cf7716ba58
Clean up the XM module loader a bit, add more error checking.
Matti Hamalainen <ccr@tnsp.org>
parents:
658
diff
changeset
|
673 !dmf_read_le16(inFile, &xmP.size)) |
|
a4cf7716ba58
Clean up the XM module loader a bit, add more error checking.
Matti Hamalainen <ccr@tnsp.org>
parents:
658
diff
changeset
|
674 JSSERROR(DMERR_FREAD, DMERR_FREAD, |
|
a4cf7716ba58
Clean up the XM module loader a bit, add more error checking.
Matti Hamalainen <ccr@tnsp.org>
parents:
658
diff
changeset
|
675 "Could not read pattern header data #%d.\n", |
|
a4cf7716ba58
Clean up the XM module loader a bit, add more error checking.
Matti Hamalainen <ccr@tnsp.org>
parents:
658
diff
changeset
|
676 index); |
|
1127
e22d4ceb6414
Cosmetics pass, remove excess and trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
1126
diff
changeset
|
677 |
| 0 | 678 |
| 679 // Check the header | |
| 680 if (xmP.packing != 0) | |
| 681 JSSERROR(DMERR_INVALID_DATA, DMERR_INVALID_DATA, | |
|
778
a4cf7716ba58
Clean up the XM module loader a bit, add more error checking.
Matti Hamalainen <ccr@tnsp.org>
parents:
658
diff
changeset
|
682 "Pattern #%d packing type unsupported (%d)\n", |
| 0 | 683 index, xmP.packing); |
| 684 | |
| 685 if (xmP.nrows == 0) | |
| 686 JSSERROR(DMERR_INVALID_DATA, DMERR_INVALID_DATA, | |
|
778
a4cf7716ba58
Clean up the XM module loader a bit, add more error checking.
Matti Hamalainen <ccr@tnsp.org>
parents:
658
diff
changeset
|
687 "Pattern #%d has %d rows, invalid data.\n", |
| 0 | 688 index, xmP.nrows); |
| 689 | |
| 690 if (xmP.size > 0) | |
| 691 { | |
| 692 // Allocate and unpack pattern | |
| 693 module->patterns[index] = jssAllocatePattern(xmP.nrows, module->nchannels); | |
| 694 if (module->patterns[index] == NULL) | |
| 695 JSSERROR(DMERR_MALLOC, DMERR_MALLOC, | |
|
778
a4cf7716ba58
Clean up the XM module loader a bit, add more error checking.
Matti Hamalainen <ccr@tnsp.org>
parents:
658
diff
changeset
|
696 "Could not allocate memory for pattern #%d\n", index); |
| 0 | 697 |
| 698 result = jssXMUnpackPattern(inFile, xmP.size, module->patterns[index]); | |
| 699 if (result != 0) | |
|
778
a4cf7716ba58
Clean up the XM module loader a bit, add more error checking.
Matti Hamalainen <ccr@tnsp.org>
parents:
658
diff
changeset
|
700 JSSERROR(result, result, "Error in unpacking pattern #%d data\n", index); |
| 0 | 701 } |
| 702 | |
| 703 // Skip extra data (if the file is damaged) | |
| 88 | 704 remainder = xmP.headSize - (dmftell(inFile) - pos); |
| 705 if (remainder > 0) | |
| 0 | 706 { |
| 98 | 707 JSSDEBUG("xmP Skipping: %li\n", remainder); |
| 88 | 708 dmfseek(inFile, remainder, SEEK_CUR); |
| 0 | 709 } |
| 710 } | |
| 711 | |
| 712 // Allocate the empty pattern | |
| 713 module->patterns[jsetMaxPatterns] = jssAllocatePattern(64, module->nchannels); | |
| 714 | |
| 715 /* Convert song orders list by replacing nonexisting patterns | |
| 716 * with pattern number jsetMaxPatterns. | |
| 717 */ | |
| 718 for (index = 0; index < module->norders; index++) | |
| 719 { | |
|
1124
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
720 int tmp = xmH->orderList[index]; |
| 1126 | 721 if (tmp >= module->npatterns || |
| 722 module->patterns[tmp] == NULL) | |
| 0 | 723 tmp = jsetMaxPatterns; |
| 724 | |
| 725 module->orderList[index] = tmp; | |
| 726 } | |
| 727 | |
|
1124
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
728 return DMERR_OK; |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
729 } |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
730 |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
731 |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
732 static int jssXMLoadInstruments(DMResource *inFile, JSSModule *module) |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
733 { |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
734 int index; |
| 0 | 735 for (index = 0; index < module->nextInstruments; index++) |
| 736 { | |
|
1124
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
737 int result = jssXMLoadExtInstrument(inFile, index, module); |
| 0 | 738 if (result != 0) |
|
778
a4cf7716ba58
Clean up the XM module loader a bit, add more error checking.
Matti Hamalainen <ccr@tnsp.org>
parents:
658
diff
changeset
|
739 JSSERROR(result, result, "Errors while reading instrument #%d\n", index); |
| 0 | 740 } |
|
1124
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
741 return DMERR_OK; |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
742 } |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
743 |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
744 |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
745 /* Load XM-format module from given file-stream |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
746 */ |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
747 int jssLoadXM(DMResource *inFile, JSSModule **ppModule, BOOL probe) |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
748 { |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
749 JSSModule *module; |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
750 XMHeader xmH; |
|
1176
afdbf62ce8ad
Revamp instrument sample loading somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents:
1175
diff
changeset
|
751 int index, ret; |
|
1124
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
752 |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
753 assert(ppModule != NULL); |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
754 assert(inFile != NULL); |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
755 *ppModule = NULL; |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
756 |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
757 // Try to get the XM-header |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
758 if (!dmf_read_str(inFile, &xmH.idMagic, sizeof(xmH.idMagic)) || |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
759 !dmf_read_str(inFile, &xmH.songName, sizeof(xmH.songName)) || |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
760 !dmf_read_byte(inFile, &xmH.unUsed1A) || |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
761 !dmf_read_str(inFile, &xmH.trackerName, sizeof(xmH.trackerName)) || |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
762 !dmf_read_le16(inFile, &xmH.version) || |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
763 !dmf_read_le32(inFile, &xmH.headSize) || |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
764 !dmf_read_le16(inFile, &xmH.norders) || |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
765 !dmf_read_le16(inFile, &xmH.defRestartPos) || |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
766 !dmf_read_le16(inFile, &xmH.nchannels) || |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
767 !dmf_read_le16(inFile, &xmH.npatterns) || |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
768 !dmf_read_le16(inFile, &xmH.ninstruments) || |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
769 !dmf_read_le16(inFile, &xmH.flags) || |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
770 !dmf_read_le16(inFile, &xmH.defSpeed) || |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
771 !dmf_read_le16(inFile, &xmH.defTempo)) |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
772 return DMERR_FREAD; |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
773 |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
774 |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
775 // Check the fields, none of these are considered fatal |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
776 if (strncmp(xmH.idMagic, "Extended Module: ", 17) != 0) |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
777 { |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
778 if (probe) |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
779 return DMERR_NOT_SUPPORTED; |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
780 else |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
781 JSSERROR(DMERR_NOT_SUPPORTED, DMERR_NOT_SUPPORTED, |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
782 "Not a FT2 Extended Module (XM), header signature mismatch!\n"); |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
783 } |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
784 |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
785 if (xmH.unUsed1A != 0x1a) |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
786 { |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
787 JSSWARNING(DMERR_INVALID_DATA, DMERR_INVALID_DATA, |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
788 "Possibly modified or corrupted XM [%x]\n", xmH.unUsed1A); |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
789 } |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
790 |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
791 if (xmH.norders > XM_MaxOrders) |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
792 { |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
793 JSSWARNING(DMERR_INVALID_DATA, DMERR_INVALID_DATA, |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
794 "Number of orders %d > %d, possibly broken module.\n", |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
795 xmH.norders, XM_MaxOrders); |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
796 xmH.norders = XM_MaxOrders; |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
797 } |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
798 |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
799 if (xmH.norders == 0) |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
800 { |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
801 JSSWARNING(DMERR_INVALID_DATA, DMERR_INVALID_DATA, |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
802 "Number of orders was zero.\n"); |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
803 } |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
804 |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
805 if (xmH.npatterns > XM_MaxPatterns) |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
806 { |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
807 JSSWARNING(DMERR_INVALID_DATA, DMERR_INVALID_DATA, |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
808 "Number of patterns %d > %d, possibly broken module.\n", |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
809 xmH.npatterns, XM_MaxPatterns); |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
810 xmH.npatterns = XM_MaxPatterns; |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
811 } |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
812 |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
813 if (xmH.npatterns == 0) |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
814 { |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
815 JSSWARNING(DMERR_INVALID_DATA, DMERR_INVALID_DATA, |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
816 "Number of patterns was zero.\n"); |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
817 } |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
818 |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
819 if (xmH.nchannels <= 0 || xmH.nchannels > XM_MaxChannels) |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
820 { |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
821 JSSWARNING(DMERR_INVALID_DATA, DMERR_INVALID_DATA, |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
822 "Number of channels was invalid, %d (should be 1 - %d).\n", |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
823 xmH.nchannels, XM_MaxChannels); |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
824 } |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
825 |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
826 if (xmH.ninstruments <= 0 || xmH.ninstruments > XM_MaxInstruments) |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
827 { |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
828 JSSWARNING(DMERR_INVALID_DATA, DMERR_INVALID_DATA, |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
829 "Number of instruments was invalid, %d (should be 1 - %d).\n", |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
830 xmH.ninstruments, XM_MaxInstruments); |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
831 } |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
832 |
|
1161
92cee852a8af
Check header size against the known values. Bail out if it's too small, and
Matti Hamalainen <ccr@tnsp.org>
parents:
1160
diff
changeset
|
833 if (xmH.headSize < XM_HeaderSize) |
|
92cee852a8af
Check header size against the known values. Bail out if it's too small, and
Matti Hamalainen <ccr@tnsp.org>
parents:
1160
diff
changeset
|
834 { |
|
92cee852a8af
Check header size against the known values. Bail out if it's too small, and
Matti Hamalainen <ccr@tnsp.org>
parents:
1160
diff
changeset
|
835 JSSERROR(DMERR_NOT_SUPPORTED, DMERR_NOT_SUPPORTED, |
|
92cee852a8af
Check header size against the known values. Bail out if it's too small, and
Matti Hamalainen <ccr@tnsp.org>
parents:
1160
diff
changeset
|
836 "XM header size less than %d bytes (%d bytes).\n", |
|
92cee852a8af
Check header size against the known values. Bail out if it's too small, and
Matti Hamalainen <ccr@tnsp.org>
parents:
1160
diff
changeset
|
837 XM_HeaderSize, xmH.headSize); |
|
92cee852a8af
Check header size against the known values. Bail out if it's too small, and
Matti Hamalainen <ccr@tnsp.org>
parents:
1160
diff
changeset
|
838 } |
|
92cee852a8af
Check header size against the known values. Bail out if it's too small, and
Matti Hamalainen <ccr@tnsp.org>
parents:
1160
diff
changeset
|
839 |
|
1160
b122ad2d3fbe
Add XM format version check.
Matti Hamalainen <ccr@tnsp.org>
parents:
1159
diff
changeset
|
840 switch (xmH.version) |
|
b122ad2d3fbe
Add XM format version check.
Matti Hamalainen <ccr@tnsp.org>
parents:
1159
diff
changeset
|
841 { |
|
b122ad2d3fbe
Add XM format version check.
Matti Hamalainen <ccr@tnsp.org>
parents:
1159
diff
changeset
|
842 case 0x0104: |
|
1177
dc26df8b642c
Some support for 0x0102 version of the XM format. Does not work fully yet,
Matti Hamalainen <ccr@tnsp.org>
parents:
1176
diff
changeset
|
843 case 0x0102: |
|
1160
b122ad2d3fbe
Add XM format version check.
Matti Hamalainen <ccr@tnsp.org>
parents:
1159
diff
changeset
|
844 break; |
|
b122ad2d3fbe
Add XM format version check.
Matti Hamalainen <ccr@tnsp.org>
parents:
1159
diff
changeset
|
845 |
|
b122ad2d3fbe
Add XM format version check.
Matti Hamalainen <ccr@tnsp.org>
parents:
1159
diff
changeset
|
846 default: |
|
b122ad2d3fbe
Add XM format version check.
Matti Hamalainen <ccr@tnsp.org>
parents:
1159
diff
changeset
|
847 JSSWARNING(DMERR_NOT_SUPPORTED, DMERR_NOT_SUPPORTED, |
|
b122ad2d3fbe
Add XM format version check.
Matti Hamalainen <ccr@tnsp.org>
parents:
1159
diff
changeset
|
848 "Unsupported version of XM format 0x%04x.\n", |
|
b122ad2d3fbe
Add XM format version check.
Matti Hamalainen <ccr@tnsp.org>
parents:
1159
diff
changeset
|
849 xmH.version); |
|
b122ad2d3fbe
Add XM format version check.
Matti Hamalainen <ccr@tnsp.org>
parents:
1159
diff
changeset
|
850 } |
|
b122ad2d3fbe
Add XM format version check.
Matti Hamalainen <ccr@tnsp.org>
parents:
1159
diff
changeset
|
851 |
|
1124
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
852 if (!dmf_read_str(inFile, &xmH.orderList, sizeof(xmH.orderList))) |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
853 { |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
854 JSSERROR(DMERR_FREAD, DMERR_FREAD, |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
855 "Error reading pattern order list.\n"); |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
856 } |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
857 |
|
1161
92cee852a8af
Check header size against the known values. Bail out if it's too small, and
Matti Hamalainen <ccr@tnsp.org>
parents:
1160
diff
changeset
|
858 if (xmH.headSize > 276) |
|
92cee852a8af
Check header size against the known values. Bail out if it's too small, and
Matti Hamalainen <ccr@tnsp.org>
parents:
1160
diff
changeset
|
859 { |
|
92cee852a8af
Check header size against the known values. Bail out if it's too small, and
Matti Hamalainen <ccr@tnsp.org>
parents:
1160
diff
changeset
|
860 JSSWARNING(DMERR_NOT_SUPPORTED, DMERR_NOT_SUPPORTED, |
|
92cee852a8af
Check header size against the known values. Bail out if it's too small, and
Matti Hamalainen <ccr@tnsp.org>
parents:
1160
diff
changeset
|
861 "XM header size > %d bytes, skipping the rest.\n", |
|
92cee852a8af
Check header size against the known values. Bail out if it's too small, and
Matti Hamalainen <ccr@tnsp.org>
parents:
1160
diff
changeset
|
862 XM_HeaderSize, xmH.headSize); |
|
92cee852a8af
Check header size against the known values. Bail out if it's too small, and
Matti Hamalainen <ccr@tnsp.org>
parents:
1160
diff
changeset
|
863 dmfseek(inFile, xmH.headSize - XM_HeaderSize, SEEK_CUR); |
|
92cee852a8af
Check header size against the known values. Bail out if it's too small, and
Matti Hamalainen <ccr@tnsp.org>
parents:
1160
diff
changeset
|
864 } |
|
92cee852a8af
Check header size against the known values. Bail out if it's too small, and
Matti Hamalainen <ccr@tnsp.org>
parents:
1160
diff
changeset
|
865 |
|
1124
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
866 /* Okay, allocate a module structure |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
867 */ |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
868 module = jssAllocateModule(); |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
869 if (module == NULL) |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
870 { |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
871 JSSERROR(DMERR_MALLOC, DMERR_MALLOC, |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
872 "Could not allocate memory for module structure.\n"); |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
873 } |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
874 *ppModule = module; |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
875 |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
876 |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
877 // Convert and check the header data |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
878 module->moduleType = jmdtXM; |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
879 module->intVersion = xmH.version; |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
880 #ifndef JSS_LIGHT |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
881 module->moduleName = jssASCIItoStr(xmH.songName, 0, sizeof(xmH.songName)); |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
882 module->trackerName = jssASCIItoStr(xmH.trackerName, 0, sizeof(xmH.trackerName)); |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
883 #endif |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
884 module->defSpeed = xmH.defSpeed; |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
885 module->defTempo = xmH.defTempo; |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
886 module->nextInstruments = xmH.ninstruments; |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
887 module->ninstruments = 0; |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
888 module->npatterns = xmH.npatterns; |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
889 module->norders = xmH.norders; |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
890 module->nchannels = xmH.nchannels; |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
891 module->defFlags = jmdfStereo | jmdfFT2Replay; |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
892 module->defRestartPos = xmH.defRestartPos; |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
893 |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
894 if ((xmH.flags & 1) == 0) |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
895 module->defFlags |= jmdfAmigaPeriods; |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
896 |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
897 // Setup the default pannings |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
898 for (index = 0; index < jsetNChannels; index++) |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
899 module->defPanning[index] = jchPanMiddle; |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
900 |
|
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
901 // Load rest of the module |
|
1176
afdbf62ce8ad
Revamp instrument sample loading somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents:
1175
diff
changeset
|
902 switch (xmH.version) |
|
afdbf62ce8ad
Revamp instrument sample loading somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents:
1175
diff
changeset
|
903 { |
|
afdbf62ce8ad
Revamp instrument sample loading somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents:
1175
diff
changeset
|
904 case 0x0104: |
|
afdbf62ce8ad
Revamp instrument sample loading somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents:
1175
diff
changeset
|
905 if ((ret = jssXMLoadPatterns(inFile, module, &xmH)) != DMERR_OK) |
|
afdbf62ce8ad
Revamp instrument sample loading somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents:
1175
diff
changeset
|
906 goto out; |
|
1124
b8bfd9fbe1d9
Modularize the XM loader somewhat by splitting to more functions.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
907 |
|
1176
afdbf62ce8ad
Revamp instrument sample loading somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents:
1175
diff
changeset
|
908 if ((ret = jssXMLoadInstruments(inFile, module)) != DMERR_OK) |
|
afdbf62ce8ad
Revamp instrument sample loading somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents:
1175
diff
changeset
|
909 goto out; |
|
afdbf62ce8ad
Revamp instrument sample loading somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents:
1175
diff
changeset
|
910 break; |
| 0 | 911 |
|
1177
dc26df8b642c
Some support for 0x0102 version of the XM format. Does not work fully yet,
Matti Hamalainen <ccr@tnsp.org>
parents:
1176
diff
changeset
|
912 case 0x0102: |
|
dc26df8b642c
Some support for 0x0102 version of the XM format. Does not work fully yet,
Matti Hamalainen <ccr@tnsp.org>
parents:
1176
diff
changeset
|
913 if ((ret = jssXMLoadInstruments(inFile, module)) != DMERR_OK) |
|
dc26df8b642c
Some support for 0x0102 version of the XM format. Does not work fully yet,
Matti Hamalainen <ccr@tnsp.org>
parents:
1176
diff
changeset
|
914 goto out; |
|
dc26df8b642c
Some support for 0x0102 version of the XM format. Does not work fully yet,
Matti Hamalainen <ccr@tnsp.org>
parents:
1176
diff
changeset
|
915 |
|
dc26df8b642c
Some support for 0x0102 version of the XM format. Does not work fully yet,
Matti Hamalainen <ccr@tnsp.org>
parents:
1176
diff
changeset
|
916 if ((ret = jssXMLoadPatterns(inFile, module, &xmH)) != DMERR_OK) |
|
dc26df8b642c
Some support for 0x0102 version of the XM format. Does not work fully yet,
Matti Hamalainen <ccr@tnsp.org>
parents:
1176
diff
changeset
|
917 goto out; |
|
dc26df8b642c
Some support for 0x0102 version of the XM format. Does not work fully yet,
Matti Hamalainen <ccr@tnsp.org>
parents:
1176
diff
changeset
|
918 |
|
dc26df8b642c
Some support for 0x0102 version of the XM format. Does not work fully yet,
Matti Hamalainen <ccr@tnsp.org>
parents:
1176
diff
changeset
|
919 // Read sample data if needed |
|
dc26df8b642c
Some support for 0x0102 version of the XM format. Does not work fully yet,
Matti Hamalainen <ccr@tnsp.org>
parents:
1176
diff
changeset
|
920 for (index = 0; index < module->nextInstruments; index++) |
|
dc26df8b642c
Some support for 0x0102 version of the XM format. Does not work fully yet,
Matti Hamalainen <ccr@tnsp.org>
parents:
1176
diff
changeset
|
921 { |
|
dc26df8b642c
Some support for 0x0102 version of the XM format. Does not work fully yet,
Matti Hamalainen <ccr@tnsp.org>
parents:
1176
diff
changeset
|
922 JSSExtInstrument *einst = module->extInstruments[index]; |
|
dc26df8b642c
Some support for 0x0102 version of the XM format. Does not work fully yet,
Matti Hamalainen <ccr@tnsp.org>
parents:
1176
diff
changeset
|
923 if ((ret = jssXMLoadInstrumentSamples(inFile, module, einst, index)) != DMERR_OK) |
|
dc26df8b642c
Some support for 0x0102 version of the XM format. Does not work fully yet,
Matti Hamalainen <ccr@tnsp.org>
parents:
1176
diff
changeset
|
924 goto out; |
|
dc26df8b642c
Some support for 0x0102 version of the XM format. Does not work fully yet,
Matti Hamalainen <ccr@tnsp.org>
parents:
1176
diff
changeset
|
925 } |
|
dc26df8b642c
Some support for 0x0102 version of the XM format. Does not work fully yet,
Matti Hamalainen <ccr@tnsp.org>
parents:
1176
diff
changeset
|
926 break; |
|
1176
afdbf62ce8ad
Revamp instrument sample loading somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents:
1175
diff
changeset
|
927 } |
|
afdbf62ce8ad
Revamp instrument sample loading somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents:
1175
diff
changeset
|
928 |
|
afdbf62ce8ad
Revamp instrument sample loading somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents:
1175
diff
changeset
|
929 out: |
|
afdbf62ce8ad
Revamp instrument sample loading somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents:
1175
diff
changeset
|
930 |
|
afdbf62ce8ad
Revamp instrument sample loading somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents:
1175
diff
changeset
|
931 return ret; |
| 0 | 932 } |