Xref: utzoo comp.sys.nsc.32k:820 alt.sys.pc532:82 Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!sdd.hp.com!zaphod.mps.ohio-state.edu!mips!daver!bungi.com!news From: des@musashi.wpd.sgi.com (Des Young) Newsgroups: comp.sys.nsc.32k,alt.sys.pc532 Subject: Gatewayed mail message Message-ID: <9005021839.AA21385@musashi.wpd.sgi.com> Date: 2 May 90 18:39:23 GMT Sender: news@daver.bungi.com Distribution: comp Lines: 196 Approved: news@daver.bungi.com Here are two files: shar.c, and crc.c. The crc's of them are: 64698 3843 crc.c 17812 1436 shar.c ------------------------ snip, snip, snip -------------------- echo Wrapped by des, on musashi echo x - crc.c sed '/^X/s///' > crc.c << '/' X/* Compute checksum Author: Johan W. Stevenson */ X X#include X Xint errs; X Xmain(argc, argv) Xchar **argv; X{ X char line[256]; X X if (argc <= 1) X crc((char *) 0); X else if (argc == 2 && strcmp(argv[1], "-") == 0) X while (fgets(line, sizeof line, stdin) != NULL) { X if (line[strlen(line) - 1] = '\n') X line[strlen(line) - 1] = '\0'; X crc(line); X } X else X do { X crc(argv[1]); X argv++; X argc--; X } while (argc > 1); X exit(errs != 0); X} X X/* Crctab calculated by Mark G. Mendel, Network Systems Corporation */ Xstatic unsigned short crctab[256] = { X 0x0000, 0x1021, 0x2042, 0x3063, 0x4084, 0x50a5, 0x60c6, 0x70e7, X 0x8108, 0x9129, 0xa14a, 0xb16b, 0xc18c, 0xd1ad, 0xe1ce, 0xf1ef, X 0x1231, 0x0210, 0x3273, 0x2252, 0x52b5, 0x4294, 0x72f7, 0x62d6, X 0x9339, 0x8318, 0xb37b, 0xa35a, 0xd3bd, 0xc39c, 0xf3ff, 0xe3de, X 0x2462, 0x3443, 0x0420, 0x1401, 0x64e6, 0x74c7, 0x44a4, 0x5485, X 0xa56a, 0xb54b, 0x8528, 0x9509, 0xe5ee, 0xf5cf, 0xc5ac, 0xd58d, X 0x3653, 0x2672, 0x1611, 0x0630, 0x76d7, 0x66f6, 0x5695, 0x46b4, X 0xb75b, 0xa77a, 0x9719, 0x8738, 0xf7df, 0xe7fe, 0xd79d, 0xc7bc, X 0x48c4, 0x58e5, 0x6886, 0x78a7, 0x0840, 0x1861, 0x2802, 0x3823, X 0xc9cc, 0xd9ed, 0xe98e, 0xf9af, 0x8948, 0x9969, 0xa90a, 0xb92b, X 0x5af5, 0x4ad4, 0x7ab7, 0x6a96, 0x1a71, 0x0a50, 0x3a33, 0x2a12, X 0xdbfd, 0xcbdc, 0xfbbf, 0xeb9e, 0x9b79, 0x8b58, 0xbb3b, 0xab1a, X 0x6ca6, 0x7c87, 0x4ce4, 0x5cc5, 0x2c22, 0x3c03, 0x0c60, 0x1c41, X 0xedae, 0xfd8f, 0xcdec, 0xddcd, 0xad2a, 0xbd0b, 0x8d68, 0x9d49, X 0x7e97, 0x6eb6, 0x5ed5, 0x4ef4, 0x3e13, 0x2e32, 0x1e51, 0x0e70, X 0xff9f, 0xefbe, 0xdfdd, 0xcffc, 0xbf1b, 0xaf3a, 0x9f59, 0x8f78, X 0x9188, 0x81a9, 0xb1ca, 0xa1eb, 0xd10c, 0xc12d, 0xf14e, 0xe16f, X 0x1080, 0x00a1, 0x30c2, 0x20e3, 0x5004, 0x4025, 0x7046, 0x6067, X 0x83b9, 0x9398, 0xa3fb, 0xb3da, 0xc33d, 0xd31c, 0xe37f, 0xf35e, X 0x02b1, 0x1290, 0x22f3, 0x32d2, 0x4235, 0x5214, 0x6277, 0x7256, X 0xb5ea, 0xa5cb, 0x95a8, 0x8589, 0xf56e, 0xe54f, 0xd52c, 0xc50d, X 0x34e2, 0x24c3, 0x14a0, 0x0481, 0x7466, 0x6447, 0x5424, 0x4405, X 0xa7db, 0xb7fa, 0x8799, 0x97b8, 0xe75f, 0xf77e, 0xc71d, 0xd73c, X 0x26d3, 0x36f2, 0x0691, 0x16b0, 0x6657, 0x7676, 0x4615, 0x5634, X 0xd94c, 0xc96d, 0xf90e, 0xe92f, 0x99c8, 0x89e9, 0xb98a, 0xa9ab, X 0x5844, 0x4865, 0x7806, 0x6827, 0x18c0, 0x08e1, 0x3882, 0x28a3, X 0xcb7d, 0xdb5c, 0xeb3f, 0xfb1e, 0x8bf9, 0x9bd8, 0xabbb, 0xbb9a, X 0x4a75, 0x5a54, 0x6a37, 0x7a16, 0x0af1, 0x1ad0, 0x2ab3, 0x3a92, X 0xfd2e, 0xed0f, 0xdd6c, 0xcd4d, 0xbdaa, 0xad8b, 0x9de8, 0x8dc9, X 0x7c26, 0x6c07, 0x5c64, 0x4c45, 0x3ca2, 0x2c83, 0x1ce0, 0x0cc1, X 0xef1f, 0xff3e, 0xcf5d, 0xdf7c, 0xaf9b, 0xbfba, 0x8fd9, 0x9ff8, X 0x6e17, 0x7e36, 0x4e55, 0x5e74, 0x2e93, 0x3eb2, 0x0ed1, 0x1ef0 X}; X X/* Updcrc macro derived from article Copyright (C) 1986 Stephen Satchell. X * NOTE: First argument must be in range 0 to 255. X * Second argument is referenced twice. X * X * Programmers may incorporate any or all code into their programs, X * giving proper credit within the source. Publication of the X * source routines is permitted so long as proper credit is given X * to Stephen Satchell, Satchell Evaluations and Chuck Forsberg, X * Omen Technology. X */ X X#define updcrc(cp, crc) ( crctab[((crc >> 8) & 255)] ^ (crc << 8) ^ cp) X Xcrc(fname) Xchar *fname; X{ X register int c; X register int i; X register long len = 0; X register unsigned short crc = 0; X register FILE *fp; X X if (fname == NULL) X fp = stdin; X else if ((fp = fopen(fname, "r")) == NULL) { X fprintf(stderr, "crc: cannot open %s\n", fname); X errs++; X return; X } X while ((c = getc(fp)) != EOF) { X len++; X crc = updcrc(c, crc); X } X printf("%05u %6ld", crc, len); X if (fname) { X printf(" %s", fname); X fclose(fp); X } X printf("\n"); X} / echo x - shar.c sed '/^X/s///' > shar.c << '/' X/* shar -- X * make a shell archive Author: Michiel Husijes X * Modified to compile on SGI m/c Des Young (DWLY) X */ X X#include X#include X#include X#include X X#define IO_SIZE (10 * BUFSIZ) X Xchar input[IO_SIZE]; Xchar output[IO_SIZE]; Xint ind = 0; X Xmain(argc, argv) Xint argc; Xregister char *argv[]; X{ X register int i; X int namelen; X char *user; X char hostname[MAXHOSTNAMELEN]; X static char userstring[] = "USER"; X int fd; X extern char *getenv(); X X user = getenv(userstring); X gethostname(hostname,MAXHOSTNAMELEN); X printf("echo Wrapped by %s, on %s\n",user,hostname); X for (i = 1; i < argc; i++) { X if ((fd = open(argv[i], O_RDONLY)) < 0) { X write(2, "Cannot open ", 12); X write(2, argv[i], strlen(argv[i])); X write(2, ".\n", 2); X } else { X print("echo x - "); X print(argv[i]); X print("\nsed '/^X/s///' > "); X print(argv[i]); X print(" << '/'\n"); X cat(fd); X } X } X if (ind) write(1, output, ind); X exit(0); X} X Xcat(fd) Xint fd; X{ X static char *current, *last; X register int r = 0; X register char *cur_pos = current; X X putchar('X'); X for (;;) { X if (cur_pos == last) { X if ((r = read(fd, input, IO_SIZE)) <= 0) break; X last = &input[r]; X cur_pos = input; X } X putchar(*cur_pos); X if (*cur_pos++ == '\n' && cur_pos != last) putchar('X'); X } X print("/\n"); X (void) close(fd); X current = cur_pos; X} X Xprint(str) Xregister char *str; X{ X while (*str) putchar(*str++); X} / -- trademarks abound, usual disclaimers apply, opinions are mine des@pei.com Des Young (415) 335-1888 Protocol Engines Inc., Mountain View, CA