wavcapture.c 5.05 KB
Newer Older
malc's avatar
malc committed
1
/* public domain */
pbrook's avatar
pbrook committed
2
#include "hw/hw.h"
aliguori's avatar
aliguori committed
3
#include "monitor.h"
pbrook's avatar
pbrook committed
4
#include "audio.h"
5 6

typedef struct {
7
    FILE *f;
8
    int bytes;
bellard's avatar
bellard committed
9 10 11 12 13
    char *path;
    int freq;
    int bits;
    int nchannels;
    CaptureVoiceOut *cap;
14 15 16 17 18 19 20 21 22 23 24 25
} WAVState;

/* VICE code: Store number as little endian. */
static void le_store (uint8_t *buf, uint32_t val, int len)
{
    int i;
    for (i = 0; i < len; i++) {
        buf[i] = (uint8_t) (val & 0xff);
        val >>= 8;
    }
}

bellard's avatar
bellard committed
26
static void wav_notify (void *opaque, audcnotification_e cmd)
27
{
bellard's avatar
bellard committed
28 29 30
    (void) opaque;
    (void) cmd;
}
31

bellard's avatar
bellard committed
32 33 34 35 36 37 38
static void wav_destroy (void *opaque)
{
    WAVState *wav = opaque;
    uint8_t rlen[4];
    uint8_t dlen[4];
    uint32_t datalen = wav->bytes;
    uint32_t rifflen = datalen + 36;
39
    Monitor *mon = cur_mon;
40

bellard's avatar
bellard committed
41 42 43
    if (wav->f) {
        le_store (rlen, rifflen, 4);
        le_store (dlen, datalen, 4);
44

45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69
        if (fseek (wav->f, 4, SEEK_SET)) {
            monitor_printf (mon, "wav_destroy: rlen fseek failed\nReason: %s\n",
                            strerror (errno));
            goto doclose;
        }
        if (fwrite (rlen, 4, 1, wav->f) != 1) {
            monitor_printf (mon, "wav_destroy: rlen fwrite failed\nReason %s\n",
                            strerror (errno));
            goto doclose;
        }
        if (fseek (wav->f, 32, SEEK_CUR)) {
            monitor_printf (mon, "wav_destroy: dlen fseek failed\nReason %s\n",
                            strerror (errno));
            goto doclose;
        }
        if (fwrite (dlen, 1, 4, wav->f) != 4) {
            monitor_printf (mon, "wav_destroy: dlen fwrite failed\nReason %s\n",
                            strerror (errno));
            goto doclose;
        }
    doclose:
        if (fclose (wav->f)) {
            fprintf (stderr, "wav_destroy: fclose failed: %s",
                     strerror (errno));
        }
70
    }
71

72
    g_free (wav->path);
73 74
}

bellard's avatar
bellard committed
75
static void wav_capture (void *opaque, void *buf, int size)
76 77 78
{
    WAVState *wav = opaque;

79 80 81 82
    if (fwrite (buf, size, 1, wav->f) != 1) {
        monitor_printf (cur_mon, "wav_capture: fwrite error\nReason: %s",
                        strerror (errno));
    }
83 84 85
    wav->bytes += size;
}

bellard's avatar
bellard committed
86 87 88 89 90 91 92 93 94 95 96 97
static void wav_capture_destroy (void *opaque)
{
    WAVState *wav = opaque;

    AUD_del_capture (wav->cap, wav);
}

static void wav_capture_info (void *opaque)
{
    WAVState *wav = opaque;
    char *path = wav->path;

98 99 100
    monitor_printf (cur_mon, "Capturing audio(%d,%d,%d) to %s: %d bytes\n",
                    wav->freq, wav->bits, wav->nchannels,
                    path ? path : "<not available>", wav->bytes);
bellard's avatar
bellard committed
101 102 103 104 105 106 107 108 109
}

static struct capture_ops wav_capture_ops = {
    .destroy = wav_capture_destroy,
    .info = wav_capture_info
};

