1 /*-
51 /* Always use the speaker, let the open fail if -p is selected */
71 	{'a', ".-"},
72 	{'b', "-..."},
73 	{'c', "-.-."},
74 	{'d', "-.."},
76 	{'f', "..-."},
77 	{'g', "--."},
80 	{'j', ".---"},
81 	{'k', "-.-"},
82 	{'l', ".-.."},
83 	{'m', "--"},
84 	{'n', "-."},
85 	{'o', "---"},
86 	{'p', ".--."},
87 	{'q', "--.-"},
88 	{'r', ".-."},
90 	{'t', "-"},
91 	{'u', "..-"},
92 	{'v', "...-"},
93 	{'w', ".--"},
94 	{'x', "-..-"},
95 	{'y', "-.--"},
96 	{'z', "--.."},
100 	{'0', "-----"},
101 	{'1', ".----"},
102 	{'2', "..---"},
103 	{'3', "...--"},
104 	{'4', "....-"},
106 	{'6', "-...."},
107 	{'7', "--..."},
108 	{'8', "---.."},
109 	{'9', "----."},
113 	{',', "--..--"},
114 	{'.', ".-.-.-"},
115 	{'"', ".-..-."},
116 	{'!', "..--."},
117 	{'?', "..--.."},
118 	{'/', "-..-."},
119 	{'-', "-....-"},
120 	{'=', "-...-"},		/* BT */
121 	{':', "---..."},
122 	{';', "-.-.-."},
123 	{'(', "-.--."},		/* KN */
124 	{')', "-.--.-"},
125 	{'$', "...-..-"},
126 	{'+', ".-.-."},		/* AR */
127 	{'@', ".--.-."},	/* AC */
128 	{'_', "..--.-"},
129 	{'\'', ".----."},
133 	{'#', ".-..."},		/* AS */
134 	{'&', "...-.-"},	/* SK */
135 	{'*', "...-."},		/* VE */
136 	{'%', "-...-.-"},	/* BK */
142  * Code-points for some Latin1 chars in ISO-8859-1 encoding.
143  * UTF-8 encoded chars in the comments.
146 	{'\340', ".--.-"},	/* à */
147 	{'\341', ".--.-"},	/* á */
148 	{'\342', ".--.-"},	/* â */
149 	{'\344', ".-.-"},	/* ä */
150 	{'\347', "-.-.."},	/* ç */
151 	{'\350', "..-.."},	/* è */
152 	{'\351', "..-.."},	/* é */
153 	{'\352', "-..-."},	/* ê */
154 	{'\361', "--.--"},	/* ñ */
155 	{'\366', "---."},	/* ö */
156 	{'\374', "..--"},	/* ü */
162  * Code-points for some Greek chars in ISO-8859-7 encoding.
163  * UTF-8 encoded chars in the comments.
168 	 * - the special sequences for the seven diphthongs,
169 	 * - the punctuation differences.
171 	 * special-cases in the program's main loop.
173 	 * alpha iota		.-.-
174 	 * alpha upsilon	..--
175 	 * epsilon upsilon	---.
176 	 * eta upsilon		...-
177 	 * omicron iota		---..
178 	 * omicron upsilon	..-
179 	 * upsilon iota		.---
181 	 * ;	..-.-
182 	 * !	--..--
184 	{'\341', ".-"},		/* α, alpha */
185 	{'\334', ".-"},		/* ά, alpha with acute */
186 	{'\342', "-..."},	/* β, beta */
187 	{'\343', "--."},	/* γ, gamma */
188 	{'\344', "-.."},	/* δ, delta */
191 	{'\346', "--.."},	/* ζ, zeta */
194 	{'\350', "-.-."},	/* θ, theta */
199 	{'\352', "-.-"},	/* κ, kappa */
200 	{'\353', ".-.."},	/* λ, lambda */
201 	{'\354', "--"},		/* μ, mu */
202 	{'\355', "-."},		/* ν, nu */
203 	{'\356', "-..-"},	/* ξ, xi */
204 	{'\357', "---"},	/* ο, omicron */
205 	{'\374', "---"},	/* ό, omicron with acute */
206 	{'\360', ".--."},	/* π, pi */
207 	{'\361', ".-."},	/* ρ, rho */
208 	{'\363', "..."},	/* σ, sigma */
209 	{'\362', "..."},	/* ς, final sigma */
210 	{'\364', "-"},		/* τ, tau */
211 	{'\365', "-.--"},	/* υ, upsilon */
212 	{'\375', "-.--"},	/* ύ, upsilon with acute */
213 	{'\373', "-.--"},	/* ϋ, upsilon and diaeresis */
214 	{'\340', "-.--"},	/* ΰ, upsilon with acute and diaeresis */
215 	{'\366', "..-."},	/* φ, phi */
216 	{'\367', "----"},	/* χ, chi */
217 	{'\370', "--.-"},	/* ψ, psi */
218 	{'\371', ".--"},	/* ω, omega */
219 	{'\376', ".--"},	/* ώ, omega with acute */
225  * Code-points for the Cyrillic alphabet in KOI8-R encoding.
226  * UTF-8 encoded chars in the comments.
229 	{'\301', ".-"},		/* а, a */
230 	{'\302', "-..."},	/* б, be */
231 	{'\327', ".--"},	/* в, ve */
232 	{'\307', "--."},	/* г, ge */
233 	{'\304', "-.."},	/* д, de */
236 	{'\326', "...-"},	/* ж, she */
237 	{'\332', "--.."},	/* з, ze */
239 	{'\312', ".---"},	/* й, i kratkoye */
240 	{'\313', "-.-"},	/* к, ka */
241 	{'\314', ".-.."},	/* л, el */
242 	{'\315', "--"},		/* м, em */
243 	{'\316', "-."},		/* н, en */
244 	{'\317', "---"},	/* о, o */
245 	{'\320', ".--."},	/* п, pe */
246 	{'\322', ".-."},	/* р, er */
248 	{'\324', "-"},		/* т, te */
249 	{'\325', "..-"},	/* у, u */
250 	{'\306', "..-."},	/* ф, ef */
252 	{'\303', "-.-."},	/* ц, ce */
253 	{'\336', "---."},	/* ч, che */
254 	{'\333', "----"},	/* ш, sha */
255 	{'\335', "--.-"},	/* щ, shcha */
256 	{'\331', "-.--"},	/* ы, yi */
257 	{'\330', "-..-"},	/* ь, myakhkij znak */
258 	{'\334', "..-.."},	/* э, ae */
259 	{'\300', "..--"},	/* ю, yu */
260 	{'\321', ".-.-"},	/* я, ya */
276 static char	*device;	/* for tty-controlled generator */
280 #define WORD_SPACE (7 - CHAR_SPACE - 1)
291 "usage: morse [-elprs] [-d device] [-w speed] [-c speed] [-f frequency] [string ...]\n"
295 "usage: morse [-elrs] [-d device] [-w speed] [-c speed] [-f frequency] [string ...]\n"
307 	while ((ch = getopt(argc, argv, GETOPTOPTS)) != -1)  in main()
344 		errx(1, "morse: only one of -l, -s, and -r allowed\n");  in main()
347 		errx(1, "morse: only one of -p, -d and -l, -s allowed\n");  in main()
360 		if ((spkr = open(SPEAKER, O_WRONLY, 0)) == -1) {  in main()
366 		if ((line = open(device, O_WRONLY | O_NONBLOCK)) == -1) {  in main()
369 		if (tcgetattr(line, &otty) == -1) {  in main()
401 	argc -= optind;  in main()
406 		if (strcmp(codeset, "KOI8-R") == 0)  in main()
408 		else if (strcmp(codeset, "ISO8859-1") == 0 ||  in main()
409 			 strcmp(codeset, "ISO8859-15") == 0)  in main()
411 		else if (strcmp(codeset, "ISO8859-7") == 0)  in main()
481 	     m != NULL && m->inchar != '\0';  in morse()
483 		if (m->inchar == c) {  in morse()
485 				play(m->morse);  in morse()
487 				ttyout(m->morse);  in morse()
489 				show(m->morse);  in morse()
521 		case '-':  in play()
533 			if (ioctl(spkr, SPKRTONE, &sound) == -1) {  in play()
539 		if (ioctl(spkr, SPKRTONE, &sound) == -1) {  in play()
561 		case '-':  in ttyout()
598 	while (fgets(s, BUFSIZ - (s - buf), stream)) {  in fdecode()
635 	for (m = mtab; m != NULL && m->inchar != '\0'; m++) {  in decode()
636 		if (strcmp(m->morse, p) == 0) {  in decode()
637 			c = m->inchar;  in decode()
643 		for (m = hightab; m != NULL && m->inchar != '\0'; m++) {  in decode()
644 			if (strcmp(m->morse, p) == 0) {  in decode()
645 				c = m->inchar;  in decode()