xref: /openbmc/linux/sound/core/seq/oss/seq_oss_timer.c (revision c0dbbdad)
1 // SPDX-License-Identifier: GPL-2.0-or-later
2 /*
3  * OSS compatible sequencer driver
4  *
5  * Timer control routines
6  *
7  * Copyright (C) 1998,99 Takashi Iwai <tiwai@suse.de>
8  */
9 
10 #include "seq_oss_timer.h"
11 #include "seq_oss_event.h"
12 #include <sound/seq_oss_legacy.h>
13 #include <linux/slab.h>
14 
15 /*
16  */
17 #define MIN_OSS_TEMPO		8
18 #define MAX_OSS_TEMPO		360
19 #define MIN_OSS_TIMEBASE	1
20 #define MAX_OSS_TIMEBASE	1000
21 
22 /*
23  */
24 static void calc_alsa_tempo(struct seq_oss_timer *timer);
25 static int send_timer_event(struct seq_oss_devinfo *dp, int type, int value);
26 
27 
28 /*
29  * create and register a new timer.
30  * if queue is not started yet, start it.
31  */
32 struct seq_oss_timer *
snd_seq_oss_timer_new(struct seq_oss_devinfo * dp)33 snd_seq_oss_timer_new(struct seq_oss_devinfo *dp)
34 {
35 	struct seq_oss_timer *rec;
36 
37 	rec = kzalloc(sizeof(*rec), GFP_KERNEL);
38 	if (rec == NULL)
39 		return NULL;
40 
41 	rec->dp = dp;
42 	rec->cur_tick = 0;
43 	rec->realtime = 0;
44 	rec->running = 0;
45 	rec->oss_tempo = 60;
46 	rec->oss_timebase = 100;
47 	calc_alsa_tempo(rec);
48 
49 	return rec;
50 }
51 
52 
53 /*
54  * delete timer.
55  * if no more timer exists, stop the queue.
56  */
57 void
snd_seq_oss_timer_delete(struct seq_oss_timer * rec)58 snd_seq_oss_timer_delete(struct seq_oss_timer *rec)
59 {
60 	if (rec) {
61 		snd_seq_oss_timer_stop(rec);
62 		kfree(rec);
63 	}
64 }
65 
66 
67 /*
68  * process one timing event
69  * return 1 : event proceseed -- skip this event
70  *        0 : not a timer event -- enqueue this event
71  */
72 int
snd_seq_oss_process_timer_event(struct seq_oss_timer * rec,union evrec * ev)73 snd_seq_oss_process_timer_event(struct seq_oss_timer *rec, union evrec *ev)
74 {
75 	abstime_t parm = ev->t.time;
76 
77 	if (ev->t.code == EV_TIMING) {
78 		switch (ev->t.cmd) {
79 		case TMR_WAIT_REL:
80 			parm += rec->cur_tick;
81 			rec->realtime = 0;
82 			fallthrough;
83 		case TMR_WAIT_ABS:
84 			if (parm == 0) {
85 				rec->realtime = 1;
86 			} else if (parm >= rec->cur_tick) {
87 				rec->realtime = 0;
88 				rec->cur_tick = parm;
89 			}
90 			return 1;	/* skip this event */
91 
92 		case TMR_START:
93 			snd_seq_oss_timer_start(rec);
94 			return 1;
95 
96 		}
97 	} else if (ev->s.code == SEQ_WAIT) {
98 		/* time = from 1 to 3 bytes */
99 		parm = (ev->echo >> 8) & 0xffffff;
100 		if (parm > rec->cur_tick) {
101 			/* set next event time */
102 			rec->cur_tick = parm;
103 			rec->realtime = 0;
104 		}
105 		return 1;
106 	}
107 
108 	return 0;
109 }
110 
111 
112 /*
113  * convert tempo units
114  */
115 static void
calc_alsa_tempo(struct seq_oss_timer * timer)116 calc_alsa_tempo(struct seq_oss_timer *timer)
117 {
118 	timer->tempo = (60 * 1000000) / timer->oss_tempo;
119 	timer->ppq = timer->oss_timebase;
120 }
121 
122 
123 /*
124  * dispatch a timer event
125  */
126 static int
send_timer_event(struct seq_oss_devinfo * dp,int type,int value)127 send_timer_event(struct seq_oss_devinfo *dp, int type, int value)
128 {
129 	struct snd_seq_event ev;
130 
131 	memset(&ev, 0, sizeof(ev));
132 	ev.type = type;
133 	ev.source.client = dp->cseq;
134 	ev.source.port = 0;
135 	ev.dest.client = SNDRV_SEQ_CLIENT_SYSTEM;
136 	ev.dest.port = SNDRV_SEQ_PORT_SYSTEM_TIMER;
137 	ev.queue = dp->queue;
138 	ev.data.queue.queue = dp->queue;
139 	ev.data.queue.param.value = value;
140 	return snd_seq_kernel_client_dispatch(dp->cseq, &ev, 1, 0);
141 }
142 
143 /*
144  * set queue tempo and start queue
145  */
146 int
snd_seq_oss_timer_start(struct seq_oss_timer * timer)147 snd_seq_oss_timer_start(struct seq_oss_timer *timer)
148 {
149 	struct seq_oss_devinfo *dp = timer->dp;
150 	struct snd_seq_queue_tempo tmprec;
151 
152 	if (timer->running)
153 		snd_seq_oss_timer_stop(timer);
154 
155 	memset(&tmprec, 0, sizeof(tmprec));
156 	tmprec.queue = dp->queue;
157 	tmprec.ppq = timer->ppq;
158 	tmprec.tempo = timer->tempo;
159 	snd_seq_set_queue_tempo(dp->cseq, &tmprec);
160 
161 	send_timer_event(dp, SNDRV_SEQ_EVENT_START, 0);
162 	timer->running = 1;
163 	timer->cur_tick = 0;
164 	return 0;
165 }
166 
167 
168 /*
169  * stop queue
170  */
171 int
snd_seq_oss_timer_stop(struct seq_oss_timer * timer)172 snd_seq_oss_timer_stop(struct seq_oss_timer *timer)
173 {
174 	if (! timer->running)
175 		return 0;
176 	send_timer_event(timer->dp, SNDRV_SEQ_EVENT_STOP, 0);
177 	timer->running = 0;
178 	return 0;
179 }
180 
181 
182 /*
183  * continue queue
184  */
185 int
snd_seq_oss_timer_continue(struct seq_oss_timer * timer)186 snd_seq_oss_timer_continue(struct seq_oss_timer *timer)
187 {
188 	if (timer->running)
189 		return 0;
190 	send_timer_event(timer->dp, SNDRV_SEQ_EVENT_CONTINUE, 0);
191 	timer->running = 1;
192 	return 0;
193 }
194 
195 
196 /*
197  * change queue tempo
198  */
199 int
snd_seq_oss_timer_tempo(struct seq_oss_timer * timer,int value)200 snd_seq_oss_timer_tempo(struct seq_oss_timer *timer, int value)
201 {
202 	if (value < MIN_OSS_TEMPO)
203 		value = MIN_OSS_TEMPO;
204 	else if (value > MAX_OSS_TEMPO)
205 		value = MAX_OSS_TEMPO;
206 	timer->oss_tempo = value;
207 	calc_alsa_tempo(timer);
208 	if (timer->running)
209 		send_timer_event(timer->dp, SNDRV_SEQ_EVENT_TEMPO, timer->tempo);
210 	return 0;
211 }
212 
213 
214 /*
215  * ioctls
216  */
217 int
snd_seq_oss_timer_ioctl(struct seq_oss_timer * timer,unsigned int cmd,int __user * arg)218 snd_seq_oss_timer_ioctl(struct seq_oss_timer *timer, unsigned int cmd, int __user *arg)
219 {
220 	int value;
221 
222 	if (cmd == SNDCTL_SEQ_CTRLRATE) {
223 		/* if *arg == 0, just return the current rate */
224 		if (get_user(value, arg))
225 			return -EFAULT;
226 		if (value)
227 			return -EINVAL;
228 		value = ((timer->oss_tempo * timer->oss_timebase) + 30) / 60;
229 		return put_user(value, arg) ? -EFAULT : 0;
230 	}
231 
232 	if (timer->dp->seq_mode == SNDRV_SEQ_OSS_MODE_SYNTH)
233 		return 0;
234 
235 	switch (cmd) {
236 	case SNDCTL_TMR_START:
237 		return snd_seq_oss_timer_start(timer);
238 	case SNDCTL_TMR_STOP:
239 		return snd_seq_oss_timer_stop(timer);
240 	case SNDCTL_TMR_CONTINUE:
241 		return snd_seq_oss_timer_continue(timer);
242 	case SNDCTL_TMR_TEMPO:
243 		if (get_user(value, arg))
244 			return -EFAULT;
245 		return snd_seq_oss_timer_tempo(timer, value);
246 	case SNDCTL_TMR_TIMEBASE:
247 		if (get_user(value, arg))
248 			return -EFAULT;
249 		if (value < MIN_OSS_TIMEBASE)
250 			value = MIN_OSS_TIMEBASE;
251 		else if (value > MAX_OSS_TIMEBASE)
252 			value = MAX_OSS_TIMEBASE;
253 		timer->oss_timebase = value;
254 		calc_alsa_tempo(timer);
255 		return 0;
256 
257 	case SNDCTL_TMR_METRONOME:
258 	case SNDCTL_TMR_SELECT:
259 	case SNDCTL_TMR_SOURCE:
260 		/* not supported */
261 		return 0;
262 	}
263 	return 0;
264 }
265