Mercurial > hg > dmlib
annotate minijss/jloadjss.c @ 1216:f57dc769bd39
Cosmetic.
| author | Matti Hamalainen <ccr@tnsp.org> |
|---|---|
| date | Thu, 05 Mar 2015 23:22:38 +0200 |
| parents | 1133dffe3713 |
| children | 62a76a3d9bc2 |
| rev | line source |
|---|---|
| 0 | 1 /* |
| 2 * miniJSS - JSSMOD module loader | |
| 3 * Programmed and designed by Matti 'ccr' Hamalainen | |
| 1163 | 4 * (C) Copyright 2007-2015 Tecnic Software productions (TNSP) |
| 0 | 5 */ |
| 6 #include "jssmod.h" | |
| 7 | |
| 8 | |
| 1196 | 9 // If all pattern modes are required, enable them here |
| 0 | 10 #ifdef JM_SUP_PATMODE_ALL |
| 282 | 11 # define JM_SUP_PATMODE_1 1 |
| 12 # define JM_SUP_PATMODE_2 1 | |
| 13 # define JM_SUP_PATMODE_3 1 | |
| 14 # define JM_SUP_PATMODE_4 1 | |
| 15 # define JM_SUP_PATMODE_5 1 | |
| 0 | 16 #endif |
| 17 | |
| 18 | |
| 1196 | 19 // Short helper macros for reading data |
| 20 #define JSGETBUF(XV, XT) \ | |
| 21 if (!dmf_read_str(inFile, XV, sizeof(XT))) \ | |
| 22 return DMERR_OUT_OF_DATA | |
| 23 | |
| 24 #define JSGETBYTE(XV) \ | |
| 25 if (!dmf_read_byte(inFile, XV)) \ | |
| 26 return DMERR_OUT_OF_DATA | |
| 0 | 27 |
| 28 | |
|
1208
fa758951720f
Remove some code duplication.
Matti Hamalainen <ccr@tnsp.org>
parents:
1198
diff
changeset
|
29 static int jssDoGetConvertedNote(DMResource *inFile, JSSNote *pnote, Uint8 note) |
| 0 | 30 { |
| 31 Uint8 tmp; | |
| 32 | |
|
1208
fa758951720f
Remove some code duplication.
Matti Hamalainen <ccr@tnsp.org>
parents:
1198
diff
changeset
|
33 if (note == 127) |
| 1197 | 34 pnote->note = jsetNoteOff; |
|
1208
fa758951720f
Remove some code duplication.
Matti Hamalainen <ccr@tnsp.org>
parents:
1198
diff
changeset
|
35 else |
|
fa758951720f
Remove some code duplication.
Matti Hamalainen <ccr@tnsp.org>
parents:
1198
diff
changeset
|
36 if (note == 0) |
| 1197 | 37 pnote->note = jsetNotSet; |
| 0 | 38 else |
|
1208
fa758951720f
Remove some code duplication.
Matti Hamalainen <ccr@tnsp.org>
parents:
1198
diff
changeset
|
39 pnote->note = note - 1; |
| 0 | 40 |
| 41 JSGETBYTE(&tmp); | |
| 1197 | 42 pnote->instrument = (tmp > 0) ? tmp - 1 : jsetNotSet; |
| 0 | 43 |
| 44 JSGETBYTE(&tmp); | |
| 1197 | 45 pnote->volume = (tmp > 0) ? tmp - 1 : jsetNotSet; |
| 0 | 46 |
| 47 JSGETBYTE(&tmp); | |
| 1197 | 48 pnote->effect = (tmp > 0) ? tmp - 1 : jsetNotSet; |
| 0 | 49 |
| 50 JSGETBYTE(&tmp); | |
| 1197 | 51 pnote->param = (tmp == 0 && pnote->effect == jsetNotSet) ? jsetNotSet : tmp; |
| 0 | 52 |
| 53 return DMERR_OK; | |
| 54 } | |
|
1208
fa758951720f
Remove some code duplication.
Matti Hamalainen <ccr@tnsp.org>
parents:
1198
diff
changeset
|
55 |
|
fa758951720f
Remove some code duplication.
Matti Hamalainen <ccr@tnsp.org>
parents:
1198
diff
changeset
|
56 |
|
fa758951720f
Remove some code duplication.
Matti Hamalainen <ccr@tnsp.org>
parents:
1198
diff
changeset
|
57 static inline int jssGetConvertedNote(DMResource *inFile, JSSNote *pnote) |
|
fa758951720f
Remove some code duplication.
Matti Hamalainen <ccr@tnsp.org>
parents:
1198
diff
changeset
|
58 { |
|
fa758951720f
Remove some code duplication.
Matti Hamalainen <ccr@tnsp.org>
parents:
1198
diff
changeset
|
59 Uint8 tmp; |
|
fa758951720f
Remove some code duplication.
Matti Hamalainen <ccr@tnsp.org>
parents:
1198
diff
changeset
|
60 JSGETBYTE(&tmp); |
|
fa758951720f
Remove some code duplication.
Matti Hamalainen <ccr@tnsp.org>
parents:
1198
diff
changeset
|
61 return jssDoGetConvertedNote(inFile, pnote, tmp); |
|
fa758951720f
Remove some code duplication.
Matti Hamalainen <ccr@tnsp.org>
parents:
1198
diff
changeset
|
62 } |
| 0 | 63 |
| 64 | |
|
204
d3a9a3804079
Implement pattern mode 5 in the JMOD jloader.
Matti Hamalainen <ccr@tnsp.org>
parents:
96
diff
changeset
|
65 #if defined(JM_SUP_PATMODE_2) || defined(JM_SUP_PATMODE_4) |
| 1197 | 66 static int jssGetCompressedNote(DMResource *inFile, JSSNote *pnote) |
| 0 | 67 { |
| 68 Uint8 packb, tmp; | |
| 69 | |
| 70 JSGETBYTE(&packb); | |
| 71 if (packb & 0x80) | |
| 72 { | |
|
1210
6b48bad13399
Rename pattern note packing flag COMP_* constants to JM_COMP_*.
Matti Hamalainen <ccr@tnsp.org>
parents:
1208
diff
changeset
|
73 if (packb & JM_COMP_NOTE) |
| 0 | 74 { |
| 75 JSGETBYTE(&tmp); | |
| 76 if (tmp == 127) | |
| 1197 | 77 pnote->note = jsetNoteOff; |
| 0 | 78 else |
| 1197 | 79 pnote->note = tmp; |
| 0 | 80 } |
| 81 | |
|
1210
6b48bad13399
Rename pattern note packing flag COMP_* constants to JM_COMP_*.
Matti Hamalainen <ccr@tnsp.org>
parents:
1208
diff
changeset
|
82 if (packb & JM_COMP_INSTRUMENT) |
| 0 | 83 { |
| 84 JSGETBYTE(&tmp); | |
| 1197 | 85 pnote->instrument = tmp; |
| 0 | 86 } |
| 87 | |
|
1210
6b48bad13399
Rename pattern note packing flag COMP_* constants to JM_COMP_*.
Matti Hamalainen <ccr@tnsp.org>
parents:
1208
diff
changeset
|
88 if (packb & JM_COMP_VOLUME) |
| 0 | 89 { |
| 90 JSGETBYTE(&tmp); | |
| 1197 | 91 pnote->volume = tmp; |
| 0 | 92 } |
| 93 | |
|
1210
6b48bad13399
Rename pattern note packing flag COMP_* constants to JM_COMP_*.
Matti Hamalainen <ccr@tnsp.org>
parents:
1208
diff
changeset
|
94 if (packb & JM_COMP_EFFECT) |
| 0 | 95 { |
| 96 JSGETBYTE(&tmp); | |
| 1197 | 97 pnote->effect = tmp; |
| 98 pnote->param = 0; | |
| 0 | 99 } |
| 100 | |
|
1210
6b48bad13399
Rename pattern note packing flag COMP_* constants to JM_COMP_*.
Matti Hamalainen <ccr@tnsp.org>
parents:
1208
diff
changeset
|
101 if (packb & JM_COMP_PARAM) |
| 0 | 102 { |
| 103 JSGETBYTE(&tmp); | |
| 1197 | 104 pnote->param = tmp; |
| 0 | 105 } |
| 106 } | |
| 107 else | |
| 108 { | |
|
1208
fa758951720f
Remove some code duplication.
Matti Hamalainen <ccr@tnsp.org>
parents:
1198
diff
changeset
|
109 int ret; |
|
fa758951720f
Remove some code duplication.
Matti Hamalainen <ccr@tnsp.org>
parents:
1198
diff
changeset
|
110 if ((ret = jssDoGetConvertedNote(inFile, pnote, packb)) != DMERR_OK) |
|
fa758951720f
Remove some code duplication.
Matti Hamalainen <ccr@tnsp.org>
parents:
1198
diff
changeset
|
111 return ret; |
| 0 | 112 } |
| 113 | |
| 114 return DMERR_OK; | |
| 115 } | |
| 116 #endif | |
| 117 | |
| 118 | |
|
204
d3a9a3804079
Implement pattern mode 5 in the JMOD jloader.
Matti Hamalainen <ccr@tnsp.org>
parents:
96
diff
changeset
|
119 #ifdef JM_SUP_PATMODE_2 |
|
777
ed60a7ee3ebb
Change JSSMOD loader to use DMResources.
Matti Hamalainen <ccr@tnsp.org>
parents:
658
diff
changeset
|
120 static int jssGetPatternCompHoriz(DMResource *inFile, JSSPattern *pattern) |
| 0 | 121 { |
| 122 int row, channel; | |
| 123 | |
| 124 assert(buf != NULL); | |
| 125 assert(pattern != NULL); | |
| 126 | |
| 127 for (row = 0; row < pattern->nrows; row++) | |
| 128 for (channel = 0; channel < pattern->nchannels; channel++) | |
| 129 { | |
| 1197 | 130 JSSNote *pnote = &pattern->data[(pattern->nchannels * row) + channel]; |
| 131 int res = jssGetCompressedNote(inFile, pnote); | |
| 0 | 132 if (res != DMERR_OK) |
| 1197 | 133 JSSERROR(res, res, "Error uncompressing note on row=%d, chn=%d\n", |
| 134 row, channel); | |
| 0 | 135 } |
| 136 | |
| 137 return DMERR_OK; | |
| 138 } | |
| 139 #endif | |
| 140 | |
| 141 | |
|
204
d3a9a3804079
Implement pattern mode 5 in the JMOD jloader.
Matti Hamalainen <ccr@tnsp.org>
parents:
96
diff
changeset
|
142 #ifdef JM_SUP_PATMODE_4 |
|
777
ed60a7ee3ebb
Change JSSMOD loader to use DMResources.
Matti Hamalainen <ccr@tnsp.org>
parents:
658
diff
changeset
|
143 static int jssGetPatternCompVert(DMResource *inFile, JSSPattern *pattern) |
| 0 | 144 { |
| 145 int row, channel; | |
| 146 | |
| 147 assert(buf != NULL); | |
| 148 assert(pattern != NULL); | |
| 149 | |
| 150 for (channel = 0; channel < pattern->nchannels; channel++) | |
| 151 for (row = 0; row < pattern->nrows; row++) | |
| 152 { | |
| 1197 | 153 JSSNote *pnote = &pattern->data[(pattern->nchannels * row) + channel]; |
| 154 int res = jssGetCompressedNote(inFile, pnote); | |
| 0 | 155 if (res != DMERR_OK) |
| 1197 | 156 JSSERROR(res, res, "Error uncompressing note on row=%d, chn=%d\n", |
| 157 row, channel); | |
| 0 | 158 } |
| 159 | |
| 160 return DMERR_OK; | |
| 161 } | |
| 162 #endif | |
| 163 | |
| 164 | |
|
204
d3a9a3804079
Implement pattern mode 5 in the JMOD jloader.
Matti Hamalainen <ccr@tnsp.org>
parents:
96
diff
changeset
|
165 #ifdef JM_SUP_PATMODE_1 |
|
777
ed60a7ee3ebb
Change JSSMOD loader to use DMResources.
Matti Hamalainen <ccr@tnsp.org>
parents:
658
diff
changeset
|
166 static int jssGetPatternRawHoriz(DMResource *inFile, JSSPattern *pattern) |
| 0 | 167 { |
| 168 int row, channel; | |
| 169 | |
| 170 assert(buf != NULL); | |
| 171 assert(pattern != NULL); | |
| 172 | |
| 173 for (row = 0; row < pattern->nrows; row++) | |
| 174 for (channel = 0; channel < pattern->nchannels; channel++) | |
| 175 { | |
| 1197 | 176 JSSNote *pnote = &pattern->data[(pattern->nchannels * row) + channel]; |
| 177 int res = jssGetConvertedNote(inFile, pnote); | |
| 0 | 178 if (res != DMERR_OK) |
| 1197 | 179 JSSERROR(res, res, "Error converting note on row=%d, chn=%d\n", |
| 180 row, channel); | |
| 0 | 181 } |
| 182 | |
| 183 return DMERR_OK; | |
| 184 } | |
| 185 #endif | |
| 186 | |
| 187 | |
|
204
d3a9a3804079
Implement pattern mode 5 in the JMOD jloader.
Matti Hamalainen <ccr@tnsp.org>
parents:
96
diff
changeset
|
188 #ifdef JM_SUP_PATMODE_3 |
|
777
ed60a7ee3ebb
Change JSSMOD loader to use DMResources.
Matti Hamalainen <ccr@tnsp.org>
parents:
658
diff
changeset
|
189 static int jssGetPatternRawVert(DMResource *inFile, JSSPattern *pattern) |
| 0 | 190 { |
| 191 int row, channel; | |
| 192 | |
| 193 assert(buf != NULL); | |
| 194 assert(pattern != NULL); | |
| 195 | |
| 196 for (channel = 0; channel < pattern->nchannels; channel++) | |
| 197 for (row = 0; row < pattern->nrows; row++) | |
| 198 { | |
| 1197 | 199 JSSNote *pnote = &pattern->data[(pattern->nchannels * row) + channel]; |
| 200 int res = jssGetConvertedNote(inFile, pnote); | |
| 0 | 201 if (res != DMERR_OK) |
| 1197 | 202 JSSERROR(res, res, "Error converting note on row=%d, chn=%d\n", |
| 203 row, channel); | |
| 0 | 204 } |
| 205 | |
| 206 return DMERR_OK; | |
| 207 } | |
| 208 #endif | |
| 209 | |
| 210 | |
|
204
d3a9a3804079
Implement pattern mode 5 in the JMOD jloader.
Matti Hamalainen <ccr@tnsp.org>
parents:
96
diff
changeset
|
211 #ifdef JM_SUP_PATMODE_5 |
|
d3a9a3804079
Implement pattern mode 5 in the JMOD jloader.
Matti Hamalainen <ccr@tnsp.org>
parents:
96
diff
changeset
|
212 |
|
d3a9a3804079
Implement pattern mode 5 in the JMOD jloader.
Matti Hamalainen <ccr@tnsp.org>
parents:
96
diff
changeset
|
213 #undef JSGETBYTE |
|
777
ed60a7ee3ebb
Change JSSMOD loader to use DMResources.
Matti Hamalainen <ccr@tnsp.org>
parents:
658
diff
changeset
|
214 #define JSGETBYTE(XV) if (!dmf_read_byte(inFile, XV)) return DMERR_OUT_OF_DATA |
|
204
d3a9a3804079
Implement pattern mode 5 in the JMOD jloader.
Matti Hamalainen <ccr@tnsp.org>
parents:
96
diff
changeset
|
215 |
|
d3a9a3804079
Implement pattern mode 5 in the JMOD jloader.
Matti Hamalainen <ccr@tnsp.org>
parents:
96
diff
changeset
|
216 #define JSFOREACHNOTE1 \ |
|
d3a9a3804079
Implement pattern mode 5 in the JMOD jloader.
Matti Hamalainen <ccr@tnsp.org>
parents:
96
diff
changeset
|
217 for (channel = 0; channel < pattern->nchannels; channel++) \ |
|
d3a9a3804079
Implement pattern mode 5 in the JMOD jloader.
Matti Hamalainen <ccr@tnsp.org>
parents:
96
diff
changeset
|
218 for (row = 0; row < pattern->nrows; row++) { \ |
| 1197 | 219 JSSNote *pnote = pattern->data + (pattern->nchannels * row) + channel; |
|
204
d3a9a3804079
Implement pattern mode 5 in the JMOD jloader.
Matti Hamalainen <ccr@tnsp.org>
parents:
96
diff
changeset
|
220 |
|
d3a9a3804079
Implement pattern mode 5 in the JMOD jloader.
Matti Hamalainen <ccr@tnsp.org>
parents:
96
diff
changeset
|
221 #define JSFOREACHNOTE2 } |
|
d3a9a3804079
Implement pattern mode 5 in the JMOD jloader.
Matti Hamalainen <ccr@tnsp.org>
parents:
96
diff
changeset
|
222 |
|
777
ed60a7ee3ebb
Change JSSMOD loader to use DMResources.
Matti Hamalainen <ccr@tnsp.org>
parents:
658
diff
changeset
|
223 static int jssGetPatternRawVertElem(DMResource *inFile, JSSPattern *pattern) |
| 0 | 224 { |
| 225 int row, channel; | |
|
204
d3a9a3804079
Implement pattern mode 5 in the JMOD jloader.
Matti Hamalainen <ccr@tnsp.org>
parents:
96
diff
changeset
|
226 Uint8 tmp; |
| 0 | 227 |
| 228 assert(buf != NULL); | |
| 229 assert(pattern != NULL); | |
| 230 | |
|
204
d3a9a3804079
Implement pattern mode 5 in the JMOD jloader.
Matti Hamalainen <ccr@tnsp.org>
parents:
96
diff
changeset
|
231 JSFOREACHNOTE1 |
|
d3a9a3804079
Implement pattern mode 5 in the JMOD jloader.
Matti Hamalainen <ccr@tnsp.org>
parents:
96
diff
changeset
|
232 JSGETBYTE(&tmp); |
|
d3a9a3804079
Implement pattern mode 5 in the JMOD jloader.
Matti Hamalainen <ccr@tnsp.org>
parents:
96
diff
changeset
|
233 if (tmp == 0) |
| 1197 | 234 pnote->note = jsetNotSet; |
|
204
d3a9a3804079
Implement pattern mode 5 in the JMOD jloader.
Matti Hamalainen <ccr@tnsp.org>
parents:
96
diff
changeset
|
235 else if (tmp == 127) |
| 1197 | 236 pnote->note = jsetNoteOff; |
|
204
d3a9a3804079
Implement pattern mode 5 in the JMOD jloader.
Matti Hamalainen <ccr@tnsp.org>
parents:
96
diff
changeset
|
237 else |
| 1197 | 238 pnote->note = tmp - 1; |
|
204
d3a9a3804079
Implement pattern mode 5 in the JMOD jloader.
Matti Hamalainen <ccr@tnsp.org>
parents:
96
diff
changeset
|
239 JSFOREACHNOTE2 |
|
1127
e22d4ceb6414
Cosmetics pass, remove excess and trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
1118
diff
changeset
|
240 |
|
204
d3a9a3804079
Implement pattern mode 5 in the JMOD jloader.
Matti Hamalainen <ccr@tnsp.org>
parents:
96
diff
changeset
|
241 JSFOREACHNOTE1 |
|
d3a9a3804079
Implement pattern mode 5 in the JMOD jloader.
Matti Hamalainen <ccr@tnsp.org>
parents:
96
diff
changeset
|
242 JSGETBYTE(&tmp); |
| 1197 | 243 pnote->instrument = (tmp > 0) ? tmp - 1 : jsetNotSet; |
|
204
d3a9a3804079
Implement pattern mode 5 in the JMOD jloader.
Matti Hamalainen <ccr@tnsp.org>
parents:
96
diff
changeset
|
244 JSFOREACHNOTE2 |
|
1127
e22d4ceb6414
Cosmetics pass, remove excess and trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
1118
diff
changeset
|
245 |
|
204
d3a9a3804079
Implement pattern mode 5 in the JMOD jloader.
Matti Hamalainen <ccr@tnsp.org>
parents:
96
diff
changeset
|
246 JSFOREACHNOTE1 |
|
d3a9a3804079
Implement pattern mode 5 in the JMOD jloader.
Matti Hamalainen <ccr@tnsp.org>
parents:
96
diff
changeset
|
247 JSGETBYTE(&tmp); |
| 1197 | 248 pnote->volume = (tmp > 0) ? tmp - 1 : jsetNotSet; |
|
204
d3a9a3804079
Implement pattern mode 5 in the JMOD jloader.
Matti Hamalainen <ccr@tnsp.org>
parents:
96
diff
changeset
|
249 JSFOREACHNOTE2 |
|
1127
e22d4ceb6414
Cosmetics pass, remove excess and trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
1118
diff
changeset
|
250 |
|
204
d3a9a3804079
Implement pattern mode 5 in the JMOD jloader.
Matti Hamalainen <ccr@tnsp.org>
parents:
96
diff
changeset
|
251 JSFOREACHNOTE1 |
|
d3a9a3804079
Implement pattern mode 5 in the JMOD jloader.
Matti Hamalainen <ccr@tnsp.org>
parents:
96
diff
changeset
|
252 JSGETBYTE(&tmp); |
| 1197 | 253 pnote->effect = (tmp > 0) ? tmp - 1 : jsetNotSet; |
|
204
d3a9a3804079
Implement pattern mode 5 in the JMOD jloader.
Matti Hamalainen <ccr@tnsp.org>
parents:
96
diff
changeset
|
254 JSFOREACHNOTE2 |
|
1127
e22d4ceb6414
Cosmetics pass, remove excess and trailing whitespace.
Matti Hamalainen <ccr@tnsp.org>
parents:
1118
diff
changeset
|
255 |
|
204
d3a9a3804079
Implement pattern mode 5 in the JMOD jloader.
Matti Hamalainen <ccr@tnsp.org>
parents:
96
diff
changeset
|
256 JSFOREACHNOTE1 |
|
d3a9a3804079
Implement pattern mode 5 in the JMOD jloader.
Matti Hamalainen <ccr@tnsp.org>
parents:
96
diff
changeset
|
257 JSGETBYTE(&tmp); |
| 1197 | 258 pnote->param = (tmp == 0 && pnote->effect == jsetNotSet) ? jsetNotSet : tmp; |
|
204
d3a9a3804079
Implement pattern mode 5 in the JMOD jloader.
Matti Hamalainen <ccr@tnsp.org>
parents:
96
diff
changeset
|
259 JSFOREACHNOTE2 |
|
d3a9a3804079
Implement pattern mode 5 in the JMOD jloader.
Matti Hamalainen <ccr@tnsp.org>
parents:
96
diff
changeset
|
260 |
| 0 | 261 return DMERR_OK; |
| 262 } | |
| 263 #endif | |
| 264 | |
| 265 | |
| 266 #undef JSGETBUF | |
| 267 #undef JSGETBYTE | |
| 268 #define JSGETBUF(XV, XT) do { \ | |
|
777
ed60a7ee3ebb
Change JSSMOD loader to use DMResources.
Matti Hamalainen <ccr@tnsp.org>
parents:
658
diff
changeset
|
269 if (!dmf_read_str(inFile, XV, sizeof(XT))) \ |
| 0 | 270 JSSERROR(DMERR_OUT_OF_DATA, DMERR_OUT_OF_DATA, \ |
| 271 "Out of data at getting " # XT " (%d bytes)\n", sizeof(XT)); \ | |
| 272 } while (0) | |
|
777
ed60a7ee3ebb
Change JSSMOD loader to use DMResources.
Matti Hamalainen <ccr@tnsp.org>
parents:
658
diff
changeset
|
273 #define JSGETBYTE(XV) if (!dmf_read_byte(inFile, XV)) return DMERR_OUT_OF_DATA |
| 0 | 274 |
| 275 | |
| 276 #ifdef JM_SUP_EXT_INSTR | |
| 277 static void jssCopyEnvelope(JSSEnvelope *e, JSSMODEnvelope *je) | |
| 278 { | |
| 279 int i; | |
| 280 | |
| 281 e->flags = je->flags; | |
| 282 e->npoints = je->npoints; | |
| 283 e->sustain = je->sustain; | |
| 284 e->loopS = je->loopS; | |
| 285 e->loopE = je->loopE; | |
| 286 | |
| 287 for (i = 0; i < je->npoints; i++) | |
| 288 { | |
| 289 e->points[i].frame = je->points[i].frame; | |
| 290 e->points[i].value = je->points[i].value; | |
| 291 } | |
| 292 } | |
| 293 #endif | |
| 294 | |
| 295 | |
| 796 | 296 int jssLoadJSSMOD(DMResource *inFile, JSSModule **ppModule, BOOL probe) |
| 0 | 297 { |
| 298 JSSModule *module; | |
| 299 JSSMODHeader jssH; | |
| 300 int index; | |
| 301 | |
| 302 *ppModule = NULL; | |
| 303 | |
| 304 // Check the JSSMOD header | |
| 1167 | 305 dmMemset(&jssH, 0, sizeof(jssH)); |
| 0 | 306 JSGETBUF(&jssH, JSSMODHeader); |
| 307 | |
| 308 if (memcmp(jssH.idMagic, "JM", 2) != 0) | |
| 309 { | |
| 796 | 310 if (probe) |
| 311 return DMERR_NOT_SUPPORTED; | |
| 312 else | |
| 313 JSSERROR(DMERR_NOT_SUPPORTED, DMERR_NOT_SUPPORTED, | |
| 314 "Not a JSSMOD file, header signature mismatch!\n"); | |
| 0 | 315 } |
| 316 | |
| 317 if (jssH.idVersion != JSSMOD_VERSION) | |
| 318 { | |
| 1198 | 319 if (probe) |
| 320 return DMERR_VERSION; | |
| 321 else | |
| 0 | 322 JSSERROR(DMERR_VERSION, DMERR_VERSION, |
| 1212 | 323 "Unsupported version of JSSMOD 0x%2x, this version only supports 0x%2x!\n", |
| 0 | 324 jssH.idVersion, JSSMOD_VERSION); |
| 325 } | |
| 326 | |
| 1198 | 327 if (probe) |
| 328 return DMERR_OK; | |
| 329 | |
| 0 | 330 // Allocate the module |
| 331 module = jssAllocateModule(); | |
| 332 if (module == NULL) | |
| 333 { | |
| 334 JSSERROR(DMERR_MALLOC, DMERR_MALLOC, | |
| 335 "Could not allocate memory for module structure.\n"); | |
| 336 } | |
| 337 *ppModule = module; | |
| 338 | |
| 339 // Copy header information | |
| 1216 | 340 module->defFlags = jssH.defFlags; |
| 341 module->intVersion = jssH.intVersion; | |
| 342 | |
| 0 | 343 module->norders = jssH.norders; |
| 344 module->npatterns = jssH.npatterns; | |
| 345 module->nchannels = jssH.nchannels; | |
| 346 module->nextInstruments = jssH.nextInstruments; | |
| 347 module->ninstruments = jssH.ninstruments; | |
| 348 module->defRestartPos = jssH.defRestartPos; | |
| 349 module->defSpeed = jssH.defSpeed; | |
| 350 module->defTempo = jssH.defTempo; | |
| 351 | |
| 352 // Get the orders list | |
| 353 for (index = 0; index < module->norders; index++) | |
| 354 { | |
| 355 Sint16 order; | |
| 356 JSGETBUF(&order, Sint16); | |
| 357 module->orderList[index] = order; | |
| 358 } | |
| 359 | |
| 360 // Parse the patterns | |
| 361 for (index = 0; index < module->npatterns; index++) | |
| 362 { | |
| 363 JSSMODPattern jssP; | |
| 364 int result = DMERR_INVALID_DATA; | |
| 365 | |
| 366 // Get header and check size | |
| 1167 | 367 dmMemset(&jssP, 0, sizeof(jssP)); |
| 0 | 368 JSGETBUF(&jssP, JSSMODPattern); |
| 369 | |
| 370 // Allocate pattern | |
| 371 module->patterns[index] = jssAllocatePattern(jssP.nrows, module->nchannels); | |
| 372 if (module->patterns[index] == NULL) | |
| 373 { | |
| 374 JSSERROR(DMERR_MALLOC, DMERR_MALLOC, | |
| 1212 | 375 "Could not allocate memory for pattern #%d.\n", |
| 376 index); | |
| 0 | 377 } |
| 378 | |
| 379 // Get pattern data | |
| 380 switch (jssH.patMode) | |
| 381 { | |
| 382 #ifdef JM_SUP_PATMODE_1 | |
| 383 case PATMODE_RAW_HORIZ: | |
|
777
ed60a7ee3ebb
Change JSSMOD loader to use DMResources.
Matti Hamalainen <ccr@tnsp.org>
parents:
658
diff
changeset
|
384 result = jssGetPatternRawHoriz(inFile, module->patterns[index]); |
| 0 | 385 break; |
| 386 #endif | |
| 387 #ifdef JM_SUP_PATMODE_2 | |
| 388 case PATMODE_COMP_HORIZ: | |
|
777
ed60a7ee3ebb
Change JSSMOD loader to use DMResources.
Matti Hamalainen <ccr@tnsp.org>
parents:
658
diff
changeset
|
389 result = jssGetPatternCompHoriz(inFile, module->patterns[index]); |
| 0 | 390 break; |
| 391 #endif | |
| 392 #ifdef JM_SUP_PATMODE_3 | |
| 393 case PATMODE_RAW_VERT: | |
|
777
ed60a7ee3ebb
Change JSSMOD loader to use DMResources.
Matti Hamalainen <ccr@tnsp.org>
parents:
658
diff
changeset
|
394 result = jssGetPatternRawVert(inFile, module->patterns[index]); |
| 0 | 395 break; |
| 396 #endif | |
| 397 #ifdef JM_SUP_PATMODE_4 | |
| 398 case PATMODE_COMP_VERT: | |
|
777
ed60a7ee3ebb
Change JSSMOD loader to use DMResources.
Matti Hamalainen <ccr@tnsp.org>
parents:
658
diff
changeset
|
399 result = jssGetPatternCompVert(inFile, module->patterns[index]); |
| 0 | 400 break; |
| 401 #endif | |
| 402 #ifdef JM_SUP_PATMODE_5 | |
| 403 case PATMODE_RAW_ELEM: | |
|
777
ed60a7ee3ebb
Change JSSMOD loader to use DMResources.
Matti Hamalainen <ccr@tnsp.org>
parents:
658
diff
changeset
|
404 result = jssGetPatternRawVertElem(inFile, module->patterns[index]); |
| 0 | 405 break; |
| 406 #endif | |
| 407 default: | |
| 408 JSSERROR(DMERR_INVALID_DATA, DMERR_INVALID_DATA, | |
| 1212 | 409 "Unsupported pattern mode %d. Check compilation options.", |
| 410 jssH.patMode); | |
| 0 | 411 break; |
| 412 } | |
| 413 | |
| 414 if (result != DMERR_OK) | |
| 415 { | |
| 1212 | 416 JSSERROR(result, result, |
| 417 "Error in unpacking pattern #%d data.\n", | |
| 418 index); | |
| 0 | 419 } |
| 420 } | |
| 421 | |
| 422 #ifdef JM_SUP_EXT_INSTR | |
| 423 // Read extended instruments | |
| 424 for (index = 0; index < module->nextInstruments; index++) | |
| 425 { | |
| 426 JSSMODExtInstrument jssE; | |
| 427 JSSExtInstrument *einst; | |
| 428 int i; | |
| 429 | |
| 1167 | 430 dmMemset(&jssE, 0, sizeof(jssE)); |
| 0 | 431 JSGETBUF(&jssE, JSSMODExtInstrument); |
| 432 | |
| 433 if ((einst = jssAllocateExtInstrument()) == NULL) | |
| 434 { | |
| 435 JSSERROR(DMERR_MALLOC, DMERR_MALLOC, | |
| 1214 | 436 "Could not allocate extended instrument structure #%d\n", index); |
| 0 | 437 } |
| 438 | |
| 439 module->extInstruments[index] = einst; | |
| 440 | |
| 441 einst->nsamples = jssE.nsamples; | |
| 442 einst->vibratoType = jssE.vibratoType; | |
| 443 einst->vibratoSweep = jssE.vibratoSweep; | |
| 444 einst->vibratoDepth = jssE.vibratoDepth; | |
| 445 einst->vibratoRate = jssE.vibratoRate; | |
| 446 einst->fadeOut = jssE.fadeOut; | |
| 447 | |
| 448 for (i = 0; i < jsetNNotes; i++) | |
| 449 { | |
| 450 int snum = jssE.sNumForNotes[i]; | |
|
1118
de25e0f2b856
Fix sNumForNotes conversion/handling in JSSMOD loader and xm2jss.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
451 einst->sNumForNotes[i] = (snum > 0) ? snum - 1 : jsetNotSet; |
| 0 | 452 } |
| 453 | |
| 454 jssCopyEnvelope(&(einst->volumeEnv), &jssE.volumeEnv); | |
| 455 jssCopyEnvelope(&(einst->panningEnv), &jssE.panningEnv); | |
| 456 } | |
| 457 | |
| 458 #ifdef JM_SUP_INSTR | |
| 459 // Read sample instrument headers | |
| 460 for (index = 0; index < module->ninstruments; index++) | |
| 461 { | |
| 462 JSSMODInstrument jssI; | |
| 463 JSSInstrument *inst; | |
| 464 | |
| 1167 | 465 dmMemset(&jssI, 0, sizeof(jssI)); |
| 0 | 466 JSGETBUF(&jssI, JSSMODInstrument); |
| 467 | |
| 468 if ((inst = jssAllocateInstrument()) == NULL) | |
| 469 { | |
| 470 JSSERROR(DMERR_MALLOC, DMERR_MALLOC, | |
| 1214 | 471 "Could not allocate sample instrument structure #%d\n", index); |
| 0 | 472 } |
| 473 | |
| 474 module->instruments[index] = inst; | |
| 475 | |
| 476 inst->size = jssI.size; | |
| 477 inst->loopS = jssI.loopS; | |
| 478 inst->loopE = jssI.loopE; | |
| 479 inst->volume = jssI.volume; | |
| 480 inst->flags = jssI.flags; | |
| 481 inst->C4BaseSpeed = jssI.C4BaseSpeed; | |
| 482 inst->ERelNote = jssI.ERelNote; | |
| 483 inst->EFineTune = jssI.EFineTune; | |
| 484 inst->EPanning = jssI.EPanning; | |
| 485 inst->hasData = jssI.hasData; | |
| 486 inst->convFlags = jssI.convFlags; | |
| 487 } | |
| 488 | |
| 489 #ifdef JM_SUP_SAMPLES | |
| 490 // Read sample data | |
| 491 for (index = 0; index < module->ninstruments; index++) | |
| 492 { | |
| 493 JSSInstrument *inst = module->instruments[index]; | |
| 494 | |
| 495 if (inst && inst->hasData) | |
| 496 { | |
|
1129
e466d10dae6d
Change API of jssDecodeSample{8,16}() functions to return dmlib error codes
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
497 int ret; |
|
1213
505317227ab4
Rename variable, improve two error messages.
Matti Hamalainen <ccr@tnsp.org>
parents:
1212
diff
changeset
|
498 size_t bsize = (inst->flags & jsf16bit) ? sizeof(Uint16) : sizeof(Uint8); |
|
505317227ab4
Rename variable, improve two error messages.
Matti Hamalainen <ccr@tnsp.org>
parents:
1212
diff
changeset
|
499 bsize *= inst->size; |
| 0 | 500 |
| 501 // Allocate | |
|
1213
505317227ab4
Rename variable, improve two error messages.
Matti Hamalainen <ccr@tnsp.org>
parents:
1212
diff
changeset
|
502 if ((inst->data = dmMalloc(bsize)) == NULL) |
| 0 | 503 { |
| 504 JSSERROR(DMERR_MALLOC, DMERR_MALLOC, | |
|
1213
505317227ab4
Rename variable, improve two error messages.
Matti Hamalainen <ccr@tnsp.org>
parents:
1212
diff
changeset
|
505 "Could not allocate %d bytes of sample data #%d\n", |
|
505317227ab4
Rename variable, improve two error messages.
Matti Hamalainen <ccr@tnsp.org>
parents:
1212
diff
changeset
|
506 bsize, index); |
| 0 | 507 } |
| 508 | |
| 509 // Copy data | |
|
1213
505317227ab4
Rename variable, improve two error messages.
Matti Hamalainen <ccr@tnsp.org>
parents:
1212
diff
changeset
|
510 if (!dmf_read_str(inFile, inst->data, bsize)) |
|
777
ed60a7ee3ebb
Change JSSMOD loader to use DMResources.
Matti Hamalainen <ccr@tnsp.org>
parents:
658
diff
changeset
|
511 { |
|
ed60a7ee3ebb
Change JSSMOD loader to use DMResources.
Matti Hamalainen <ccr@tnsp.org>
parents:
658
diff
changeset
|
512 JSSERROR(DMERR_FREAD, DMERR_FREAD, |
|
1213
505317227ab4
Rename variable, improve two error messages.
Matti Hamalainen <ccr@tnsp.org>
parents:
1212
diff
changeset
|
513 "Could not read %d bytes of sample data for #%d\n", |
|
505317227ab4
Rename variable, improve two error messages.
Matti Hamalainen <ccr@tnsp.org>
parents:
1212
diff
changeset
|
514 bsize, index); |
|
777
ed60a7ee3ebb
Change JSSMOD loader to use DMResources.
Matti Hamalainen <ccr@tnsp.org>
parents:
658
diff
changeset
|
515 } |
| 0 | 516 |
| 517 // Convert, if needed | |
| 518 if (inst->flags & jsf16bit) | |
|
1129
e466d10dae6d
Change API of jssDecodeSample{8,16}() functions to return dmlib error codes
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
519 ret = jssDecodeSample16(inst->data, inst->size, inst->convFlags); |
| 0 | 520 else |
|
1129
e466d10dae6d
Change API of jssDecodeSample{8,16}() functions to return dmlib error codes
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
521 ret = jssDecodeSample8(inst->data, inst->size, inst->convFlags); |
|
e466d10dae6d
Change API of jssDecodeSample{8,16}() functions to return dmlib error codes
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
522 |
|
e466d10dae6d
Change API of jssDecodeSample{8,16}() functions to return dmlib error codes
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
523 if (ret != DMERR_OK) |
|
e466d10dae6d
Change API of jssDecodeSample{8,16}() functions to return dmlib error codes
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
524 { |
|
e466d10dae6d
Change API of jssDecodeSample{8,16}() functions to return dmlib error codes
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
525 JSSERROR(ret, ret, |
|
e466d10dae6d
Change API of jssDecodeSample{8,16}() functions to return dmlib error codes
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
526 "Failed to decode sample data for #%d\n", index); |
|
e466d10dae6d
Change API of jssDecodeSample{8,16}() functions to return dmlib error codes
Matti Hamalainen <ccr@tnsp.org>
parents:
1127
diff
changeset
|
527 } |
| 0 | 528 } |
| 529 } | |
| 530 #else | |
| 282 | 531 # warning Not including JSSMOD sample loading! |
| 0 | 532 #endif // JM_SUP_SAMPLES |
| 533 #else | |
| 282 | 534 # warning Not including JSSMOD instrument loading! |
| 0 | 535 #endif // JM_SUP_INSTR |
| 536 #else | |
| 282 | 537 # warning Not including JSSMOD ext.instrument loading! |
| 0 | 538 #endif // JM_SUP_EXT_INSTR |
| 539 | |
| 540 return DMERR_OK; | |
| 541 } |