home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume39 / dist-3.0 / patch07 < prev    next >
Encoding:
Text File  |  1993-08-29  |  34.8 KB  |  1,336 lines
  1. Newsgroups: comp.sources.misc
  2. From: Raphael Manfredi <ram@acri.fr>
  3. Subject: v39i058:  dist-3.0 - Configure script generator and related tools, Patch07
  4. Message-ID: <1993Aug29.163251.24141@sparky.sterling.com>
  5. X-Md4-Signature: 24935f36e755c081d51d008219c5277b
  6. Sender: kent@sparky.sterling.com (Kent Landfield)
  7. Organization: Advanced Computer Research Institute, Lyon, France
  8. Date: Sun, 29 Aug 1993 16:32:51 GMT
  9. Approved: kent@sparky.sterling.com
  10.  
  11. Submitted-by: Raphael Manfredi <ram@acri.fr>
  12. Posting-number: Volume 39, Issue 58
  13. Archive-name: dist-3.0/patch07
  14. Environment: UNIX, Perl, RCS
  15. Patch-To: dist-3.0: Volume 39, Issue 5-32
  16.  
  17. [The latest patch for dist version 3.0 is #7.]
  18.  
  19. System: dist version 3.0
  20. Patch #: 7
  21. Priority: MEDIUM
  22. Subject: updated Configure with metaconfig 3.0 PL6-7
  23. Subject: added support for OSF/1 machines
  24. Subject: not all 'test' programs support the -x option
  25. Subject: now prompts user for its e-mail address
  26. Subject: no longer silent when mail has been sent
  27. Subject: now sticks to the question when no default and empty answer
  28. Subject: added entry for /usr/shlib/libc.so (OSF/1 machines)
  29. Subject: random cleanup
  30. Subject: two files were wrongly appended to patsend instead
  31. Subject: forgot to unlink temporary file
  32. Date: Fri Aug 27 16:41:14 MET DST 1993
  33. From: Raphael Manfredi <ram@acri.fr>
  34.  
  35. Description:
  36.     Updated Configure with metaconfig 3.0 PL6-7, mainly to propagate
  37.     my changes to MailAuthor.U.
  38.  
  39.     Added support for OSF/1 machines. No wonder, I am using a DEC
  40.     AXP running DEC OSF/1.
  41.  
  42.     Not all 'test' programs support the -x option, so I changed Head.U
  43.     to use 'test -f' on /bin/ksh instead of 'test -x'.
  44.  
  45.     MailAuthor.U now prompts user for its e-mail address and is
  46.     no longer silent when mail has been sent
  47.  
  48.     Myread now sticks to the question when no default and empty answer.
  49.  
  50.     Added entry for /usr/shlib/libc.so (OSF/1 machines).
  51.  
  52.     Random cleanup in manual page for pat.
  53.  
  54.     Two files were wrongly appended to patsend instead of patnotify,
  55.     hence causing it to fail when editing the address list...
  56.  
  57.     Forgot to unlink temporary file in the listedit routine.
  58.  
  59.  
  60. Fix:    From rn, say "| patch -p -N -d DIR", where DIR is your dist source
  61.     directory.  Outside of rn, say "cd DIR; patch -p -N <thisarticle".
  62.     If you don't have the patch program, apply the following by hand,
  63.     or get patch (version 2.0, latest patchlevel).
  64.  
  65.     After patching:
  66.         Configure -ders
  67.         make
  68.         make install
  69.         make install.man
  70.  
  71.     If patch indicates that patchlevel is the wrong version, you may need
  72.     to apply one or more previous patches, or the patch may already
  73.     have been applied.  See the patchlevel.h file to find out what has or
  74.     has not been applied.  In any event, don't continue with the patch.
  75.  
  76.     If you are missing previous patches they can be obtained from me:
  77.  
  78.         Raphael Manfredi <ram@acri.fr>
  79.  
  80.     If you send a mail message of the following form it will greatly speed
  81.     processing:
  82.  
  83.         Subject: Command
  84.         @SH mailpatch PATH dist 3.0 LIST
  85.                ^ note the c
  86.  
  87.     where PATH is a return path FROM ME TO YOU either in Internet notation,
  88.     or in bang notation from some well-known host, and LIST is the number
  89.     of one or more patches you need, separated by spaces, commas, and/or
  90.     hyphens.  Saying 35- says everything from 35 to the end.
  91.  
  92.     To get some more detailed instructions, send me the following mail:
  93.  
  94.         Subject: Command
  95.         @SH mailhelp PATH
  96.  
  97.  
  98. Index: patchlevel.h
  99. Prereq: 6
  100. 4c4
  101. < #define PATCHLEVEL 6
  102. ---
  103. > #define PATCHLEVEL 7
  104.  
  105. Index: Configure
  106. Prereq: 3.0
  107. *** Configure.old    Fri Aug 27 16:41:00 1993
  108. --- Configure    Fri Aug 27 16:41:03 1993
  109. ***************
  110. *** 18,26 ****
  111.   # archive site. Check with Archie if you don't know where that can be.)
  112.   #
  113.   
  114. ! # $Id: Configure,v 3.0 1993/08/18 12:03:51 ram Exp $
  115.   #
  116. ! # Generated on Wed Aug 18 11:02:42 MET DST 1993 [metaconfig 3.0 PL0]
  117.   
  118.   cat >/tmp/c1$$ <<EOF
  119.   ARGGGHHHH!!!!!
  120. --- 18,26 ----
  121.   # archive site. Check with Archie if you don't know where that can be.)
  122.   #
  123.   
  124. ! # $Id: Configure,v 3.0.1.1 1993/08/27 14:36:14 ram Exp $
  125.   #
  126. ! # Generated on Fri Aug 27 16:25:17 MET DST 1993 [metaconfig 3.0 PL6]
  127.   
  128.   cat >/tmp/c1$$ <<EOF
  129.   ARGGGHHHH!!!!!
  130. ***************
  131. *** 60,66 ****
  132.   fi
  133.   
  134.   : On HP-UX, large Configure scripts may exercise a bug in /bin/sh
  135. ! if test -f /hp-ux -a -x /bin/ksh; then
  136.       if (alias -x) >/dev/null 2>&1; then
  137.           : already under /bin/ksh
  138.       else
  139. --- 60,66 ----
  140.   fi
  141.   
  142.   : On HP-UX, large Configure scripts may exercise a bug in /bin/sh
  143. ! if test -f /hp-ux -a -f /bin/ksh; then
  144.       if (alias -x) >/dev/null 2>&1; then
  145.           : already under /bin/ksh
  146.       else
  147. ***************
  148. *** 151,156 ****
  149. --- 151,157 ----
  150.   zcat=''
  151.   mailpatches=''
  152.   notifypatches=''
  153. + usermail=''
  154.   hint=''
  155.   myuname=''
  156.   Author=''
  157. ***************
  158. *** 204,216 ****
  159.   startperl=''
  160.   startsh=''
  161.   sysman=''
  162. - ccflags=''
  163. - cppflags=''
  164. - i_sysfile=''
  165. - i_sysselct=''
  166. - i_whoami=''
  167. - large=''
  168. - libs=''
  169.   CONFIG=''
  170.   
  171.   : script used to extract .SH files with variable substitutions
  172. --- 205,210 ----
  173. ***************
  174. *** 332,338 ****
  175.       -s) shift; silent=true;;
  176.       -E) shift; alldone=exit;;
  177.       -S) shift; extractsh=true;;
  178. !     -V) echo "Configure generated by metaconfig 3.0 PL0." >&2
  179.           exit 0;;
  180.       --) break;;
  181.       -*) echo "Configure: unknown option $1" >&2; shift; error=true;;
  182. --- 326,332 ----
  183.       -s) shift; silent=true;;
  184.       -E) shift; alldone=exit;;
  185.       -S) shift; extractsh=true;;
  186. !     -V) echo "Configure generated by metaconfig 3.0 PL6." >&2
  187.           exit 0;;
  188.       --) break;;
  189.       -*) echo "Configure: unknown option $1" >&2; shift; error=true;;
  190. ***************
  191. *** 569,574 ****
  192. --- 563,574 ----
  193.           $myecho
  194.           ;;
  195.       esac
  196. +     case "\$ans\$xxxm" in
  197. +     '')
  198. +         ans=!
  199. +         $myecho
  200. +         ;;
  201. +     esac
  202.   done
  203.   case "\$ans" in
  204.   '') ans="\$xxxm";;
  205. ***************
  206. *** 1408,1421 ****
  207.   : make some quick guesses about what we are up against
  208.   echo " "
  209.   $echo $n "Hmm...  $c"
  210.   $cat /usr/include/signal.h /usr/include/sys/signal.h >foo 2>/dev/null
  211. ! if test `echo abc | tr a-z A-Z` = Abc ; then
  212.       xxx=`./loc addbib blurfl $pth`
  213.       if $test -f $xxx; then
  214.       echo "Looks kind of like a USG system with BSD features, but we'll see..."
  215.           echo exit 0 >bsd
  216.           echo exit 0 >usg
  217. -         echo exit 1 >v7
  218.       else
  219.           if $contains SIGTSTP foo >/dev/null 2>&1 ; then
  220.               echo "Looks kind of like an extended USG system, but we'll see..."
  221. --- 1408,1430 ----
  222.   : make some quick guesses about what we are up against
  223.   echo " "
  224.   $echo $n "Hmm...  $c"
  225. + echo exit 1 >bsd
  226. + echo exit 1 >usg
  227. + echo exit 1 >v7
  228. + echo exit 1 >osf1
  229. + echo exit 1 >eunice
  230. + echo exit 1 >xenix
  231. + echo exit 1 >venix
  232.   $cat /usr/include/signal.h /usr/include/sys/signal.h >foo 2>/dev/null
  233. ! if test -f /osf_boot || $contains 'OSF/1' /usr/include/ctype.h; then
  234. !     echo "Looks kind of like an OSF/1 system, but we'll see..."
  235. !     echo exit 0 >osf1
  236. ! elif test `echo abc | tr a-z A-Z` = Abc ; then
  237.       xxx=`./loc addbib blurfl $pth`
  238.       if $test -f $xxx; then
  239.       echo "Looks kind of like a USG system with BSD features, but we'll see..."
  240.           echo exit 0 >bsd
  241.           echo exit 0 >usg
  242.       else
  243.           if $contains SIGTSTP foo >/dev/null 2>&1 ; then
  244.               echo "Looks kind of like an extended USG system, but we'll see..."
  245. ***************
  246. *** 1422,1430 ****
  247.           else
  248.               echo "Looks kind of like a USG system, but we'll see..."
  249.           fi
  250. -         echo exit 1 >bsd
  251.           echo exit 0 >usg
  252. -         echo exit 1 >v7
  253.       fi
  254.       d_bsd="$undef"
  255.   elif $contains SIGTSTP foo >/dev/null 2>&1 ; then
  256. --- 1431,1437 ----
  257. ***************
  258. *** 1431,1443 ****
  259.       echo "Looks kind of like a BSD system, but we'll see..."
  260.       d_bsd="$define"
  261.       echo exit 0 >bsd
  262. -     echo exit 1 >usg
  263. -     echo exit 1 >v7
  264.   else
  265.       echo "Looks kind of like a Version 7 system, but we'll see..."
  266.       d_bsd="$undef"
  267. -     echo exit 1 >bsd
  268. -     echo exit 1 >usg
  269.       echo exit 0 >v7
  270.   fi
  271.   case "$eunicefix" in
  272. --- 1438,1446 ----
  273. ***************
  274. *** 1446,1452 ****
  275.   There is, however, a strange, musty smell in the air that reminds me of
  276.   something...hmm...yes...I've got it...there's a VMS nearby, or I'm a Blit.
  277.   EOI
  278. !     echo "exit 0" >eunice
  279.       d_eunice="$define"
  280.   : it so happens the Eunice I know will not run shell scripts in Unix format
  281.       ;;
  282. --- 1449,1455 ----
  283.   There is, however, a strange, musty smell in the air that reminds me of
  284.   something...hmm...yes...I've got it...there's a VMS nearby, or I'm a Blit.
  285.   EOI
  286. !     echo exit 0 >eunice
  287.       d_eunice="$define"
  288.   : it so happens the Eunice I know will not run shell scripts in Unix format
  289.       ;;
  290. ***************
  291. *** 1454,1470 ****
  292.       echo " "
  293.       echo "Congratulations.  You aren't running Eunice."
  294.       d_eunice="$undef"
  295. -     echo "exit 1" >eunice
  296.       ;;
  297.   esac
  298.   if test -f /xenix; then
  299.       echo "Actually, this looks more like a XENIX system..."
  300. !     echo "exit 0" >xenix
  301.       d_xenix="$define"
  302.   else
  303.       echo " "
  304.       echo "It's not Xenix..."
  305. -     echo "exit 1" >xenix
  306.       d_xenix="$undef"
  307.   fi
  308.   chmod +x xenix
  309. --- 1457,1471 ----
  310.       echo " "
  311.       echo "Congratulations.  You aren't running Eunice."
  312.       d_eunice="$undef"
  313.       ;;
  314.   esac
  315.   if test -f /xenix; then
  316.       echo "Actually, this looks more like a XENIX system..."
  317. !     echo exit 0 >xenix
  318.       d_xenix="$define"
  319.   else
  320.       echo " "
  321.       echo "It's not Xenix..."
  322.       d_xenix="$undef"
  323.   fi
  324.   chmod +x xenix
  325. ***************
  326. *** 1471,1477 ****
  327.   $eunicefix xenix
  328.   if test -f /venix; then
  329.       echo "Actually, this looks more like a VENIX system..."
  330. !     echo "exit 0" >venix
  331.   else
  332.       echo " "
  333.       if xenix; then
  334. --- 1472,1478 ----
  335.   $eunicefix xenix
  336.   if test -f /venix; then
  337.       echo "Actually, this looks more like a VENIX system..."
  338. !     echo exit 0 >venix
  339.   else
  340.       echo " "
  341.       if xenix; then
  342. ***************
  343. *** 1479,1488 ****
  344.       else
  345.           echo "Nor is it Venix..."
  346.       fi
  347. -     echo "exit 1" >venix
  348.   fi
  349. ! chmod +x bsd usg v7 eunice venix
  350. ! $eunicefix bsd usg v7 eunice venix
  351.   $rm -f foo
  352.   
  353.   : see if we have to deal with yellow pages, now NIS.
  354. --- 1480,1488 ----
  355.       else
  356.           echo "Nor is it Venix..."
  357.       fi
  358.   fi
  359. ! chmod +x bsd usg v7 osf1 eunice xenix venix
  360. ! $eunicefix bsd usg v7 eunice xenix venix
  361.   $rm -f foo
  362.   
  363.   : see if we have to deal with yellow pages, now NIS.
  364. ***************
  365. *** 1876,1929 ****
  366.   
  367.   EOM
  368.       rp='Should I send mail to ram@acri.fr?'
  369.       . ./myread
  370.       case "$ans" in
  371.       [yY]*)
  372.           echo " "
  373. !         echo "Great!. You cooperation is really appreciated."
  374. !         echo " "
  375. !         opt=''
  376. !         rp='Would you like to have new patches automatically mailed to you?'
  377. !         case "$mailpatches" in
  378. !         true) dflt=y;;
  379. !         *) dflt=n;;
  380.           esac
  381.           . ./myread
  382.           case "$ans" in
  383. !         [yY]*) opt=' mailpatches'; mailpatches=true;;
  384.           *)
  385. !             mailpatches=false
  386. !             rp='Ok, would you like to simply be notified of new patches?'
  387. !             case "$notifypatches" in
  388. !             false) dflt=n;;
  389. !             *) dflt=y;;
  390. !             esac
  391. !             . ./myread
  392. !             echo " "
  393. !             case "$ans" in
  394. !             [yY]*) opt=' notifypatches'; notifypatches=true;;
  395. !             *)
  396. !                 echo "Fine, you will only be registered as a user then."
  397. !                 notifypatches=false
  398. !                 ;;
  399. !             esac
  400.               ;;
  401.           esac
  402. !         echo "Sending mail to ram@acri.fr..." >&4
  403. !         atsh='@SH'
  404. !         $mailer ram@acri.fr <<EOM >/dev/null 2>&1
  405.   Subject: Command
  406.   Precedence: junk
  407.   To: ram@acri.fr
  408.   
  409. ! $atsh package - $package $baserev $patchlevel$opt
  410.   EOM
  411. !         $rm -f ../.config/mailauthor
  412. !         cp ../patchlevel.h ../.config/mailauthor
  413. !         ;;
  414. !     *) echo "Oh well, maybe next time.";;
  415.       esac
  416. ! fi
  417.   
  418.   : end of configuration questions
  419.   echo " "
  420. --- 1876,1989 ----
  421.   
  422.   EOM
  423.       rp='Should I send mail to ram@acri.fr?'
  424. + else
  425. +     status="register yourself as a $package user";
  426. +     case "$mailpatches" in
  427. +     true) status='have patches mailed to you as they are issued';;
  428. +     esac
  429. +     case "$notifypatches" in
  430. +     true) status='be notified when new patches are issued';;
  431. +     esac
  432. +     $cat <<EOM
  433. + 
  434. + You have already sent the author of $package (ram@acri.fr) a mail to
  435. + $status. If you wish, you may modify
  436. + your previous request by sending a new mail with different options.
  437. + 
  438. + EOM
  439. +     rp='Should I send a status update to ram@acri.fr?'
  440. + fi
  441. + . ./myread
  442. + case "$ans" in
  443. + [yY]*)
  444. +     echo " "
  445. +     echo "Great!. You cooperation is really appreciated."
  446. +     $cat <<EOM
  447. + 
  448. + Some sites do not set a proper return address in their outgoing mail,
  449. + especially when connected to the Internet via UUCP. If the supplied
  450. + address in the From: header field is wrong, the author won't be able
  451. + to get back to you, should there be a need to do so.
  452. + 
  453. + EOM
  454. +     case "$usermail" in
  455. +     '') dflt=y;;
  456. +     *) dflt=n;;
  457. +     esac
  458. +     rp='Would you like to supply the return address yourself?'
  459.       . ./myread
  460.       case "$ans" in
  461.       [yY]*)
  462. +         $cat <<EOM
  463. + 
  464. + Ok, I need your e-mail address then, something like user@domain.top. If you
  465. + wish to let the mail transport agent set it for you or do not know what your
  466. + e-mail address is, use the word "none".
  467. + 
  468. + EOM
  469. +         case "$usermail" in
  470. +         '-') dflt=none;;
  471. +         '') dflt='';;
  472. +         *) dflt="$usermail";;
  473. +         esac
  474. +         rp='Which return address shall I use?'
  475. +         . ./myread
  476. +         case "$ans" in
  477. +         none) usermail='-';;
  478. +         *) usermail="$ans";;
  479. +         esac
  480. +         ;;
  481. +     esac
  482. +     case "$usermail" in
  483. +     '') usermail='-';;
  484. +     esac
  485. +     echo " "
  486. +     opt=''
  487. +     rp='Would you like to have new patches automatically mailed to you?'
  488. +     case "$mailpatches" in
  489. +     true) dflt=y;;
  490. +     *) dflt=n;;
  491. +     esac
  492. +     . ./myread
  493. +     case "$ans" in
  494. +     [yY]*) opt=' mailpatches'; mailpatches=true;;
  495. +     *)
  496. +         mailpatches=false
  497.           echo " "
  498. !         rp='Ok, would you like to simply be notified of new patches?'
  499. !         case "$notifypatches" in
  500. !         false) dflt=n;;
  501. !         *) dflt=y;;
  502.           esac
  503.           . ./myread
  504. +         echo " "
  505.           case "$ans" in
  506. !         [yY]*) opt=' notifypatches'; notifypatches=true;;
  507.           *)
  508. !             echo "Fine, you will only be registered as a user then."
  509. !             notifypatches=false
  510.               ;;
  511.           esac
  512. !         ;;
  513. !     esac
  514. !     echo "Sending mail to ram@acri.fr..." >&4
  515. !     atsh='@SH'
  516. !     $mailer ram@acri.fr <<EOM >/dev/null 2>&1
  517.   Subject: Command
  518.   Precedence: junk
  519.   To: ram@acri.fr
  520.   
  521. ! $atsh package $usermail $package $baserev $patchlevel$opt
  522.   EOM
  523. !     $rm -f ../.config/mailauthor
  524. !     cp ../patchlevel.h ../.config/mailauthor
  525. !     ;;
  526. ! *)
  527. !     case "$dflt" in
  528. !     "y") echo "Oh well, maybe next time.";;
  529.       esac
  530. !     ;;
  531. ! esac
  532.   
  533.   : end of configuration questions
  534.   echo " "
  535. ***************
  536. *** 2034,2039 ****
  537. --- 2094,2100 ----
  538.   zcat='$zcat'
  539.   mailpatches='$mailpatches'
  540.   notifypatches='$notifypatches'
  541. + usermail='$usermail'
  542.   hint='$hint'
  543.   myuname='$myuname'
  544.   Author='$Author'
  545.  
  546. Index: mcon/U/MailAuthor.U
  547. Prereq: 3.0
  548. *** mcon/U/MailAuthor.U.old    Fri Aug 27 16:41:06 1993
  549. --- mcon/U/MailAuthor.U    Fri Aug 27 16:41:06 1993
  550. ***************
  551. *** 1,4 ****
  552. ! ?RCS: $Id: MailAuthor.U,v 3.0 1993/08/18 12:05:06 ram Exp $
  553.   ?RCS:
  554.   ?RCS: Copyright (c) 1991-1993, Raphael Manfredi
  555.   ?RCS: 
  556. --- 1,4 ----
  557. ! ?RCS: $Id: MailAuthor.U,v 3.0.1.1 1993/08/27 14:38:38 ram Exp $
  558.   ?RCS:
  559.   ?RCS: Copyright (c) 1991-1993, Raphael Manfredi
  560.   ?RCS: 
  561. ***************
  562. *** 11,16 ****
  563. --- 11,20 ----
  564.   ?RCS: Original Author: Graham Stoney <greyham@research.canon.oz.au>
  565.   ?RCS:
  566.   ?RCS: $Log: MailAuthor.U,v $
  567. + ?RCS: Revision 3.0.1.1  1993/08/27  14:38:38  ram
  568. + ?RCS: patch7: now prompts user for its e-mail address
  569. + ?RCS: patch7: no longer silent when mail has been sent
  570. + ?RCS:
  571.   ?RCS: Revision 3.0  1993/08/18  12:05:06  ram
  572.   ?RCS: Baseline for dist 3.0 netwide release.
  573.   ?RCS:
  574. ***************
  575. *** 23,30 ****
  576.   ?X:    when their package is out of date, and to allow users to be notified of
  577.   ?X:    any future patches.
  578.   ?X:
  579. ! ?MAKE:MailAuthor mailpatches notifypatches: test cat mailer package Myread \
  580. !     patchlevel baserev rm Oldconfig Configdir
  581.   ?MAKE:    -pick wipe $@ %<
  582.   ?S:mailpatches:
  583.   ?S:    Indicates whether the user would like future patches to be mailed
  584. --- 27,34 ----
  585.   ?X:    when their package is out of date, and to allow users to be notified of
  586.   ?X:    any future patches.
  587.   ?X:
  588. ! ?MAKE:MailAuthor mailpatches notifypatches usermail: test cat mailer \
  589. !     package Myread patchlevel baserev rm Oldconfig Configdir
  590.   ?MAKE:    -pick wipe $@ %<
  591.   ?S:mailpatches:
  592.   ?S:    Indicates whether the user would like future patches to be mailed
  593. ***************
  594. *** 34,40 ****
  595.   ?S:    Indicates whether the user would like notification of future patches
  596.   ?S:    mailed to them.
  597.   ?S:.
  598. ! ?T:opt mailpatches notifypatches atsh needmail
  599.   : notify author that his package is used
  600.   case "$mailpatches$notifypatches" in
  601.   '') dflt=y;;
  602. --- 38,50 ----
  603.   ?S:    Indicates whether the user would like notification of future patches
  604.   ?S:    mailed to them.
  605.   ?S:.
  606. ! ?S:usermail:
  607. ! ?S:    This variable is used internally by Configure to keep track of the
  608. ! ?S:    user e-mail address, where notifications or patches should be sent.
  609. ! ?S:    A '-' value means the return address will be extracted by parsing
  610. ! ?S:    the mail headers.
  611. ! ?S:.
  612. ! ?T:opt mailpatches notifypatches atsh needmail status
  613.   : notify author that his package is used
  614.   case "$mailpatches$notifypatches" in
  615.   '') dflt=y;;
  616. ***************
  617. *** 58,112 ****
  618.   
  619.   EOM
  620.       rp='Should I send mail to <MAINTLOC>?'
  621.       . ./myread
  622.       case "$ans" in
  623.       [yY]*)
  624.           echo " "
  625. !         echo "Great!. You cooperation is really appreciated."
  626. !         echo " "
  627. !         opt=''
  628. !         rp='Would you like to have new patches automatically mailed to you?'
  629. !         case "$mailpatches" in
  630. !         true) dflt=y;;
  631. !         *) dflt=n;;
  632.           esac
  633.           . ./myread
  634.           case "$ans" in
  635. !         [yY]*) opt=' mailpatches'; mailpatches=true;;
  636.           *)
  637. !             mailpatches=false
  638. !             rp='Ok, would you like to simply be notified of new patches?'
  639. !             case "$notifypatches" in
  640. !             false) dflt=n;;
  641. !             *) dflt=y;;
  642. !             esac
  643. !             . ./myread
  644. !             echo " "
  645. !             case "$ans" in
  646. !             [yY]*) opt=' notifypatches'; notifypatches=true;;
  647. !             *)
  648. !                 echo "Fine, you will only be registered as a user then."
  649. !                 notifypatches=false
  650. !                 ;;
  651. !             esac
  652.               ;;
  653.           esac
  654. !         echo "Sending mail to <MAINTLOC>..." >&4
  655.   ?X: Bizarre hack here. We can't just put @SH in the hereis lines below, because
  656.   ?X: metaconfig will interpret it as a command, and there's no quoting mechanism.
  657.   ?X: Do it via a variable instead.
  658. !         atsh='@SH'
  659. !         $mailer <MAINTLOC> <<EOM >/dev/null 2>&1
  660.   Subject: Command
  661.   Precedence: junk
  662.   To: <MAINTLOC>
  663.   
  664. ! $atsh package - $package $baserev $patchlevel$opt
  665.   EOM
  666. !         $rm -f ../.config/mailauthor
  667. !         cp ../patchlevel.h ../.config/mailauthor
  668. !         ;;
  669. !     *) echo "Oh well, maybe next time.";;
  670.       esac
  671. ! fi
  672.   
  673. --- 68,182 ----
  674.   
  675.   EOM
  676.       rp='Should I send mail to <MAINTLOC>?'
  677. + else
  678. +     status="register yourself as a $package user";
  679. +     case "$mailpatches" in
  680. +     true) status='have patches mailed to you as they are issued';;
  681. +     esac
  682. +     case "$notifypatches" in
  683. +     true) status='be notified when new patches are issued';;
  684. +     esac
  685. +     $cat <<EOM
  686. + 
  687. + You have already sent the author of $package (<MAINTLOC>) a mail to
  688. + $status. If you wish, you may modify
  689. + your previous request by sending a new mail with different options.
  690. + 
  691. + EOM
  692. +     rp='Should I send a status update to <MAINTLOC>?'
  693. + fi
  694. + . ./myread
  695. + case "$ans" in
  696. + [yY]*)
  697. +     echo " "
  698. +     echo "Great!. You cooperation is really appreciated."
  699. +     $cat <<EOM
  700. + 
  701. + Some sites do not set a proper return address in their outgoing mail,
  702. + especially when connected to the Internet via UUCP. If the supplied
  703. + address in the From: header field is wrong, the author won't be able
  704. + to get back to you, should there be a need to do so.
  705. + 
  706. + EOM
  707. +     case "$usermail" in
  708. +     '') dflt=y;;
  709. +     *) dflt=n;;
  710. +     esac
  711. +     rp='Would you like to supply the return address yourself?'
  712.       . ./myread
  713.       case "$ans" in
  714.       [yY]*)
  715. +         $cat <<EOM
  716. + 
  717. + Ok, I need your e-mail address then, something like user@domain.top. If you
  718. + wish to let the mail transport agent set it for you or do not know what your
  719. + e-mail address is, use the word "none".
  720. + 
  721. + EOM
  722. +         case "$usermail" in
  723. +         '-') dflt=none;;
  724. +         '') dflt='';;
  725. +         *) dflt="$usermail";;
  726. +         esac
  727. +         rp='Which return address shall I use?'
  728. +         . ./myread
  729. +         case "$ans" in
  730. +         none) usermail='-';;
  731. +         *) usermail="$ans";;
  732. +         esac
  733. +         ;;
  734. +     esac
  735. +     case "$usermail" in
  736. +     '') usermail='-';;
  737. +     esac
  738. +     echo " "
  739. +     opt=''
  740. +     rp='Would you like to have new patches automatically mailed to you?'
  741. +     case "$mailpatches" in
  742. +     true) dflt=y;;
  743. +     *) dflt=n;;
  744. +     esac
  745. +     . ./myread
  746. +     case "$ans" in
  747. +     [yY]*) opt=' mailpatches'; mailpatches=true;;
  748. +     *)
  749. +         mailpatches=false
  750.           echo " "
  751. !         rp='Ok, would you like to simply be notified of new patches?'
  752. !         case "$notifypatches" in
  753. !         false) dflt=n;;
  754. !         *) dflt=y;;
  755.           esac
  756.           . ./myread
  757. +         echo " "
  758.           case "$ans" in
  759. !         [yY]*) opt=' notifypatches'; notifypatches=true;;
  760.           *)
  761. !             echo "Fine, you will only be registered as a user then."
  762. !             notifypatches=false
  763.               ;;
  764.           esac
  765. !         ;;
  766. !     esac
  767. !     echo "Sending mail to <MAINTLOC>..." >&4
  768.   ?X: Bizarre hack here. We can't just put @SH in the hereis lines below, because
  769.   ?X: metaconfig will interpret it as a command, and there's no quoting mechanism.
  770.   ?X: Do it via a variable instead.
  771. !     atsh='@SH'
  772. !     $mailer <MAINTLOC> <<EOM >/dev/null 2>&1
  773.   Subject: Command
  774.   Precedence: junk
  775.   To: <MAINTLOC>
  776.   
  777. ! $atsh package $usermail $package $baserev $patchlevel$opt
  778.   EOM
  779. !     $rm -f ../.config/mailauthor
  780. !     cp ../patchlevel.h ../.config/mailauthor
  781. !     ;;
  782. ! *)
  783. !     case "$dflt" in
  784. !     "y") echo "Oh well, maybe next time.";;
  785.       esac
  786. !     ;;
  787. ! esac
  788.   
  789.  
  790. Index: mcon/U/Guess.U
  791. Prereq: 3.0
  792. *** mcon/U/Guess.U.old    Fri Aug 27 16:41:04 1993
  793. --- mcon/U/Guess.U    Fri Aug 27 16:41:04 1993
  794. ***************
  795. *** 1,4 ****
  796. ! ?RCS: $Id: Guess.U,v 3.0 1993/08/18 12:04:57 ram Exp $
  797.   ?RCS:
  798.   ?RCS: Copyright (c) 1991-1993, Raphael Manfredi
  799.   ?RCS: 
  800. --- 1,4 ----
  801. ! ?RCS: $Id: Guess.U,v 3.0.1.1 1993/08/27 14:37:37 ram Exp $
  802.   ?RCS:
  803.   ?RCS: Copyright (c) 1991-1993, Raphael Manfredi
  804.   ?RCS: 
  805. ***************
  806. *** 9,14 ****
  807. --- 9,17 ----
  808.   ?RCS: of the source tree for dist 3.0.
  809.   ?RCS:
  810.   ?RCS: $Log: Guess.U,v $
  811. + ?RCS: Revision 3.0.1.1  1993/08/27  14:37:37  ram
  812. + ?RCS: patch7: added support for OSF/1 machines
  813. + ?RCS:
  814.   ?RCS: Revision 3.0  1993/08/18  12:04:57  ram
  815.   ?RCS: Baseline for dist 3.0 netwide release.
  816.   ?RCS:
  817. ***************
  818. *** 59,76 ****
  819.   : make some quick guesses about what we are up against
  820.   echo " "
  821.   $echo $n "Hmm...  $c"
  822.   ?X:
  823.   ?X: Do not use 'usrinc', or we get a circular dependency. because
  824.   ?X: usrinc is defined in model.U, which relies on us...
  825.   ?X:
  826.   $cat /usr/include/signal.h /usr/include/sys/signal.h >foo 2>/dev/null
  827. ! if test `echo abc | tr a-z A-Z` = Abc ; then
  828.       xxx=`./loc addbib blurfl $pth`
  829.       if $test -f $xxx; then
  830.       echo "Looks kind of like a USG system with BSD features, but we'll see..."
  831.           echo exit 0 >bsd
  832.           echo exit 0 >usg
  833. -         echo exit 1 >v7
  834.       else
  835.           if $contains SIGTSTP foo >/dev/null 2>&1 ; then
  836.               echo "Looks kind of like an extended USG system, but we'll see..."
  837. --- 62,88 ----
  838.   : make some quick guesses about what we are up against
  839.   echo " "
  840.   $echo $n "Hmm...  $c"
  841. + echo exit 1 >bsd
  842. + echo exit 1 >usg
  843. + echo exit 1 >v7
  844. + echo exit 1 >osf1
  845. + echo exit 1 >eunice
  846. + echo exit 1 >xenix
  847. + echo exit 1 >venix
  848.   ?X:
  849.   ?X: Do not use 'usrinc', or we get a circular dependency. because
  850.   ?X: usrinc is defined in model.U, which relies on us...
  851.   ?X:
  852.   $cat /usr/include/signal.h /usr/include/sys/signal.h >foo 2>/dev/null
  853. ! if test -f /osf_boot || $contains 'OSF/1' /usr/include/ctype.h; then
  854. !     echo "Looks kind of like an OSF/1 system, but we'll see..."
  855. !     echo exit 0 >osf1
  856. ! elif test `echo abc | tr a-z A-Z` = Abc ; then
  857.       xxx=`./loc addbib blurfl $pth`
  858.       if $test -f $xxx; then
  859.       echo "Looks kind of like a USG system with BSD features, but we'll see..."
  860.           echo exit 0 >bsd
  861.           echo exit 0 >usg
  862.       else
  863.           if $contains SIGTSTP foo >/dev/null 2>&1 ; then
  864.               echo "Looks kind of like an extended USG system, but we'll see..."
  865. ***************
  866. *** 77,85 ****
  867.           else
  868.               echo "Looks kind of like a USG system, but we'll see..."
  869.           fi
  870. -         echo exit 1 >bsd
  871.           echo exit 0 >usg
  872. -         echo exit 1 >v7
  873.       fi
  874.       d_bsd="$undef"
  875.   elif $contains SIGTSTP foo >/dev/null 2>&1 ; then
  876. --- 89,95 ----
  877. ***************
  878. *** 86,98 ****
  879.       echo "Looks kind of like a BSD system, but we'll see..."
  880.       d_bsd="$define"
  881.       echo exit 0 >bsd
  882. -     echo exit 1 >usg
  883. -     echo exit 1 >v7
  884.   else
  885.       echo "Looks kind of like a Version 7 system, but we'll see..."
  886.       d_bsd="$undef"
  887. -     echo exit 1 >bsd
  888. -     echo exit 1 >usg
  889.       echo exit 0 >v7
  890.   fi
  891.   case "$eunicefix" in
  892. --- 96,104 ----
  893. ***************
  894. *** 101,107 ****
  895.   There is, however, a strange, musty smell in the air that reminds me of
  896.   something...hmm...yes...I've got it...there's a VMS nearby, or I'm a Blit.
  897.   EOI
  898. !     echo "exit 0" >eunice
  899.       d_eunice="$define"
  900.   : it so happens the Eunice I know will not run shell scripts in Unix format
  901.       ;;
  902. --- 107,113 ----
  903.   There is, however, a strange, musty smell in the air that reminds me of
  904.   something...hmm...yes...I've got it...there's a VMS nearby, or I'm a Blit.
  905.   EOI
  906. !     echo exit 0 >eunice
  907.       d_eunice="$define"
  908.   : it so happens the Eunice I know will not run shell scripts in Unix format
  909.       ;;
  910. ***************
  911. *** 109,125 ****
  912.       echo " "
  913.       echo "Congratulations.  You aren't running Eunice."
  914.       d_eunice="$undef"
  915. -     echo "exit 1" >eunice
  916.       ;;
  917.   esac
  918.   if test -f /xenix; then
  919.       echo "Actually, this looks more like a XENIX system..."
  920. !     echo "exit 0" >xenix
  921.       d_xenix="$define"
  922.   else
  923.       echo " "
  924.       echo "It's not Xenix..."
  925. -     echo "exit 1" >xenix
  926.       d_xenix="$undef"
  927.   fi
  928.   chmod +x xenix
  929. --- 115,129 ----
  930.       echo " "
  931.       echo "Congratulations.  You aren't running Eunice."
  932.       d_eunice="$undef"
  933.       ;;
  934.   esac
  935.   if test -f /xenix; then
  936.       echo "Actually, this looks more like a XENIX system..."
  937. !     echo exit 0 >xenix
  938.       d_xenix="$define"
  939.   else
  940.       echo " "
  941.       echo "It's not Xenix..."
  942.       d_xenix="$undef"
  943.   fi
  944.   chmod +x xenix
  945. ***************
  946. *** 126,132 ****
  947.   $eunicefix xenix
  948.   if test -f /venix; then
  949.       echo "Actually, this looks more like a VENIX system..."
  950. !     echo "exit 0" >venix
  951.   else
  952.       echo " "
  953.       if xenix; then
  954. --- 130,136 ----
  955.   $eunicefix xenix
  956.   if test -f /venix; then
  957.       echo "Actually, this looks more like a VENIX system..."
  958. !     echo exit 0 >venix
  959.   else
  960.       echo " "
  961.       if xenix; then
  962. ***************
  963. *** 134,142 ****
  964.       else
  965.           echo "Nor is it Venix..."
  966.       fi
  967. -     echo "exit 1" >venix
  968.   fi
  969. ! chmod +x bsd usg v7 eunice venix
  970. ! $eunicefix bsd usg v7 eunice venix
  971.   $rm -f foo
  972.   
  973. --- 138,145 ----
  974.       else
  975.           echo "Nor is it Venix..."
  976.       fi
  977.   fi
  978. ! chmod +x bsd usg v7 osf1 eunice xenix venix
  979. ! $eunicefix bsd usg v7 osf1 eunice xenix venix
  980.   $rm -f foo
  981.   
  982.  
  983. Index: mcon/U/Head.U
  984. Prereq: 3.0
  985. *** mcon/U/Head.U.old    Fri Aug 27 16:41:05 1993
  986. --- mcon/U/Head.U    Fri Aug 27 16:41:05 1993
  987. ***************
  988. *** 1,4 ****
  989. ! ?RCS: $Id: Head.U,v 3.0 1993/08/18 12:04:58 ram Exp $
  990.   ?RCS:
  991.   ?RCS: Copyright (c) 1991-1993, Raphael Manfredi
  992.   ?RCS: 
  993. --- 1,4 ----
  994. ! ?RCS: $Id: Head.U,v 3.0.1.1 1993/08/27 14:38:07 ram Exp $
  995.   ?RCS:
  996.   ?RCS: Copyright (c) 1991-1993, Raphael Manfredi
  997.   ?RCS: 
  998. ***************
  999. *** 9,14 ****
  1000. --- 9,17 ----
  1001.   ?RCS: of the source tree for dist 3.0.
  1002.   ?RCS:
  1003.   ?RCS: $Log: Head.U,v $
  1004. + ?RCS: Revision 3.0.1.1  1993/08/27  14:38:07  ram
  1005. + ?RCS: patch7: not all 'test' programs support the -x option
  1006. + ?RCS:
  1007.   ?RCS: Revision 3.0  1993/08/18  12:04:58  ram
  1008.   ?RCS: Baseline for dist 3.0 netwide release.
  1009.   ?RCS:
  1010. ***************
  1011. *** 53,59 ****
  1012.   ?X: by your version, not mine: It credits your work.
  1013.   ?X:
  1014.   
  1015. ! # $Id: Head.U,v 3.0 1993/08/18 12:04:58 ram Exp $
  1016.   #
  1017.   # Generated on <DATE> [metaconfig <VERSION> PL<PATCHLEVEL>]
  1018.   
  1019. --- 56,62 ----
  1020.   ?X: by your version, not mine: It credits your work.
  1021.   ?X:
  1022.   
  1023. ! # $Id: Head.U,v 3.0.1.1 1993/08/27 14:38:07 ram Exp $
  1024.   #
  1025.   # Generated on <DATE> [metaconfig <VERSION> PL<PATCHLEVEL>]
  1026.   
  1027. ***************
  1028. *** 105,111 ****
  1029.   fi
  1030.   
  1031.   : On HP-UX, large Configure scripts may exercise a bug in /bin/sh
  1032. ! if test -f /hp-ux -a -x /bin/ksh; then
  1033.       if (alias -x) >/dev/null 2>&1; then
  1034.           : already under /bin/ksh
  1035.       else
  1036. --- 108,114 ----
  1037.   fi
  1038.   
  1039.   : On HP-UX, large Configure scripts may exercise a bug in /bin/sh
  1040. ! if test -f /hp-ux -a -f /bin/ksh; then
  1041.       if (alias -x) >/dev/null 2>&1; then
  1042.           : already under /bin/ksh
  1043.       else
  1044.  
  1045. Index: pat/pat.man
  1046. Prereq: 3.0.1.2
  1047. *** pat/pat.man.old    Fri Aug 27 16:41:10 1993
  1048. --- pat/pat.man    Fri Aug 27 16:41:11 1993
  1049. ***************
  1050. *** 1,5 ****
  1051.   .rn '' }`
  1052. ! ''' $Id: pat.man,v 3.0.1.2 1993/08/25 14:05:02 ram Exp $
  1053.   '''
  1054.   '''  Copyright (c) 1991-1993, Raphael Manfredi
  1055.   '''  
  1056. --- 1,5 ----
  1057.   .rn '' }`
  1058. ! ''' $Id: pat.man,v 3.0.1.3 1993/08/27 14:40:19 ram Exp $
  1059.   '''
  1060.   '''  Copyright (c) 1991-1993, Raphael Manfredi
  1061.   '''  
  1062. ***************
  1063. *** 10,15 ****
  1064. --- 10,18 ----
  1065.   '''  of the source tree for dist 3.0.
  1066.   '''
  1067.   ''' $Log: pat.man,v $
  1068. + ''' Revision 3.0.1.3  1993/08/27  14:40:19  ram
  1069. + ''' patch7: random cleanup
  1070. + '''
  1071.   ''' Revision 3.0.1.2  1993/08/25  14:05:02  ram
  1072.   ''' patch6: new -q option for patsend and patnotify
  1073.   '''
  1074. ***************
  1075. *** 302,308 ****
  1076.   .I Patftp
  1077.   merely copies the patch into your public ftp directory.
  1078.   .PP
  1079. ! .I Patnotify simply notifies users that a new patch has been released so that
  1080.   they can retrieve it by themselves from an archive site or via e-mail if they
  1081.   are interested. The \fB\-u\fR switch can be used to include all the currently
  1082.   registered users who have asked for such a notification.
  1083. --- 305,312 ----
  1084.   .I Patftp
  1085.   merely copies the patch into your public ftp directory.
  1086.   .PP
  1087. ! .I Patnotify
  1088. ! simply notifies users that a new patch has been released so that
  1089.   they can retrieve it by themselves from an archive site or via e-mail if they
  1090.   are interested. The \fB\-u\fR switch can be used to include all the currently
  1091.   registered users who have asked for such a notification.
  1092.  
  1093. Index: pat/patnotify.SH
  1094. Prereq: 3.0.1.3
  1095. *** pat/patnotify.SH.old    Fri Aug 27 16:41:12 1993
  1096. --- pat/patnotify.SH    Fri Aug 27 16:41:12 1993
  1097. ***************
  1098. *** 20,26 ****
  1099.       eval "exec perl -S \$0 \$*"
  1100.           if \$running_under_some_shell;
  1101.   
  1102. ! # $Id: patnotify.SH,v 3.0.1.3 1993/08/25 14:07:43 ram Exp $
  1103.   #
  1104.   #  Copyright (c) 1991-1993, Raphael Manfredi
  1105.   #  
  1106. --- 20,26 ----
  1107.       eval "exec perl -S \$0 \$*"
  1108.           if \$running_under_some_shell;
  1109.   
  1110. ! # $Id: patnotify.SH,v 3.0.1.4 1993/08/27 14:40:42 ram Exp $
  1111.   #
  1112.   #  Copyright (c) 1991-1993, Raphael Manfredi
  1113.   #  
  1114. ***************
  1115. *** 31,36 ****
  1116. --- 31,39 ----
  1117.   #  of the source tree for dist 3.0.
  1118.   #
  1119.   # $Log: patnotify.SH,v $
  1120. + # Revision 3.0.1.4  1993/08/27  14:40:42  ram
  1121. + # patch7: two files were wrongly appended to patsend instead
  1122. + #
  1123.   # Revision 3.0.1.3  1993/08/25  14:07:43  ram
  1124.   # patch6: now asks for recipient list edition by default
  1125.   # patch6: new -q option to suppress that
  1126. ***************
  1127. *** 160,166 ****
  1128.   $grep -v '^;#' ../pl/package.pl >>patnotify
  1129.   $grep -v '^;#' ../pl/users.pl >>patnotify
  1130.   $grep -v '^;#' ../pl/patseq.pl >>patnotify
  1131. ! $grep -v '^;#' ../pl/editor.pl >>patsend
  1132. ! $grep -v '^;#' ../pl/listedit.pl >>patsend
  1133.   chmod +x patnotify
  1134.   $eunicefix patnotify
  1135. --- 163,169 ----
  1136.   $grep -v '^;#' ../pl/package.pl >>patnotify
  1137.   $grep -v '^;#' ../pl/users.pl >>patnotify
  1138.   $grep -v '^;#' ../pl/patseq.pl >>patnotify
  1139. ! $grep -v '^;#' ../pl/editor.pl >>patnotify
  1140. ! $grep -v '^;#' ../pl/listedit.pl >>patnotify
  1141.   chmod +x patnotify
  1142.   $eunicefix patnotify
  1143.  
  1144. Index: mcon/U/ccflags.U
  1145. Prereq: 3.0.1.1
  1146. *** mcon/U/ccflags.U.old    Fri Aug 27 16:41:08 1993
  1147. --- mcon/U/ccflags.U    Fri Aug 27 16:41:08 1993
  1148. ***************
  1149. *** 1,4 ****
  1150. ! ?RCS: $Id: ccflags.U,v 3.0.1.1 1993/08/25 14:00:24 ram Exp $
  1151.   ?RCS:
  1152.   ?RCS: Copyright (c) 1991-1993, Raphael Manfredi
  1153.   ?RCS: 
  1154. --- 1,4 ----
  1155. ! ?RCS: $Id: ccflags.U,v 3.0.1.2 1993/08/27 14:39:38 ram Exp $
  1156.   ?RCS:
  1157.   ?RCS: Copyright (c) 1991-1993, Raphael Manfredi
  1158.   ?RCS: 
  1159. ***************
  1160. *** 9,14 ****
  1161. --- 9,17 ----
  1162.   ?RCS: of the source tree for dist 3.0.
  1163.   ?RCS:
  1164.   ?RCS: $Log: ccflags.U,v $
  1165. + ?RCS: Revision 3.0.1.2  1993/08/27  14:39:38  ram
  1166. + ?RCS: patch7: added support for OSF/1 machines
  1167. + ?RCS:
  1168.   ?RCS: Revision 3.0.1.1  1993/08/25  14:00:24  ram
  1169.   ?RCS: patch6: added defaults for cppflags, ccflags and ldflags
  1170.   ?RCS:
  1171. ***************
  1172. *** 120,127 ****
  1173.       esac;
  1174.   fi'
  1175.   
  1176.   ?X: SCO unix uses NO_PROTOTYPE instead of _NO_PROTO
  1177. ! set signal.h LANGUAGE_C; eval $inctest
  1178.   set signal.h NO_PROTOTYPE; eval $inctest
  1179.   set signal.h _NO_PROTO; eval $inctest
  1180.   
  1181. --- 123,137 ----
  1182.       esac;
  1183.   fi'
  1184.   
  1185. + ?X:
  1186.   ?X: SCO unix uses NO_PROTOTYPE instead of _NO_PROTO
  1187. ! ?X: OSF/1 uses __LANGUAGE_C__ instead of LANGUAGE_C
  1188. ! ?X:
  1189. ! if ./osf1; then
  1190. !     set signal.h __LANGUAGE_C__; eval $inctest
  1191. ! else
  1192. !     set signal.h LANGUAGE_C; eval $inctest
  1193. ! fi
  1194.   set signal.h NO_PROTOTYPE; eval $inctest
  1195.   set signal.h _NO_PROTO; eval $inctest
  1196.   
  1197.  
  1198. Index: pl/listedit.pl
  1199. Prereq: 3.0.1.1
  1200. *** pl/listedit.pl.old    Fri Aug 27 16:41:13 1993
  1201. --- pl/listedit.pl    Fri Aug 27 16:41:13 1993
  1202. ***************
  1203. *** 1,4 ****
  1204. ! ;# $Id: listedit.pl,v 3.0.1.1 1993/08/25 14:08:12 ram Exp $
  1205.   ;#
  1206.   ;#  Copyright (c) 1991-1993, Raphael Manfredi
  1207.   ;#  
  1208. --- 1,4 ----
  1209. ! ;# $Id: listedit.pl,v 3.0.1.2 1993/08/27 14:40:57 ram Exp $
  1210.   ;#
  1211.   ;#  Copyright (c) 1991-1993, Raphael Manfredi
  1212.   ;#  
  1213. ***************
  1214. *** 9,19 ****
  1215.   ;#  of the source tree for dist 3.0.
  1216.   ;#
  1217.   ;# $Log: listedit.pl,v $
  1218.   ;# Revision 3.0.1.1  1993/08/25  14:08:12  ram
  1219.   ;# patch6: created
  1220.   ;#
  1221. - ;#
  1222.   ;# Requires geteditor.pl
  1223.   # Allow user to inplace-edit a list of items held in an array
  1224.   sub listedit {
  1225.       local(*list) = @_;
  1226. --- 9,22 ----
  1227.   ;#  of the source tree for dist 3.0.
  1228.   ;#
  1229.   ;# $Log: listedit.pl,v $
  1230. + ;# Revision 3.0.1.2  1993/08/27  14:40:57  ram
  1231. + ;# patch7: forgot to unlink temporary file
  1232. + ;#
  1233.   ;# Revision 3.0.1.1  1993/08/25  14:08:12  ram
  1234.   ;# patch6: created
  1235.   ;#
  1236.   ;# Requires geteditor.pl
  1237. + ;#
  1238.   # Allow user to inplace-edit a list of items held in an array
  1239.   sub listedit {
  1240.       local(*list) = @_;
  1241. ***************
  1242. *** 28,32 ****
  1243. --- 31,36 ----
  1244.       open(TMP, "$tmp") || die "Can't reopen $tmp: $!\n";
  1245.       chop(@list = <TMP>);
  1246.       close TMP;
  1247. +     unlink $tmp;
  1248.   }
  1249.   
  1250.  
  1251. Index: mcon/U/libc.U
  1252. Prereq: 3.0
  1253. *** mcon/U/libc.U.old    Fri Aug 27 16:41:09 1993
  1254. --- mcon/U/libc.U    Fri Aug 27 16:41:09 1993
  1255. ***************
  1256. *** 1,4 ****
  1257. ! ?RCS: $Id: libc.U,v 3.0 1993/08/18 12:08:57 ram Exp $
  1258.   ?RCS:
  1259.   ?RCS: Copyright (c) 1991-1993, Raphael Manfredi
  1260.   ?RCS: 
  1261. --- 1,4 ----
  1262. ! ?RCS: $Id: libc.U,v 3.0.1.1 1993/08/27 14:40:03 ram Exp $
  1263.   ?RCS:
  1264.   ?RCS: Copyright (c) 1991-1993, Raphael Manfredi
  1265.   ?RCS: 
  1266. ***************
  1267. *** 9,14 ****
  1268. --- 9,17 ----
  1269.   ?RCS: of the source tree for dist 3.0.
  1270.   ?RCS:
  1271.   ?RCS: $Log: libc.U,v $
  1272. + ?RCS: Revision 3.0.1.1  1993/08/27  14:40:03  ram
  1273. + ?RCS: patch7: added entry for /usr/shlib/libc.so (OSF/1 machines)
  1274. + ?RCS:
  1275.   ?RCS: Revision 3.0  1993/08/18  12:08:57  ram
  1276.   ?RCS: Baseline for dist 3.0 netwide release.
  1277.   ?RCS:
  1278. ***************
  1279. *** 80,85 ****
  1280. --- 83,89 ----
  1281.   unknown)
  1282.       set /usr/ccs/lib/libc.so
  1283.       $test -r $1 || set /usr/lib/libc.so
  1284. +     $test -r $1 || set /usr/shlib/libc.so
  1285.       $test -r $1 || set /usr/lib/libc.so.[0-9]*
  1286.       $test -r $1 || set /lib/libsys_s.a
  1287.       eval set \$$#
  1288.  
  1289. Index: mcon/U/Myread.U
  1290. Prereq: 3.0
  1291. *** mcon/U/Myread.U.old    Fri Aug 27 16:41:07 1993
  1292. --- mcon/U/Myread.U    Fri Aug 27 16:41:07 1993
  1293. ***************
  1294. *** 1,4 ****
  1295. ! ?RCS: $Id: Myread.U,v 3.0 1993/08/18 12:05:08 ram Exp $
  1296.   ?RCS:
  1297.   ?RCS: Copyright (c) 1991-1993, Raphael Manfredi
  1298.   ?RCS: 
  1299. --- 1,4 ----
  1300. ! ?RCS: $Id: Myread.U,v 3.0.1.1 1993/08/27 14:39:20 ram Exp $
  1301.   ?RCS:
  1302.   ?RCS: Copyright (c) 1991-1993, Raphael Manfredi
  1303.   ?RCS: 
  1304. ***************
  1305. *** 9,14 ****
  1306. --- 9,17 ----
  1307.   ?RCS: of the source tree for dist 3.0.
  1308.   ?RCS:
  1309.   ?RCS: $Log: Myread.U,v $
  1310. + ?RCS: Revision 3.0.1.1  1993/08/27  14:39:20  ram
  1311. + ?RCS: patch7: now sticks to the question when no default and empty answer
  1312. + ?RCS:
  1313.   ?RCS: Revision 3.0  1993/08/18  12:05:08  ram
  1314.   ?RCS: Baseline for dist 3.0 netwide release.
  1315.   ?RCS:
  1316. ***************
  1317. *** 128,133 ****
  1318. --- 131,143 ----
  1319.               ans=!
  1320.               ;;
  1321.           esac
  1322. +         $myecho
  1323. +         ;;
  1324. +     esac
  1325. + ?X: Stick in myread if no default answer and nothing was answered
  1326. +     case "\$ans\$xxxm" in
  1327. +     '')
  1328. +         ans=!
  1329.           $myecho
  1330.           ;;
  1331.       esac
  1332.  
  1333. *** End of Patch 7 ***
  1334.  
  1335. exit 0 # Just in case...
  1336.