Mercurial > hg > dmlib
annotate tests/plrtest.c @ 1204:0d173edbabe2
Do the file probing stuff here as well.
| author | Matti Hamalainen <ccr@tnsp.org> |
|---|---|
| date | Thu, 05 Mar 2015 17:00:18 +0200 |
| parents | f066e9dccf29 |
| children | 2d7511e61403 |
| rev | line source |
|---|---|
| 0 | 1 #include "jss.h" |
| 2 #include "jssmod.h" | |
| 3 #include "jssmix.h" | |
| 4 #include "jssplr.h" | |
| 5 #include <string.h> | |
| 6 #include <unistd.h> | |
| 7 #include <SDL.h> | |
| 8 | |
| 9 | |
| 10 static const char patNoteTable[12][3] = | |
| 11 { | |
| 12 "C-", "C#", "D-", | |
| 13 "D#", "E-", "F-", | |
| 14 "F#", "G-", "G#", | |
| 15 "A-", "A#", "B-" | |
| 16 }; | |
| 17 | |
| 18 | |
| 19 #define jmpNMODEffectTable (36) | |
| 20 static const char jmpMODEffectTable[jmpNMODEffectTable] = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"; | |
| 21 | |
| 22 | |
| 23 void printRow(FILE * f, JSSPattern * p, int row) | |
| 24 { | |
| 25 int j, k; | |
| 26 char c; | |
| 27 JSSNote *n; | |
| 28 | |
| 29 if (!p) | |
| 30 return; | |
| 31 | |
| 32 n = &(p->data[p->nchannels * row]); | |
| 33 | |
| 34 fprintf(f, "%.2x: ", row); | |
| 35 | |
| 36 k = p->nchannels < 5 ? p->nchannels : 5; | |
| 37 | |
| 38 for (j = 0; j < k; j++) | |
| 39 { | |
| 40 switch (n->note) | |
| 41 { | |
| 42 case jsetNotSet: | |
| 43 fprintf(f, "... "); | |
| 44 break; | |
| 45 case jsetNoteOff: | |
| 46 fprintf(f, "=== "); | |
| 47 break; | |
| 48 default: | |
| 49 fprintf(f, "%s%i ", patNoteTable[n->note % 12], n->note / 12); | |
| 50 break; | |
| 51 } | |
| 52 | |
| 53 if (n->instrument != jsetNotSet) | |
| 54 fprintf(f, "%.2x ", n->instrument + 1); | |
| 55 else | |
| 56 fprintf(f, ".. "); | |
| 57 | |
| 58 if (n->volume == jsetNotSet) | |
| 59 fprintf(f, ".. "); | |
| 60 else if (n->volume >= 0x00 && n->volume <= 0x40) | |
| 61 fprintf(f, "%.2x ", n->volume); | |
| 62 else | |
| 63 { | |
| 64 switch (n->volume & 0xf0) | |
| 65 { | |
| 66 case 0x50: c = '-'; break; | |
| 67 case 0x60: c = '+'; break; | |
| 68 case 0x70: c = '/'; break; | |
| 69 case 0x80: c = '\\'; break; | |
| 70 case 0x90: c = 'S'; break; | |
| 71 case 0xa0: c = 'V'; break; | |
| 72 case 0xb0: c = 'P'; break; | |
| 73 case 0xc0: c = '<'; break; | |
| 74 case 0xd0: c = '>'; break; | |
| 75 case 0xe0: c = 'M'; break; | |
| 76 default: c = '?'; break; | |
| 77 } | |
| 78 fprintf(f, "%c%x ", c, (n->volume & 0x0f)); | |
| 79 } | |
| 80 | |
| 81 if (n->effect >= 0 && n->effect < jmpNMODEffectTable) | |
| 82 fprintf(f, "%c", jmpMODEffectTable[n->effect]); | |
| 83 else if (n->effect == jsetNotSet) | |
| 84 fprintf(f, "."); | |
| 85 else | |
| 86 fprintf(f, "?"); | |
| 87 | |
| 88 if (n->param != jsetNotSet) | |
| 89 fprintf(f, "%.2x|", n->param); | |
| 90 else | |
| 91 fprintf(f, "..|"); | |
| 92 | |
| 93 n++; | |
| 94 } | |
| 95 } | |
| 96 | |
| 97 | |
| 98 void audioCallback(void *userdata, Uint8 *stream, int len) | |
| 99 { | |
| 100 JSSMixer *d = (JSSMixer *) userdata; | |
| 101 | |
| 102 if (d != NULL) | |
| 103 { | |
| 104 jvmRenderAudio(d, stream, len / jvmGetSampleSize(d)); | |
| 105 } | |
| 106 } | |
| 107 | |
| 108 | |
| 109 int main(int argc, char *argv[]) | |
| 110 { | |
| 67 | 111 SDL_AudioSpec afmt; |
| 112 DMResource *file = NULL; | |
|
730
3d813c81f33c
More work on resources API.
Matti Hamalainen <ccr@tnsp.org>
parents:
667
diff
changeset
|
113 char *inFilename = NULL; |
| 0 | 114 int result = -1; |
| 67 | 115 JSSModule *mod = NULL; |
| 116 JSSMixer *dev = NULL; | |
| 117 JSSPlayer *plr = NULL; | |
| 0 | 118 |
| 119 if (argc > 1) | |
|
730
3d813c81f33c
More work on resources API.
Matti Hamalainen <ccr@tnsp.org>
parents:
667
diff
changeset
|
120 inFilename = argv[1]; |
| 0 | 121 |
| 122 // Open the files | |
|
730
3d813c81f33c
More work on resources API.
Matti Hamalainen <ccr@tnsp.org>
parents:
667
diff
changeset
|
123 if (inFilename == NULL) |
|
3d813c81f33c
More work on resources API.
Matti Hamalainen <ccr@tnsp.org>
parents:
667
diff
changeset
|
124 result = dmf_create_stdio_stream(stdin, &file); |
|
3d813c81f33c
More work on resources API.
Matti Hamalainen <ccr@tnsp.org>
parents:
667
diff
changeset
|
125 else |
|
3d813c81f33c
More work on resources API.
Matti Hamalainen <ccr@tnsp.org>
parents:
667
diff
changeset
|
126 result = dmf_create_stdio(inFilename, "rb", &file); |
|
3d813c81f33c
More work on resources API.
Matti Hamalainen <ccr@tnsp.org>
parents:
667
diff
changeset
|
127 |
|
3d813c81f33c
More work on resources API.
Matti Hamalainen <ccr@tnsp.org>
parents:
667
diff
changeset
|
128 if (result != DMERR_OK) |
| 0 | 129 { |
|
730
3d813c81f33c
More work on resources API.
Matti Hamalainen <ccr@tnsp.org>
parents:
667
diff
changeset
|
130 fprintf(stderr, "Error opening input file '%s', #%d: %s\n", |
|
3d813c81f33c
More work on resources API.
Matti Hamalainen <ccr@tnsp.org>
parents:
667
diff
changeset
|
131 inFilename, result, dmErrorStr(result)); |
| 0 | 132 return 1; |
| 133 } | |
| 134 | |
| 135 // Initialize miniJSS | |
| 136 fprintf(stderr, "Initializing miniJSS\n"); | |
| 137 jssInit(); | |
| 138 | |
| 139 | |
| 140 // Read module file | |
|
1204
0d173edbabe2
Do the file probing stuff here as well.
Matti Hamalainen <ccr@tnsp.org>
parents:
797
diff
changeset
|
141 dmMsg(1, "Reading file: %s\n", inFilename); |
| 0 | 142 #ifdef JSS_SUP_XM |
|
797
f066e9dccf29
Oops, fix some inverted booleans.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
143 result = jssLoadXM(file, &mod, TRUE); |
|
1204
0d173edbabe2
Do the file probing stuff here as well.
Matti Hamalainen <ccr@tnsp.org>
parents:
797
diff
changeset
|
144 #endif |
| 0 | 145 #ifdef JSS_SUP_JSSMOD |
|
1204
0d173edbabe2
Do the file probing stuff here as well.
Matti Hamalainen <ccr@tnsp.org>
parents:
797
diff
changeset
|
146 dmfreset(file); |
|
0d173edbabe2
Do the file probing stuff here as well.
Matti Hamalainen <ccr@tnsp.org>
parents:
797
diff
changeset
|
147 if (result != DMERR_OK) |
| 0 | 148 { |
|
777
ed60a7ee3ebb
Change JSSMOD loader to use DMResources.
Matti Hamalainen <ccr@tnsp.org>
parents:
730
diff
changeset
|
149 dmMsg(1, "* Trying JSSMOD ...\n"); |
|
797
f066e9dccf29
Oops, fix some inverted booleans.
Matti Hamalainen <ccr@tnsp.org>
parents:
796
diff
changeset
|
150 result = jssLoadJSSMOD(file, &mod, TRUE); |
|
1204
0d173edbabe2
Do the file probing stuff here as well.
Matti Hamalainen <ccr@tnsp.org>
parents:
797
diff
changeset
|
151 dmfreset(file); |
|
0d173edbabe2
Do the file probing stuff here as well.
Matti Hamalainen <ccr@tnsp.org>
parents:
797
diff
changeset
|
152 if (result == DMERR_OK) |
|
0d173edbabe2
Do the file probing stuff here as well.
Matti Hamalainen <ccr@tnsp.org>
parents:
797
diff
changeset
|
153 result = jssLoadJSSMOD(file, &mod, FALSE); |
| 0 | 154 } |
|
1204
0d173edbabe2
Do the file probing stuff here as well.
Matti Hamalainen <ccr@tnsp.org>
parents:
797
diff
changeset
|
155 else |
|
0d173edbabe2
Do the file probing stuff here as well.
Matti Hamalainen <ccr@tnsp.org>
parents:
797
diff
changeset
|
156 { |
|
0d173edbabe2
Do the file probing stuff here as well.
Matti Hamalainen <ccr@tnsp.org>
parents:
797
diff
changeset
|
157 dmMsg(2, "* Trying XM...\n"); |
|
0d173edbabe2
Do the file probing stuff here as well.
Matti Hamalainen <ccr@tnsp.org>
parents:
797
diff
changeset
|
158 result = jssLoadXM(file, &mod, FALSE); |
|
0d173edbabe2
Do the file probing stuff here as well.
Matti Hamalainen <ccr@tnsp.org>
parents:
797
diff
changeset
|
159 } |
|
794
319792b2af4a
Fix non-fallback loading of JSSMod.
Matti Hamalainen <ccr@tnsp.org>
parents:
793
diff
changeset
|
160 #endif |
| 67 | 161 dmf_close(file); |
| 0 | 162 |
|
1204
0d173edbabe2
Do the file probing stuff here as well.
Matti Hamalainen <ccr@tnsp.org>
parents:
797
diff
changeset
|
163 // Check for errors, we still might have some data tho |
|
8
fc097f7717df
Fix JSSMod loading in viewmod and testpl.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
164 if (result != DMERR_OK) |
| 0 | 165 { |
|
1204
0d173edbabe2
Do the file probing stuff here as well.
Matti Hamalainen <ccr@tnsp.org>
parents:
797
diff
changeset
|
166 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
|
167 result, dmErrorStr(result)); |
|
1204
0d173edbabe2
Do the file probing stuff here as well.
Matti Hamalainen <ccr@tnsp.org>
parents:
797
diff
changeset
|
168 } |
|
0d173edbabe2
Do the file probing stuff here as well.
Matti Hamalainen <ccr@tnsp.org>
parents:
797
diff
changeset
|
169 |
|
0d173edbabe2
Do the file probing stuff here as well.
Matti Hamalainen <ccr@tnsp.org>
parents:
797
diff
changeset
|
170 // Check if we have anything |
|
0d173edbabe2
Do the file probing stuff here as well.
Matti Hamalainen <ccr@tnsp.org>
parents:
797
diff
changeset
|
171 if (mod == NULL) |
| 0 | 172 return 3; |
|
1204
0d173edbabe2
Do the file probing stuff here as well.
Matti Hamalainen <ccr@tnsp.org>
parents:
797
diff
changeset
|
173 |
| 0 | 174 |
|
49
033c660c25f5
Restructure module playing, removing 8bit sample mixing (output can still be
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
175 // Try to convert it |
| 67 | 176 if ((result = jssConvertModuleForPlaying(mod)) != DMERR_OK) |
|
49
033c660c25f5
Restructure module playing, removing 8bit sample mixing (output can still be
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
177 { |
|
033c660c25f5
Restructure module playing, removing 8bit sample mixing (output can still be
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
178 fprintf(stderr, "Could not convert module for playing, %d: %s\n", |
|
033c660c25f5
Restructure module playing, removing 8bit sample mixing (output can still be
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
179 result, dmErrorStr(result)); |
|
033c660c25f5
Restructure module playing, removing 8bit sample mixing (output can still be
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
180 return 3; |
|
033c660c25f5
Restructure module playing, removing 8bit sample mixing (output can still be
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
181 } |
| 0 | 182 |
| 183 // Initialize SDL audio | |
| 67 | 184 afmt.freq = 48000; |
| 185 afmt.format = AUDIO_S16SYS; | |
| 186 afmt.channels = 2; | |
| 303 | 187 |
| 0 | 188 // Initialize mixing device |
| 189 fprintf(stderr, "Initializing miniJSS mixer with: %d, %d, %d\n", | |
| 67 | 190 JSS_AUDIO_S16, afmt.channels, afmt.freq); |
| 0 | 191 |
| 67 | 192 dev = jvmInit(JSS_AUDIO_S16, afmt.channels, afmt.freq, JMIX_AUTO); |
| 193 if (dev == NULL) | |
| 194 { | |
| 0 | 195 fprintf(stderr, "jvmInit() returned NULL\n"); |
| 196 return 3; | |
| 197 } | |
| 198 | |
| 303 | 199 afmt.samples = afmt.freq / 4; |
| 67 | 200 afmt.callback = audioCallback; |
| 201 afmt.userdata = (void *) dev; | |
| 0 | 202 |
| 203 // Open the audio device | |
| 204 fprintf(stderr, "Trying to init SDL with: %d, %d, %d\n", | |
| 67 | 205 afmt.format, afmt.channels, afmt.freq); |
| 0 | 206 |
| 67 | 207 if (SDL_OpenAudio(&afmt, NULL) < 0) |
| 0 | 208 { |
| 209 fprintf(stderr, "Couldn't open audio: %s\n", SDL_GetError()); | |
| 210 return 4; | |
| 211 } | |
| 212 | |
| 213 // Initialize player | |
| 67 | 214 if ((plr = jmpInit(dev)) == NULL) |
| 0 | 215 { |
| 216 fprintf(stderr, "jmpInit() returned NULL\n"); | |
| 217 return 4; | |
| 218 } | |
| 219 | |
| 220 // Initialize playing | |
| 67 | 221 jvmSetCallback(dev, jmpExec, plr); |
| 222 jmpSetModule(plr, mod); | |
| 223 jmpPlayOrder(plr, 0); | |
| 224 jvmSetGlobalVol(dev, 60); | |
| 0 | 225 |
| 226 // okay, main loop here ... "play" module and print out info | |
| 227 printf("----------------------------------------------------\n"); | |
| 292 | 228 SDL_LockAudio(); |
| 0 | 229 SDL_PauseAudio(0); |
| 292 | 230 SDL_UnlockAudio(); |
| 231 BOOL playing = TRUE; | |
| 232 while (playing) | |
| 0 | 233 { |
|
793
21ad08cdf408
Fix a potential NULL pointer usage.
Matti Hamalainen <ccr@tnsp.org>
parents:
777
diff
changeset
|
234 JSSPattern *pattern = NULL; |
| 292 | 235 int currRow, prevRow; |
| 236 | |
| 237 JSS_LOCK(plr); | |
| 238 currRow = prevRow = plr->row; | |
| 239 JSS_UNLOCK(plr); | |
| 240 | |
| 241 while (currRow == prevRow && playing) | |
| 242 { | |
| 243 JSS_LOCK(plr); | |
| 244 currRow = plr->row; | |
| 245 playing = plr->isPlaying; | |
| 246 pattern = plr->pattern; | |
| 247 JSS_UNLOCK(plr); | |
| 0 | 248 SDL_Delay(50); |
| 292 | 249 } |
| 0 | 250 |
|
793
21ad08cdf408
Fix a potential NULL pointer usage.
Matti Hamalainen <ccr@tnsp.org>
parents:
777
diff
changeset
|
251 if (playing && pattern != NULL) |
| 292 | 252 { |
| 253 printRow(stdout, pattern, currRow); | |
| 254 printf("\n"); | |
| 255 } | |
| 0 | 256 } |
| 257 | |
| 258 printf("----------------------------------------------------\n"); | |
| 259 | |
| 292 | 260 SDL_LockAudio(); |
| 67 | 261 SDL_PauseAudio(1); |
| 262 jmpClose(plr); | |
| 263 jvmClose(dev); | |
| 264 jssFreeModule(mod); | |
| 265 SDL_UnlockAudio(); | |
| 266 | |
| 267 SDL_Quit(); | |
| 0 | 268 |
|
69
7b97df6f8a97
Add jssClose() in the shutdown.
Matti Hamalainen <ccr@tnsp.org>
parents:
67
diff
changeset
|
269 jssClose(); |
|
7b97df6f8a97
Add jssClose() in the shutdown.
Matti Hamalainen <ccr@tnsp.org>
parents:
67
diff
changeset
|
270 |
| 0 | 271 return 0; |
| 272 } |