code.delx.au - pulseaudio/blob - src/polypcore/sound-file-stream.c

   1 /* $Id$ */
   2
   3 /***
   4   This file is part of polypaudio.
   5
   6   polypaudio is free software; you can redistribute it and/or modify
   7   it under the terms of the GNU Lesser General Public License as published
   8   by the Free Software Foundation; either version 2 of the License,
   9   or (at your option) any later version.
  10
  11   polypaudio is distributed in the hope that it will be useful, but
  12   WITHOUT ANY WARRANTY; without even the implied warranty of
  13   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  14   General Public License for more details.
  15
  16   You should have received a copy of the GNU Lesser General Public License
  17   along with polypaudio; if not, write to the Free Software
  18   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
  19   USA.
  20 ***/
  21
  22 #ifdef HAVE_CONFIG_H
  23 #include <config.h>
  24 #endif
  25
  26 #include <stdlib.h>
  27 #include <assert.h>
  28 #include <stdio.h>
  29 #include <string.h>
  30
  31 #include <sndfile.h>
  32
  33 #include <polypcore/sink-input.h>
  34 #include <polypcore/xmalloc.h>
  35 #include <polypcore/log.h>
  36
  37 #include "sound-file-stream.h"
  38
  39 #define BUF_SIZE (1024*10)
  40
  41 struct userdata {
  42     SNDFILE *sndfile;
  43     pa_sink_input *sink_input;
  44     pa_memchunk memchunk;
  45     sf_count_t (*readf_function)(SNDFILE *sndfile, void *ptr, sf_count_t frames);
  46 };
  47
  48 static void free_userdata(struct userdata *u) {
  49     assert(u);
  50     if (u->sink_input) {
  51         pa_sink_input_disconnect(u->sink_input);
  52         pa_sink_input_unref(u->sink_input);
  53     }
  54
  55     if (u->memchunk.memblock)
  56         pa_memblock_unref(u->memchunk.memblock);
  57     if (u->sndfile)
  58         sf_close(u->sndfile);
  59
  60     pa_xfree(u);
  61 }
  62
  63 static void sink_input_kill(pa_sink_input *i) {
  64     assert(i && i->userdata);
  65     free_userdata(i->userdata);
  66 }
  67
  68 static void si_kill(PA_GCC_UNUSED pa_mainloop_api *m, void *i) {
  69     sink_input_kill(i);
  70 }
  71
  72 static int sink_input_peek(pa_sink_input *i, pa_memchunk *chunk) {
  73     struct userdata *u;
  74     assert(i && chunk && i->userdata);
  75     u = i->userdata;
  76
  77     if (!u->memchunk.memblock) {
  78         uint32_t fs = pa_frame_size(&i->sample_spec);
  79         sf_count_t samples = BUF_SIZE/fs;
  80
  81         u->memchunk.memblock = pa_memblock_new(BUF_SIZE, i->sink->core->memblock_stat);
  82         u->memchunk.index = 0;
  83         samples = u->readf_function(u->sndfile, u->memchunk.memblock->data, samples);
  84         u->memchunk.length = samples*fs;
  85
  86         if (!u->memchunk.length) {
  87             pa_memblock_unref(u->memchunk.memblock);
  88             u->memchunk.memblock = NULL;
  89             u->memchunk.index = u->memchunk.length = 0;
  90             pa_mainloop_api_once(i->sink->core->mainloop, si_kill, i);
  91             return -1;
  92         }
  93     }
  94
  95     *chunk = u->memchunk;
  96     pa_memblock_ref(chunk->memblock);
  97     assert(chunk->length);
  98     return 0;
  99 }
 100
 101 static void sink_input_drop(pa_sink_input *i, const pa_memchunk*chunk, size_t length) {
 102     struct userdata *u;
 103     assert(i && chunk && length && i->userdata);
 104     u = i->userdata;
 105
 106     assert(!memcmp(chunk, &u->memchunk, sizeof(chunk)));
 107     assert(length <= u->memchunk.length);
 108
 109     u->memchunk.index += length;
 110     u->memchunk.length -= length;
 111
 112     if (u->memchunk.length <= 0) {
 113         pa_memblock_unref(u->memchunk.memblock);
 114         u->memchunk.memblock = NULL;
 115         u->memchunk.index = u->memchunk.length = 0;
 116     }
 117 }
 118
 119 int pa_play_file(pa_sink *sink, const char *fname, const pa_cvolume *volume) {
 120     struct userdata *u = NULL;
 121     SF_INFO sfinfo;
 122     pa_sample_spec ss;
 123     assert(sink && fname);
 124
 125     u = pa_xmalloc(sizeof(struct userdata));
 126     u->sink_input = NULL;
 127     u->memchunk.memblock = NULL;
 128     u->memchunk.index = u->memchunk.length = 0;
 129     u->sndfile = NULL;
 130
 131     memset(&sfinfo, 0, sizeof(sfinfo));
 132
 133     if (!(u->sndfile = sf_open(fname, SFM_READ, &sfinfo))) {
 134         pa_log(__FILE__": Failed to open file %s\n", fname);
 135         goto fail;
 136     }
 137
 138     switch (sfinfo.format & 0xFF) {
 139         case SF_FORMAT_PCM_16:
 140         case SF_FORMAT_PCM_U8:
 141         case SF_FORMAT_ULAW:
 142         case SF_FORMAT_ALAW:
 143             ss.format = PA_SAMPLE_S16NE;
 144             u->readf_function = (sf_count_t (*)(SNDFILE *sndfile, void *ptr, sf_count_t frames)) sf_readf_short;
 145             break;
 146         case SF_FORMAT_FLOAT:
 147         default:
 148             ss.format = PA_SAMPLE_FLOAT32NE;
 149             u->readf_function = (sf_count_t (*)(SNDFILE *sndfile, void *ptr, sf_count_t frames)) sf_readf_float;
 150             break;
 151     }
 152
 153     ss.rate = sfinfo.samplerate;
 154     ss.channels = sfinfo.channels;
 155
 156     if (!pa_sample_spec_valid(&ss)) {
 157         pa_log(__FILE__": Unsupported sample format in file %s\n", fname);
 158         goto fail;
 159     }
 160
 161     if (!(u->sink_input = pa_sink_input_new(sink, __FILE__, fname, &ss, NULL, 0, -1)))
 162         goto fail;
 163
 164     if (volume)
 165         u->sink_input->volume = *volume;
 166     u->sink_input->peek = sink_input_peek;
 167     u->sink_input->drop = sink_input_drop;
 168     u->sink_input->kill = sink_input_kill;
 169     u->sink_input->userdata = u;
 170
 171     pa_sink_notify(sink);
 172
 173     return 0;
 174
 175 fail:
 176     if (u)
 177         free_userdata(u);
 178
 179     return -1;
 180 }