Merge branch 't/allow_zero_btr_add'
[paraslash.git] / fade.c
1 /*
2 * Copyright (C) 1998-2013 Andre Noll <maan@systemlinux.org>
3 *
4 * Licensed under the GPL v2. For licencing details see COPYING.
5 */
6
7 /** \file fade.c A volume fader and alarm clock for OSS. */
8
9 #include <regex.h>
10
11 #include "fade.cmdline.h"
12 #include "para.h"
13 #include "fd.h"
14 #include "string.h"
15 #include "mix.h"
16 #include "error.h"
17 #include "version.h"
18
19 INIT_FADE_ERRLISTS;
20 static struct fade_args_info conf;
21
22 enum mixer_id {MIXER_ENUM};
23 static char *mixer_name[] = {MIXER_NAMES};
24 DECLARE_MIXER_INITS;
25 static struct mixer supported_mixer[] = {MIXER_ARRAY};
26 #define FOR_EACH_MIXER(i) for ((i) = 0; (i) < NUM_SUPPORTED_MIXERS; (i)++)
27
28 static int loglevel;
29 __printf_2_3 void date_log(int ll, const char *fmt, ...)
30 {
31 va_list argp;
32 time_t t1;
33 struct tm *tm;
34
35 if (ll < loglevel)
36 return;
37 time(&t1);
38 tm = localtime(&t1);
39 printf("%d:%02d:%02d ", tm->tm_hour, tm->tm_min, tm->tm_sec);
40 va_start(argp, fmt);
41 vprintf(fmt, argp);
42 va_end(argp);
43 }
44 __printf_2_3 void (*para_log)(int, const char*, ...) = date_log;
45
46 /* Fade to new volume in fade_time seconds. */
47 static int fade(struct mixer *m, struct mixer_handle *h, int new_vol, int fade_time)
48 {
49 int vol, diff, incr, ret;
50 unsigned secs;
51 struct timespec ts;
52 unsigned long long tmp, tmp2; /* Careful with that axe, Eugene! */
53
54 if (fade_time <= 0)
55 return m->set(h, new_vol);
56 secs = fade_time;
57 PARA_NOTICE_LOG("fading to %d in %d seconds\n", new_vol, secs);
58 ret = m->get(h);
59 if (ret < 0)
60 goto out;
61 vol = ret;
62 diff = new_vol - vol;
63 if (!diff) {
64 sleep(secs);
65 goto out;
66 }
67 incr = diff > 0? 1: -1;
68 diff = diff > 0? diff: -diff;
69 tmp = secs * 1000 / diff;
70 tmp2 = tmp % 1000;
71 while ((new_vol - vol) * incr > 0) {
72 ts.tv_nsec = tmp2 * 1000000; /* really nec ?*/
73 ts.tv_sec = tmp / 1000; /* really nec ?*/
74 //printf("ts.tv_sec: %i\n", ts.tv_nsec);
75 vol += incr;
76 ret = m->set(h, vol);
77 if (ret < 0)
78 goto out;
79 //printf("vol = %i\n", vol);
80 nanosleep(&ts, NULL);
81 }
82 out:
83 return ret;
84 }
85
86 static void client_cmd(const char *cmd)
87 {
88 int ret, status, fds[3] = {0, 0, 0};
89 pid_t pid;
90 char *cmdline = make_message(BINDIR "/para_client %s", cmd);
91
92 PARA_NOTICE_LOG("%s\n", cmdline);
93 ret = para_exec_cmdline_pid(&pid, cmdline, fds);
94 free(cmdline);
95 if (ret < 0) {
96 PARA_ERROR_LOG("%s\n", para_strerror(-ret));
97 goto fail;
98 }
99 do
100 pid = waitpid(pid, &status, 0);
101 while (pid == -1 && errno == EINTR);
102 if (pid < 0) {
103 PARA_ERROR_LOG("%s\n", strerror(errno));
104 goto fail;
105 }
106 if (!WIFEXITED(status) || WEXITSTATUS(status) != 0)
107 goto fail;
108 return;
109 fail:
110 PARA_EMERG_LOG("command \"%s\" failed\n", cmd);
111 exit(EXIT_FAILURE);
112 }
113
114 static void change_afs_mode_and_play(char *afs_mode)
115 {
116 char *cmd;
117
118 client_cmd("stop");
119 if (!afs_mode)
120 return;
121 cmd = make_message("select %s", afs_mode);
122 client_cmd(cmd);
123 free(cmd);
124 client_cmd("play");
125 }
126
127 static int sweet_dreams(struct mixer *m, struct mixer_handle *h)
128 {
129 time_t t1, wake_time_epoch;
130 unsigned int delay;
131 struct tm *tm;
132 int ret, min = conf.wake_min_arg;
133 char *fo_mood = conf.fo_mood_arg;
134 char *fi_mood = conf.fi_mood_arg;
135 char *sleep_mood = conf.sleep_mood_arg;
136 int fit = conf.fi_time_arg;
137 int fot = conf.fo_time_arg;
138 int fiv = conf.fi_vol_arg;
139 int fov = conf.fo_vol_arg;
140 int iv = conf.ivol_arg;
141
142 /* calculate wake time */
143 time(&t1);
144 if (conf.wake_hour_given) {
145 int hour = conf.wake_hour_arg;
146 tm = localtime(&t1);
147 if (tm->tm_hour > hour || (tm->tm_hour == hour && tm->tm_min> min)) {
148 t1 += 86400; /* wake time is tomorrow */
149 tm = localtime(&t1);
150 }
151 tm->tm_hour = hour;
152 tm->tm_min = min;
153 tm->tm_sec = 0;
154 } else {
155 t1 += 9 * 60 * 60; /* nine hours from now */
156 PARA_INFO_LOG("default wake time: %lu\n", (long unsigned)t1);
157 tm = localtime(&t1);
158 }
159 wake_time_epoch = mktime(tm);
160 PARA_INFO_LOG("waketime: %s", asctime(tm));
161 client_cmd("stop");
162 sleep(1);
163 if (fot) {
164 PARA_INFO_LOG("initial volume: %d\n", iv);
165 ret = m->set(h, iv);
166 if (ret < 0)
167 return ret;
168 change_afs_mode_and_play(fo_mood);
169 ret = fade(m, h, fov, fot);
170 if (ret < 0)
171 return ret;
172 } else {
173 ret = m->set(h, fov);
174 if (ret < 0)
175 return ret;
176 }
177 if (conf.sleep_mood_given)
178 change_afs_mode_and_play(sleep_mood);
179 else
180 client_cmd("stop");
181 if (!fit)
182 return 1;
183 for (;;) {
184 time(&t1);
185 if (wake_time_epoch <= t1 + fit)
186 break;
187 delay = wake_time_epoch - t1 - fit;
188 PARA_INFO_LOG("sleeping %u seconds (%u:%02u)\n",
189 delay, delay / 3600,
190 (delay % 3600) / 60);
191 sleep(delay);
192 }
193 change_afs_mode_and_play(fi_mood);
194 ret = fade(m, h, fiv, fit);
195 PARA_INFO_LOG("fade complete, returning\n");
196 return ret;
197 }
198
199 static int snooze(struct mixer *m, struct mixer_handle *h)
200 {
201 int ret, val;
202
203 if (conf.so_time_arg <= 0)
204 return 1;
205 ret = m->get(h);
206 if (ret < 0)
207 return ret;
208 val = ret;
209 if (val < conf.so_vol_arg)
210 ret = m->set(h, conf.so_vol_arg);
211 else
212 ret = fade(m, h, conf.so_vol_arg, conf.so_time_arg);
213 if (ret < 0)
214 return ret;
215 client_cmd("pause");
216 PARA_NOTICE_LOG("%d seconds snooze time...\n", conf.snooze_time_arg);
217 sleep(conf.snooze_time_arg);
218 client_cmd("play");
219 return fade(m, h, conf.si_vol_arg, conf.si_time_arg);
220 }
221
222 static int configfile_exists(void)
223 {
224 static char *config_file;
225
226 if (!conf.config_file_given) {
227 char *home = para_homedir();
228 free(config_file);
229 config_file = make_message("%s/.paraslash/fade.conf", home);
230 free(home);
231 conf.config_file_arg = config_file;
232 }
233 return file_exists(conf.config_file_arg);
234 }
235
236 static void init_mixers(void)
237 {
238 int i;
239
240 FOR_EACH_MIXER(i) {
241 struct mixer *m = &supported_mixer[i];
242 PARA_DEBUG_LOG("initializing mixer API #%d (%s)\n",
243 i, mixer_name[i]);
244 m->init(m);
245 }
246 }
247
248 static int set_channel(struct mixer *m, struct mixer_handle *h)
249 {
250 char *channels;
251 int ret;
252
253 ret = m->set_channel(h, conf.mixer_channel_arg);
254 if (ret >= 0) {
255 PARA_NOTICE_LOG("using %s mixer channel\n",
256 conf.mixer_channel_arg? conf.mixer_channel_arg
257 : "default");
258 return ret;
259 }
260 channels = m->get_channels(h);
261 printf("Available channels: %s\n", channels);
262 free(channels);
263 return ret;
264 }
265
266 static struct mixer *get_mixer_or_die(void)
267 {
268 int i;
269
270 if (!conf.mixer_api_given)
271 i = DEFAULT_MIXER;
272 else
273 FOR_EACH_MIXER(i)
274 if (!strcmp(mixer_name[i], conf.mixer_api_arg))
275 break;
276 if (i < NUM_SUPPORTED_MIXERS) {
277 PARA_NOTICE_LOG("using %s mixer API\n", mixer_name[i]);
278 return supported_mixer + i;
279 }
280 printf("available mixer APIs: ");
281 FOR_EACH_MIXER(i) {
282 int d = (i == DEFAULT_MIXER);
283 printf("%s%s%s ", d? "[" : "", mixer_name[i], d? "]" : "");
284 }
285 printf("\n");
286 exit(EXIT_FAILURE);
287 }
288
289 int main(int argc, char *argv[])
290 {
291 int ret;
292 struct mixer *m;
293 struct mixer_handle *h = NULL;
294
295 if (fade_cmdline_parser(argc, argv, &conf))
296 exit(EXIT_FAILURE);
297 HANDLE_VERSION_FLAG("fade", conf);
298 ret = configfile_exists();
299 if (!ret && conf.config_file_given) {
300 PARA_EMERG_LOG("can not read config file %s\n",
301 conf.config_file_arg);
302 exit(EXIT_FAILURE);
303 }
304 if (ret) {
305 struct fade_cmdline_parser_params params = {
306 .override = 0,
307 .initialize = 0,
308 .check_required = 0,
309 .check_ambiguity = 0,
310 .print_errors = 1
311 };
312 fade_cmdline_parser_config_file(conf.config_file_arg,
313 &conf, &params);
314 }
315 loglevel = get_loglevel_by_name(conf.loglevel_arg);
316 init_mixers();
317 m = get_mixer_or_die();
318 ret = m->open(conf.mixer_device_arg, &h);
319 if (ret < 0)
320 goto out;
321 ret = set_channel(m, h);
322 if (ret < 0)
323 goto out;
324 switch (conf.mode_arg) {
325 case mode_arg_fade:
326 ret = fade(m, h, conf.fade_vol_arg, conf.fade_time_arg);
327 break;
328 case mode_arg_snooze:
329 ret = snooze(m, h);
330 break;
331 default: /* sleep mode */
332 ret = sweet_dreams(m, h);
333 break;
334 }
335 out:
336 m->close(&h);
337 if (ret < 0)
338 PARA_EMERG_LOG("%s\n", para_strerror(-ret));
339 return ret < 0? EXIT_FAILURE : EXIT_SUCCESS;
340 }