dmlib: tools/mod2wav.c annotate

annotate tools/mod2wav.c @ 2408:60e119262c67

Option index re-ordering cleanup work.

author	Matti Hamalainen <ccr@tnsp.org>
date	Mon, 13 Jan 2020 21:21:25 +0200
parents	b7cd5dd0b82e
children	bc05bcfc4598

rev	line source
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1 /*
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	2 * mod2wav - Render XM/JSSMOD module to WAV waveform file
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	3 * Programmed and designed by Matti 'ccr' Hamalainen
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	4 * (C) Copyright 2007 Tecnic Software productions (TNSP)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	5 *
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	6 * Please read file 'COPYING' for information on license and distribution.
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	7 */
1432 a9516570cc26 Improve build, so that we can build the tools and tests with minimal Matti Hamalainen <ccr@tnsp.org> parents: 1235 diff changeset	8 #include "dmtool.h"
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	9 #include <stdio.h>
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	10 #include <stdlib.h>
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	11 #include "jss.h"
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	12 #include "jssmod.h"
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	13 #include "jssmix.h"
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	14 #include "jssplr.h"
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	15 #include "dmlib.h"
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	16 #include "dmargs.h"
1953 c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	17 #include "dmfile.h"
285 245b15cd1919 Don't link libSDL uselessly to utilities that do not actually use it. Matti Hamalainen <ccr@tnsp.org> parents: 206 diff changeset	18 #include "dmmutex.h"
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	19
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	20
1953 c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	21 #define DM_WAVE_FORMAT_PCM (1)
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	22 #define DM_WAVE_RIFF_ID "RIFF"
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	23 #define DM_WAVE_WAVE_ID "WAVE"
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	24 #define DM_WAVE_FMT_ID "fmt "
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	25 #define DM_WAVE_DATA_ID "data"
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	26
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	27
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	28 typedef struct
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	29 {
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	30 Uint8 chunkID[4];
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	31 Uint32 chunkSize;
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	32 } DMWaveChunk;
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	33
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	34
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	35 typedef struct
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	36 {
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	37 Uint8 riffID[4];
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	38 Uint32 fileSize;
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	39 Uint8 riffType[4];
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	40
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	41 DMWaveChunk chFormat;
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	42
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	43 Uint16 wFormatTag;
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	44 Uint16 nChannels;
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	45 Uint32 nSamplesPerSec;
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	46 Uint32 nAvgBytesPerSec;
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	47 Uint16 nBlockAlign;
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	48 Uint16 wBitsPerSample;
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	49
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	50 DMWaveChunk chData;
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	51 // Data follows here
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	52 } DMWaveFile;
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	53
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	54
300 4972ca91d062 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 285 diff changeset	55 char optInFilename = NULL, optOutFilename = NULL;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	56 int optOutFormat = JSS_AUDIO_S16,
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	57 optOutChannels = 2,
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	58 optOutFreq = 44100,
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	59 optMuteOChannels = -1,
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	60 optStartOrder = -1;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	61 BOOL optUsePlayTime = FALSE;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	62 size_t optPlayTime;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	63
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	64
860 daebbf28953d The argument handling API in dmargs* was synced with th-libs. Matti Hamalainen <ccr@tnsp.org> parents: 797 diff changeset	65 static const DMOptArg optList[] =
37 cec910d02b26 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 15 diff changeset	66 {
2408 60e119262c67 Option index re-ordering cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 2402 diff changeset	67 { 0, '?', "help" , "Show this help", OPT_NONE },
60e119262c67 Option index re-ordering cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 2402 diff changeset	68 { 2, 'v', "verbose" , "Be more verbose", OPT_NONE },
60e119262c67 Option index re-ordering cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 2402 diff changeset	69
60e119262c67 Option index re-ordering cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 2402 diff changeset	70 { 10, '1', "16bit" , "16-bit output", OPT_NONE },
60e119262c67 Option index re-ordering cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 2402 diff changeset	71 { 12, '8', "8bit" , "8-bit output", OPT_NONE },
60e119262c67 Option index re-ordering cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 2402 diff changeset	72 { 14, 'm', "mono" , "Mono output", OPT_NONE },
60e119262c67 Option index re-ordering cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 2402 diff changeset	73 { 16, 's', "stereo" , "Stereo output", OPT_NONE },
60e119262c67 Option index re-ordering cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 2402 diff changeset	74 { 18, 'f', "freq" , "Output frequency", OPT_ARGREQ },
60e119262c67 Option index re-ordering cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 2402 diff changeset	75 { 20, 'M', "mute" , "Mute other channels than #", OPT_ARGREQ },
60e119262c67 Option index re-ordering cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 2402 diff changeset	76 { 22, 'o', "order" , "Start from order #", OPT_ARGREQ },
60e119262c67 Option index re-ordering cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 2402 diff changeset	77 { 24, 't', "time" , "Play for # seconds", OPT_ARGREQ },
60e119262c67 Option index re-ordering cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 2402 diff changeset	78 // { 26, 'l', "loop" , "Loop for # times", OPT_ARGREQ },
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	79 };
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	80
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	81 const int optListN = sizeof(optList) / sizeof(optList[0]);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	82
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	83
2408 60e119262c67 Option index re-ordering cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 2402 diff changeset	84 void argShowHelp()
60e119262c67 Option index re-ordering cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 2402 diff changeset	85 {
60e119262c67 Option index re-ordering cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 2402 diff changeset	86 dmPrintBanner(stdout, dmProgName, "[options] [sourcefile] [destfile.wav]");
60e119262c67 Option index re-ordering cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 2402 diff changeset	87 dmArgsPrintHelp(stdout, optList, optListN, 0, 80 - 2);
60e119262c67 Option index re-ordering cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 2402 diff changeset	88 }
60e119262c67 Option index re-ordering cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 2402 diff changeset	89
60e119262c67 Option index re-ordering cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 2402 diff changeset	90
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	91 BOOL argHandleOpt(const int optN, char optArg, char currArg)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	92 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	93 (void) optArg;
1235 5b8245e5f785 Remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1199 diff changeset	94
37 cec910d02b26 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 15 diff changeset	95 switch (optN)
cec910d02b26 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 15 diff changeset	96 {
cec910d02b26 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 15 diff changeset	97 case 0:
2408 60e119262c67 Option index re-ordering cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 2402 diff changeset	98 argShowHelp();
37 cec910d02b26 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 15 diff changeset	99 exit(0);
cec910d02b26 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 15 diff changeset	100 break;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	101
37 cec910d02b26 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 15 diff changeset	102 case 2:
cec910d02b26 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 15 diff changeset	103 dmVerbosity++;
cec910d02b26 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 15 diff changeset	104 break;
1235 5b8245e5f785 Remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1199 diff changeset	105
2408 60e119262c67 Option index re-ordering cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 2402 diff changeset	106 case 10:
37 cec910d02b26 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 15 diff changeset	107 optOutFormat = JSS_AUDIO_S16;
cec910d02b26 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 15 diff changeset	108 break;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	109
2408 60e119262c67 Option index re-ordering cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 2402 diff changeset	110 case 12:
37 cec910d02b26 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 15 diff changeset	111 optOutFormat = JSS_AUDIO_U8;
cec910d02b26 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 15 diff changeset	112 break;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	113
2408 60e119262c67 Option index re-ordering cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 2402 diff changeset	114 case 14:
37 cec910d02b26 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 15 diff changeset	115 optOutChannels = JSS_AUDIO_MONO;
cec910d02b26 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 15 diff changeset	116 break;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	117
2408 60e119262c67 Option index re-ordering cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 2402 diff changeset	118 case 16:
38 8b04b0b51edc Oops, fix a stupid bug in -s option .. it was setting the wrong variable. :\| Matti Hamalainen <ccr@tnsp.org> parents: 37 diff changeset	119 optOutChannels = JSS_AUDIO_STEREO;
37 cec910d02b26 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 15 diff changeset	120 break;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	121
2408 60e119262c67 Option index re-ordering cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 2402 diff changeset	122 case 18:
37 cec910d02b26 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 15 diff changeset	123 optOutFreq = atoi(optArg);
cec910d02b26 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 15 diff changeset	124 break;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	125
2408 60e119262c67 Option index re-ordering cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 2402 diff changeset	126 case 20:
37 cec910d02b26 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 15 diff changeset	127 optMuteOChannels = atoi(optArg);
cec910d02b26 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 15 diff changeset	128 break;
cec910d02b26 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 15 diff changeset	129
2408 60e119262c67 Option index re-ordering cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 2402 diff changeset	130 case 22:
37 cec910d02b26 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 15 diff changeset	131 optStartOrder = atoi(optArg);
cec910d02b26 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 15 diff changeset	132 break;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	133
2408 60e119262c67 Option index re-ordering cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 2402 diff changeset	134 case 24:
37 cec910d02b26 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 15 diff changeset	135 optPlayTime = atoi(optArg);
cec910d02b26 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 15 diff changeset	136 optUsePlayTime = TRUE;
cec910d02b26 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 15 diff changeset	137 break;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	138
37 cec910d02b26 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 15 diff changeset	139 default:
2183 e3f0eaf23f4f Change the error message for unimplemented option argument. Matti Hamalainen <ccr@tnsp.org> parents: 1953 diff changeset	140 dmErrorMsg("Unimplemented option argument '%s'.\n", currArg);
37 cec910d02b26 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 15 diff changeset	141 return FALSE;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	142 }
1235 5b8245e5f785 Remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1199 diff changeset	143
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	144 return TRUE;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	145 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	146
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	147
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	148 BOOL argHandleFile(char *currArg)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	149 {
2258 c146033f1f6a Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 2183 diff changeset	150 if (optInFilename == NULL)
300 4972ca91d062 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 285 diff changeset	151 optInFilename = currArg;
37 cec910d02b26 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 15 diff changeset	152 else
2258 c146033f1f6a Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 2183 diff changeset	153 if (optOutFilename == NULL)
300 4972ca91d062 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 285 diff changeset	154 optOutFilename = currArg;
37 cec910d02b26 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 15 diff changeset	155 else
cec910d02b26 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 15 diff changeset	156 {
958 985225a93aeb Add error code parameter to dmError() and dmErrorVA(). Matti Hamalainen <ccr@tnsp.org> parents: 860 diff changeset	157 dmErrorMsg("Too many filename arguments (only source and dest needed) '%s'\n", currArg);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	158 return FALSE;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	159 }
1235 5b8245e5f785 Remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1199 diff changeset	160
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	161 return TRUE;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	162 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	163
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	164
1953 c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	165 BOOL dmWriteWAVChunk(FILE * f, DMWaveChunk *ch)
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	166 {
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	167 return dm_fwrite_str(f, ch->chunkID, 4) && dm_fwrite_le32(f, ch->chunkSize);
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	168 }
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	169
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	170
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	171 void dmMakeWAVChunk(DMWaveChunk ch, const char chunkID, const Uint32 chunkSize)
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	172 {
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	173 memcpy(&(ch->chunkID), (const void *) chunkID, 4);
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	174 ch->chunkSize = chunkSize;
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	175 }
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	176
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	177
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	178 void dmWriteWAVHeader(FILE *outFile, int sampBits, int sampFreq, int sampChn, size_t sampLen)
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	179 {
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	180 DMWaveFile wav;
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	181
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	182 // PCM WAVE chunk
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	183 dmMakeWAVChunk(&wav.chFormat, DM_WAVE_FMT_ID, (2 + 2 + 4 + 4 + 2 + 2));
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	184
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	185 wav.wFormatTag = DM_WAVE_FORMAT_PCM;
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	186 wav.nChannels = sampChn;
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	187 wav.nSamplesPerSec = sampFreq;
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	188 wav.nAvgBytesPerSec = (sampBits * sampChn * sampFreq) / 8;
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	189 wav.nBlockAlign = (sampBits * sampChn) / 8;
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	190 wav.wBitsPerSample = sampBits;
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	191
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	192 // Data chunk
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	193 dmMakeWAVChunk(&wav.chData, DM_WAVE_DATA_ID, (sampLen * wav.nBlockAlign));
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	194
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	195 // RIFF header
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	196 memcpy(&wav.riffID, (const void *) DM_WAVE_RIFF_ID, 4);
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	197 memcpy(&wav.riffType, (const void *) DM_WAVE_WAVE_ID, 4);
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	198 wav.fileSize = ((4 + 4 + 4) + wav.chFormat.chunkSize + wav.chData.chunkSize);
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	199
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	200 // Write header
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	201 dm_fwrite_str(outFile, wav.riffID, sizeof(wav.riffID));
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	202 dm_fwrite_le32(outFile, wav.fileSize);
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	203
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	204 dm_fwrite_str(outFile, wav.riffType, sizeof(wav.riffType));
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	205 dmWriteWAVChunk(outFile, &wav.chFormat);
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	206
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	207 dm_fwrite_le16(outFile, wav.wFormatTag);
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	208 dm_fwrite_le16(outFile, wav.nChannels);
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	209 dm_fwrite_le32(outFile, wav.nSamplesPerSec);
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	210 dm_fwrite_le32(outFile, wav.nAvgBytesPerSec);
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	211 dm_fwrite_le16(outFile, wav.nBlockAlign);
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	212 dm_fwrite_le16(outFile, wav.wBitsPerSample);
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	213
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	214 dmWriteWAVChunk(outFile, &wav.chData);
c3e88d9343ca Move WAV stuff back into mod2wav.c, made no sense to have it elsewhere. Matti Hamalainen <ccr@tnsp.org> parents: 1606 diff changeset	215 }
2258 c146033f1f6a Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 2183 diff changeset	216
c146033f1f6a Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 2183 diff changeset	217
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	218 int main(int argc, char *argv[])
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	219 {
15 feec43a3497c Fix input file reading of mod2wav utility. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	220 DMResource *inFile = NULL;
feec43a3497c Fix input file reading of mod2wav utility. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	221 FILE *outFile = NULL;
68 182e5fac93f5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	222 JSSModule *mod = NULL;
182e5fac93f5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	223 JSSMixer *dev = NULL;
182e5fac93f5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	224 JSSPlayer *plr = NULL;
2258 c146033f1f6a Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 2183 diff changeset	225 size_t bufLen = 1024*4, dataTotal, dataWritten, sampSize;
c146033f1f6a Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 2183 diff changeset	226 Uint8 *dataBuf = NULL;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	227 int result = -1;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	228
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	229 dmInitProg("mod2wav", "XM/JSSMOD to WAV renderer", "0.2", NULL, NULL);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	230 dmVerbosity = 1;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	231
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	232 // Parse arguments
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	233 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	234 argHandleOpt, argHandleFile, OPTH_BAILOUT))
2258 c146033f1f6a Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 2183 diff changeset	235 return 1;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	236
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	237 // Check arguments
300 4972ca91d062 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 285 diff changeset	238 if (optInFilename == NULL \|\| optOutFilename == NULL)
37 cec910d02b26 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 15 diff changeset	239 {
958 985225a93aeb Add error code parameter to dmError() and dmErrorVA(). Matti Hamalainen <ccr@tnsp.org> parents: 860 diff changeset	240 dmErrorMsg("Input or output file not specified. Try --help.\n");
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	241 return 1;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	242 }
1235 5b8245e5f785 Remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1199 diff changeset	243
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	244 // Initialize miniJSS
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	245 jssInit();
1235 5b8245e5f785 Remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1199 diff changeset	246
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	247 // Open the source file
1606 93d1050eac99 Rename dmf_create_() functions to dmf_open_(). Matti Hamalainen <ccr@tnsp.org> parents: 1434 diff changeset	248 if ((result = dmf_open_stdio(optInFilename, "rb", &inFile)) != DMERR_OK)
15 feec43a3497c Fix input file reading of mod2wav utility. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	249 {
958 985225a93aeb Add error code parameter to dmError() and dmErrorVA(). Matti Hamalainen <ccr@tnsp.org> parents: 860 diff changeset	250 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	251 optInFilename, result, dmErrorStr(result));
2258 c146033f1f6a Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 2183 diff changeset	252 goto exit;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	253 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	254
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	255 // Read module file
1199 a79edf59d5d8 Improve use of probing in dumpmod, mod2wav and ppl. Matti Hamalainen <ccr@tnsp.org> parents: 958 diff changeset	256 dmMsg(1, "Reading file: %s\n", optInFilename);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	257 #ifdef JSS_SUP_XM
797 f066e9dccf29 Oops, fix some inverted booleans. Matti Hamalainen <ccr@tnsp.org> parents: 796 diff changeset	258 result = jssLoadXM(inFile, &mod, TRUE);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	259 #endif
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	260 #ifdef JSS_SUP_JSSMOD
1199 a79edf59d5d8 Improve use of probing in dumpmod, mod2wav and ppl. Matti Hamalainen <ccr@tnsp.org> parents: 958 diff changeset	261 dmfreset(inFile);
a79edf59d5d8 Improve use of probing in dumpmod, mod2wav and ppl. Matti Hamalainen <ccr@tnsp.org> parents: 958 diff changeset	262 if (result != DMERR_OK)
15 feec43a3497c Fix input file reading of mod2wav utility. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	263 {
777 ed60a7ee3ebb Change JSSMOD loader to use DMResources. Matti Hamalainen <ccr@tnsp.org> parents: 730 diff changeset	264 dmMsg(1, "* Trying JSSMOD ...\n");
797 f066e9dccf29 Oops, fix some inverted booleans. Matti Hamalainen <ccr@tnsp.org> parents: 796 diff changeset	265 result = jssLoadJSSMOD(inFile, &mod, TRUE);
1199 a79edf59d5d8 Improve use of probing in dumpmod, mod2wav and ppl. Matti Hamalainen <ccr@tnsp.org> parents: 958 diff changeset	266 dmfreset(inFile);
a79edf59d5d8 Improve use of probing in dumpmod, mod2wav and ppl. Matti Hamalainen <ccr@tnsp.org> parents: 958 diff changeset	267 if (result == DMERR_OK)
a79edf59d5d8 Improve use of probing in dumpmod, mod2wav and ppl. Matti Hamalainen <ccr@tnsp.org> parents: 958 diff changeset	268 result = jssLoadJSSMOD(inFile, &mod, FALSE);
a79edf59d5d8 Improve use of probing in dumpmod, mod2wav and ppl. Matti Hamalainen <ccr@tnsp.org> parents: 958 diff changeset	269 }
a79edf59d5d8 Improve use of probing in dumpmod, mod2wav and ppl. Matti Hamalainen <ccr@tnsp.org> parents: 958 diff changeset	270 else
a79edf59d5d8 Improve use of probing in dumpmod, mod2wav and ppl. Matti Hamalainen <ccr@tnsp.org> parents: 958 diff changeset	271 {
a79edf59d5d8 Improve use of probing in dumpmod, mod2wav and ppl. Matti Hamalainen <ccr@tnsp.org> parents: 958 diff changeset	272 dmMsg(2, "* Trying XM...\n");
a79edf59d5d8 Improve use of probing in dumpmod, mod2wav and ppl. Matti Hamalainen <ccr@tnsp.org> parents: 958 diff changeset	273 result = jssLoadXM(inFile, &mod, FALSE);
15 feec43a3497c Fix input file reading of mod2wav utility. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	274 }
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	275 #endif
15 feec43a3497c Fix input file reading of mod2wav utility. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	276 dmf_close(inFile);
1199 a79edf59d5d8 Improve use of probing in dumpmod, mod2wav and ppl. Matti Hamalainen <ccr@tnsp.org> parents: 958 diff changeset	277
a79edf59d5d8 Improve use of probing in dumpmod, mod2wav and ppl. Matti Hamalainen <ccr@tnsp.org> parents: 958 diff changeset	278 // Check for errors, we still might have some data tho
15 feec43a3497c Fix input file reading of mod2wav utility. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	279 if (result != DMERR_OK)
feec43a3497c Fix input file reading of mod2wav utility. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	280 {
958 985225a93aeb Add error code parameter to dmError() and dmErrorVA(). Matti Hamalainen <ccr@tnsp.org> parents: 860 diff changeset	281 dmErrorMsg("Error loading module file, %d: %s\n",
15 feec43a3497c Fix input file reading of mod2wav utility. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	282 result, dmErrorStr(result));
2258 c146033f1f6a Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 2183 diff changeset	283 goto exit;
1199 a79edf59d5d8 Improve use of probing in dumpmod, mod2wav and ppl. Matti Hamalainen <ccr@tnsp.org> parents: 958 diff changeset	284 }
a79edf59d5d8 Improve use of probing in dumpmod, mod2wav and ppl. Matti Hamalainen <ccr@tnsp.org> parents: 958 diff changeset	285
a79edf59d5d8 Improve use of probing in dumpmod, mod2wav and ppl. Matti Hamalainen <ccr@tnsp.org> parents: 958 diff changeset	286 // Check if we have anything
a79edf59d5d8 Improve use of probing in dumpmod, mod2wav and ppl. Matti Hamalainen <ccr@tnsp.org> parents: 958 diff changeset	287 if (mod == NULL)
2258 c146033f1f6a Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 2183 diff changeset	288 goto exit;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	289
49 033c660c25f5 Restructure module playing, removing 8bit sample mixing (output can still be Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	290 // Try to convert it
68 182e5fac93f5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	291 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: 39 diff changeset	292 {
958 985225a93aeb Add error code parameter to dmError() and dmErrorVA(). Matti Hamalainen <ccr@tnsp.org> parents: 860 diff changeset	293 dmErrorMsg("Could not convert module for playing, %d: %s\n",
49 033c660c25f5 Restructure module playing, removing 8bit sample mixing (output can still be Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	294 result, dmErrorStr(result));
2258 c146033f1f6a Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 2183 diff changeset	295 goto exit;
49 033c660c25f5 Restructure module playing, removing 8bit sample mixing (output can still be Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	296 }
033c660c25f5 Restructure module playing, removing 8bit sample mixing (output can still be Matti Hamalainen <ccr@tnsp.org> parents: 39 diff changeset	297
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	298 // Open mixer
68 182e5fac93f5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	299 dev = jvmInit(optOutFormat, optOutChannels, optOutFreq, JMIX_AUTO);
182e5fac93f5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	300 if (dev == NULL)
39 281b080e8c44 More cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 38 diff changeset	301 {
958 985225a93aeb Add error code parameter to dmError() and dmErrorVA(). Matti Hamalainen <ccr@tnsp.org> parents: 860 diff changeset	302 dmErrorMsg("jvmInit() returned NULL\n");
2258 c146033f1f6a Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 2183 diff changeset	303 goto exit;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	304 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	305
68 182e5fac93f5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	306 sampSize = jvmGetSampleSize(dev);
2258 c146033f1f6a Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 2183 diff changeset	307 if ((dataBuf = dmMalloc(bufLen * sampSize)) == NULL)
39 281b080e8c44 More cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 38 diff changeset	308 {
958 985225a93aeb Add error code parameter to dmError() and dmErrorVA(). Matti Hamalainen <ccr@tnsp.org> parents: 860 diff changeset	309 dmErrorMsg("Could not allocate mixing buffer\n");
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	310 return 5;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	311 }
1235 5b8245e5f785 Remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1199 diff changeset	312
2389 647671a9a0b8 More printf() format specifier size_t -related fixes. Matti Hamalainen <ccr@tnsp.org> parents: 2258 diff changeset	313 dmMsg(1, "Using fmt=%d, bits=%d, channels=%d, freq=%d [%" DM_PRIu_SIZE_T " / sample]\n",
68 182e5fac93f5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	314 optOutFormat, jvmGetSampleRes(dev), optOutChannels, optOutFreq,
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	315 sampSize);
1235 5b8245e5f785 Remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1199 diff changeset	316
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	317 // Initialize player
68 182e5fac93f5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	318 if ((plr = jmpInit(dev)) == NULL)
182e5fac93f5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	319 {
958 985225a93aeb Add error code parameter to dmError() and dmErrorVA(). Matti Hamalainen <ccr@tnsp.org> parents: 860 diff changeset	320 dmErrorMsg("jmpInit() returned NULL.\n");
2258 c146033f1f6a Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 2183 diff changeset	321 goto exit;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	322 }
1235 5b8245e5f785 Remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1199 diff changeset	323
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	324 // Set callback
68 182e5fac93f5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	325 jvmSetCallback(dev, jmpExec, plr);
1235 5b8245e5f785 Remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1199 diff changeset	326
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	327 // Initialize playing
68 182e5fac93f5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	328 jmpSetModule(plr, mod);
37 cec910d02b26 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 15 diff changeset	329 if (optStartOrder >= 0)
1235 5b8245e5f785 Remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1199 diff changeset	330 {
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	331 dmMsg(1, "Starting from song order #%d\n", optStartOrder);
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	332 } else
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	333 optStartOrder = 0;
37 cec910d02b26 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 15 diff changeset	334
68 182e5fac93f5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	335 jmpPlayOrder(plr, optStartOrder);
185 1f8f4d7cb33b Increase default global volume. Matti Hamalainen <ccr@tnsp.org> parents: 83 diff changeset	336 jvmSetGlobalVol(dev, 150);
1235 5b8245e5f785 Remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1199 diff changeset	337
68 182e5fac93f5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	338 if (optMuteOChannels > 0 && optMuteOChannels <= mod->nchannels)
37 cec910d02b26 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 15 diff changeset	339 {
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	340 int i;
68 182e5fac93f5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	341 for (i = 0; i < mod->nchannels; i++)
182e5fac93f5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	342 jvmMute(dev, i, TRUE);
182e5fac93f5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	343 jvmMute(dev, optMuteOChannels - 1, FALSE);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	344 }
1235 5b8245e5f785 Remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1199 diff changeset	345
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	346 // Open output file
300 4972ca91d062 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 285 diff changeset	347 if ((outFile = fopen(optOutFilename, "wb")) == NULL)
37 cec910d02b26 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 15 diff changeset	348 {
1434 ad3ad5d9681b Get rid of another direct 'errno' usage. Matti Hamalainen <ccr@tnsp.org> parents: 1432 diff changeset	349 int err = dmGetErrno();
ad3ad5d9681b Get rid of another direct 'errno' usage. Matti Hamalainen <ccr@tnsp.org> parents: 1432 diff changeset	350 dmErrorMsg("Error opening output file '%s' #%d: %s.\n",
ad3ad5d9681b Get rid of another direct 'errno' usage. Matti Hamalainen <ccr@tnsp.org> parents: 1432 diff changeset	351 optInFilename, err, dmErrorStr(err));
2258 c146033f1f6a Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 2183 diff changeset	352 goto exit;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	353 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	354
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	355 // Write initial header
206 9b6c0ed66960 Use the routines factored into dmwav module. Matti Hamalainen <ccr@tnsp.org> parents: 185 diff changeset	356 dmWriteWAVHeader(outFile, jvmGetSampleRes(dev), optOutFreq, optOutChannels, 1024);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	357
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	358 // Render audio data and output to file
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	359 if (optUsePlayTime)
2389 647671a9a0b8 More printf() format specifier size_t -related fixes. Matti Hamalainen <ccr@tnsp.org> parents: 2258 diff changeset	360 dmMsg(1, "Rendering module (%" DM_PRIu_SIZE_T " seconds) ...\n", optPlayTime);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	361 else
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	362 dmMsg(1, "Rendering module ...\n");
1235 5b8245e5f785 Remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1199 diff changeset	363
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	364 optPlayTime *= optOutFreq;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	365 dataTotal = 0;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	366 dataWritten = 1;
68 182e5fac93f5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	367 while (plr->isPlaying && dataWritten > 0)
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	368 {
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	369 size_t writeLen = bufLen;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	370 if (optUsePlayTime && (writeLen + dataTotal) > optPlayTime)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	371 writeLen = optPlayTime - dataTotal;
1235 5b8245e5f785 Remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1199 diff changeset	372
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	373 if (writeLen > 0)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	374 {
2258 c146033f1f6a Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 2183 diff changeset	375 jvmRenderAudio(dev, dataBuf, writeLen);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	376 #if (SDL_BYTEORDER == SDL_BIG_ENDIAN)
2258 c146033f1f6a Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 2183 diff changeset	377 jssEncodeSample16((Uint16 )dataBuf, writeLen optOutChannels, jsampSwapEndianess);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	378 #endif
2258 c146033f1f6a Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 2183 diff changeset	379 dataWritten = fwrite(dataBuf, sampSize, writeLen, outFile);
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	380 if (dataWritten < writeLen)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	381 {
958 985225a93aeb Add error code parameter to dmError() and dmErrorVA(). Matti Hamalainen <ccr@tnsp.org> parents: 860 diff changeset	382 dmErrorMsg("Error writing data!\n");
2258 c146033f1f6a Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 2183 diff changeset	383 goto exit;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	384 }
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	385 dataTotal += dataWritten;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	386 }
1235 5b8245e5f785 Remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1199 diff changeset	387
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	388 if (optUsePlayTime && dataTotal >= optPlayTime)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	389 break;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	390 }
1235 5b8245e5f785 Remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1199 diff changeset	391
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	392 // Write the correct header
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	393 if (fseek(outFile, 0L, SEEK_SET) != 0)
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	394 {
958 985225a93aeb Add error code parameter to dmError() and dmErrorVA(). Matti Hamalainen <ccr@tnsp.org> parents: 860 diff changeset	395 dmErrorMsg("Error rewinding to header position!\n");
2258 c146033f1f6a Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 2183 diff changeset	396 goto exit;
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	397 }
1235 5b8245e5f785 Remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1199 diff changeset	398
206 9b6c0ed66960 Use the routines factored into dmwav module. Matti Hamalainen <ccr@tnsp.org> parents: 185 diff changeset	399 dmWriteWAVHeader(outFile, jvmGetSampleRes(dev), optOutFreq, optOutChannels, dataTotal);
1235 5b8245e5f785 Remove trailing whitespace. Matti Hamalainen <ccr@tnsp.org> parents: 1199 diff changeset	400
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	401 // Done!
2258 c146033f1f6a Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 2183 diff changeset	402 dmMsg(1, "OK.\n");
68 182e5fac93f5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	403
2258 c146033f1f6a Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 2183 diff changeset	404 exit:
c146033f1f6a Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 2183 diff changeset	405 if (outFile != NULL)
c146033f1f6a Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 2183 diff changeset	406 fclose(outFile);
c146033f1f6a Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 2183 diff changeset	407
c146033f1f6a Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 2183 diff changeset	408 dmFree(dataBuf);
68 182e5fac93f5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	409 jmpClose(plr);
182e5fac93f5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	410 jvmClose(dev);
182e5fac93f5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	411 jssFreeModule(mod);
182e5fac93f5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	412 jssClose();
182e5fac93f5 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 49 diff changeset	413
0 32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	414 return 0;
32250b436bca Initial re-import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	415 }

Mercurial > hg > dmlib

annotate tools/mod2wav.c @ 2408:60e119262c67