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 * |
33 | snd_seq_oss_timer_new(struct seq_oss_devinfo *dp) |
34 | { |
35 | struct seq_oss_timer *rec; |
36 | |
37 | rec = kzalloc(size: 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(timer: rec); |
48 | |
49 | return rec; |
50 | } |
51 | |
52 | |
53 | /* |
54 | * delete timer. |
55 | * if no more timer exists, stop the queue. |
56 | */ |
57 | void |
58 | snd_seq_oss_timer_delete(struct seq_oss_timer *rec) |
59 | { |
60 | if (rec) { |
61 | snd_seq_oss_timer_stop(timer: rec); |
62 | kfree(objp: 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 |
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(timer: 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 |
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 |
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(client: dp->cseq, ev: &ev, atomic: 1, hop: 0); |
141 | } |
142 | |
143 | /* |
144 | * set queue tempo and start queue |
145 | */ |
146 | int |
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(client: dp->cseq, tempo: &tmprec); |
160 | |
161 | send_timer_event(dp, SNDRV_SEQ_EVENT_START, value: 0); |
162 | timer->running = 1; |
163 | timer->cur_tick = 0; |
164 | return 0; |
165 | } |
166 | |
167 | |
168 | /* |
169 | * stop queue |
170 | */ |
171 | int |
172 | snd_seq_oss_timer_stop(struct seq_oss_timer *timer) |
173 | { |
174 | if (! timer->running) |
175 | return 0; |
176 | send_timer_event(dp: timer->dp, SNDRV_SEQ_EVENT_STOP, value: 0); |
177 | timer->running = 0; |
178 | return 0; |
179 | } |
180 | |
181 | |
182 | /* |
183 | * continue queue |
184 | */ |
185 | int |
186 | snd_seq_oss_timer_continue(struct seq_oss_timer *timer) |
187 | { |
188 | if (timer->running) |
189 | return 0; |
190 | send_timer_event(dp: timer->dp, SNDRV_SEQ_EVENT_CONTINUE, value: 0); |
191 | timer->running = 1; |
192 | return 0; |
193 | } |
194 | |
195 | |
196 | /* |
197 | * change queue tempo |
198 | */ |
199 | int |
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(dp: timer->dp, SNDRV_SEQ_EVENT_TEMPO, value: timer->tempo); |
210 | return 0; |
211 | } |
212 | |
213 | |
214 | /* |
215 | * ioctls |
216 | */ |
217 | int |
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 | |