libmpdemux/demux_xmms.c

   1 /*
   2  * Copyright (C) 2002-2004 Balatoni Denes and A'rpi
   3  *
   4  * This file is part of MPlayer.
   5  *
   6  * MPlayer is free software; you can redistribute it and/or modify
   7  * it under the terms of the GNU General Public License as published by
   8  * the Free Software Foundation; either version 2 of the License, or
   9  * (at your option) any later version.
  10  *
  11  * MPlayer is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14  * GNU General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU General Public License along
  17  * with MPlayer; if not, write to the Free Software Foundation, Inc.,
  18  * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  19  */
  20
  21 // This is not reentrant because of global static variables, but most of
  22 // the plugins are not reentrant either perhaps
  23 #include "config.h"
  24
  25 #include <stdlib.h>
  26 #include <stdio.h>
  27 #include <unistd.h>
  28 #include <pthread.h>
  29 #include <dlfcn.h>
  30 #include <dirent.h>
  31 #include <inttypes.h>
  32 #include <string.h>
  33 #include <sys/stat.h>
  34
  35 #include "m_option.h"
  36 #include "libaf/af_format.h"
  37 #include "stream/stream.h"
  38 #include "demuxer.h"
  39 #include "stheader.h"
  40
  41 #include "mp_msg.h"
  42
  43 #define XMMS_PACKETSIZE 65536  // some plugins won't play if this is too small
  44
  45 #include "demux_xmms_plugin.h"
  46
  47 typedef struct {
  48     uint64_t spos;   // stream position in number of output bytes from 00:00:00
  49     InputPlugin* ip;
  50 }  xmms_priv_t;
  51
  52 static pthread_mutex_t xmms_mutex;
  53 static int format = 0x1; // Raw PCM
  54 static char xmms_audiobuffer[XMMS_PACKETSIZE];
  55 static uint32_t xmms_channels;
  56 static uint32_t xmms_samplerate;
  57 static uint32_t xmms_afmt;
  58 static int xmms_length;
  59 static char *xmms_title=NULL;
  60 static uint32_t xmms_audiopos=0;
  61 static int xmms_playing=0;
  62 static xmms_priv_t *xmms_priv=NULL;
  63 static uint32_t xmms_byterate;
  64 static int64_t xmms_flushto=-1;
  65
  66 // =========== mplayer xmms outputplugin stuff  ==============
  67
  68 static void disk_close(void) {}
  69 static void disk_pause(short p) {}
  70 static void disk_init(void) {}
  71
  72 static void disk_flush(int time) {
  73     if (xmms_priv) xmms_flushto=time*((long long) xmms_byterate)/1000LL;
  74 }
  75
  76 static int disk_free(void) { // vqf plugin sends more than it should
  77     return XMMS_PACKETSIZE - xmms_audiopos < XMMS_PACKETSIZE / 4 ?
  78                0 : XMMS_PACKETSIZE - xmms_audiopos - XMMS_PACKETSIZE / 4;
  79 }
  80
  81 static int disk_playing(void) {
  82     return 0; //?? maybe plugins wait on exit until oplugin is not playing?
  83 }
  84
  85 static int disk_get_output_time(void) {
  86     if (xmms_byterate)
  87         return xmms_priv->spos*1000LL/((long long)xmms_byterate);
  88     else return 0;
  89 }
  90
  91 static int disk_open(AFormat fmt, int rate, int nch) {
  92     switch (fmt) {
  93         case FMT_U8:
  94             xmms_afmt=AF_FORMAT_U8;
  95             break;
  96         case FMT_S8:
  97             xmms_afmt=AF_FORMAT_S8;
  98             break;
  99         case FMT_U16_LE:
 100             xmms_afmt=AF_FORMAT_U16_LE;
 101             break;
 102         case FMT_U16_NE:
 103 #if HAVE_BIGENDIAN
 104             xmms_afmt=AF_FORMAT_U16_BE;
 105 #else
 106             xmms_afmt=AF_FORMAT_U16_LE;
 107 #endif
 108             break;
 109         case FMT_U16_BE:
 110             xmms_afmt=AF_FORMAT_U16_BE;
 111             break;
 112         case FMT_S16_NE:
 113             xmms_afmt=AF_FORMAT_S16_NE;
 114             break;
 115         case FMT_S16_LE:
 116             xmms_afmt=AF_FORMAT_S16_LE;
 117             break;
 118         case FMT_S16_BE:
 119             xmms_afmt=AF_FORMAT_S16_BE;
 120             break;
 121     }
 122     xmms_samplerate=rate;
 123     xmms_channels=nch;
 124     return 1;
 125 }
 126
 127 static void disk_write(void *ptr, int length) {
 128     if (!xmms_playing) return;
 129     pthread_mutex_lock(&xmms_mutex);
 130     if (xmms_flushto!=-1) {
 131         xmms_priv->spos=xmms_flushto;
 132         xmms_flushto=-1;
 133         xmms_audiopos=0;
 134     }
 135     xmms_priv->spos+= length;
 136     memcpy(&xmms_audiobuffer[xmms_audiopos],ptr,length);
 137     xmms_audiopos+=length;
 138     pthread_mutex_unlock(&xmms_mutex);
 139 }
 140
 141 static OutputPlugin xmms_output_plugin =
 142 {
 143     NULL,
 144     NULL,
 145     "MPlayer output interface plugin ", /* Description */
 146     disk_init,
 147     NULL,                   /* about */
 148     NULL,                   /* configure */
 149     NULL,                   /* get_volume */
 150     NULL,                   /* set_volume */
 151     disk_open,
 152     disk_write,
 153     disk_close,
 154     disk_flush,
 155     disk_pause,
 156     disk_free,
 157     disk_playing,
 158     disk_get_output_time,
 159     disk_get_output_time //we pretend that everything written is played at once
 160 };
 161
 162 // ==================== mplayer xmms inputplugin helper stuff =================
 163
 164 static InputPlugin* input_plugins[100];
 165 static int no_plugins=0;
 166
 167 /* Dummy functions  */
 168 static InputVisType input_get_vis_type(void){return 0;}
 169 static void input_add_vis_pcm(int time, AFormat fmt, int nch, int length,
 170                                                                 void *ptr){}
 171 static void input_set_info_text(char * text){}
 172 char *xmms_get_gentitle_format(void){ return ""; }
 173 /* Dummy functions  END*/
 174
 175 static void input_set_info(char* title,int length, int rate, int freq, int nch)
 176 {
 177     xmms_length=length;
 178 }
 179
 180 static void init_plugins_from_dir(const char *plugin_dir){
 181     DIR *dir;
 182     struct dirent *ent;
 183
 184     dir = opendir(plugin_dir);
 185     if (!dir) return;
 186
 187     while ((ent = readdir(dir)) != NULL){
 188         char filename[strlen(plugin_dir)+strlen(ent->d_name)+4];
 189         void* handle;
 190         sprintf(filename, "%s/%s", plugin_dir, ent->d_name);
 191         handle=dlopen(filename, RTLD_NOW);
 192         if(handle){
 193             void *(*gpi) (void);
 194             gpi=dlsym(handle, "get_iplugin_info");
 195             if(gpi){
 196                 InputPlugin *p=gpi();
 197                 mp_tmsg(MSGT_DEMUX, MSGL_INFO, "Found plugin: %s (%s).\n",
 198                                                 ent->d_name,p->description);
 199                 p->handle = handle;
 200                 p->filename = strdup(filename);
 201                 p->get_vis_type = input_get_vis_type;
 202                 p->add_vis_pcm = input_add_vis_pcm;
 203                 p->set_info = input_set_info;
 204                 p->set_info_text = input_set_info_text;
 205                 if(p->init) p->init();
 206                 input_plugins[no_plugins++]=p;
 207             } else
 208                 dlclose(handle);
 209         }
 210     }
 211     closedir(dir);
 212 }
 213
 214 static void init_plugins(void) {
 215     char *home;
 216
 217     no_plugins=0;
 218
 219     home = getenv("HOME");
 220     if(home != NULL) {
 221         char xmms_home[strlen(home) + 15];
 222         sprintf(xmms_home, "%s/.xmms/Plugins", home);
 223         init_plugins_from_dir(xmms_home);
 224     }
 225
 226     init_plugins_from_dir(XMMS_INPUT_PLUGIN_DIR);
 227 }
 228
 229 static void cleanup_plugins(void) {
 230     while(no_plugins>0){
 231         --no_plugins;
 232         mp_tmsg(MSGT_DEMUX, MSGL_INFO, "Closing plugin: %s.\n",
 233                                         input_plugins[no_plugins]->filename);
 234         if(input_plugins[no_plugins]->cleanup)
 235             input_plugins[no_plugins]->cleanup();
 236         dlclose(input_plugins[no_plugins]->handle);
 237     }
 238 }
 239
 240 // ============================ mplayer demuxer stuff ===============
 241
 242 static int demux_xmms_open(demuxer_t* demuxer) {
 243     InputPlugin* ip = NULL;
 244     sh_audio_t* sh_audio;
 245     WAVEFORMATEX* w;
 246     xmms_priv_t *priv;
 247     int i;
 248
 249     if (xmms_priv) return 0; // as I said, it's not reentrant :)
 250     init_plugins();
 251     for(i=0;i<no_plugins;i++){
 252         if (input_plugins[i]->is_our_file(demuxer->stream->url)){
 253             ip=input_plugins[i]; break;
 254         }
 255     }
 256     if(!ip) return 0; // no plugin to handle this...
 257
 258     pthread_mutex_init(&xmms_mutex,NULL);
 259
 260     xmms_priv=priv=malloc(sizeof(xmms_priv_t));
 261     memset(priv,0,sizeof(xmms_priv_t));
 262     priv->ip=ip;
 263
 264     memset(xmms_audiobuffer,0,XMMS_PACKETSIZE);
 265
 266     xmms_channels=0;
 267     sh_audio = new_sh_audio(demuxer,0);
 268     sh_audio->wf = w = malloc(sizeof(WAVEFORMATEX));
 269     w->wFormatTag = sh_audio->format = format;
 270
 271     demuxer->movi_start = 0;
 272     demuxer->movi_end = 100;
 273     demuxer->audio->id = 0;
 274     demuxer->audio->sh = sh_audio;
 275     demuxer->priv=priv;
 276     sh_audio->ds = demuxer->audio;
 277
 278     xmms_output_plugin.init();
 279     ip->output = &xmms_output_plugin;
 280     xmms_playing=1;
 281     ip->play_file(demuxer->stream->url);
 282     if (ip->get_song_info)
 283         ip->get_song_info(demuxer->stream->url,&xmms_title,&xmms_length);
 284     if (xmms_length<=0) demuxer->seekable=0;
 285
 286     mp_tmsg(MSGT_DEMUX,MSGL_INFO,"Waiting for the XMMS plugin to start playback of '%s'...\n",
 287                                                         demuxer->stream->url);
 288     while (xmms_channels==0) {
 289         usleep(10000);
 290         if(ip->get_time()<0) return 0;
 291     }
 292     sh_audio->sample_format= xmms_afmt;
 293     switch (xmms_afmt) {
 294         case AF_FORMAT_S16_LE:
 295         case AF_FORMAT_S16_BE:
 296         case AF_FORMAT_U16_LE:
 297         case AF_FORMAT_U16_BE:
 298             sh_audio->samplesize = 2;
 299             break;
 300         default:
 301             sh_audio->samplesize = 1;
 302     }
 303     w->wBitsPerSample = sh_audio->samplesize*8;
 304     w->nChannels = sh_audio->channels = xmms_channels;
 305     w->nSamplesPerSec = sh_audio->samplerate = xmms_samplerate;
 306     xmms_byterate = w->nAvgBytesPerSec =
 307                     xmms_samplerate*sh_audio->channels*sh_audio->samplesize;
 308     w->nBlockAlign = sh_audio->samplesize*sh_audio->channels;
 309     w->cbSize = 0;
 310
 311     return DEMUXER_TYPE_XMMS;
 312 }
 313
 314 static int demux_xmms_fill_buffer(demuxer_t* demuxer, demux_stream_t *ds) {
 315     sh_audio_t *sh_audio = demuxer->audio->sh;
 316     xmms_priv_t *priv=demuxer->priv;
 317     demux_packet_t*  dp;
 318
 319     if (xmms_length<=0) demuxer->seekable=0;
 320     else demuxer->seekable=1;
 321
 322     while (xmms_audiopos<XMMS_PACKETSIZE/2) {
 323         if((priv->ip->get_time()<0) || !xmms_playing)
 324             return 0;
 325         usleep(1000);
 326     }
 327
 328     pthread_mutex_lock(&xmms_mutex);
 329     dp = new_demux_packet(XMMS_PACKETSIZE/2);
 330     dp->pts = priv->spos / sh_audio->wf->nAvgBytesPerSec;
 331     ds->pos = priv->spos;
 332
 333     memcpy(dp->buffer,xmms_audiobuffer,XMMS_PACKETSIZE/2);
 334     memcpy(xmms_audiobuffer,&xmms_audiobuffer[XMMS_PACKETSIZE/2],
 335                                             xmms_audiopos-XMMS_PACKETSIZE/2);
 336     xmms_audiopos-=XMMS_PACKETSIZE/2;
 337     pthread_mutex_unlock(&xmms_mutex);
 338
 339     ds_add_packet(ds,dp);
 340
 341     return 1;
 342 }
 343
 344 static void demux_xmms_seek(demuxer_t *demuxer,float rel_seek_secs,
 345                                                float audio_delay,int flags){
 346     stream_t* s = demuxer->stream;
 347     sh_audio_t* sh_audio = demuxer->audio->sh;
 348     xmms_priv_t *priv=demuxer->priv;
 349     int32_t pos;
 350
 351     if(priv->ip->get_time()<0) return;
 352
 353     pos = (flags & SEEK_ABSOLUTE) ? 0 : priv->spos / sh_audio->wf->nAvgBytesPerSec;
 354     if (flags & SEEK_FACTOR)
 355         pos+= rel_seek_secs*xmms_length;
 356     else
 357         pos+= rel_seek_secs;
 358
 359     if (pos<0) pos=0;
 360     if (pos>=xmms_length) pos=xmms_length-1;
 361
 362     priv->ip->seek((pos<0)?0:pos);
 363     priv->spos=pos * sh_audio->wf->nAvgBytesPerSec;
 364 }
 365
 366 static void demux_close_xmms(demuxer_t* demuxer) {
 367     xmms_priv_t *priv=demuxer->priv;
 368     xmms_playing=0;
 369     xmms_audiopos=0; // xmp on exit waits until buffer is free enough
 370     if (priv != NULL) {
 371         if (priv->ip != NULL)
 372             priv->ip->stop();
 373         free(priv); xmms_priv=demuxer->priv=NULL;
 374     }
 375     cleanup_plugins();
 376 }
 377
 378 static int demux_xmms_control(demuxer_t *demuxer,int cmd, void *arg){
 379     demux_stream_t *d_video=demuxer->video;
 380     sh_audio_t *sh_audio=demuxer->audio->sh;
 381     xmms_priv_t *priv=demuxer->priv;
 382
 383     switch(cmd) {
 384         case DEMUXER_CTRL_GET_TIME_LENGTH:
 385             if (xmms_length<=0) return DEMUXER_CTRL_DONTKNOW;
 386             *((double *)arg)=(double)xmms_length/1000;
 387             return DEMUXER_CTRL_GUESS;
 388
 389         case DEMUXER_CTRL_GET_PERCENT_POS:
 390             if (xmms_length<=0)
 391                 return DEMUXER_CTRL_DONTKNOW;
 392             *((int *)arg)=(int)( priv->spos /
 393                         (float)(sh_audio->wf->nAvgBytesPerSec) / xmms_length );
 394             return DEMUXER_CTRL_OK;
 395
 396         default:
 397             return DEMUXER_CTRL_NOTIMPL;
 398     }
 399 }
 400
 401
 402 const demuxer_desc_t demuxer_desc_xmms = {
 403     "XMMS demuxer",
 404     "xmms",
 405     "XMMS",
 406     "Balatoni Denes, A'rpi",
 407     "requires XMMS plugins",
 408     DEMUXER_TYPE_XMMS,
 409     0, // safe autodetect
 410     demux_xmms_open,
 411     demux_xmms_fill_buffer,
 412     NULL,
 413     demux_close_xmms,
 414     demux_xmms_seek,
 415     demux_xmms_control
 416 };