morse code from BSD games, plus a bit

Fork

/*	$NetBSD: morse.c,v 1.13 2004/02/13 23:16:11 jsm Exp $	*/

/*
 * Copyright (c) 1988, 1993
 *	The Regents of the University of California.  All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. Neither the name of the University nor the names of its contributors
 *    may be used to endorse or promote products derived from this software
 *    without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.

 * Modifications by Joel Matthew Rees, copyright 2021
 * Use permitted under above license.
 */

#include <sys/cdefs.h>
#ifndef lint
__COPYRIGHT("@(#) Copyright (c) 1988, 1993\n\
	The Regents of the University of California.  All rights reserved.\n");
#endif /* not lint */

#ifndef lint
#if 0
static char sccsid[] = "@(#)morse.c	8.1 (Berkeley) 5/31/93";
#else
__RCSID("$NetBSD: morse.c,v 1.13 2004/02/13 23:16:11 jsm Exp $");
#endif
#endif /* not lint */

#include <ctype.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>

static const char
	*const digit[] = {
	"-----",
	".----",
	"..---",
	"...--",
	"....-",
	".....",
	"-....",
	"--...",
	"---..",
	"----.",
},
	*const alph[] = {
	".-",
	"-...",
	"-.-.",
	"-..",
	".",
	"..-.",
	"--.",
	"....",
	"..",
	".---",
	"-.-",
	".-..",
	"--",
	"-.",
	"---",
	".--.",
	"--.-",
	".-.",
	"...",
	"-",
	"..-",
	"...-",
	".--",
	"-..-",
	"-.--",
	"--..",
};

const struct punc {
	char c;
	const char *morse;
} other[] = {
	{ '.', ".-.-.-" },
	{ ',', "--..--" },
	{ ':', "---..." },
	{ '?', "..--.." },
	{ '\'', ".----." },
	{ '-', "-....-" },
	{ '/', "-..-." },
	{ '(', "-.--." },
	{ ')', "-.--.-" },
	{ '"', ".-..-." },
	{ '=', "-...-" },
	{ '+', ".-.-." },
/* JMR20210829: since 2005? for email addy */
	{ '@', ".--.-." },
/* JMR20210829: Not universally accepted stuff: */
	{ '!', "-.-.--" },
	{ '&', ".-..." },
	{ ';', "-.-.-." },
	{ '_', "..--.-" },
	{ '$', "...-..-" },
/* JMR20210829 end end. */
	{ '\0', NULL }
};

char errorcode[] = "........"; /* JMR20210829 */


/* JMR20210829 */
const char * 
tomorseif(c)
	int c;
{
	int i;

	if (isalpha(c))
		return alph[c - (isupper(c)) ? 'A' : 'a'];
	else if (isdigit(c))
		return digit[c - '0'];
	else if (isspace(c))
		return " ";  /* BT has a different purpose. */
	else {
		for ( i = 0; other[i].c; ++i ) {
			if (other[i].c == c) {
				return other[i].morse  ;
			}
		}
	}
        return errorcode;
}


static int sflag;

/* JMR20210829 */
static char vocbuf[ 8 * 4 + 1 ]; /* Enough to copy errorcode[] */

const char * 
tovocalmorse( code )
	const char * code;
{
	if (sflag)
		return code;
	else { 
		char * insertion = vocbuf;
		while ( *code ) {
			const char * conv = (*code == '.') 
				? "dit" 
				: (*code == '-') ? "daw" : " ";
			strcpy(insertion, conv);
			insertion += strlen(conv);
			if ( *++code == '\0' )
				break;
                        * insertion++ = ' ';
		}
		* insertion++ = '\n';
		* insertion = '\0';
		return vocbuf;
	}
}


static int dflag;


/* JMR20210829 */
int
totextif(s)
	const char *s;
{
	int i;
	
/*dbg* / printf( "entering totextif(): %s\n", s ); */
	for (i = 0; i < 10; i++)
		if (strcmp(digit[i], s) == 0) {
			return '0' + i;
		}
	
	for (i = 0; i < 26; i++)
		if (strcmp(alph[i], s) == 0) {
			return 'A' + i;
		}
	i = 0;
	while (other[i].c) {
		if (strcmp(other[i].morse, s) == 0) {
			return other[i].c;
		}
		i++;
	}
	if (strcmp("...-.-", s) == 0) /* Why SK but no KA? */
		return '\n';
	return 'x';	/* line noise */
}

