1// SPDX-License-Identifier: GPL-2.0+
2/*
3 * This is the DECtalk PC speakup driver
4 *
5 * Some constants from DEC's DOS driver:
6 * Copyright (c) by Digital Equipment Corp.
7 *
8 * 386BSD DECtalk PC driver:
9 * Copyright (c) 1996 Brian Buhrow <buhrow@lothlorien.nfbcal.org>
10 *
11 * Linux DECtalk PC driver:
12 * Copyright (c) 1997 Nicolas Pitre <nico@cam.org>
13 *
14 * speakup DECtalk PC Internal driver:
15 * Copyright (c) 2003 David Borowski <david575@golden.net>
16 *
17 * All rights reserved.
18 */
19#include <linux/jiffies.h>
20#include <linux/sched.h>
21#include <linux/timer.h>
22#include <linux/kthread.h>
23
24#include "spk_priv.h"
25#include "speakup.h"
26
27#define MODULE_init 0x0dec /* module in boot code */
28#define MODULE_self_test 0x8800 /* module in self-test */
29#define MODULE_reset 0xffff /* reinit the whole module */
30
31#define MODE_mask 0xf000 /* mode bits in high nibble */
32#define MODE_null 0x0000
33#define MODE_test 0x2000 /* in testing mode */
34#define MODE_status 0x8000
35#define STAT_int 0x0001 /* running in interrupt mode */
36#define STAT_tr_char 0x0002 /* character data to transmit */
37#define STAT_rr_char 0x0004 /* ready to receive char data */
38#define STAT_cmd_ready 0x0008 /* ready to accept commands */
39#define STAT_dma_ready 0x0010 /* dma command ready */
40#define STAT_digitized 0x0020 /* spc in digitized mode */
41#define STAT_new_index 0x0040 /* new last index ready */
42#define STAT_new_status 0x0080 /* new status posted */
43#define STAT_dma_state 0x0100 /* dma state toggle */
44#define STAT_index_valid 0x0200 /* indexs are valid */
45#define STAT_flushing 0x0400 /* flush in progress */
46#define STAT_self_test 0x0800 /* module in self test */
47#define MODE_ready 0xc000 /* module ready for next phase */
48#define READY_boot 0x0000
49#define READY_kernel 0x0001
50#define MODE_error 0xf000
51
52#define CMD_mask 0xf000 /* mask for command nibble */
53#define CMD_null 0x0000 /* post status */
54#define CMD_control 0x1000 /* hard control command */
55#define CTRL_mask 0x0F00 /* mask off control nibble */
56#define CTRL_data 0x00FF /* mask to get data byte */
57#define CTRL_null 0x0000 /* null control */
58#define CTRL_vol_up 0x0100 /* increase volume */
59#define CTRL_vol_down 0x0200 /* decrease volume */
60#define CTRL_vol_set 0x0300 /* set volume */
61#define CTRL_pause 0x0400 /* pause spc */
62#define CTRL_resume 0x0500 /* resume spc clock */
63#define CTRL_resume_spc 0x0001 /* resume spc soft pause */
64#define CTRL_flush 0x0600 /* flush all buffers */
65#define CTRL_int_enable 0x0700 /* enable status change ints */
66#define CTRL_buff_free 0x0800 /* buffer remain count */
67#define CTRL_buff_used 0x0900 /* buffer in use */
68#define CTRL_speech 0x0a00 /* immediate speech change */
69#define CTRL_SP_voice 0x0001 /* voice change */
70#define CTRL_SP_rate 0x0002 /* rate change */
71#define CTRL_SP_comma 0x0003 /* comma pause change */
72#define CTRL_SP_period 0x0004 /* period pause change */
73#define CTRL_SP_rate_delta 0x0005 /* delta rate change */
74#define CTRL_SP_get_param 0x0006 /* return the desired parameter */
75#define CTRL_last_index 0x0b00 /* get last index spoken */
76#define CTRL_io_priority 0x0c00 /* change i/o priority */
77#define CTRL_free_mem 0x0d00 /* get free paragraphs on module */
78#define CTRL_get_lang 0x0e00 /* return bitmask of loaded languages */
79#define CMD_test 0x2000 /* self-test request */
80#define TEST_mask 0x0F00 /* isolate test field */
81#define TEST_null 0x0000 /* no test requested */
82#define TEST_isa_int 0x0100 /* assert isa irq */
83#define TEST_echo 0x0200 /* make data in == data out */
84#define TEST_seg 0x0300 /* set peek/poke segment */
85#define TEST_off 0x0400 /* set peek/poke offset */
86#define TEST_peek 0x0500 /* data out == *peek */
87#define TEST_poke 0x0600 /* *peek == data in */
88#define TEST_sub_code 0x00FF /* user defined test sub codes */
89#define CMD_id 0x3000 /* return software id */
90#define ID_null 0x0000 /* null id */
91#define ID_kernel 0x0100 /* kernel code executing */
92#define ID_boot 0x0200 /* boot code executing */
93#define CMD_dma 0x4000 /* force a dma start */
94#define CMD_reset 0x5000 /* reset module status */
95#define CMD_sync 0x6000 /* kernel sync command */
96#define CMD_char_in 0x7000 /* single character send */
97#define CMD_char_out 0x8000 /* single character get */
98#define CHAR_count_1 0x0100 /* one char in cmd_low */
99#define CHAR_count_2 0x0200 /* the second in data_low */
100#define CHAR_count_3 0x0300 /* the third in data_high */
101#define CMD_spc_mode 0x9000 /* change spc mode */
102#define CMD_spc_to_text 0x0100 /* set to text mode */
103#define CMD_spc_to_digit 0x0200 /* set to digital mode */
104#define CMD_spc_rate 0x0400 /* change spc data rate */
105#define CMD_error 0xf000 /* severe error */
106
107enum { PRIMARY_DIC = 0, USER_DIC, COMMAND_DIC, ABBREV_DIC };
108
109#define DMA_single_in 0x01
110#define DMA_single_out 0x02
111#define DMA_buff_in 0x03
112#define DMA_buff_out 0x04
113#define DMA_control 0x05
114#define DT_MEM_ALLOC 0x03
115#define DT_SET_DIC 0x04
116#define DT_START_TASK 0x05
117#define DT_LOAD_MEM 0x06
118#define DT_READ_MEM 0x07
119#define DT_DIGITAL_IN 0x08
120#define DMA_sync 0x06
121#define DMA_sync_char 0x07
122
123#define DRV_VERSION "2.12"
124#define PROCSPEECH 0x0b
125#define SYNTH_IO_EXTENT 8
126
127static int synth_probe(struct spk_synth *synth);
128static void dtpc_release(struct spk_synth *synth);
129static const char *synth_immediate(struct spk_synth *synth, const char *buf);
130static void do_catch_up(struct spk_synth *synth);
131static void synth_flush(struct spk_synth *synth);
132
133static int synth_portlist[] = { 0x340, 0x350, 0x240, 0x250, 0 };
134static int in_escape, is_flushing;
135static int dt_stat, dma_state;
136
137
138enum default_vars_id {
139 CAPS_START_ID = 0, CAPS_STOP_ID,
140 RATE_ID, PITCH_ID, INFLECTION_ID,
141 VOL_ID, PUNCT_ID, VOICE_ID,
142 DIRECT_ID, V_LAST_VAR_ID,
143 NB_ID,
144};
145
146
147
148static struct var_t vars[NB_ID] = {
149 [CAPS_START_ID] = { CAPS_START, .u.s = {"[:dv ap 200]" } },
150 [CAPS_STOP_ID] = { .var_id: CAPS_STOP, .u.s = {"[:dv ap 100]" } },
151 [RATE_ID] = { .var_id: RATE, .u.n = {"[:ra %d]", 9, 0, 18, 150, 25, NULL } },
152 [PITCH_ID] = { .var_id: PITCH, .u.n = {"[:dv ap %d]", 80, 0, 100, 20, 0, NULL } },
153 [INFLECTION_ID] = { .var_id: INFLECTION, .u.n = {"[:dv pr %d] ", 100, 0, 10000, 0, 0, NULL } },
154 [VOL_ID] = { .var_id: VOL, .u.n = {"[:vo se %d]", 5, 0, 9, 5, 10, NULL } },
155 [PUNCT_ID] = { .var_id: PUNCT, .u.n = {"[:pu %c]", 0, 0, 2, 0, 0, "nsa" } },
156 [VOICE_ID] = { .var_id: VOICE, .u.n = {"[:n%c]", 0, 0, 9, 0, 0, "phfdburwkv" } },
157 [DIRECT_ID] = { .var_id: DIRECT, .u.n = {NULL, 0, 0, 1, 0, 0, NULL } },
158 V_LAST_VAR
159};
160
161/*
162 * These attributes will appear in /sys/accessibility/speakup/decpc.
163 */
164static struct kobj_attribute caps_start_attribute =
165 __ATTR(caps_start, 0644, spk_var_show, spk_var_store);
166static struct kobj_attribute caps_stop_attribute =
167 __ATTR(caps_stop, 0644, spk_var_show, spk_var_store);
168static struct kobj_attribute pitch_attribute =
169 __ATTR(pitch, 0644, spk_var_show, spk_var_store);
170static struct kobj_attribute inflection_attribute =
171 __ATTR(inflection, 0644, spk_var_show, spk_var_store);
172static struct kobj_attribute punct_attribute =
173 __ATTR(punct, 0644, spk_var_show, spk_var_store);
174static struct kobj_attribute rate_attribute =
175 __ATTR(rate, 0644, spk_var_show, spk_var_store);
176static struct kobj_attribute voice_attribute =
177 __ATTR(voice, 0644, spk_var_show, spk_var_store);
178static struct kobj_attribute vol_attribute =
179 __ATTR(vol, 0644, spk_var_show, spk_var_store);
180
181static struct kobj_attribute delay_time_attribute =
182 __ATTR(delay_time, 0644, spk_var_show, spk_var_store);
183static struct kobj_attribute direct_attribute =
184 __ATTR(direct, 0644, spk_var_show, spk_var_store);
185static struct kobj_attribute full_time_attribute =
186 __ATTR(full_time, 0644, spk_var_show, spk_var_store);
187static struct kobj_attribute jiffy_delta_attribute =
188 __ATTR(jiffy_delta, 0644, spk_var_show, spk_var_store);
189static struct kobj_attribute trigger_time_attribute =
190 __ATTR(trigger_time, 0644, spk_var_show, spk_var_store);
191
192/*
193 * Create a group of attributes so that we can create and destroy them all
194 * at once.
195 */
196static struct attribute *synth_attrs[] = {
197 &caps_start_attribute.attr,
198 &caps_stop_attribute.attr,
199 &pitch_attribute.attr,
200 &inflection_attribute.attr,
201 &punct_attribute.attr,
202 &rate_attribute.attr,
203 &voice_attribute.attr,
204 &vol_attribute.attr,
205 &delay_time_attribute.attr,
206 &direct_attribute.attr,
207 &full_time_attribute.attr,
208 &jiffy_delta_attribute.attr,
209 &trigger_time_attribute.attr,
210 NULL, /* need to NULL terminate the list of attributes */
211};
212
213static struct spk_synth synth_dec_pc = {
214 .name = "decpc",
215 .version = DRV_VERSION,
216 .long_name = "Dectalk PC",
217 .init = "[:pe -380]",
218 .procspeech = PROCSPEECH,
219 .delay = 500,
220 .trigger = 50,
221 .jiffies = 50,
222 .full = 1000,
223 .flags = SF_DEC,
224 .startup = SYNTH_START,
225 .checkval = SYNTH_CHECK,
226 .vars = vars,
227 .io_ops = &spk_serial_io_ops,
228 .probe = synth_probe,
229 .release = dtpc_release,
230 .synth_immediate = synth_immediate,
231 .catch_up = do_catch_up,
232 .flush = synth_flush,
233 .is_alive = spk_synth_is_alive_nop,
234 .synth_adjust = NULL,
235 .read_buff_add = NULL,
236 .get_index = NULL,
237 .indexing = {
238 .command = NULL,
239 .lowindex = 0,
240 .highindex = 0,
241 .currindex = 0,
242 },
243 .attributes = {
244 .attrs = synth_attrs,
245 .name = "decpc",
246 },
247};
248
249static int dt_getstatus(void)
250{
251 dt_stat = inb_p(port: speakup_info.port_tts) |
252 (inb_p(port: speakup_info.port_tts + 1) << 8);
253 return dt_stat;
254}
255
256static void dt_sendcmd(u_int cmd)
257{
258 outb_p(value: cmd & 0xFF, port: speakup_info.port_tts);
259 outb_p(value: (cmd >> 8) & 0xFF, port: speakup_info.port_tts + 1);
260}
261
262static int dt_waitbit(int bit)
263{
264 int timeout = 100;
265
266 while (--timeout > 0) {
267 if ((dt_getstatus() & bit) == bit)
268 return 1;
269 udelay(50);
270 }
271 return 0;
272}
273
274static int dt_wait_dma(void)
275{
276 int timeout = 100, state = dma_state;
277
278 if (!dt_waitbit(STAT_dma_ready))
279 return 0;
280 while (--timeout > 0) {
281 if ((dt_getstatus() & STAT_dma_state) == state)
282 return 1;
283 udelay(50);
284 }
285 dma_state = dt_getstatus() & STAT_dma_state;
286 return 1;
287}
288
289static int dt_ctrl(u_int cmd)
290{
291 int timeout = 10;
292
293 if (!dt_waitbit(STAT_cmd_ready))
294 return -1;
295 outb_p(value: 0, port: speakup_info.port_tts + 2);
296 outb_p(value: 0, port: speakup_info.port_tts + 3);
297 dt_getstatus();
298 dt_sendcmd(CMD_control | cmd);
299 outb_p(value: 0, port: speakup_info.port_tts + 6);
300 while (dt_getstatus() & STAT_cmd_ready) {
301 udelay(20);
302 if (--timeout == 0)
303 break;
304 }
305 dt_sendcmd(CMD_null);
306 return 0;
307}
308
309static void synth_flush(struct spk_synth *synth)
310{
311 int timeout = 10;
312
313 if (is_flushing)
314 return;
315 is_flushing = 4;
316 in_escape = 0;
317 while (dt_ctrl(CTRL_flush)) {
318 if (--timeout == 0)
319 break;
320 udelay(50);
321 }
322 for (timeout = 0; timeout < 10; timeout++) {
323 if (dt_waitbit(STAT_dma_ready))
324 break;
325 udelay(50);
326 }
327 outb_p(DMA_sync, port: speakup_info.port_tts + 4);
328 outb_p(value: 0, port: speakup_info.port_tts + 4);
329 udelay(100);
330 for (timeout = 0; timeout < 10; timeout++) {
331 if (!(dt_getstatus() & STAT_flushing))
332 break;
333 udelay(50);
334 }
335 dma_state = dt_getstatus() & STAT_dma_state;
336 dma_state ^= STAT_dma_state;
337 is_flushing = 0;
338}
339
340static int dt_sendchar(char ch)
341{
342 if (!dt_wait_dma())
343 return -1;
344 if (!(dt_stat & STAT_rr_char))
345 return -2;
346 outb_p(DMA_single_in, port: speakup_info.port_tts + 4);
347 outb_p(value: ch, port: speakup_info.port_tts + 4);
348 dma_state ^= STAT_dma_state;
349 return 0;
350}
351
352static int testkernel(void)
353{
354 int status = 0;
355
356 if (dt_getstatus() == 0xffff) {
357 status = -1;
358 goto oops;
359 }
360 dt_sendcmd(CMD_sync);
361 if (!dt_waitbit(STAT_cmd_ready))
362 status = -2;
363 else if (dt_stat & 0x8000)
364 return 0;
365 else if (dt_stat == 0x0dec)
366 pr_warn("dec_pc at 0x%x, software not loaded\n",
367 speakup_info.port_tts);
368 status = -3;
369oops: synth_release_region(start: speakup_info.port_tts, SYNTH_IO_EXTENT);
370 speakup_info.port_tts = 0;
371 return status;
372}
373
374static void do_catch_up(struct spk_synth *synth)
375{
376 u_char ch;
377 static u_char last;
378 unsigned long flags;
379 unsigned long jiff_max;
380 struct var_t *jiffy_delta;
381 struct var_t *delay_time;
382 int jiffy_delta_val;
383 int delay_time_val;
384
385 jiffy_delta = spk_get_var(var_id: JIFFY);
386 delay_time = spk_get_var(var_id: DELAY);
387 spin_lock_irqsave(&speakup_info.spinlock, flags);
388 jiffy_delta_val = jiffy_delta->u.n.value;
389 spin_unlock_irqrestore(lock: &speakup_info.spinlock, flags);
390 jiff_max = jiffies + jiffy_delta_val;
391
392 while (!kthread_should_stop()) {
393 spin_lock_irqsave(&speakup_info.spinlock, flags);
394 if (speakup_info.flushing) {
395 speakup_info.flushing = 0;
396 spin_unlock_irqrestore(lock: &speakup_info.spinlock, flags);
397 synth->flush(synth);
398 continue;
399 }
400 synth_buffer_skip_nonlatin1();
401 if (synth_buffer_empty()) {
402 spin_unlock_irqrestore(lock: &speakup_info.spinlock, flags);
403 break;
404 }
405 ch = synth_buffer_peek();
406 set_current_state(TASK_INTERRUPTIBLE);
407 delay_time_val = delay_time->u.n.value;
408 spin_unlock_irqrestore(lock: &speakup_info.spinlock, flags);
409 if (ch == '\n')
410 ch = 0x0D;
411 if (dt_sendchar(ch)) {
412 schedule_timeout(timeout: msecs_to_jiffies(m: delay_time_val));
413 continue;
414 }
415 set_current_state(TASK_RUNNING);
416 spin_lock_irqsave(&speakup_info.spinlock, flags);
417 synth_buffer_getc();
418 spin_unlock_irqrestore(lock: &speakup_info.spinlock, flags);
419 if (ch == '[') {
420 in_escape = 1;
421 } else if (ch == ']') {
422 in_escape = 0;
423 } else if (ch <= SPACE) {
424 if (!in_escape && strchr(",.!?;:", last))
425 dt_sendchar(PROCSPEECH);
426 if (time_after_eq(jiffies, jiff_max)) {
427 if (!in_escape)
428 dt_sendchar(PROCSPEECH);
429 spin_lock_irqsave(&speakup_info.spinlock,
430 flags);
431 jiffy_delta_val = jiffy_delta->u.n.value;
432 delay_time_val = delay_time->u.n.value;
433 spin_unlock_irqrestore(lock: &speakup_info.spinlock,
434 flags);
435 schedule_timeout(timeout: msecs_to_jiffies
436 (m: delay_time_val));
437 jiff_max = jiffies + jiffy_delta_val;
438 }
439 }
440 last = ch;
441 ch = 0;
442 }
443 if (!in_escape)
444 dt_sendchar(PROCSPEECH);
445}
446
447static const char *synth_immediate(struct spk_synth *synth, const char *buf)
448{
449 u_char ch;
450
451 while ((ch = *buf)) {
452 if (ch == '\n')
453 ch = PROCSPEECH;
454 if (dt_sendchar(ch))
455 return buf;
456 buf++;
457 }
458 return NULL;
459}
460
461static int synth_probe(struct spk_synth *synth)
462{
463 int i = 0, failed = 0;
464
465 pr_info("Probing for %s.\n", synth->long_name);
466 for (i = 0; synth_portlist[i]; i++) {
467 if (synth_request_region(start: synth_portlist[i], SYNTH_IO_EXTENT)) {
468 pr_warn("request_region: failed with 0x%x, %d\n",
469 synth_portlist[i], SYNTH_IO_EXTENT);
470 continue;
471 }
472 speakup_info.port_tts = synth_portlist[i];
473 failed = testkernel();
474 if (failed == 0)
475 break;
476 }
477 if (failed) {
478 pr_info("%s: not found\n", synth->long_name);
479 return -ENODEV;
480 }
481 pr_info("%s: %03x-%03x, Driver Version %s,\n", synth->long_name,
482 speakup_info.port_tts, speakup_info.port_tts + 7,
483 synth->version);
484 synth->alive = 1;
485 return 0;
486}
487
488static void dtpc_release(struct spk_synth *synth)
489{
490 spk_stop_serial_interrupt();
491 if (speakup_info.port_tts)
492 synth_release_region(start: speakup_info.port_tts, SYNTH_IO_EXTENT);
493 speakup_info.port_tts = 0;
494}
495
496module_param_named(start, synth_dec_pc.startup, short, 0444);
497module_param_named(rate, vars[RATE_ID].u.n.default_val, int, 0444);
498module_param_named(pitch, vars[PITCH_ID].u.n.default_val, int, 0444);
499module_param_named(inflection, vars[INFLECTION_ID].u.n.default_val, int, 0444);
500module_param_named(vol, vars[VOL_ID].u.n.default_val, int, 0444);
501module_param_named(punct, vars[PUNCT_ID].u.n.default_val, int, 0444);
502module_param_named(voice, vars[VOICE_ID].u.n.default_val, int, 0444);
503module_param_named(direct, vars[DIRECT_ID].u.n.default_val, int, 0444);
504
505
506
507
508MODULE_PARM_DESC(start, "Start the synthesizer once it is loaded.");
509MODULE_PARM_DESC(rate, "Set the rate variable on load.");
510MODULE_PARM_DESC(pitch, "Set the pitch variable on load.");
511MODULE_PARM_DESC(inflection, "Set the inflection variable on load.");
512MODULE_PARM_DESC(vol, "Set the vol variable on load.");
513MODULE_PARM_DESC(punct, "Set the punct variable on load.");
514MODULE_PARM_DESC(voice, "Set the voice variable on load.");
515MODULE_PARM_DESC(direct, "Set the direct variable on load.");
516
517module_spk_synth(synth_dec_pc);
518
519MODULE_AUTHOR("Kirk Reiser <kirk@braille.uwo.ca>");
520MODULE_AUTHOR("David Borowski");
521MODULE_DESCRIPTION("Speakup support for DECtalk PC synthesizers");
522MODULE_LICENSE("GPL");
523MODULE_VERSION(DRV_VERSION);
524

source code of linux/drivers/accessibility/speakup/speakup_decpc.c