Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10 5/3/83; site bbncca.ARPA
Path: utzoo!watmath!clyde!burl!ulysses!mhuxj!houxm!ihnp4!bbncca!msimpson
From: msimpson@bbncca.ARPA (Mike Simpson)
Newsgroups: net.sources
Subject: FROMHEXU.C (for Macintosh)
Message-ID: <1077@bbncca.ARPA>
Date: Mon, 29-Oct-84 11:24:22 EST
Article-I.D.: bbncca.1077
Posted: Mon Oct 29 11:24:22 1984
Date-Received: Tue, 30-Oct-84 01:42:37 EST
Reply-To: msimpson@bbncca.ARPA (Mike Simpson)
Organization: Bolt, Beranek and Newman, Cambridge, Ma.
Lines: 42

/* fromhex.c, UNIX version */

#include <stdio.h>

int bytes,sum;

main()
{
	register i,v;
	register n;

	n = 0;
	v = 0;
	while ((i = getchar()) != EOF) {
		i &= 0177;
		if (i == '|') 
			break;
		if (i < 0100 || i > 0117)
			continue;
		v = (v << 4) | (i & 0xF);
		if ((++n & 1) == 0) {
			putchar(v);
			sum += v;
			v = 0;
			bytes++;
		}
	}
	n = 0;
	for (i = 0 ; i < 8 ; i++)
		n = (n << 4) | (getchar() & 0xF);
	if (n != (bytes + sum))
		fprintf(stderr, "bad checksum\n");
	else
		fprintf(stderr, "checksum good!\n");
	exit(0);
}
-- 
   >> don't shoot me, I'm just trying to be helpful ... <<
   Mike Simpson, BBN
   msimpson@bbnccf  (Arpanet/Internet/CSNet)
   {decvax,ihnp4,ima,linus,masscomp,sunybcs,wjh12}!bbncca!msimpson (Usenet)
   617-497-2819 (Ma Bell)