void
decode(s)
	const char *s;
{
	int i;
	
	for (i = 0; i < 10; i++)
		if (strcmp(digit[i], s) == 0) {
			putchar('0' + i);
			return;
		}
	
	for (i = 0; i < 26; i++)
		if (strcmp(alph[i], s) == 0) {
			putchar('A' + i);
			return;
		}
	i = 0;
	while (other[i].c) {
		if (strcmp(other[i].morse, s) == 0) {
			putchar(other[i].c);
			return;
		}
		i++;
	}
	if (strcmp("...-.-", s) == 0)
		return;
	putchar('x');	/* line noise */
}


void
show(s)
	const char *s;
{
	if (sflag)
		printf(" %s", s);
	else for (; *s; ++s)
		printf(" %s", *s == '.' ? "dit" : "daw");
	printf("\n");
}


void
morse(c)
	int c;
{
	int i;

	if (isalpha(c))
		show(alph[c - (isupper(c) ? 'A' : 'a')]);
	else if (isdigit(c))
		show(digit[c - '0']);
	else if (isspace(c))
		show("");  /* could show BT for a pause */
	else {
		i = 0;
		while (other[i].c) {
			if (other[i].c == c) {
				show(other[i].morse);
				break;
			}
			i++;
		}
	}
}


int	main(int, char *[]);

int
main(argc, argv)
	int argc;
	char **argv;
{
	int ch;
	char *p;
/* JMR20210830 manage the command line ourselves: */
	char **argvp;
/* JMR20210830 end. */

	/* Revoke setgid privileges */
	setregid(getgid(), getgid());

/* JMR20210830 really isn't any reason to use getopt:
	while ((ch = getopt(argc, argv, "ds")) != -1)
		switch((char)ch) {
		case 'd':
			dflag = 1;
			break;
		case 's':
			sflag = 1;
			break;
		case '?':
		default:
			fprintf(stderr, "usage: morse [-ds] [string ...]\n");
			exit(1);
		}
	argc -= optind;
	argv += optind;
*/
	argvp = argv + 1;
	if ( argc > 0 )
		if ( argv[ 1 ][ 0 ] == '-' )
		{
			switch ( argv[ 1 ][ 1 ] )
			{
		case 'd':
			dflag = 1;
			++argvp;
			break;
		case 's':
			sflag = 1;
			++argvp;
			break;
		case '\0':
		case '.':
		case '-':
			break;
		case '?':
		default:
			fprintf(stderr, "usage: %s [-ds] [string ...]\n", argv[ 0 ]);
			exit(1);
			}
		}
/* JMR20210830 end. */

	if (dflag) {
		if (*argvp) {
			char outch = 'x';
			do {
/*				decode(*argvp); */
				outch = totextif( *argvp );
				putchar( outch );
			} while (*++argvp);
		} else {
			char foo[10];	/* All morse chars shorter than this */
			int isblank, i;

			i = 0;
			isblank = 0;
			while ((ch = getchar()) != EOF) {
				if (ch == '-' || ch == '.') {
					foo[i++] = ch;
					if (i == 10) {
						/* overrun means gibberish--print 'x' and
						 * advance */
						i = 0;
						putchar('x');
						while ((ch = getchar()) != EOF &&
						    (ch == '.' || ch == '-'))
							;
						isblank = 1;
					}
				} else if (i) {
					foo[i] = '\0';
					decode(foo);
					i = 0;
					isblank = 0;
				} else if (isspace(ch)) {
					if (isblank) {
						/* print whitespace for each double blank */
						putchar(' ');
						isblank = 0;
					} else
						isblank = 1;
				}
			}
		}
		putchar('\n');
	} else {
		if (*argvp)
			do {
				for (p = *argvp; *p; ++p)
					morse((int)*p);
				show("");
			} while (*++argvp);
		else while ((ch = getchar()) != EOF)
			morse(ch);
		show("...-.-");	/* SK */
	}
	
	return 0;
}