fade.c

   1 /*
   2  * Copyright (C) 1998-2005 Andre Noll <maan@systemlinux.org>
   3  *
   4  *     This program is free software; you can redistribute it and/or modify
   5  *     it under the terms of the GNU General Public License as published by
   6  *     the Free Software Foundation; either version 2 of the License, or
   7  *     (at your option) any later version.
   8  *
   9  *     This program is distributed in the hope that it will be useful,
  10  *     but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  *     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12  *     GNU General Public License for more details.
  13  *
  14  *     You should have received a copy of the GNU General Public License
  15  *     along with this program; if not, write to the Free Software
  16  *     Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111, USA.
  17  */
  18
  19 /** \file fade.c a volume fader and alarm clock */
  20
  21 #include "fade.cmdline.h"
  22 #include "para.h"
  23 #include "fd.h"
  24
  25 #include <stropts.h>
  26 #include <ctype.h>
  27 #include <curses.h>
  28 #include <stdlib.h> /* EXIT_SUCCESS */
  29 #include <unistd.h>
  30 #include <signal.h>
  31 #include <string.h>
  32 #include <limits.h>
  33 #include <linux/soundcard.h>
  34 #include "string.h"
  35
  36
  37 struct fade_args_info args_info;
  38
  39 void para_log(__a_unused int ll, const char *fmt,...)
  40 {
  41         va_list argp;
  42         time_t t1;
  43         struct tm *tm;
  44
  45         time(&t1);
  46         tm = localtime(&t1);
  47         printf("%d:%02d:%02d ", tm->tm_hour, tm->tm_min, tm->tm_sec);
  48         va_start(argp, fmt);
  49         vprintf(fmt, argp);
  50         va_end(argp);
  51 }
  52
  53 /*
  54  * open mixer device
  55  */
  56 static int open_mixer(void)
  57 {
  58         int mixer_fd;
  59
  60         if ((mixer_fd = open(args_info.mixer_device_arg, O_RDWR, 0)) < 0)
  61                 return -1;
  62         return mixer_fd;
  63 }
  64
  65 /*
  66  * get volume via mixer_fd
  67  */
  68 static int do_get_vol(int mixer_fd)
  69 {
  70         int volume;
  71
  72         if (ioctl(mixer_fd, MIXER_READ(SOUND_MIXER_VOLUME), &volume) < 0)
  73                 return -1;
  74         /* take the mean value of left and right volume */
  75         return (volume % 256 + (volume >> 8)) / 2;
  76 }
  77
  78 /*
  79  * open mixer, get volume and close mixer
  80  */
  81 static int get_vol(void)
  82 {
  83         int mixer_fd;
  84         int volume;
  85
  86         mixer_fd = open_mixer();
  87         if (mixer_fd < 0)
  88                 return -1;
  89         volume = do_get_vol(mixer_fd);
  90         close(mixer_fd);
  91         return volume;
  92 }
  93
  94 /*
  95  * set volume via mixer_fd
  96  */
  97 static int do_set_vol(int mixer_fd, int volume)
  98 {
  99         int tmp;
 100         tmp = (volume << 8) + volume;
 101         if (ioctl(mixer_fd, MIXER_WRITE(SOUND_MIXER_VOLUME), &tmp) < 0)
 102                 return 0;
 103         return 1;
 104 }
 105
 106 /*
 107  * open mixer, set volume and close mixer
 108  */
 109 static int set_vol(int volume)
 110 {
 111         int mixer_fd;
 112         int ret;
 113
 114         mixer_fd = open_mixer();
 115         ret = 0;
 116         if (mixer_fd < 0)
 117                 goto out;
 118         if (!do_set_vol(mixer_fd, volume))
 119                 goto out;
 120         ret = 1;
 121         close(mixer_fd);
 122 out:
 123         return ret;
 124 }
 125
 126 /*
 127  * Open mixer, get volume, fade to new_vol in secs seconds and
 128  * close mixer
 129  */
 130 static int fade(int new_vol, unsigned int secs)
 131 {
 132         int vol, mixer_fd = -1, diff, incr, ret;
 133         struct timespec ts;
 134         unsigned long long tmp, tmp2; /* Careful with that axe, Eugene! */
 135
 136         PARA_NOTICE_LOG("fading to %d in %d seconds\n", new_vol, secs);
 137         ret = 0;
 138         if (!secs)
 139                 goto out;
 140         mixer_fd = open_mixer();
 141         if (mixer_fd < 0)
 142                 goto out;
 143         vol = do_get_vol(mixer_fd);
 144         if (vol < 0)
 145                 goto out;
 146         diff = new_vol - vol;
 147         if (!diff) {
 148                 sleep(secs);
 149                 ret = 1;
 150                 goto out;
 151         }
 152         incr = diff > 0? 1: -1;
 153         diff = diff > 0? diff: -diff;
 154         tmp = secs * 1000 / diff;
 155         tmp2 = tmp % 1000;
 156         while ((new_vol - vol) * incr > 0) {
 157                 ts.tv_nsec = tmp2 * 1000000; /* really nec ?*/
 158                 ts.tv_sec = tmp / 1000; /* really nec ?*/
 159                 //printf("ts.tv_sec: %i\n", ts.tv_nsec);
 160                 vol += incr;
 161                 if (!do_set_vol(mixer_fd, vol))
 162                         goto out;
 163                 //printf("vol = %i\n", vol);
 164                 nanosleep(&ts, NULL);
 165         }
 166 out:
 167         if (mixer_fd >= 0)
 168                 close(mixer_fd);
 169         return 1;
 170 }
 171
 172 static int client_cmd(const char *cmd,...)
 173 {
 174         int ret, fds[3] = {0, 0, 0};
 175         pid_t pid;
 176         char *cmdline = make_message(BINDIR "/para_client %s", cmd);
 177         PARA_INFO_LOG("%s\n", cmdline);
 178         ret = para_exec_cmdline_pid(&pid, cmdline, fds);
 179         free(cmdline);
 180         return ret;
 181 }
 182
 183 /*
 184  * sleep
 185  */
 186 static void sweet_dreams(void)
 187 {
 188         time_t t1, wake_time_epoch;
 189         unsigned int delay;
 190         struct tm *tm;
 191         int min = args_info.wake_min_arg;
 192         char *fa_stream = args_info.fa_stream_arg;
 193         char *wake_stream = args_info.wake_stream_arg;
 194         //char *current_stream = stat_items[STREAM].content;
 195         int wf = args_info.wake_fade_arg;
 196         int sf = args_info.fa_fade_arg;
 197         int wv = args_info.wake_vol_arg;
 198         int sv = args_info.fa_vol_arg;
 199         int iv = args_info.sleep_ivol_arg;
 200         char *cmd, *sleep_stream = args_info.sleep_stream_given?
 201                 args_info.sleep_stream_arg : NULL;
 202
 203         /* calculate wake time */
 204         time(&t1);
 205         if (args_info.wake_hour_given) {
 206                 int hour = args_info.wake_hour_arg;
 207                 tm = localtime(&t1);
 208                 if (tm->tm_hour > hour || (tm->tm_hour == hour && tm->tm_min> min)) {
 209                         t1 += 86400; /* wake time is tomorrow */
 210                         tm = localtime(&t1);
 211                 }
 212                 tm->tm_hour = hour;
 213                 tm->tm_min = min;
 214                 tm->tm_sec = 0;
 215         } else {
 216                 t1 += 8 * 60 * 60;
 217                 PARA_INFO_LOG("default wake time: %lu\n", t1);
 218                 tm = localtime(&t1);
 219         }
 220         wake_time_epoch = mktime(tm);
 221         PARA_INFO_LOG("waketime: %s", asctime(tm));
 222         if (sf) {
 223                 PARA_INFO_LOG("initial volume: %d\n", iv);
 224                 set_vol(iv);
 225                 cmd = make_message("csp %s\n", fa_stream);
 226                 client_cmd(cmd);
 227                 free(cmd);
 228                 fade(sv, sf);
 229         }
 230         if (sleep_stream) {
 231                 cmd = make_message("csp %s\n", sleep_stream);
 232                 client_cmd(cmd);
 233                 free(cmd);
 234         } else
 235                 client_cmd("stop");
 236         if (!wf)
 237                 return;
 238         for (;;) {
 239                 time(&t1);
 240                 if (wake_time_epoch <= t1 + wf)
 241                         break;
 242                 delay = wake_time_epoch - t1 - wf;
 243                 PARA_INFO_LOG("sleeping %u seconds (%u:%02u)\n",
 244                         delay, delay / 3600,
 245                         (delay % 3600) / 60);
 246                 sleep(delay);
 247         }
 248         cmd = make_message("csp %s\n", wake_stream);
 249         client_cmd(cmd);
 250         free(cmd);
 251         fade(wv, wf);
 252         PARA_INFO_LOG("%s", "fade complete, returning\n");
 253 }
 254
 255 static void snooze(void)
 256 {
 257         if (get_vol() < args_info.snooze_out_vol_arg)
 258                 set_vol(args_info.snooze_out_vol_arg);
 259         else
 260                 fade(args_info.snooze_out_vol_arg, args_info.snooze_out_fade_arg);
 261         client_cmd("pause");
 262         PARA_NOTICE_LOG("%d seconds snooze time...\n", args_info.snooze_time_arg);
 263         sleep(args_info.snooze_time_arg);
 264         client_cmd("play");
 265         fade(args_info.snooze_in_vol_arg, args_info.snooze_in_fade_arg);
 266 }
 267
 268 static int configfile_exists(void)
 269 {
 270         static char *config_file;
 271
 272         if (!args_info.config_file_given) {
 273                 char *home = para_homedir();
 274                 const char *conf = ".paraslash/fade.conf";
 275                 free(config_file);
 276                 config_file = make_message("%s/%s", home, conf);
 277                 free(home);
 278                 args_info.config_file_arg = config_file;
 279         }
 280         return file_exists(args_info.config_file_arg);
 281 }
 282
 283
 284 int main(int argc, char *argv[])
 285 {
 286         int ret;
 287
 288         if (fade_cmdline_parser(argc, argv, &args_info))
 289                 exit(EXIT_FAILURE);
 290         ret = configfile_exists();
 291         if (!ret && args_info.config_file_given) {
 292                 PARA_EMERG_LOG("can not read config file %s\n",
 293                         args_info.config_file_arg);
 294                 exit(EXIT_FAILURE);
 295         }
 296         if (ret)
 297                 fade_cmdline_parser_configfile(args_info.config_file_arg,
 298                         &args_info, 0, 0, 0);
 299         if ((ret = open_mixer()) < 0) {
 300                 PARA_EMERG_LOG("can not open mixer device %s.",
 301                         args_info.mixer_device_arg);
 302                 exit(EXIT_FAILURE);
 303         } else
 304                 close(ret);
 305         ret = 0;
 306         setlinebuf(stdout);
 307         if (!strcmp(args_info.mode_arg, "sleep")) {
 308                 sweet_dreams();
 309                 goto out;
 310         }
 311         if (!strcmp(args_info.mode_arg, "fade")) {
 312                 fade(args_info.fade_vol_arg, args_info.fade_time_arg);
 313                 goto out;
 314         }
 315         if (!strcmp(args_info.mode_arg, "snooze")) {
 316                 snooze();
 317                 goto out;
 318         }
 319         ret = -1;
 320 out:
 321         return ret;
 322 }