int wav_start_capture (CaptureState *s, const char *path, int freq,
                       int bits, int nchannels)
110
{
aliguori's avatar
aliguori committed
111
    Monitor *mon = cur_mon;
112 113 114 115 116 117 118
    WAVState *wav;
    uint8_t hdr[] = {
        0x52, 0x49, 0x46, 0x46, 0x00, 0x00, 0x00, 0x00, 0x57, 0x41, 0x56,
        0x45, 0x66, 0x6d, 0x74, 0x20, 0x10, 0x00, 0x00, 0x00, 0x01, 0x00,
        0x02, 0x00, 0x44, 0xac, 0x00, 0x00, 0x10, 0xb1, 0x02, 0x00, 0x04,
        0x00, 0x10, 0x00, 0x64, 0x61, 0x74, 0x61, 0x00, 0x00, 0x00, 0x00
    };
malc's avatar
malc committed
119
    struct audsettings as;
120
    struct audio_capture_ops ops;
bellard's avatar
bellard committed
121 122 123 124
    int stereo, bits16, shift;
    CaptureVoiceOut *cap;

    if (bits != 8 && bits != 16) {
125
        monitor_printf (mon, "incorrect bit count %d, must be 8 or 16\n", bits);
bellard's avatar
bellard committed
126 127 128 129
        return -1;
    }

    if (nchannels != 1 && nchannels != 2) {
130 131
        monitor_printf (mon, "incorrect channel count %d, must be 1 or 2\n",
                        nchannels);
bellard's avatar
bellard committed
132 133
        return -1;
    }
134

bellard's avatar
bellard committed
135 136
    stereo = nchannels == 2;
    bits16 = bits == 16;
137 138 139 140

    as.freq = freq;
    as.nchannels = 1 << stereo;
    as.fmt = bits16 ? AUD_FMT_S16 : AUD_FMT_U8;
141
    as.endianness = 0;
142

bellard's avatar
bellard committed
143 144 145
    ops.notify = wav_notify;
    ops.capture = wav_capture;
    ops.destroy = wav_destroy;
146

147
    wav = g_malloc0 (sizeof (*wav));
148 149 150 151 152 153 154 155 156

    shift = bits16 + stereo;
    hdr[34] = bits16 ? 0x10 : 0x08;

    le_store (hdr + 22, as.nchannels, 2);
    le_store (hdr + 24, freq, 4);
    le_store (hdr + 28, freq << shift, 4);
    le_store (hdr + 32, 1 << shift, 2);

157
    wav->f = fopen (path, "wb");
158
    if (!wav->f) {
159 160
        monitor_printf (mon, "Failed to open wave file `%s'\nReason: %s\n",
                        path, strerror (errno));
161
        g_free (wav);
bellard's avatar
bellard committed
162
        return -1;
163 164
    }

165
    wav->path = g_strdup (path);
bellard's avatar
bellard committed
166 167 168 169
    wav->bits = bits;
    wav->nchannels = nchannels;
    wav->freq = freq;

170 171 172 173 174
    if (fwrite (hdr, sizeof (hdr), 1, wav->f) != 1) {
        monitor_printf (mon, "Failed to write header\nReason: %s\n",
                        strerror (errno));
        goto error_free;
    }
bellard's avatar
bellard committed
175

176
    cap = AUD_add_capture (&as, &ops, wav);
bellard's avatar
bellard committed
177
    if (!cap) {
178 179
        monitor_printf (mon, "Failed to add audio capture\n");
        goto error_free;
bellard's avatar
bellard committed
180 181 182 183 184 185
    }

    wav->cap = cap;
    s->opaque = wav;
    s->ops = wav_capture_ops;
    return 0;
186 187 188 189 190 191 192 193 194

error_free:
    g_free (wav->path);
    if (fclose (wav->f)) {
        monitor_printf (mon, "Failed to close wave file\nReason: %s\n",
                        strerror (errno));
    }
    g_free (wav);
    return -1;
195
}