![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to sum.bundle CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / sum|
Return to sum.bundle CVS log | Up to [Research Unix] / researchv10no / cmd / sum |
1.1 root 1: # To unbundle, sh this file
2: echo mkfile 1>&2
3: sed 's/.//' >mkfile <<'//GO.SYSIN DD mkfile'
4: -CC=lcc
5: -
6: -sum: sum.o sumr.o sum5.o sum32.o
7: - $CC $CFLAGS -o $target $prereq
8: -
9: -sum.bundle:D: mkfile sum.c sumr.c sum5.c sum32.c
10: - bundle $prereq > $target
11: //GO.SYSIN DD mkfile
12: echo sum.c 1>&2
13: sed 's/.//' >sum.c <<'//GO.SYSIN DD sum.c'
14: -#include <stdio.h>
15: -#include <stddef.h>
16: -
17: -#define NSUMS 100
18: -int BSIZE = 1024;
19: -
20: -char *myname;
21: -typedef long Sumfn(long, char *, int);
22: -extern Sumfn sumr, sum5, sum32;
23: -static int sumfile(char *, Sumfn *);
24: -
25: -static void
26: -usage()
27: -{
28: - fprintf(stderr, "Usage: %s [-ir5] [files]\n", myname);
29: - exit(1);
30: -}
31: -
32: -main(int argc, char **argv)
33: -{
34: - int iflag = 0;
35: - int exitcode = 0;
36: - int c;
37: - char buf[4096];
38: - Sumfn *fn = sum32;
39: - extern int optind;
40: -
41: - myname = argv[0];
42: - while((c = getopt(argc, argv, "ir5")) != -1)
43: - switch(c)
44: - {
45: - case 'i': iflag = 1; break;
46: - case 'r': fn = sumr; break;
47: - case '5': fn = sum5; break;
48: - case '?': usage(); break;
49: - }
50: -
51: - if(iflag){
52: - while(fgets(buf, sizeof buf, stdin) != NULL){
53: - if(c = strlen(buf)){
54: - buf[c-1] = 0;
55: - exitcode |= sumfile(buf, fn);
56: - }
57: - }
58: - } else if(optind < argc){
59: - while(optind < argc)
60: - exitcode |= sumfile(argv[optind++], fn);
61: - } else
62: - exitcode |= sumfile((char *)0, fn);
63: - exit(exitcode);
64: -}
65: -
66: -static int
67: -sumfile(char *path, Sumfn *fn)
68: -{
69: - int fd;
70: - int n;
71: - long sum;
72: - int fsize;
73: - char buf[64*1024];
74: -
75: - if(path){
76: - if((fd = open(path, 0)) < 0){
77: - fprintf(stderr, "%s: ", myname);
78: - perror(path);
79: - return(1);
80: - }
81: - } else
82: - fd = 0;
83: - fsize = 0;
84: - sum = 0;
85: - while((n = read(fd, buf, sizeof buf)) > 0){
86: - fsize += n;
87: - sum = (*fn)(sum, buf, n);
88: - }
89: - if(n < 0){
90: - fprintf(stderr, "%s: %s: ", myname, path? path:"<standard input>");
91: - perror("read");
92: - if(path)
93: - close(fd);
94: - return(1);
95: - }
96: - if(path)
97: - close(fd);
98: - (*fn)(sum, (char *)0, fsize);
99: - if(path)
100: - printf(" %s", path);
101: - putchar('\n');
102: - fflush(stdout);
103: - return(0);
104: -}
105: //GO.SYSIN DD sum.c
106: echo sumr.c 1>&2
107: sed 's/.//' >sumr.c <<'//GO.SYSIN DD sumr.c'
108: -#define BSIZE 1024 /* research! */
109: -
110: -int
111: -sumr(register long sum, char *buf, int n)
112: -{
113: - register unsigned char *s, *send;
114: -
115: - if(buf == 0){
116: - sum &= 0xFFFF;
117: - printf("%05u%6ld", sum, (n + (BSIZE - 1)) / BSIZE);
118: - return(0);
119: - }
120: - for(s = (unsigned char *)buf, send = s+n; s < send; s++)
121: - if (sum & 1)
122: - sum = 0xffff & ((sum>>1) + *s + 0x8000);
123: - else
124: - sum = 0xffff & ((sum>>1) + *s);
125: - return(sum);
126: -}
127: //GO.SYSIN DD sumr.c
128: echo sum5.c 1>&2
129: sed 's/.//' >sum5.c <<'//GO.SYSIN DD sum5.c'
130: -#define BSIZE 512 /* system 5 */
131: -
132: -int
133: -sum5(register long sum, char *buf, int n)
134: -{
135: - register unsigned char *s, *send;
136: -
137: - if(buf == 0){
138: - sum = ((sum>>16)+sum&0xFFFF)&0xFFFF;
139: - printf("%05u%6ld", sum, (n + (BSIZE - 1)) / BSIZE);
140: - return(0);
141: - }
142: - for(s = (unsigned char *)buf, send = s+n; s < send; s++)
143: - sum += 0xffff & *s;
144: - return(sum);
145: -}
146: //GO.SYSIN DD sum5.c
147: echo sum32.c 1>&2
148: sed 's/.//' >sum32.c <<'//GO.SYSIN DD sum32.c'
149: -/*
150: - * CRC 035556101440
151: - */
152: -static unsigned long crc_table[256] = {
153: - 0x0, 0x9073096, 0x120e612c, 0x1b0951ba, 0xff6dc419, 0xf66af48f, 0xed63a535, 0xe46495a3,
154: - 0xfedb8832, 0xf7dcb8a4, 0xecd5e91e, 0xe5d2d988, 0x1b64c2b, 0x8b17cbd, 0x13b82d07, 0x1abf1d91,
155: - 0xfdb71064, 0xf4b020f2, 0xefb97148, 0xe6be41de, 0x2dad47d, 0xbdde4eb, 0x10d4b551, 0x19d385c7,
156: - 0x36c9856, 0xa6ba8c0, 0x1162f97a, 0x1865c9ec, 0xfc015c4f, 0xf5066cd9, 0xee0f3d63, 0xe7080df5,
157: - 0xfb6e20c8, 0xf269105e, 0xe96041e4, 0xe0677172, 0x403e4d1, 0xd04d447, 0x160d85fd, 0x1f0ab56b,
158: - 0x5b5a8fa, 0xcb2986c, 0x17bbc9d6, 0x1ebcf940, 0xfad86ce3, 0xf3df5c75, 0xe8d60dcf, 0xe1d13d59,
159: - 0x6d930ac, 0xfde003a, 0x14d75180, 0x1dd06116, 0xf9b4f4b5, 0xf0b3c423, 0xebba9599, 0xe2bda50f,
160: - 0xf802b89e, 0xf1058808, 0xea0cd9b2, 0xe30be924, 0x76f7c87, 0xe684c11, 0x15611dab, 0x1c662d3d,
161: - 0xf6dc4190, 0xffdb7106, 0xe4d220bc, 0xedd5102a, 0x9b18589, 0xb6b51f, 0x1bbfe4a5, 0x12b8d433,
162: - 0x807c9a2, 0x100f934, 0x1a09a88e, 0x130e9818, 0xf76a0dbb, 0xfe6d3d2d, 0xe5646c97, 0xec635c01,
163: - 0xb6b51f4, 0x26c6162, 0x196530d8, 0x1062004e, 0xf40695ed, 0xfd01a57b, 0xe608f4c1, 0xef0fc457,
164: - 0xf5b0d9c6, 0xfcb7e950, 0xe7beb8ea, 0xeeb9887c, 0xadd1ddf, 0x3da2d49, 0x18d37cf3, 0x11d44c65,
165: - 0xdb26158, 0x4b551ce, 0x1fbc0074, 0x16bb30e2, 0xf2dfa541, 0xfbd895d7, 0xe0d1c46d, 0xe9d6f4fb,
166: - 0xf369e96a, 0xfa6ed9fc, 0xe1678846, 0xe860b8d0, 0xc042d73, 0x5031de5, 0x1e0a4c5f, 0x170d7cc9,
167: - 0xf005713c, 0xf90241aa, 0xe20b1010, 0xeb0c2086, 0xf68b525, 0x66f85b3, 0x1d66d409, 0x1461e49f,
168: - 0xedef90e, 0x7d9c998, 0x1cd09822, 0x15d7a8b4, 0xf1b33d17, 0xf8b40d81, 0xe3bd5c3b, 0xeaba6cad,
169: - 0xedb88320, 0xe4bfb3b6, 0xffb6e20c, 0xf6b1d29a, 0x12d54739, 0x1bd277af, 0xdb2615, 0x9dc1683,
170: - 0x13630b12, 0x1a643b84, 0x16d6a3e, 0x86a5aa8, 0xec0ecf0b, 0xe509ff9d, 0xfe00ae27, 0xf7079eb1,
171: - 0x100f9344, 0x1908a3d2, 0x201f268, 0xb06c2fe, 0xef62575d, 0xe66567cb, 0xfd6c3671, 0xf46b06e7,
172: - 0xeed41b76, 0xe7d32be0, 0xfcda7a5a, 0xf5dd4acc, 0x11b9df6f, 0x18beeff9, 0x3b7be43, 0xab08ed5,
173: - 0x16d6a3e8, 0x1fd1937e, 0x4d8c2c4, 0xddff252, 0xe9bb67f1, 0xe0bc5767, 0xfbb506dd, 0xf2b2364b,
174: - 0xe80d2bda, 0xe10a1b4c, 0xfa034af6, 0xf3047a60, 0x1760efc3, 0x1e67df55, 0x56e8eef, 0xc69be79,
175: - 0xeb61b38c, 0xe266831a, 0xf96fd2a0, 0xf068e236, 0x140c7795, 0x1d0b4703, 0x60216b9, 0xf05262f,
176: - 0x15ba3bbe, 0x1cbd0b28, 0x7b45a92, 0xeb36a04, 0xead7ffa7, 0xe3d0cf31, 0xf8d99e8b, 0xf1deae1d,
177: - 0x1b64c2b0, 0x1263f226, 0x96aa39c, 0x6d930a, 0xe40906a9, 0xed0e363f, 0xf6076785, 0xff005713,
178: - 0xe5bf4a82, 0xecb87a14, 0xf7b12bae, 0xfeb61b38, 0x1ad28e9b, 0x13d5be0d, 0x8dcefb7, 0x1dbdf21,
179: - 0xe6d3d2d4, 0xefd4e242, 0xf4ddb3f8, 0xfdda836e, 0x19be16cd, 0x10b9265b, 0xbb077e1, 0x2b74777,
180: - 0x18085ae6, 0x110f6a70, 0xa063bca, 0x3010b5c, 0xe7659eff, 0xee62ae69, 0xf56bffd3, 0xfc6ccf45,
181: - 0xe00ae278, 0xe90dd2ee, 0xf2048354, 0xfb03b3c2, 0x1f672661, 0x166016f7, 0xd69474d, 0x46e77db,
182: - 0x1ed16a4a, 0x17d65adc, 0xcdf0b66, 0x5d83bf0, 0xe1bcae53, 0xe8bb9ec5, 0xf3b2cf7f, 0xfab5ffe9,
183: - 0x1dbdf21c, 0x14bac28a, 0xfb39330, 0x6b4a3a6, 0xe2d03605, 0xebd70693, 0xf0de5729, 0xf9d967bf,
184: - 0xe3667a2e, 0xea614ab8, 0xf1681b02, 0xf86f2b94, 0x1c0bbe37, 0x150c8ea1, 0xe05df1b, 0x702ef8d,
185: -};
186: -
187: -long
188: -sum32(long lcrc, char *buf, register n)
189: -{
190: - register unsigned char *s = (unsigned char *)buf;
191: - register unsigned long crc = lcrc;
192: -
193: - if(buf == 0){
194: - char buf[4];
195: -
196: - buf[0] = (n>>24)^0xCC; /* encode the length but make n==0 not 0 */
197: - buf[1] = (n>>16)^0x55;
198: - buf[2] = (n>>8)^0xCC;
199: - buf[3] = (n)^0x55;
200: - crc = (unsigned long)sum32(lcrc, buf, 4);
201: - printf("%.8lx %6ld", crc, n);
202: - return(0);
203: - }
204: - while(n-- > 0)
205: - crc = crc_table[(crc ^ *s++) & 0xff] ^ (crc >> 8);
206: - return(crc);
207: -}
208: //GO.SYSIN DD sum32.c
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.