home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / unix / volume26 / kit / pch22 < prev    next >
Encoding:
Text File  |  1993-05-04  |  22.9 KB  |  854 lines
  1. Newsgroups: comp.sources.unix
  2. From: ram@acri.fr (Raphael Manfredi)
  3. Subject: v26i232: kit - the ultimate mailing kit, Patch22
  4. Sender: unix-sources-moderator@efficacy.home.vix.com
  5. Approved: WhoAmI@efficacy.home.vix.com
  6.  
  7. Submitted-By: ram@acri.fr (Raphael Manfredi)
  8. Posting-Number: Volume 26, Issue 232
  9. Archive-Name: kit/pch22
  10.  
  11. [The latest patch for kit version 2.0 is #28.]
  12.  
  13. System: kit version 2.0
  14. Patch #: 22
  15. Priority: VERY LOW
  16. Subject: new getopt target
  17. Subject: created
  18. Subject: now uses external getopt script for option parsing
  19. Subject: fixed some typos in the help message
  20. Subject: manual page now carries version number and patchlevel
  21. Subject: added OPTIONS section for quick reference
  22. Subject: sorting done numerically with -n option
  23. Subject: new getopt.SH script
  24. Date: Mon Jan 11 18:09:41 PST 1993
  25. From: Raphael Manfredi <ram@eiffel.com>
  26.  
  27. Description:
  28.     Created getopt script in order to avoid code duplication for
  29.     option parsing.
  30.  
  31.     Fixed some typos in the help message of unkit.
  32.  
  33.     The manual page now carries version number and patchlevel and
  34.     has a new OPTIONS section for quick reference (requested by
  35.     Christian Bertin <bertin@acri.fr>).
  36.  
  37.     New getopt.SH script
  38.  
  39. Fix:    From rn, say "| patch -p -N -d DIR", where DIR is your kit source
  40.     directory.  Outside of rn, say "cd DIR; patch -p -N <thisarticle".
  41.     If you don't have the patch program, apply the following by hand,
  42.     or get patch (version 2.0, latest patchlevel).
  43.  
  44.     After patching:
  45.         Configure -d
  46.         make
  47.         make install
  48.  
  49.     If patch indicates that patchlevel is the wrong version, you may need
  50.     to apply one or more previous patches, or the patch may already
  51.     have been applied.  See the patchlevel.h file to find out what has or
  52.     has not been applied.  In any event, don't continue with the patch.
  53.  
  54.     If you are missing previous patches they can be obtained from me:
  55.  
  56.         Raphael Manfredi <ram@eiffel.com>
  57.  
  58.     If you send a mail message of the following form it will greatly speed
  59.     processing:
  60.  
  61.         Subject: Command
  62.         @SH mailpatch PATH kit 2.0 LIST
  63.                ^ note the c
  64.  
  65.     where PATH is a return path FROM ME TO YOU either in Internet notation,
  66.     or in bang notation from some well-known host, and LIST is the number
  67.     of one or more patches you need, separated by spaces, commas, and/or
  68.     hyphens.  Saying 35- says everything from 35 to the end.
  69.  
  70.     To get some more detailed instructions, send me the following mail:
  71.  
  72.         Subject: Command
  73.         @SH mailhelp PATH
  74.  
  75.  
  76. Index: patchlevel.h
  77. Prereq: 21
  78. 2c2
  79. < #define PATCHLEVEL 21
  80. ---
  81. > #define PATCHLEVEL 22
  82.  
  83. Index: kit/kit.SH
  84. Prereq: 2.0.1.12
  85. *** kit/kit.SH.old    Mon Jan 11 18:09:19 1993
  86. --- kit/kit.SH    Mon Jan 11 18:09:20 1993
  87. ***************
  88. *** 26,34 ****
  89.   !GROK!THIS!
  90.   $spitshell >>kit <<'!NO!SUBS!'
  91.   
  92. ! # $Id: kit.SH,v 2.0.1.12 92/11/03 10:12:34 ram Exp $
  93.   #
  94.   # $Log:    kit.SH,v $
  95.   # Revision 2.0.1.12  92/11/03  10:12:34  ram
  96.   # patch21: option parsing can now deal with embeded spaces in arguments
  97.   # 
  98. --- 26,37 ----
  99.   !GROK!THIS!
  100.   $spitshell >>kit <<'!NO!SUBS!'
  101.   
  102. ! # $Id: kit.SH,v 2.0.1.13 93/01/11 18:06:46 ram Exp $
  103.   #
  104.   # $Log:    kit.SH,v $
  105. + # Revision 2.0.1.13  93/01/11  18:06:46  ram
  106. + # patch22: now uses external getopt script for option parsing
  107. + # 
  108.   # Revision 2.0.1.12  92/11/03  10:12:34  ram
  109.   # patch21: option parsing can now deal with embeded spaces in arguments
  110.   # 
  111. ***************
  112. *** 132,184 ****
  113.   '
  114.   
  115.   # Process the command line options
  116. ! set X `for arg in "$@"; do echo $arg; done | awk '
  117. ! BEGIN {
  118. !     optstr = "BEFHMVXefhpxS:a:d:k:l:m:n:s:";    # getopt-style specification
  119. ! 
  120. !     len = length(optstr);
  121. !     for (i = 1; i <= len; i++) {
  122. !         c = substr(optstr, i, 1);
  123. !         if (i < len) a = substr(optstr, i + 1, 1); else a = "";
  124. !         if (a == ":") {
  125. !             arg[c] = 1;
  126. !             i++;
  127. !         }
  128. !         opt[c] = 1;
  129. !     }
  130. ! }
  131. ! {
  132. !     expect = 0;
  133. !     str = $0;
  134. !     if (substr(str, 1, 1) != "-") {
  135. !         printf("'"'%s'"'\n", str);
  136. !         next;
  137. !     }
  138. !     len = length($0);
  139. !     for (i = 2; i <= len; i++) {
  140. !         c = substr(str, i, 1);
  141. !         if (!opt[c]) {
  142. !             printf("-%s\n", substr(str, i));
  143. !             next;
  144. !         }
  145. !         printf("-%s\n", c);
  146. !         if (arg[c]) {
  147. !             if (i < len)
  148. !                 printf("'"'%s'"'\n", substr(str, i + 1));
  149. !             else
  150. !                 expect = 1;
  151. !             next;
  152. !         }
  153. !     }
  154. ! }
  155. ! END {
  156. !     if (expect)
  157. !         print "?";
  158. ! }
  159. ! '`
  160. ! eval "set $*"
  161. ! shift
  162. ! 
  163.   while test $# -gt 0
  164.   do
  165.       case "$1" in 
  166. --- 135,141 ----
  167.   '
  168.   
  169.   # Process the command line options
  170. ! eval "set X "`$libdir/getopt BEFHMVXefhpxS:a:d:k:l:m:n:s: "$@"`; shift
  171.   while test $# -gt 0
  172.   do
  173.       case "$1" in 
  174.  
  175. Index: man/kit.SH
  176. Prereq: 2.0.1.10
  177. *** man/kit.SH.old    Mon Jan 11 18:09:32 1993
  178. --- man/kit.SH    Mon Jan 11 18:09:34 1993
  179. ***************
  180. *** 15,26 ****
  181.   echo "Extracting man/kit.$manext (with variable substitutions)"
  182.   $rm -f kit.$manext
  183.   $spitshell >kit.$manext <<!GROK!THIS!
  184. ! .TH KIT $manext ram
  185.   ''' @(#) Manual page for mailing kit -- (c) ram July 1990
  186.   '''
  187. ! ''' $Id: kit.SH,v 2.0.1.10 92/08/17 18:01:16 ram Exp $
  188.   '''
  189.   ''' $Log:    kit.SH,v $
  190.   ''' Revision 2.0.1.10  92/08/17  18:01:16  ram
  191.   ''' patch18: documents new -k option for unkit
  192.   ''' patch18: unkit can now deal with multiple kit parts in a single file
  193. --- 15,30 ----
  194.   echo "Extracting man/kit.$manext (with variable substitutions)"
  195.   $rm -f kit.$manext
  196.   $spitshell >kit.$manext <<!GROK!THIS!
  197. ! .TH KIT $manext "Version $VERSION PL$PATCHLEVEL"
  198.   ''' @(#) Manual page for mailing kit -- (c) ram July 1990
  199.   '''
  200. ! ''' $Id: kit.SH,v 2.0.1.11 93/01/11 18:08:33 ram Exp $
  201.   '''
  202.   ''' $Log:    kit.SH,v $
  203. + ''' Revision 2.0.1.11  93/01/11  18:08:33  ram
  204. + ''' patch22: manual page now carries version number and patchlevel
  205. + ''' patch22: added OPTIONS section for quick reference
  206. + ''' 
  207.   ''' Revision 2.0.1.10  92/08/17  18:01:16  ram
  208.   ''' patch18: documents new -k option for unkit
  209.   ''' patch18: unkit can now deal with multiple kit parts in a single file
  210. ***************
  211. *** 83,88 ****
  212. --- 87,95 ----
  213.   .sp
  214.   \fBunkit\fR [ \fB\-bhlprV\fR ] [ \fB\-k\fI key\fR ] [ \fIfiles\fR ]
  215.   .SH DESCRIPTION
  216. + '''
  217. + ''' Kit
  218. + '''
  219.   \fIKit\fR is the ultimate mailing tool. It enables you to mail
  220.   data without any consideration of possible escape sequences or
  221.   control characters.
  222. ***************
  223. *** 146,151 ****
  224. --- 153,161 ----
  225.   argument. It can be given in bytes (e.g. \fI\-S 40000\fR to set the maximum
  226.   part size to 40000 bytes) or in kbytes by appending a \fIk\fR at the end
  227.   (i.e. \fI-S 60k\fR would produce parts with size ranging up to 61440 bytes).
  228. + '''
  229. + ''' Mailkit
  230. + '''
  231.   .PP
  232.   \fIMailkit\fR takes "Kit*" files and sends them to a list of addresses.
  233.   The \fB\-n\fR option can be used to change that base name, if necessary.
  234. ***************
  235. *** 199,204 ****
  236. --- 209,217 ----
  237.   1, 4 trough 7 and 10. Finally, \fI-5,8-\fR would send parts 1 through 5 and
  238.   8 up to the end. If you introduce spaces in your range list specification,
  239.   do not forget to quote the whole list for the shell...
  240. + '''
  241. + ''' Unkit
  242. + '''
  243.   .PP
  244.   \fIUnkit\fR is used to restore the original files. The argument is
  245.   a list of archive files (or mail files, as \fIunshar\fR(1), which
  246. ***************
  247. *** 234,239 ****
  248. --- 247,415 ----
  249.   For all of these commands, option \fB\-V\fR prints the version
  250.   number with the current patch level and exits, while \fB\-h\fR gives
  251.   a little help message with the syntax and the meaning of the options.
  252. + .SH OPTIONS
  253. + This section summarizes the different options. All the options may be specified
  254. + separately (e.g. \fB\-a \-b \fIfoo\fR \-c) or grouped together, along with
  255. + optional arguments (e.g. \fB\-ac\fR \fB\-b\fIfoo\fR). Option parsing stops
  256. + when \-\- is encountered.
  257. + '''
  258. + ''' Kit
  259. + '''
  260. + .PP
  261. + \fIKit\fR has the following options:
  262. + .TP 15
  263. + .B \-B
  264. + Use \fIbtoa\fR encoding (default), as opposed to hexadecimal encoding.
  265. + .TP
  266. + .B \-E
  267. + Edit instructions which will be sent as part #0.
  268. + .TP
  269. + .B \-F
  270. + Get instructions to be sent as part #0 from standard input.
  271. + .TP
  272. + .B \-H
  273. + Use hexadecimal encoding, as opposed to the default \fIbtoa\fR. This is an
  274. + obsolete feature, kept for compatibility with \fIkit\fR 1.0.
  275. + .TP
  276. + .B \-M
  277. + Include \fIminikit\fR in the distribution, in order to allow unkiting
  278. + by the recipient, should \fIkit\fR be missing at the remote site. Note that
  279. + \fIminikit\fR will only be able to unkit plain \fIbtoa\fR-encoded packages
  280. + (i.e. encryption is not supported, although automatic acknowledgment is).
  281. + .TP
  282. + .B \-V
  283. + Print version number and patchlevel.
  284. + .TP
  285. + .B \-S\fI size
  286. + Set each part size in bytes or kbytes (by appending a single \fIk\fR after
  287. + the size figure). The actual size of each part may be slightly bigger than
  288. + the maximum stated (a few hundred bytes at most).
  289. + .TP
  290. + .B \-X
  291. + Encryption with DES Electronic Code Block algorithm.
  292. + You will be prompted for a key, unless you specify one on the command line via
  293. + the \fB\-k\fR option.
  294. + .TP
  295. + .B \-a\fI address
  296. + Ask the unkiting process to send an acknowldgment to the specified e-mail
  297. + address upon successful extraction.
  298. + .TP
  299. + .B \-d\fI dir
  300. + Put temporary files in the specified directory. This is useful if you do not
  301. + have writing permission in the current directory. If you specify a common
  302. + directory like \fI/tmp\fR, be sure to use the \fB\-n\fR option or your kit
  303. + might be clobbered if somebody else is doing the same thing.
  304. + .TP
  305. + .B \-e
  306. + Edit instructions to be sent at the top of each part.
  307. + .TP
  308. + .B \-f
  309. + Get instructions to be sent at the top of each part from standard input.
  310. + .TP
  311. + .B \-h
  312. + Print usage and option summary.
  313. + .TP
  314. + .B \-k\fI key
  315. + Set the key to be used for encryption. The \fB\-x\fR option will be assumed,
  316. + unless \fB\-X\fR is explicitely given to override the default.
  317. + .TP
  318. + .B \-m\fI address
  319. + Invoke \fImailkit\fR to send all the parts at the given address. Several
  320. + \fB\-m\fR may be specifed to send the package to more than one recipient. The
  321. + kit parts will be removed at the end, unless \fB\-p\fR is given. When sending
  322. + large files to multiple recipients, it is wise to use this option in case one
  323. + part gets lost.
  324. + .TP
  325. + .B \-l\fI file
  326. + Send the kit parts to the recipients held in the file (one recipient per line).
  327. + .TP
  328. + .B \-n\fI basename
  329. + Set the basename of the generated parts. The default is \fIKit\fR. You should
  330. + use this option when a kit is already present in the current directory, or when
  331. + you use something like \fB\-d /tmp\fR.
  332. + .TP
  333. + .B \-p
  334. + Preserve file sent. This option is meaningful only when \fB\-m\fR or \fB-l\fR
  335. + is given.
  336. + .TP
  337. + .B \-s\fI name
  338. + Set the kit name, which will be copied as-is into the Subject of messages
  339. + sent by \fImailkit\fR (provided \fB\-m\fR or \fB\-l\fR is specified), and also
  340. + in the automatic acknowledgment. By default, the name of the first directory
  341. + or file specified on the command line will be used.
  342. + .TP
  343. + .B \-x
  344. + Use DES Cipher Block Chaining encryption algorithm.
  345. + You will be prompted for a key, unless you specify one on the command line via
  346. + the \fB\-k\fR option.
  347. + '''
  348. + ''' Mailkit
  349. + '''
  350. + .PP
  351. + \fIMailkit\fR recognizes the following options:
  352. + .TP 15
  353. + .B \-E
  354. + Edit instructions which will be sent as part #0.
  355. + .TP
  356. + .B \-F
  357. + Get instructions to be sent as part #0 from standard input.
  358. + .TP
  359. + .B \-V
  360. + Print version number and patchlevel.
  361. + .TP
  362. + .B \-c
  363. + Clean up after each part sent: all the parts successfully sent will be
  364. + removed from the disk.
  365. + .TP
  366. + .B \-e
  367. + Edit instructions to be sent at the top of each part.
  368. + .TP
  369. + .B \-f
  370. + Get instructions to be sent at the top of each part from standard input.
  371. + .TP
  372. + .B \-h
  373. + Print usage and option summary.
  374. + .TP
  375. + .B \-l\fI file
  376. + Get the recipient list from a file (one recipient per line).
  377. + .TP
  378. + .B \-n\fI basename
  379. + Set the basename of the generated parts. The default is \fIKit\fR. You should
  380. + use this option when more than one kit is present in the current directory,
  381. + or when you used the \fIkit\fR's \fB\-n\fR option to change the default
  382. + basename.
  383. + .TP
  384. + .B \-p
  385. + Preserve files sent. This is the default, unless \fB\-c\fR is specified.
  386. + .TP
  387. + .B \-r\fI range
  388. + Specify which parts are to be sent. For instance, \fB\-r\fI 1,4-7\fR would
  389. + send part #1 and then parts #4 through #7.
  390. + '''
  391. + ''' Unkit
  392. + '''
  393. + .PP
  394. + \fIUnkit\fR uses the following options:
  395. + .TP 15
  396. + .B \-V
  397. + Print version number and patchlevel.
  398. + .TP
  399. + .B \-b
  400. + Force usage of \fIbadtar\fR.
  401. + .TP
  402. + .B \-h
  403. + Print usage and option summary.
  404. + .TP
  405. + .B \-k\fI key
  406. + Set the key to be used for data decryption. \fIUnkit\fR is able to determine
  407. + automatically whether decryption is needed or not and will prompt you for the
  408. + key unless this option is used.
  409. + .TP
  410. + .B \-l
  411. + Lists the files contained in the kit package without extracting them.
  412. + .TP
  413. + .B \-r
  414. + Remove input files if unshar succeeds.
  415.   .SH FILES
  416.   .PD 0
  417.   .TP 15
  418.  
  419. Index: kit/unkit.SH
  420. Prereq: 2.0.1.14
  421. *** kit/unkit.SH.old    Mon Jan 11 18:09:28 1993
  422. --- kit/unkit.SH    Mon Jan 11 18:09:29 1993
  423. ***************
  424. *** 19,27 ****
  425.   # @(#) (c) E. Mogenet April 1990
  426.   # @(#) (c) R. Manfredi, 1990 1991
  427.   
  428. ! # $Id: unkit.SH,v 2.0.1.14 92/11/03 10:12:44 ram Exp $
  429.   #
  430.   # $Log:    unkit.SH,v $
  431.   # Revision 2.0.1.14  92/11/03  10:12:44  ram
  432.   # patch21: option parsing can now deal with embeded spaces in arguments
  433.   # 
  434. --- 19,31 ----
  435.   # @(#) (c) E. Mogenet April 1990
  436.   # @(#) (c) R. Manfredi, 1990 1991
  437.   
  438. ! # $Id: unkit.SH,v 2.0.1.15 93/01/11 18:07:29 ram Exp $
  439.   #
  440.   # $Log:    unkit.SH,v $
  441. + # Revision 2.0.1.15  93/01/11  18:07:29  ram
  442. + # patch22: now uses external getopt script for option parsing
  443. + # patch22: fixed some typos in the help message
  444. + # 
  445.   # Revision 2.0.1.14  92/11/03  10:12:44  ram
  446.   # patch21: option parsing can now deal with embeded spaces in arguments
  447.   # 
  448. ***************
  449. *** 85,90 ****
  450. --- 89,95 ----
  451.   # Which patch-level is it ?
  452.   pl='$PATCHLEVEL'
  453.   version='$VERSION'
  454. + libdir='$privlib'
  455.   
  456.   # Tar options to be used
  457.   badtar='$needbtar'
  458. ***************
  459. *** 126,133 ****
  460.   echo "Usage: unkit [-bhlprV] [-k key] [file1 ... filen]";
  461.   echo " "" -b : force use of badtar ($badtar by default).";
  462.   echo " "" -h : give this help message.";
  463. ! echo " "" -k : sets the key used for data decryption.";
  464. ! echo " "" -l : list the contents of a the kit files.";
  465.   echo " "" -p : preserve input files (default).";
  466.   echo " "" -r : remove input files if unshar succeeds.";
  467.   echo " "" -V : print current version and patch-level.";
  468. --- 131,138 ----
  469.   echo "Usage: unkit [-bhlprV] [-k key] [file1 ... filen]";
  470.   echo " "" -b : force use of badtar ($badtar by default).";
  471.   echo " "" -h : give this help message.";
  472. ! echo " "" -k : set the key used for data decryption.";
  473. ! echo " "" -l : list files held in the kit parts.";
  474.   echo " "" -p : preserve input files (default).";
  475.   echo " "" -r : remove input files if unshar succeeds.";
  476.   echo " "" -V : print current version and patch-level.";
  477. ***************
  478. *** 135,188 ****
  479.   '
  480.   
  481.   # Process the command line options
  482. ! set X `for arg in "$@"; do echo $arg; done | awk '
  483. ! BEGIN {
  484. !     optstr = "bhlprVk:";    # getopt-style specification
  485. ! 
  486. !     len = length(optstr);
  487. !     for (i = 1; i <= len; i++) {
  488. !         c = substr(optstr, i, 1);
  489. !         if (i < len) a = substr(optstr, i + 1, 1); else a = "";
  490. !         if (a == ":") {
  491. !             arg[c] = 1;
  492. !             i++;
  493. !         }
  494. !         opt[c] = 1;
  495. !     }
  496. ! }
  497. ! {
  498. !     expect = 0;
  499. !     str = $0;
  500. !     if (substr(str, 1, 1) != "-") {
  501. !         printf("'"'%s'"'\n", str);
  502. !         next;
  503. !     }
  504. !     len = length($0);
  505. !     for (i = 2; i <= len; i++) {
  506. !         c = substr(str, i, 1);
  507. !         if (!opt[c]) {
  508. !             printf("-%s\n", substr(str, i));
  509. !             next;
  510. !         }
  511. !         printf("-%s\n", c);
  512. !         if (arg[c]) {
  513. !             if (i < len)
  514. !                 printf("'"'%s'"'\n", substr(str, i + 1));
  515. !             else
  516. !                 expect = 1;
  517. !             next;
  518. !         }
  519. !     }
  520. ! }
  521. ! END {
  522. !     if (expect)
  523. !         print "?";
  524. ! }
  525. ! '`
  526. ! eval "set $*"
  527. ! shift
  528. ! 
  529. ! # Option parsing
  530.   while test $# -gt 0
  531.   do
  532.       case "$1" in
  533. --- 140,146 ----
  534.   '
  535.   
  536.   # Process the command line options
  537. ! eval "set X "`$libdir/getopt bhlprVk: "$@"`; shift
  538.   while test $# -gt 0
  539.   do
  540.       case "$1" in
  541.  
  542. Index: kit/getopt.SH
  543. *** kit/getopt.SH.old    Mon Jan 11 18:09:15 1993
  544. --- kit/getopt.SH    Mon Jan 11 18:09:15 1993
  545. ***************
  546. *** 0 ****
  547. --- 1,93 ----
  548. + case $CONFIG in
  549. + '')
  550. +     if test ! -f config.sh; then
  551. +         ln ../config.sh . || \
  552. +         ln ../../config.sh . || \
  553. +         ln ../../../config.sh . || \
  554. +         ln ../../../../config.sh . || \
  555. +         (echo "Can't find config.sh."; exit 1)
  556. +     fi 2>/dev/null
  557. +     . ./config.sh
  558. +     ;;
  559. + esac
  560. + case "$0" in
  561. + */*) cd `expr X$0 : 'X\(.*\)/'` ;;
  562. + esac
  563. + echo "Extracting kit/getopt (with variable substitutions)"
  564. + $spitshell >getopt <<!GROK!THIS!
  565. + $startsh
  566. + !GROK!THIS!
  567. + $spitshell >>getopt <<'!NO!SUBS!'
  568. + 
  569. + # Usage: getopt optstr [options]
  570. + #
  571. + # Here is a typical use inside a script:
  572. + #    eval "set X "`getopt optstr "$@"`
  573. + #    shift
  574. + #
  575. + # Then the $* array can then be parsed as usual, with all the options up to
  576. + # any optional '--' split up, for instance '-lfoo' becomes '-l foo' if l: is
  577. + # given in optstr, and '-lf' becomes '-l -f' if only lf is given as optstr.
  578. + 
  579. + # $Id: getopt.SH,v 2.0.1.1 93/01/11 18:04:27 ram Exp $
  580. + #
  581. + # $Log:    getopt.SH,v $
  582. + # Revision 2.0.1.1  93/01/11  18:04:27  ram
  583. + # patch22: created
  584. + # 
  585. + 
  586. + # Options specification (getopt style)
  587. + optstr=$1; shift
  588. + 
  589. + # Process the command line options
  590. + set X `for arg in "$@"; do echo $arg; done | awk '
  591. + BEGIN {
  592. +     optstr = "'$optstr'";    # getopt-style specification
  593. + 
  594. +     len = length(optstr);
  595. +     for (i = 1; i <= len; i++) {
  596. +         c = substr(optstr, i, 1);
  597. +         if (i < len) a = substr(optstr, i + 1, 1); else a = "";
  598. +         if (a == ":") {
  599. +             arg[c] = 1;
  600. +             i++;
  601. +         }
  602. +         opt[c] = 1;
  603. +     }
  604. + }
  605. + {
  606. +     expect = 0;
  607. +     str = $0;
  608. +     if (str == "--")
  609. +         ended = 1;
  610. +     if (ended || substr(str, 1, 1) != "-") {
  611. +         printf("'"'%s'"'\n", str);
  612. +         next;
  613. +     }
  614. +     len = length($0);
  615. +     for (i = 2; i <= len; i++) {
  616. +         c = substr(str, i, 1);
  617. +         if (!opt[c]) {
  618. +             printf("-%s\n", substr(str, i));
  619. +             next;
  620. +         }
  621. +         printf("-%s\n", c);
  622. +         if (arg[c]) {
  623. +             if (i < len)
  624. +                 printf("'"'%s'"'\n", substr(str, i + 1));
  625. +             else
  626. +                 expect = 1;
  627. +             next;
  628. +         }
  629. +     }
  630. + }
  631. + END {
  632. +     if (expect)
  633. +         print "?";
  634. + }
  635. + '`
  636. + shift
  637. + echo $@
  638. + !NO!SUBS!
  639. + chmod 755 getopt
  640. + $eunicefix getopt
  641.  
  642. Index: kit/mailkit.SH
  643. Prereq: 2.0.1.11
  644. *** kit/mailkit.SH.old    Mon Jan 11 18:09:23 1993
  645. --- kit/mailkit.SH    Mon Jan 11 18:09:24 1993
  646. ***************
  647. *** 18,26 ****
  648.   # @(#) Mailer for kit files
  649.   # @(#) (c) R. Manfredi, 1990 1991
  650.   
  651. ! # $Id: mailkit.SH,v 2.0.1.11 92/11/03 10:12:40 ram Exp $
  652.   #
  653.   # $Log:    mailkit.SH,v $
  654.   # Revision 2.0.1.11  92/11/03  10:12:40  ram
  655.   # patch21: option parsing can now deal with embeded spaces in arguments
  656.   # 
  657. --- 18,29 ----
  658.   # @(#) Mailer for kit files
  659.   # @(#) (c) R. Manfredi, 1990 1991
  660.   
  661. ! # $Id: mailkit.SH,v 2.0.1.12 93/01/11 18:06:55 ram Exp $
  662.   #
  663.   # $Log:    mailkit.SH,v $
  664. + # Revision 2.0.1.12  93/01/11  18:06:55  ram
  665. + # patch22: now uses external getopt script for option parsing
  666. + # 
  667.   # Revision 2.0.1.11  92/11/03  10:12:40  ram
  668.   # patch21: option parsing can now deal with embeded spaces in arguments
  669.   # 
  670. ***************
  671. *** 127,180 ****
  672.   '
  673.   
  674.   # Process the command line options
  675. ! set X `for arg in "$@"; do echo $arg; done | awk '
  676. ! BEGIN {
  677. !     optstr = "EFVcefhpn:l:r:";    # getopt-style specification
  678. ! 
  679. !     len = length(optstr);
  680. !     for (i = 1; i <= len; i++) {
  681. !         c = substr(optstr, i, 1);
  682. !         if (i < len) a = substr(optstr, i + 1, 1); else a = "";
  683. !         if (a == ":") {
  684. !             arg[c] = 1;
  685. !             i++;
  686. !         }
  687. !         opt[c] = 1;
  688. !     }
  689. ! }
  690. ! {
  691. !     expect = 0;
  692. !     str = $0;
  693. !     if (substr(str, 1, 1) != "-") {
  694. !         printf("'"'%s'"'\n", str);
  695. !         next;
  696. !     }
  697. !     len = length($0);
  698. !     for (i = 2; i <= len; i++) {
  699. !         c = substr(str, i, 1);
  700. !         if (!opt[c]) {
  701. !             printf("-%s\n", substr(str, i));
  702. !             next;
  703. !         }
  704. !         printf("-%s\n", c);
  705. !         if (arg[c]) {
  706. !             if (i < len)
  707. !                 printf("'"'%s'"'\n", substr(str, i + 1));
  708. !             else
  709. !                 expect = 1;
  710. !             next;
  711. !         }
  712. !     }
  713. ! }
  714. ! END {
  715. !     if (expect)
  716. !         print "?";
  717. ! }
  718. ! '`
  719. ! eval "set $*"
  720. ! shift
  721. ! 
  722. ! # Argument parsing
  723.   while test $# -gt 0
  724.   do
  725.       case "$1" in
  726. --- 130,136 ----
  727.   '
  728.   
  729.   # Process the command line options
  730. ! eval "set X "`$libdir/getopt EFVcefhpn:l:r: "$@"`; shift
  731.   while test $# -gt 0
  732.   do
  733.       case "$1" in
  734.  
  735. Index: shar/makeshar.SH
  736. Prereq: 2.0.1.4
  737. *** shar/makeshar.SH.old    Mon Jan 11 18:09:36 1993
  738. --- shar/makeshar.SH    Mon Jan 11 18:09:36 1993
  739. ***************
  740. *** 17,25 ****
  741.   $startsh
  742.   # (c) Raphael Manfredi, December 25th 1991
  743.   
  744. ! # $Id: makeshar.SH,v 2.0.1.4 92/05/02 14:19:45 ram Exp $
  745.   #
  746.   # $Log:    makeshar.SH,v $
  747.   # Revision 2.0.1.4  92/05/02  14:19:45  ram
  748.   # patch16: maximum part size can now be specified via -s
  749.   # 
  750. --- 17,28 ----
  751.   $startsh
  752.   # (c) Raphael Manfredi, December 25th 1991
  753.   
  754. ! # $Id: makeshar.SH,v 2.0.1.5 93/01/11 18:08:54 ram Exp $
  755.   #
  756.   # $Log:    makeshar.SH,v $
  757. + # Revision 2.0.1.5  93/01/11  18:08:54  ram
  758. + # patch22: sorting done numerically with -n option
  759. + # 
  760.   # Revision 2.0.1.4  92/05/02  14:19:45  ram
  761.   # patch16: maximum part size can now be specified via -s
  762.   # 
  763. ***************
  764. *** 81,87 ****
  765.               echo "`wc -c < $i` $i"
  766.           fi
  767.       done
  768. ! ) | sort -r | awk '
  769.   # Awk is fed with a list of sizes and filenames, sorted in reverse order,
  770.   # i.e. the biggest files come first. Its output is a list of files to be
  771.   # put in the archives, each line counting for one part. The first line is
  772. --- 84,90 ----
  773.               echo "`wc -c < $i` $i"
  774.           fi
  775.       done
  776. ! ) | sort -n -r | awk '
  777.   # Awk is fed with a list of sizes and filenames, sorted in reverse order,
  778.   # i.e. the biggest files come first. Its output is a list of files to be
  779.   # put in the archives, each line counting for one part. The first line is
  780.  
  781. Index: kit/Makefile.SH
  782. Prereq: 2.0.1.6
  783. *** kit/Makefile.SH.old    Mon Jan 11 18:09:12 1993
  784. --- kit/Makefile.SH    Mon Jan 11 18:09:13 1993
  785. ***************
  786. *** 18,26 ****
  787.   # Makefile for kit (sub-directory kit)
  788.   #
  789.   
  790. ! # $Id: Makefile.SH,v 2.0.1.6 92/09/04 19:22:28 ram Exp $
  791.   #
  792.   # $Log:    Makefile.SH,v $
  793.   # Revision 2.0.1.6  92/09/04  19:22:28  ram
  794.   # patch19: forgot the 'range' target
  795.   # 
  796. --- 18,29 ----
  797.   # Makefile for kit (sub-directory kit)
  798.   #
  799.   
  800. ! # $Id: Makefile.SH,v 2.0.1.7 93/01/11 18:04:13 ram Exp $
  801.   #
  802.   # $Log:    Makefile.SH,v $
  803. + # Revision 2.0.1.7  93/01/11  18:04:13  ram
  804. + # patch22: new getopt target
  805. + # 
  806.   # Revision 2.0.1.6  92/09/04  19:22:28  ram
  807.   # patch19: forgot the 'range' target
  808.   # 
  809. ***************
  810. *** 53,59 ****
  811.   !GROK!THIS!
  812.   $spitshell >>Makefile <<'!NO!SUBS!'
  813.   bin = kit mailkit unkit
  814. ! lib = minikit range
  815.   scripts = $(bin) $(lib)
  816.   scriptsh = kit.SH mailkit.SH unkit.SH minikit.SH
  817.   added = Makefile config.sh
  818. --- 56,62 ----
  819.   !GROK!THIS!
  820.   $spitshell >>Makefile <<'!NO!SUBS!'
  821.   bin = kit mailkit unkit
  822. ! lib = minikit range getopt
  823.   scripts = $(bin) $(lib)
  824.   scriptsh = kit.SH mailkit.SH unkit.SH minikit.SH
  825.   added = Makefile config.sh
  826. ***************
  827. *** 73,78 ****
  828. --- 76,84 ----
  829.       sh $@.SH
  830.   
  831.   range: range.SH
  832. +     sh $@.SH
  833. + 
  834. + getopt: getopt.SH
  835.       sh $@.SH
  836.   
  837.   install: $(scripts)
  838.  
  839. Index: MANIFEST
  840. *** MANIFEST.old    Mon Jan 11 18:09:39 1993
  841. --- MANIFEST    Mon Jan 11 18:09:39 1993
  842. ***************
  843. *** 25,30 ****
  844. --- 25,31 ----
  845.   des/testdata               A set of tests to certify the des
  846.   install.SH                 BSD-like installation script
  847.   kit/Makefile.SH            Makefile for scripts
  848. + kit/getopt.SH              Option parsing library
  849.   kit/kit.SH                 The main script-shell
  850.   kit/mailkit.SH             Mails parts generated by "kit"
  851.   kit/minikit.SH             The minikit script for kit extraction
  852.  
  853. *** End of Patch 22 ***
  854.