# To unbundle, sh this file echo mkfile 1>&2 sed 's/.//' >mkfile <<'//GO.SYSIN DD mkfile' -CC=lcc - -sum: sum.o sumr.o sum5.o sum32.o - $CC $CFLAGS -o $target $prereq - -sum.bundle:D: mkfile sum.c sumr.c sum5.c sum32.c - bundle $prereq > $target //GO.SYSIN DD mkfile echo sum.c 1>&2 sed 's/.//' >sum.c <<'//GO.SYSIN DD sum.c' -#include <stdio.h> -#include <stddef.h> - -#define NSUMS 100 -int BSIZE = 1024; - -char *myname; -typedef long Sumfn(long, char *, int); -extern Sumfn sumr, sum5, sum32; -static int sumfile(char *, Sumfn *); - -static void -usage() -{ - fprintf(stderr, "Usage: %s [-ir5] [files]\n", myname); - exit(1); -} - -main(int argc, char **argv) -{ - int iflag = 0; - int exitcode = 0; - int c; - char buf[4096]; - Sumfn *fn = sum32; - extern int optind; - - myname = argv[0]; - while((c = getopt(argc, argv, "ir5")) != -1) - switch(c) - { - case 'i': iflag = 1; break; - case 'r': fn = sumr; break; - case '5': fn = sum5; break; - case '?': usage(); break; - } - - if(iflag){ - while(fgets(buf, sizeof buf, stdin) != NULL){ - if(c = strlen(buf)){ - buf[c-1] = 0; - exitcode |= sumfile(buf, fn); - } - } - } else if(optind < argc){ - while(optind < argc) - exitcode |= sumfile(argv[optind++], fn); - } else - exitcode |= sumfile((char *)0, fn); - exit(exitcode); -} - -static int -sumfile(char *path, Sumfn *fn) -{ - int fd; - int n; - long sum; - int fsize; - char buf[64*1024]; - - if(path){ - if((fd = open(path, 0)) < 0){ - fprintf(stderr, "%s: ", myname); - perror(path); - return(1); - } - } else - fd = 0; - fsize = 0; - sum = 0; - while((n = read(fd, buf, sizeof buf)) > 0){ - fsize += n; - sum = (*fn)(sum, buf, n); - } - if(n < 0){ - fprintf(stderr, "%s: %s: ", myname, path? path:"<standard input>"); - perror("read"); - if(path) - close(fd); - return(1); - } - if(path) - close(fd); - (*fn)(sum, (char *)0, fsize); - if(path) - printf(" %s", path); - putchar('\n'); - fflush(stdout); - return(0); -} //GO.SYSIN DD sum.c echo sumr.c 1>&2 sed 's/.//' >sumr.c <<'//GO.SYSIN DD sumr.c' -#define BSIZE 1024 /* research! */ - -int -sumr(register long sum, char *buf, int n) -{ - register unsigned char *s, *send; - - if(buf == 0){ - sum &= 0xFFFF; - printf("%05u%6ld", sum, (n + (BSIZE - 1)) / BSIZE); - return(0); - } - for(s = (unsigned char *)buf, send = s+n; s < send; s++) - if (sum & 1) - sum = 0xffff & ((sum>>1) + *s + 0x8000); - else - sum = 0xffff & ((sum>>1) + *s); - return(sum); -} //GO.SYSIN DD sumr.c echo sum5.c 1>&2 sed 's/.//' >sum5.c <<'//GO.SYSIN DD sum5.c' -#define BSIZE 512 /* system 5 */ - -int -sum5(register long sum, char *buf, int n) -{ - register unsigned char *s, *send; - - if(buf == 0){ - sum = ((sum>>16)+sum&0xFFFF)&0xFFFF; - printf("%05u%6ld", sum, (n + (BSIZE - 1)) / BSIZE); - return(0); - } - for(s = (unsigned char *)buf, send = s+n; s < send; s++) - sum += 0xffff & *s; - return(sum); -} //GO.SYSIN DD sum5.c echo sum32.c 1>&2 sed 's/.//' >sum32.c <<'//GO.SYSIN DD sum32.c' -/* - * CRC 035556101440 - */ -static unsigned long crc_table[256] = { - 0x0, 0x9073096, 0x120e612c, 0x1b0951ba, 0xff6dc419, 0xf66af48f, 0xed63a535, 0xe46495a3, - 0xfedb8832, 0xf7dcb8a4, 0xecd5e91e, 0xe5d2d988, 0x1b64c2b, 0x8b17cbd, 0x13b82d07, 0x1abf1d91, - 0xfdb71064, 0xf4b020f2, 0xefb97148, 0xe6be41de, 0x2dad47d, 0xbdde4eb, 0x10d4b551, 0x19d385c7, - 0x36c9856, 0xa6ba8c0, 0x1162f97a, 0x1865c9ec, 0xfc015c4f, 0xf5066cd9, 0xee0f3d63, 0xe7080df5, - 0xfb6e20c8, 0xf269105e, 0xe96041e4, 0xe0677172, 0x403e4d1, 0xd04d447, 0x160d85fd, 0x1f0ab56b, - 0x5b5a8fa, 0xcb2986c, 0x17bbc9d6, 0x1ebcf940, 0xfad86ce3, 0xf3df5c75, 0xe8d60dcf, 0xe1d13d59, - 0x6d930ac, 0xfde003a, 0x14d75180, 0x1dd06116, 0xf9b4f4b5, 0xf0b3c423, 0xebba9599, 0xe2bda50f, - 0xf802b89e, 0xf1058808, 0xea0cd9b2, 0xe30be924, 0x76f7c87, 0xe684c11, 0x15611dab, 0x1c662d3d, - 0xf6dc4190, 0xffdb7106, 0xe4d220bc, 0xedd5102a, 0x9b18589, 0xb6b51f, 0x1bbfe4a5, 0x12b8d433, - 0x807c9a2, 0x100f934, 0x1a09a88e, 0x130e9818, 0xf76a0dbb, 0xfe6d3d2d, 0xe5646c97, 0xec635c01, - 0xb6b51f4, 0x26c6162, 0x196530d8, 0x1062004e, 0xf40695ed, 0xfd01a57b, 0xe608f4c1, 0xef0fc457, - 0xf5b0d9c6, 0xfcb7e950, 0xe7beb8ea, 0xeeb9887c, 0xadd1ddf, 0x3da2d49, 0x18d37cf3, 0x11d44c65, - 0xdb26158, 0x4b551ce, 0x1fbc0074, 0x16bb30e2, 0xf2dfa541, 0xfbd895d7, 0xe0d1c46d, 0xe9d6f4fb, - 0xf369e96a, 0xfa6ed9fc, 0xe1678846, 0xe860b8d0, 0xc042d73, 0x5031de5, 0x1e0a4c5f, 0x170d7cc9, - 0xf005713c, 0xf90241aa, 0xe20b1010, 0xeb0c2086, 0xf68b525, 0x66f85b3, 0x1d66d409, 0x1461e49f, - 0xedef90e, 0x7d9c998, 0x1cd09822, 0x15d7a8b4, 0xf1b33d17, 0xf8b40d81, 0xe3bd5c3b, 0xeaba6cad, - 0xedb88320, 0xe4bfb3b6, 0xffb6e20c, 0xf6b1d29a, 0x12d54739, 0x1bd277af, 0xdb2615, 0x9dc1683, - 0x13630b12, 0x1a643b84, 0x16d6a3e, 0x86a5aa8, 0xec0ecf0b, 0xe509ff9d, 0xfe00ae27, 0xf7079eb1, - 0x100f9344, 0x1908a3d2, 0x201f268, 0xb06c2fe, 0xef62575d, 0xe66567cb, 0xfd6c3671, 0xf46b06e7, - 0xeed41b76, 0xe7d32be0, 0xfcda7a5a, 0xf5dd4acc, 0x11b9df6f, 0x18beeff9, 0x3b7be43, 0xab08ed5, - 0x16d6a3e8, 0x1fd1937e, 0x4d8c2c4, 0xddff252, 0xe9bb67f1, 0xe0bc5767, 0xfbb506dd, 0xf2b2364b, - 0xe80d2bda, 0xe10a1b4c, 0xfa034af6, 0xf3047a60, 0x1760efc3, 0x1e67df55, 0x56e8eef, 0xc69be79, - 0xeb61b38c, 0xe266831a, 0xf96fd2a0, 0xf068e236, 0x140c7795, 0x1d0b4703, 0x60216b9, 0xf05262f, - 0x15ba3bbe, 0x1cbd0b28, 0x7b45a92, 0xeb36a04, 0xead7ffa7, 0xe3d0cf31, 0xf8d99e8b, 0xf1deae1d, - 0x1b64c2b0, 0x1263f226, 0x96aa39c, 0x6d930a, 0xe40906a9, 0xed0e363f, 0xf6076785, 0xff005713, - 0xe5bf4a82, 0xecb87a14, 0xf7b12bae, 0xfeb61b38, 0x1ad28e9b, 0x13d5be0d, 0x8dcefb7, 0x1dbdf21, - 0xe6d3d2d4, 0xefd4e242, 0xf4ddb3f8, 0xfdda836e, 0x19be16cd, 0x10b9265b, 0xbb077e1, 0x2b74777, - 0x18085ae6, 0x110f6a70, 0xa063bca, 0x3010b5c, 0xe7659eff, 0xee62ae69, 0xf56bffd3, 0xfc6ccf45, - 0xe00ae278, 0xe90dd2ee, 0xf2048354, 0xfb03b3c2, 0x1f672661, 0x166016f7, 0xd69474d, 0x46e77db, - 0x1ed16a4a, 0x17d65adc, 0xcdf0b66, 0x5d83bf0, 0xe1bcae53, 0xe8bb9ec5, 0xf3b2cf7f, 0xfab5ffe9, - 0x1dbdf21c, 0x14bac28a, 0xfb39330, 0x6b4a3a6, 0xe2d03605, 0xebd70693, 0xf0de5729, 0xf9d967bf, - 0xe3667a2e, 0xea614ab8, 0xf1681b02, 0xf86f2b94, 0x1c0bbe37, 0x150c8ea1, 0xe05df1b, 0x702ef8d, -}; - -long -sum32(long lcrc, char *buf, register n) -{ - register unsigned char *s = (unsigned char *)buf; - register unsigned long crc = lcrc; - - if(buf == 0){ - char buf[4]; - - buf[0] = (n>>24)^0xCC; /* encode the length but make n==0 not 0 */ - buf[1] = (n>>16)^0x55; - buf[2] = (n>>8)^0xCC; - buf[3] = (n)^0x55; - crc = (unsigned long)sum32(lcrc, buf, 4); - printf("%.8lx %6ld", crc, n); - return(0); - } - while(n-- > 0) - crc = crc_table[(crc ^ *s++) & 0xff] ^ (crc >> 8); - return(crc); -} //GO.SYSIN DD sum32.c