2 * This file is part of DisOrder.
3 * Copyright (C) 2004-2009 Richard Kettlewell
5 * This program is free software: you can redistribute it and/or modify
6 * it under the terms of the GNU General Public License as published by
7 * the Free Software Foundation, either version 3 of the License, or
8 * (at your option) any later version.
10 * This program is distributed in the hope that it will be useful,
11 * but WITHOUT ANY WARRANTY; without even the implied warranty of
12 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 * GNU General Public License for more details.
15 * You should have received a copy of the GNU General Public License
16 * along with this program. If not, see <http://www.gnu.org/licenses/>.
18 /** @file server/play.c
19 * @brief Playing tracks
21 * This file is rather badly organized. Sorry. It's better than it was...
24 #include "disorder-server.h"
27 #define SPEAKER "disorder-speaker"
29 /** @brief The current playing track or NULL */
30 struct queue_entry *playing;
32 /** @brief Set when paused */
35 static void finished(ev_source *ev);
36 static int start_child(struct queue_entry *q,
37 const struct pbgc_params *params,
38 void attribute((unused)) *bgdata);
39 static int prepare_child(struct queue_entry *q,
40 const struct pbgc_params *params,
41 void attribute((unused)) *bgdata);
43 /** @brief File descriptor of our end of the socket to the speaker */
44 static int speaker_fd = -1;
46 /** @brief Set when shutting down */
47 static int shutting_down;
49 /* Speaker ------------------------------------------------------------------ */
51 /** @brief Called when speaker process terminates
53 * Currently kills of DisOrder completely. A future version could terminate
54 * the speaker when nothing was going on, or recover from failures, though any
55 * tracks with decoders already started would need to have them restarted.
57 static int speaker_terminated(ev_source attribute((unused)) *ev,
58 pid_t attribute((unused)) pid,
59 int attribute((unused)) status,
60 const struct rusage attribute((unused)) *rusage,
61 void attribute((unused)) *u) {
62 disorder_fatal(0, "speaker subprocess %s", wstat(status));
65 /** @brief Called when we get a message from the speaker process */
66 static int speaker_readable(ev_source *ev, int fd,
67 void attribute((unused)) *u) {
68 struct speaker_message sm;
69 int ret = speaker_recv(fd, &sm);
71 if(ret < 0) return 0; /* EAGAIN */
73 ev_fd_cancel(ev, ev_read, fd);
78 /* track ID is paused, DATA seconds played */
79 D(("SM_PAUSED %s %ld", sm.id, sm.data));
80 playing->sofar = sm.data;
82 case SM_FINISHED: /* scratched the playing track */
83 case SM_STILLBORN: /* scratched too early */
84 case SM_UNKNOWN: /* scratched WAY too early */
85 if(playing && !strcmp(sm.id, playing->id))
89 /* track ID is playing, DATA seconds played */
90 D(("SM_PLAYING %s %ld", sm.id, sm.data));
91 playing->sofar = sm.data;
94 disorder_error(0, "unknown speaker message type %d", sm.type);
99 /** @brief Initialize the speaker process */
100 void speaker_setup(ev_source *ev) {
103 struct speaker_message sm;
105 if(socketpair(PF_UNIX, SOCK_DGRAM, 0, sp) < 0)
106 disorder_fatal(errno, "error calling socketpair");
107 if(!(pid = xfork())) {
109 ev_signal_atfork(ev);
114 signal(SIGPIPE, SIG_DFL);
116 execlp("valgrind", "valgrind", SPEAKER, "--config", configfile,
117 debugging ? "--debug" : "--no-debug",
118 log_default == &log_syslog ? "--syslog" : "--no-syslog",
121 execlp(SPEAKER, SPEAKER, "--config", configfile,
122 debugging ? "--debug" : "--no-debug",
123 log_default == &log_syslog ? "--syslog" : "--no-syslog",
126 disorder_fatal(errno, "error invoking %s", SPEAKER);
128 ev_child(ev, pid, 0, speaker_terminated, 0);
132 /* Wait for the speaker to be ready */
133 speaker_recv(speaker_fd, &sm);
134 nonblock(speaker_fd);
135 if(ev_fd(ev, ev_read, speaker_fd, speaker_readable, 0, "speaker read") < 0)
136 disorder_fatal(0, "error registering speaker socket fd");
139 /** @brief Tell the speaker to reload its configuration */
140 void speaker_reload(void) {
141 struct speaker_message sm;
143 memset(&sm, 0, sizeof sm);
145 speaker_send(speaker_fd, &sm);
148 /* Track termination -------------------------------------------------------- */
150 /** @brief Called when the currently playing track finishes playing
151 * @param ev Event loop or NULL
153 * There are three places this is called from:
155 * 1) speaker_readable(), when the speaker tells us the playing track finished.
156 * (Technically the speaker lies a little to arrange for gapless play.)
158 * 2) player_finished(), when the player for a non-raw track (i.e. one that
159 * does not use the speaker) finishes.
161 * 3) quitting(), after signalling the decoder or player but possible before it
162 * has actually terminated. In this case @p ev is NULL, inhibiting any further
163 * attempt to play anything.
165 static void finished(ev_source *ev) {
166 D(("finished playing=%p", (void *)playing));
169 if(playing->state != playing_scratched)
170 notify_not_scratched(playing->track, playing->submitter);
171 switch(playing->state) {
173 eventlog("completed", playing->track, (char *)0);
175 case playing_scratched:
176 eventlog("scratched", playing->track, playing->scratched, (char *)0);
179 eventlog("failed", playing->track, wstat(playing->wstat), (char *)0);
184 queue_played(playing);
187 /* Try to play something else */
192 /** @brief Called when a player or decoder process terminates
194 * This is called when a decoder process terminates (which might actually be
195 * some time before the speaker reports it as finished) or when a non-raw
196 * (i.e. non-speaker) player terminates. In the latter case it's imaginable
197 * that the OS has buffered the last few samples.
200 static int player_finished(ev_source *ev,
203 const struct rusage attribute((unused)) *rusage,
205 struct queue_entry *q = u;
207 D(("player_finished pid=%lu status=%#x",
208 (unsigned long)pid, (unsigned)status));
209 /* Record that this PID is dead. If we killed the track we might know this
210 * already, but also it might have exited or crashed. Either way we don't
211 * want to end up signalling it. */
214 case playing_unplayed:
216 /* If this was a pre-prepared track then either it failed or we
217 * deliberately stopped it: it might have been removed from the queue, or
218 * moved down the queue, or the speaker might be on a break. So we leave
219 * it state alone for future use.
223 /* We actually started playing this track. */
225 /* Don't override 'scratched' with 'failed'. */
226 if(q->state != playing_scratched)
227 q->state = playing_failed;
229 q->state = playing_ok;
232 /* Regardless we always report and record the status and do cleanup for
235 disorder_error(0, "player for %s %s", q->track, wstat(status));
236 if(q->type & DISORDER_PLAYER_PREFORK)
237 play_cleanup(q->pl, q->data);
239 /* If this actually was the current track, and does not use the speaker
240 * process, then it must have finished. For raw-output players we will get a
241 * separate notification from the speaker process. */
243 && (q->type & DISORDER_PLAYER_TYPEMASK) != DISORDER_PLAYER_RAW)
248 /* Track initiation --------------------------------------------------------- */
250 /** @brief Find the player for @p q */
251 static const struct stringlist *find_player(const struct queue_entry *q) {
254 for(n = 0; n < config->player.n; ++n)
255 if(fnmatch(config->player.s[n].s[0], q->track, 0) == 0)
257 if(n >= config->player.n)
260 return &config->player.s[n];
263 /** @brief Start to play @p q
264 * @param ev Event loop
265 * @param q Track to play/prepare
266 * @return @ref START_OK, @ref START_HARDFAIL or @ref START_SOFTFAIL
268 * This makes @p actually start playing. It calls prepare() if necessary and
269 * either sends an @ref SM_PLAY command or invokes the player itself in a
272 * It's up to the caller to set @ref playing and @c playing->state (this might
273 * be changed in the future).
275 static int start(ev_source *ev,
276 struct queue_entry *q) {
277 const struct stringlist *player;
280 D(("start %s", q->id));
281 /* Find the player plugin. */
282 if(!(player = find_player(q)) < 0)
283 return START_HARDFAIL; /* No player */
284 if(!(q->pl = open_plugin(player->s[1], 0)))
285 return START_HARDFAIL;
286 q->type = play_get_type(q->pl);
287 /* Special handling for raw-format players */
288 if((q->type & DISORDER_PLAYER_TYPEMASK) == DISORDER_PLAYER_RAW) {
289 /* Make sure that the track is prepared */
290 if((rc = prepare(ev, q)))
292 /* Now we're sure it's prepared, start it playing */
293 /* TODO actually it might not be fully prepared yet - it's all happening in
294 * a subprocess. See speaker.c for further discussion. */
295 struct speaker_message sm[1];
296 memset(sm, 0, sizeof sm);
297 strcpy(sm->id, q->id);
299 speaker_send(speaker_fd, sm);
300 D(("sent SM_PLAY for %s", sm->id));
301 /* Our caller will set playing and playing->state = playing_started */
304 rc = play_background(ev, player, q, start_child, NULL);
306 ev_child(ev, q->pid, 0, player_finished, q);
307 /* Our caller will set playing and playing->state = playing_started */
312 /** @brief Child-process half of start()
313 * @return Process exit code
315 * Called in subprocess to execute non-raw-format players (via plugin).
317 static int start_child(struct queue_entry *q,
318 const struct pbgc_params *params,
319 void attribute((unused)) *bgdata) {
322 /* Wait for a device to clear. This ugliness is now deprecated and will
323 * eventually be removed. */
324 if(params->waitdevice) {
326 if(*params->waitdevice) {
327 n = ao_driver_id(params->waitdevice);
329 disorder_fatal(0, "invalid libao driver: %s", params->waitdevice);
331 n = ao_default_driver_id();
332 /* Make up a format. */
333 ao_sample_format format;
334 memset(&format, 0, sizeof format);
338 format.byte_format = AO_FMT_NATIVE;
342 ts.tv_nsec = 100000000; /* 0.1s */
344 while((device = ao_open_live(n, &format, 0)) == 0 && retries-- > 0)
351 params->argv, params->argc,
357 /** @brief Prepare a track for later play
358 * @return @ref START_OK, @ref START_HARDFAIL or @ref START_SOFTFAIL
360 * This can be called either when we want to play the track or slightly before
361 * so that some samples are decoded and available in a buffer.
363 * Only applies to raw-format (i.e. speaker-using) players; everything else
366 int prepare(ev_source *ev,
367 struct queue_entry *q) {
368 const struct stringlist *player;
370 /* If there's a decoder (or player!) going we do nothing */
373 /* If the track is already prepared, do nothing */
376 /* Find the player plugin */
377 if(!(player = find_player(q)) < 0)
378 return START_HARDFAIL; /* No player */
379 q->pl = open_plugin(player->s[1], 0);
380 q->type = play_get_type(q->pl);
381 if((q->type & DISORDER_PLAYER_TYPEMASK) != DISORDER_PLAYER_RAW)
382 return START_OK; /* Not a raw player */
383 const int rc = play_background(ev, player, q, prepare_child, NULL);
385 ev_child(ev, q->pid, 0, player_finished, q);
391 /** @brief Child-process half of prepare()
392 * @return Process exit code
394 * Called in subprocess to execute the decoder for a raw-format player.
396 * @todo We currently run the normalizer from here in a double-fork. This is
397 * unsatisfactory for many reasons: we can't prevent it outliving the main
398 * server and we don't adequately report its exit status.
400 static int prepare_child(struct queue_entry *q,
401 const struct pbgc_params *params,
402 void attribute((unused)) *bgdata) {
403 /* np will be the pipe to disorder-normalize */
405 if(socketpair(PF_UNIX, SOCK_STREAM, 0, np) < 0)
406 disorder_fatal(errno, "error calling socketpair");
407 /* Beware of the Leopard! On OS X 10.5.x, the order of the shutdown
408 * calls here DOES MATTER. If you do the SHUT_WR first then the SHUT_RD
409 * fails with "Socket is not connected". I think this is a bug but
410 * provided implementors either don't care about the order or all agree
411 * about the order, choosing the reliable order is an adequate
413 xshutdown(np[1], SHUT_RD); /* decoder writes to np[1] */
414 xshutdown(np[0], SHUT_WR); /* normalize reads from np[0] */
417 /* Start disorder-normalize. We double-fork so that nothing has to wait
418 * for disorder-normalize. */
420 if(!(npid = xfork())) {
421 /* Grandchild of disorderd */
423 /* Great-grandchild of disorderd */
424 /* Connect to the speaker process */
425 struct sockaddr_un addr;
426 memset(&addr, 0, sizeof addr);
427 addr.sun_family = AF_UNIX;
428 snprintf(addr.sun_path, sizeof addr.sun_path,
429 "%s/speaker/socket", config->home);
430 int sfd = xsocket(PF_UNIX, SOCK_STREAM, 0);
431 if(connect(sfd, (const struct sockaddr *)&addr, sizeof addr) < 0)
432 disorder_fatal(errno, "connecting to %s", addr.sun_path);
433 /* Send the ID, with a NATIVE-ENDIAN 32 bit length */
434 uint32_t l = strlen(q->id);
435 if(write(sfd, &l, sizeof l) < 0
436 || write(sfd, q->id, l) < 0)
437 disorder_fatal(errno, "writing to %s", addr.sun_path);
439 if (read(sfd, &l, 1) < 0)
440 disorder_fatal(errno, "reading ack from %s", addr.sun_path);
447 /* TODO stderr shouldn't be redirected for disorder-normalize
448 * (but it should be for play_track() */
449 execlp("disorder-normalize", "disorder-normalize",
450 log_default == &log_syslog ? "--syslog" : "--no-syslog",
451 "--config", configfile,
453 disorder_fatal(errno, "executing disorder-normalize");
454 /* End of the great-grandchild of disorderd */
456 /* Back in the grandchild of disorderd */
458 /* End of the grandchild of disorderd */
460 /* Back in the child of disorderd */
461 /* Wait for the grandchild of disordered to finish */
463 while(waitpid(npid, &n, 0) < 0 && errno == EINTR)
465 /* Pass the file descriptor to the driver in an environment
468 snprintf(buffer, sizeof buffer, "DISORDER_RAW_FD=%d", np[1]);
469 if(putenv(buffer) < 0)
470 disorder_fatal(errno, "error calling putenv");
471 /* Close all the FDs we don't need */
473 /* Start the decoder itself */
475 params->argv, params->argc,
481 /** @brief Abandon a queue entry
483 * Called from c_remove() (but NOT when scratching a track). Only does
484 * anything to raw-format tracks. Terminates the background decoder and tells
485 * the speaker process to cancel the track.
487 void abandon(ev_source attribute((unused)) *ev,
488 struct queue_entry *q) {
489 struct speaker_message sm;
492 return; /* Not prepared. */
493 if((q->type & DISORDER_PLAYER_TYPEMASK) != DISORDER_PLAYER_RAW)
494 return; /* Not a raw player. */
495 /* Terminate the player. */
496 kill(-q->pid, config->signal);
497 /* Cancel the track. */
498 memset(&sm, 0, sizeof sm);
500 strcpy(sm.id, q->id);
501 speaker_send(speaker_fd, &sm);
504 /* Random tracks ------------------------------------------------------------ */
506 /** @brief Called with a new random track
507 * @param ev Event loop
508 * @param track Track name
510 static void chosen_random_track(ev_source *ev,
512 struct queue_entry *q;
516 /* Add the track to the queue */
517 q = queue_add(track, 0, WHERE_END, NULL, origin_random);
518 D(("picked %p (%s) at random", (void *)q, q->track));
520 /* Maybe a track can now be played */
524 /** @brief Maybe add a randomly chosen track
525 * @param ev Event loop
527 * Picking can take some time so the track will only be added after this
528 * function has returned.
530 void add_random_track(ev_source *ev) {
531 struct queue_entry *q;
534 /* If random play is not enabled then do nothing. */
535 if(shutting_down || !random_is_enabled())
537 /* Count how big the queue is */
538 for(q = qhead.next; q != &qhead; q = q->next)
540 /* If it's smaller than the desired size then add a track */
541 if(qlen < config->queue_pad)
542 trackdb_request_random(ev, chosen_random_track);
545 /* Track initiation (part 2) ------------------------------------------------ */
547 /** @brief Attempt to play something
549 * This is called from numerous locations - whenever it might conceivably have
550 * become possible to play something.
552 void play(ev_source *ev) {
553 struct queue_entry *q;
554 int random_enabled = random_is_enabled();
556 D(("play playing=%p", (void *)playing));
557 /* If we're shutting down, or there's something playing, or playing is not
558 * enabled, give up now */
559 if(shutting_down || playing || !playing_is_enabled()) return;
560 /* See if there's anything to play */
561 if(qhead.next == &qhead) {
562 /* Queue is empty. We could just wait around since there are periodic
563 * attempts to add a random track anyway. However they are rarer than
564 * attempts to force a track so we initiate one now. */
565 add_random_track(ev);
566 /* chosen_random_track() will call play() when a new random track has been
567 * added to the queue. */
570 /* There must be at least one track in the queue. */
572 /* If random play is disabled but the track is a non-adopted random one
573 * then don't play it. play() will be called again when random play is
575 if(!random_enabled && q->origin == origin_random)
577 D(("taken %p (%s) from queue", (void *)q, q->track));
578 /* Try to start playing. */
579 switch(start(ev, q)) {
581 if(q == qhead.next) {
582 queue_remove(q, 0); /* Abandon this track. */
586 /* Oh well, try the next one */
590 /* We'll try the same track again shortly. */
593 /* Remove from the queue */
594 if(q == qhead.next) {
598 /* It's become the playing track */
600 xtime(&playing->played);
601 playing->state = playing_started;
602 notify_play(playing->track, playing->submitter);
603 eventlog("playing", playing->track,
604 playing->submitter ? playing->submitter : (const char *)0,
606 /* Maybe add a random track. */
607 add_random_track(ev);
608 /* If there is another track in the queue prepare it now. This could
609 * potentially be a just-added random track. */
610 if(qhead.next != &qhead)
611 prepare(ev, qhead.next);
616 /* Miscelleneous ------------------------------------------------------------ */
618 /** @brief Return true if play is enabled */
619 int playing_is_enabled(void) {
620 const char *s = trackdb_get_global("playing");
622 return !s || !strcmp(s, "yes");
625 /** @brief Enable play */
626 void enable_playing(const char *who, ev_source *ev) {
627 trackdb_set_global("playing", "yes", who);
628 /* Add a random track if necessary. */
629 add_random_track(ev);
633 /** @brief Disable play */
634 void disable_playing(const char *who) {
635 trackdb_set_global("playing", "no", who);
638 /** @brief Return true if random play is enabled */
639 int random_is_enabled(void) {
640 const char *s = trackdb_get_global("random-play");
642 return !s || !strcmp(s, "yes");
645 /** @brief Enable random play */
646 void enable_random(const char *who, ev_source *ev) {
647 trackdb_set_global("random-play", "yes", who);
648 add_random_track(ev);
652 /** @brief Disable random play */
653 void disable_random(const char *who) {
654 trackdb_set_global("random-play", "no", who);
657 /* Scratching --------------------------------------------------------------- */
659 /** @brief Scratch a track
660 * @param who User responsible (or NULL)
661 * @param id Track ID (or NULL for current)
663 void scratch(const char *who, const char *id) {
664 struct queue_entry *q;
665 struct speaker_message sm;
667 D(("scratch playing=%p state=%d id=%s playing->id=%s",
669 playing ? playing->state : 0,
671 playing ? playing->id : "(none)"));
672 /* There must be a playing track; it must be in a scratchable state; if a
673 * specific ID was mentioned it must be that track. */
675 && (playing->state == playing_started
676 || playing->state == playing_paused)
678 || !strcmp(id, playing->id))) {
679 /* Update state (for the benefit of the 'recent' list) */
680 playing->state = playing_scratched;
681 playing->scratched = who ? xstrdup(who) : 0;
682 /* Find the player and kill the whole process group */
683 if(playing->pid >= 0) {
684 D(("kill -%d -%lu", config->signal, (unsigned long)playing->pid));
685 kill(-playing->pid, config->signal);
687 /* Tell the speaker, if we think it'll care */
688 if((playing->type & DISORDER_PLAYER_TYPEMASK) == DISORDER_PLAYER_RAW) {
689 memset(&sm, 0, sizeof sm);
691 strcpy(sm.id, playing->id);
692 speaker_send(speaker_fd, &sm);
693 D(("sending SM_CANCEL for %s", playing->id));
695 /* put a scratch track onto the front of the queue (but don't
696 * bother if playing is disabled) */
697 if(playing_is_enabled() && config->scratch.n) {
698 int r = rand() * (double)config->scratch.n / (RAND_MAX + 1.0);
699 q = queue_add(config->scratch.s[r], who, WHERE_START, NULL,
702 notify_scratch(playing->track, playing->submitter, who,
703 xtime(0) - playing->played);
707 /* Server termination ------------------------------------------------------- */
709 /** @brief Called from quit() to tear down everything belonging to this file */
710 void quitting(ev_source *ev) {
711 struct queue_entry *q;
713 /* Don't start anything new */
715 /* Shut down the current player */
717 if(playing->pid >= 0)
718 kill(-playing->pid, config->signal);
719 playing->state = playing_quitting;
722 /* Zap any background decoders that are going */
723 for(q = qhead.next; q != &qhead; q = q->next)
725 D(("kill -%d %lu", config->signal, (unsigned long)q->pid));
726 kill(-q->pid, config->signal);
728 /* Don't need the speaker any more */
729 ev_fd_cancel(ev, ev_read, speaker_fd);
733 /* Pause and resume --------------------------------------------------------- */
735 /** @brief Pause the playing track */
736 int pause_playing(const char *who) {
737 struct speaker_message sm;
740 /* Can't pause if already paused or if nothing playing. */
741 if(!playing || paused) return 0;
742 switch(playing->type & DISORDER_PLAYER_TYPEMASK) {
743 case DISORDER_PLAYER_STANDALONE:
744 if(!(playing->type & DISORDER_PLAYER_PAUSES)) {
746 disorder_error(0, "cannot pause because player is not powerful enough");
749 if(play_pause(playing->pl, &played, playing->data)) {
750 disorder_error(0, "player indicates it cannot pause");
753 xtime(&playing->lastpaused);
754 playing->uptopause = played;
755 playing->lastresumed = 0;
757 case DISORDER_PLAYER_RAW:
758 memset(&sm, 0, sizeof sm);
760 speaker_send(speaker_fd, &sm);
764 disorder_info("paused by %s", who);
765 notify_pause(playing->track, who);
767 if(playing->state == playing_started)
768 playing->state = playing_paused;
769 eventlog("state", "pause", (char *)0);
773 /** @brief Resume playing after a pause */
774 void resume_playing(const char *who) {
775 struct speaker_message sm;
780 switch(playing->type & DISORDER_PLAYER_TYPEMASK) {
781 case DISORDER_PLAYER_STANDALONE:
782 if(!(playing->type & DISORDER_PLAYER_PAUSES)) {
784 /* Shouldn't happen */
787 play_resume(playing->pl, playing->data);
788 xtime(&playing->lastresumed);
790 case DISORDER_PLAYER_RAW:
791 memset(&sm, 0, sizeof sm);
793 speaker_send(speaker_fd, &sm);
796 if(who) disorder_info("resumed by %s", who);
797 notify_resume(playing->track, who);
798 if(playing->state == playing_paused)
799 playing->state = playing_started;
800 eventlog("state", "resume", (char *)0);