home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / unix / volume26 / kit / pch20 < prev    next >
Encoding:
Text File  |  1993-05-04  |  9.4 KB  |  395 lines
  1. Newsgroups: comp.sources.unix
  2. From: ram@acri.fr (Raphael Manfredi)
  3. Subject: v26i223: kit - the ultimate mailing kit, Patch20
  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 223
  9. Archive-Name: kit/pch20
  10.  
  11. [The latest patch for kit version 2.0 is #28.]
  12.  
  13. System: kit version 2.0
  14. Patch #: 20
  15. Priority: HIGH
  16. Subject: added getopt-style option parsing
  17. Date: Sun Nov  1 15:08:30 PST 1992
  18. From: Raphael Manfredi <ram@eiffel.com>
  19.  
  20. Description:
  21.     Added getopt-style option parsing for kit, mailkit and unkit. This
  22.     makes it possible to specify an argument for an option directly
  23.     after the option letter, or specify more than one argument-free
  24.     option, as in -cdv (instead of -c -d -v) or -afoo (for -a foo).
  25.  
  26.  
  27. Fix:    From rn, say "| patch -p -N -d DIR", where DIR is your kit source
  28.     directory.  Outside of rn, say "cd DIR; patch -p -N <thisarticle".
  29.     If you don't have the patch program, apply the following by hand,
  30.     or get patch (version 2.0, latest patchlevel).
  31.  
  32.     After patching:
  33.         Configure -d
  34.         make
  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: 19
  65. 2c2
  66. < #define PATCHLEVEL 19
  67. ---
  68. > #define PATCHLEVEL 20
  69.  
  70. Index: kit/mailkit.SH
  71. Prereq: 2.0.1.9
  72. *** kit/mailkit.SH.old    Sun Nov  1 15:08:23 1992
  73. --- kit/mailkit.SH    Sun Nov  1 15:08:24 1992
  74. ***************
  75. *** 18,26 ****
  76.   # @(#) Mailer for kit files
  77.   # @(#) (c) R. Manfredi, 1990 1991
  78.   
  79. ! # $Id: mailkit.SH,v 2.0.1.9 92/08/17 17:55:16 ram Exp $
  80.   #
  81.   # $Log:    mailkit.SH,v $
  82.   # Revision 2.0.1.9  92/08/17  17:55:16  ram
  83.   # patch18: recipient file was wrongly reported as missing
  84.   # patch18: instruction message now saved in case of error
  85. --- 18,29 ----
  86.   # @(#) Mailer for kit files
  87.   # @(#) (c) R. Manfredi, 1990 1991
  88.   
  89. ! # $Id: mailkit.SH,v 2.0.1.10 92/11/01 15:08:10 ram Exp $
  90.   #
  91.   # $Log:    mailkit.SH,v $
  92. + # Revision 2.0.1.10  92/11/01  15:08:10  ram
  93. + # patch20: added getopt-style option parsing
  94. + # 
  95.   # Revision 2.0.1.9  92/08/17  17:55:16  ram
  96.   # patch18: recipient file was wrongly reported as missing
  97.   # patch18: instruction message now saved in case of error
  98. ***************
  99. *** 93,98 ****
  100. --- 96,110 ----
  101.   unsent=''                # Parts which could not be sent
  102.   error=''                # True when error occurred
  103.   
  104. + # Ensure proper MAILER and EDITOR variables. I cannot use the ${MAILER:-def}
  105. + # construct since some shells do not recognize that (/bin/sh on the DEC 3100).
  106. + case "$MAILER" in
  107. + '') MAILER="$mailer";;
  108. + esac
  109. + case "$EDITOR" in
  110. + '') EDITOR="$editor";;
  111. + esac
  112. + 
  113.   # Old Bourne shells do not have functions
  114.   usage='
  115.   echo "Usage: mailkit [-EFVcefhp] [-n base] [-l file] [-r range]";
  116. ***************
  117. *** 111,116 ****
  118. --- 123,175 ----
  119.   exit 1;
  120.   '
  121.   
  122. + # Process the command line options
  123. + set X `for arg in $*; do echo $arg; done | awk '
  124. + BEGIN {
  125. +     optstr = "EFVcefhpn:l:r:";    # getopt-style specification
  126. + 
  127. +     len = length(optstr);
  128. +     for (i = 1; i <= len; i++) {
  129. +         c = substr(optstr, i, 1);
  130. +         if (i < len) a = substr(optstr, i + 1, 1); else a = "";
  131. +         if (a == ":") {
  132. +             arg[c] = 1;
  133. +             i++;
  134. +         }
  135. +         opt[c] = 1;
  136. +     }
  137. + }
  138. + {
  139. +     expect = 0;
  140. +     str = $0;
  141. +     if (substr(str, 1, 1) != "-") {
  142. +         print str;
  143. +         next;
  144. +     }
  145. +     len = length($0);
  146. +     for (i = 2; i <= len; i++) {
  147. +         c = substr(str, i, 1);
  148. +         if (!opt[c]) {
  149. +             print sprintf("-%s", substr(str, i));
  150. +             next;
  151. +         }
  152. +         print sprintf("-%s", c);
  153. +         if (arg[c]) {
  154. +             if (i < len)
  155. +                 print substr(str, i + 1);
  156. +             else
  157. +                 expect = 1;
  158. +             next;
  159. +         }
  160. +     }
  161. + }
  162. + END {
  163. +     if (expect)
  164. +         print "?";
  165. + }
  166. + '`
  167. + shift
  168. + 
  169.   # Argument parsing
  170.   while test $# -gt 0
  171.   do
  172. ***************
  173. *** 254,260 ****
  174.       fi
  175.   
  176.       # Call the editor
  177. !     ${EDITOR:-$editor} $message
  178.   
  179.       # Now remove the 4 lines at the top
  180.       # Do not use tail +5, as this may not exist on every system
  181. --- 313,319 ----
  182.       fi
  183.   
  184.       # Call the editor
  185. !     $EDITOR $message
  186.   
  187.       # Now remove the 4 lines at the top
  188.       # Do not use tail +5, as this may not exist on every system
  189. ***************
  190. *** 325,331 ****
  191.           fi
  192.           cat $part >> $topmsg
  193.           # Remove part sucessfully sent unless '-p' was used
  194. !         if ${MAILER:-$mailer} $address < $topmsg; then
  195.               test "$preserve" = no && rm -f $part
  196.           else
  197.               echo "mailkit: could not send $part." >&2
  198. --- 384,390 ----
  199.           fi
  200.           cat $part >> $topmsg
  201.           # Remove part sucessfully sent unless '-p' was used
  202. !         if $MAILER $address < $topmsg; then
  203.               test "$preserve" = no && rm -f $part
  204.           else
  205.               echo "mailkit: could not send $part." >&2
  206. ***************
  207. *** 355,361 ****
  208.   EOM
  209.       cat >>$topmsg <$message
  210.       echo "Mailing instructions..."
  211. !     if ${MAILER:-$mailer} $address < $topmsg; then
  212.           rm -f $topmsg
  213.       else
  214.           echo "mailkit: could not send instructions." >&2
  215. --- 414,420 ----
  216.   EOM
  217.       cat >>$topmsg <$message
  218.       echo "Mailing instructions..."
  219. !     if $MAILER $address < $topmsg; then
  220.           rm -f $topmsg
  221.       else
  222.           echo "mailkit: could not send instructions." >&2
  223.  
  224. Index: kit/unkit.SH
  225. Prereq: 2.0.1.12
  226. *** kit/unkit.SH.old    Sun Nov  1 15:08:28 1992
  227. --- kit/unkit.SH    Sun Nov  1 15:08:29 1992
  228. ***************
  229. *** 19,27 ****
  230.   # @(#) (c) E. Mogenet April 1990
  231.   # @(#) (c) R. Manfredi, 1990 1991
  232.   
  233. ! # $Id: unkit.SH,v 2.0.1.12 92/09/04 19:28:28 ram Exp $
  234.   #
  235.   # $Log:    unkit.SH,v $
  236.   # Revision 2.0.1.12  92/09/04  19:28:28  ram
  237.   # patch19: unkit will use perl instead of awk, if available
  238.   # patch19: now smart enough to deal with multiple parts from stdin
  239. --- 19,30 ----
  240.   # @(#) (c) E. Mogenet April 1990
  241.   # @(#) (c) R. Manfredi, 1990 1991
  242.   
  243. ! # $Id: unkit.SH,v 2.0.1.13 92/11/01 15:08:15 ram Exp $
  244.   #
  245.   # $Log:    unkit.SH,v $
  246. + # Revision 2.0.1.13  92/11/01  15:08:15  ram
  247. + # patch20: added getopt-style option parsing
  248. + # 
  249.   # Revision 2.0.1.12  92/09/04  19:28:28  ram
  250.   # patch19: unkit will use perl instead of awk, if available
  251.   # patch19: now smart enough to deal with multiple parts from stdin
  252. ***************
  253. *** 127,132 ****
  254. --- 130,182 ----
  255.   echo " "" -V : print current version and patch-level.";
  256.   exit 1
  257.   '
  258. + 
  259. + # Process the command line options
  260. + set X `for arg in $*; do echo $arg; done | awk '
  261. + BEGIN {
  262. +     optstr = "bhlprVk:";    # getopt-style specification
  263. + 
  264. +     len = length(optstr);
  265. +     for (i = 1; i <= len; i++) {
  266. +         c = substr(optstr, i, 1);
  267. +         if (i < len) a = substr(optstr, i + 1, 1); else a = "";
  268. +         if (a == ":") {
  269. +             arg[c] = 1;
  270. +             i++;
  271. +         }
  272. +         opt[c] = 1;
  273. +     }
  274. + }
  275. + {
  276. +     expect = 0;
  277. +     str = $0;
  278. +     if (substr(str, 1, 1) != "-") {
  279. +         print str;
  280. +         next;
  281. +     }
  282. +     len = length($0);
  283. +     for (i = 2; i <= len; i++) {
  284. +         c = substr(str, i, 1);
  285. +         if (!opt[c]) {
  286. +             print sprintf("-%s", substr(str, i));
  287. +             next;
  288. +         }
  289. +         print sprintf("-%s", c);
  290. +         if (arg[c]) {
  291. +             if (i < len)
  292. +                 print substr(str, i + 1);
  293. +             else
  294. +                 expect = 1;
  295. +             next;
  296. +         }
  297. +     }
  298. + }
  299. + END {
  300. +     if (expect)
  301. +         print "?";
  302. + }
  303. + '`
  304. + shift
  305.   
  306.   # Option parsing
  307.   while test $# -gt 0
  308.  
  309. Index: kit/kit.SH
  310. Prereq: 2.0.1.10
  311. *** kit/kit.SH.old    Sun Nov  1 15:08:19 1992
  312. --- kit/kit.SH    Sun Nov  1 15:08:20 1992
  313. ***************
  314. *** 26,34 ****
  315.   !GROK!THIS!
  316.   $spitshell >>kit <<'!NO!SUBS!'
  317.   
  318. ! # $Id: kit.SH,v 2.0.1.10 92/05/02 14:13:45 ram Exp $
  319.   #
  320.   # $Log:    kit.SH,v $
  321.   # Revision 2.0.1.10  92/05/02  14:13:45  ram
  322.   # patch16: new option -S to set maximum part size
  323.   # 
  324. --- 26,37 ----
  325.   !GROK!THIS!
  326.   $spitshell >>kit <<'!NO!SUBS!'
  327.   
  328. ! # $Id: kit.SH,v 2.0.1.11 92/11/01 15:08:04 ram Exp $
  329.   #
  330.   # $Log:    kit.SH,v $
  331. + # Revision 2.0.1.11  92/11/01  15:08:04  ram
  332. + # patch20: added getopt-style option parsing
  333. + # 
  334.   # Revision 2.0.1.10  92/05/02  14:13:45  ram
  335.   # patch16: new option -S to set maximum part size
  336.   # 
  337. ***************
  338. *** 124,129 ****
  339. --- 127,179 ----
  340.   echo " "" -x : use Cipher Block Chaining DES encryption (default).";
  341.   exit 1
  342.   '
  343. + 
  344. + # Process the command line options
  345. + set X `for arg in $*; do echo $arg; done | awk '
  346. + BEGIN {
  347. +     optstr = "BEFHMVXefhpxS:a:d:k:l:m:n:s:";    # getopt-style specification
  348. + 
  349. +     len = length(optstr);
  350. +     for (i = 1; i <= len; i++) {
  351. +         c = substr(optstr, i, 1);
  352. +         if (i < len) a = substr(optstr, i + 1, 1); else a = "";
  353. +         if (a == ":") {
  354. +             arg[c] = 1;
  355. +             i++;
  356. +         }
  357. +         opt[c] = 1;
  358. +     }
  359. + }
  360. + {
  361. +     expect = 0;
  362. +     str = $0;
  363. +     if (substr(str, 1, 1) != "-") {
  364. +         print str;
  365. +         next;
  366. +     }
  367. +     len = length($0);
  368. +     for (i = 2; i <= len; i++) {
  369. +         c = substr(str, i, 1);
  370. +         if (!opt[c]) {
  371. +             print sprintf("-%s", substr(str, i));
  372. +             next;
  373. +         }
  374. +         print sprintf("-%s", c);
  375. +         if (arg[c]) {
  376. +             if (i < len)
  377. +                 print substr(str, i + 1);
  378. +             else
  379. +                 expect = 1;
  380. +             next;
  381. +         }
  382. +     }
  383. + }
  384. + END {
  385. +     if (expect)
  386. +         print "?";
  387. + }
  388. + '`
  389. + shift
  390.   
  391.   while test $# -gt 0
  392.   do
  393.  
  394. *** End of Patch 20 ***
  395.