1 // SPDX-License-Identifier: GPL-2.0+
2 /*
3  * originally written by: Kirk Reiser <kirk@braille.uwo.ca>
4  * this version considerably modified by David Borowski, david575@rogers.com
5  *
6  * Copyright (C) 1998-99  Kirk Reiser.
7  * Copyright (C) 2003 David Borowski.
8  *
9  * specifically written as a driver for the speakup screenreview
10  * s not a general device driver.
11  */
12 #include <linux/unistd.h>
13 #include <linux/proc_fs.h>
14 #include <linux/jiffies.h>
15 #include <linux/spinlock.h>
16 #include <linux/sched.h>
17 #include <linux/timer.h>
18 #include <linux/kthread.h>
19 #include "speakup.h"
20 #include "spk_priv.h"
21 
22 #define DRV_VERSION "2.20"
23 #define SYNTH_CLEAR 0x03
24 #define PROCSPEECH 0x0b
25 static int xoff;
26 
synth_full(void)27 static inline int synth_full(void)
28 {
29 	return xoff;
30 }
31 
32 static void do_catch_up(struct spk_synth *synth);
33 static void synth_flush(struct spk_synth *synth);
34 static void read_buff_add(u_char c);
35 static unsigned char get_index(struct spk_synth *synth);
36 
37 static int in_escape;
38 static int is_flushing;
39 
40 static DEFINE_SPINLOCK(flush_lock);
41 static DECLARE_WAIT_QUEUE_HEAD(flush);
42 
43 enum default_vars_id {
44 	CAPS_START_ID = 0, CAPS_STOP_ID,
45 	RATE_ID, PITCH_ID, INFLECTION_ID,
46 	VOL_ID, PUNCT_ID, VOICE_ID,
47 	DIRECT_ID, V_LAST_VAR_ID,
48 	NB_ID,
49 };
50 
51 static struct var_t vars[NB_ID] = {
52 	[CAPS_START_ID] = { CAPS_START, .u.s = {"[:dv ap 160] " } },
53 	[CAPS_STOP_ID] = { CAPS_STOP, .u.s = {"[:dv ap 100 ] " } },
54 	[RATE_ID] = { RATE, .u.n = {"[:ra %d] ", 180, 75, 650, 0, 0, NULL } },
55 	[PITCH_ID] = { PITCH, .u.n = {"[:dv ap %d] ", 122, 50, 350, 0, 0, NULL } },
56 	[INFLECTION_ID] = { INFLECTION, .u.n = {"[:dv pr %d] ", 100, 0, 10000, 0, 0, NULL } },
57 	[VOL_ID] = { VOL, .u.n = {"[:dv g5 %d] ", 86, 60, 86, 0, 0, NULL } },
58 	[PUNCT_ID] = { PUNCT, .u.n = {"[:pu %c] ", 0, 0, 2, 0, 0, "nsa" } },
59 	[VOICE_ID] = { VOICE, .u.n = {"[:n%c] ", 0, 0, 9, 0, 0, "phfdburwkv" } },
60 	[DIRECT_ID] = { DIRECT, .u.n = {NULL, 0, 0, 1, 0, 0, NULL } },
61 	V_LAST_VAR
62 };
63 
64 /*
65  * These attributes will appear in /sys/accessibility/speakup/dectlk.
66  */
67 static struct kobj_attribute caps_start_attribute =
68 	__ATTR(caps_start, 0644, spk_var_show, spk_var_store);
69 static struct kobj_attribute caps_stop_attribute =
70 	__ATTR(caps_stop, 0644, spk_var_show, spk_var_store);
71 static struct kobj_attribute pitch_attribute =
72 	__ATTR(pitch, 0644, spk_var_show, spk_var_store);
73 static struct kobj_attribute inflection_attribute =
74 	__ATTR(inflection, 0644, spk_var_show, spk_var_store);
75 static struct kobj_attribute punct_attribute =
76 	__ATTR(punct, 0644, spk_var_show, spk_var_store);
77 static struct kobj_attribute rate_attribute =
78 	__ATTR(rate, 0644, spk_var_show, spk_var_store);
79 static struct kobj_attribute voice_attribute =
80 	__ATTR(voice, 0644, spk_var_show, spk_var_store);
81 static struct kobj_attribute vol_attribute =
82 	__ATTR(vol, 0644, spk_var_show, spk_var_store);
83 
84 static struct kobj_attribute delay_time_attribute =
85 	__ATTR(delay_time, 0644, spk_var_show, spk_var_store);
86 static struct kobj_attribute direct_attribute =
87 	__ATTR(direct, 0644, spk_var_show, spk_var_store);
88 static struct kobj_attribute full_time_attribute =
89 	__ATTR(full_time, 0644, spk_var_show, spk_var_store);
90 static struct kobj_attribute flush_time_attribute =
91 	__ATTR(flush_time, 0644, spk_var_show, spk_var_store);
92 static struct kobj_attribute jiffy_delta_attribute =
93 	__ATTR(jiffy_delta, 0644, spk_var_show, spk_var_store);
94 static struct kobj_attribute trigger_time_attribute =
95 	__ATTR(trigger_time, 0644, spk_var_show, spk_var_store);
96 
97 /*
98  * Create a group of attributes so that we can create and destroy them all
99  * at once.
100  */
101 static struct attribute *synth_attrs[] = {
102 	&caps_start_attribute.attr,
103 	&caps_stop_attribute.attr,
104 	&pitch_attribute.attr,
105 	&inflection_attribute.attr,
106 	&punct_attribute.attr,
107 	&rate_attribute.attr,
108 	&voice_attribute.attr,
109 	&vol_attribute.attr,
110 	&delay_time_attribute.attr,
111 	&direct_attribute.attr,
112 	&full_time_attribute.attr,
113 	&flush_time_attribute.attr,
114 	&jiffy_delta_attribute.attr,
115 	&trigger_time_attribute.attr,
116 	NULL,	/* need to NULL terminate the list of attributes */
117 };
118 
119 static int ap_defaults[] = {122, 89, 155, 110, 208, 240, 200, 106, 306};
120 static int g5_defaults[] = {86, 81, 86, 84, 81, 80, 83, 83, 73};
121 
122 static struct spk_synth synth_dectlk = {
123 	.name = "dectlk",
124 	.version = DRV_VERSION,
125 	.long_name = "Dectalk Express",
126 	.init = "[:error sp :name paul :rate 180 :tsr off] ",
127 	.procspeech = PROCSPEECH,
128 	.clear = SYNTH_CLEAR,
129 	.delay = 500,
130 	.trigger = 50,
131 	.jiffies = 50,
132 	.full = 40000,
133 	.flush_time = 4000,
134 	.dev_name = SYNTH_DEFAULT_DEV,
135 	.startup = SYNTH_START,
136 	.checkval = SYNTH_CHECK,
137 	.vars = vars,
138 	.default_pitch = ap_defaults,
139 	.default_vol = g5_defaults,
140 	.io_ops = &spk_ttyio_ops,
141 	.probe = spk_ttyio_synth_probe,
142 	.release = spk_ttyio_release,
143 	.synth_immediate = spk_ttyio_synth_immediate,
144 	.catch_up = do_catch_up,
145 	.flush = synth_flush,
146 	.is_alive = spk_synth_is_alive_restart,
147 	.synth_adjust = NULL,
148 	.read_buff_add = read_buff_add,
149 	.get_index = get_index,
150 	.indexing = {
151 		.command = "[:in re %d ] ",
152 		.lowindex = 1,
153 		.highindex = 8,
154 		.currindex = 1,
155 	},
156 	.attributes = {
157 		.attrs = synth_attrs,
158 		.name = "dectlk",
159 	},
160 };
161 
is_indnum(u_char * ch)162 static int is_indnum(u_char *ch)
163 {
164 	if ((*ch >= '0') && (*ch <= '9')) {
165 		*ch = *ch - '0';
166 		return 1;
167 	}
168 	return 0;
169 }
170 
171 static u_char lastind;
172 
get_index(struct spk_synth * synth)173 static unsigned char get_index(struct spk_synth *synth)
174 {
175 	u_char rv;
176 
177 	rv = lastind;
178 	lastind = 0;
179 	return rv;
180 }
181 
read_buff_add(u_char c)182 static void read_buff_add(u_char c)
183 {
184 	static int ind = -1;
185 
186 	if (c == 0x01) {
187 		unsigned long flags;
188 
189 		spin_lock_irqsave(&flush_lock, flags);
190 		is_flushing = 0;
191 		wake_up_interruptible(&flush);
192 		spin_unlock_irqrestore(&flush_lock, flags);
193 	} else if (c == 0x13) {
194 		xoff = 1;
195 	} else if (c == 0x11) {
196 		xoff = 0;
197 	} else if (is_indnum(&c)) {
198 		if (ind == -1)
199 			ind = c;
200 		else
201 			ind = ind * 10 + c;
202 	} else if ((c > 31) && (c < 127)) {
203 		if (ind != -1)
204 			lastind = (u_char)ind;
205 		ind = -1;
206 	}
207 }
208 
do_catch_up(struct spk_synth * synth)209 static void do_catch_up(struct spk_synth *synth)
210 {
211 	int synth_full_val = 0;
212 	static u_char ch;
213 	static u_char last = '\0';
214 	unsigned long flags;
215 	unsigned long jiff_max;
216 	unsigned long timeout;
217 	DEFINE_WAIT(wait);
218 	struct var_t *jiffy_delta;
219 	struct var_t *delay_time;
220 	struct var_t *flush_time;
221 	int jiffy_delta_val;
222 	int delay_time_val;
223 	int timeout_val;
224 
225 	jiffy_delta = spk_get_var(JIFFY);
226 	delay_time = spk_get_var(DELAY);
227 	flush_time = spk_get_var(FLUSH);
228 	spin_lock_irqsave(&speakup_info.spinlock, flags);
229 	jiffy_delta_val = jiffy_delta->u.n.value;
230 	timeout_val = flush_time->u.n.value;
231 	spin_unlock_irqrestore(&speakup_info.spinlock, flags);
232 	timeout = msecs_to_jiffies(timeout_val);
233 	jiff_max = jiffies + jiffy_delta_val;
234 
235 	while (!kthread_should_stop()) {
236 		/* if no ctl-a in 4, send data anyway */
237 		spin_lock_irqsave(&flush_lock, flags);
238 		while (is_flushing && timeout) {
239 			prepare_to_wait(&flush, &wait, TASK_INTERRUPTIBLE);
240 			spin_unlock_irqrestore(&flush_lock, flags);
241 			timeout = schedule_timeout(timeout);
242 			spin_lock_irqsave(&flush_lock, flags);
243 		}
244 		finish_wait(&flush, &wait);
245 		is_flushing = 0;
246 		spin_unlock_irqrestore(&flush_lock, flags);
247 
248 		spin_lock_irqsave(&speakup_info.spinlock, flags);
249 		if (speakup_info.flushing) {
250 			speakup_info.flushing = 0;
251 			spin_unlock_irqrestore(&speakup_info.spinlock, flags);
252 			synth->flush(synth);
253 			continue;
254 		}
255 		synth_buffer_skip_nonlatin1();
256 		if (synth_buffer_empty()) {
257 			spin_unlock_irqrestore(&speakup_info.spinlock, flags);
258 			break;
259 		}
260 		ch = synth_buffer_peek();
261 		set_current_state(TASK_INTERRUPTIBLE);
262 		delay_time_val = delay_time->u.n.value;
263 		synth_full_val = synth_full();
264 		spin_unlock_irqrestore(&speakup_info.spinlock, flags);
265 		if (ch == '\n')
266 			ch = 0x0D;
267 		if (synth_full_val || !synth->io_ops->synth_out(synth, ch)) {
268 			schedule_timeout(msecs_to_jiffies(delay_time_val));
269 			continue;
270 		}
271 		set_current_state(TASK_RUNNING);
272 		spin_lock_irqsave(&speakup_info.spinlock, flags);
273 		synth_buffer_getc();
274 		spin_unlock_irqrestore(&speakup_info.spinlock, flags);
275 		if (ch == '[') {
276 			in_escape = 1;
277 		} else if (ch == ']') {
278 			in_escape = 0;
279 		} else if (ch <= SPACE) {
280 			if (!in_escape && strchr(",.!?;:", last))
281 				synth->io_ops->synth_out(synth, PROCSPEECH);
282 			if (time_after_eq(jiffies, jiff_max)) {
283 				if (!in_escape)
284 					synth->io_ops->synth_out(synth,
285 								 PROCSPEECH);
286 				spin_lock_irqsave(&speakup_info.spinlock,
287 						  flags);
288 				jiffy_delta_val = jiffy_delta->u.n.value;
289 				delay_time_val = delay_time->u.n.value;
290 				spin_unlock_irqrestore(&speakup_info.spinlock,
291 						       flags);
292 				schedule_timeout(msecs_to_jiffies
293 						 (delay_time_val));
294 				jiff_max = jiffies + jiffy_delta_val;
295 			}
296 		}
297 		last = ch;
298 	}
299 	if (!in_escape)
300 		synth->io_ops->synth_out(synth, PROCSPEECH);
301 }
302 
synth_flush(struct spk_synth * synth)303 static void synth_flush(struct spk_synth *synth)
304 {
305 	if (in_escape)
306 		/* if in command output ']' so we don't get an error */
307 		synth->io_ops->synth_out(synth, ']');
308 	in_escape = 0;
309 	is_flushing = 1;
310 	synth->io_ops->flush_buffer(synth);
311 	synth->io_ops->synth_out(synth, SYNTH_CLEAR);
312 }
313 
314 module_param_named(ser, synth_dectlk.ser, int, 0444);
315 module_param_named(dev, synth_dectlk.dev_name, charp, 0444);
316 module_param_named(start, synth_dectlk.startup, short, 0444);
317 module_param_named(rate, vars[RATE_ID].u.n.default_val, int, 0444);
318 module_param_named(pitch, vars[PITCH_ID].u.n.default_val, int, 0444);
319 module_param_named(inflection, vars[INFLECTION_ID].u.n.default_val, int, 0444);
320 module_param_named(vol, vars[VOL_ID].u.n.default_val, int, 0444);
321 module_param_named(punct, vars[PUNCT_ID].u.n.default_val, int, 0444);
322 module_param_named(voice, vars[VOICE_ID].u.n.default_val, int, 0444);
323 module_param_named(direct, vars[DIRECT_ID].u.n.default_val, int, 0444);
324 
325 
326 
327 MODULE_PARM_DESC(ser, "Set the serial port for the synthesizer (0-based).");
328 MODULE_PARM_DESC(dev, "Set the device e.g. ttyUSB0, for the synthesizer.");
329 MODULE_PARM_DESC(start, "Start the synthesizer once it is loaded.");
330 MODULE_PARM_DESC(rate, "Set the rate variable on load.");
331 MODULE_PARM_DESC(pitch, "Set the pitch variable on load.");
332 MODULE_PARM_DESC(inflection, "Set the inflection variable on load.");
333 MODULE_PARM_DESC(vol, "Set the vol variable on load.");
334 MODULE_PARM_DESC(punct, "Set the punct variable on load.");
335 MODULE_PARM_DESC(voice, "Set the voice variable on load.");
336 MODULE_PARM_DESC(direct, "Set the direct variable on load.");
337 
338 
339 module_spk_synth(synth_dectlk);
340 
341 MODULE_AUTHOR("Kirk Reiser <kirk@braille.uwo.ca>");
342 MODULE_AUTHOR("David Borowski");
343 MODULE_DESCRIPTION("Speakup support for DECtalk Express synthesizers");
344 MODULE_LICENSE("GPL");
345 MODULE_VERSION(DRV_VERSION);
346 
347