Return to sum.bundle CVS log

Up to [Research Unix] / researchv10no / cmd / sum

Annotation of researchv10no/cmd/sum/sum.bundle, revision 1.1

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.