home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume25 / kit / pch12 < prev    next >
Encoding:
Text File  |  1992-01-11  |  23.3 KB  |  867 lines
  1. Newsgroups: comp.sources.unix
  2. From: ram@eiffel.com (Raphael Manfredi)
  3. Subject: v25i102: kit - the ultimate mailing kit, Patch12
  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 102
  9. Archive-Name: kit/pch12
  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 #: 12
  17. Priority: LOW
  18. Subject: patch #11, continued
  19. Date: Sat Jan 11 19:32:09 PST 1992
  20. From: Raphael Manfredi <ram@eiffel.com>
  21.  
  22. Description:
  23.     See patch #11.
  24.  
  25.  
  26. Fix:    From rn, say "| patch -p -N -d DIR", where DIR is your kit source
  27.     directory.  Outside of rn, say "cd DIR; patch -p -N <thisarticle".
  28.     If you don't have the patch program, apply the following by hand,
  29.     or get patch (version 2.0, latest patchlevel).
  30.  
  31.     After patching:
  32.         Configure
  33.         make
  34.         make install
  35.  
  36.     If patch indicates that patchlevel is the wrong version, you may need
  37.     to apply one or more previous patches, or the patch may already
  38.     have been applied.  See the patchlevel.h file to find out what has or
  39.     has not been applied.  In any event, don't continue with the patch.
  40.  
  41.     If you are missing previous patches they can be obtained from me:
  42.  
  43.         Raphael Manfredi <ram@eiffel.com>
  44.  
  45.     If you send a mail message of the following form it will greatly speed
  46.     processing:
  47.  
  48.         Subject: Command
  49.         @SH mailpatch PATH kit 2.0 LIST
  50.                ^ note the c
  51.  
  52.     where PATH is a return path FROM ME TO YOU either in Internet notation,
  53.     or in bang notation from some well-known host, and LIST is the number
  54.     of one or more patches you need, separated by spaces, commas, and/or
  55.     hyphens.  Saying 35- says everything from 35 to the end.
  56.  
  57.     To get some more detailed instructions, send me the following mail:
  58.  
  59.         Subject: Command
  60.         @SH mailhelp PATH
  61.  
  62.  
  63. Index: patchlevel.h
  64. Prereq: 11
  65. 2c2
  66. < #define PATCHLEVEL 11
  67. ---
  68. > #define PATCHLEVEL 12
  69.  
  70. Index: badtar/badtar.SH
  71. *** badtar/badtar.SH.old    Sat Jan 11 19:24:20 1992
  72. --- badtar/badtar.SH    Sat Jan 11 19:24:21 1992
  73. ***************
  74. *** 0 ****
  75. --- 1,125 ----
  76. + case $CONFIG in
  77. + '')
  78. +     if test ! -f config.sh; then
  79. +     ln ../config.sh . || \
  80. +     ln ../../config.sh . || \
  81. +     ln ../../../config.sh . || \
  82. +     (echo "Can't find config.sh."; exit 1)
  83. +     fi 2>/dev/null
  84. +     . config.sh
  85. +     ;;
  86. + esac
  87. + case "$0" in
  88. + */*) cd `expr X$0 : 'X\(.*\)/'` ;;
  89. + esac
  90. + echo "Extracting man/badtar.$manext (with variable substitutions)"
  91. + $rm -f badtar.$manext
  92. + $spitshell >badtar.$manext <<!GROK!THIS!
  93. + .TH BABTAR $manext ram
  94. + ''' @(#) Manual page for badtar -- (c) ram January 1992
  95. + '''
  96. + ''' $Id: badtar.SH,v 2.0.1.1 92/01/11 19:12:35 ram Exp $
  97. + '''
  98. + ''' $Log:    badtar.SH,v $
  99. + ''' Revision 2.0.1.1  92/01/11  19:12:35  ram
  100. + ''' patch11: created
  101. + ''' 
  102. + '''
  103. + .SH NAME
  104. + badtar \- a filter for damaged tar files
  105. + .SH SYNOPSIS
  106. + \fBbadtar\fR [ \-\fBhiorsvV\fR ] [ \-\fBl\fI logfile\fR ]
  107. + [ \-\fBf\fI tape_drive\fR ] [ \-\fBu\fI uid\fR ] [ \-\fBg\fI gid\fR ]
  108. + .SH DESCRIPTION
  109. + \fIBadtar\fR can be used to extract files from a tar tape which
  110. + contains read errors. It is used as a filter whose output should be piped
  111. + into tar thus:
  112. + .sp
  113. + .in +5
  114. + badtar -f /dev/rmt0 -l logfile | tar xvf -
  115. + .in -5
  116. + .sp
  117. + This program is not perfect. It cannot read what cannot be read, but it
  118. + will continue over read errors, pad files to suitable lengths when blocks
  119. + are missing, ignore files whose header tar blocks are mangled, etc...
  120. + .PP
  121. + It is possible to read from a pipe by giving \- as argument to \-\fBf\fR.
  122. + However in that case, you need another program to read the tape device
  123. + (for instance \fIdd\fR) and read erros may be fatal. Besides, \fIbadtar\fR has
  124. + some neat options which let you overwrite the owner of the files in the
  125. + archive or strip the leading '/' in the path name to make them relative.
  126. + Here is a way of reading from a remote tape drive located on \fImoon\fR:
  127. + .sp
  128. + .in +5
  129. + remsh moon dd if=/dev/rmt0 conv=noerror,sync | \\\\
  130. + .br
  131. + badtar -f - | tar xvf -
  132. + .in -5
  133. + .sp
  134. + .PP
  135. + The log file (\-\fBl\fR flag) gives a list of all files found, indicates which
  136. + of them were padded, shows where blocks were deleted (i.e. files were lost)
  137. + and where bad blocks occured on the tape. You can get a good idea from this
  138. + list where files will have been mangled or lost. All error messages begin with
  139. + *** which makes life easier to find errors in a long list.
  140. + If the \-\fBl\fR flag is not given stderr is defaulted. If the \-\fBf\fR flag
  141. + is not given \fI$tapedev\fR is defaulted.
  142. + .SH OPTIONS
  143. + .TP 10
  144. + \-\fBf\fI file\fR
  145. + tells \fIbadtar\fR the output is to be taken from file \fIfile\fR. Use \- to
  146. + read standard input. By default, \fIbadtar\fR attempts to read \fI$tapedev\fR.
  147. + .TP
  148. + \-\fBg\fI gid\fR
  149. + directs \fIbadtar\fR to overwrite group membership to \fIgid\fR on file
  150. + extraction.
  151. + The \fIgid\fR has to be given in numeric form. Use \fI0\fR to force the
  152. + \fIgid\fR of the user running badtar.
  153. + .TP
  154. + \-\fBh\fR
  155. + prints the usage message and exits.
  156. + .TP
  157. + \-\fBi\fR
  158. + makes \fIbadtar\fR ignore the end of tape blocks. There is a risk \fIbadtar\fR
  159. + enters in an infinite loop when this option is used.
  160. + .TP
  161. + \-\fBl\fI logfile\fR
  162. + sets a logfile for \fIbadtar\fR to redirect his error messages. By default,
  163. + the standard error is used.
  164. + .TP
  165. + \-\fBo\fR
  166. + directs \fIbadtar\fR to overwrite the ownership of the file (both \fIuid\fR and
  167. + \fIgid\fR). It is a shortcut for \-\fBu\fI 0 \fR\-\fBg\fI 0\fR.
  168. + .TP
  169. + \-\fBr\fR
  170. + builds relative paths out of absolute ones by removing the leading slash in the
  171. + file name.
  172. + .TP
  173. + \-\fBs\fR
  174. + asks for silent mode. No logging is done.
  175. + .TP
  176. + \-\fBu\fI uid\fR
  177. + directs \fIbadtar\fR to overwrite ownership to \fIuid\fR on file
  178. + extraction.
  179. + The \fIuid\fR has to be given in numeric form. Use \fI0\fR to force the
  180. + \fIuid\fR of the user running badtar. This means there is no way to force
  181. + the owner to \fIroot\fR unless \fIbadtar\fR is run by the super-user. It
  182. + is considered to be a feature.
  183. + .TP
  184. + \-\fBv\fR
  185. + asks for verbose mode. The tar headers are written when found on the tape.
  186. + .TP
  187. + \-\fBV\fR
  188. + prints version number and exits.
  189. + .SH "SEE ALSO"
  190. + tar(1)
  191. + .SH AUTHORS
  192. + Mike Williams <mike@erix.UUCP>.
  193. + .br
  194. + Extended by Raphael Manfredi <ram@eiffel.com>.
  195. + .br
  196. + .sp
  197. + \fIBadtar\fR was enhanced at Interactive Software Engineering Inc, Santa
  198. + Barbara, USA.
  199. + !GROK!THIS!
  200. + chmod 444 badtar.$manext
  201.  
  202. Index: kit/unkit.SH
  203. Prereq: 2.0.1.7
  204. *** kit/unkit.SH.old    Sat Jan 11 19:24:49 1992
  205. --- kit/unkit.SH    Sat Jan 11 19:24:50 1992
  206. ***************
  207. *** 19,27 ****
  208.   # @(#) (c) E. Mogenet April 1990
  209.   # @(#) (c) R. Manfredi, 1990 1991
  210.   
  211. ! # $Id: unkit.SH,v 2.0.1.7 91/12/08 14:56:49 ram Exp $
  212.   #
  213.   # $Log:    unkit.SH,v $
  214.   # Revision 2.0.1.7  91/12/08  14:56:49  ram
  215.   # patch10: added space in the credit for Emmanuel Mogenet
  216.   # 
  217. --- 19,31 ----
  218.   # @(#) (c) E. Mogenet April 1990
  219.   # @(#) (c) R. Manfredi, 1990 1991
  220.   
  221. ! # $Id: unkit.SH,v 2.0.1.8 92/01/11 19:20:05 ram Exp $
  222.   #
  223.   # $Log:    unkit.SH,v $
  224. + # Revision 2.0.1.8  92/01/11  19:20:05  ram
  225. + # patch11: now knows about badtar
  226. + # patch11: added -b option to force use of badtar
  227. + # 
  228.   # Revision 2.0.1.7  91/12/08  14:56:49  ram
  229.   # patch10: added space in the credit for Emmanuel Mogenet
  230.   # 
  231. ***************
  232. *** 57,73 ****
  233.   pl='$PATCHLEVEL'
  234.   version='$VERSION'
  235.   
  236.   !GROK!THIS!
  237.   
  238. ! case "$d_taropt_o" in
  239. ! "$define") opt='xvof';;
  240. ! *) opt='xvf';;
  241.   esac
  242. - echo "tar_opt='$opt'" >> unkit
  243.   
  244.   $spitshell >>unkit <<'!NO!SUBS!'
  245.   decoding=hexdecode            # Default decoding program
  246.   preserve=yes                # Preserve input files by default
  247.   
  248.   # In case we are interrupted, remove all the temporary files
  249.   trap 'test -f zzz.minikit && rm -f `cat zzz.minikit` zzz.minikit; \
  250. --- 61,92 ----
  251.   pl='$PATCHLEVEL'
  252.   version='$VERSION'
  253.   
  254. + # Tar options to be used
  255. + badtar='$needbtar'
  256.   !GROK!THIS!
  257.   
  258. ! case "$d_portable" in
  259. ! define) cat >> unkit <<EOP
  260. ! if tar -cf - /dev/null 2>/dev/null | tar -xof - >/dev/null 2>&1; then
  261. !     tar_opt='xvof'
  262. ! else
  263. !     tar_opt='xvf'
  264. ! fi
  265. ! EOP
  266. !     ;;
  267. ! *) case "$d_taropt_o" in
  268. !     "$define") opt='xvof';;
  269. !     *) opt='xvf';;
  270. !     esac
  271. !     echo "tar_opt='$opt'" >> unkit
  272. !     ;;
  273.   esac
  274.   
  275.   $spitshell >>unkit <<'!NO!SUBS!'
  276. + 
  277.   decoding=hexdecode            # Default decoding program
  278.   preserve=yes                # Preserve input files by default
  279. + usebtar=''                    # Do not use badtar
  280.   
  281.   # In case we are interrupted, remove all the temporary files
  282.   trap 'test -f zzz.minikit && rm -f `cat zzz.minikit` zzz.minikit; \
  283. ***************
  284. *** 75,81 ****
  285.   
  286.   # Old Bourne shells do not have functions
  287.   usage='
  288. ! echo "Usage: unkit [-hlprV] [file1 ... filen]";
  289.   echo " "" -h : give this help message.";
  290.   echo " "" -l : list the contents of a the kit files.";
  291.   echo " "" -p : preserve input files (default).";
  292. --- 94,101 ----
  293.   
  294.   # Old Bourne shells do not have functions
  295.   usage='
  296. ! echo "Usage: unkit [-bhlprV] [file1 ... filen]";
  297. ! echo " "" -b : force use of badtar ($badtar by default).";
  298.   echo " "" -h : give this help message.";
  299.   echo " "" -l : list the contents of a the kit files.";
  300.   echo " "" -p : preserve input files (default).";
  301. ***************
  302. *** 101,108 ****
  303. --- 121,131 ----
  304.       -l) tar_opt=tvf
  305.           preserve=yes
  306.           shift;;
  307. +     -b) usebtar='true'
  308. +         shift;;
  309.       -*) echo "Unknown option $i"
  310.           eval $usage;;
  311. +     *) break;;
  312.       esac
  313.   done
  314.   
  315. ***************
  316. *** 146,157 ****
  317.       decoding=$decoding" | des -d -b"
  318.   fi
  319.   
  320. ! echo "Decoding with $decoding"
  321.   
  322.   cat `ls z??.[hb][ea]*.??` |
  323.   eval $decoding        |
  324.   zcat                |
  325. ! tar $tar_opt -
  326.   
  327.   test -f zzz.minikit && rm -f `cat zzz.minikit` zzz.minikit
  328.   rm -f z??.[hb][ea]*.??
  329. --- 169,191 ----
  330.       decoding=$decoding" | des -d -b"
  331.   fi
  332.   
  333. ! # Maybe we need badtar...
  334. ! case "$badtar" in
  335. ! true) tarcmd="badtar -s -o -f - | tar $tar_opt -";;
  336. ! *) if test "$usebtar"; then
  337. !         tarcmd="badtar -s -o -f - | tar $tar_opt -"
  338. !     else
  339. !         tarcmd="tar $tar_opt -"
  340. !     fi
  341. !     ;;
  342. ! esac
  343. ! 
  344. ! echo "Decoding with $decoding | zcat | $tarcmd"
  345.   
  346.   cat `ls z??.[hb][ea]*.??` |
  347.   eval $decoding        |
  348.   zcat                |
  349. ! eval "$tarcmd"
  350.   
  351.   test -f zzz.minikit && rm -f `cat zzz.minikit` zzz.minikit
  352.   rm -f z??.[hb][ea]*.??
  353.  
  354. Index: man/unkit.SH
  355. *** man/unkit.SH.old    Sat Jan 11 19:25:05 1992
  356. --- man/unkit.SH    Sat Jan 11 19:25:05 1992
  357. ***************
  358. *** 15,20 ****
  359.   echo "Extracting man/unkit.$manext (with variable substitutions)"
  360.   $rm -f unkit.$manext
  361.   $spitshell >unkit.$manext <<!GROK!THIS!
  362. ! .so $mansrc/kit.$manext
  363.   !GROK!THIS!
  364.   chmod 444 unkit.$manext
  365. --- 15,20 ----
  366.   echo "Extracting man/unkit.$manext (with variable substitutions)"
  367.   $rm -f unkit.$manext
  368.   $spitshell >unkit.$manext <<!GROK!THIS!
  369. ! .so man$manext/kit.$manext
  370.   !GROK!THIS!
  371.   chmod 444 unkit.$manext
  372.  
  373. Index: shar/rshar.SH
  374. *** shar/rshar.SH.old    Sat Jan 11 19:25:17 1992
  375. --- shar/rshar.SH    Sat Jan 11 19:25:17 1992
  376. ***************
  377. *** 0 ****
  378. --- 1,133 ----
  379. + case $CONFIG in
  380. + '')
  381. +     if test ! -f config.sh; then
  382. +         ln ../config.sh . || \
  383. +         ln ../../config.sh . || \
  384. +         ln ../../../config.sh . || \
  385. +         (echo "Can't find config.sh."; exit 1)
  386. +     fi 2>/dev/null
  387. +     . config.sh
  388. +     ;;
  389. + esac
  390. + case "$0" in
  391. + */*) cd `expr X$0 : 'X\(.*\)/'` ;;
  392. + esac
  393. + echo "Extracting shar/rshar (with variable substitutions)"
  394. + $spitshell >rshar <<!GROK!THIS!
  395. + $startsh
  396. + # (c) Raphael Manfredi, December 25th 1991
  397. + 
  398. + # $Id: rshar.SH,v 2.0.1.1 92/01/11 19:23:24 ram Exp $
  399. + #
  400. + # $Log:    rshar.SH,v $
  401. + # Revision 2.0.1.1  92/01/11  19:23:24  ram
  402. + # patch11: created
  403. + # 
  404. + 
  405. + !GROK!THIS!
  406. + $spitshell >>rshar <<'!NO!SUBS!'
  407. + # This is a stripped down implementation of Rich Salz's cshar. Among the
  408. + # list of features missing, no directories are ever created: rshar assumes
  409. + # the list of files to be shar'ed are listed in a single directory, which
  410. + # is the case with kit.
  411. + # It is not intended to be used directly. Rather, it is called by makeshar
  412. + # via kit when cshar is missing.
  413. + 
  414. + # Default values
  415. + max=1
  416. + number=1
  417. + 
  418. + # Option parsing
  419. + for i in $*
  420. + do
  421. +     case "$i" in
  422. +     -k) shift
  423. +         max=$1
  424. +         shift
  425. +         ;;
  426. +     -n) shift
  427. +         number=$1
  428. +         shift
  429. +         ;;
  430. +     -*) echo "unkown option $1"
  431. +         exit 1
  432. +         ;;
  433. +     *) break
  434. +         ;;
  435. +     esac
  436. + done
  437. + 
  438. + echo '#! /bin/sh
  439. + # This is a shell archive.  Remove anything before this line, then feed it
  440. + # into a shell via "sh file" or similar.  To overwrite existing files,
  441. + # type "sh file -c"
  442. + #
  443. + # Wrapped by <'`logname`@`(uname -n || hostname) 2>/dev/null`'> on '`date`
  444. + echo '#
  445. + # This archive contains:'
  446. + echo $@ | tr ' ' '\012' | sed -e 's/^/#    /'
  447. + 
  448. + # Tell the user what it is all about
  449. + echo "echo \"If this archive is complete, you will see the following message:\""
  450. + if test $max -eq 1; then
  451. +     echo "echo '          \"shar: End of archive.\"'"
  452. + else
  453. +     echo "echo '          \"shar: End of archive $number (of $max).\"'"
  454. + fi
  455. + 
  456. + for i
  457. + do
  458. +     # Do not extract file if one with the same name already exists
  459. +     echo "if test -f '$i' -a \"\${1}\" != \"-c\"; then"
  460. +     echo "    echo \"shar: Will not clobber existing file '$i'\""
  461. +     echo "else"
  462. +     size=`wc -c < $i`
  463. +     size=`expr "$size" : '\ *\(.*\)'`
  464. +     echo "    echo \"shar: Extracting '$i' (${size}characters)\""
  465. +     # Insert X at the front, in case END_OF_FILE appears in the file
  466. +     echo "    sed 's/^X//' > $i << 'END_OF_FILE'"
  467. +     sed 's/^/X/' $i
  468. +     echo "END_OF_FILE"
  469. +     # restore executables
  470. +     if test -x $i; then
  471. +         echo "    chmod +x $i"
  472. +     fi
  473. +     # verify length
  474. +     echo "    if test $size -ne \`wc -c < '$i'\`; then"
  475. +     echo "        echo \"shar: '$i' unpacked with wrong size!\""
  476. +     echo "    fi"
  477. +     echo "    # end of '$i'"
  478. +     echo "fi"
  479. + done
  480. + 
  481. + # End of shell archive
  482. + if test $max -eq 1; then
  483. +     echo "echo \"End of archive.\""
  484. + else
  485. +     echo "echo \"End of archive $number (of $max).\""
  486. +     echo "cp /dev/null ark${number}isdone"
  487. +     echo "missing=''"
  488. +     vector=`awk "BEGIN {for (i=1;i<=$max;i++) printf(\"%d \",i);}" /dev/null`
  489. +     echo "for i in $vector; do"
  490. +     echo "    if test ! -f ark\${i}isdone; then"
  491. +     echo "        missing=\"\$missing \$i\""
  492. +     echo "    fi"
  493. +     echo "done"
  494. +     echo "if test \"\$missing\" = \"\"; then"
  495. +     if test $max -eq 2; then
  496. +         echo "    echo \"You have unpacked both archives\""
  497. +     else
  498. +         echo "    echo \"You have unpacked all $max archives\""
  499. +     fi
  500. +     echo "    rm -f ark*isdone"
  501. +     echo "else"
  502. +     echo "    echo \"You still must unpack the following archives:\""
  503. +     echo "    echo \"        \" \$missing"
  504. +     echo "fi"
  505. + fi
  506. + 
  507. + # Someone might mail this :-) so skip signature
  508. + echo "exit 0"
  509. + !NO!SUBS!
  510. + chmod 755 rshar
  511. + $eunicefix rshar
  512.  
  513. Index: shar/makeshar.SH
  514. *** shar/makeshar.SH.old    Sat Jan 11 19:25:13 1992
  515. --- shar/makeshar.SH    Sat Jan 11 19:25:14 1992
  516. ***************
  517. *** 0 ****
  518. --- 1,131 ----
  519. + case $CONFIG in
  520. + '')
  521. +     if test ! -f config.sh; then
  522. +         ln ../config.sh . || \
  523. +         ln ../../config.sh . || \
  524. +         ln ../../../config.sh . || \
  525. +         (echo "Can't find config.sh."; exit 1)
  526. +     fi 2>/dev/null
  527. +     . config.sh
  528. +     ;;
  529. + esac
  530. + case "$0" in
  531. + */*) cd `expr X$0 : 'X\(.*\)/'` ;;
  532. + esac
  533. + echo "Extracting shar/makeshar (with variable substitutions)"
  534. + $spitshell >makeshar <<!GROK!THIS!
  535. + $startsh
  536. + # (c) Raphael Manfredi, December 25th 1991
  537. + 
  538. + # $Id: makeshar.SH,v 2.0.1.1 92/01/11 19:23:16 ram Exp $
  539. + #
  540. + # $Log:    makeshar.SH,v $
  541. + # Revision 2.0.1.1  92/01/11  19:23:16  ram
  542. + # patch11: created
  543. + # 
  544. + 
  545. + # Where rshar is located
  546. + libdir='$privlib'
  547. + 
  548. + !GROK!THIS!
  549. + $spitshell >>makeshar <<'!NO!SUBS!'
  550. + # This is a stripped down implementation of Rich Salz's makekit. The name is
  551. + # a little pun on words: In his cshar packagem Rich called its wrapper makekit
  552. + # so it seemed logical to call the kit's wrapper makeshar.
  553. + # It is not intended to be used directly. Rather, it is called by kit when
  554. + # cshar is missing.
  555. + 
  556. + # Default settings
  557. + partname=Part
  558. + 
  559. + # Option parsing
  560. + for i in $*
  561. + do
  562. +     case "$i" in
  563. +     -n) shift
  564. +         partname="$1"
  565. +         shift
  566. +         ;;
  567. +     -*) echo "unknown option $i"
  568. +         exit 1
  569. +         ;;
  570. +     *) break
  571. +         ;;
  572. +     esac
  573. + done
  574. + 
  575. + (
  576. +     for i
  577. +     do
  578. +         # Ignore directories and other symbolic links
  579. +         if test -f $i; then
  580. +             echo "`wc -c < $i` $i"
  581. +         fi
  582. +     done
  583. + ) | sort -r | awk '
  584. + # Awk is fed with a list of sizes and filenames, sorted in reverse order,
  585. + # i.e. the biggest files come first. Its output is a list of files to be
  586. + # put in the archives, each line counting for one part. The first line is
  587. + # the number of archives to be used.
  588. + BEGIN {
  589. +     maxsize = 50000;    # Maximum shar size
  590. +     kitover = 1700;        # Kit overhead
  591. +     file = 130;            # File overhead
  592. +     max = 1;            # Maximum part number
  593. + 
  594. +     # We mimic makekit as much as possible to avoid any surprise for user
  595. +     print "   File Name            Archive #       Description";
  596. +     print "----------------------------------------------------------";
  597. + }
  598. + {
  599. +     # Fill in parts, starting with bigger files and finishing with smaller
  600. +     # ones. Note that we use an heuristic to compute the overhead of each
  601. +     # files in the archive. The kit overhead is an estimate. The file overhead
  602. +     # accounts for the listing in the archive contents as well as tests used
  603. +     # to check for overwriting.
  604. +     i = 1;
  605. +     while ( \
  606. +         (newtot = tot[i] + $1 + ($1 / 40) + file) > (maxsize - kitover) \
  607. +         && tot[i] > 0 \
  608. +     )
  609. +         i++;
  610. +     # Uncomment the following line to add debug
  611. +     # printf("Adding %s to part %d giving %d bytes\n", $2, i, newtot);
  612. +     tot[i] = newtot;
  613. +     list[i] = sprintf("%s %s", list[i], $2);
  614. +     # Update maximum part number
  615. +     if (i > max)
  616. +         max = i;
  617. +     # Verbose to mimic makekit so that the user has no surprise
  618. +     printf("%-26.26s %d\n", $2, i);
  619. + }
  620. + END {
  621. +     # Print the number of parts used
  622. +     print max > "zzz.list";
  623. +     # Print the list of files to be put in each archive
  624. +     for (i = 1; i <= max; i++)
  625. +         print list[i] >> "zzz.list";
  626. + }
  627. + '
  628. + <zzz.list (
  629. +     # Now back to the shell, parse the output from awk and invoke rshar
  630. +     read max;
  631. +     i=1
  632. +     while read first last
  633. +     do
  634. +         if test $i -lt 10; then
  635. +             name=${partname}0$i
  636. +         else
  637. +             name=${partname}$i
  638. +         fi
  639. +         echo "Packing kit $i..."
  640. +         $libdir/rshar -k $max -n $i $first $last > $name
  641. +         i=`expr $i + 1`
  642. +     done
  643. + )
  644. + rm -f zzz.list
  645. + exit 0
  646. + 
  647. + !NO!SUBS!
  648. + chmod 755 makeshar
  649. + $eunicefix makeshar
  650.  
  651. Index: config.h.SH
  652. Prereq: 2.0.1.5
  653. *** config.h.SH.old    Sat Jan 11 19:24:27 1992
  654. --- config.h.SH    Sat Jan 11 19:24:28 1992
  655. ***************
  656. *** 20,26 ****
  657.    * that running config.h.SH again will wipe out any changes you've made.
  658.    * For a more permanent change edit config.sh and rerun config.h.SH.
  659.    *
  660. !  * \$Id: config.h.SH,v 2.0.1.5 91/11/25 15:48:49 ram Exp $
  661.    */
  662.   
  663.   #ifndef _config_h_
  664. --- 20,26 ----
  665.    * that running config.h.SH again will wipe out any changes you've made.
  666.    * For a more permanent change edit config.sh and rerun config.h.SH.
  667.    *
  668. !  * \$Id: config.h.SH,v 2.0.1.6 92/01/11 19:13:18 ram Exp $
  669.    */
  670.   
  671.   #ifndef _config_h_
  672. ***************
  673. *** 32,37 ****
  674. --- 32,43 ----
  675.    */
  676.   #define BYTEORDER 0x$byteorder    /* large digits for MSB */
  677.   
  678. + /* bcopy:
  679. +  *    This symbol is maped to memcpy if the  bcopy() routine is not
  680. +  *    available to copy strings.
  681. +  */
  682. + #$d_bcopy bcopy(s,d,l) memcpy((d),(s),(l))        /* mapped to memcpy */
  683. + 
  684.   /* GETOPT:
  685.    *    This symbol, if defined, indicates that the getopt() routine exists.
  686.    */
  687. ***************
  688. *** 61,66 ****
  689. --- 67,78 ----
  690.    */
  691.   #$d_memset    MEMSET        /**/
  692.   
  693. + /* perror:
  694. +  *    This symbol is maped to null if the  perror() routine is not
  695. +  *    available to print system error messages.
  696. +  */
  697. + #$d_perror    perror(s)    ;    /* mapped to a null statement */
  698. + 
  699.   /* SIGNAL_T:
  700.    *    This symbol's value is either "void" or "int", corresponding to the
  701.    *    appropriate return type of a signal handler.  Thus, you can declare
  702. ***************
  703. *** 69,74 ****
  704. --- 81,92 ----
  705.    */
  706.   #define SIGNAL_T $signal_t    /* Kept for backward compatibility */
  707.   
  708. + /* I_FCNTL:
  709. +  *    This symbol, if defined, indicates to the C program that it should
  710. +  *    include <fcntl.h>.
  711. +  */
  712. + #$i_fcntl    I_FCNTL        /**/
  713. + 
  714.   /* I_SYSIOCTL:
  715.    *    This symbol, if defined, indicates that <sys/ioctl.h> exists and should
  716.    *    be included. Otherwise, include <sgtty.h> or <termio.h>.
  717. ***************
  718. *** 119,124 ****
  719. --- 137,149 ----
  720.   #$define void int        /* is void to be avoided? */
  721.   #$define M_VOID            /* Xenix strikes again */
  722.   #endif
  723. + 
  724. + /* TAPEDEV:
  725. +  *    This symbol hols the full path name of the default tape device. It
  726. +  *    is usually located in /dev under the name rmt or rst followed by a
  727. +  *    single digit.
  728. +  */
  729. + #define TAPEDEV "$tapedev"    /**/
  730.   
  731.   #endif
  732.   !GROK!THIS!
  733.  
  734. Index: kit/mailkit.SH
  735. Prereq: 2.0.1.4
  736. *** kit/mailkit.SH.old    Sat Jan 11 19:24:45 1992
  737. --- kit/mailkit.SH    Sat Jan 11 19:24:45 1992
  738. ***************
  739. *** 14,25 ****
  740.   esac
  741.   echo "Extracting kit/mailkit (with variable substitutions)"
  742.   $spitshell >mailkit <<!GROK!THIS!
  743.   # @(#) Mailer for kit files
  744.   # @(#) (c) R. Manfredi, 1990 1991
  745.   
  746. ! # $Id: mailkit.SH,v 2.0.1.4 91/12/08 14:55:22 ram Exp $
  747.   #
  748.   # $Log:    mailkit.SH,v $
  749.   # Revision 2.0.1.4  91/12/08  14:55:22  ram
  750.   # patch10: forgot to protect evaluation of variable in a test
  751.   # 
  752. --- 14,30 ----
  753.   esac
  754.   echo "Extracting kit/mailkit (with variable substitutions)"
  755.   $spitshell >mailkit <<!GROK!THIS!
  756. + $startsh
  757.   # @(#) Mailer for kit files
  758.   # @(#) (c) R. Manfredi, 1990 1991
  759.   
  760. ! # $Id: mailkit.SH,v 2.0.1.5 92/01/11 19:19:15 ram Exp $
  761.   #
  762.   # $Log:    mailkit.SH,v $
  763. + # Revision 2.0.1.5  92/01/11  19:19:15  ram
  764. + # patch11: the leading 'startsh' configuration variable was missing
  765. + # patch11: reported by Michael Fischer <fischer-michael@cs.yale.edu>
  766. + # 
  767.   # Revision 2.0.1.4  91/12/08  14:55:22  ram
  768.   # patch10: forgot to protect evaluation of variable in a test
  769.   # 
  770. ***************
  771. *** 116,121 ****
  772. --- 121,128 ----
  773.           ;;
  774.       -*) echo "unknown option $1"
  775.           eval $usage
  776. +         ;;
  777. +     *) break
  778.           ;;
  779.       esac
  780.   done
  781.  
  782. Index: man/mailkit.SH
  783. *** man/mailkit.SH.old    Sat Jan 11 19:25:02 1992
  784. --- man/mailkit.SH    Sat Jan 11 19:25:02 1992
  785. ***************
  786. *** 15,20 ****
  787.   echo "Extracting man/mailkit.$manext (with variable substitutions)"
  788.   $rm -f mailkit.$manext
  789.   $spitshell >mailkit.$manext <<!GROK!THIS!
  790. ! .so $mansrc/kit.$manext
  791.   !GROK!THIS!
  792.   chmod 444 mailkit.$manext
  793. --- 15,20 ----
  794.   echo "Extracting man/mailkit.$manext (with variable substitutions)"
  795.   $rm -f mailkit.$manext
  796.   $spitshell >mailkit.$manext <<!GROK!THIS!
  797. ! .so man$manext/kit.$manext
  798.   !GROK!THIS!
  799.   chmod 444 mailkit.$manext
  800.  
  801. Index: des/des.c
  802. Prereq: 2.0.1.1
  803. *** des/des.c.old    Sat Jan 11 19:24:35 1992
  804. --- des/des.c    Sat Jan 11 19:24:36 1992
  805. ***************
  806. *** 4,12 ****
  807.    */
  808.   
  809.   /*
  810. !  * $Id: des.c,v 2.0.1.1 91/04/01 15:39:35 ram Exp $
  811.    *
  812.    * $Log:    des.c,v $
  813.    * Revision 2.0.1.1  91/04/01  15:39:35  ram
  814.    * patch1: created
  815.    * 
  816. --- 4,16 ----
  817.    */
  818.   
  819.   /*
  820. !  * $Id: des.c,v 2.0.1.2 92/01/11 19:15:41 ram Exp $
  821.    *
  822.    * $Log:    des.c,v $
  823. +  * Revision 2.0.1.2  92/01/11  19:15:41  ram
  824. +  * patch11: added declarations for static functions
  825. +  * patch11: reported by Monty Solomon <roscom!monty@bu.edu>
  826. +  * 
  827.    * Revision 2.0.1.1  91/04/01  15:39:35  ram
  828.    * patch1: created
  829.    * 
  830. ***************
  831. *** 179,184 ****
  832. --- 183,195 ----
  833.        010,04,02,01
  834.   };
  835.   static int desmode;
  836. + 
  837. + /* Declare static functions */
  838. + static permute();
  839. + static round();
  840. + static long f();
  841. + static perminit();
  842. + static int spinit();
  843.   
  844.   /* Allocate space and initialize DES lookup arrays
  845.    * mode == 0: standard Data Encryption Algorithm
  846.  
  847. Index: man/atob.SH
  848. *** man/atob.SH.old    Sat Jan 11 19:24:53 1992
  849. --- man/atob.SH    Sat Jan 11 19:24:54 1992
  850. ***************
  851. *** 15,20 ****
  852.   echo "Extracting man/atob.$manext (with variable substitutions)"
  853.   $rm -f atob.$manext
  854.   $spitshell >atob.$manext <<!GROK!THIS!
  855. ! .so $mansrc/btoa.$manext
  856.   !GROK!THIS!
  857.   chmod 444 atob.$manext
  858. --- 15,20 ----
  859.   echo "Extracting man/atob.$manext (with variable substitutions)"
  860.   $rm -f atob.$manext
  861.   $spitshell >atob.$manext <<!GROK!THIS!
  862. ! .so man$manext/btoa.$manext
  863.   !GROK!THIS!
  864.   chmod 444 atob.$manext
  865.  
  866. *** End of Patch 12 ***
  867.