Mercurial > repos > blastem

annotate wave.c @ 2658:99297d5f4c5d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Persist save states and config in emscripten build via IDBFS module
author Michael Pavone <pavone@retrodev.com>
date Tue, 04 Mar 2025 00:05:12 -0800
parents 1fdf7acc5165
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
467
140af5509ce7 Added copyright notice to source files and added GPL license text in COPYING
Mike Pavone <pavone@retrodev.com>
parents: 407
diff changeset
1 /*
140af5509ce7 Added copyright notice to source files and added GPL license text in COPYING
Mike Pavone <pavone@retrodev.com>
parents: 407
diff changeset
2 Copyright 2013 Michael Pavone
520
6e9d1a8c1b08 Fix check of fwrite return value in wave_finalize so that the data subchunk size gets written
Michael Pavone <pavone@retrodev.com>
parents: 467
diff changeset
3 This file is part of BlastEm.
467
140af5509ce7 Added copyright notice to source files and added GPL license text in COPYING
Mike Pavone <pavone@retrodev.com>
parents: 407
diff changeset
4 BlastEm is free software distributed under the terms of the GNU General Public License version 3 or greater. See COPYING for full license text.
140af5509ce7 Added copyright notice to source files and added GPL license text in COPYING
Mike Pavone <pavone@retrodev.com>
parents: 407
diff changeset
5 */
407
c3abc4ada43d Add support for logging YM2612 channels to WAVE files
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
6 #include "wave.h"
c3abc4ada43d Add support for logging YM2612 channels to WAVE files
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
7 #include <stddef.h>
c3abc4ada43d Add support for logging YM2612 channels to WAVE files
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
8 #include <string.h>
c3abc4ada43d Add support for logging YM2612 channels to WAVE files
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
9
c3abc4ada43d Add support for logging YM2612 channels to WAVE files
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
10 int wave_init(FILE * f, uint32_t sample_rate, uint16_t bits_per_sample, uint16_t num_channels)
c3abc4ada43d Add support for logging YM2612 channels to WAVE files
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
11 {
c3abc4ada43d Add support for logging YM2612 channels to WAVE files
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
12 wave_header header;
c3abc4ada43d Add support for logging YM2612 channels to WAVE files
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
13 memcpy(header.chunk.id, "RIFF", 4);
c3abc4ada43d Add support for logging YM2612 channels to WAVE files
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
14 memcpy(header.chunk.format, "WAVE", 4);
c3abc4ada43d Add support for logging YM2612 channels to WAVE files
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
15 header.chunk.size = 0; //This will be filled in later
c3abc4ada43d Add support for logging YM2612 channels to WAVE files
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
16 memcpy(header.format_header.id, "fmt ", 4);
c3abc4ada43d Add support for logging YM2612 channels to WAVE files
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
17 header.format_header.size = sizeof(wave_header) - (sizeof(header.chunk) + sizeof(header.data_header) + sizeof(header.format_header));
c3abc4ada43d Add support for logging YM2612 channels to WAVE files
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
18 header.audio_format = 1;
c3abc4ada43d Add support for logging YM2612 channels to WAVE files
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
19 header.num_channels = num_channels;
c3abc4ada43d Add support for logging YM2612 channels to WAVE files
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
20 header.sample_rate = sample_rate;
c3abc4ada43d Add support for logging YM2612 channels to WAVE files
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
21 header.byte_rate = sample_rate * num_channels * (bits_per_sample/8);
c3abc4ada43d Add support for logging YM2612 channels to WAVE files
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
22 header.block_align = num_channels * (bits_per_sample/8);
c3abc4ada43d Add support for logging YM2612 channels to WAVE files
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
23 header.bits_per_sample = bits_per_sample;
c3abc4ada43d Add support for logging YM2612 channels to WAVE files
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
24 memcpy(header.data_header.id, "data", 4);
c3abc4ada43d Add support for logging YM2612 channels to WAVE files
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
25 header.data_header.size = 0;//This will be filled in later;
c3abc4ada43d Add support for logging YM2612 channels to WAVE files
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
26 return fwrite(&header, 1, sizeof(header), f) == sizeof(header);
c3abc4ada43d Add support for logging YM2612 channels to WAVE files
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
27 }
c3abc4ada43d Add support for logging YM2612 channels to WAVE files
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
28
2288
efc75ea79164 Support WAVE files in CUE sheets
Michael Pavone <pavone@retrodev.com>
parents: 520
diff changeset
29 uint8_t wave_read_header(FILE *f, wave_header *header)
efc75ea79164 Support WAVE files in CUE sheets
Michael Pavone <pavone@retrodev.com>
parents: 520
diff changeset
30 {
2613
1fdf7acc5165 Fix handling of wave files with additional RIFF chunks before the data chunk
Michael Pavone <pavone@retrodev.com>
parents: 2288
diff changeset
31 size_t initial_read = offsetof(wave_header, data_header);
2288
efc75ea79164 Support WAVE files in CUE sheets
Michael Pavone <pavone@retrodev.com>
parents: 520
diff changeset
32 if (fread(header, 1, initial_read, f) != initial_read) {
efc75ea79164 Support WAVE files in CUE sheets
Michael Pavone <pavone@retrodev.com>
parents: 520
diff changeset
33 return 0;
efc75ea79164 Support WAVE files in CUE sheets
Michael Pavone <pavone@retrodev.com>
parents: 520
diff changeset
34 }
efc75ea79164 Support WAVE files in CUE sheets
Michael Pavone <pavone@retrodev.com>
parents: 520
diff changeset
35 if (memcmp(header->chunk.id, "RIFF", 4)) {
efc75ea79164 Support WAVE files in CUE sheets
Michael Pavone <pavone@retrodev.com>
parents: 520
diff changeset
36 return 0;
efc75ea79164 Support WAVE files in CUE sheets
Michael Pavone <pavone@retrodev.com>
parents: 520
diff changeset
37 }
efc75ea79164 Support WAVE files in CUE sheets
Michael Pavone <pavone@retrodev.com>
parents: 520
diff changeset
38 if (memcmp(header->chunk.format, "WAVE", 4)) {
efc75ea79164 Support WAVE files in CUE sheets
Michael Pavone <pavone@retrodev.com>
parents: 520
diff changeset
39 return 0;
efc75ea79164 Support WAVE files in CUE sheets
Michael Pavone <pavone@retrodev.com>
parents: 520
diff changeset
40 }
efc75ea79164 Support WAVE files in CUE sheets
Michael Pavone <pavone@retrodev.com>
parents: 520
diff changeset
41 if (header->chunk.size < sizeof(*header) - 8) {
efc75ea79164 Support WAVE files in CUE sheets
Michael Pavone <pavone@retrodev.com>
parents: 520
diff changeset
42 return 0;
efc75ea79164 Support WAVE files in CUE sheets
Michael Pavone <pavone@retrodev.com>
parents: 520
diff changeset
43 }
efc75ea79164 Support WAVE files in CUE sheets
Michael Pavone <pavone@retrodev.com>
parents: 520
diff changeset
44 if (memcmp(header->format_header.id, "fmt ", 4)) {
efc75ea79164 Support WAVE files in CUE sheets
Michael Pavone <pavone@retrodev.com>
parents: 520
diff changeset
45 return 0;
efc75ea79164 Support WAVE files in CUE sheets
Michael Pavone <pavone@retrodev.com>
parents: 520
diff changeset
46 }
2613
1fdf7acc5165 Fix handling of wave files with additional RIFF chunks before the data chunk
Michael Pavone <pavone@retrodev.com>
parents: 2288
diff changeset
47 if (header->format_header.size < offsetof(wave_header, data_header) - sizeof(header->chunk) - sizeof(header->format_header)) {
2288
efc75ea79164 Support WAVE files in CUE sheets
Michael Pavone <pavone@retrodev.com>
parents: 520
diff changeset
48 return 0;
efc75ea79164 Support WAVE files in CUE sheets
Michael Pavone <pavone@retrodev.com>
parents: 520
diff changeset
49 }
efc75ea79164 Support WAVE files in CUE sheets
Michael Pavone <pavone@retrodev.com>
parents: 520
diff changeset
50 fseek(f, header->format_header.size + sizeof(header->chunk) + sizeof(header->format_header), SEEK_SET);
2613
1fdf7acc5165 Fix handling of wave files with additional RIFF chunks before the data chunk
Michael Pavone <pavone@retrodev.com>
parents: 2288
diff changeset
51 for (;;)
1fdf7acc5165 Fix handling of wave files with additional RIFF chunks before the data chunk
Michael Pavone <pavone@retrodev.com>
parents: 2288
diff changeset
52 {
1fdf7acc5165 Fix handling of wave files with additional RIFF chunks before the data chunk
Michael Pavone <pavone@retrodev.com>
parents: 2288
diff changeset
53 if (fread(&header->data_header, 1, sizeof(header->data_header), f) != sizeof(header->data_header)) {
1fdf7acc5165 Fix handling of wave files with additional RIFF chunks before the data chunk
Michael Pavone <pavone@retrodev.com>
parents: 2288
diff changeset
54 return 0;
1fdf7acc5165 Fix handling of wave files with additional RIFF chunks before the data chunk
Michael Pavone <pavone@retrodev.com>
parents: 2288
diff changeset
55 }
1fdf7acc5165 Fix handling of wave files with additional RIFF chunks before the data chunk
Michael Pavone <pavone@retrodev.com>
parents: 2288
diff changeset
56 if (!memcmp(header->data_header.id, "data", 4)) {
1fdf7acc5165 Fix handling of wave files with additional RIFF chunks before the data chunk
Michael Pavone <pavone@retrodev.com>
parents: 2288
diff changeset
57 header->data_offset = ftell(f);
1fdf7acc5165 Fix handling of wave files with additional RIFF chunks before the data chunk
Michael Pavone <pavone@retrodev.com>
parents: 2288
diff changeset
58 return 1;
1fdf7acc5165 Fix handling of wave files with additional RIFF chunks before the data chunk
Michael Pavone <pavone@retrodev.com>
parents: 2288
diff changeset
59 }
1fdf7acc5165 Fix handling of wave files with additional RIFF chunks before the data chunk
Michael Pavone <pavone@retrodev.com>
parents: 2288
diff changeset
60 fseek(f, header->data_header.size, SEEK_CUR);
2288
efc75ea79164 Support WAVE files in CUE sheets
Michael Pavone <pavone@retrodev.com>
parents: 520
diff changeset
61 }
efc75ea79164 Support WAVE files in CUE sheets
Michael Pavone <pavone@retrodev.com>
parents: 520
diff changeset
62 }
efc75ea79164 Support WAVE files in CUE sheets
Michael Pavone <pavone@retrodev.com>
parents: 520
diff changeset
63
407
c3abc4ada43d Add support for logging YM2612 channels to WAVE files
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
64 int wave_finalize(FILE * f)
c3abc4ada43d Add support for logging YM2612 channels to WAVE files
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
65 {
c3abc4ada43d Add support for logging YM2612 channels to WAVE files
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
66 uint32_t size = ftell(f);
c3abc4ada43d Add support for logging YM2612 channels to WAVE files
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
67 fseek(f, offsetof(wave_header, chunk.size), SEEK_SET);
c3abc4ada43d Add support for logging YM2612 channels to WAVE files
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
68 size -= 8;
520
6e9d1a8c1b08 Fix check of fwrite return value in wave_finalize so that the data subchunk size gets written
Michael Pavone <pavone@retrodev.com>
parents: 467
diff changeset
69 if (fwrite(&size, sizeof(size), 1, f) != 1) {
407
c3abc4ada43d Add support for logging YM2612 channels to WAVE files
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
70 fclose(f);
c3abc4ada43d Add support for logging YM2612 channels to WAVE files
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
71 return 0;
c3abc4ada43d Add support for logging YM2612 channels to WAVE files
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
72 }
c3abc4ada43d Add support for logging YM2612 channels to WAVE files
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
73 fseek(f, offsetof(wave_header, data_header.size), SEEK_SET);
c3abc4ada43d Add support for logging YM2612 channels to WAVE files
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
74 size -= 36;
520
6e9d1a8c1b08 Fix check of fwrite return value in wave_finalize so that the data subchunk size gets written
Michael Pavone <pavone@retrodev.com>
parents: 467
diff changeset
75 if (fwrite(&size, sizeof(size), 1, f) != 1) {
407
c3abc4ada43d Add support for logging YM2612 channels to WAVE files
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
76 fclose(f);
c3abc4ada43d Add support for logging YM2612 channels to WAVE files
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
77 return 0;
c3abc4ada43d Add support for logging YM2612 channels to WAVE files
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
78 }
c3abc4ada43d Add support for logging YM2612 channels to WAVE files
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
79 fclose(f);
c3abc4ada43d Add support for logging YM2612 channels to WAVE files
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
80 return 1;
c3abc4ada43d Add support for logging YM2612 channels to WAVE files
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
81 }