home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume25 / kit / pch11 < prev    next >
Encoding:
Text File  |  1992-01-11  |  43.5 KB  |  1,566 lines
  1. Newsgroups: comp.sources.unix
  2. From: ram@eiffel.com (Raphael Manfredi)
  3. Subject: v25i101: kit - the ultimate mailing kit, Patch11
  4. Sender: sources-moderator@pa.dec.com
  5. Approved: vixie@pa.dec.com
  6.  
  7. Submitted-By: ram@eiffel.com (Raphael Manfredi)
  8. Posting-Number: Volume 25, Issue 101
  9. Archive-Name: kit/pch11
  10.  
  11. [The latest patch for kit version 2.0 is #12.
  12.     ram@eiffel.com (Raphael Manfredi)
  13. ]
  14.  
  15. System: kit version 2.0
  16. Patch #: 11
  17. Priority: LOW
  18. Subject: updated Configure
  19. Subject: added subdirectories badtar and shar
  20. Subject: updated README
  21. Subject: updated config.h.SH
  22. Subject: now depends on the 'hasdes' configuration variable
  23. Subject: added declarations for static functions
  24. Subject: reported by Monty Solomon <roscom!monty@bu.edu>
  25. Subject: now uses makeshar when cshar is not installed
  26. Subject: the leading 'startsh' configuration variable was missing
  27. Subject: reported by Michael Fischer <fischer-michael@cs.yale.edu>
  28. Subject: now knows about badtar
  29. Subject: added -b option to force use of badtar
  30. Subject: the .so directive was made relative to make man happy
  31. Subject: documents badtar and cshar-emulating scripts
  32. Subject: added badtar and shar directories
  33. Date: Sat Jan 11 19:25:26 PST 1992
  34. From: Raphael Manfredi <ram@eiffel.com>
  35.  
  36. Description:
  37.  
  38.     The DES Makefile now depends on the 'hasdes' configuration
  39.     variable, which means des will not be built if a valid DES
  40.     implementation is found on the machine.
  41.  
  42.     Added declarations for static functions in des/des.c.
  43.     (reported by Monty Solomon <roscom!monty@bu.edu>)
  44.  
  45.     The main improvement... Kit is now a *standalone* package and
  46.     cshar is no longer needed to use kit, thanks to the scripts held
  47.     in the shar directory.
  48.  
  49.     The leading 'startsh' configuration variable was missing in file
  50.     kit/mailkit.SH.
  51.     (reported by Michael Fischer <fischer-michael@cs.yale.edu>)
  52.  
  53.     The release now contains the 'badtar' program which may be used
  54.     by kit to fix tar bugs and NFS idiosyncrasies.
  55.  
  56.     Added -b option to unkit to force use of badtar.
  57.  
  58.     The .so directive in man paged was made relative to make man happy.
  59.     (reported by Michael Fischer <fischer-michael@cs.yale.edu>)
  60.  
  61.  
  62. Fix:    From rn, say "| patch -p -N -d DIR", where DIR is your kit source
  63.     directory.  Outside of rn, say "cd DIR; patch -p -N <thisarticle".
  64.     If you don't have the patch program, apply the following by hand,
  65.     or get patch (version 2.0, latest patchlevel).
  66.  
  67.     After patching:
  68.         *** DO NOTHING--INSTALL ALL PATCHES UP THROUGH #12 FIRST ***
  69.  
  70.     If patch indicates that patchlevel is the wrong version, you may need
  71.     to apply one or more previous patches, or the patch may already
  72.     have been applied.  See the patchlevel.h file to find out what has or
  73.     has not been applied.  In any event, don't continue with the patch.
  74.  
  75.     If you are missing previous patches they can be obtained from me:
  76.  
  77.         Raphael Manfredi <ram@eiffel.com>
  78.  
  79.     If you send a mail message of the following form it will greatly speed
  80.     processing:
  81.  
  82.         Subject: Command
  83.         @SH mailpatch PATH kit 2.0 LIST
  84.                ^ note the c
  85.  
  86.     where PATH is a return path FROM ME TO YOU either in Internet notation,
  87.     or in bang notation from some well-known host, and LIST is the number
  88.     of one or more patches you need, separated by spaces, commas, and/or
  89.     hyphens.  Saying 35- says everything from 35 to the end.
  90.  
  91.     To get some more detailed instructions, send me the following mail:
  92.  
  93.         Subject: Command
  94.         @SH mailhelp PATH
  95.  
  96.  
  97. Index: patchlevel.h
  98. Prereq: 10
  99. 2c2
  100. < #define PATCHLEVEL 10
  101. ---
  102. > #define PATCHLEVEL 11
  103.  
  104. Index: badtar/badtar.c
  105. *** badtar/badtar.c.old    Sat Jan 11 19:24:23 1992
  106. --- badtar/badtar.c    Sat Jan 11 19:24:24 1992
  107. ***************
  108. *** 0 ****
  109. --- 1,385 ----
  110. + /*
  111. +  * I got that from net.sources and extended it -- RAM
  112. +  *
  113. +  * $Id: badtar.c,v 2.0.1.1 92/01/11 19:12:45 ram Exp $
  114. +  *
  115. +  * $Log:    badtar.c,v $
  116. +  * Revision 2.0.1.1  92/01/11  19:12:45  ram
  117. +  * patch11: created
  118. +  * 
  119. +  */
  120. + 
  121. + /* read tar tapes with bad blocks MWS */
  122. + #include "../config.h"
  123. + #include "../patchlevel.h"
  124. + #include <stdio.h>
  125. + #include <sys/types.h>
  126. + #include <sys/file.h>                    /* Should be metaconfigured ? */
  127. + #ifdef I_FCNTL                            /* Added by ram for O_RDONLY */
  128. + #include <fcntl.h>
  129. + #else
  130. + #include <sys/fcntl.h>
  131. + #endif
  132. + #define TBLOCK        512                    /* Size of a tape block */
  133. + #define NAMSIZ        100                    /* Maximum size for filename */
  134. + #define BLOCKF        20                    /* Blocking factor */
  135. + #define TAPEBLOCK     (BLOCKF * TBLOCK)    /* Blocksize */
  136. + 
  137. + int verbose = 0;                    /* Verbose output control */
  138. + int silent = 0;                        /* Silent output control */
  139. + char *default_tape = TAPEDEV;        /* Default device tape file */
  140. + 
  141. + /* Logging printf */
  142. + #define lprintf        if (!silent) fprintf
  143. + 
  144. + /* see tar (4 or 5) in the manual */
  145. + union hblock {
  146. +      char dummy[TBLOCK];
  147. +      struct header {
  148. +           char name[NAMSIZ];
  149. +           char mode[8];
  150. +           char uid[8];
  151. +           char gid[8];
  152. +           char size[12];
  153. +           char mtime[12];
  154. +           char chksum[8];
  155. +           char linkflag;
  156. +           char linkname[NAMSIZ];
  157. +      } dbuf;
  158. + };
  159. + char pad[TBLOCK];
  160. + 
  161. + /* Print usage */
  162. + usage()
  163. + {
  164. +     fprintf(stderr,
  165. + "Usage: badtar [-hiorsvV] [-l logfile] [-f tape drive] [-u uid] [-g gid]\n");
  166. +     fprintf(stderr, "  -V : print version number.\n");
  167. +     fprintf(stderr, "  -f : tape drive device or file (default is %s).\n",
  168. +         default_tape);
  169. +     fprintf(stderr, "  -g : set GID on extracted files (0 for current user).\n");
  170. +     fprintf(stderr, "  -h : print this help message.\n");
  171. +     fprintf(stderr, "  -i : ignore end of tape blocks.\n");
  172. +     fprintf(stderr, "  -l : define log file (default is stderr).\n");
  173. +     fprintf(stderr, "  -o : set ownership of files to current user.\n");
  174. +     fprintf(stderr, "  -r : make relative paths by removing leading '/'.\n");
  175. +     fprintf(stderr, "  -s : silent mode, no logging is done.\n");
  176. +     fprintf(stderr, "  -u : set UID on extracted files (0 for current user).\n");
  177. +     fprintf(stderr, "  -v : verbose mode, print headers found.\n");
  178. + }
  179. + 
  180. + /* Print version number */
  181. + version()
  182. + {
  183. +     fprintf(stderr, "badtar %.1f PL%d\n", VERSION, PATCHLEVEL);
  184. +     fprintf(stderr, "(version modified by Raphael Manfredi, as part of kit)\n");
  185. + }
  186. + 
  187. + /* check the check sum for the header block */
  188. + check_sum(c)
  189. + union hblock *c;
  190. + {
  191. +     int i,j;
  192. +     char *cp;
  193. +     cp = c->dummy;
  194. +     i = 0;
  195. +     for (j = 0; j < TBLOCK; j++)
  196. +         i += *cp++;
  197. +     /* When calculating the checksum, the "chksum" field is
  198. +      * treated as if it were all blanks.
  199. +      */
  200. +     for (j = 0; j < 8; j++)
  201. +         i -= c->dbuf.chksum[j];    /* Remove chksum values */
  202. +     for (j = 0; j < 8; j++)
  203. +         i += ' ';                /* Treat as blank */
  204. +     return(i);
  205. + }
  206. + 
  207. + char buf[TAPEBLOCK];
  208. + char xbuf[TAPEBLOCK];
  209. + int bpos = TAPEBLOCK - TBLOCK, eot = 0, bad = 0, fd1;
  210. + FILE *logf;
  211. + 
  212. + extern int errno;
  213. + 
  214. + /* get the next TBLOCK chars from the tape */
  215. + char *get_next()
  216. + {
  217. +     int res;
  218. +     int nbytes;
  219. +     if (bpos >= TAPEBLOCK - TBLOCK) {    /* Reached end of buf array */
  220. +         bcopy(xbuf, buf, TAPEBLOCK);    /* Reset buf to xbuf ('x' chars) */
  221. +         res = read(fd1, buf, TAPEBLOCK);    /* Read a new chunck */
  222. +         if (res == 0) {
  223. +             eot = 1;                    /* End of tape */
  224. +             lprintf(logf, "*** End of tape?\n");
  225. +         } else if (res < TAPEBLOCK) {
  226. +             if (res == -1) {
  227. +                 lprintf(logf, "*** Bad block on tape!!\n");
  228. +                 bad = 1; 
  229. +             } else {
  230. +                 /* We read only a partial block (maybe we are
  231. +                  * reading data through a pipe ?). Anyway, loop
  232. +                  * until TAPEBLOCK bytes have been read or an
  233. +                  * error occurred.
  234. +                  */
  235. +                 for (
  236. +                     nbytes = res;
  237. +                     nbytes < TAPEBLOCK && res != -1;
  238. +                     nbytes += res
  239. +                 ) {
  240. +                     res = read(fd1, buf + nbytes, TAPEBLOCK - nbytes);
  241. +                     if (res == -1) {
  242. +                         lprintf(logf, "*** Bad block on tape!!\n");
  243. +                         bad = 1;
  244. +                         break;
  245. +                     } else if (res == 0) {
  246. +                         eot = 1;
  247. +                         lprintf(logf, "*** End of tape?\n");
  248. +                         break;
  249. +                     }
  250. +                 }
  251. +             }
  252. +         } else if (bad) {
  253. +             lprintf(logf, "*** End of bad block(s) on tape\n");
  254. +             bad = 0;
  255. +         }
  256. +         bpos = 0;
  257. +     } else
  258. +         bpos += TBLOCK;
  259. + 
  260. +     fflush(logf);            /* Let they know what we're doing */
  261. +     return &buf[bpos];
  262. + }
  263. + 
  264. + main(argc, argv)
  265. + char **argv;
  266. + {
  267. +     int i, size, chksum, fblocks, eot_block;
  268. +     int user = -1;                /* UID to be forced */
  269. +     int group = -1;                /* GID to be forced */
  270. +     union hblock *hp;            /* To decipher headers */
  271. +     char tape[NAMSIZ];            /* Name of tape device */
  272. +     char ignore = 0;            /* Do not ignore EOT */
  273. +     char relative = 0;            /* Do not remove leading '/' */
  274. +     int nblock = 0;                /* Number of blocks written */
  275. +     strcpy(tape, default_tape);    /* Default device file */
  276. +     logf = stderr;                /* Default logging on stderr */
  277. +     i = 1;
  278. +     
  279. +     /* get arguments */
  280. +     while (argc > i && argv[i][0] == '-') {
  281. +         switch (argv[i][1]) {
  282. +             case 'f' : 
  283. +                 if (argc > i + 1) {
  284. +                     strcpy(tape,argv[++i]);
  285. +                     }
  286. +                 else {
  287. +                     fprintf(stderr, "No tape drive name given\n");
  288. +                     exit(10);
  289. +                 }
  290. +                 break;
  291. +             case 'l':
  292. +                 if (argc > i + 1) {
  293. +                     if ((logf = fopen(argv[++i], "w")) == NULL) {
  294. +                         perror("Can't open log file\n");
  295. +                         exit(11);
  296. +                     }
  297. +                 }
  298. +                 else {
  299. +                     fprintf(stderr, "No log file name given\n");
  300. +                     exit(12);
  301. +                 }
  302. +                 break;
  303. +             case 'i':        /* Ignore end of tape condition */
  304. +                 ignore = 1;
  305. +                 break;
  306. +             case 'r':        /* Force relative paths */
  307. +                 relative = 1;
  308. +                 break;
  309. +             case 'o':        /* Forces ownership */
  310. +                 user = (int) getuid();
  311. +                 group = (int) getgid();
  312. +                 break;
  313. +             case 'u':        /* Force UID on extraction */
  314. +                 if (argc > i + 1) {
  315. +                     sscanf(argv[++i], "%d", &user);
  316. +                     if (user == 0)
  317. +                         user = (int) getuid();    /* Can't give to root */
  318. +                 } else {
  319. +                     fprintf(stderr, "No user ID given\n");
  320. +                     exit(1);
  321. +                 }
  322. +                 break;
  323. +             case 'g':        /* Force GID on extraction */
  324. +                 if (argc > i + 1) {
  325. +                     sscanf(argv[++i], "%d", &group);
  326. +                     if (group == 0)
  327. +                         group = (int) getgid();    /* Can't give to root */
  328. +                 } else {
  329. +                     fprintf(stderr, "No group ID given\n");
  330. +                     exit(1);
  331. +                 }
  332. +                 break;
  333. +             case 'v':        /* Verbose logging */
  334. +                 verbose = 1;
  335. +                 silent = 0;
  336. +                 break;
  337. +             case 's':        /* No logging */
  338. +                 silent = 1;
  339. +                 verbose = 0;
  340. +                 break;
  341. +             case 'h':        /* Print help message */
  342. +                 usage();
  343. +                 exit(0);
  344. +             case 'V':        /* Print version number */
  345. +                 version();
  346. +                 exit(0);
  347. +             default: 
  348. +                 usage();
  349. +                 exit(13);
  350. +         }
  351. +         i++;
  352. +     }
  353. +     
  354. +     /* first char cannot be a 0 */
  355. +     pad[0]  = 'x';
  356. +     
  357. +     /* don't quite know what the tape driver will return, so fill buffer
  358. +        with non zero rubbish
  359. +      */
  360. +     for (i = 0; i < TAPEBLOCK; i++) xbuf[i] = 'x';
  361. +     
  362. +     /* open the tape drive ('-' stands for stdin) */
  363. +     if (0 == strcmp(tape, "-"))
  364. +         fd1 = 0;        /* Standard input */
  365. +     else if ((fd1 = open(tape, O_RDONLY,0)) < 0) {
  366. +         perror("can't open tape");
  367. +         exit(1);
  368. +     }
  369. +     while (1) {
  370. +         fflush(logf);            /* So that they know where we are */
  371. +         hp = (union hblock *) get_next();
  372. +         /* tar tests the first char to see if it is an end of tape (eot) block
  373. +          * or not. Can't see why it doesn't use tape marks. Maybe they weren't
  374. +          * invented when it was written?
  375. +           */
  376. +          /* get a tar block */
  377. +         
  378. +         if (hp->dbuf.name[0] == '\0' && !bad && !fblocks) {
  379. +             /* skip possible eot block (there are two of them) */
  380. +             lprintf(logf, "*** End of tape block\n");
  381. +             eot_block++;
  382. +             if (eot_block < 2)
  383. +                 continue;
  384. +             eot = 1;
  385. +         }
  386. +         /* note if the last block read is bad there may be rubish
  387. +          * (old info from the last write at the end of it) this may cause
  388. +          * some of the last files which are extracted to be partially
  389. +          * overwritten. There is very little one can do about this
  390. +          * (except pray)
  391. +          */
  392. +         
  393. +         /* end of tape ?? */
  394. +         if (eot) {
  395. +             if (fblocks) {
  396. +                 lprintf(logf,"*** Last file Truncated. File padded!!\n");
  397. +                 while (fblocks-- > 0)
  398. +                     nblock++, write(1, pad, TBLOCK);
  399. +             }
  400. +             if (!ignore) {
  401. +                 /* write two blank (eot) blocks */
  402. +                 pad[0] = '\0';
  403. +                 nblock++, write(1, pad, TBLOCK);
  404. +                 nblock++, write(1, pad, TBLOCK);
  405. +                 i = BLOCKF - nblock % BLOCKF;    /* Pad if necessary */
  406. +                 if (i < BLOCKF) {
  407. +                     lprintf(logf, "*** Padding %d block%s\n", i, i>1 ? "s":"");
  408. +                     for (; i > 0; i--)
  409. +                         write(1, pad, TBLOCK);
  410. +                 }
  411. +                 lprintf(logf,"*** End of tar\n");
  412. +                 exit(0);        /* OK */
  413. +             } else {
  414. +                 lprintf(logf,"*** Ignoring end of tar\n");
  415. +                 fblocks = 0;        /* You never know */
  416. +                 eot = 0;            /* I said: ignore EOT !! */
  417. +                 eot_block = 0;
  418. +                 continue;
  419. +             }
  420. +         }
  421. +         
  422. +         /* We need two consecutive EOT blocks for eot
  423. +          * condition to occur
  424. +          */
  425. +         eot_block = 0;
  426. +         
  427. +         /* decode header informations */
  428. +         sscanf(hp->dbuf.size, "%lo", &size);
  429. +         sscanf(hp->dbuf.chksum, "%o", &chksum);
  430. + 
  431. +         if (fblocks > 0 && !bad) { /* all ok in the middle of a file */
  432. +             nblock++, write(1, hp, TBLOCK);
  433. +             fblocks--;
  434. +             /* header inside file ? */
  435. +             if (check_sum(hp) == chksum && hp->dbuf.name[0] != '\0')
  436. +                 lprintf(logf, "*** Warning: Header found inside file!!\n");
  437. +             continue;
  438. +         }
  439. +         
  440. +         /* have we got a header ?? */
  441. +         if (check_sum(hp) == chksum && hp->dbuf.name[0] != '\0') {
  442. + 
  443. +             if (verbose) {
  444. +                 /* Write some informations about the header we've got */
  445. +                 fprintf(logf, "*** Header found.\n");
  446. +                 fprintf(logf, "***   Name: %s\n", hp->dbuf.name);
  447. +                 fprintf(logf, "***   Size: %d\n", size);
  448. +                 fprintf(logf, "***   Mode: %s\n", hp->dbuf.mode);
  449. +                 fprintf(logf, "***   Link flag: %c\n", hp->dbuf.linkflag);
  450. +             }
  451. + 
  452. +             /* we have a header */
  453. +             if (fblocks > 0) {
  454. +                 lprintf(logf, "*** Truncated!! File padded!!\n");
  455. +                 while (fblocks-- > 0)
  456. +                     nblock++, write(1, pad, TBLOCK);
  457. +             }
  458. + 
  459. +             /* If membership has to be overwritten, do it now */
  460. +             if (user != -1 || group != -1) {
  461. +                 if (user != -1)
  462. +                     sprintf(hp->dbuf.uid, "%o", user);
  463. +                 if (group != -1)
  464. +                     sprintf(hp->dbuf.gid, "%o", group);
  465. +                 sprintf(hp->dbuf.chksum, "%o", check_sum(hp));
  466. +             }
  467. + 
  468. +             /* Remove the leading '/' to get non absolute path */
  469. +             if (relative && hp->dbuf.name[0] == '/') {
  470. +                 sprintf(hp->dbuf.name, "%s", hp->dbuf.name + 1);
  471. +                 sprintf(hp->dbuf.chksum, "%o", check_sum(hp));
  472. +             }
  473. + 
  474. +             /* Compute number of blocks used by the file */
  475. +             fblocks = (size%TBLOCK) ? size/TBLOCK + 1 : size/TBLOCK;
  476. +             lprintf(logf,"%s (%d bytes)\n", hp->dbuf.name, size);
  477. +             nblock++, write(1, hp, TBLOCK);        /* Write the header */
  478. +             continue;
  479. +         }
  480. +         
  481. +         /* not a header */
  482. +         if (fblocks <= 0) {
  483. +             /* throw it away! */
  484. +             lprintf(logf, "*** Deleted block!!\n");
  485. +             fblocks = 0;    /* It can't be < 0, but you know... */
  486. +             continue;
  487. +         }
  488. + 
  489. +         lprintf(logf, "***  Writing possibly bad block!!\n");
  490. +         fblocks--;
  491. +         nblock++, write(1, hp, TBLOCK);
  492. +     }
  493. + }
  494. + 
  495.  
  496. Index: Configure
  497. Prereq: 2.0.1.4
  498. *** Configure.old    Sat Jan 11 19:23:59 1992
  499. --- Configure    Sat Jan 11 19:24:01 1992
  500. ***************
  501. *** 16,24 ****
  502.   # Write to ram@eiffel.com (Raphael Manfredi) and I will send you the
  503.   # latest revision of the dist package, which includes metaconfig.)
  504.   
  505. ! # $Id: Configure,v 2.0.1.4 91/11/25 15:48:25 ram Exp $
  506.   #
  507. ! # Generated on Mon Nov 25 15:43:33 PST 1991 [metaconfig 2.8 PL11]
  508.   
  509.   cat >/tmp/c1$$ <<EOF
  510.   
  511. --- 16,24 ----
  512.   # Write to ram@eiffel.com (Raphael Manfredi) and I will send you the
  513.   # latest revision of the dist package, which includes metaconfig.)
  514.   
  515. ! # $Id: Configure,v 2.0.1.5 92/01/11 19:08:09 ram Exp $
  516.   #
  517. ! # Generated on Sat Jan 11 19:03:07 PST 1992 [metaconfig 2.8 PL13]
  518.   
  519.   cat >/tmp/c1$$ <<EOF
  520.   
  521. ***************
  522. *** 150,163 ****
  523. --- 150,166 ----
  524.   contains=''
  525.   cppstdin=''
  526.   cppminus=''
  527. + d_bcopy=''
  528.   d_getopt=''
  529.   d_index=''
  530.   d_memcpy=''
  531.   d_memset=''
  532. + d_perror=''
  533.   d_portable=''
  534.   d_voidsig=''
  535.   signal_t=''
  536.   defeditor=''
  537. + i_fcntl=''
  538.   i_string=''
  539.   strings=''
  540.   i_sysioctl=''
  541. ***************
  542. *** 191,197 ****
  543. --- 194,204 ----
  544.   mips_type=''
  545.   voidflags=''
  546.   defvoidused=''
  547. + needbtar=''
  548. + wantbtar=''
  549.   d_taropt_o=''
  550. + hasdes=''
  551. + tapedev=''
  552.   large=''
  553.   d_whoami=''
  554.   i_sysselct=''
  555. ***************
  556. *** 661,666 ****
  557. --- 668,674 ----
  558.           cp ../config.sh .
  559.           n="$tmp"
  560.           c="$ans"
  561. +         hint=previous
  562.           ;;
  563.       esac
  564.   fi
  565. ***************
  566. *** 1200,1205 ****
  567. --- 1208,1215 ----
  568.           nm_opt=''
  569.       elif $test -d /usr/ccs/lib; then
  570.           nm_opt='-p'
  571. +     elif $test -f /dgux; then
  572. +         nm_opt='-p'
  573.       else
  574.           nm_opt=''
  575.       fi;;
  576. ***************
  577. *** 1437,1442 ****
  578. --- 1447,1464 ----
  579.   else echo "$1() not found.";
  580.       eval "case \"\$$var\" in $define) . whoa; esac"; eval "$var=\$tu"; fi'
  581.   
  582. + : see if bcopy exists
  583. + case "$d_bcopy" in
  584. + $define) d_bcopy="$undef";;
  585. + $undef) d_bcopy="$define";;
  586. + esac
  587. + set bcopy d_bcopy
  588. + eval $inlibc
  589. + case "$d_bcopy" in
  590. + $define) d_bcopy="$undef";;
  591. + *) d_bcopy="$define";;
  592. + esac
  593. + 
  594.   : see if getopt exists
  595.   set getopt d_getopt
  596.   eval $inlibc
  597. ***************
  598. *** 1522,1527 ****
  599. --- 1544,1571 ----
  600.   set memset d_memset
  601.   eval $inlibc
  602.   
  603. + : see if perror exists
  604. + echo " "
  605. + if $contains '^perror$' libc.list >/dev/null 2>&1; then
  606. +     echo 'perror() found.'
  607. +     d_perror="$undef"
  608. + else
  609. +     echo "perror() not found -- Won't be able to give precise error messages."
  610. +     d_perror="$define"
  611. + fi
  612. + 
  613. + : see if this is an fcntl system
  614. + echo " "
  615. + if $test -r $usrinc/fcntl.h ; then
  616. +     val="$define"
  617. +     echo "<fcntl.h> found."
  618. + else
  619. +     val="$undef"
  620. +     echo "No <fcntl.h> found, but that's ok."
  621. + fi
  622. + set i_fcntl
  623. + eval $setvar
  624. + 
  625.   : see how we invoke the C preprocessor
  626.   echo " "
  627.   echo "Now, how can we feed standard input to your C preprocessor..."
  628. ***************
  629. *** 1758,1763 ****
  630. --- 1802,1828 ----
  631.   eval $setvar
  632.   $rm -f $$.tmp
  633.   
  634. + : locate the default tape device
  635. + echo " "
  636. + case "$tapedev" in
  637. + '') if set x /dev/rst*; shift; $test -c "$1"; then
  638. +         dflt="$1";
  639. +     elif set x /dev/rmt*; shift; $test -c "$1"; then
  640. +         dflt="$1";
  641. +     elif set x /dev/rmt/m*; shift; $test -c "$1"; then
  642. +         dflt="$1";
  643. +     elif set x /dev/rmt/?; shift; $test -c "$1"; then
  644. +         dflt="$1";
  645. +     else
  646. +         dflt="/dev/rmt8";
  647. +     fi
  648. +     ;;
  649. + *) dflt="$tapedev";;
  650. + esac
  651. + rp='Where is your tape device located?'
  652. + . myread
  653. + tapedev="$ans"
  654. + 
  655.   : check for void type
  656.   echo " "
  657.   $cat <<EOM
  658. ***************
  659. *** 1879,1884 ****
  660. --- 1944,1977 ----
  661.       fi
  662.   done
  663.   
  664. + : decide how portable to be
  665. + case "$d_portable" in
  666. + "$define") dflt=y;;
  667. + *)    dflt=n;;
  668. + esac
  669. + $cat <<'EOH'
  670. +  
  671. + I can set things up so that your shell scripts and binaries are more portable,
  672. + at what may be a noticable cost in performance.  In particular, if you
  673. + ask to be portable, the following happens:
  674. + 
  675. +      1) Shell scripts will rely on the PATH variable rather than using
  676. +     the paths derived above.
  677. +      2) ~username interpretations will be done at run time rather than
  678. +     by Configure.
  679. + 
  680. + EOH
  681. + rp="Do you expect to run these scripts and binaries on multiple machines?"
  682. + . myread
  683. + case "$ans" in
  684. +     y*) d_portable="$define"
  685. +     for file in $loclist; do
  686. +         eval $file=$file
  687. +     done
  688. +     ;;
  689. +     *)  d_portable="$undef" ;;
  690. + esac
  691. + 
  692.   : see if we need -o option for tar
  693.   echo " "
  694.   case "$d_taropt_o" in
  695. ***************
  696. *** 1930,1935 ****
  697. --- 2023,2084 ----
  698.       fi
  699.   done
  700.   
  701. + : see if des is there and compatible
  702. + echo " "
  703. + case "$hasdes" in
  704. + '') hasdes=false
  705. +     xxx=`loc des x $pth`
  706. +     case "$xxx" in
  707. +     /*) echo "I see you already have a DES in $xxx."
  708. +         echo "Let's make sure it is compatible with mine..."
  709. +         $cat > dedes.c <<EOP
  710. + #include <stdio.h>
  711. + main()
  712. + {
  713. +     char s[10];
  714. +     int c;
  715. + 
  716. +     while (gets(s)) {
  717. +         sscanf(s, "%d", &c);
  718. +         putchar(c);
  719. +     }
  720. + }
  721. + EOP
  722. +         if $cc -o dedes dedes.c >/dev/null 2>&1; then
  723. +             echo "This is a DES try" > des.1
  724. +             $tr ' ' '\012' >des.data <<EOD
  725. + 237 195 33 239 62 135 8 90 191 42 108 230 24 121 207 173 18 98
  726. + 224 166 63 115 153 79
  727. + EOD
  728. +             ./dedes >des.input <des.data
  729. +             $xxx -d -k foo <des.input > des.2 2>&1
  730. +             if cmp -s des.1 des.2 >/dev/null 2>&1; then
  731. +                 echo "Yes, it is! We won't need mine then."
  732. +                 hasdes=true
  733. +             else
  734. +                 echo "No, it isn't!! But that's ok, I'll use my own version."
  735. +                 hasdes=false
  736. +             fi
  737. +         else
  738. +             echo "(I can't seem to compile the test program--Using your DES)"
  739. +             hasdes=true
  740. +         fi
  741. +         ;;
  742. +     *) echo "I don't see any DES implementation out there. I'll use mine."
  743. +         ;;
  744. +     esac
  745. +     ;;
  746. + *) case "$hasdes" in
  747. +     true) echo "I already know that your DES is compatible with mine.";;
  748. +     *) $cat <<EOM
  749. + As before, I'm going to use the DES implementation provided with $package.
  750. + EOM
  751. +     ;;
  752. +     esac
  753. +     ;;
  754. + esac
  755. + $rm -f dedes.c dedes des.data des.input des.1 des.2
  756. + 
  757.   : determine the name of a reasonable mailer
  758.   case "$mailer" in
  759.   '')
  760. ***************
  761. *** 2024,2055 ****
  762.   *) manext=1;;
  763.   esac
  764.   
  765. ! : decide how portable to be
  766. ! case "$d_portable" in
  767. ! "$define") dflt=y;;
  768. ! *)    dflt=n;;
  769.   esac
  770. ! $cat <<'EOH'
  771. !  
  772. ! I can set things up so that your shell scripts and binaries are more portable,
  773. ! at what may be a noticable cost in performance.  In particular, if you
  774. ! ask to be portable, the following happens:
  775.   
  776. !      1) Shell scripts will rely on the PATH variable rather than using
  777. !     the paths derived above.
  778. !      2) ~username interpretations will be done at run time rather than
  779. !     by Configure.
  780.   
  781. ! EOH
  782. ! rp="Do you expect to run these scripts and binaries on multiple machines?"
  783. ! . myread
  784. ! case "$ans" in
  785. !     y*) d_portable="$define"
  786. !     for file in $loclist; do
  787. !         eval $file=$file
  788. !     done
  789.       ;;
  790. -     *)  d_portable="$undef" ;;
  791.   esac
  792.   
  793.   : determine where private executables go
  794. --- 2173,2232 ----
  795.   *) manext=1;;
  796.   esac
  797.   
  798. ! : see if we need badtar
  799. ! echo " "
  800. ! case "$needbtar" in
  801. ! '') xxx=''
  802. !     case "$d_taropt_o" in
  803. !     "$define") xxx='o';;
  804. !     esac
  805. !     echo "Checking to see how well 'tar x${xxx}f' sets ownership..."
  806. !     (cd /bin; $tar cf - rm) | eval "$tar x${xxx}f -"
  807. !     needbtar='true'
  808. !     if test -f rm; then
  809. !         (cd /bin; ls -l rm) > rm.orig
  810. !         ls -l rm > rm.now
  811. !         if cmp rm.orig rm.now >/dev/null 2>&1; then
  812. !         echo "Your tar does not seem to overwrite ownership -- I'll use badtar."
  813. !         else
  814. !             echo "Your tar works fine."
  815. !             needbtar='false'
  816. !         fi
  817. !     else
  818. !         echo "(My test failed -- Using badtar, just in case.)"
  819. !     fi
  820. !     ;;
  821. ! *) case "$needbtar" in
  822. !     true) echo "I'll pipe badtar's output to tar, so that things run smoothly."
  823. !         ;;
  824. !     *) echo "I'll trust your tar to overwrite file ownership."
  825. !         ;;
  826. !     esac
  827. !     ;;
  828.   esac
  829. ! $rm -f rm rm.orig rm.now
  830.   
  831. ! : does the user want badtar ?
  832. ! wantbtar='true'
  833. ! case "$needbtar" in
  834. ! true) ;;
  835. ! *) $cat <<EOM
  836. ! 
  837. ! $package comes with badtar, a program which repairs damaged tar files. You
  838. ! do not need it to run $package, but you may want to compile and install it
  839. ! anyway. Badtar has its output piped to tar and does some kind of filterting,
  840. ! like padding files (assuming some blocks on the tape could not be read),
  841. ! stripping down absolute paths to relative ones by removing the leading '/',
  842. ! or simply overwriting the ownership of the files. It comes with a manual page.
  843.   
  844. ! EOM
  845. !     dflt='y'
  846. !     rp='Would you like to have badtar installed?'
  847. !     . myread
  848. !     case "$and" in
  849. !     n*|N*) wantbtar='false';;
  850. !     esac
  851.       ;;
  852.   esac
  853.   
  854.   : determine where private executables go
  855. ***************
  856. *** 2219,2232 ****
  857. --- 2396,2412 ----
  858.   contains='$contains'
  859.   cppstdin='$cppstdin'
  860.   cppminus='$cppminus'
  861. + d_bcopy='$d_bcopy'
  862.   d_getopt='$d_getopt'
  863.   d_index='$d_index'
  864.   d_memcpy='$d_memcpy'
  865.   d_memset='$d_memset'
  866. + d_perror='$d_perror'
  867.   d_portable='$d_portable'
  868.   d_voidsig='$d_voidsig'
  869.   signal_t='$signal_t'
  870.   defeditor='$defeditor'
  871. + i_fcntl='$i_fcntl'
  872.   i_string='$i_string'
  873.   strings='$strings'
  874.   i_sysioctl='$i_sysioctl'
  875. ***************
  876. *** 2260,2266 ****
  877. --- 2440,2450 ----
  878.   mips_type='$mips_type'
  879.   voidflags='$voidflags'
  880.   defvoidused='$defvoidused'
  881. + needbtar='$needbtar'
  882. + wantbtar='$wantbtar'
  883.   d_taropt_o='$d_taropt_o'
  884. + hasdes='$hasdes'
  885. + tapedev='$tapedev'
  886.   EOT
  887.   
  888.   : add special variables
  889.  
  890. Index: kit/kit.SH
  891. Prereq: 2.0.1.6
  892. *** kit/kit.SH.old    Sat Jan 11 19:24:40 1992
  893. --- kit/kit.SH    Sat Jan 11 19:24:41 1992
  894. ***************
  895. *** 26,34 ****
  896.   !GROK!THIS!
  897.   $spitshell >>kit <<'!NO!SUBS!'
  898.   
  899. ! # $Id: kit.SH,v 2.0.1.6 91/12/08 14:55:06 ram Exp $
  900.   #
  901.   # $Log:    kit.SH,v $
  902.   # Revision 2.0.1.6  91/12/08  14:55:06  ram
  903.   # patch10: forgot to protect evaluation of variable in a test
  904.   # 
  905. --- 26,37 ----
  906.   !GROK!THIS!
  907.   $spitshell >>kit <<'!NO!SUBS!'
  908.   
  909. ! # $Id: kit.SH,v 2.0.1.7 92/01/11 19:17:20 ram Exp $
  910.   #
  911.   # $Log:    kit.SH,v $
  912. + # Revision 2.0.1.7  92/01/11  19:17:20  ram
  913. + # patch11: now uses makeshar when cshar is not installed
  914. + # 
  915.   # Revision 2.0.1.6  91/12/08  14:55:06  ram
  916.   # patch10: forgot to protect evaluation of variable in a test
  917.   # 
  918. ***************
  919. *** 174,179 ****
  920. --- 177,185 ----
  921.           ;;
  922.       -*) echo "unkown option $1"
  923.           eval $usage
  924. +         ;;
  925. +     *) break
  926. +         ;;
  927.       esac
  928.   done
  929.   
  930. ***************
  931. *** 242,252 ****
  932.       fi
  933.   fi
  934.   
  935.   echo "Coding with $coding"
  936.   # Beware: 'eval $coding < $tmpfile' is not portable
  937.   cat $tmpfile | eval $coding |
  938.   split -600 - $split_file &&
  939. ! makekit -k100 -n $partname ${split_file}* $minikit $mininame &&
  940.   rm ${split_file}* $minikit $mininame $tmpfile
  941.   
  942.   case "$subject" in
  943. --- 248,265 ----
  944.       fi
  945.   fi
  946.   
  947. + # Check whether we can use cshar or not
  948. + if (makekit -v) >/dev/null 2>&1; then
  949. +     makekit="makekit -k100 -n $partname ${split_file}* $minikit $mininame"
  950. + else
  951. +     makekit="$libdir/makeshar -n $partname ${split_file}* $minikit $mininame"
  952. + fi
  953. + 
  954.   echo "Coding with $coding"
  955.   # Beware: 'eval $coding < $tmpfile' is not portable
  956.   cat $tmpfile | eval $coding |
  957.   split -600 - $split_file &&
  958. ! eval $makekit &&
  959.   rm ${split_file}* $minikit $mininame $tmpfile
  960.   
  961.   case "$subject" in
  962.  
  963. Index: man/kit.SH
  964. Prereq: 2.0.1.5
  965. *** man/kit.SH.old    Sat Jan 11 19:24:57 1992
  966. --- man/kit.SH    Sat Jan 11 19:24:59 1992
  967. ***************
  968. *** 18,26 ****
  969.   .TH KIT $manext ram
  970.   ''' @(#) Manual page for mailing kit -- (c) ram July 1990
  971.   '''
  972. ! ''' $Id: kit.SH,v 2.0.1.5 91/11/25 15:53:01 ram Exp $
  973.   '''
  974.   ''' $Log:    kit.SH,v $
  975.   ''' Revision 2.0.1.5  91/11/25  15:53:01  ram
  976.   ''' patch9: added kit's -M option to include minikit
  977.   ''' patch9: documents the tar -o possible problem
  978. --- 18,30 ----
  979.   .TH KIT $manext ram
  980.   ''' @(#) Manual page for mailing kit -- (c) ram July 1990
  981.   '''
  982. ! ''' $Id: kit.SH,v 2.0.1.6 92/01/11 19:22:08 ram Exp $
  983.   '''
  984.   ''' $Log:    kit.SH,v $
  985. + ''' Revision 2.0.1.6  92/01/11  19:22:08  ram
  986. + ''' patch11: the .so directive was made relative to make man happy
  987. + ''' patch11: documents badtar and cshar-emulating scripts
  988. + ''' 
  989.   ''' Revision 2.0.1.5  91/11/25  15:53:01  ram
  990.   ''' patch9: added kit's -M option to include minikit
  991.   ''' patch9: documents the tar -o possible problem
  992. ***************
  993. *** 58,64 ****
  994.   \fBmailkit\fR [ \fB\-EFVefhp\fR ] [ \fB\-l\fI file\fR ]
  995.   [ \fB\-n\fI partname\fR ] \fItitle\fR [ \fIaddress(es)\fR ]
  996.   .br
  997. ! \fBunkit\fR [ \fB\-hlprV\fR ] [ \fIfiles\fR ]
  998.   .SH DESCRIPTION
  999.   \fIKit\fR is the ultimate mailing tool. It enables you to mail
  1000.   data without any consideration of possible escape sequences or
  1001. --- 62,68 ----
  1002.   \fBmailkit\fR [ \fB\-EFVefhp\fR ] [ \fB\-l\fI file\fR ]
  1003.   [ \fB\-n\fI partname\fR ] \fItitle\fR [ \fIaddress(es)\fR ]
  1004.   .br
  1005. ! \fBunkit\fR [ \fB\-bhlprV\fR ] [ \fIfiles\fR ]
  1006.   .SH DESCRIPTION
  1007.   \fIKit\fR is the ultimate mailing tool. It enables you to mail
  1008.   data without any consideration of possible escape sequences or
  1009. ***************
  1010. *** 66,73 ****
  1011.   Given a file name or a directory, it builds a single file using
  1012.   \fItar\fR(1) and \fIcompress\fR(1). Then this file is hex-encoded
  1013.   (option \fB\-H\fR) or ASCII-encoded with \fIbtoa\fR(1)
  1014. ! (option \fB\-B\fR, which is used by default) before being shell-archived
  1015. ! by \fImakekit\fR(1).
  1016.   \fIKit\fR produces files that match "Kit*" regular expression.
  1017.   This default base name can be changed thanks to \fB\-n\fR option.
  1018.   On invocation, it removes all previously existing "Kit*" files.
  1019. --- 70,76 ----
  1020.   Given a file name or a directory, it builds a single file using
  1021.   \fItar\fR(1) and \fIcompress\fR(1). Then this file is hex-encoded
  1022.   (option \fB\-H\fR) or ASCII-encoded with \fIbtoa\fR(1)
  1023. ! (option \fB\-B\fR, which is used by default) before being shell-archived.
  1024.   \fIKit\fR produces files that match "Kit*" regular expression.
  1025.   This default base name can be changed thanks to \fB\-n\fR option.
  1026.   On invocation, it removes all previously existing "Kit*" files.
  1027. ***************
  1028. *** 126,131 ****
  1029. --- 129,139 ----
  1030.   the message will be sent in an extra part (#0), while with \fB\-e\fR
  1031.   it will be included in each part. Empty messages will be ignored.
  1032.   .PP
  1033. + Options \fB\-F\fR and \fB\-f\fR are very similar, but take their
  1034. + input from stdin (standard input) instead of calling an editor.
  1035. + Option \fB\-p\fR asks \fImailkit\fR for preserving mailed files. They
  1036. + are removed by default.
  1037. + .PP
  1038.   When \fImailkit\fR is given a \fB\-l\fR option, it takes the file name
  1039.   as a file whith recipients addresses in it and adds the optional addresses that
  1040.   may be given on the command line. Addresses in the recipient file are
  1041. ***************
  1042. *** 132,142 ****
  1043.   separated with spaces, commas or new lines. Shell-style comments starting with
  1044.   a pound sign (#) are allowed.
  1045.   .PP
  1046. - Options \fB\-F\fR and \fB\-f\fR are very similar, but take their
  1047. - input from stdin (standard input) instead of calling an editor.
  1048. - Option \fB\-p\fR asks \fImailkit\fR for preserving mailed files. They
  1049. - are removed by default.
  1050. - .PP
  1051.   \fIUnkit\fR is used to restore the original files. The argument is
  1052.   a list of archive files (or mail files, as \fIunshar\fR(1), which
  1053.   is called by \fIunkit\fR, can deal with mail headers).
  1054. --- 140,145 ----
  1055. ***************
  1056. *** 145,150 ****
  1057. --- 148,160 ----
  1058.   If no file name is given to \fIunkit\fR, the standard input is processed.
  1059.   This is useful to process messages directly from a mail user agent.
  1060.   .PP
  1061. + Sometimes, \fItar\fR does not work well accross NFS and will fail restoring
  1062. + ownership on files, even with the \-\fBo\fR option. If you chose to install
  1063. + \fIbadtar\fR at configuration time, you may use \-\fBb\fR to instruct
  1064. + \fIunkit\fR using \fIbadtar\fR as a filter before running \fItar\fR. This is
  1065. + the default action on some systems (the \-\fBh\fR option will tell you
  1066. + what was determined at configuration time).
  1067. + .PP
  1068.   If you want to know what \fIunkit\fR will create without actually
  1069.   doing it, use the \fB\-l\fR option. With this option, \fB\-r\fR is
  1070.   ignored.
  1071. ***************
  1072. *** 181,192 ****
  1073.   $privlib/minikit
  1074.   the script which may be used to unkit a distribution when the kit
  1075.   package is not available.
  1076.   .PD
  1077.   .SH NOTE
  1078.   .PP
  1079. ! In order to use kit, you need to install \fBcshar\fR in your
  1080. ! PATH (programs needed are \fIshar\fR, \fImakekit\fR).
  1081. ! Moreover, \fIhexdecode\fR, \fIhexencode\fR, \fIatob\fR and \fIbtoa\fR
  1082.   must be installed and \fIcompress\fR must be available.
  1083.   If any of these is missing, this mailing kit is useless.
  1084.   .PP
  1085. --- 191,214 ----
  1086.   $privlib/minikit
  1087.   the script which may be used to unkit a distribution when the kit
  1088.   package is not available.
  1089. + .TP
  1090. + $privlib/makeshar
  1091. + the script which emulates \fIcshar\fR's \fImakekit\fR program.
  1092. + .TP
  1093. + $privlib/rshar
  1094. + a simple shell archive maker.
  1095.   .PD
  1096.   .SH NOTE
  1097.   .PP
  1098. ! Kit may now be used as a standalone package, i.e. without the help of
  1099. ! the \fIcshar\fR distribution.
  1100. ! This was not true before version 2.0 PL10. Two simple shell scripts
  1101. ! now emulate \fIcshar\fR's behaviour. Those scripts are held in the
  1102. ! private library directory because they are not intended to be used
  1103. ! directly by any user.
  1104. ! .PP
  1105. ! In order to use kit, \fIhexdecode\fR, \fIhexencode\fR,
  1106. ! \fIatob\fR and \fIbtoa\fR
  1107.   must be installed and \fIcompress\fR must be available.
  1108.   If any of these is missing, this mailing kit is useless.
  1109.   .PP
  1110. ***************
  1111. *** 247,253 ****
  1112.   .SH AUTHOR
  1113.   Raphael Manfredi <ram@eiffel.com>.
  1114.   
  1115. ! \fIKit\fR was developed at the Ecole des Mines, Saint-Etienne,
  1116. ! France.
  1117.   !GROK!THIS!
  1118.   chmod 444 kit.$manext
  1119. --- 269,276 ----
  1120.   .SH AUTHOR
  1121.   Raphael Manfredi <ram@eiffel.com>.
  1122.   
  1123. ! \fIKit\fR was first developed at the Ecole des Mines, Saint-Etienne,
  1124. ! France. Many improvements were added at Interactive Software
  1125. ! Engineering Inc., Santa-Barbara CA, USA.
  1126.   !GROK!THIS!
  1127.   chmod 444 kit.$manext
  1128.  
  1129. Index: README
  1130. *** README.old    Sat Jan 11 19:24:11 1992
  1131. --- README    Sat Jan 11 19:24:12 1992
  1132. ***************
  1133. *** 1,11 ****
  1134.                                kit 2.0
  1135.   
  1136. !              Copyright (c) 1990 1991, Raphael Manfredi
  1137.   
  1138.   You may copy this kit in whole or in part as long as you don't try to
  1139.   make money off it, or pretend you wrote it.
  1140.   ------------------------------------------------------------------------
  1141. ! The ultimate mailing kit -- Assumes you own cshar (written by Rich Salz)
  1142.   
  1143.   Please read all the directions below before you proceed any further, and
  1144.   then follow them carefully.
  1145. --- 1,11 ----
  1146.                                kit 2.0
  1147.   
  1148. !            Copyright (c) 1990 1991 1992, Raphael Manfredi
  1149.   
  1150.   You may copy this kit in whole or in part as long as you don't try to
  1151.   make money off it, or pretend you wrote it.
  1152.   ------------------------------------------------------------------------
  1153. !                       The ultimate mailing kit
  1154.   
  1155.   Please read all the directions below before you proceed any further, and
  1156.   then follow them carefully.
  1157. ***************
  1158. *** 13,24 ****
  1159.   After you have unpacked your kit, you should have all the files listed
  1160.   in MANIFEST.
  1161.   
  1162. ! If you only wish to use unkit, then CSHAR is not necessary, though
  1163. ! strongly recommended.
  1164.   
  1165. ! In order to use kit, you need to install CSHAR in your PATH (programs
  1166. ! needed are shar, makekit and unshar). Compress must be available. If you
  1167. ! miss one of those, send me a mail: ram@eiffel.com (Raphael Manfredi).
  1168.   
  1169.   Moreover, hexdecode, hexencode, atob and btoa must be installed. The
  1170.   public-domain implementation of des, which is provided with kit, must
  1171. --- 13,25 ----
  1172.   After you have unpacked your kit, you should have all the files listed
  1173.   in MANIFEST.
  1174.   
  1175. ! Kit used to rely on Rich Salz's cshar package but is now self-contained.
  1176. ! However, if you have the opportunity to get cshar, I would recommend its
  1177. ! installation. Kit will automatically use the tools from cshar when they
  1178. ! are available.
  1179.   
  1180. ! In order to use kit, you must have an implementation of compress. If you
  1181. ! miss it, send me a mail: ram@eiffel.com (Raphael Manfredi).
  1182.   
  1183.   Moreover, hexdecode, hexencode, atob and btoa must be installed. The
  1184.   public-domain implementation of des, which is provided with kit, must
  1185. ***************
  1186. *** 69,81 ****
  1187.   
  1188.   CREDITS
  1189.   
  1190. ! Kit relies on two public-domain softwares:
  1191.   
  1192. !     - cshar, written by Rich Salz.
  1193.       - des, written by Phil Karn, which is provided with kit.
  1194.   
  1195. - To maintain and configure kit, I use the dist 2.0 package written
  1196. - by Larry Wall with some significant changes. If you wish to get a
  1197. - copy of it, feel free to ask me.
  1198.   
  1199. !     -- Raphael
  1200. --- 70,93 ----
  1201.   
  1202.   CREDITS
  1203.   
  1204. ! Kit relies on four public-domain softwares:
  1205.   
  1206. !     - cshar, written by Rich Salz (kit will use it if possible).
  1207.       - des, written by Phil Karn, which is provided with kit.
  1208. +     - btoa (as a stripped down implementation).
  1209. +     - badtar, written by Mike Williams, with a few enhancements.
  1210.   
  1211.   
  1212. ! ACKNOWLEDGMENTS
  1213. ! 
  1214. ! I would like to thank:
  1215. !     Gary Casterline <casterln@are.berkeley.edu>
  1216. !     Michael Fischer <fischer-michael@cs.yale.edu>
  1217. !     Monty Solomon <monty@bu.edu>
  1218. ! for their bug reports and comments.
  1219. ! 
  1220. ! The criticism of Tim Kuehn <timk@wynnds.xenitec.on.ca> was also much
  1221. ! appreciated.
  1222. ! 
  1223. ! 
  1224. !     Raphael Manfredi <ram@eiffel.com>
  1225.  
  1226. Index: badtar/README
  1227. *** badtar/README.old    Sat Jan 11 19:24:17 1992
  1228. --- badtar/README    Sat Jan 11 19:24:18 1992
  1229. ***************
  1230. *** 0 ****
  1231. --- 1,26 ----
  1232. + The following program can be used to extract files from a tar tape which
  1233. + contains read errors. It is used as a filter whose output should be piped
  1234. + into tar thus:
  1235. + 
  1236. +     badtar -f /dev/rmt16 -l log_file | tar xf -
  1237. + 
  1238. + This program is not perfect. It cannot read what cannot be read, but it
  1239. + will continue over read errors, pad files to suitable lengths when blocks
  1240. + are missing, ignore files whose header tar blocks are mangled etc...
  1241. + 
  1242. + The log file (-l flag) gives a list of all files found, indicates which of 
  1243. + them were padded, shows where blocks were deleted (ie files were lost)
  1244. + and where bad blocks occured on the tape. You can get a good idea from this
  1245. + list where files will have been mangled or lost. All error messages begin with
  1246. + *** which makes life easier to find errors in a long list.
  1247. + 
  1248. + Badtar was written by Mike Williams and appeared in net.sources in 1986.
  1249. + I have worked on the code one day I could not read my backup tape... The
  1250. + ownership overwriting has been written specially for kit. Badtar may be
  1251. + used apart from kit, of course, as a standalone tool.
  1252. + 
  1253. + If you have suggestions on how to improve badtar, I would be pleased to
  1254. + hear about it. However, I'd like to keep it small, being part of kit
  1255. + delivery.
  1256. + 
  1257. +     Raphael Manfredi <ram@eiffel.com>
  1258.  
  1259. Index: shar/README
  1260. *** shar/README.old    Sat Jan 11 19:25:11 1992
  1261. --- shar/README    Sat Jan 11 19:25:11 1992
  1262. ***************
  1263. *** 0 ****
  1264. --- 1,18 ----
  1265. + This directory contains a set of shell scripts which are to be used
  1266. + by kit when cshar is not available. Those scripts are not intended
  1267. + to be executed directly by the user, hence no manual page is provided
  1268. + and the scripts are installed in the private library directory.
  1269. + 
  1270. + There should be no difference from the user's point of view when kit
  1271. + uses those scripts instead of the cshar package. The aim was to make
  1272. + kit a self-contained package. When possible however, cshar should be
  1273. + installed. Kit will automatically use cshar whenever it can.
  1274. + 
  1275. + In the design of the shell archive produced by rshar, I freely borrowed
  1276. + the style used by Rich Salz in his cshar package. In the makeshar script,
  1277. + the algorithm used to assign each file a part number comes directly from
  1278. + the makedist perl script found in Larry Wall's dist 2.0.
  1279. + 
  1280. + The scripts are so small they are installed in the public kit library
  1281. + even if cshar is installed. It might be useful if the kit scripts are
  1282. + shared accross different machines and some do miss cshar.
  1283.  
  1284. Index: Makefile.SH
  1285. Prereq: 2.0.1.4
  1286. *** Makefile.SH.old    Sat Jan 11 19:24:08 1992
  1287. --- Makefile.SH    Sat Jan 11 19:24:08 1992
  1288. ***************
  1289. *** 18,26 ****
  1290.   #    Makefile for kit
  1291.   #
  1292.   
  1293. ! # $Id: Makefile.SH,v 2.0.1.4 91/12/08 14:53:40 ram Exp $
  1294.   #
  1295.   # $Log:    Makefile.SH,v $
  1296.   # Revision 2.0.1.4  91/12/08  14:53:40  ram
  1297.   # patch10: make clobber was not removing cppstdin
  1298.   # 
  1299. --- 18,29 ----
  1300.   #    Makefile for kit
  1301.   #
  1302.   
  1303. ! # $Id: Makefile.SH,v 2.0.1.5 92/01/11 19:08:43 ram Exp $
  1304.   #
  1305.   # $Log:    Makefile.SH,v $
  1306. + # Revision 2.0.1.5  92/01/11  19:08:43  ram
  1307. + # patch11: added subdirectories badtar and shar
  1308. + # 
  1309.   # Revision 2.0.1.4  91/12/08  14:53:40  ram
  1310.   # patch10: make clobber was not removing cppstdin
  1311.   # 
  1312. ***************
  1313. *** 39,45 ****
  1314.   
  1315.   SHELL = /bin/sh
  1316.   
  1317. ! SUBDIRS = btoa kit man des
  1318.   RM = $rm
  1319.   !GROK!THIS!
  1320.   $spitshell >>Makefile <<'!NO!SUBS!'
  1321. --- 42,48 ----
  1322.   
  1323.   SHELL = /bin/sh
  1324.   
  1325. ! SUBDIRS = badtar btoa kit shar man des
  1326.   RM = $rm
  1327.   !GROK!THIS!
  1328.   $spitshell >>Makefile <<'!NO!SUBS!'
  1329.  
  1330. Index: badtar/Makefile.SH
  1331. *** badtar/Makefile.SH.old    Sat Jan 11 19:24:14 1992
  1332. --- badtar/Makefile.SH    Sat Jan 11 19:24:15 1992
  1333. ***************
  1334. *** 0 ****
  1335. --- 1,72 ----
  1336. + case $CONFIG in
  1337. + '')
  1338. +     if test ! -f config.sh; then
  1339. +         ln ../config.sh . || \
  1340. +         ln ../../config.sh . || \
  1341. +         ln ../../../config.sh . || \
  1342. +         (echo "Can't find config.sh."; exit 1)
  1343. +     fi 2>/dev/null
  1344. +     . config.sh
  1345. +     ;;
  1346. + esac
  1347. + case "$0" in
  1348. + */*) cd `expr X$0 : 'X\(.*\)/'` ;;
  1349. + esac
  1350. + echo "Extracting badtar/Makefile (with variable substitutions)"
  1351. + $spitshell >Makefile <<!GROK!THIS!
  1352. + #
  1353. + # Makefile for kit (sub-directory badtar)
  1354. + #
  1355. + 
  1356. + # $Id: Makefile.SH,v 2.0.1.1 92/01/11 19:11:57 ram Exp $
  1357. + #
  1358. + # $Log:    Makefile.SH,v $
  1359. + # Revision 2.0.1.1  92/01/11  19:11:57  ram
  1360. + # patch11: created
  1361. + # 
  1362. + 
  1363. + SHELL = /bin/sh
  1364. + 
  1365. + CC = $cc
  1366. + CFLAGS = $ccflags $optimize
  1367. + RM = $rm
  1368. + bin = $bin
  1369. + man = $mansrc
  1370. + manpage = badtar.$manext
  1371. + !GROK!THIS!
  1372. + case "$wantbtar" in
  1373. + true)
  1374. + $spitshell >>Makefile <<'!NO!SUBS!'
  1375. + 
  1376. + all: badtar $(manpage)
  1377. + 
  1378. + badtar: badtar.o
  1379. +     $(CC) $(CFLAGS) -o badtar badtar.o
  1380. + 
  1381. + $(manpage): badtar.SH
  1382. +     /bin/sh badtar.SH
  1383. + 
  1384. + install: badtar $(manpage)
  1385. +     ../install -s -m 755 badtar $(bin)
  1386. +     ../install -m 444 $(manpage) $(man)
  1387. + 
  1388. + clean:
  1389. +     rm -f *.o badtar $(manpage)
  1390. + 
  1391. + !NO!SUBS!
  1392. +     ;;
  1393. + *)
  1394. + $spitshell >>Makefile <<'!NO!SUBS!'
  1395. + 
  1396. + all install clean:
  1397. + 
  1398. + !NO!SUBS!
  1399. +     ;;
  1400. + esac
  1401. + $spitshell >>Makefile <<'!NO!SUBS!'
  1402. + realclean clobber: clean
  1403. +     $(RM) -f core Makefile config.sh
  1404. + 
  1405. + !NO!SUBS!
  1406. + chmod 755 Makefile
  1407. + $eunicefix Makefile
  1408.  
  1409. Index: des/Makefile.SH
  1410. Prereq: 2.0.1.3
  1411. *** des/Makefile.SH.old    Sat Jan 11 19:24:32 1992
  1412. --- des/Makefile.SH    Sat Jan 11 19:24:32 1992
  1413. ***************
  1414. *** 18,26 ****
  1415.   # Makefile for kit (sub-directory des)
  1416.   #
  1417.   
  1418. ! # $Id: Makefile.SH,v 2.0.1.3 91/11/25 12:03:16 ram Exp $
  1419.   #
  1420.   # $Log:    Makefile.SH,v $
  1421.   # Revision 2.0.1.3  91/11/25  12:03:16  ram
  1422.   # patch8: this file was stamped with a wrong package name
  1423.   # 
  1424. --- 18,29 ----
  1425.   # Makefile for kit (sub-directory des)
  1426.   #
  1427.   
  1428. ! # $Id: Makefile.SH,v 2.0.1.4 92/01/11 19:13:59 ram Exp $
  1429.   #
  1430.   # $Log:    Makefile.SH,v $
  1431. + # Revision 2.0.1.4  92/01/11  19:13:59  ram
  1432. + # patch11: now depends on the 'hasdes' configuration variable
  1433. + # 
  1434.   # Revision 2.0.1.3  91/11/25  12:03:16  ram
  1435.   # patch8: this file was stamped with a wrong package name
  1436.   # 
  1437. ***************
  1438. *** 40,45 ****
  1439. --- 43,50 ----
  1440.   RM = $rm
  1441.   bin = $bin
  1442.   !GROK!THIS!
  1443. + case "$hasdes" in
  1444. + false)
  1445.   $spitshell >>Makefile <<'!NO!SUBS!'
  1446.   
  1447.   all: $(ALL)
  1448. ***************
  1449. *** 61,68 ****
  1450. --- 66,85 ----
  1451.   clean:
  1452.       rm -f *.o des descert
  1453.   
  1454. + !NO!SUBS!
  1455. +     ;;
  1456. + *)
  1457. + $spitshell >>Makefile <<'!NO!SUBS!'
  1458. + 
  1459. + all install clean:
  1460. + 
  1461. + !NO!SUBS!
  1462. +     ;;
  1463. + esac
  1464. + $spitshell >>Makefile <<'!NO!SUBS!'
  1465.   realclean clobber: clean
  1466.       $(RM) -f certify core Makefile config.sh
  1467. + 
  1468.   !NO!SUBS!
  1469.   chmod 755 Makefile
  1470.   $eunicefix Makefile
  1471.  
  1472. Index: shar/Makefile.SH
  1473. *** shar/Makefile.SH.old    Sat Jan 11 19:25:08 1992
  1474. --- shar/Makefile.SH    Sat Jan 11 19:25:08 1992
  1475. ***************
  1476. *** 0 ****
  1477. --- 1,59 ----
  1478. + case $CONFIG in
  1479. + '')
  1480. +     if test ! -f config.sh; then
  1481. +         ln ../config.sh . || \
  1482. +         ln ../../config.sh . || \
  1483. +         ln ../../../config.sh . || \
  1484. +         (echo "Can't find config.sh."; exit 1)
  1485. +     fi
  1486. +     . config.sh
  1487. +     ;;
  1488. + esac
  1489. + case "$0" in
  1490. + */*) cd `expr X$0 : 'X\(.*\)/'` ;;
  1491. + esac
  1492. + echo "Extracting shar/Makefile (with variable substitutions)"
  1493. + $spitshell >Makefile <<!GROK!THIS!
  1494. + #
  1495. + # Makefile for kit (sub-directory shar)
  1496. + #
  1497. + 
  1498. + # $Id: Makefile.SH,v 2.0.1.1 92/01/11 19:22:47 ram Exp $
  1499. + #
  1500. + # $Log:    Makefile.SH,v $
  1501. + # Revision 2.0.1.1  92/01/11  19:22:47  ram
  1502. + # patch11: created
  1503. + # 
  1504. + 
  1505. + SHELL = /bin/sh
  1506. + 
  1507. + RM = $rm
  1508. + libdir = $privlib
  1509. + 
  1510. + !GROK!THIS!
  1511. + $spitshell >>Makefile <<'!NO!SUBS!'
  1512. + scripts = makeshar rshar
  1513. + scriptsh = makeshar.SH rshar.SH
  1514. + added = Makefile config.sh
  1515. + 
  1516. + all: $(scripts)
  1517. + 
  1518. + makeshar: makeshar.SH
  1519. +     sh $@.SH
  1520. + 
  1521. + rshar: rshar.SH
  1522. +     sh $@.SH
  1523. + 
  1524. + install: $(scripts)
  1525. +     -for file in $(scripts); do \
  1526. +         ../install -m 555 $$file $(libdir); \
  1527. +     done
  1528. + 
  1529. + clean:
  1530. +     $(RM) -f $(scripts)
  1531. + 
  1532. + realclean clobber: clean
  1533. +     $(RM) -f $(added)
  1534. + !NO!SUBS!
  1535. + chmod 755 Makefile
  1536. + $eunicefix Makefile
  1537.  
  1538. Index: MANIFEST
  1539. *** MANIFEST.old    Sat Jan 11 19:25:20 1992
  1540. --- MANIFEST    Sat Jan 11 19:25:21 1992
  1541. ***************
  1542. *** 2,7 ****
  1543. --- 2,11 ----
  1544.   MANIFEST                   This shipping list
  1545.   Configure                  Portability tool
  1546.   Makefile.SH                Main makefile
  1547. + badtar/Makefile.SH         Makefile for badtar
  1548. + badtar/README              Informations on badtar
  1549. + badtar/badtar.SH           Manual page for badtar
  1550. + badtar/badtar.c            A program to repair damaged tar files
  1551.   btoa/Makefile.SH           Makefile for btoa and al.
  1552.   btoa/atob.c                For ascii to binary decoding
  1553.   btoa/btoa.c                For binary to ascii encoding
  1554. ***************
  1555. *** 32,34 ****
  1556. --- 36,42 ----
  1557.   man/mailkit.SH             The manual page for "mailkit"
  1558.   man/unkit.SH               The manual page for "unkit"
  1559.   patchlevel.h               Current patch level value
  1560. + shar/Makefile.SH           Makefile for shar
  1561. + shar/README                Purpose of the shar scripts
  1562. + shar/makeshar.SH           Builds a set of shar files
  1563. + shar/rshar.SH              A simple shar program
  1564.  
  1565. *** End of Patch 11 ***
  1566.