Re: [9fans] wiki editing via web browser

[Peter Bosch <pb@research.bell-labs.com>]

> On Tue, Apr 06, 2004 at 02:39:44AM +0200, boyd, rounin wrote:
>> > P.S. Back in my childhood I though that Russian military tongue was
>> > practically Morse code ...
>> 
>> -.-. --.-
>   
>    .--  -  ..-.  ..--..

#include <u.h>
#include <libc.h>
#include <bio.h>
#include <ctype.h>

static char*asciitab[] = {
	".-",	// A  
	"-...",
	"-.-.",
	"-..",
	".",
	"..-.",
	"--.",
	"....",
	"..",
	".---",
	"-.-",
	".-..",
	"--",
	"-.",
	"---",
	".--.",
	"--.-",
	".-.",
	"...",
	"-",
	"..-",
	"...-",
	".--",
	"-..-",
	"-.--",
	"--..",	// Z
};

static char*numtab[] = {
	"-----", // 0
	".----",
	"..---",
	"...--",
	"....-",
	".....",
	"-....",
	"--...",
	"---..",
	"----.",
};

static struct {
	char c;
	char *m;
} specials[] = {
{	'.',	".-.-.-"	},
{	',',	"--..--"	},
{	'?',	"..--.."	},
{	'@',	".--.-."	},
{	' ',	" "		},
};

int
morsefmt(Fmt *f)
{
	char *p, *src, *dst, c;
	int rv, len, i;

	src = va_arg(f->args, char*);
	len = strlen(src);
	p = dst = malloc(len * 6 + 1);
	if(dst == nil)
		return fmtstrcpy(f, "(romanfmt)");

	while(c = *src++){
		if(c == '\n')
			continue;

		if(isalpha(c)){
			c = toupper(c);
			assert(c >= 'A' && c <= 'Z');
			c -= 'A';
			len = strlen(asciitab[c]);
			memcpy(p, asciitab[c], len);
			p += len;
			continue;
		}

		if(isdigit(c)){
			assert(c >= '0' && c <= '9');
			c -= '0';
			len = strlen(numtab[c]);
			memcpy(p, numtab[c], len);
			p += len;
			continue;
		}

		for(i = 0; i < nelem(specials); i++)
			if(specials[i].c == c)
				break;

		if(i == nelem(specials)){
			*p++ = '?';
			continue;
		}

		len = strlen(specials[i].m);
		memcpy(p, specials[i].m, len);
		p += len;
	}
	*p = 0;

	rv = fmtstrcpy(f, dst);
	free(dst);
	return rv;
}

void
main(void)
{
	Biobuf b;
	char *p;

	Binit(&b, 0, OREAD);
	fmtinstall('M', morsefmt);
	while((p = Brdline(&b, '\n')) != nil){
		p[Blinelen(&b)] = 0;
		print("[%s] %M\n", p, p);
	}
	Bterm(&b);
	exits(0);
}