Mercurial > hg > dmlib
annotate tools/dumpmod.c @ 1169:54e6516093ec
Eliminate string.h from here.
| author | Matti Hamalainen <ccr@tnsp.org> |
|---|---|
| date | Thu, 05 Mar 2015 07:47:42 +0200 |
| parents | 378e5914be1e |
| children | a79edf59d5d8 |
| rev | line source |
|---|---|
| 0 | 1 /* |
|
942
38cad00b41dd
Rename viewmod utility to dumpmod.
Matti Hamalainen <ccr@tnsp.org>
parents:
860
diff
changeset
|
2 * dumpmod - View information about given module file |
| 0 | 3 * Programmed and designed by Matti 'ccr' Hamalainen |
|
942
38cad00b41dd
Rename viewmod utility to dumpmod.
Matti Hamalainen <ccr@tnsp.org>
parents:
860
diff
changeset
|
4 * (C) Copyright 2006-2015 Tecnic Software productions (TNSP) |
| 0 | 5 * |
| 6 * Please read file 'COPYING' for information on license and distribution. | |
| 7 */ | |
| 8 #include "jss.h" | |
| 9 #include "jssmod.h" | |
| 10 #include <errno.h> | |
| 11 #include "dmargs.h" | |
|
285
245b15cd1919
Don't link libSDL uselessly to utilities that do not actually use it.
Matti Hamalainen <ccr@tnsp.org>
parents:
152
diff
changeset
|
12 #include "dmmutex.h" |
| 0 | 13 |
| 14 | |
| 15 char *optFilename = NULL; | |
| 16 BOOL optViewPatterns = FALSE, | |
| 17 optViewInstruments = FALSE, | |
| 18 optViewExtInstruments = FALSE, | |
| 795 | 19 optViewGeneralInfo = FALSE, |
| 20 optDump = FALSE; | |
| 0 | 21 |
| 22 | |
|
860
daebbf28953d
The argument handling API in dmargs* was synced with th-libs.
Matti Hamalainen <ccr@tnsp.org>
parents:
797
diff
changeset
|
23 static const DMOptArg optList[] = |
| 0 | 24 { |
| 25 { 0, '?', "help", "Show this help and exit", OPT_NONE }, | |
| 26 { 1, 'p', "patterns", "View patterns", OPT_NONE }, | |
| 27 { 2, 'i', "instruments", "View instruments", OPT_NONE }, | |
| 28 { 5, 'e', "extinstruments", "View extended instruments", OPT_NONE }, | |
| 29 { 3, 'g', "general", "General information", OPT_NONE }, | |
| 30 { 4, 'v', "verbose", "Be more verbose", OPT_NONE }, | |
| 795 | 31 { 6, 'd', "dump", "Dump mode", OPT_NONE }, |
| 0 | 32 }; |
| 33 | |
| 34 const int optListN = sizeof(optList) / sizeof(optList[0]); | |
| 35 | |
| 36 | |
| 37 void argShowHelp() | |
| 38 { | |
| 39 dmPrintBanner(stdout, dmProgName, "[options] [modfile]"); | |
|
860
daebbf28953d
The argument handling API in dmargs* was synced with th-libs.
Matti Hamalainen <ccr@tnsp.org>
parents:
797
diff
changeset
|
40 dmArgsPrintHelp(stdout, optList, optListN, 0); |
| 0 | 41 } |
| 42 | |
| 43 | |
| 44 BOOL argHandleOpt(const int optN, char *optArg, char *currArg) | |
| 45 { | |
| 46 (void) optArg; | |
| 47 | |
| 48 switch (optN) | |
| 49 { | |
|
77
c6cdaa675801
Add the file mode parameter to dmf_create_stdio() calls, and throw in some
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
50 case 0: |
|
c6cdaa675801
Add the file mode parameter to dmf_create_stdio() calls, and throw in some
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
51 argShowHelp(); |
|
c6cdaa675801
Add the file mode parameter to dmf_create_stdio() calls, and throw in some
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
52 exit(0); |
|
c6cdaa675801
Add the file mode parameter to dmf_create_stdio() calls, and throw in some
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
53 break; |
| 0 | 54 |
|
77
c6cdaa675801
Add the file mode parameter to dmf_create_stdio() calls, and throw in some
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
55 case 1: |
|
c6cdaa675801
Add the file mode parameter to dmf_create_stdio() calls, and throw in some
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
56 optViewPatterns = TRUE; |
|
c6cdaa675801
Add the file mode parameter to dmf_create_stdio() calls, and throw in some
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
57 break; |
| 0 | 58 |
|
77
c6cdaa675801
Add the file mode parameter to dmf_create_stdio() calls, and throw in some
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
59 case 2: |
|
c6cdaa675801
Add the file mode parameter to dmf_create_stdio() calls, and throw in some
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
60 optViewInstruments = TRUE; |
|
c6cdaa675801
Add the file mode parameter to dmf_create_stdio() calls, and throw in some
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
61 break; |
| 0 | 62 |
|
77
c6cdaa675801
Add the file mode parameter to dmf_create_stdio() calls, and throw in some
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
63 case 3: |
|
c6cdaa675801
Add the file mode parameter to dmf_create_stdio() calls, and throw in some
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
64 optViewGeneralInfo = TRUE; |
|
c6cdaa675801
Add the file mode parameter to dmf_create_stdio() calls, and throw in some
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
65 break; |
| 0 | 66 |
|
77
c6cdaa675801
Add the file mode parameter to dmf_create_stdio() calls, and throw in some
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
67 case 4: |
|
c6cdaa675801
Add the file mode parameter to dmf_create_stdio() calls, and throw in some
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
68 dmVerbosity++; |
|
c6cdaa675801
Add the file mode parameter to dmf_create_stdio() calls, and throw in some
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
69 break; |
| 0 | 70 |
|
77
c6cdaa675801
Add the file mode parameter to dmf_create_stdio() calls, and throw in some
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
71 case 5: |
|
c6cdaa675801
Add the file mode parameter to dmf_create_stdio() calls, and throw in some
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
72 optViewExtInstruments = TRUE; |
|
c6cdaa675801
Add the file mode parameter to dmf_create_stdio() calls, and throw in some
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
73 break; |
| 0 | 74 |
| 795 | 75 case 6: |
| 76 optDump = TRUE; | |
| 77 break; | |
| 78 | |
|
77
c6cdaa675801
Add the file mode parameter to dmf_create_stdio() calls, and throw in some
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
79 default: |
|
958
985225a93aeb
Add error code parameter to dmError() and dmErrorVA().
Matti Hamalainen <ccr@tnsp.org>
parents:
942
diff
changeset
|
80 dmErrorMsg("Unknown argument '%s'.\n", currArg); |
|
77
c6cdaa675801
Add the file mode parameter to dmf_create_stdio() calls, and throw in some
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
81 return FALSE; |
| 0 | 82 } |
| 83 | |
| 84 return TRUE; | |
| 85 } | |
| 86 | |
| 87 | |
| 88 BOOL argHandleFile(char *currArg) | |
| 89 { | |
| 90 // Was not option argument | |
| 91 if (!optFilename) | |
| 92 optFilename = currArg; | |
| 93 else { | |
|
958
985225a93aeb
Add error code parameter to dmError() and dmErrorVA().
Matti Hamalainen <ccr@tnsp.org>
parents:
942
diff
changeset
|
94 dmErrorMsg("Gay error '%s'!\n", currArg); |
| 0 | 95 return FALSE; |
| 96 } | |
| 97 | |
| 98 return TRUE; | |
| 99 } | |
| 100 | |
| 101 | |
| 102 const char patNoteTable[12][3] = | |
| 103 { | |
| 104 "C-", "C#", "D-", | |
| 105 "D#", "E-", "F-", | |
| 106 "F#", "G-", "G#", | |
| 107 "A-", "A#", "B-" | |
| 108 }; | |
| 109 | |
| 110 #define jmpNMODEffectTable (36) | |
| 111 static const char jmpMODEffectTable[jmpNMODEffectTable] = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"; | |
| 112 | |
| 113 | |
|
1110
ea2cc4932714
Improve output of dumpmod.
Matti Hamalainen <ccr@tnsp.org>
parents:
1092
diff
changeset
|
114 void printEscaped(FILE *f, const char *str) |
|
ea2cc4932714
Improve output of dumpmod.
Matti Hamalainen <ccr@tnsp.org>
parents:
1092
diff
changeset
|
115 { |
|
ea2cc4932714
Improve output of dumpmod.
Matti Hamalainen <ccr@tnsp.org>
parents:
1092
diff
changeset
|
116 while (*str) |
|
ea2cc4932714
Improve output of dumpmod.
Matti Hamalainen <ccr@tnsp.org>
parents:
1092
diff
changeset
|
117 { |
|
ea2cc4932714
Improve output of dumpmod.
Matti Hamalainen <ccr@tnsp.org>
parents:
1092
diff
changeset
|
118 fputc(isprint(*str) ? *str : '*', f); |
|
ea2cc4932714
Improve output of dumpmod.
Matti Hamalainen <ccr@tnsp.org>
parents:
1092
diff
changeset
|
119 str++; |
|
ea2cc4932714
Improve output of dumpmod.
Matti Hamalainen <ccr@tnsp.org>
parents:
1092
diff
changeset
|
120 } |
|
ea2cc4932714
Improve output of dumpmod.
Matti Hamalainen <ccr@tnsp.org>
parents:
1092
diff
changeset
|
121 } |
|
ea2cc4932714
Improve output of dumpmod.
Matti Hamalainen <ccr@tnsp.org>
parents:
1092
diff
changeset
|
122 |
|
ea2cc4932714
Improve output of dumpmod.
Matti Hamalainen <ccr@tnsp.org>
parents:
1092
diff
changeset
|
123 |
|
1117
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
124 const char *getNote(const int note) |
|
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
125 { |
|
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
126 static char tmp[16]; |
|
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
127 snprintf(tmp, sizeof(tmp), "%s%d", |
|
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
128 patNoteTable[note % 12], note / 12); |
|
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
129 return tmp; |
|
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
130 } |
|
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
131 |
|
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
132 |
| 0 | 133 /* Print a given pattern |
| 134 */ | |
| 135 void printPattern(FILE *f, JSSPattern *p) | |
| 136 { | |
| 137 int i, j; | |
| 138 char c; | |
|
1110
ea2cc4932714
Improve output of dumpmod.
Matti Hamalainen <ccr@tnsp.org>
parents:
1092
diff
changeset
|
139 JSSNote *n = p->data; |
| 0 | 140 |
| 141 for (i = 0; i < p->nrows; i++) | |
| 142 { | |
| 143 fprintf(f, "%.2x: ", i); | |
| 144 | |
| 145 for (j = 0; j < p->nchannels; j++) | |
| 146 { | |
| 147 switch (n->note) | |
| 148 { | |
| 149 case jsetNotSet: | |
| 150 fprintf(f, "... "); | |
| 151 break; | |
| 152 case jsetNoteOff: | |
| 153 fprintf(f, "=== "); | |
| 154 break; | |
| 155 default: | |
|
1117
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
156 fprintf(f, "%s ", getNote(n->note)); |
| 0 | 157 break; |
| 158 } | |
| 159 | |
| 160 if (n->instrument != jsetNotSet) | |
| 161 fprintf(f, "%.2x ", n->instrument + 1); // Because FT2 is 1-based and we use 0 internally | |
| 162 else | |
| 163 fprintf(f, ".. "); | |
| 164 | |
| 165 if (n->volume == jsetNotSet) | |
| 166 fprintf(f, ".. "); | |
| 167 else if (n->volume >= 0x00 && n->volume <= 0x40) | |
| 168 fprintf(f, "%.2x ", n->volume); | |
| 169 else | |
| 170 { | |
| 171 switch (n->volume & 0xf0) | |
| 172 { | |
| 173 case 0x50: c = '-'; break; | |
| 174 case 0x60: c = '+'; break; | |
| 175 case 0x70: c = '/'; break; | |
| 176 case 0x80: c = '\\'; break; | |
| 177 case 0x90: c = 'S'; break; | |
| 178 case 0xa0: c = 'V'; break; | |
| 179 case 0xb0: c = 'P'; break; | |
| 180 case 0xc0: c = '<'; break; | |
| 181 case 0xd0: c = '>'; break; | |
| 182 case 0xe0: c = 'M'; break; | |
| 183 default: c = '?'; break; | |
| 184 } | |
| 185 fprintf(f, "%c%x ", c, (n->volume & 0x0f)); | |
| 186 } | |
| 187 | |
| 188 if (n->effect >= 0 && n->effect < jmpNMODEffectTable) | |
| 189 fprintf(f, "%c", jmpMODEffectTable[n->effect]); | |
| 190 else if (n->effect == jsetNotSet) | |
| 191 fprintf(f, "."); | |
| 192 else | |
| 193 fprintf(f, "?"); | |
| 194 | |
| 195 if (n->param != jsetNotSet) | |
| 196 fprintf(f, "%.2x|", n->param); | |
| 197 else | |
| 198 fprintf(f, "..|"); | |
| 199 | |
| 200 n++; | |
| 201 } | |
| 202 | |
| 203 fprintf(f, "\n"); | |
| 204 } | |
| 205 } | |
| 206 | |
| 207 | |
| 208 /* | |
| 209 * Print given extended instrument | |
| 210 */ | |
|
1112
14bd24790929
Various improvements in dumpmod output.
Matti Hamalainen <ccr@tnsp.org>
parents:
1110
diff
changeset
|
211 void printEnvelope(FILE *f, JSSEnvelope *e, const char *name) |
| 0 | 212 { |
| 213 int i; | |
| 214 | |
| 215 fprintf(f, | |
|
1112
14bd24790929
Various improvements in dumpmod output.
Matti Hamalainen <ccr@tnsp.org>
parents:
1110
diff
changeset
|
216 " %s-envelope:\n" |
|
14bd24790929
Various improvements in dumpmod output.
Matti Hamalainen <ccr@tnsp.org>
parents:
1110
diff
changeset
|
217 " flags......: %.4x%s%s%s\n" |
|
14bd24790929
Various improvements in dumpmod output.
Matti Hamalainen <ccr@tnsp.org>
parents:
1110
diff
changeset
|
218 " npoints....: %d\n" |
|
14bd24790929
Various improvements in dumpmod output.
Matti Hamalainen <ccr@tnsp.org>
parents:
1110
diff
changeset
|
219 " sustain....: %d\n" |
|
14bd24790929
Various improvements in dumpmod output.
Matti Hamalainen <ccr@tnsp.org>
parents:
1110
diff
changeset
|
220 " loop.......: %d - %d\n", |
|
14bd24790929
Various improvements in dumpmod output.
Matti Hamalainen <ccr@tnsp.org>
parents:
1110
diff
changeset
|
221 name, e->flags, |
|
14bd24790929
Various improvements in dumpmod output.
Matti Hamalainen <ccr@tnsp.org>
parents:
1110
diff
changeset
|
222 (e->flags & jenvfUsed) ? " [used]" : "", |
|
14bd24790929
Various improvements in dumpmod output.
Matti Hamalainen <ccr@tnsp.org>
parents:
1110
diff
changeset
|
223 (e->flags & jenvfSustain) ? " [sust]" : "", |
|
14bd24790929
Various improvements in dumpmod output.
Matti Hamalainen <ccr@tnsp.org>
parents:
1110
diff
changeset
|
224 (e->flags & jenvfLooped) ? " [loop]" : "", |
|
14bd24790929
Various improvements in dumpmod output.
Matti Hamalainen <ccr@tnsp.org>
parents:
1110
diff
changeset
|
225 e->npoints, e->sustain, |
|
14bd24790929
Various improvements in dumpmod output.
Matti Hamalainen <ccr@tnsp.org>
parents:
1110
diff
changeset
|
226 e->loopS, e->loopE); |
| 0 | 227 |
| 228 if (dmVerbosity >= 2) | |
| 229 { | |
|
1112
14bd24790929
Various improvements in dumpmod output.
Matti Hamalainen <ccr@tnsp.org>
parents:
1110
diff
changeset
|
230 fprintf(f, |
|
14bd24790929
Various improvements in dumpmod output.
Matti Hamalainen <ccr@tnsp.org>
parents:
1110
diff
changeset
|
231 " Points.....:"); |
|
14bd24790929
Various improvements in dumpmod output.
Matti Hamalainen <ccr@tnsp.org>
parents:
1110
diff
changeset
|
232 |
| 0 | 233 for (i = 0; i < e->npoints; i++) |
| 234 { | |
| 235 fprintf(f, " [%i:%i]", | |
| 236 e->points[i].frame, e->points[i].value); | |
| 237 } | |
| 238 | |
| 239 fprintf(f, "\n"); | |
| 240 } | |
| 241 } | |
| 242 | |
| 243 | |
|
1117
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
244 void printExtInstrument(FILE *f, JSSExtInstrument *inst) |
| 0 | 245 { |
| 246 #ifndef JSS_LIGHT | |
|
1117
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
247 if (inst->desc && !optDump) |
|
1110
ea2cc4932714
Improve output of dumpmod.
Matti Hamalainen <ccr@tnsp.org>
parents:
1092
diff
changeset
|
248 { |
|
1112
14bd24790929
Various improvements in dumpmod output.
Matti Hamalainen <ccr@tnsp.org>
parents:
1110
diff
changeset
|
249 fprintf(f, "'"); |
|
1117
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
250 printEscaped(f, inst->desc); |
|
1112
14bd24790929
Various improvements in dumpmod output.
Matti Hamalainen <ccr@tnsp.org>
parents:
1110
diff
changeset
|
251 fprintf(f, "'"); |
|
1110
ea2cc4932714
Improve output of dumpmod.
Matti Hamalainen <ccr@tnsp.org>
parents:
1092
diff
changeset
|
252 } |
| 0 | 253 #endif |
| 254 fprintf(f, | |
|
1112
14bd24790929
Various improvements in dumpmod output.
Matti Hamalainen <ccr@tnsp.org>
parents:
1110
diff
changeset
|
255 "\n" |
|
14bd24790929
Various improvements in dumpmod output.
Matti Hamalainen <ccr@tnsp.org>
parents:
1110
diff
changeset
|
256 " nsamples.......: %i\n" |
|
14bd24790929
Various improvements in dumpmod output.
Matti Hamalainen <ccr@tnsp.org>
parents:
1110
diff
changeset
|
257 " vibratoType....: %i\n" |
|
14bd24790929
Various improvements in dumpmod output.
Matti Hamalainen <ccr@tnsp.org>
parents:
1110
diff
changeset
|
258 " vibratoSweep...: %i\n" |
|
14bd24790929
Various improvements in dumpmod output.
Matti Hamalainen <ccr@tnsp.org>
parents:
1110
diff
changeset
|
259 " vibratoDepth...: %i\n" |
|
14bd24790929
Various improvements in dumpmod output.
Matti Hamalainen <ccr@tnsp.org>
parents:
1110
diff
changeset
|
260 " vibratoRate....: %i\n" |
|
14bd24790929
Various improvements in dumpmod output.
Matti Hamalainen <ccr@tnsp.org>
parents:
1110
diff
changeset
|
261 " fadeOut........: %i\n", |
|
1117
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
262 inst->nsamples, inst->vibratoType, inst->vibratoSweep, |
|
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
263 inst->vibratoDepth, inst->vibratoRate, inst->fadeOut); |
| 0 | 264 |
| 265 if (dmVerbosity >= 1) | |
| 266 { | |
|
1117
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
267 printEnvelope(f, &inst->volumeEnv, "Volume"); |
|
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
268 printEnvelope(f, &inst->panningEnv, "Panning"); |
|
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
269 } |
|
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
270 |
|
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
271 if (dmVerbosity >= 2) |
|
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
272 { |
|
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
273 int n; |
|
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
274 fprintf(f, |
|
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
275 " sNumForNotes: "); |
|
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
276 for (n = 0; n < jsetNNotes; n++) |
|
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
277 { |
|
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
278 int snum = inst->sNumForNotes[n]; |
|
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
279 if (snum != jsetNotSet) |
|
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
280 { |
|
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
281 fprintf(f, "%s:%d ", getNote(n), snum); |
|
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
282 } |
|
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
283 } |
| 0 | 284 } |
| 285 fprintf(f, "\n"); | |
| 286 } | |
| 287 | |
| 288 | |
|
1117
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
289 void printInstrument(FILE *f, JSSInstrument *inst) |
| 0 | 290 { |
| 291 if (dmVerbosity >= 1) | |
| 292 { | |
| 293 #ifndef JSS_LIGHT | |
|
1117
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
294 if (inst->desc && !optDump) |
|
1110
ea2cc4932714
Improve output of dumpmod.
Matti Hamalainen <ccr@tnsp.org>
parents:
1092
diff
changeset
|
295 { |
|
1112
14bd24790929
Various improvements in dumpmod output.
Matti Hamalainen <ccr@tnsp.org>
parents:
1110
diff
changeset
|
296 fprintf(f, "'"); |
|
1117
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
297 printEscaped(f, inst->desc); |
|
1112
14bd24790929
Various improvements in dumpmod output.
Matti Hamalainen <ccr@tnsp.org>
parents:
1110
diff
changeset
|
298 fprintf(f, "'"); |
|
1110
ea2cc4932714
Improve output of dumpmod.
Matti Hamalainen <ccr@tnsp.org>
parents:
1092
diff
changeset
|
299 } |
| 0 | 300 #endif |
| 301 fprintf(f, | |
|
1112
14bd24790929
Various improvements in dumpmod output.
Matti Hamalainen <ccr@tnsp.org>
parents:
1110
diff
changeset
|
302 "\n" |
|
14bd24790929
Various improvements in dumpmod output.
Matti Hamalainen <ccr@tnsp.org>
parents:
1110
diff
changeset
|
303 " size...........: %ld (0x%lx)\n" |
|
14bd24790929
Various improvements in dumpmod output.
Matti Hamalainen <ccr@tnsp.org>
parents:
1110
diff
changeset
|
304 " loop...........: %ld - %ld (0x%lx - 0x%lx)\n" |
|
14bd24790929
Various improvements in dumpmod output.
Matti Hamalainen <ccr@tnsp.org>
parents:
1110
diff
changeset
|
305 " volume.........: %d (0x%x)\n" |
|
14bd24790929
Various improvements in dumpmod output.
Matti Hamalainen <ccr@tnsp.org>
parents:
1110
diff
changeset
|
306 " flags..........: 0x%x %s%s%s\n" |
|
14bd24790929
Various improvements in dumpmod output.
Matti Hamalainen <ccr@tnsp.org>
parents:
1110
diff
changeset
|
307 " C4BaseSpeed....: %d (0x%x)\n" |
|
1117
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
308 " ERelNote.......: %s (%d)\n" |
|
1112
14bd24790929
Various improvements in dumpmod output.
Matti Hamalainen <ccr@tnsp.org>
parents:
1110
diff
changeset
|
309 " EFineTune......: %d\n" |
|
14bd24790929
Various improvements in dumpmod output.
Matti Hamalainen <ccr@tnsp.org>
parents:
1110
diff
changeset
|
310 " EPanning.......: %d (0x%x)\n\n", |
|
1117
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
311 (unsigned long) inst->size, (unsigned long) inst->size, |
|
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
312 (unsigned long) inst->loopS, (unsigned long) inst->loopE, |
|
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
313 (unsigned long) inst->loopS, (unsigned long) inst->loopE, |
|
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
314 inst->volume, inst->volume, |
|
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
315 inst->flags, |
|
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
316 (inst->flags & jsfLooped) ? "[loop]" : "", |
|
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
317 (inst->flags & jsfBiDi) ? "[bi-di]" : "", |
|
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
318 (inst->flags & jsf16bit) ? "[16 bit]" : "[8 bit]", |
|
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
319 inst->C4BaseSpeed, inst->C4BaseSpeed, |
|
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
320 getNote(inst->ERelNote + 48), inst->ERelNote, |
|
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
321 inst->EFineTune, inst->EPanning, inst->EPanning); |
| 0 | 322 } |
| 323 else | |
| 324 { | |
| 325 #ifndef JSS_LIGHT | |
|
1117
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
326 if (inst->desc && !optDump) |
|
1110
ea2cc4932714
Improve output of dumpmod.
Matti Hamalainen <ccr@tnsp.org>
parents:
1092
diff
changeset
|
327 { |
|
1117
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
328 printEscaped(f, inst->desc); |
|
1110
ea2cc4932714
Improve output of dumpmod.
Matti Hamalainen <ccr@tnsp.org>
parents:
1092
diff
changeset
|
329 fprintf(f, "|"); |
|
ea2cc4932714
Improve output of dumpmod.
Matti Hamalainen <ccr@tnsp.org>
parents:
1092
diff
changeset
|
330 } |
| 0 | 331 #endif |
| 332 fprintf(f, | |
|
1092
03322ee5bb32
Change dumpmod short format sample instrument output.
Matti Hamalainen <ccr@tnsp.org>
parents:
958
diff
changeset
|
333 "%8ld|%8ld..%-8ld|%03d|%-2s %-2s %-2s|" |
|
1117
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
334 "%4d|%s%d|%4d|%4d\n", |
|
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
335 (unsigned long) inst->size, |
|
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
336 (unsigned long) inst->loopS, |
|
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
337 (unsigned long) inst->loopE, |
|
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
338 inst->volume, |
|
1092
03322ee5bb32
Change dumpmod short format sample instrument output.
Matti Hamalainen <ccr@tnsp.org>
parents:
958
diff
changeset
|
339 |
|
1117
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
340 (inst->flags & jsfLooped) ? "lp" : "", |
|
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
341 (inst->flags & jsfBiDi) ? "bi" : "", |
|
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
342 (inst->flags & jsf16bit) ? "16" : "8", |
|
1092
03322ee5bb32
Change dumpmod short format sample instrument output.
Matti Hamalainen <ccr@tnsp.org>
parents:
958
diff
changeset
|
343 |
|
1117
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
344 inst->C4BaseSpeed, |
|
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
345 patNoteTable[(48 + inst->ERelNote) % 12], |
|
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
346 (48 + inst->ERelNote) / 12, inst->EFineTune, |
|
378e5914be1e
Improve dumpmod output some more.
Matti Hamalainen <ccr@tnsp.org>
parents:
1112
diff
changeset
|
347 inst->EPanning); |
| 0 | 348 } |
| 349 } | |
| 350 | |
| 351 | |
| 352 void printGeneralInfo(FILE *f, JSSModule *m) | |
| 353 { | |
| 354 int i; | |
| 355 | |
| 356 if (!m) | |
| 357 return; | |
| 358 | |
| 795 | 359 if (!optDump) |
| 360 { | |
| 0 | 361 fprintf(f, "Module type.....: %i\n", m->moduleType); |
| 362 #ifndef JSS_LIGHT | |
| 363 if (m->moduleName) | |
| 364 fprintf(f, "Module name.....: '%s'\n", m->moduleName); | |
| 365 if (m->trackerName) | |
| 366 fprintf(f, "Tracker name....: '%s'\n", m->trackerName); | |
| 367 #endif | |
| 795 | 368 } |
| 0 | 369 fprintf(f, |
| 370 "Speed...........: %d ticks\n" | |
| 371 "Tempo...........: %d bpm\n" | |
| 372 "Flags...........: %x ", | |
| 373 m->defSpeed, m->defTempo, m->defFlags); | |
| 374 | |
| 375 if (m->defFlags & jmdfAmigaPeriods) fprintf(f, "[Amiga periods] "); | |
| 376 if (m->defFlags & jmdfAmigaLimits) fprintf(f, "[Amiga limits] "); | |
| 377 if (m->defFlags & jmdfStereo) fprintf(f, "[stereo] "); | |
| 378 if (m->defFlags & jmdfFT2Replay) fprintf(f, "[FT2 replay] "); | |
| 379 if (m->defFlags & jmdfST300Slides) fprintf(f, "[ST300 slides] "); | |
| 380 if (m->defFlags & jmdfByteLStart) fprintf(f, "[ByteStart] "); | |
| 381 | |
| 382 fprintf(f, "\n" | |
| 383 "Restart pos.....: %d (order)\n" | |
| 384 "IntVersion......: %x\n" | |
| 385 "Channels........: %d\n" | |
| 386 "Instruments.....: %d\n" | |
| 387 "Ext.instruments.: %d\n" | |
| 388 "Patterns........: %d\n" | |
| 389 "Orders..........: %d\n", | |
| 390 m->defRestartPos, m->intVersion, m->nchannels, | |
| 391 m->ninstruments, m->nextInstruments, m->npatterns, | |
| 392 m->norders); | |
| 393 | |
| 394 if (dmVerbosity >= 1) | |
| 395 { | |
| 396 fprintf(f, "Orderlist: "); | |
| 397 for (i = 0; i < m->norders - 1; i++) | |
| 398 fprintf(f, "%d, ", m->orderList[i]); | |
| 399 if (i < m->norders) | |
| 400 fprintf(f, "%d", m->orderList[i]); | |
| 401 fprintf(f, "\n"); | |
| 402 } | |
| 403 } | |
| 404 | |
| 405 | |
| 406 | |
| 407 int main(int argc, char *argv[]) | |
| 408 { | |
| 409 int result = -1, i; | |
|
777
ed60a7ee3ebb
Change JSSMOD loader to use DMResources.
Matti Hamalainen <ccr@tnsp.org>
parents:
730
diff
changeset
|
410 DMResource *file = NULL; |
|
ed60a7ee3ebb
Change JSSMOD loader to use DMResources.
Matti Hamalainen <ccr@tnsp.org>
parents:
730
diff
changeset
|
411 JSSModule *mod = NULL; |
| 0 | 412 |
|
942
38cad00b41dd
Rename viewmod utility to dumpmod.
Matti Hamalainen <ccr@tnsp.org>
parents:
860
diff
changeset
|
413 dmInitProg("dumpmod", "miniJSS Module Viewer", "0.4", NULL, NULL); |
| 0 | 414 dmVerbosity = 0; |
| 415 | |
| 416 // Parse arguments | |
| 417 if (!dmArgsProcess(argc, argv, optList, optListN, | |
|
860
daebbf28953d
The argument handling API in dmargs* was synced with th-libs.
Matti Hamalainen <ccr@tnsp.org>
parents:
797
diff
changeset
|
418 argHandleOpt, argHandleFile, OPTH_BAILOUT)) |
| 0 | 419 exit(1); |
| 420 | |
| 421 // Initialize miniJSS | |
| 422 jssInit(); | |
| 423 | |
| 424 // Open the file | |
| 425 dmMsg(1, "Reading module file '%s'\n", optFilename); | |
| 426 if (optFilename == NULL) | |
|
730
3d813c81f33c
More work on resources API.
Matti Hamalainen <ccr@tnsp.org>
parents:
652
diff
changeset
|
427 result = dmf_create_stdio_stream(stdin, &file); |
|
3d813c81f33c
More work on resources API.
Matti Hamalainen <ccr@tnsp.org>
parents:
652
diff
changeset
|
428 else |
|
3d813c81f33c
More work on resources API.
Matti Hamalainen <ccr@tnsp.org>
parents:
652
diff
changeset
|
429 result = dmf_create_stdio(optFilename, "rb", &file); |
|
3d813c81f33c
More work on resources API.
Matti Hamalainen <ccr@tnsp.org>
parents:
652
diff
changeset
|
430 |
|
3d813c81f33c
More work on resources API.
Matti Hamalainen <ccr@tnsp.org>
parents:
652
diff
changeset
|
431 if (result != DMERR_OK) |
| 0 | 432 { |
|
958
985225a93aeb
Add error code parameter to dmError() and dmErrorVA().
Matti Hamalainen <ccr@tnsp.org>
parents:
942
diff
changeset
|
433 dmErrorMsg("Error opening input file '%s', #%d: %s\n", |
|
730
3d813c81f33c
More work on resources API.
Matti Hamalainen <ccr@tnsp.org>
parents:
652
diff
changeset
|
434 optFilename, result, dmErrorStr(result)); |
| 0 | 435 return 1; |
| 436 } | |
| 437 | |
| 438 // Read module file | |
|
77
c6cdaa675801
Add the file mode parameter to dmf_create_stdio() calls, and throw in some
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
439 dmMsg(1, "Reading file: %s\n", optFilename); |
| 0 | 440 #ifdef JSS_SUP_XM |
|
77
c6cdaa675801
Add the file mode parameter to dmf_create_stdio() calls, and throw in some
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
441 dmMsg(1, "* Trying XM...\n"); |
|
797
f066e9dccf29
Oops, fix some inverted booleans.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
442 result = jssLoadXM(file, &mod, TRUE); |
| 0 | 443 #endif |
| 444 #ifdef JSS_SUP_JSSMOD | |
| 445 if (result != 0) | |
| 446 { | |
|
77
c6cdaa675801
Add the file mode parameter to dmf_create_stdio() calls, and throw in some
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
447 dmfseek(file, 0L, SEEK_SET); |
|
777
ed60a7ee3ebb
Change JSSMOD loader to use DMResources.
Matti Hamalainen <ccr@tnsp.org>
parents:
730
diff
changeset
|
448 dmMsg(1, "* Trying JSSMOD ...\n"); |
| 796 | 449 result = jssLoadJSSMOD(file, &mod, TRUE); |
| 0 | 450 } |
| 451 #endif | |
|
77
c6cdaa675801
Add the file mode parameter to dmf_create_stdio() calls, and throw in some
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
452 dmf_close(file); |
|
8
fc097f7717df
Fix JSSMod loading in viewmod and testpl.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
453 if (result != DMERR_OK) |
| 0 | 454 { |
|
958
985225a93aeb
Add error code parameter to dmError() and dmErrorVA().
Matti Hamalainen <ccr@tnsp.org>
parents:
942
diff
changeset
|
455 dmErrorMsg("Error loading module file, %d: %s\n", |
|
8
fc097f7717df
Fix JSSMod loading in viewmod and testpl.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
456 result, dmErrorStr(result)); |
| 0 | 457 return 3; |
| 458 } | |
| 459 | |
| 460 // Print out information | |
| 461 if (optViewGeneralInfo) | |
|
79
d6c2efa25aa4
Oops, missed one s/m/mod/ .. fixed.
Matti Hamalainen <ccr@tnsp.org>
parents:
77
diff
changeset
|
462 printGeneralInfo(stdout, mod); |
| 0 | 463 |
| 464 if (optViewPatterns) | |
| 465 { | |
|
77
c6cdaa675801
Add the file mode parameter to dmf_create_stdio() calls, and throw in some
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
466 for (i = 0; i < mod->npatterns; i++) |
|
1110
ea2cc4932714
Improve output of dumpmod.
Matti Hamalainen <ccr@tnsp.org>
parents:
1092
diff
changeset
|
467 if (mod->patterns[i] != NULL) |
| 0 | 468 { |
|
1110
ea2cc4932714
Improve output of dumpmod.
Matti Hamalainen <ccr@tnsp.org>
parents:
1092
diff
changeset
|
469 printf("\nPattern #%02x:\n", i); |
|
77
c6cdaa675801
Add the file mode parameter to dmf_create_stdio() calls, and throw in some
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
470 printPattern(stdout, mod->patterns[i]); |
| 0 | 471 } |
| 472 } | |
| 473 | |
| 474 if (optViewExtInstruments) | |
| 475 { | |
| 476 printf("\n" | |
| 477 "ExtInstruments:\n" | |
| 478 "---------------\n" | |
| 479 ); | |
|
77
c6cdaa675801
Add the file mode parameter to dmf_create_stdio() calls, and throw in some
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
480 for (i = 0; i < mod->nextInstruments; i++) |
|
1110
ea2cc4932714
Improve output of dumpmod.
Matti Hamalainen <ccr@tnsp.org>
parents:
1092
diff
changeset
|
481 if (mod->extInstruments[i] != NULL) |
| 0 | 482 { |
|
1110
ea2cc4932714
Improve output of dumpmod.
Matti Hamalainen <ccr@tnsp.org>
parents:
1092
diff
changeset
|
483 printf("#%02x: ", i + 1); |
|
77
c6cdaa675801
Add the file mode parameter to dmf_create_stdio() calls, and throw in some
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
484 printExtInstrument(stdout, mod->extInstruments[i]); |
| 0 | 485 } |
| 486 } | |
| 487 | |
| 488 if (optViewInstruments) | |
| 489 { | |
| 490 printf("\n" | |
| 491 "Instruments:\n" | |
| 492 "------------\n" | |
| 493 ); | |
|
77
c6cdaa675801
Add the file mode parameter to dmf_create_stdio() calls, and throw in some
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
494 for (i = 0; i < mod->ninstruments; i++) |
|
1110
ea2cc4932714
Improve output of dumpmod.
Matti Hamalainen <ccr@tnsp.org>
parents:
1092
diff
changeset
|
495 if (mod->instruments[i] != NULL) |
| 0 | 496 { |
|
1110
ea2cc4932714
Improve output of dumpmod.
Matti Hamalainen <ccr@tnsp.org>
parents:
1092
diff
changeset
|
497 printf("#%02x: ", i + 1); |
|
77
c6cdaa675801
Add the file mode parameter to dmf_create_stdio() calls, and throw in some
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
498 printInstrument(stdout, mod->instruments[i]); |
| 0 | 499 } |
| 500 } | |
| 501 | |
| 502 // Free module data | |
|
77
c6cdaa675801
Add the file mode parameter to dmf_create_stdio() calls, and throw in some
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
503 jssFreeModule(mod); |
|
c6cdaa675801
Add the file mode parameter to dmf_create_stdio() calls, and throw in some
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
504 jssClose(); |
| 0 | 505 |
| 506 exit(0); | |
| 507 return 0; | |
| 508 } |