1  // SPDX-License-Identifier: GPL-2.0
2  #include <linux/ctype.h>
3  #include "spk_types.h"
4  #include "spk_priv.h"
5  #include "speakup.h"
6  
7  static struct st_var_header var_headers[] = {
8  	{ "version", VERSION, VAR_PROC, NULL, NULL },
9  	{ "synth_name", SYNTH, VAR_PROC, NULL, NULL },
10  	{ "keymap", KEYMAP, VAR_PROC, NULL, NULL },
11  	{ "silent", SILENT, VAR_PROC, NULL, NULL },
12  	{ "punc_some", PUNC_SOME, VAR_PROC, NULL, NULL },
13  	{ "punc_most", PUNC_MOST, VAR_PROC, NULL, NULL },
14  	{ "punc_all", PUNC_ALL, VAR_PROC, NULL, NULL },
15  	{ "delimiters", DELIM, VAR_PROC, NULL, NULL },
16  	{ "repeats", REPEATS, VAR_PROC, NULL, NULL },
17  	{ "ex_num", EXNUMBER, VAR_PROC, NULL, NULL },
18  	{ "characters", CHARS, VAR_PROC, NULL, NULL },
19  	{ "synth_direct", SYNTH_DIRECT, VAR_PROC, NULL, NULL },
20  	{ "caps_start", CAPS_START, VAR_STRING, spk_str_caps_start, NULL },
21  	{ "caps_stop", CAPS_STOP, VAR_STRING, spk_str_caps_stop, NULL },
22  	{ "delay_time", DELAY, VAR_TIME, NULL, NULL },
23  	{ "trigger_time", TRIGGER, VAR_TIME, NULL, NULL },
24  	{ "jiffy_delta", JIFFY, VAR_TIME, NULL, NULL },
25  	{ "full_time", FULL, VAR_TIME, NULL, NULL },
26  	{ "flush_time", FLUSH, VAR_TIME, NULL, NULL },
27  	{ "spell_delay", SPELL_DELAY, VAR_NUM, &spk_spell_delay, NULL },
28  	{ "bleeps", BLEEPS, VAR_NUM, &spk_bleeps, NULL },
29  	{ "attrib_bleep", ATTRIB_BLEEP, VAR_NUM, &spk_attrib_bleep, NULL },
30  	{ "bleep_time", BLEEP_TIME, VAR_TIME, &spk_bleep_time, NULL },
31  	{ "cursor_time", CURSOR_TIME, VAR_TIME, NULL, NULL },
32  	{ "punc_level", PUNC_LEVEL, VAR_NUM, &spk_punc_level, NULL },
33  	{ "reading_punc", READING_PUNC, VAR_NUM, &spk_reading_punc, NULL },
34  	{ "say_control", SAY_CONTROL, VAR_NUM, &spk_say_ctrl, NULL },
35  	{ "say_word_ctl", SAY_WORD_CTL, VAR_NUM, &spk_say_word_ctl, NULL },
36  	{ "no_interrupt", NO_INTERRUPT, VAR_NUM, &spk_no_intr, NULL },
37  	{ "key_echo", KEY_ECHO, VAR_NUM, &spk_key_echo, NULL },
38  	{ "bell_pos", BELL_POS, VAR_NUM, &spk_bell_pos, NULL },
39  	{ "rate", RATE, VAR_NUM, NULL, NULL },
40  	{ "pitch", PITCH, VAR_NUM, NULL, NULL },
41  	{ "inflection", INFLECTION, VAR_NUM, NULL, NULL },
42  	{ "vol", VOL, VAR_NUM, NULL, NULL },
43  	{ "tone", TONE, VAR_NUM, NULL, NULL },
44  	{ "punct", PUNCT, VAR_NUM, NULL, NULL   },
45  	{ "voice", VOICE, VAR_NUM, NULL, NULL },
46  	{ "freq", FREQUENCY, VAR_NUM, NULL, NULL },
47  	{ "lang", LANG, VAR_NUM, NULL, NULL },
48  	{ "chartab", CHARTAB, VAR_PROC, NULL, NULL },
49  	{ "direct", DIRECT, VAR_NUM, NULL, NULL },
50  	{ "pause", PAUSE, VAR_STRING, spk_str_pause, NULL },
51  	{ "cur_phonetic", CUR_PHONETIC, VAR_NUM, &spk_cur_phonetic, NULL },
52  };
53  
54  static struct st_var_header *var_ptrs[MAXVARS] = { NULL, NULL, NULL };
55  
56  static struct punc_var_t punc_vars[] = {
57  	{ PUNC_SOME, 1 },
58  	{ PUNC_MOST, 2 },
59  	{ PUNC_ALL, 3 },
60  	{ DELIM, 4 },
61  	{ REPEATS, 5 },
62  	{ EXNUMBER, 6 },
63  	{ -1, -1 },
64  };
65  
spk_chartab_get_value(char * keyword)66  int spk_chartab_get_value(char *keyword)
67  {
68  	int value = 0;
69  
70  	if (!strcmp(keyword, "ALPHA"))
71  		value = ALPHA;
72  	else if (!strcmp(keyword, "B_CTL"))
73  		value = B_CTL;
74  	else if (!strcmp(keyword, "WDLM"))
75  		value = WDLM;
76  	else if (!strcmp(keyword, "A_PUNC"))
77  		value = A_PUNC;
78  	else if (!strcmp(keyword, "PUNC"))
79  		value = PUNC;
80  	else if (!strcmp(keyword, "NUM"))
81  		value = NUM;
82  	else if (!strcmp(keyword, "A_CAP"))
83  		value = A_CAP;
84  	else if (!strcmp(keyword, "B_CAPSYM"))
85  		value = B_CAPSYM;
86  	else if (!strcmp(keyword, "B_SYM"))
87  		value = B_SYM;
88  	return value;
89  }
90  
speakup_register_var(struct var_t * var)91  void speakup_register_var(struct var_t *var)
92  {
93  	static char nothing[2] = "\0";
94  	int i;
95  	struct st_var_header *p_header;
96  
97  	BUG_ON(!var || var->var_id < 0 || var->var_id >= MAXVARS);
98  	if (!var_ptrs[0]) {
99  		for (i = 0; i < MAXVARS; i++) {
100  			p_header = &var_headers[i];
101  			var_ptrs[p_header->var_id] = p_header;
102  			p_header->data = NULL;
103  		}
104  	}
105  	p_header = var_ptrs[var->var_id];
106  	if (p_header->data)
107  		return;
108  	p_header->data = var;
109  	switch (p_header->var_type) {
110  	case VAR_STRING:
111  		spk_set_string_var(nothing, p_header, 0);
112  		break;
113  	case VAR_NUM:
114  	case VAR_TIME:
115  		spk_set_num_var(0, p_header, E_DEFAULT);
116  		break;
117  	default:
118  		break;
119  	}
120  }
121  
speakup_unregister_var(enum var_id_t var_id)122  void speakup_unregister_var(enum var_id_t var_id)
123  {
124  	struct st_var_header *p_header;
125  
126  	BUG_ON(var_id < 0 || var_id >= MAXVARS);
127  	p_header = var_ptrs[var_id];
128  	p_header->data = NULL;
129  }
130  
spk_get_var_header(enum var_id_t var_id)131  struct st_var_header *spk_get_var_header(enum var_id_t var_id)
132  {
133  	struct st_var_header *p_header;
134  
135  	if (var_id < 0 || var_id >= MAXVARS)
136  		return NULL;
137  	p_header = var_ptrs[var_id];
138  	if (!p_header->data)
139  		return NULL;
140  	return p_header;
141  }
142  EXPORT_SYMBOL_GPL(spk_get_var_header);
143  
spk_var_header_by_name(const char * name)144  struct st_var_header *spk_var_header_by_name(const char *name)
145  {
146  	int i;
147  
148  	if (!name)
149  		return NULL;
150  
151  	for (i = 0; i < MAXVARS; i++) {
152  		if (strcmp(name, var_ptrs[i]->name) == 0)
153  			return var_ptrs[i];
154  	}
155  	return NULL;
156  }
157  
spk_get_var(enum var_id_t var_id)158  struct var_t *spk_get_var(enum var_id_t var_id)
159  {
160  	BUG_ON(var_id < 0 || var_id >= MAXVARS);
161  	BUG_ON(!var_ptrs[var_id]);
162  	return var_ptrs[var_id]->data;
163  }
164  EXPORT_SYMBOL_GPL(spk_get_var);
165  
spk_get_punc_var(enum var_id_t var_id)166  struct punc_var_t *spk_get_punc_var(enum var_id_t var_id)
167  {
168  	struct punc_var_t *rv = NULL;
169  	struct punc_var_t *where;
170  
171  	where = punc_vars;
172  	while ((where->var_id != -1) && (!rv)) {
173  		if (where->var_id == var_id)
174  			rv = where;
175  		else
176  			where++;
177  	}
178  	return rv;
179  }
180  
181  /* handlers for setting vars */
spk_set_num_var(int input,struct st_var_header * var,int how)182  int spk_set_num_var(int input, struct st_var_header *var, int how)
183  {
184  	int val;
185  	int *p_val = var->p_val;
186  	char buf[32];
187  	char *cp;
188  	struct var_t *var_data = var->data;
189  
190  	if (!var_data)
191  		return -ENODATA;
192  
193  	val = var_data->u.n.value;
194  	switch (how) {
195  	case E_NEW_DEFAULT:
196  		if (input < var_data->u.n.low || input > var_data->u.n.high)
197  			return -ERANGE;
198  		var_data->u.n.default_val = input;
199  		return 0;
200  	case E_DEFAULT:
201  		val = var_data->u.n.default_val;
202  		break;
203  	case E_SET:
204  		val = input;
205  		break;
206  	case E_INC:
207  		val += input;
208  		break;
209  	case E_DEC:
210  		val -= input;
211  		break;
212  	}
213  
214  	if (val < var_data->u.n.low || val > var_data->u.n.high)
215  		return -ERANGE;
216  
217  	var_data->u.n.value = val;
218  	if (var->var_type == VAR_TIME && p_val) {
219  		*p_val = msecs_to_jiffies(val);
220  		return 0;
221  	}
222  	if (p_val)
223  		*p_val = val;
224  	if (var->var_id == PUNC_LEVEL) {
225  		spk_punc_mask = spk_punc_masks[val];
226  	}
227  	if (var_data->u.n.multiplier != 0)
228  		val *= var_data->u.n.multiplier;
229  	val += var_data->u.n.offset;
230  
231  	if (!synth)
232  		return 0;
233  	if (synth->synth_adjust && synth->synth_adjust(synth, var))
234  		return 0;
235  	if (var->var_id < FIRST_SYNTH_VAR)
236  		return 0;
237  
238  	if (!var_data->u.n.synth_fmt)
239  		return 0;
240  	if (var->var_id == PITCH)
241  		cp = spk_pitch_buff;
242  	else
243  		cp = buf;
244  	if (!var_data->u.n.out_str)
245  		sprintf(cp, var_data->u.n.synth_fmt, (int)val);
246  	else
247  		sprintf(cp, var_data->u.n.synth_fmt,
248  			var_data->u.n.out_str[val]);
249  	synth_printf("%s", cp);
250  	return 0;
251  }
252  EXPORT_SYMBOL_GPL(spk_set_num_var);
253  
spk_set_string_var(const char * page,struct st_var_header * var,int len)254  int spk_set_string_var(const char *page, struct st_var_header *var, int len)
255  {
256  	struct var_t *var_data = var->data;
257  
258  	if (!var_data)
259  		return -ENODATA;
260  	if (len > MAXVARLEN)
261  		return -E2BIG;
262  	if (!len) {
263  		if (!var_data->u.s.default_val)
264  			return 0;
265  		if (!var->p_val)
266  			var->p_val = var_data->u.s.default_val;
267  		if (var->p_val != var_data->u.s.default_val)
268  			strcpy((char *)var->p_val, var_data->u.s.default_val);
269  		return -ERESTART;
270  	} else if (var->p_val) {
271  		strcpy((char *)var->p_val, page);
272  	} else {
273  		return -E2BIG;
274  	}
275  	return 0;
276  }
277  
278  /*
279   * spk_set_mask_bits sets or clears the punc/delim/repeat bits,
280   * if input is null uses the defaults.
281   * values for how: 0 clears bits of chars supplied,
282   * 1 clears allk, 2 sets bits for chars
283   */
spk_set_mask_bits(const char * input,const int which,const int how)284  int spk_set_mask_bits(const char *input, const int which, const int how)
285  {
286  	u_char *cp;
287  	short mask = spk_punc_info[which].mask;
288  
289  	if (how & 1) {
290  		for (cp = (u_char *)spk_punc_info[3].value; *cp; cp++)
291  			spk_chartab[*cp] &= ~mask;
292  	}
293  	cp = (u_char *)input;
294  	if (!cp) {
295  		cp = spk_punc_info[which].value;
296  	} else {
297  		for (; *cp; cp++) {
298  			if (*cp < SPACE)
299  				break;
300  			if (mask < PUNC) {
301  				if (!(spk_chartab[*cp] & PUNC))
302  					break;
303  			} else if (spk_chartab[*cp] & B_NUM) {
304  				break;
305  			}
306  		}
307  		if (*cp)
308  			return -EINVAL;
309  		cp = (u_char *)input;
310  	}
311  	if (how & 2) {
312  		for (; *cp; cp++)
313  			if (*cp > SPACE)
314  				spk_chartab[*cp] |= mask;
315  	} else {
316  		for (; *cp; cp++)
317  			if (*cp > SPACE)
318  				spk_chartab[*cp] &= ~mask;
319  	}
320  	return 0;
321  }
322  
spk_strlwr(char * s)323  char *spk_strlwr(char *s)
324  {
325  	char *p;
326  
327  	if (!s)
328  		return NULL;
329  
330  	for (p = s; *p; p++)
331  		*p = tolower(*p);
332  	return s;
333  }
334  
spk_s2uchar(char * start,char * dest)335  char *spk_s2uchar(char *start, char *dest)
336  {
337  	int val;
338  
339  	/* Do not replace with kstrtoul: here we need start to be updated */
340  	val = simple_strtoul(skip_spaces(start), &start, 10);
341  	if (*start == ',')
342  		start++;
343  	*dest = (u_char)val;
344  	return start;
345  }
346