1#include <stdio.h>
2#include "monitor/monitor.h"
3#include "audio.h"
4
5typedef struct {
6    FILE *f;
7    int bytes;
8    char *path;
9    int freq;
10    int bits;
11    int nchannels;
12    CaptureVoiceOut *cap;
13} WAVState;
14
15/* VICE code: Store number as little endian. */
16static void le_store (uint8_t *buf, uint32_t val, int len)
17{
18    int i;
19    for (i = 0; i < len; i++) {
20        buf[i] = (uint8_t) (val & 0xff);
21        val >>= 8;
22    }
23}
24
25static void wav_notify (void *opaque, audcnotification_e cmd)
26{
27    (void) opaque;
28    (void) cmd;
29}
30
31static void wav_destroy (void *opaque)
32{
33    WAVState *wav = opaque;
34    uint8_t rlen[4];
35    uint8_t dlen[4];
36    uint32_t datalen = wav->bytes;
37    uint32_t rifflen = datalen + 36;
38
39    if (wav->f) {
40        le_store (rlen, rifflen, 4);
41        le_store (dlen, datalen, 4);
42
43        fseek (wav->f, 4, SEEK_SET);
44        fwrite(rlen, 4, 1, wav->f);
45
46        fseek (wav->f, 32, SEEK_CUR);
47        fwrite(dlen, 4, 1, wav->f);
48        fclose (wav->f);
49    }
50
51    g_free (wav->path);
52}
53
54static void wav_capture (void *opaque, void *buf, int size)
55{
56    WAVState *wav = opaque;
57
58    fwrite(buf, size, 1, wav->f);
59    wav->bytes += size;
60}
61
62static void wav_capture_destroy (void *opaque)
63{
64    WAVState *wav = opaque;
65
66    AUD_del_capture (wav->cap, wav);
67}
68
69static void wav_capture_info (void *opaque)
70{
71    WAVState *wav = opaque;
72    char *path = wav->path;
73
74    monitor_printf(cur_mon, "Capturing audio(%d,%d,%d) to %s: %d bytes\n",
75                   wav->freq, wav->bits, wav->nchannels,
76                   path ? path : "<not available>", wav->bytes);
77}
78
79static struct capture_ops wav_capture_ops = {
80    .destroy = wav_capture_destroy,
81    .info = wav_capture_info
82};
83
84int wav_start_capture (CaptureState *s, const char *path, int freq,
85                       int bits, int nchannels)
86{
87    Monitor *mon = cur_mon;
88    WAVState *wav;
89    uint8_t hdr[] = {
90        0x52, 0x49, 0x46, 0x46, 0x00, 0x00, 0x00, 0x00, 0x57, 0x41, 0x56,
91        0x45, 0x66, 0x6d, 0x74, 0x20, 0x10, 0x00, 0x00, 0x00, 0x01, 0x00,
92        0x02, 0x00, 0x44, 0xac, 0x00, 0x00, 0x10, 0xb1, 0x02, 0x00, 0x04,
93        0x00, 0x10, 0x00, 0x64, 0x61, 0x74, 0x61, 0x00, 0x00, 0x00, 0x00
94    };
95    struct audsettings as;
96    struct audio_capture_ops ops;
97    int stereo, bits16, shift;
98    CaptureVoiceOut *cap;
99
100    if (bits != 8 && bits != 16) {
101        monitor_printf(mon, "incorrect bit count %d, must be 8 or 16\n", bits);
102        return -1;
103    }
104
105    if (nchannels != 1 && nchannels != 2) {
106        monitor_printf(mon, "incorrect channel count %d, must be 1 or 2\n",
107                       nchannels);
108        return -1;
109    }
110
111    stereo = nchannels == 2;
112    bits16 = bits == 16;
113
114    as.freq = freq;
115    as.nchannels = 1 << stereo;
116    as.fmt = bits16 ? AUD_FMT_S16 : AUD_FMT_U8;
117    as.endianness = 0;
118
119    ops.notify = wav_notify;
120    ops.capture = wav_capture;
121    ops.destroy = wav_destroy;
122
123    wav = g_malloc0 (sizeof (*wav));
124
125    shift = bits16 + stereo;
126    hdr[34] = bits16 ? 0x10 : 0x08;
127
128    le_store (hdr + 22, as.nchannels, 2);
129    le_store (hdr + 24, freq, 4);
130    le_store (hdr + 28, freq << shift, 4);
131    le_store (hdr + 32, 1 << shift, 2);
132
133    wav->f = fopen (path, "wb");
134    if (!wav->f) {
135        monitor_printf(mon, "Failed to open wave file `%s'\nReason: %s\n",
136                       path, strerror (errno));
137        g_free (wav);
138        return -1;
139    }
140
141    wav->path = g_strdup (path);
142    wav->bits = bits;
143    wav->nchannels = nchannels;
144    wav->freq = freq;
145
146    fwrite(hdr, sizeof(hdr), 1, wav->f);
147
148    cap = AUD_add_capture (&as, &ops, wav);
149    if (!cap) {
150        monitor_printf(mon, "Failed to add audio capture\n");
151        g_free (wav->path);
152        fclose (wav->f);
153        g_free (wav);
154        return -1;
155    }
156
157    wav->cap = cap;
158    s->opaque = wav;
159    s->ops = wav_capture_ops;
160    return 0;
161}
162