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
22 #include "disorder-server.h"
25 #define SPEAKER "disorder-speaker"
27 /** @brief The current playing track or NULL */
28 struct queue_entry *playing;
30 /** @brief Set when paused */
33 static void finished(ev_source *ev);
35 /** @brief File descriptor of our end of the socket to the speaker */
36 static int speaker_fd = -1;
38 /** @brief Set when shutting down */
39 static int shutting_down;
41 /** @brief Called when speaker process terminates
43 * Currently kills of DisOrder completely. A future version could terminate
44 * the speaker when nothing was going on, or recover from failures, though any
45 * tracks with decoders already started would need to have them restarted.
47 static int speaker_terminated(ev_source attribute((unused)) *ev,
48 pid_t attribute((unused)) pid,
49 int attribute((unused)) status,
50 const struct rusage attribute((unused)) *rusage,
51 void attribute((unused)) *u) {
52 fatal(0, "speaker subprocess %s",
56 /** @brief Called when we get a message from the speaker process */
57 static int speaker_readable(ev_source *ev, int fd,
58 void attribute((unused)) *u) {
59 struct speaker_message sm;
60 int ret = speaker_recv(fd, &sm);
62 if(ret < 0) return 0; /* EAGAIN */
64 ev_fd_cancel(ev, ev_read, fd);
69 /* track ID is paused, DATA seconds played */
70 D(("SM_PAUSED %s %ld", sm.id, sm.data));
71 playing->sofar = sm.data;
73 case SM_FINISHED: /* scratched the playing track */
74 case SM_STILLBORN: /* scratched too early */
75 case SM_UNKNOWN: /* scratched WAY too early */
76 if(playing && !strcmp(sm.id, playing->id))
80 /* track ID is playing, DATA seconds played */
81 D(("SM_PLAYING %s %ld", sm.id, sm.data));
82 playing->sofar = sm.data;
85 error(0, "unknown speaker message type %d", sm.type);
90 /** @brief Initialize the speaker process */
91 void speaker_setup(ev_source *ev) {
94 struct speaker_message sm;
96 if(socketpair(PF_UNIX, SOCK_DGRAM, 0, sp) < 0)
97 fatal(errno, "error calling socketpair");
98 if(!(pid = xfork())) {
100 ev_signal_atfork(ev);
105 signal(SIGPIPE, SIG_DFL);
107 execlp("valgrind", "valgrind", SPEAKER, "--config", configfile,
108 debugging ? "--debug" : "--no-debug",
109 log_default == &log_syslog ? "--syslog" : "--no-syslog",
112 execlp(SPEAKER, SPEAKER, "--config", configfile,
113 debugging ? "--debug" : "--no-debug",
114 log_default == &log_syslog ? "--syslog" : "--no-syslog",
117 fatal(errno, "error invoking %s", SPEAKER);
119 ev_child(ev, pid, 0, speaker_terminated, 0);
123 /* Wait for the speaker to be ready */
124 speaker_recv(speaker_fd, &sm);
125 nonblock(speaker_fd);
126 if(ev_fd(ev, ev_read, speaker_fd, speaker_readable, 0, "speaker read") < 0)
127 fatal(0, "error registering speaker socket fd");
130 /** @brief Tell the speaker to reload its configuration */
131 void speaker_reload(void) {
132 struct speaker_message sm;
134 memset(&sm, 0, sizeof sm);
136 speaker_send(speaker_fd, &sm);
139 /** @brief Called when the currently playing track finishes playing
140 * @param ev Event loop or NULL
142 * There are three places this is called from:
144 * 1) speaker_readable(), when the speaker tells us the playing track finished.
145 * (Technically the speaker lies a little to arrange for gapless play.)
147 * 2) player_finished(), when the player for a non-raw track (i.e. one that
148 * does not use the speaker) finishes.
150 * 3) quitting(), after signalling the decoder or player but possible before it
151 * has actually terminated. In this case @p ev is NULL, inhibiting any further
152 * attempt to play anything.
154 static void finished(ev_source *ev) {
155 D(("finished playing=%p", (void *)playing));
158 if(playing->state != playing_scratched)
159 notify_not_scratched(playing->track, playing->submitter);
160 switch(playing->state) {
162 eventlog("completed", playing->track, (char *)0);
164 case playing_scratched:
165 eventlog("scratched", playing->track, playing->scratched, (char *)0);
168 eventlog("failed", playing->track, wstat(playing->wstat), (char *)0);
173 queue_played(playing);
176 /* Try to play something else */
177 /* TODO re-support config->gap? */
182 /** @brief Called when a player or decoder process terminates
184 * This is called when a decoder process terminates (which might actually be
185 * some time before the speaker reports it as finished) or when a non-raw
186 * (i.e. non-speaker) player terminates. In the latter case it's imaginable
187 * that the OS has buffered the last few samples.
190 static int player_finished(ev_source *ev,
193 const struct rusage attribute((unused)) *rusage,
195 struct queue_entry *q = u;
197 D(("player_finished pid=%lu status=%#x",
198 (unsigned long)pid, (unsigned)status));
199 /* Record that this PID is dead. If we killed the track we might know this
200 * already, but also it might have exited or crashed. Either way we don't
201 * want to end up signalling it. */
204 case playing_unplayed:
206 /* If this was a pre-prepared track then either it failed or we
207 * deliberately stopped it: it might have been removed from the queue, or
208 * moved down the queue, or the speaker might be on a break. So we leave
209 * it state alone for future use.
213 /* We actually started playing this track. */
215 /* Don't override 'scratched' with 'failed'. */
216 if(q->state != playing_scratched)
217 q->state = playing_failed;
219 q->state = playing_ok;
222 /* Regardless we always report and record the status and do cleanup for
225 error(0, "player for %s %s", q->track, wstat(status));
226 if(q->type & DISORDER_PLAYER_PREFORK)
227 play_cleanup(q->pl, q->data);
229 /* If this actually was the current track, and does not use the speaker
230 * process, then it must have finished. For raw-output players we will get a
231 * separate notification from the speaker process. */
233 && (q->type & DISORDER_PLAYER_TYPEMASK) != DISORDER_PLAYER_RAW)
238 /** @brief Find the player for @p q */
239 static int find_player(const struct queue_entry *q) {
242 for(n = 0; n < config->player.n; ++n)
243 if(fnmatch(config->player.s[n].s[0], q->track, 0) == 0)
245 if(n >= config->player.n)
251 /* Return values from start() */
252 #define START_OK 0 /**< @brief Succeeded. */
253 #define START_HARDFAIL 1 /**< @brief Track is broken. */
254 #define START_SOFTFAIL 2 /**< @brief Track OK, system (temporarily?) broken */
256 /** @brief Play or prepare @p q
257 * @param ev Event loop
258 * @param q Track to play/prepare
259 * @param prepare_only If true, only prepares track
260 * @return @ref START_OK, @ref START_HARDFAIL or @ref START_SOFTFAIL
262 * TODO: probably ought to be split up into separate prepare() and start()
263 * operations, the latter calling the former if necessary and perhaps the two
264 * sharing some subprocess creation logic.
266 * "Preparing" a track means starting a background decoder and connecting it to
267 * the speaker process. Obviously this only applies to raw-format
268 * (i.e. speaker-using) players.
270 static int start(ev_source *ev,
271 struct queue_entry *q,
276 struct speaker_message sm;
279 ao_sample_format format;
283 const char *waitdevice = 0;
284 const char *const *optv;
286 struct sockaddr_un addr;
289 memset(&sm, 0, sizeof sm);
290 D(("start %s %d", q->id, prepare_only));
292 /* The track is already prepared */
294 /* We want to run it, since it's prepared the answer is to tell the
295 * speaker to set it off */
296 strcpy(sm.id, q->id);
298 speaker_send(speaker_fd, &sm);
299 D(("sent SM_PLAY for %s", sm.id));
303 /* Find the player plugin. */
304 if((n = find_player(q)) < 0) return START_HARDFAIL;
305 if(!(q->pl = open_plugin(config->player.s[n].s[1], 0)))
306 return START_HARDFAIL;
307 q->type = play_get_type(q->pl);
308 /* Can't prepare non-raw tracks. */
310 && (q->type & DISORDER_PLAYER_TYPEMASK) != DISORDER_PLAYER_RAW)
312 /* Call the prefork function in the player module. None of the built-in
313 * modules use this so it's not well tested, unfortunately. */
314 p = trackdb_rawpath(q->track);
315 if(q->type & DISORDER_PLAYER_PREFORK)
316 if(!(q->data = play_prefork(q->pl, p))) {
317 error(0, "prefork function for %s failed", q->track);
318 return START_HARDFAIL;
320 /* Capture the player/decoder's stderr and feed it into our logs.
322 * Use the second arg as the tag if available (it's probably a command name),
323 * otherwise the module name. */
325 lfd = logfd(ev, (config->player.s[n].s[2]
326 ? config->player.s[n].s[2] : config->player.s[n].s[1]));
329 /* Parse player arguments */
330 optc = config->player.s[n].n - 2;
331 optv = (void *)&config->player.s[n].s[2];
332 while(optc > 0 && optv[0][0] == '-') {
333 if(!strcmp(optv[0], "--")) {
338 if(!strcmp(optv[0], "--wait-for-device")
339 || !strncmp(optv[0], "--wait-for-device=", 18)) {
340 if((waitdevice = strchr(optv[0], '='))) {
343 waitdevice = ""; /* use default */
347 error(0, "unknown option %s", optv[0]);
348 return START_HARDFAIL;
351 /* Create the subprocess */
352 switch(q->pid = fork()) {
354 /* Child of disorderd */
356 progname = "disorderd-fork";
357 ev_signal_atfork(ev);
358 signal(SIGPIPE, SIG_DFL);
359 /* Send our log output to DisOrder's logs */
363 xclose(lfd); /* tidy up */
365 /* Create a new process group, ID = child PID */
367 if((q->type & DISORDER_PLAYER_TYPEMASK) == DISORDER_PLAYER_RAW) {
368 /* "Raw" format players always have their output send down a pipe
369 * to the disorder-normalize process. This will connect to the
370 * speaker process to actually play the audio data.
372 /* np will be the pipe to disorder-normalize */
373 if(socketpair(PF_UNIX, SOCK_STREAM, 0, np) < 0)
374 fatal(errno, "error calling socketpair");
375 /* Beware of the Leopard! On OS X 10.5.x, the order of the shutdown
376 * calls here DOES MATTER. If you do the SHUT_WR first then the SHUT_RD
377 * fails with "Socket is not connected". I think this is a bug but
378 * provided implementors either don't care about the order or all agree
379 * about the order, choosing the reliable order is an adequate
381 xshutdown(np[1], SHUT_RD); /* decoder writes to np[1] */
382 xshutdown(np[0], SHUT_WR); /* normalize reads from np[0] */
385 /* Start disorder-normalize. We double-fork so that nothing has to wait
386 * for disorder-normalize. */
387 if(!(npid = xfork())) {
388 /* Grandchild of disorderd */
390 /* Great-grandchild of disorderd */
391 /* Connect to the speaker process */
392 memset(&addr, 0, sizeof addr);
393 addr.sun_family = AF_UNIX;
394 snprintf(addr.sun_path, sizeof addr.sun_path,
395 "%s/speaker/socket", config->home);
396 sfd = xsocket(PF_UNIX, SOCK_STREAM, 0);
397 if(connect(sfd, (const struct sockaddr *)&addr, sizeof addr) < 0)
398 fatal(errno, "connecting to %s", addr.sun_path);
399 /* Send the ID, with a NATIVE-ENDIAN 32 bit length */
401 if(write(sfd, &l, sizeof l) < 0
402 || write(sfd, q->id, l) < 0)
403 fatal(errno, "writing to %s", addr.sun_path);
405 if (read(sfd, &l, 1) < 0)
406 fatal(errno, "reading ack from %s", addr.sun_path);
413 /* Ask the speaker to actually start playing the track; we do it here
414 * so it's definitely after ack.
416 * This is actually insufficient. If the track is prepared and then
417 * very shortly afterwards played, then the race we're trying to
418 * avoid here will still exist. So either the speaker must cope with
419 * SM_PLAY before connection has arrived (in which case we might as
420 * well move the SM_PLAY somewhere saner) or we must do more work
421 * here to avoid the race.
423 * In fact the current speaker can indeed cope with SM_PLAY before
424 * the connection arrives. So this code can probably be moved
425 * somewhere saner in due course. TODO!
428 strcpy(sm.id, q->id);
430 speaker_send(speaker_fd, &sm);
431 D(("sent SM_PLAY for %s", sm.id));
433 /* TODO stderr shouldn't be redirected for disorder-normalize
434 * (but it should be for play_track() */
435 execlp("disorder-normalize", "disorder-normalize",
436 log_default == &log_syslog ? "--syslog" : "--no-syslog",
437 "--config", configfile,
439 fatal(errno, "executing disorder-normalize");
440 /* End of the great-grandchild of disorderd */
442 /* Back in the grandchild of disorderd */
444 /* End of the grandchild of disorderd */
446 /* Back in the child of disorderd */
447 /* Wait for the grandchild of disordered to finish */
448 while(waitpid(npid, &n, 0) < 0 && errno == EINTR)
450 /* Pass the file descriptor to the driver in an environment
452 snprintf(buffer, sizeof buffer, "DISORDER_RAW_FD=%d", np[1]);
453 if(putenv(buffer) < 0)
454 fatal(errno, "error calling putenv");
455 /* Close all the FDs we don't need */
458 /* Wait for a device to clear. This ugliness is now deprecated and will
459 * eventually be removed. */
463 n = ao_driver_id(waitdevice);
465 fatal(0, "invalid libao driver: %s", optv[0]);
467 n = ao_default_driver_id();
468 /* Make up a format. */
469 memset(&format, 0, sizeof format);
473 format.byte_format = AO_FMT_NATIVE;
476 ts.tv_nsec = 100000000; /* 0.1s */
477 while((device = ao_open_live(n, &format, 0)) == 0 && retries-- > 0)
486 /* End of child of disorderd */
489 /* Back in disorderd (child could not be created) */
490 error(errno, "error calling fork");
491 if(q->type & DISORDER_PLAYER_PREFORK)
492 play_cleanup(q->pl, q->data); /* else would leak */
495 return START_SOFTFAIL;
497 /* Back in disorderd (child was created) */
498 /* This track is prepared. (Non-raw tracks are by implication prepared as
499 * soon as they are playing, but really the question doesn't make much sense
504 /* Set the child's process group ID.
506 * But wait, didn't we already set it in the child? Yes, but it's possible
507 * that we'll need to address it by process group ID before it gets that far,
508 * so we set it here too. One or the other may fail but as long as one
509 * succeeds that's fine.
511 setpgid(q->pid, q->pid);
512 /* Ask the event loop to tell us when the child terminates */
513 ev_child(ev, q->pid, 0, player_finished, q);
514 D(("player subprocess ID %lu", (unsigned long)q->pid));
518 /** @brief Prepare a track for later play
520 * Only applies to raw-format (speaker-using) players.
522 int prepare(ev_source *ev,
523 struct queue_entry *q) {
526 /* If there's a decoder (or player!) going we do nothing */
529 /* Find the player plugin */
530 if((n = find_player(q)) < 0) return -1; /* No player */
531 q->pl = open_plugin(config->player.s[n].s[1], 0); /* No player */
532 q->type = play_get_type(q->pl);
533 if((q->type & DISORDER_PLAYER_TYPEMASK) != DISORDER_PLAYER_RAW)
534 return 0; /* Not a raw player */
535 return start(ev, q, 1/*prepare_only*/); /* Prepare it */
538 /** @brief Abandon a queue entry
540 * Called from c_remove() (but NOT when scratching a track). Only does
541 * anything to raw-format tracks. Terminates the background decoder and tells
542 * the speaker process to cancel the track.
544 void abandon(ev_source attribute((unused)) *ev,
545 struct queue_entry *q) {
546 struct speaker_message sm;
549 return; /* Not prepared. */
550 if((q->type & DISORDER_PLAYER_TYPEMASK) != DISORDER_PLAYER_RAW)
551 return; /* Not a raw player. */
552 /* Terminate the player. */
553 kill(-q->pid, config->signal);
554 /* Cancel the track. */
555 memset(&sm, 0, sizeof sm);
557 strcpy(sm.id, q->id);
558 speaker_send(speaker_fd, &sm);
561 /** @brief Called with a new random track
562 * @param ev Event loop
563 * @param track Track name
565 static void chosen_random_track(ev_source *ev,
567 struct queue_entry *q;
571 /* Add the track to the queue */
572 q = queue_add(track, 0, WHERE_END, origin_random);
573 D(("picked %p (%s) at random", (void *)q, q->track));
575 /* Maybe a track can now be played */
579 /** @brief Maybe add a randomly chosen track
580 * @param ev Event loop
582 * Picking can take some time so the track will only be added after this
583 * function has returned.
585 void add_random_track(ev_source *ev) {
586 struct queue_entry *q;
589 /* If random play is not enabled then do nothing. */
590 if(shutting_down || !random_is_enabled())
592 /* Count how big the queue is */
593 for(q = qhead.next; q != &qhead; q = q->next)
595 /* If it's smaller than the desired size then add a track */
596 if(qlen < config->queue_pad)
597 trackdb_request_random(ev, chosen_random_track);
600 /** @brief Attempt to play something
602 * This is called from numerous locations - whenever it might conceivably have
603 * become possible to play something.
605 void play(ev_source *ev) {
606 struct queue_entry *q;
607 int random_enabled = random_is_enabled();
609 D(("play playing=%p", (void *)playing));
610 /* If we're shutting down, or there's something playing, or playing is not
611 * enabled, give up now */
612 if(shutting_down || playing || !playing_is_enabled()) return;
613 /* See if there's anything to play */
614 if(qhead.next == &qhead) {
615 /* Queue is empty. We could just wait around since there are periodic
616 * attempts to add a random track anyway. However they are rarer than
617 * attempts to force a track so we initiate one now. */
618 add_random_track(ev);
619 /* chosen_random_track() will call play() when a new random track has been
620 * added to the queue. */
623 /* There must be at least one track in the queue. */
625 /* If random play is disabled but the track is a non-adopted random one
626 * then don't play it. play() will be called again when random play is
628 if(!random_enabled && q->origin == origin_random)
630 D(("taken %p (%s) from queue", (void *)q, q->track));
631 /* Try to start playing. */
632 switch(start(ev, q, 0/*!prepare_only*/)) {
634 if(q == qhead.next) {
635 queue_remove(q, 0); /* Abandon this track. */
639 /* Oh well, try the next one */
643 /* We'll try the same track again shortly. */
646 /* Remove from the queue */
647 if(q == qhead.next) {
651 /* It's become the playing track */
653 time(&playing->played);
654 playing->state = playing_started;
655 notify_play(playing->track, playing->submitter);
656 eventlog("playing", playing->track,
657 playing->submitter ? playing->submitter : (const char *)0,
659 /* Maybe add a random track. */
660 add_random_track(ev);
661 /* If there is another track in the queue prepare it now. This could
662 * potentially be a just-added random track. */
663 if(qhead.next != &qhead)
664 prepare(ev, qhead.next);
669 /** @brief Return true if play is enabled */
670 int playing_is_enabled(void) {
671 const char *s = trackdb_get_global("playing");
673 return !s || !strcmp(s, "yes");
676 /** @brief Enable play */
677 void enable_playing(const char *who, ev_source *ev) {
678 trackdb_set_global("playing", "yes", who);
679 /* Add a random track if necessary. */
680 add_random_track(ev);
684 /** @brief Disable play */
685 void disable_playing(const char *who) {
686 trackdb_set_global("playing", "no", who);
689 /** @brief Return true if random play is enabled */
690 int random_is_enabled(void) {
691 const char *s = trackdb_get_global("random-play");
693 return !s || !strcmp(s, "yes");
696 /** @brief Enable random play */
697 void enable_random(const char *who, ev_source *ev) {
698 trackdb_set_global("random-play", "yes", who);
699 add_random_track(ev);
703 /** @brief Disable random play */
704 void disable_random(const char *who) {
705 trackdb_set_global("random-play", "no", who);
708 /** @brief Scratch a track
709 * @param User responsible (or NULL)
710 * @param Track ID (or NULL for current)
712 void scratch(const char *who, const char *id) {
713 struct queue_entry *q;
714 struct speaker_message sm;
716 D(("scratch playing=%p state=%d id=%s playing->id=%s",
718 playing ? playing->state : 0,
720 playing ? playing->id : "(none)"));
721 /* There must be a playing track; it must be in a scratchable state; if a
722 * specific ID was mentioned it must be that track. */
724 && (playing->state == playing_started
725 || playing->state == playing_paused)
727 || !strcmp(id, playing->id))) {
728 /* Update state (for the benefit of the 'recent' list) */
729 playing->state = playing_scratched;
730 playing->scratched = who ? xstrdup(who) : 0;
731 /* Find the player and kill the whole process group */
732 if(playing->pid >= 0) {
733 D(("kill -%d -%lu", config->signal, (unsigned long)playing->pid));
734 kill(-playing->pid, config->signal);
736 /* Tell the speaker, if we think it'll care */
737 if((playing->type & DISORDER_PLAYER_TYPEMASK) == DISORDER_PLAYER_RAW) {
738 memset(&sm, 0, sizeof sm);
740 strcpy(sm.id, playing->id);
741 speaker_send(speaker_fd, &sm);
742 D(("sending SM_CANCEL for %s", playing->id));
744 /* put a scratch track onto the front of the queue (but don't
745 * bother if playing is disabled) */
746 if(playing_is_enabled() && config->scratch.n) {
747 int r = rand() * (double)config->scratch.n / (RAND_MAX + 1.0);
748 q = queue_add(config->scratch.s[r], who, WHERE_START, origin_scratch);
750 notify_scratch(playing->track, playing->submitter, who,
751 time(0) - playing->played);
755 /** @brief Called from quit() to tear down eveyrthing belonging to this file */
756 void quitting(ev_source *ev) {
757 struct queue_entry *q;
759 /* Don't start anything new */
761 /* Shut down the current player */
763 if(playing->pid >= 0)
764 kill(-playing->pid, config->signal);
765 playing->state = playing_quitting;
768 /* Zap any background decoders that are going */
769 for(q = qhead.next; q != &qhead; q = q->next)
771 D(("kill -%d %lu", config->signal, (unsigned long)q->pid));
772 kill(-q->pid, config->signal);
774 /* Don't need the speaker any more */
775 ev_fd_cancel(ev, ev_read, speaker_fd);
779 /** @brief Pause the playing track */
780 int pause_playing(const char *who) {
781 struct speaker_message sm;
784 /* Can't pause if already paused or if nothing playing. */
785 if(!playing || paused) return 0;
786 switch(playing->type & DISORDER_PLAYER_TYPEMASK) {
787 case DISORDER_PLAYER_STANDALONE:
788 if(!(playing->type & DISORDER_PLAYER_PAUSES)) {
790 error(0, "cannot pause because player is not powerful enough");
793 if(play_pause(playing->pl, &played, playing->data)) {
794 error(0, "player indicates it cannot pause");
797 time(&playing->lastpaused);
798 playing->uptopause = played;
799 playing->lastresumed = 0;
801 case DISORDER_PLAYER_RAW:
802 memset(&sm, 0, sizeof sm);
804 speaker_send(speaker_fd, &sm);
807 if(who) info("paused by %s", who);
808 notify_pause(playing->track, who);
810 if(playing->state == playing_started)
811 playing->state = playing_paused;
812 eventlog("state", "pause", (char *)0);
816 /** @brief Resume playing after a pause */
817 void resume_playing(const char *who) {
818 struct speaker_message sm;
823 switch(playing->type & DISORDER_PLAYER_TYPEMASK) {
824 case DISORDER_PLAYER_STANDALONE:
825 if(!playing->type & DISORDER_PLAYER_PAUSES) {
827 /* Shouldn't happen */
830 play_resume(playing->pl, playing->data);
831 time(&playing->lastresumed);
833 case DISORDER_PLAYER_RAW:
834 memset(&sm, 0, sizeof sm);
836 speaker_send(speaker_fd, &sm);
839 if(who) info("resumed by %s", who);
840 notify_resume(playing->track, who);
841 if(playing->state == playing_paused)
842 playing->state = playing_started;
843 eventlog("state", "resume", (char *)0);