home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / unix / volume16 / dist2 / patch2 < prev    next >
Text File  |  1988-10-16  |  47KB  |  1,717 lines
  1. Subject:  v16i042:  Larry Wall's Configure generator, etc., Patch2
  2. Newsgroups: comp.sources.unix
  3. Sender: sources
  4. Approved: rsalz@uunet.UU.NET
  5.  
  6. Submitted-by: Larry Wall <lwall@jpl-devvax.jpl.nasa.gov>
  7. Posting-number: Volume 16, Issue 42
  8. Archive-name: dist2/patch2
  9.  
  10. [  This is the second of two patches; that's all there's been, so far.  --r$  ]
  11.  
  12. [The latest patch for dist version 2.0 is #1.]
  13.  
  14. System: dist version 2.0
  15. Patch #: 2
  16. Subject: patch 1 continued
  17.  
  18. Description:
  19.     See patch 1.
  20.  
  21. Fix:    From rn, say "| patch -p -N -d DIR", where DIR is your dist source
  22.     directory.  Outside of rn, say "cd DIR; patch -p -N <thisarticle".
  23.     If you don't have the patch program, apply the following by hand,
  24.     or get patch (version 2.0, latest patchlevel).
  25.  
  26.     After patching:
  27.         Configure -d
  28.         make
  29.         make install
  30.  
  31.     If patch indicates that patchlevel is the wrong version, you may need
  32.     to apply one or more previous patches, or the patch may already
  33.     have been applied.  See the patchlevel.h file to find out what has or
  34.     has not been applied.  In any event, don't continue with the patch.
  35.  
  36.     If you are missing previous patches they can be obtained from me:
  37.  
  38.     Larry Wall
  39.     lwall@jpl-devvax.Jpl.Nasa.Gov
  40.  
  41.     If you send a mail message of the following form it will greatly speed
  42.     processing:
  43.  
  44.     Subject: Command
  45.     @SH mailpatch PATH dist 2.0 LIST
  46.            ^ note the c
  47.  
  48.     where PATH is a return path FROM ME TO YOU either in Internet notation,
  49.     or in bang notation from some well-known host, and LIST is the number
  50.     of one or more patches you need, separated by spaces, commas, and/or
  51.     hyphens.  Saying 35- says everything from 35 to the end.
  52.  
  53.  
  54.     You can also get the patches via anonymous FTP from
  55.     jpl-devvax.Jpl.Nasa.Gov.  (128.149.8.43)
  56.  
  57. Index: patchlevel.h
  58. Prereq: 1
  59. 1c1
  60. < #define PATCHLEVEL 1
  61. ---
  62. > #define PATCHLEVEL 2
  63.  
  64. Index: mcon/U/d_sigvec.U
  65. *** mcon/U/d_sigvec.U.old    Fri Aug  5 00:54:56 1988
  66. --- mcon/U/d_sigvec.U    Fri Aug  5 00:54:58 1988
  67. ***************
  68. *** 0 ****
  69. --- 1,49 ----
  70. + ?RCS: $Header: d_sigvec.U,v 2.0.1.1 88/08/05 00:48:08 lwall Exp $
  71. + ?X: d_sigvec.U, from d_ftime.U 1.0
  72. + ?X:
  73. + ?RCS: $Log:    d_sigvec.U,v $
  74. + ?RCS: Revision 2.0.1.1  88/08/05  00:48:08  lwall
  75. + ?RCS: patch1: created
  76. + ?RCS: 
  77. + ?MAKE:d_sigvec d_sigvectr: contains libc
  78. + ?MAKE:    -pick add $@ %*
  79. + ?S:d_sigvec:
  80. + ?S:    This variable conditionally defines the SIGVEC symbol, which indicates
  81. + ?S:    that BSD reliable signals are supported.
  82. + ?S:.
  83. + ?S:d_sigvectr:
  84. + ?S:    This variable conditionally defines the SIGVECTOR symbol, which
  85. + ?S:    indicates that the sigvec() routine is called sigvector() instead, for
  86. + ?S:    reasons known only to Hewlett-Packard.
  87. + ?S:.
  88. + ?C:SIGVEC:
  89. + ?C:    This symbol, if defined, indicates that BSD reliable signals are
  90. + ?C:    supported.
  91. + ?C:.
  92. + ?C:SIGVECTOR:
  93. + ?C:    This symbol, if defined, indicates that the sigvec() routine is called
  94. + ?C:    sigvector() instead, and that sigspace() is provided instead of
  95. + ?C:    sigstack().  This is probably only true for HP-UX.
  96. + ?C:.
  97. + ?H:?%1:#$d_sigvec    SIGVEC        /**/
  98. + ?H:?%1:
  99. + ?H:?%1:#$d_sigvectr    SIGVECTOR    /**/
  100. + ?H:?%1:
  101. + : see if sigvector exists -- since sigvec will match the substring
  102. + echo " "
  103. + if $contains sigvector libc.list >/dev/null 2>&1; then
  104. +     echo 'sigvector() found--you must be running HP-UX.'
  105. +     d_sigvectr="$define"
  106. +     d_sigvec="$define"
  107. + else
  108. + : try the original name
  109. +     d_sigvectr="$undef"
  110. +     if $contains sigvec libc.list >/dev/null 2>&1; then
  111. +     echo 'sigvec() found.'
  112. +     d_sigvec="$define"
  113. +     else
  114. +     echo 'sigvec() not found--race conditions with signals may occur.'
  115. +     d_sigvec="$undef"
  116. +     fi
  117. + fi
  118. + 
  119.  
  120. Index: mcon/U/d_socket.U
  121. *** mcon/U/d_socket.U.old    Fri Aug  5 00:55:01 1988
  122. --- mcon/U/d_socket.U    Fri Aug  5 00:55:02 1988
  123. ***************
  124. *** 0 ****
  125. --- 1,88 ----
  126. + ?RCS: $Header: d_socket.U,v 2.0.1.1 88/08/05 00:48:30 lwall Exp $
  127. + ?X: d_socket.U, from d_ftime.U 1.0
  128. + ?X:
  129. + ?RCS: $Log:    d_socket.U,v $
  130. + ?RCS: Revision 2.0.1.1  88/08/05  00:48:30  lwall
  131. + ?RCS: patch1: created
  132. + ?RCS: 
  133. + ?RCS: 
  134. + ?MAKE:d_socket d_oldsock socketlib sockethdr: contains libc
  135. + ?MAKE:    -pick add $@ %*
  136. + ?S:d_socket:
  137. + ?S:    This variable conditionally defines the SOCKET symbol, which indicates
  138. + ?S:    that the BSD socket interface is supported.
  139. + ?S:.
  140. + ?S:d_oldsock:
  141. + ?S:    This variable conditionally defines the OLDSOCKET symbol, which
  142. + ?S:    indicates that the BSD socket interface is based on 4.1c and not 4.2.
  143. + ?S:.
  144. + ?S:socketlib:
  145. + ?S:    This variable has the names of any libraries needed for socket support.
  146. + ?S:.
  147. + ?S:sockethdr:
  148. + ?S:    This variable has any cpp -I flags needed for socket support.
  149. + ?S:.
  150. + ?C:SOCKET:
  151. + ?C:    This symbol, if defined, indicates that the BSD socket interface is
  152. + ?C:    supported.
  153. + ?C:.
  154. + ?C:OLDSOCKET:
  155. + ?C:    This symbol, if defined, indicates that the 4.1c BSD socket interface
  156. + ?C:    is supported instead of the 4.2/4.3 BSD socket interface.
  157. + ?C:.
  158. + ?H:?%1:#$d_socket    SOCKET        /**/
  159. + ?H:?%1:
  160. + ?H:?%1:#$d_oldsock    OLDSOCKET    /**/
  161. + ?H:?%1:
  162. + socketlib=''
  163. + sockethdr=''
  164. + : see whether socket exists
  165. + echo " "
  166. + if $contains socket libc.list >/dev/null 2>&1; then
  167. +     echo "Looks like you have Berkeley networking support."
  168. +     d_socket="$define"
  169. +     : now check for advanced features
  170. +     if $contains setsockopt libc.list >/dev/null 2>&1; then
  171. +     d_oldsock="$undef"
  172. +     else
  173. +     echo "...but it uses the old 4.1c interface, rather than 4.2"
  174. +     d_oldsock="$define"
  175. +     fi
  176. + else
  177. +     : hpux, for one, puts all the socket stuff in socklib.o
  178. +     if $contains socklib libc.list >/dev/null 2>&1; then
  179. +     echo "Looks like you have Berkeley networking support."
  180. +     d_socket="$define"
  181. +     : we will have to assume that it supports the 4.2 BSD interface
  182. +     d_oldsock="$undef"
  183. +     else
  184. +     echo "Hmmm...you don't have Berkeley networking in libc.a..."
  185. +     : look for an optional networking library
  186. +     if test -f /usr/lib/libnet.a; then
  187. +         (ar t /usr/lib/libnet.a ||
  188. +         nm -g /usr/lib/libnet.a) 2>/dev/null >> libc.list
  189. +         if $contains socket libc.list >/dev/null 2>&1; then
  190. +         echo "but the Wollongong group seems to have hacked it in."
  191. +         socketlib="-lnet"
  192. +         sockethdr="-I/usr/netinclude"
  193. +         d_socket="$define"
  194. +         : now check for advanced features
  195. +         if $contains setsockopt libc.list >/dev/null 2>&1; then
  196. +             d_oldsock="$undef"
  197. +         else
  198. +             echo "...using the old 4.1c interface, rather than 4.2"
  199. +             d_oldsock="$define"
  200. +         fi
  201. +         else
  202. +         echo "or even in libnet.a, which is peculiar."
  203. +         d_socket="$undef"
  204. +         d_oldsock="$undef"
  205. +         fi
  206. +     else
  207. +         echo "or anywhere else I see."
  208. +         d_socket="$undef"
  209. +         d_oldsock="$undef"
  210. +     fi
  211. +     fi
  212. + fi
  213. + 
  214.  
  215. Index: mcon/U/d_strctcpy.U
  216. Prereq: 2.0
  217. *** mcon/U/d_strctcpy.U.old    Fri Aug  5 00:55:06 1988
  218. --- mcon/U/d_strctcpy.U    Fri Aug  5 00:55:06 1988
  219. ***************
  220. *** 1,9 ****
  221. ! ?RCS:$Header: d_strctcpy.U,v 2.0 88/06/28 23:16:02 lwall Exp $
  222.   ?RCS: $Log:    d_strctcpy.U,v $
  223.   ?RCS: Revision 2.0  88/06/28  23:16:02  lwall
  224.   ?RCS: Baseline.
  225.   ?RCS: 
  226. ! ?MAKE:d_strctcpy: cat rm
  227.   ?MAKE:    -pick add $@ %*
  228.   ?S:d_strctcpy:
  229.   ?S:    This variable conditionally defines the STRUCTCOPY symbol, which
  230. --- 1,12 ----
  231. ! ?RCS:$Header: d_strctcpy.U,v 2.0.1.1 88/08/05 00:16:28 lwall Exp $
  232.   ?RCS: $Log:    d_strctcpy.U,v $
  233. + ?RCS: Revision 2.0.1.1  88/08/05  00:16:28  lwall
  234. + ?RCS: patch1: made depend on cc
  235. + ?RCS: 
  236.   ?RCS: Revision 2.0  88/06/28  23:16:02  lwall
  237.   ?RCS: Baseline.
  238.   ?RCS: 
  239. ! ?MAKE:d_strctcpy: cat rm cc
  240.   ?MAKE:    -pick add $@ %*
  241.   ?S:d_strctcpy:
  242.   ?S:    This variable conditionally defines the STRUCTCOPY symbol, which
  243. ***************
  244. *** 30,36 ****
  245.       foo = bar;
  246.   }
  247.   EOCP
  248. ! if cc -c try.c >/dev/null 2>&1 ; then
  249.       d_strctcpy="$define"
  250.       echo "Yup, it can."
  251.   else
  252. --- 33,39 ----
  253.       foo = bar;
  254.   }
  255.   EOCP
  256. ! if $cc -c try.c >/dev/null 2>&1 ; then
  257.       d_strctcpy="$define"
  258.       echo "Yup, it can."
  259.   else
  260.  
  261. Index: mcon/U/fpu.U
  262. Prereq: 2.0
  263. *** mcon/U/fpu.U.old    Fri Aug  5 00:55:09 1988
  264. --- mcon/U/fpu.U    Fri Aug  5 00:55:10 1988
  265. ***************
  266. *** 1,5 ****
  267. ! ?RCS:$Header: fpu.U,v 2.0 88/06/28 23:16:43 lwall Exp $
  268.   ?RCS: $Log:    fpu.U,v $
  269.   ?RCS:Revision 2.0  88/06/28  23:16:43  lwall
  270.   ?RCS:Baseline.
  271.   ?RCS:
  272. --- 1,8 ----
  273. ! ?RCS:$Header: fpu.U,v 2.0.1.1 88/08/05 00:17:02 lwall Exp $
  274.   ?RCS: $Log:    fpu.U,v $
  275. + ?RCS:Revision 2.0.1.1  88/08/05  00:17:02  lwall
  276. + ?RCS:patch1: not all Suns have the 68881
  277. + ?RCS:
  278.   ?RCS:Revision 2.0  88/06/28  23:16:43  lwall
  279.   ?RCS:Baseline.
  280.   ?RCS:
  281. ***************
  282. *** 7,13 ****
  283.   ?RCS: Revision 1.0  87/05/22  12:32:25  siegel
  284.   ?RCS: Initial revision
  285.   ?RCS: 
  286. ! ?MAKE:fpu: contains echo n Myread c
  287.   ?MAKE:    -pick add $@ %*
  288.   ?S:fpu:
  289.   ?S:    set to be the compile flag for the local floating point unit.
  290. --- 10,16 ----
  291.   ?RCS: Revision 1.0  87/05/22  12:32:25  siegel
  292.   ?RCS: Initial revision
  293.   ?RCS: 
  294. ! ?MAKE:fpu: contains echo n Myread c cc
  295.   ?MAKE:    -pick add $@ %*
  296.   ?S:fpu:
  297.   ?S:    set to be the compile flag for the local floating point unit.
  298. ***************
  299. *** 24,30 ****
  300.       cat>fpa.c << GOOP
  301.       main(){return(1);}
  302.   GOOP
  303. !     cc -ffpa fpa.c -o fpa
  304.       fpa > fpa.out 2>&1
  305.       if test ! -s fpa.out; then
  306.           dflt='y'
  307. --- 27,33 ----
  308.       cat>fpa.c << GOOP
  309.       main(){return(1);}
  310.   GOOP
  311. !     $cc -ffpa fpa.c -o fpa
  312.       fpa > fpa.out 2>&1
  313.       if test ! -s fpa.out; then
  314.           dflt='y'
  315. ***************
  316. *** 51,57 ****
  317.       if $test -r /usr/etc/mc68881version; then
  318.           dflt='y'
  319.           $echo "There also seems to be the pieces for a 68881. If"
  320. !         $echo "I compile this in, it will work on all Sun 3's..."
  321.           $echo $n "Should I compile for a 68881? [$dflt] $c"
  322.           rp="use 68881? [$dflt] "
  323.           . myread
  324. --- 54,61 ----
  325.       if $test -r /usr/etc/mc68881version; then
  326.           dflt='y'
  327.           $echo "There also seems to be the pieces for a 68881. If"
  328. !         $echo "I compile this in, it will work on almost all Sun 3's"
  329. !         $echo "except for a few Sun-3/50s without a 68881..."
  330.           $echo $n "Should I compile for a 68881? [$dflt] $c"
  331.           rp="use 68881? [$dflt] "
  332.           . myread
  333.  
  334. Index: mcon/U/inc.U
  335. *** mcon/U/inc.U.old    Fri Aug  5 00:55:12 1988
  336. --- mcon/U/inc.U    Fri Aug  5 00:55:13 1988
  337. ***************
  338. *** 0 ****
  339. --- 1,43 ----
  340. + ?RCS: $Header: inc.U,v 2.0.1.1 88/08/05 00:49:14 lwall Exp $
  341. + ?X: inc.U from bin.U 1.0
  342. + ?RCS: $Log:    inc.U,v $
  343. + ?RCS: Revision 2.0.1.1  88/08/05  00:49:14  lwall
  344. + ?RCS: patch1: created
  345. + ?RCS: 
  346. + ?MAKE:inc: test echo n c Myread Loc Filexp Oldconfig
  347. + ?MAKE:    -pick add $@ %*
  348. + ?S:inc:
  349. + ?S:    This variable holds the name of the directory in which the user wants
  350. + ?S:    to put public header files for the package in question.  It is most
  351. + ?S:    often a local directory such as /usr/local/include.
  352. + ?S:.
  353. + : determine where public header files go
  354. + case "$inc" in
  355. + '')
  356. +     dflt=`loc . "." /usr/local/include /usr/include/local /usr/include`
  357. +     ;;
  358. + *)  dflt="$inc"
  359. +     ;;
  360. + esac
  361. + cont=true
  362. + while $test "$cont" ; do
  363. +     echo " "
  364. +     rp="Where do you want to put the public header files? [$dflt]"
  365. +     $echo $n "$rp $c"
  366. +     . myread
  367. +     inc="$ans"
  368. +     inc=`filexp $inc`
  369. +     if test -d "$inc"; then
  370. +     cont=''
  371. +     else
  372. +     dflt=n
  373. +     rp="Directory $inc doesn't exist.  Use that name anyway? [$dflt]"
  374. +     $echo $n "$rp $c"
  375. +     . myread
  376. +     dflt=''
  377. +     case "$ans" in
  378. +     y*) cont='';;
  379. +     esac
  380. +     fi
  381. + done
  382. + 
  383.  
  384. Index: mcon/U/lib.U
  385. *** mcon/U/lib.U.old    Fri Aug  5 00:55:16 1988
  386. --- mcon/U/lib.U    Fri Aug  5 00:55:17 1988
  387. ***************
  388. *** 0 ****
  389. --- 1,78 ----
  390. + ?RCS: $Header: lib.U,v 2.0.1.1 88/08/05 00:49:30 lwall Exp $
  391. + ?X: lib.U from bin.U 1.0
  392. + ?RCS: $Log:    lib.U,v $
  393. + ?RCS: Revision 2.0.1.1  88/08/05  00:49:30  lwall
  394. + ?RCS: patch1: created
  395. + ?RCS: 
  396. + ?MAKE:lib lintlib: test echo n c Myread Loc Filexp Oldconfig
  397. + ?MAKE:    -pick add $@ %*
  398. + ?S:lib:
  399. + ?S:    This variable holds the name of the directory in which the user wants
  400. + ?S:    to put public library files for the package in question.  It is most
  401. + ?S:    often a local directory such as /usr/local/lib.
  402. + ?S:.
  403. + ?S:lintlib:
  404. + ?S:    This variable holds the name of the directory in which the user wants
  405. + ?S:    to put public lint-library files for the package in question.  It is
  406. + ?S:    most often a local directory such as /usr/local/lib/lint.
  407. + ?S:.
  408. + : determine where public libraries go
  409. + case "$lib" in
  410. + '')
  411. +     dflt=`loc . "." /usr/local/lib /usr/lib /lib`
  412. +     ;;
  413. + *)  dflt="$lib"
  414. +     ;;
  415. + esac
  416. + cont=true
  417. + while $test "$cont" ; do
  418. +     echo " "
  419. +     rp="Where do you want to put the public libraries? [$dflt]"
  420. +     $echo $n "$rp $c"
  421. +     . myread
  422. +     lib="$ans"
  423. +     lib=`filexp $lib`
  424. +     if test -d "$lib"; then
  425. +     cont=''
  426. +     else
  427. +     dflt=n
  428. +     rp="Directory $lib doesn't exist.  Use that name anyway? [$dflt]"
  429. +     $echo $n "$rp $c"
  430. +     . myread
  431. +     dflt=''
  432. +     case "$ans" in
  433. +     y*) cont='';;
  434. +     esac
  435. +     fi
  436. + done
  437. + 
  438. + : determine where public lint libraries go
  439. + case "$lintlib" in
  440. + '')
  441. +     dflt=`loc . "." /usr/local/lib/lint /usr/lib/lint /usr/lib`
  442. +     ;;
  443. + *)  dflt="$lintlib"
  444. +     ;;
  445. + esac
  446. + cont=true
  447. + while $test "$cont" ; do
  448. +     echo " "
  449. +     rp="Where do you want to put the public lint libraries? [$dflt]"
  450. +     $echo $n "$rp $c"
  451. +     . myread
  452. +     lintlib="$ans"
  453. +     lintlib=`filexp $lintlib`
  454. +     if test -d "$lintlib"; then
  455. +     cont=''
  456. +     else
  457. +     dflt=n
  458. +     rp="Directory $lintlib doesn't exist.  Use that name anyway? [$dflt]"
  459. +     $echo $n "$rp $c"
  460. +     . myread
  461. +     dflt=''
  462. +     case "$ans" in
  463. +     y*) cont='';;
  464. +     esac
  465. +     fi
  466. + done
  467. + 
  468.  
  469. Index: mcon/U/libc.U
  470. Prereq: 2.0
  471. *** mcon/U/libc.U.old    Fri Aug  5 00:55:19 1988
  472. --- mcon/U/libc.U    Fri Aug  5 00:55:20 1988
  473. ***************
  474. *** 1,5 ****
  475. ! ?RCS:$Header: libc.U,v 2.0 88/06/28 23:16:50 lwall Exp $
  476.   ?RCS: $Log:    libc.U,v $
  477.   ?RCS: Revision 2.0  88/06/28  23:16:50  lwall
  478.   ?RCS: Baseline.
  479.   ?RCS: 
  480. --- 1,8 ----
  481. ! ?RCS:$Header: libc.U,v 2.0.1.1 88/08/05 00:20:06 lwall Exp $
  482.   ?RCS: $Log:    libc.U,v $
  483. + ?RCS: Revision 2.0.1.1  88/08/05  00:20:06  lwall
  484. + ?RCS: patch1: now a little smarter about different nm formats
  485. + ?RCS: 
  486.   ?RCS: Revision 2.0  88/06/28  23:16:50  lwall
  487.   ?RCS: Baseline.
  488.   ?RCS: 
  489. ***************
  490. *** 46,56 ****
  491.   fi
  492.   echo " "
  493.   $echo $n "Extracting names from $libc for later perusal...$c"
  494. ! nm $libc 2>/dev/null | sed -n -e 's/^.* T _//p' -e 's/^.* T //p' > libc.list
  495.   if $contains '^printf$' libc.list >/dev/null 2>&1; then
  496.       echo "done"
  497.   else
  498. !     nm $libc 2>/dev/null | sed -n -e 's/^.* D _//p' -e 's/^.* D //p' > libc.list
  499.       if $contains '^printf$' libc.list >/dev/null 2>&1; then
  500.       echo "done"
  501.       else
  502. --- 49,63 ----
  503.   fi
  504.   echo " "
  505.   $echo $n "Extracting names from $libc for later perusal...$c"
  506. ! nm $libc 2>/dev/null >libc.tmp
  507. ! sed -n -e 's/^.* [AT] _//p' -e 's/^.* [AT] //p' <libc.tmp >libc.list
  508.   if $contains '^printf$' libc.list >/dev/null 2>&1; then
  509.       echo "done"
  510.   else
  511. !     sed -n -e 's/^.* D _//p' -e 's/^.* D //p' <libc.tmp >libc.list
  512. !     $contains '^printf$' libc.list >/dev/null 2>&1 || \
  513. !        sed -n -e 's/^_//' \
  514. !           -e 's/^\([a-zA-Z_0-9]*\).*xtern.*text.*/\1/p' <libc.tmp >libc.list
  515.       if $contains '^printf$' libc.list >/dev/null 2>&1; then
  516.       echo "done"
  517.       else
  518. ***************
  519. *** 57,63 ****
  520.       echo " "
  521.       echo "nm didn't seem to work right."
  522.       echo "Trying ar instead..."
  523. -     rmlist="$rmlist libc.tmp"
  524.       if ar t $libc > libc.tmp; then
  525.           sed -e 's/\.o$//' < libc.tmp > libc.list
  526.           echo "Ok."
  527. --- 64,69 ----
  528. ***************
  529. *** 73,77 ****
  530.       fi
  531.       fi
  532.   fi
  533. ! rmlist="$rmlist libc.list"
  534.   
  535. --- 79,83 ----
  536.       fi
  537.       fi
  538.   fi
  539. ! rmlist="$rmlist libc.tmp libc.list"
  540.   
  541.  
  542. Index: kit/makedist.SH
  543. Prereq: 2.0
  544. *** kit/makedist.SH.old    Fri Aug  5 00:53:47 1988
  545. --- kit/makedist.SH    Fri Aug  5 00:53:48 1988
  546. ***************
  547. *** 16,28 ****
  548.   : Protect any dollar signs and backticks that you do not want interpreted
  549.   : by putting a backslash in front.
  550.   cat >makedist <<!GROK!THIS!
  551. ! #!/usr/bin/perl
  552. !     eval "exec /usr/bin/perl -S \$0 \$*"
  553.           if \$running_under_some_shell;
  554.   
  555. ! # $Header: makedist.SH,v 2.0 88/06/28 23:12:17 lwall Exp $
  556.   #
  557.   # $Log:    makedist.SH,v $
  558.   # Revision 2.0  88/06/28  23:12:17  lwall
  559.   # Baseline.
  560.   # 
  561. --- 16,32 ----
  562.   : Protect any dollar signs and backticks that you do not want interpreted
  563.   : by putting a backslash in front.
  564.   cat >makedist <<!GROK!THIS!
  565. ! #!$perlpath
  566. !     eval "exec $perlpath -S \$0 \$*"
  567.           if \$running_under_some_shell;
  568.   
  569. ! # $Header: makedist.SH,v 2.0.1.1 88/08/04 23:55:14 lwall Exp $
  570.   #
  571.   # $Log:    makedist.SH,v $
  572. + # Revision 2.0.1.1  88/08/04  23:55:14  lwall
  573. + # 
  574. + # patch1: depends on perlpath now
  575. + # 
  576.   # Revision 2.0  88/06/28  23:12:17  lwall
  577.   # Baseline.
  578.   # 
  579.  
  580. Index: mcon/makegloss
  581. *** mcon/makegloss.old    Fri Aug  5 00:55:55 1988
  582. --- mcon/makegloss    Fri Aug  5 00:55:55 1988
  583. ***************
  584. *** 1,4 ****
  585. --- 1,6 ----
  586.   #!/usr/bin/perl
  587. + eval "exec /usr/bin/perl -S $0 $*"
  588. +     if $running_under_some_shell;
  589.   open(G,">Glossary") || die "Can't create Glossary.\n";
  590.   print G
  591.   '[This Glossary is automatically generated from the Unit files.  Do not edit
  592.  
  593. Index: mcon/U/mansrc.U
  594. Prereq: 2.0
  595. *** mcon/U/mansrc.U.old    Fri Aug  5 00:55:23 1988
  596. --- mcon/U/mansrc.U    Fri Aug  5 00:55:23 1988
  597. ***************
  598. *** 1,5 ****
  599. ! ?RCS:$Header: mansrc.U,v 2.0 88/06/28 23:17:17 lwall Exp $
  600.   ?RCS: $Log:    mansrc.U,v $
  601.   ?RCS: Revision 2.0  88/06/28  23:17:17  lwall
  602.   ?RCS: Baseline.
  603.   ?RCS: 
  604. --- 1,8 ----
  605. ! ?RCS:$Header: mansrc.U,v 2.0.1.1 88/08/05 00:20:49 lwall Exp $
  606.   ?RCS: $Log:    mansrc.U,v $
  607. + ?RCS: Revision 2.0.1.1  88/08/05  00:20:49  lwall
  608. + ?RCS: patch1: can now default to manl
  609. + ?RCS: 
  610.   ?RCS: Revision 2.0  88/06/28  23:17:17  lwall
  611.   ?RCS: Baseline.
  612.   ?RCS: 
  613. ***************
  614. *** 18,24 ****
  615.   : determine where manual pages go
  616.   case "$mansrc" in
  617.   '')
  618. !     dflt=`loc . /usr/man/man1 /usr/man/mann /usr/man/local/man1 /usr/man/u_man/man1 /usr/man/man1`
  619.       ;;
  620.   *)  dflt="$mansrc"
  621.       ;;
  622. --- 21,27 ----
  623.   : determine where manual pages go
  624.   case "$mansrc" in
  625.   '')
  626. !     dflt=`loc . /usr/man/man1 /usr/man/mann /usr/man/manl /usr/man/local/man1 /usr/man/u_man/man1 /usr/man/man1`
  627.       ;;
  628.   *)  dflt="$mansrc"
  629.       ;;
  630.  
  631. Index: mcon/metaconfig.SH
  632. Prereq: 2.0
  633. *** mcon/metaconfig.SH.old    Fri Aug  5 00:55:59 1988
  634. --- mcon/metaconfig.SH    Fri Aug  5 00:56:00 1988
  635. ***************
  636. *** 17,29 ****
  637.   esac
  638.   echo "Extracting metaconfig (with variable substitutions)"
  639.   cat >metaconfig <<!GROK!THIS!
  640. ! #!/usr/bin/perl
  641. !         eval "exec /usr/bin/perl -S \$0 \$*"
  642.           if \$running_under_some_shell;
  643.   
  644. ! # $Header: metaconfig.SH,v 2.0 88/06/28 23:18:46 lwall Exp $
  645.   #
  646.   # $Log:    metaconfig.SH,v $
  647.   # Revision 2.0  88/06/28  23:18:46  lwall
  648.   # Baseline.
  649.   # 
  650. --- 17,32 ----
  651.   esac
  652.   echo "Extracting metaconfig (with variable substitutions)"
  653.   cat >metaconfig <<!GROK!THIS!
  654. ! #!$perlpath
  655. !         eval "exec $perlpath -S \$0 \$*"
  656.           if \$running_under_some_shell;
  657.   
  658. ! # $Header: metaconfig.SH,v 2.0.1.1 88/08/05 00:27:27 lwall Exp $
  659.   #
  660.   # $Log:    metaconfig.SH,v $
  661. + # Revision 2.0.1.1  88/08/05  00:27:27  lwall
  662. + # patch1: now depends on perlpath
  663. + # 
  664.   # Revision 2.0  88/06/28  23:18:46  lwall
  665.   # Baseline.
  666.   # 
  667.  
  668. Index: mcon/U/mkdep.U
  669. *** mcon/U/mkdep.U.old    Fri Aug  5 00:55:26 1988
  670. --- mcon/U/mkdep.U    Fri Aug  5 00:55:27 1988
  671. ***************
  672. *** 0 ****
  673. --- 1,126 ----
  674. + ?RCS: $Header: mkdep.U,v 2.0.1.1 88/08/05 00:49:54 lwall Exp $
  675. + ?X: mkdep.U
  676. + ?X: 
  677. + ?RCS: $Log:    mkdep.U,v $
  678. + ?RCS: Revision 2.0.1.1  88/08/05  00:49:54  lwall
  679. + ?RCS: patch1: created
  680. + ?RCS: 
  681. + ?MAKE:mkdep: spitshell startsh cpp grep contains sed sort Oldconfig
  682. + ?MAKE:    -pick add $@ %*
  683. + ?S:mkdep:
  684. + ?S:    This variable holds the name of a command to generate makefile
  685. + ?S:    dependencies on the standard output.  Usual values are "/lib/cpp -M"
  686. + ?S:    or the pathname of the mkdep script.
  687. + ?S:.
  688. + : see if we have the 4.3 /lib/cpp -M feature
  689. + echo " "
  690. + echo "Checking how to generate makefile dependencies on your machine..."
  691. + $cat >dep.c <<'EOCP'
  692. + #include "dep.h"
  693. + EOCP
  694. + $cat >dep.h <<'EOCP'
  695. + EOCP
  696. + if $cpp -M dep.c >dep.out 2>/dev/null </dev/null &&
  697. +     $contains 'dep\.o:.*dep\.h' dep.out >/dev/null 2>&1
  698. + then
  699. +     echo "$cpp -M seems to work here."
  700. +     mkdep="$cpp -M"
  701. + else
  702. +     echo $n "$cpp -M doesn't seem to work...$c"
  703. +     case "$mkdep" in
  704. +     '') ;;
  705. +     `pwd`/mkdep)
  706. +         mkdep=
  707. +         ;;
  708. +     *)
  709. +         if $mkdep dep.c >dep.out 2>/dev/null &&
  710. +             $contains 'dep\.o:.*dep\.h' dep.out >/dev/null 2>&1
  711. +         then
  712. +             echo "but $mkdep does, as you said before."
  713. +         else
  714. +             mkdep=
  715. +         fi
  716. +         ;;
  717. +     esac
  718. +     if test -z "$mkdep"; then
  719. +         $spitshell >mkdep <<EOS
  720. + $startsh
  721. + for srcfile
  722. + do
  723. +     filebase=\`basename \$srcfile .c\`
  724. +     $sed -n -e '/^#/!d' -e 's|/\*.*$||' -e p \$srcfile | \\
  725. +     $cpp $cppminus | \\
  726. +     $sed -e '/^# *[0-9]/!d' \\
  727. +         -e 's/^.*"\(.*\)".*\$/'\$filebase'.o: \1/' \\
  728. +         -e 's|: \./|: |' \\
  729. +         -e 's|: *$|: '\$srcfile'|' | \\
  730. +     $sort -u
  731. + done
  732. + EOS
  733. +         chmod +x mkdep
  734. +         mkdep=`pwd`/mkdep
  735. +         if $mkdep dep.c >dep.out 2>/dev/null &&
  736. +             $contains 'dep\.o:.*dep\.h' dep.out >/dev/null 2>&1
  737. +         then
  738. +             echo "but a shell script using $cpp does."
  739. +         else
  740. +             echo " "
  741. +             echo "in fact, $cpp doesn't seem to be any use at all."
  742. +             $spitshell >mkdep2 <<EOS
  743. + $startsh
  744. + for srcfile
  745. + do
  746. +     echo \`basename \$srcfile .c\`.o: \$srcfile
  747. +     $grep '^#[  ]*include' \$srcfile /dev/null || true | 
  748. +     $sed -e 's,<\(.*\)>,"/usr/include/\1",' \\
  749. +         -e 's/:[^"]*"\([^"]*\)".*/: \1/' \\
  750. +         -e 's/\.c:/\.o:/'
  751. + done
  752. + EOS
  753. +             chmod +x mkdep2
  754. +             mkdep=${mkdep}2
  755. +             if $mkdep dep.c >dep.out 2>/dev/null &&
  756. +                 $contains 'dep\.o:.*dep\.h' dep.out >/dev/null 2>&1
  757. +             then
  758. +                 cat << EOM
  759. + I can use a script with grep instead, but it will make some incorrect
  760. + dependencies, since it doesn't understand about conditional compilation.
  761. + If you have a program which generates makefile dependencies, you may want
  762. + to use it.  If not, you can use the script and edit the Makefile by hand
  763. + if you need to.
  764. + EOM
  765. +             else
  766. +                 mkdep=
  767. +                 cat << EOM
  768. + I can't seem to generate makefile dependencies at all!  Perhaps you have a
  769. + program which does?  If you don't, you might look in `pwd` at the
  770. + mkdep and mkdep2 scripts to see if you can create one which works.
  771. + EOM
  772. +             fi
  773. +         fi    
  774. +     fi
  775. +     cont=true
  776. +     dflt="$mkdep"
  777. +     while $test "$cont" ; do
  778. +         echo " "
  779. +     rp="Name of program to make makefile dependencies? [$dflt]"
  780. +     $echo $n "$rp $c"
  781. +     . myread
  782. +     mkdep="$ans"
  783. +     mkdep=`filexp $mkdep`
  784. +     if test -f "$mkdep"; then
  785. +         cont=''
  786. +     else
  787. +         dflt=n
  788. +         rp="$mkdep doesn't exist.  Use that name anyway? [$dflt]"
  789. +         $echo $n "$rp $c"
  790. +         . myread
  791. +         dflt=''
  792. +         case "$ans" in
  793. +         y*) cont='';;
  794. +         esac
  795. +     fi
  796. + done
  797. + fi
  798. + rm -f dep.c dep.h dep.o dep.out
  799. + 
  800.  
  801. Index: mcon/U/models.U
  802. Prereq: 2.0
  803. *** mcon/U/models.U.old    Fri Aug  5 00:55:31 1988
  804. --- mcon/U/models.U    Fri Aug  5 00:55:33 1988
  805. ***************
  806. *** 1,9 ****
  807. ! ?RCS:$Header: models.U,v 2.0 88/06/28 23:17:24 lwall Exp $
  808.   ?RCS: $Log:    models.U,v $
  809.   ?RCS: Revision 2.0  88/06/28  23:17:24  lwall
  810.   ?RCS: Baseline.
  811.   ?RCS: 
  812. ! ?MAKE:models split small medium large huge ccflags ldflags: test cat echo n c Myread Cppsym
  813.   ?MAKE:    -pick add $@ %*
  814.   ?S:models:
  815.   ?S:    This variable contains the list of memory models supported by this
  816. --- 1,12 ----
  817. ! ?RCS:$Header: models.U,v 2.0.1.1 88/08/05 00:21:57 lwall Exp $
  818.   ?RCS: $Log:    models.U,v $
  819. + ?RCS: Revision 2.0.1.1  88/08/05  00:21:57  lwall
  820. + ?RCS: patch1: incorporated old cc unit
  821. + ?RCS: 
  822.   ?RCS: Revision 2.0  88/06/28  23:17:24  lwall
  823.   ?RCS: Baseline.
  824.   ?RCS: 
  825. ! ?MAKE:models split small medium large huge ccflags ldflags cc: test cat echo n c Myread mansrc Mcc Guess Oldconfig Loc
  826.   ?MAKE:    -pick add $@ %*
  827.   ?S:models:
  828.   ?S:    This variable contains the list of memory models supported by this
  829. ***************
  830. *** 46,55 ****
  831.   ?S:    This variable contains any additional C loader flags desired by
  832.   ?S:    the user.  It is up to the Makefile to use this.
  833.   ?S:.
  834.   : see what memory models we can support
  835.   case "$models" in
  836.   '')
  837. !     if Cppsym pdp11; then
  838.       dflt='unsplit split'
  839.       else
  840.       ans=`loc . X /lib/small /lib/large /usr/lib/small /usr/lib/large /lib/medium /usr/lib/medium /lib/huge`
  841. --- 49,75 ----
  842.   ?S:    This variable contains any additional C loader flags desired by
  843.   ?S:    the user.  It is up to the Makefile to use this.
  844.   ?S:.
  845. + ?S:cc:
  846. + ?S:    This variable holds the name of a command to execute a C compiler which
  847. + ?S:    can resolve multiple global references that happen to have the same
  848. + ?S:    name.  Usual values are "cc", "Mcc", "cc -M", and "gcc".
  849. + ?S:.
  850.   : see what memory models we can support
  851.   case "$models" in
  852.   '')
  853. !     : We may not use Cppsym or we get a circular dependency through cc.
  854. !     : But this should work regardless of which cc we eventually use.
  855. !     cat >pdp11.c <<'EOP'
  856. ! main() {
  857. ! #ifdef pdp11
  858. !     exit(0);
  859. ! #else
  860. !     exit(1);
  861. ! #endif
  862. ! }
  863. ! EOP
  864. !     cc -o pdp11 pdp11.c >/dev/null 2>&1
  865. !     if pdp11 2>/dev/null; then
  866.       dflt='unsplit split'
  867.       else
  868.       ans=`loc . X /lib/small /lib/large /usr/lib/small /usr/lib/large /lib/medium /usr/lib/medium /lib/huge`
  869. ***************
  870. *** 191,196 ****
  871. --- 211,269 ----
  872.       ;;
  873.   esac
  874.   
  875. + : see if we need a special compiler
  876. + echo " "
  877. + if usg; then
  878. +     case "$cc" in
  879. +     '')
  880. +     case "$Mcc" in
  881. +     /*) dflt='Mcc'
  882. +         ;;
  883. +     *)
  884. +         case "$large" in
  885. +         -M*)
  886. +         dflt='cc'
  887. +         ;;
  888. +         *)
  889. +         if $contains '\-M' $mansrc/cc.1 >/dev/null 2>&1 ; then
  890. +             dflt='cc -M'
  891. +         else
  892. +             dflt='cc'
  893. +         fi
  894. +         ;;
  895. +         esac
  896. +         ;;
  897. +     esac
  898. +     ;;
  899. +     *)  dflt="$cc";;
  900. +     esac
  901. +     $cat <<'EOM'
  902. +  
  903. + On some systems the default C compiler will not resolve multiple global
  904. + references that happen to have the same name.  On some such systems the
  905. + "Mcc" command may be used to force these to be resolved.  On other systems
  906. + a "cc -M" command is required.  (Note that the -M flag on other systems
  907. + indicates a memory model to use!)  If you have the Gnu C compiler, you
  908. + might wish to use that instead.  What command will force resolution on
  909. + EOM
  910. +     $echo $n "this system? [$dflt] $c"
  911. +     rp="Command to resolve multiple refs? [$dflt]"
  912. +     . myread
  913. +     cc="$ans"
  914. + else
  915. +     case "$cc" in
  916. +     '') dflt=cc;;
  917. +     *) dflt="$cc";;
  918. +     esac
  919. +     rp="Use which C compiler? [$dflt]"
  920. +     $echo $n "$rp $c"
  921. +     . myread
  922. +     cc="$ans"
  923. + fi
  924. + case "$cc" in
  925. + gcc*) cpp=`loc gcc-cpp $cpp $pth`;;
  926. + esac
  927. + 
  928.   case "$ccflags" in
  929.   '') dflt='none';;
  930.   *) dflt="$ccflags";;
  931. ***************
  932. *** 221,224 ****
  933. --- 294,298 ----
  934.   none) ans='';
  935.   esac
  936.   ldflags="$ans"
  937. + rmlist="$rmlist pdp11"
  938.   
  939.  
  940. Index: mcon/U/orderlib.U
  941. *** mcon/U/orderlib.U.old    Fri Aug  5 00:55:35 1988
  942. --- mcon/U/orderlib.U    Fri Aug  5 00:55:36 1988
  943. ***************
  944. *** 0 ****
  945. --- 1,45 ----
  946. + ?RCS: $Header: orderlib.U,v 2.0.1.1 88/08/05 00:50:17 lwall Exp $
  947. + ?X: orderlib.U
  948. + ?X: 
  949. + ?RCS: $Log:    orderlib.U,v $
  950. + ?RCS: Revision 2.0.1.1  88/08/05  00:50:17  lwall
  951. + ?RCS: patch1: created
  952. + ?RCS: 
  953. + ?MAKE:orderlib ranlib:
  954. + ?MAKE:    -pick add $@ %*
  955. + ?S:orderlib:
  956. + ?S:    This variable is "true" if the components of libraries must be ordered
  957. + ?S:    (with `lorder $* | tsort`) before placing them in an archive.  Set to
  958. + ?S:    "false" if ranlib or ar can generate random libraries.
  959. + ?S:.
  960. + ?S:ranlib:
  961. + ?S:    This variable is set to the pathname of the ranlib program, if it is
  962. + ?S:    needed to generate random libraries.  Set to ":" if ar can generate
  963. + ?S:    random libraries or if random libraries are not supported
  964. + ?S:.
  965. + : see if ar generates random libraries by itself
  966. + echo " "
  967. + echo "Checking how to generate random libraries on your machine..."
  968. + ar rc ran.a /dev/null
  969. + if ar ts ran.a >/dev/null 2>&1; then
  970. +     echo "ar appears to generate random libraries itself."
  971. +     orderlib=false
  972. +     ranlib=":"
  973. + else
  974. +     if test -f /usr/bin/ranlib; then
  975. +         ranlib=/usr/bin/ranlib
  976. +     elif test -f /bin/ranlib; then
  977. +         ranlib=/bin/ranlib
  978. +     fi
  979. + 
  980. +     if test -n "$ranlib"; then
  981. +         echo "your system has $ranlib; we'll use that."
  982. +         orderlib=false
  983. +     else
  984. +         echo "your system doesn't seem to support random libraries"
  985. +         echo "so we'll use lorder and tsort to order the libraries."
  986. +         orderlib=true
  987. +         ranlib=":"
  988. +     fi
  989. + fi
  990. + 
  991.  
  992. Index: packinit.SH
  993. Prereq: 2.0
  994. *** packinit.SH.old    Fri Aug  5 00:56:06 1988
  995. --- packinit.SH    Fri Aug  5 00:56:06 1988
  996. ***************
  997. *** 16,28 ****
  998.   esac
  999.   echo "Extracting packinit (with variable substitutions)"
  1000.   cat >packinit <<!GROK!THIS!
  1001. ! #!/usr/bin/perl
  1002. !     eval "exec /usr/bin/perl -S \$0 \$*"
  1003.           if \$running_under_some_shell;
  1004.   
  1005. ! # $Header: packinit.SH,v 2.0 88/06/28 23:18:55 lwall Exp $
  1006.   #
  1007.   # $Log:    packinit.SH,v $
  1008.   # Revision 2.0  88/06/28  23:18:55  lwall
  1009.   # Baseline.
  1010.   # 
  1011. --- 16,31 ----
  1012.   esac
  1013.   echo "Extracting packinit (with variable substitutions)"
  1014.   cat >packinit <<!GROK!THIS!
  1015. ! #!$perlpath
  1016. !     eval "exec $perlpath -S \$0 \$*"
  1017.           if \$running_under_some_shell;
  1018.   
  1019. ! # $Header: packinit.SH,v 2.0.1.1 88/08/05 00:27:49 lwall Exp $
  1020.   #
  1021.   # $Log:    packinit.SH,v $
  1022. + # Revision 2.0.1.1  88/08/05  00:27:49  lwall
  1023. + # patch1: now depends on perlpath
  1024. + # 
  1025.   # Revision 2.0  88/06/28  23:18:55  lwall
  1026.   # Baseline.
  1027.   # 
  1028.  
  1029. Index: pat/pat.SH
  1030. Prereq: 2.0
  1031. *** pat/pat.SH.old    Fri Aug  5 00:56:10 1988
  1032. --- pat/pat.SH    Fri Aug  5 00:56:11 1988
  1033. ***************
  1034. *** 17,29 ****
  1035.   esac
  1036.   echo "Extracting pat (with variable substitutions)"
  1037.   cat >pat <<!GROK!THIS!
  1038. ! #!/usr/bin/perl
  1039. !     eval "exec /usr/bin/perl -S \$0 \$*"
  1040.           if \$running_under_some_shell;
  1041.   
  1042. ! # $Header: pat.SH,v 2.0 88/06/28 23:19:17 lwall Exp $
  1043.   #
  1044.   # $Log:    pat.SH,v $
  1045.   # Revision 2.0  88/06/28  23:19:17  lwall
  1046.   # Baseline.
  1047.   # 
  1048. --- 17,32 ----
  1049.   esac
  1050.   echo "Extracting pat (with variable substitutions)"
  1051.   cat >pat <<!GROK!THIS!
  1052. ! #!$perlpath
  1053. !     eval "exec $perlpath -S \$0 \$*"
  1054.           if \$running_under_some_shell;
  1055.   
  1056. ! # $Header: pat.SH,v 2.0.1.1 88/08/05 00:28:32 lwall Exp $
  1057.   #
  1058.   # $Log:    pat.SH,v $
  1059. + # Revision 2.0.1.1  88/08/05  00:28:32  lwall
  1060. + # patch1: now depends on perlpath
  1061. + # 
  1062.   # Revision 2.0  88/06/28  23:19:17  lwall
  1063.   # Baseline.
  1064.   # 
  1065.  
  1066. Index: pat/patbase.SH
  1067. Prereq: 2.0
  1068. *** pat/patbase.SH.old    Fri Aug  5 00:56:15 1988
  1069. --- pat/patbase.SH    Fri Aug  5 00:56:16 1988
  1070. ***************
  1071. *** 16,28 ****
  1072.   esac
  1073.   echo "Extracting patbase (with variable substitutions)"
  1074.   cat >patbase <<!GROK!THIS!
  1075. ! #!/usr/bin/perl
  1076. !         eval "exec /usr/bin/perl -S \$0 \$*"
  1077.                   if \$running_under_some_shell;
  1078.   
  1079. ! # $Header: patbase.SH,v 2.0 88/06/28 23:19:25 lwall Exp $
  1080.   #
  1081.   # $Log:    patbase.SH,v $
  1082.   # Revision 2.0  88/06/28  23:19:25  lwall
  1083.   # Baseline.
  1084.   # 
  1085. --- 16,31 ----
  1086.   esac
  1087.   echo "Extracting patbase (with variable substitutions)"
  1088.   cat >patbase <<!GROK!THIS!
  1089. ! #!$perlpath
  1090. !         eval "exec $perlpath -S \$0 \$*"
  1091.                   if \$running_under_some_shell;
  1092.   
  1093. ! # $Header: patbase.SH,v 2.0.1.1 88/08/05 00:29:09 lwall Exp $
  1094.   #
  1095.   # $Log:    patbase.SH,v $
  1096. + # Revision 2.0.1.1  88/08/05  00:29:09  lwall
  1097. + # patch1: now depends on perlpath
  1098. + # 
  1099.   # Revision 2.0  88/06/28  23:19:25  lwall
  1100.   # Baseline.
  1101.   # 
  1102.  
  1103. Index: pat/patcil.SH
  1104. Prereq: 2.0
  1105. *** pat/patcil.SH.old    Fri Aug  5 00:56:19 1988
  1106. --- pat/patcil.SH    Fri Aug  5 00:56:20 1988
  1107. ***************
  1108. *** 15,27 ****
  1109.   esac
  1110.   echo "Extracting patcil (with variable substitutions)"
  1111.   $cat >patcil <<!GROK!THIS!
  1112. ! #!/usr/bin/perl -i~
  1113. !         eval "exec /usr/bin/perl -S \$0 \$*"
  1114.                   if \$running_under_some_shell;
  1115.   
  1116. ! # $Header: patcil.SH,v 2.0 88/06/29 00:21:39 lwall Exp $
  1117.   #
  1118.   # $Log:    patcil.SH,v $
  1119.   # Revision 2.0  88/06/29  00:21:39  lwall
  1120.   # Baseline.
  1121.   # 
  1122. --- 15,33 ----
  1123.   esac
  1124.   echo "Extracting patcil (with variable substitutions)"
  1125.   $cat >patcil <<!GROK!THIS!
  1126. ! #!$perlpath -i~
  1127. !         eval "exec $perlpath -S \$0 \$*"
  1128.                   if \$running_under_some_shell;
  1129.   
  1130. ! # $Header: patcil.SH,v 2.0.1.2 88/08/05 00:51:51 lwall Exp $
  1131.   #
  1132.   # $Log:    patcil.SH,v $
  1133. + # Revision 2.0.1.2  88/08/05  00:51:51  lwall
  1134. + # patch1: created
  1135. + # 
  1136. + # Revision 2.0.1.1  88/08/05  00:29:17  lwall
  1137. + # patch1: now depends on perlpath
  1138. + # 
  1139.   # Revision 2.0  88/06/29  00:21:39  lwall
  1140.   # Baseline.
  1141.   # 
  1142. ***************
  1143. *** 198,204 ****
  1144.       }
  1145.       if ($patching && !$total) {    # check in null as trunk revision
  1146.           rename($file, "$file.xxx");
  1147. !         `cp /dev/null $file` unless -f "$file.xxx";
  1148.           if (system 'ci', "-l$baserev", @sw, @files) {
  1149.           print "Trying again...\n";
  1150.           system 'ci', "-r$baserev", @sw, @files;
  1151. --- 204,210 ----
  1152.       }
  1153.       if ($patching && !$total) {    # check in null as trunk revision
  1154.           rename($file, "$file.xxx");
  1155. !         `cp /dev/null $file` unless -f $file;
  1156.           if (system 'ci', "-l$baserev", @sw, @files) {
  1157.           print "Trying again...\n";
  1158.           system 'ci', "-r$baserev", @sw, @files;
  1159.  
  1160. Index: pat/patdiff.SH
  1161. Prereq: 2.0
  1162. *** pat/patdiff.SH.old    Fri Aug  5 00:56:25 1988
  1163. --- pat/patdiff.SH    Fri Aug  5 00:56:25 1988
  1164. ***************
  1165. *** 16,28 ****
  1166.   esac
  1167.   echo "Extracting patdiff (with variable substitutions)"
  1168.   cat >patdiff <<!GROK!THIS!
  1169. ! #!/usr/bin/perl
  1170. !         eval "exec /usr/bin/perl -S \$0 \$*"
  1171.                   if \$running_under_some_shell;
  1172.   
  1173. ! # $Header: patdiff.SH,v 2.0 88/06/28 23:19:39 lwall Exp $
  1174.   #
  1175.   # $Log:    patdiff.SH,v $
  1176.   # Revision 2.0  88/06/28  23:19:39  lwall
  1177.   # Baseline.
  1178.   # 
  1179. --- 16,31 ----
  1180.   esac
  1181.   echo "Extracting patdiff (with variable substitutions)"
  1182.   cat >patdiff <<!GROK!THIS!
  1183. ! #!$perlpath
  1184. !         eval "exec $perlpath -S \$0 \$*"
  1185.                   if \$running_under_some_shell;
  1186.   
  1187. ! # $Header: patdiff.SH,v 2.0.1.1 88/08/05 00:29:42 lwall Exp $
  1188.   #
  1189.   # $Log:    patdiff.SH,v $
  1190. + # Revision 2.0.1.1  88/08/05  00:29:42  lwall
  1191. + # patch1: now depends on perlpath
  1192. + # 
  1193.   # Revision 2.0  88/06/28  23:19:39  lwall
  1194.   # Baseline.
  1195.   # 
  1196.  
  1197. Index: pat/patftp.SH
  1198. Prereq: 2.0
  1199. *** pat/patftp.SH.old    Fri Aug  5 00:56:29 1988
  1200. --- pat/patftp.SH    Fri Aug  5 00:56:30 1988
  1201. ***************
  1202. *** 17,29 ****
  1203.   esac
  1204.   echo "Extracting patftp (with variable substitutions)"
  1205.   cat >patftp <<!GROK!THIS!
  1206. ! #!/usr/bin/perl
  1207. !         eval "exec /usr/bin/perl -S \$0 \$*"
  1208.                   if \$running_under_some_shell;
  1209.   
  1210. ! # $Header: patftp.SH,v 2.0 88/06/28 23:19:57 lwall Exp $
  1211.   #
  1212.   # $Log:    patftp.SH,v $
  1213.   # Revision 2.0  88/06/28  23:19:57  lwall
  1214.   # Baseline.
  1215.   # 
  1216. --- 17,32 ----
  1217.   esac
  1218.   echo "Extracting patftp (with variable substitutions)"
  1219.   cat >patftp <<!GROK!THIS!
  1220. ! #!$perlpath
  1221. !         eval "exec $perlpath -S \$0 \$*"
  1222.                   if \$running_under_some_shell;
  1223.   
  1224. ! # $Header: patftp.SH,v 2.0.1.1 88/08/05 00:29:52 lwall Exp $
  1225.   #
  1226.   # $Log:    patftp.SH,v $
  1227. + # Revision 2.0.1.1  88/08/05  00:29:52  lwall
  1228. + # patch1: now depends on perlpath
  1229. + # 
  1230.   # Revision 2.0  88/06/28  23:19:57  lwall
  1231.   # Baseline.
  1232.   # 
  1233.  
  1234. Index: pat/patmake.SH
  1235. Prereq: 2.0
  1236. *** pat/patmake.SH.old    Fri Aug  5 00:56:33 1988
  1237. --- pat/patmake.SH    Fri Aug  5 00:56:34 1988
  1238. ***************
  1239. *** 17,29 ****
  1240.   esac
  1241.   echo "Extracting patmake (with variable substitutions)"
  1242.   cat >patmake <<!GROK!THIS!
  1243. ! #!/usr/bin/perl
  1244. !         eval "exec /usr/bin/perl -S \$0 \$*"
  1245.                   if \$running_under_some_shell;
  1246.   
  1247. ! # $Header: patmake.SH,v 2.0 88/06/28 23:19:46 lwall Exp $
  1248.   #
  1249.   # $Log:    patmake.SH,v $
  1250.   # Revision 2.0  88/06/28  23:19:46  lwall
  1251.   # Baseline.
  1252.   # 
  1253. --- 17,32 ----
  1254.   esac
  1255.   echo "Extracting patmake (with variable substitutions)"
  1256.   cat >patmake <<!GROK!THIS!
  1257. ! #!$perlpath
  1258. !         eval "exec $perlpath -S \$0 \$*"
  1259.                   if \$running_under_some_shell;
  1260.   
  1261. ! # $Header: patmake.SH,v 2.0.1.1 88/08/05 00:30:00 lwall Exp $
  1262.   #
  1263.   # $Log:    patmake.SH,v $
  1264. + # Revision 2.0.1.1  88/08/05  00:30:00  lwall
  1265. + # patch1: now depends on perlpath
  1266. + # 
  1267.   # Revision 2.0  88/06/28  23:19:46  lwall
  1268.   # Baseline.
  1269.   # 
  1270. ***************
  1271. *** 50,56 ****
  1272.       $last = '';
  1273.   }
  1274.   
  1275. ! $mf = `grep '^[a-z]*:' [Mm]akefile* 2>&1`;
  1276.   $* = 1;
  1277.   $after = '';
  1278.   $after .= "\t\tConfigure -d\n" if -f 'Configure';
  1279. --- 53,63 ----
  1280.       $last = '';
  1281.   }
  1282.   
  1283. ! @ARGV = <[Mm]akefile*>;
  1284. ! $mf = '';
  1285. ! while (<>) {
  1286. !     $mf .= $_ if /^[a-z]+:/;
  1287. ! }
  1288.   $* = 1;
  1289.   $after = '';
  1290.   $after .= "\t\tConfigure -d\n" if -f 'Configure';
  1291. ***************
  1292. *** 165,171 ****
  1293.   $editor = 'vi' unless $editor;
  1294.   system $editor, "patch$bnum";
  1295.   if (-s "patch$bnum") {
  1296. !     `echo "#define PATCHLEVEL $bnum" >../patchlevel.h`;
  1297.       open(PL,"patchlevel.h") || die "Can't open patchlevel.h\n";
  1298.       while (<PL>) {
  1299.       $bnum = $1 if /^#define\s+PATCHLEVEL\s+(\d+)/;
  1300. --- 172,179 ----
  1301.   $editor = 'vi' unless $editor;
  1302.   system $editor, "patch$bnum";
  1303.   if (-s "patch$bnum") {
  1304. !     chdir '..';
  1305. !     `echo "#define PATCHLEVEL $bnum" >patchlevel.h`;
  1306.       open(PL,"patchlevel.h") || die "Can't open patchlevel.h\n";
  1307.       while (<PL>) {
  1308.       $bnum = $1 if /^#define\s+PATCHLEVEL\s+(\d+)/;
  1309.  
  1310. Index: pat/patpost.SH
  1311. Prereq: 2.0
  1312. *** pat/patpost.SH.old    Fri Aug  5 00:56:38 1988
  1313. --- pat/patpost.SH    Fri Aug  5 00:56:39 1988
  1314. ***************
  1315. *** 17,29 ****
  1316.   esac
  1317.   echo "Extracting patpost (with variable substitutions)"
  1318.   cat >patpost <<!GROK!THIS!
  1319. ! #!/usr/bin/perl
  1320. !     eval "exec /usr/bin/perl -S \$0 \$*"
  1321.           if \$running_under_some_shell;
  1322.   
  1323. ! # $Header: patpost.SH,v 2.0 88/06/28 23:19:50 lwall Exp $
  1324.   #
  1325.   # $Log:    patpost.SH,v $
  1326.   # Revision 2.0  88/06/28  23:19:50  lwall
  1327.   # Baseline.
  1328.   # 
  1329. --- 17,32 ----
  1330.   esac
  1331.   echo "Extracting patpost (with variable substitutions)"
  1332.   cat >patpost <<!GROK!THIS!
  1333. ! #!$perlpath
  1334. !     eval "exec $perlpath -S \$0 \$*"
  1335.           if \$running_under_some_shell;
  1336.   
  1337. ! # $Header: patpost.SH,v 2.0.1.1 88/08/05 00:30:10 lwall Exp $
  1338.   #
  1339.   # $Log:    patpost.SH,v $
  1340. + # Revision 2.0.1.1  88/08/05  00:30:10  lwall
  1341. + # patch1: now depends on perlpath
  1342. + # 
  1343.   # Revision 2.0  88/06/28  23:19:50  lwall
  1344.   # Baseline.
  1345.   # 
  1346.  
  1347. Index: pat/patsend.SH
  1348. Prereq: 2.0
  1349. *** pat/patsend.SH.old    Fri Aug  5 00:56:42 1988
  1350. --- pat/patsend.SH    Fri Aug  5 00:56:43 1988
  1351. ***************
  1352. *** 17,29 ****
  1353.   esac
  1354.   echo "Extracting patsend (with variable substitutions)"
  1355.   cat >patsend <<!GROK!THIS!
  1356. ! #!/usr/bin/perl
  1357. !         eval "exec /usr/bin/perl -S \$0 \$*"
  1358.                   if \$running_under_some_shell;
  1359.   
  1360. ! # $Header: patsend.SH,v 2.0 88/06/28 23:19:54 lwall Exp $
  1361.   #
  1362.   # $Log:    patsend.SH,v $
  1363.   # Revision 2.0  88/06/28  23:19:54  lwall
  1364.   # Baseline.
  1365.   # 
  1366. --- 17,32 ----
  1367.   esac
  1368.   echo "Extracting patsend (with variable substitutions)"
  1369.   cat >patsend <<!GROK!THIS!
  1370. ! #!$perlpath
  1371. !         eval "exec $perlpath -S \$0 \$*"
  1372.                   if \$running_under_some_shell;
  1373.   
  1374. ! # $Header: patsend.SH,v 2.0.1.1 88/08/05 00:30:17 lwall Exp $
  1375.   #
  1376.   # $Log:    patsend.SH,v $
  1377. + # Revision 2.0.1.1  88/08/05  00:30:17  lwall
  1378. + # patch1: now depends on perlpath
  1379. + # 
  1380.   # Revision 2.0  88/06/28  23:19:54  lwall
  1381.   # Baseline.
  1382.   # 
  1383. ***************
  1384. *** 90,107 ****
  1385.       $patnum = shift;
  1386.       open(XHEAD,">.xhead$$") || die "Can't create temp file.\n";
  1387.       print XHEAD
  1388. ! "Subject: $package $baserev patch #$patnum
  1389.   Organization: $orgname
  1390.   
  1391.   [The latest patch for $package version $baserev is #$maxnum.]
  1392.   
  1393.   ";
  1394. !     open(PATCH,"patch$patnum") || die "Can't open patch$_\n";
  1395.       while (<PATCH>) {
  1396.           print XHEAD;
  1397.       }
  1398.       close XHEAD;
  1399. !     system "/bin/mail $dest <.xhead$$";
  1400.   }
  1401.   unlink ".xhead$$";
  1402.   
  1403. --- 93,111 ----
  1404.       $patnum = shift;
  1405.       open(XHEAD,">.xhead$$") || die "Can't create temp file.\n";
  1406.       print XHEAD
  1407. ! "To: $dest
  1408. ! Subject: $package $baserev patch #$patnum
  1409.   Organization: $orgname
  1410.   
  1411.   [The latest patch for $package version $baserev is #$maxnum.]
  1412.   
  1413.   ";
  1414. !     open(PATCH,"patch$patnum") || die "Can't open patch$patnum\n";
  1415.       while (<PATCH>) {
  1416.           print XHEAD;
  1417.       }
  1418.       close XHEAD;
  1419. !     system "/usr/lib/sendmail -odq -t <.xhead$$";
  1420.   }
  1421.   unlink ".xhead$$";
  1422.   
  1423.  
  1424. Index: mcon/U/perlpath.U
  1425. *** mcon/U/perlpath.U.old    Fri Aug  5 00:55:39 1988
  1426. --- mcon/U/perlpath.U    Fri Aug  5 00:55:40 1988
  1427. ***************
  1428. *** 0 ****
  1429. --- 1,58 ----
  1430. + ?RCS:$Header: perlpath.U,v 2.0.1.1 88/08/05 00:50:43 lwall Exp $
  1431. + ?X: The purpose of this unit is to locate perl good enough to construct a #!
  1432. + ?RCS: $Log:    perlpath.U,v $
  1433. + ?RCS: Revision 2.0.1.1  88/08/05  00:50:43  lwall
  1434. + ?RCS: patch1: created
  1435. + ?RCS: 
  1436. + ?MAKE:perlpath: test echo n c Myread Oldconfig Loc perl
  1437. + ?MAKE:    -pick add $@ %*
  1438. + ?S:perlpath:
  1439. + ?S:    This variable contains the eventual value of the PERLPATH symbol,
  1440. + ?S:    which contains the absolute location of the perl interpeter.
  1441. + ?S:.
  1442. + ?C:PERLPATH:
  1443. + ?C:    This symbol contains the absolute location of the perl interpeter.
  1444. + ?C:.
  1445. + ?H:?%1:#define PERLPATH "$perlpath"        /**/
  1446. + ?H:?%1:
  1447. + : determine default editor
  1448. + case "$perlpath" in
  1449. + '')
  1450. +     if test -f /usr/bin/perl; then
  1451. +     dflt=/usr/bin/perl
  1452. +     else
  1453. +     case "$_perl" in
  1454. +     */*) dflt="$_perl";;
  1455. +     *) dflt=/usr/bin/perl;;
  1456. +     esac
  1457. +     fi
  1458. +     ;;
  1459. + *)  dflt="$perlpath"
  1460. +     ;;
  1461. + esac
  1462. + cont=true
  1463. + while $test "$cont" ; do
  1464. +     echo " "
  1465. +     rp="Where is perl located on your system? [$dflt]"
  1466. +     $echo $n "$rp $c"
  1467. +     . myread
  1468. +     perlpath="$ans"
  1469. +     case "$ans" in
  1470. +     /*) if test -f $ans; then
  1471. +         cont=''
  1472. +     else
  1473. +         dflt=n
  1474. +         rp="File $ans doesn't exist.  Use that name anyway? [$dflt]"
  1475. +         $echo $n "$rp $c"
  1476. +         . myread
  1477. +         dflt=''
  1478. +         case "$ans" in
  1479. +         y*) cont='';;
  1480. +         esac
  1481. +     fi
  1482. +     ;;
  1483. +     *) echo "Please use an absolute path name."
  1484. +     ;;
  1485. +     esac
  1486. + done
  1487. + 
  1488.  
  1489. Index: mcon/U/randbits.U
  1490. Prereq: 2.0
  1491. *** mcon/U/randbits.U.old    Fri Aug  5 00:55:43 1988
  1492. --- mcon/U/randbits.U    Fri Aug  5 00:55:43 1988
  1493. ***************
  1494. *** 1,9 ****
  1495. ! ?RCS:$Header: randbits.U,v 2.0 88/06/28 23:18:07 lwall Exp $
  1496.   ?RCS: $Log:    randbits.U,v $
  1497.   ?RCS: Revision 2.0  88/06/28  23:18:07  lwall
  1498.   ?RCS: Baseline.
  1499.   ?RCS: 
  1500. ! ?MAKE:randbits: cat rm Myread echo n c
  1501.   ?MAKE:    -pick add $@ %*
  1502.   ?S:randbits:
  1503.   ?S:    This variable contains the eventual value of the RANDBITS symbol,
  1504. --- 1,12 ----
  1505. ! ?RCS:$Header: randbits.U,v 2.0.1.1 88/08/05 00:24:40 lwall Exp $
  1506.   ?RCS: $Log:    randbits.U,v $
  1507. + ?RCS: Revision 2.0.1.1  88/08/05  00:24:40  lwall
  1508. + ?RCS: patch1: max wasn't initialized
  1509. + ?RCS: 
  1510.   ?RCS: Revision 2.0  88/06/28  23:18:07  lwall
  1511.   ?RCS: Baseline.
  1512.   ?RCS: 
  1513. ! ?MAKE:randbits: cat rm Myread echo n c cc
  1514.   ?MAKE:    -pick add $@ %*
  1515.   ?S:randbits:
  1516.   ?S:    This variable contains the eventual value of the RANDBITS symbol,
  1517. ***************
  1518. *** 27,33 ****
  1519.   {
  1520.       register int i;
  1521.       register unsigned long tmp;
  1522. !     register unsigned long max;
  1523.   
  1524.       for (i=1000; i; i--) {
  1525.       tmp = (unsigned long)rand();
  1526. --- 30,36 ----
  1527.   {
  1528.       register int i;
  1529.       register unsigned long tmp;
  1530. !     register unsigned long max = 0L;
  1531.   
  1532.       for (i=1000; i; i--) {
  1533.       tmp = (unsigned long)rand();
  1534. ***************
  1535. *** 38,44 ****
  1536.       printf("%d\n",i);
  1537.   }
  1538.   EOCP
  1539. !     if cc try.c -o try >/dev/null 2>&1 ; then
  1540.       dflt=`try`
  1541.       else
  1542.       dflt='?'
  1543. --- 41,47 ----
  1544.       printf("%d\n",i);
  1545.   }
  1546.   EOCP
  1547. !     if $cc try.c -o try >/dev/null 2>&1 ; then
  1548.       dflt=`try`
  1549.       else
  1550.       dflt='?'
  1551.  
  1552. Index: mcon/U/sunscanf.U
  1553. Prereq: 2.0
  1554. *** mcon/U/sunscanf.U.old    Fri Aug  5 00:55:46 1988
  1555. --- mcon/U/sunscanf.U    Fri Aug  5 00:55:47 1988
  1556. ***************
  1557. *** 1,9 ****
  1558. ! ?RCS:$Header: sunscanf.U,v 2.0 88/06/28 23:18:31 lwall Exp $
  1559.   ?RCS: $Log:    sunscanf.U,v $
  1560.   ?RCS:Revision 2.0  88/06/28  23:18:31  lwall
  1561.   ?RCS:Baseline.
  1562.   ?RCS:
  1563. ! ?MAKE:sunscanf: cat rm Myread echo n c
  1564.   ?MAKE:    -pick add $@ %*
  1565.   ?S:sunscanf:
  1566.   ?S:    This variable is set if this system runs with the Sun version
  1567. --- 1,12 ----
  1568. ! ?RCS:$Header: sunscanf.U,v 2.0.1.1 88/08/05 00:25:24 lwall Exp $
  1569.   ?RCS: $Log:    sunscanf.U,v $
  1570. + ?RCS:Revision 2.0.1.1  88/08/05  00:25:24  lwall
  1571. + ?RCS:patch1: made depend on cc
  1572. + ?RCS:
  1573.   ?RCS:Revision 2.0  88/06/28  23:18:31  lwall
  1574.   ?RCS:Baseline.
  1575.   ?RCS:
  1576. ! ?MAKE:sunscanf: cat rm Myread echo n c cc
  1577.   ?MAKE:    -pick add $@ %*
  1578.   ?S:sunscanf:
  1579.   ?S:    This variable is set if this system runs with the Sun version
  1580. ***************
  1581. *** 27,33 ****
  1582.           printf("%d\n",value==4.5);
  1583.   }
  1584.   EOCP
  1585. ! if cc scanf.c -o scanf >/dev/null 2>&1 ; then
  1586.       $echo " "
  1587.       if $test `scanf` = 0; then
  1588.           $echo "Hmm.. seems your not running the USG flavor.."
  1589. --- 30,36 ----
  1590.           printf("%d\n",value==4.5);
  1591.   }
  1592.   EOCP
  1593. ! if $cc scanf.c -o scanf >/dev/null 2>&1 ; then
  1594.       $echo " "
  1595.       if $test `scanf` = 0; then
  1596.           $echo "Hmm.. seems your not running the USG flavor.."
  1597.  
  1598. Index: mcon/U/voidflags.U
  1599. Prereq: 2.0
  1600. *** mcon/U/voidflags.U.old    Fri Aug  5 00:55:50 1988
  1601. --- mcon/U/voidflags.U    Fri Aug  5 00:55:51 1988
  1602. ***************
  1603. *** 1,9 ****
  1604. ! ?RCS:$Header: voidflags.U,v 2.0 88/06/28 23:18:38 lwall Exp $
  1605.   ?RCS: $Log:    voidflags.U,v $
  1606.   ?RCS: Revision 2.0  88/06/28  23:18:38  lwall
  1607.   ?RCS: Baseline.
  1608.   ?RCS: 
  1609. ! ?MAKE:voidflags defvoidused: echo n c cat rm contains
  1610.   ?MAKE:    -pick add $@ %*
  1611.   ?S:voidflags:
  1612.   ?S:    This variable contains the eventual value of the VOIDFLAGS symbol,
  1613. --- 1,12 ----
  1614. ! ?RCS:$Header: voidflags.U,v 2.0.1.1 88/08/05 00:26:03 lwall Exp $
  1615.   ?RCS: $Log:    voidflags.U,v $
  1616. + ?RCS: Revision 2.0.1.1  88/08/05  00:26:03  lwall
  1617. + ?RCS: patch1: fixed a few bugs
  1618. + ?RCS: 
  1619.   ?RCS: Revision 2.0  88/06/28  23:18:38  lwall
  1620.   ?RCS: Baseline.
  1621.   ?RCS: 
  1622. ! ?MAKE:voidflags defvoidused: echo n c cat rm contains cc
  1623.   ?MAKE:    -pick add $@ %*
  1624.   ?S:voidflags:
  1625.   ?S:    This variable contains the eventual value of the VOIDFLAGS symbol,
  1626. ***************
  1627. *** 22,27 ****
  1628. --- 25,31 ----
  1629.   ?C:    The package designer should define VOIDUSED to indicate the requirements
  1630.   ?C:    of the package.  This can be done either by #defining VOIDUSED before
  1631.   ?C:    including config.h, or by defining defvoidused in Myinit.U.  If the
  1632. + ?C:    latter approach is taken, only those flags will be tested.  If the
  1633.   ?C:    level of void support necessary is not present, defines void to int.
  1634.   ?C:.
  1635.   ?H:?%1:#ifndef VOIDUSED
  1636. ***************
  1637. *** 53,66 ****
  1638.   #else
  1639.   main() {
  1640.   #endif
  1641. !     extern void *moo();
  1642. !     void *(*goo)();
  1643.   #if TRY & 2
  1644.       void (*foo[10])();
  1645.   #endif
  1646.   
  1647.   #if TRY & 4
  1648. !     if(*goo == moo) {
  1649.           exit(0);
  1650.       }
  1651.   #endif
  1652. --- 57,70 ----
  1653.   #else
  1654.   main() {
  1655.   #endif
  1656. !     extern void moo();    /* function returning void */
  1657. !     void (*goo)();        /* ptr to func returning void */
  1658.   #if TRY & 2
  1659.       void (*foo[10])();
  1660.   #endif
  1661.   
  1662.   #if TRY & 4
  1663. !     if(goo == moo) {
  1664.           exit(0);
  1665.       }
  1666.   #endif
  1667. ***************
  1668. *** 67,89 ****
  1669.       exit(0);
  1670.   }
  1671.   EOCP
  1672. !     if cc -S -DTRY=7 try.c >.out 2>&1 ; then
  1673. !     voidflags=7
  1674. !     echo "It appears to support void fully."
  1675.       if $contains warning .out >/dev/null 2>&1; then
  1676.           echo "However, you might get some warnings that look like this:"
  1677.           $cat .out
  1678.       fi
  1679.       else
  1680. !     echo "Hmm, you compiler has some difficulty with void.  Checking further..."
  1681. !     if cc -S -DTRY=1 try.c >/dev/null 2>&1 ; then
  1682.           echo "It supports 1..."
  1683. !         if cc -S -DTRY=3 try.c >/dev/null 2>&1 ; then
  1684.           voidflags=3
  1685.           echo "And it supports 2 but not 4."
  1686.           else
  1687.           echo "It doesn't support 2..."
  1688. !         if cc -S -DTRY=3 try.c >/dev/null 2>&1 ; then
  1689.               voidflags=5
  1690.               echo "But it supports 4."
  1691.           else
  1692. --- 71,93 ----
  1693.       exit(0);
  1694.   }
  1695.   EOCP
  1696. !     if $cc -S -DTRY=$defvoidused try.c >.out 2>&1 ; then
  1697. !     voidflags=$defvoidused
  1698. !     echo "It appears to support void."
  1699.       if $contains warning .out >/dev/null 2>&1; then
  1700.           echo "However, you might get some warnings that look like this:"
  1701.           $cat .out
  1702.       fi
  1703.       else
  1704. !     echo "Hmm, your compiler has some difficulty with void.  Checking further..."
  1705. !     if $cc -S -DTRY=1 try.c >/dev/null 2>&1 ; then
  1706.           echo "It supports 1..."
  1707. !         if $cc -S -DTRY=3 try.c >/dev/null 2>&1 ; then
  1708.           voidflags=3
  1709.           echo "And it supports 2 but not 4."
  1710.           else
  1711.           echo "It doesn't support 2..."
  1712. !         if $cc -S -DTRY=5 try.c >/dev/null 2>&1 ; then
  1713.               voidflags=5
  1714.               echo "But it supports 4."
  1715.           else
  1716.  
  1717.