home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume20 / perl / patch05 < prev    next >
Encoding:
Text File  |  1991-06-19  |  50.8 KB  |  2,001 lines
  1. Newsgroups: comp.sources.misc
  2. From: Larry Wall <lwall@netlabs.com>
  3. Subject:  v20i057:  perl - The perl programming language, Patch05
  4. Message-ID: <1991Jun20.030423.8601@sparky.IMD.Sterling.COM>
  5. X-Md4-Signature: bbf43d3f808ca91ba3e3a2f3a38761b7
  6. Date: Thu, 20 Jun 1991 03:04:23 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: Larry Wall <lwall@netlabs.com>
  10. Posting-number: Volume 20, Issue 57
  11. Archive-name: perl/patch05
  12. Patch-To: perl: Volume 18, Issue 19-54
  13.  
  14. System: perl version 4.0
  15. Patch #: 5
  16. Priority: High
  17. Subject: patch #4, continued
  18.  
  19. Description:
  20.     See patch #4.
  21.  
  22. Fix:    From rn, say "| patch -p -N -d DIR", where DIR is your perl source
  23.     directory.  Outside of rn, say "cd DIR; patch -p -N <thisarticle".
  24.     If you don't have the patch program, apply the following by hand,
  25.     or get patch (version 2.0, latest patchlevel).
  26.  
  27.     After patching:
  28.         *** DO NOTHING--INSTALL ALL PATCHES UP THROUGH #09 FIRST ***
  29.  
  30.     If patch indicates that patchlevel is the wrong version, you may need
  31.     to apply one or more previous patches, or the patch may already
  32.     have been applied.  See the patchlevel.h file to find out what has or
  33.     has not been applied.  In any event, don't continue with the patch.
  34.  
  35.     If you are missing previous patches they can be obtained from me:
  36.  
  37.     Larry Wall
  38.     lwall@netlabs.com
  39.  
  40.     If you send a mail message of the following form it will greatly speed
  41.     processing:
  42.  
  43.     Subject: Command
  44.     @SH mailpatch PATH perl 4.0 LIST
  45.            ^ note the c
  46.  
  47.     where PATH is a return path FROM ME TO YOU either in Internet notation,
  48.     or in bang notation from some well-known host, and LIST is the number
  49.     of one or more patches you need, separated by spaces, commas, and/or
  50.     hyphens.  Saying 35- says everything from 35 to the end.
  51.  
  52.  
  53. Index: patchlevel.h
  54. Prereq: 4
  55. 1c1
  56. < #define PATCHLEVEL 4
  57. ---
  58. > #define PATCHLEVEL 5
  59.  
  60. Index: t/TEST
  61. Prereq: 4.0
  62. *** t/TEST.old    Fri Jun  7 12:27:03 1991
  63. --- t/TEST    Fri Jun  7 12:27:03 1991
  64. ***************
  65. *** 1,6 ****
  66.   #!./perl
  67.   
  68. ! # $Header: TEST,v 4.0 91/03/20 01:40:22 lwall Locked $
  69.   
  70.   # This is written in a peculiar style, since we're trying to avoid
  71.   # most of the constructs we'll be testing for.
  72. --- 1,6 ----
  73.   #!./perl
  74.   
  75. ! # $RCSfile: TEST,v $$Revision: 4.0.1.1 $$Date: 91/06/07 11:59:30 $
  76.   
  77.   # This is written in a peculiar style, since we're trying to avoid
  78.   # most of the constructs we'll be testing for.
  79. ***************
  80. *** 56,61 ****
  81. --- 56,63 ----
  82.       unless (/^#/) {
  83.           if (/^1\.\.([0-9]+)/) {
  84.           $max = $1;
  85. +         $totmax += $max;
  86. +         $files += 1;
  87.           $next = 1;
  88.           $ok = 1;
  89.           } else {
  90. ***************
  91. *** 96,99 ****
  92.       }
  93.   }
  94.   ($user,$sys,$cuser,$csys) = times;
  95. ! print sprintf("u=%g  s=%g  cu=%g  cs=%g\n",$user,$sys,$cuser,$csys);
  96. --- 98,102 ----
  97.       }
  98.   }
  99.   ($user,$sys,$cuser,$csys) = times;
  100. ! print sprintf("u=%g  s=%g  cu=%g  cs=%g  files=%d  tests=%d\n",
  101. !     $user,$sys,$cuser,$csys,$files,$totmax);
  102.  
  103. Index: x2p/a2p.h
  104. Prereq: 4.0
  105. *** x2p/a2p.h.old    Fri Jun  7 12:27:43 1991
  106. --- x2p/a2p.h    Fri Jun  7 12:27:44 1991
  107. ***************
  108. *** 1,11 ****
  109. ! /* $Header: a2p.h,v 4.0 91/03/20 01:57:07 lwall Locked $
  110.    *
  111. !  *    Copyright (c) 1989, Larry Wall
  112.    *
  113. !  *    You may distribute under the terms of the GNU General Public License
  114. !  *    as specified in the README file that comes with the perl 3.0 kit.
  115.    *
  116.    * $Log:    a2p.h,v $
  117.    * Revision 4.0  91/03/20  01:57:07  lwall
  118.    * 4.0 baseline.
  119.    * 
  120. --- 1,14 ----
  121. ! /* $RCSfile: a2p.h,v $$Revision: 4.0.1.1 $$Date: 91/06/07 12:12:27 $
  122.    *
  123. !  *    Copyright (c) 1991, Larry Wall
  124.    *
  125. !  *    You may distribute under the terms of either the GNU General Public
  126. !  *    License or the Artistic License, as specified in the README file.
  127.    *
  128.    * $Log:    a2p.h,v $
  129. +  * Revision 4.0.1.1  91/06/07  12:12:27  lwall
  130. +  * patch4: new copyright notice
  131. +  * 
  132.    * Revision 4.0  91/03/20  01:57:07  lwall
  133.    * 4.0 baseline.
  134.    * 
  135.  
  136. Index: x2p/a2p.y
  137. Prereq: 4.0
  138. *** x2p/a2p.y.old    Fri Jun  7 12:27:47 1991
  139. --- x2p/a2p.y    Fri Jun  7 12:27:47 1991
  140. ***************
  141. *** 1,12 ****
  142.   %{
  143. ! /* $Header: a2p.y,v 4.0 91/03/20 01:57:21 lwall Locked $
  144.    *
  145. !  *    Copyright (c) 1989, Larry Wall
  146.    *
  147. !  *    You may distribute under the terms of the GNU General Public License
  148. !  *    as specified in the README file that comes with the perl 3.0 kit.
  149.    *
  150.    * $Log:    a2p.y,v $
  151.    * Revision 4.0  91/03/20  01:57:21  lwall
  152.    * 4.0 baseline.
  153.    * 
  154. --- 1,15 ----
  155.   %{
  156. ! /* $RCSfile: a2p.y,v $$Revision: 4.0.1.1 $$Date: 91/06/07 12:12:41 $
  157.    *
  158. !  *    Copyright (c) 1991, Larry Wall
  159.    *
  160. !  *    You may distribute under the terms of either the GNU General Public
  161. !  *    License or the Artistic License, as specified in the README file.
  162.    *
  163.    * $Log:    a2p.y,v $
  164. +  * Revision 4.0.1.1  91/06/07  12:12:41  lwall
  165. +  * patch4: new copyright notice
  166. +  * 
  167.    * Revision 4.0  91/03/20  01:57:21  lwall
  168.    * 4.0 baseline.
  169.    * 
  170.  
  171. Index: x2p/a2py.c
  172. Prereq: 4.0
  173. *** x2p/a2py.c.old    Fri Jun  7 12:27:50 1991
  174. --- x2p/a2py.c    Fri Jun  7 12:27:51 1991
  175. ***************
  176. *** 1,11 ****
  177. ! /* $Header: a2py.c,v 4.0 91/03/20 01:57:26 lwall Locked $
  178.    *
  179. !  *    Copyright (c) 1989, Larry Wall
  180.    *
  181. !  *    You may distribute under the terms of the GNU General Public License
  182. !  *    as specified in the README file that comes with the perl 3.0 kit.
  183.    *
  184.    * $Log:    a2py.c,v $
  185.    * Revision 4.0  91/03/20  01:57:26  lwall
  186.    * 4.0 baseline.
  187.    * 
  188. --- 1,14 ----
  189. ! /* $RCSfile: a2py.c,v $$Revision: 4.0.1.1 $$Date: 91/06/07 12:12:59 $
  190.    *
  191. !  *    Copyright (c) 1991, Larry Wall
  192.    *
  193. !  *    You may distribute under the terms of either the GNU General Public
  194. !  *    License or the Artistic License, as specified in the README file.
  195.    *
  196.    * $Log:    a2py.c,v $
  197. +  * Revision 4.0.1.1  91/06/07  12:12:59  lwall
  198. +  * patch4: new copyright notice
  199. +  * 
  200.    * Revision 4.0  91/03/20  01:57:26  lwall
  201.    * 4.0 baseline.
  202.    * 
  203.  
  204. Index: hints/aix_rs.sh
  205. *** hints/aix_rs.sh.old    Fri Jun  7 12:24:20 1991
  206. --- hints/aix_rs.sh    Fri Jun  7 12:24:20 1991
  207. ***************
  208. *** 1 ****
  209. ! optimize='-g'
  210. --- 1,4 ----
  211. ! eval_cflags='optimize="-g"'
  212. ! toke_cflags='optimize="-g"'
  213. ! teval_cflags='optimize="-g"'
  214. ! ttoke_cflags='optimize="-g"'; cflags="$cflags -D_NO_PROTO"
  215.  
  216. Index: hints/apollo_C6_7.sh
  217. *** hints/apollo_C6_7.sh.old    Fri Jun  7 12:24:22 1991
  218. --- hints/apollo_C6_7.sh    Fri Jun  7 12:24:23 1991
  219. ***************
  220. *** 1 ****
  221. --- 1,4 ----
  222.   optimize='-opt 2'
  223. + cflags='-A nansi cpu,mathchip -O -U__STDC__'
  224. + echo "Some tests may fail unless you use 'chacl -B'.  Also, op/stat"
  225. + echo "test 2 may fail because Apollo doesn't support mtime or ctime."
  226.  
  227. Index: arg.h
  228. Prereq: 4.0
  229. *** arg.h.old    Fri Jun  7 12:22:41 1991
  230. --- arg.h    Fri Jun  7 12:22:42 1991
  231. ***************
  232. *** 1,11 ****
  233. ! /* $Header: arg.h,v 4.0 91/03/20 01:03:09 lwall Locked $
  234.    *
  235. !  *    Copyright (c) 1989, Larry Wall
  236.    *
  237. !  *    You may distribute under the terms of the GNU General Public License
  238. !  *    as specified in the README file that comes with the perl 3.0 kit.
  239.    *
  240.    * $Log:    arg.h,v $
  241.    * Revision 4.0  91/03/20  01:03:09  lwall
  242.    * 4.0 baseline.
  243.    * 
  244. --- 1,16 ----
  245. ! /* $RCSfile: arg.h,v $$Revision: 4.0.1.1 $$Date: 91/06/07 10:18:30 $
  246.    *
  247. !  *    Copyright (c) 1991, Larry Wall
  248.    *
  249. !  *    You may distribute under the terms of either the GNU General Public
  250. !  *    License or the Artistic License, as specified in the README file.
  251.    *
  252.    * $Log:    arg.h,v $
  253. +  * Revision 4.0.1.1  91/06/07  10:18:30  lwall
  254. +  * patch4: length($`), length($&), length($') now optimized to avoid string copy
  255. +  * patch4: new copyright notice
  256. +  * patch4: many, many itty-bitty portability fixes
  257. +  * 
  258.    * Revision 4.0  91/03/20  01:03:09  lwall
  259.    * 4.0 baseline.
  260.    * 
  261. ***************
  262. *** 270,276 ****
  263.   #define O_SGRENT 256
  264.   #define O_EGRENT 257
  265.   #define O_GETLOGIN 258
  266. ! #define O_OPENDIR 259
  267.   #define O_READDIR 260
  268.   #define O_TELLDIR 261
  269.   #define O_SEEKDIR 262
  270. --- 275,281 ----
  271.   #define O_SGRENT 256
  272.   #define O_EGRENT 257
  273.   #define O_GETLOGIN 258
  274. ! #define O_OPEN_DIR 259
  275.   #define O_READDIR 260
  276.   #define O_TELLDIR 261
  277.   #define O_SEEKDIR 262
  278. ***************
  279. *** 576,581 ****
  280. --- 581,587 ----
  281.   #define A_STAR 18
  282.   #define A_LSTAR 19
  283.   #define A_WANTARRAY 20
  284. + #define A_LENSTAB 21
  285.   
  286.   #define A_MASK 31
  287.   #define A_DONT 32        /* or this into type to suppress evaluation */
  288. ***************
  289. *** 605,611 ****
  290.       "STAR",
  291.       "LSTAR",
  292.       "WANTARRAY",
  293. !     "21"
  294.   };
  295.   #endif
  296.   
  297. --- 611,618 ----
  298.       "STAR",
  299.       "LSTAR",
  300.       "WANTARRAY",
  301. !     "LENSTAB",
  302. !     "22"
  303.   };
  304.   #endif
  305.   
  306. ***************
  307. *** 634,639 ****
  308. --- 641,647 ----
  309.      1,    /* STAR */
  310.      1,    /* LSTAR */
  311.      1,    /* WANTARRAY */
  312. +    0,    /* LENSTAB */
  313.      0,    /* 21 */
  314.   };
  315.   #endif
  316.  
  317. Index: array.c
  318. Prereq: 4.0
  319. *** array.c.old    Fri Jun  7 12:22:44 1991
  320. --- array.c    Fri Jun  7 12:22:45 1991
  321. ***************
  322. *** 1,11 ****
  323. ! /* $Header: array.c,v 4.0 91/03/20 01:03:32 lwall Locked $
  324.    *
  325. !  *    Copyright (c) 1989, Larry Wall
  326.    *
  327. !  *    You may distribute under the terms of the GNU General Public License
  328. !  *    as specified in the README file that comes with the perl 3.0 kit.
  329.    *
  330.    * $Log:    array.c,v $
  331.    * Revision 4.0  91/03/20  01:03:32  lwall
  332.    * 4.0 baseline.
  333.    * 
  334. --- 1,14 ----
  335. ! /* $RCSfile: array.c,v $$Revision: 4.0.1.1 $$Date: 91/06/07 10:19:08 $
  336.    *
  337. !  *    Copyright (c) 1991, Larry Wall
  338.    *
  339. !  *    You may distribute under the terms of either the GNU General Public
  340. !  *    License or the Artistic License, as specified in the README file.
  341.    *
  342.    * $Log:    array.c,v $
  343. +  * Revision 4.0.1.1  91/06/07  10:19:08  lwall
  344. +  * patch4: new copyright notice
  345. +  * 
  346.    * Revision 4.0  91/03/20  01:03:32  lwall
  347.    * 4.0 baseline.
  348.    * 
  349.  
  350. Index: array.h
  351. Prereq: 4.0
  352. *** array.h.old    Fri Jun  7 12:22:47 1991
  353. --- array.h    Fri Jun  7 12:22:48 1991
  354. ***************
  355. *** 1,11 ****
  356. ! /* $Header: array.h,v 4.0 91/03/20 01:03:44 lwall Locked $
  357.    *
  358. !  *    Copyright (c) 1989, Larry Wall
  359.    *
  360. !  *    You may distribute under the terms of the GNU General Public License
  361. !  *    as specified in the README file that comes with the perl 3.0 kit.
  362.    *
  363.    * $Log:    array.h,v $
  364.    * Revision 4.0  91/03/20  01:03:44  lwall
  365.    * 4.0 baseline.
  366.    * 
  367. --- 1,14 ----
  368. ! /* $RCSfile: array.h,v $$Revision: 4.0.1.1 $$Date: 91/06/07 10:19:20 $
  369.    *
  370. !  *    Copyright (c) 1991, Larry Wall
  371.    *
  372. !  *    You may distribute under the terms of either the GNU General Public
  373. !  *    License or the Artistic License, as specified in the README file.
  374.    *
  375.    * $Log:    array.h,v $
  376. +  * Revision 4.0.1.1  91/06/07  10:19:20  lwall
  377. +  * patch4: new copyright notice
  378. +  * 
  379.    * Revision 4.0  91/03/20  01:03:44  lwall
  380.    * 4.0 baseline.
  381.    * 
  382.  
  383. Index: hints/aux.sh
  384. *** hints/aux.sh.old    Fri Jun  7 12:24:25 1991
  385. --- hints/aux.sh    Fri Jun  7 12:24:26 1991
  386. ***************
  387. *** 1,2 ****
  388.   optimize='-O'
  389. ! ccflags="$ccflags -B/usr/lib/bin/'
  390. --- 1,2 ----
  391.   optimize='-O'
  392. ! ccflags="$ccflags -B/usr/lib/big/ -DPARAM_NEEDS_TYPES"
  393.  
  394. Index: cflags.SH
  395. *** cflags.SH.old    Fri Jun  7 12:22:50 1991
  396. --- cflags.SH    Fri Jun  7 12:22:50 1991
  397. ***************
  398. *** 5,80 ****
  399.       ln ../../config.sh . || \
  400.       ln ../../../config.sh . || \
  401.       (echo "Can't find config.sh."; exit 1)
  402. !     fi 2>/dev/null
  403. !     . ./config.sh
  404.       ;;
  405.   esac
  406.   case "$0" in
  407.   */*) cd `expr X$0 : 'X\(.*\)/'` ;;
  408.   esac
  409.   
  410.   also=': '
  411.   case $# in
  412. ! 1) also='echo 1>&2 "      CFLAGS = "'
  413.   esac
  414.   
  415.   case $# in
  416.   0) set *.c; echo "The current C flags are:" ;;
  417. - *) set `echo "$* " | sed 's/\.o /.c /g'`
  418.   esac
  419.   for file do
  420.   
  421.       case "$#" in
  422.       1) ;;
  423. !     *) echo $n "    $file    $c" ;;
  424.       esac
  425.   
  426.       case "$file" in
  427. !     array.c) ;;
  428. !     cmd.c) ;;
  429. !     cons.c) ;;
  430. !     consarg.c) ;;
  431. !     doarg.c) ;;
  432. !     doio.c) ;;
  433. !     dolist.c) ;;
  434. !     dump.c) ;;
  435. !     eval.c) ;;
  436. !     form.c) ;;
  437. !     hash.c) ;;
  438. !     malloc.c) ;;
  439. !     perl.c) ;;
  440. !     perly.c) ;;
  441. !     regcomp.c) ;;
  442. !     regexec.c) ;;
  443. !     stab.c) ;;
  444. !     str.c) ;;
  445. !     toke.c) ;;
  446. !     usersub.c) ;;
  447. !     util.c) ;;
  448. !     tarray.c) ;;
  449. !     tcmd.c) ;;
  450. !     tcons.c) ;;
  451. !     tconsarg.c) ;;
  452. !     tdoarg.c) ;;
  453. !     tdoio.c) ;;
  454. !     tdolist.c) ;;
  455. !     tdump.c) ;;
  456. !     teval.c) ;;
  457. !     tform.c) ;;
  458. !     thash.c) ;;
  459. !     tmalloc.c) ;;
  460. !     tperl.c) ;;
  461. !     tperly.c) ;;
  462. !     tregcomp.c) ;;
  463. !     tregexec.c) ;;
  464. !     tstab.c) ;;
  465. !     tstr.c) ;;
  466. !     ttoke.c) ;;
  467. !     tusersub.c) ;;
  468. !     tutil.c) ;;
  469.       *) ;;
  470.       esac
  471.   
  472. !     echo "$ccflags $optimize $large $split"
  473. !     eval "$also $ccflags $optimize $large $split"
  474.   done
  475. --- 5,120 ----
  476.       ln ../../config.sh . || \
  477.       ln ../../../config.sh . || \
  478.       (echo "Can't find config.sh."; exit 1)
  479. !     fi
  480. !     . config.sh
  481.       ;;
  482.   esac
  483. + : This forces SH files to create target in same directory as SH file.
  484. + : This is so that make depend always knows where to find SH derivatives.
  485.   case "$0" in
  486.   */*) cd `expr X$0 : 'X\(.*\)/'` ;;
  487.   esac
  488. + echo "Extracting cflags (with variable substitutions)"
  489. + : This section of the file will have variable substitutions done on it.
  490. + : Move anything that needs config subs from !NO!SUBS! section to !GROK!THIS!.
  491. + : Protect any dollar signs and backticks that you do not want interpreted
  492. + : by putting a backslash in front.  You may delete these comments.
  493. + $spitshell >cflags <<!GROK!THIS!
  494. + !GROK!THIS!
  495.   
  496. + : In the following dollars and backticks do not need the extra backslash.
  497. + $spitshell >>cflags <<'!NO!SUBS!'
  498. + case "$0" in
  499. + */*) cd `expr X$0 : 'X\(.*\)/'` ;;
  500. + esac
  501. + case $CONFIG in
  502. + '')
  503. +     if test ! -f config.sh; then
  504. +     ln ../config.sh . || \
  505. +     ln ../../config.sh . || \
  506. +     ln ../../../config.sh . || \
  507. +     (echo "Can't find config.sh."; exit 1)
  508. +     fi 2>/dev/null
  509. +     . ./config.sh
  510. +     ;;
  511. + esac
  512. + 
  513.   also=': '
  514.   case $# in
  515. ! 1) also='echo 1>&2 "      CCCMD = "'
  516.   esac
  517.   
  518.   case $# in
  519.   0) set *.c; echo "The current C flags are:" ;;
  520.   esac
  521. + 
  522. + set `echo "$* " | sed 's/\.[oc] / /g'`
  523. + 
  524.   for file do
  525.   
  526.       case "$#" in
  527.       1) ;;
  528. !     *) echo $n "    $file.c    $c" ;;
  529.       esac
  530.   
  531. +     : allow variables like toke_cflags to be evaluated
  532. + 
  533. +     eval 'eval ${'"${file}_cflags"'-""}'
  534. + 
  535. +     : or customize here
  536. + 
  537.       case "$file" in
  538. !     array) ;;
  539. !     cmd) ;;
  540. !     cons) ;;
  541. !     consarg) ;;
  542. !     doarg) ;;
  543. !     doio) ;;
  544. !     dolist) ;;
  545. !     dump) ;;
  546. !     eval) ;;
  547. !     form) ;;
  548. !     hash) ;;
  549. !     malloc) ;;
  550. !     perl) ;;
  551. !     perly) ;;
  552. !     regcomp) ;;
  553. !     regexec) ;;
  554. !     stab) ;;
  555. !     str) ;;
  556. !     toke) ;;
  557. !     usersub) ;;
  558. !     util) ;;
  559. !     tarray) ;;
  560. !     tcmd) ;;
  561. !     tcons) ;;
  562. !     tconsarg) ;;
  563. !     tdoarg) ;;
  564. !     tdoio) ;;
  565. !     tdolist) ;;
  566. !     tdump) ;;
  567. !     teval) ;;
  568. !     tform) ;;
  569. !     thash) ;;
  570. !     tmalloc) ;;
  571. !     tperl) ;;
  572. !     tperly) ;;
  573. !     tregcomp) ;;
  574. !     tregexec) ;;
  575. !     tstab) ;;
  576. !     tstr) ;;
  577. !     ttoke) ;;
  578. !     tusersub) ;;
  579. !     tutil) ;;
  580.       *) ;;
  581.       esac
  582.   
  583. !     echo "$cc -c $ccflags $optimize $large $split"
  584. !     eval "$also "'"$cc -c $ccflags $optimize $large $split"'
  585. ! 
  586. !     . ./config.sh
  587. ! 
  588.   done
  589. + !NO!SUBS!
  590. + chmod +x cflags
  591. + $eunicefix cflags
  592.  
  593. Index: x2p/cflags.SH
  594. *** x2p/cflags.SH.old    Fri Jun  7 12:27:53 1991
  595. --- x2p/cflags.SH    Fri Jun  7 12:27:54 1991
  596. ***************
  597. *** 0 ****
  598. --- 1,84 ----
  599. + case $CONFIG in
  600. + '')
  601. +     if test ! -f config.sh; then
  602. +     ln ../config.sh . || \
  603. +     ln ../../config.sh . || \
  604. +     ln ../../../config.sh . || \
  605. +     (echo "Can't find config.sh."; exit 1)
  606. +     fi
  607. +     . config.sh
  608. +     ;;
  609. + esac
  610. + : This forces SH files to create target in same directory as SH file.
  611. + : This is so that make depend always knows where to find SH derivatives.
  612. + case "$0" in
  613. + */*) cd `expr X$0 : 'X\(.*\)/'` ;;
  614. + esac
  615. + echo "Extracting cflags (with variable substitutions)"
  616. + : This section of the file will have variable substitutions done on it.
  617. + : Move anything that needs config subs from !NO!SUBS! section to !GROK!THIS!.
  618. + : Protect any dollar signs and backticks that you do not want interpreted
  619. + : by putting a backslash in front.  You may delete these comments.
  620. + $spitshell >cflags <<!GROK!THIS!
  621. + !GROK!THIS!
  622. + 
  623. + : In the following dollars and backticks do not need the extra backslash.
  624. + $spitshell >>cflags <<'!NO!SUBS!'
  625. + case "$0" in
  626. + */*) cd `expr X$0 : 'X\(.*\)/'` ;;
  627. + esac
  628. + case $CONFIG in
  629. + '')
  630. +     if test ! -f config.sh; then
  631. +     ln ../config.sh . || \
  632. +     ln ../../config.sh . || \
  633. +     ln ../../../config.sh . || \
  634. +     (echo "Can't find config.sh."; exit 1)
  635. +     fi 2>/dev/null
  636. +     . ./config.sh
  637. +     ;;
  638. + esac
  639. + 
  640. + also=': '
  641. + case $# in
  642. + 1) also='echo 1>&2 "      CCCMD = "'
  643. + esac
  644. + 
  645. + case $# in
  646. + 0) set *.c; echo "The current C flags are:" ;;
  647. + esac
  648. + 
  649. + set `echo "$* " | sed 's/\.[oc] / /g'`
  650. + 
  651. + for file do
  652. + 
  653. +     case "$#" in
  654. +     1) ;;
  655. +     *) echo $n "    $file.c    $c" ;;
  656. +     esac
  657. + 
  658. +     : allow variables like str_cflags to be evaluated
  659. + 
  660. +     eval 'eval ${'"${file}_cflags"'-""}'
  661. + 
  662. +     : or customize here
  663. + 
  664. +     case "$file" in
  665. +     a2p) ;;
  666. +     a2py) ;;
  667. +     hash) ;;
  668. +     str) ;;
  669. +     util) ;;
  670. +     walk) ;;
  671. +     *) ;;
  672. +     esac
  673. + 
  674. +     echo "$cc -c $ccflags $optimize $large $split"
  675. +     eval "$also "'"$cc -c $ccflags $optimize $large $split"'
  676. + 
  677. +     . ./config.sh
  678. + 
  679. + done
  680. + !NO!SUBS!
  681. + chmod +x cflags
  682. + $eunicefix cflags
  683.  
  684. Index: msdos/chdir.c
  685. *** msdos/chdir.c.old    Fri Jun  7 12:25:32 1991
  686. --- msdos/chdir.c    Fri Jun  7 12:25:33 1991
  687. ***************
  688. *** 1,8 ****
  689.   /*
  690.    *    (C) Copyright 1990, 1991 Tom Dinger
  691.    *
  692. !  *    You may distribute under the terms of the GNU General Public License
  693. !  *    as specified in the README file that comes with the perl 4.0 kit.
  694.    *
  695.    */
  696.   
  697. --- 1,8 ----
  698.   /*
  699.    *    (C) Copyright 1990, 1991 Tom Dinger
  700.    *
  701. !  *    You may distribute under the terms of either the GNU General Public
  702. !  *    License or the Artistic License, as specified in the README file.
  703.    *
  704.    */
  705.   
  706.  
  707. Index: cmd.c
  708. *** cmd.c.old    Fri Jun  7 12:22:53 1991
  709. --- cmd.c    Fri Jun  7 12:22:55 1991
  710. ***************
  711. *** 1,11 ****
  712. ! /* $RCSfile: cmd.c,v $$Revision: 4.0.1.1 $$Date: 91/04/11 17:36:16 $
  713.    *
  714. !  *    Copyright (c) 1989, Larry Wall
  715.    *
  716. !  *    You may distribute under the terms of the GNU General Public License
  717. !  *    as specified in the README file that comes with the perl 3.0 kit.
  718.    *
  719.    * $Log:    cmd.c,v $
  720.    * Revision 4.0.1.1  91/04/11  17:36:16  lwall
  721.    * patch1: you may now use "die" and "caller" in a signal handler
  722.    * 
  723. --- 1,15 ----
  724. ! /* $RCSfile: cmd.c,v $$Revision: 4.0.1.2 $$Date: 91/06/07 10:26:45 $
  725.    *
  726. !  *    Copyright (c) 1991, Larry Wall
  727.    *
  728. !  *    You may distribute under the terms of either the GNU General Public
  729. !  *    License or the Artistic License, as specified in the README file.
  730.    *
  731.    * $Log:    cmd.c,v $
  732. +  * Revision 4.0.1.2  91/06/07  10:26:45  lwall
  733. +  * patch4: new copyright notice
  734. +  * patch4: made some allowances for "semi-standard" C
  735. +  * 
  736.    * Revision 4.0.1.1  91/04/11  17:36:16  lwall
  737.    * patch1: you may now use "die" and "caller" in a signal handler
  738.    * 
  739. ***************
  740. *** 27,33 ****
  741.   
  742.   /* do longjmps() clobber register variables? */
  743.   
  744. ! #if defined(cray) || defined(__STDC__)
  745.   #define JMPCLOBBER
  746.   #endif
  747.   
  748. --- 31,37 ----
  749.   
  750.   /* do longjmps() clobber register variables? */
  751.   
  752. ! #if defined(cray) || defined(STANDARD_C)
  753.   #define JMPCLOBBER
  754.   #endif
  755.   
  756.  
  757. Index: cmd.h
  758. Prereq: 4.0
  759. *** cmd.h.old    Fri Jun  7 12:22:58 1991
  760. --- cmd.h    Fri Jun  7 12:22:59 1991
  761. ***************
  762. *** 1,11 ****
  763. ! /* $Header: cmd.h,v 4.0 91/03/20 01:04:34 lwall Locked $
  764.    *
  765. !  *    Copyright (c) 1989, Larry Wall
  766.    *
  767. !  *    You may distribute under the terms of the GNU General Public License
  768. !  *    as specified in the README file that comes with the perl 3.0 kit.
  769.    *
  770.    * $Log:    cmd.h,v $
  771.    * Revision 4.0  91/03/20  01:04:34  lwall
  772.    * 4.0 baseline.
  773.    * 
  774. --- 1,15 ----
  775. ! /* $RCSfile: cmd.h,v $$Revision: 4.0.1.1 $$Date: 91/06/07 10:28:50 $
  776.    *
  777. !  *    Copyright (c) 1991, Larry Wall
  778.    *
  779. !  *    You may distribute under the terms of either the GNU General Public
  780. !  *    License or the Artistic License, as specified in the README file.
  781.    *
  782.    * $Log:    cmd.h,v $
  783. +  * Revision 4.0.1.1  91/06/07  10:28:50  lwall
  784. +  * patch4: new copyright notice
  785. +  * patch4: length($`), length($&), length($') now optimized to avoid string copy
  786. +  * 
  787.    * Revision 4.0  91/03/20  01:04:34  lwall
  788.    * 4.0 baseline.
  789.    * 
  790. ***************
  791. *** 161,165 ****
  792.   };
  793.   
  794.   void opt_arg();
  795. ! void evalstatic();
  796.   int cmd_exec();
  797. --- 165,169 ----
  798.   };
  799.   
  800.   void opt_arg();
  801. ! ARG* evalstatic();
  802.   int cmd_exec();
  803.  
  804. Index: config.H
  805. *** config.H.old    Fri Jun  7 12:23:01 1991
  806. --- config.H    Fri Jun  7 12:23:02 1991
  807. ***************
  808. *** 29,35 ****
  809.    *    This symbol contains the number of bytes required to align a double.
  810.    *    Usual values are 2, 4, and 8.
  811.    */
  812. ! #define ALIGNBYTES 4        /**/
  813.   
  814.   /* BIN
  815.    *    This symbol holds the name of the directory in which the user wants
  816. --- 29,35 ----
  817.    *    This symbol contains the number of bytes required to align a double.
  818.    *    Usual values are 2, 4, and 8.
  819.    */
  820. ! #define ALIGNBYTES 2        /**/
  821.   
  822.   /* BIN
  823.    *    This symbol holds the name of the directory in which the user wants
  824. ***************
  825. *** 42,48 ****
  826.    *    This symbol contains an encoding of the order of bytes in a long.
  827.    *    Usual values (in octal) are 01234, 04321, 02143, 03412...
  828.    */
  829. ! #define BYTEORDER 0x1234        /**/
  830.   
  831.   /* CPPSTDIN
  832.    *    This symbol contains the first part of the string which will invoke
  833. --- 42,48 ----
  834.    *    This symbol contains an encoding of the order of bytes in a long.
  835.    *    Usual values (in octal) are 01234, 04321, 02143, 03412...
  836.    */
  837. ! #define BYTEORDER 0x4321        /**/
  838.   
  839.   /* CPPSTDIN
  840.    *    This symbol contains the first part of the string which will invoke
  841. ***************
  842. *** 55,62 ****
  843.    *    output.  This symbol will have the value "-" if CPPSTDIN needs a minus
  844.    *    to specify standard input, otherwise the value is "".
  845.    */
  846. ! #define CPPSTDIN "cc -E"
  847. ! #define CPPMINUS "-"
  848.   
  849.   /* HAS_BCMP
  850.    *    This symbol, if defined, indicates that the bcmp routine is available
  851. --- 55,62 ----
  852.    *    output.  This symbol will have the value "-" if CPPSTDIN needs a minus
  853.    *    to specify standard input, otherwise the value is "".
  854.    */
  855. ! #define CPPSTDIN "/usr/lib/cpp"
  856. ! #define CPPMINUS ""
  857.   
  858.   /* HAS_BCMP
  859.    *    This symbol, if defined, indicates that the bcmp routine is available
  860. ***************
  861. *** 89,96 ****
  862.    *        1 = couldn't cast < 0
  863.    *        2 = couldn't cast >= 0x80000000
  864.    */
  865. ! #define    CASTNEGFLOAT    /**/
  866. ! #define    CASTFLAGS 0    /**/
  867.   
  868.   /* CHARSPRINTF
  869.    *    This symbol is defined if this system declares "char *sprintf()" in
  870. --- 89,96 ----
  871.    *        1 = couldn't cast < 0
  872.    *        2 = couldn't cast >= 0x80000000
  873.    */
  874. ! /*#undef    CASTNEGFLOAT    /**/
  875. ! #define    CASTFLAGS 1    /**/
  876.   
  877.   /* CHARSPRINTF
  878.    *    This symbol is defined if this system declares "char *sprintf()" in
  879. ***************
  880. *** 180,186 ****
  881.    *    This symbol, if defined, indicates that the gethostent() routine is
  882.    *    available to lookup host names in some data base or other.
  883.    */
  884. ! #define    HAS_GETHOSTENT        /**/
  885.   
  886.   /* HAS_GETPGRP
  887.    *    This symbol, if defined, indicates that the getpgrp() routine is
  888. --- 180,186 ----
  889.    *    This symbol, if defined, indicates that the gethostent() routine is
  890.    *    available to lookup host names in some data base or other.
  891.    */
  892. ! /*#undef    HAS_GETHOSTENT        /**/
  893.   
  894.   /* HAS_GETPGRP
  895.    *    This symbol, if defined, indicates that the getpgrp() routine is
  896. ***************
  897. *** 439,446 ****
  898. --- 439,452 ----
  899.    *    This symbol, if defined, indicates that the shmat() routine is
  900.    *    available to stat symbolic links.
  901.    */
  902. + /* VOID_SHMAT
  903. +  *    This symbol, if defined, indicates that the shmat() routine
  904. +  *    returns a pointer of type void*.
  905. +  */
  906.   #define    HAS_SHMAT        /**/
  907.   
  908. + /*#undef    VOIDSHMAT        /**/
  909. + 
  910.   /* HAS_SHMCTL
  911.    *    This symbol, if defined, indicates that the shmctl() routine is
  912.    *    available to stat symbolic links.
  913. ***************
  914. *** 537,544 ****
  915.    *    a signal handler using "TO_SIGNAL (*handler())()", and define the
  916.    *    handler using "TO_SIGNAL handler(sig)".
  917.    */
  918. ! /*#undef    VOIDSIG     /**/
  919. ! #define    TO_SIGNAL         /**/
  920.   
  921.   /* HASVOLATILE
  922.    *    This symbol, if defined, indicates that this C compiler knows about
  923. --- 543,550 ----
  924.    *    a signal handler using "TO_SIGNAL (*handler())()", and define the
  925.    *    handler using "TO_SIGNAL handler(sig)".
  926.    */
  927. ! #define    VOIDSIG     /**/
  928. ! #define    TO_SIGNAL    int     /**/
  929.   
  930.   /* HASVOLATILE
  931.    *    This symbol, if defined, indicates that this C compiler knows about
  932. ***************
  933. *** 557,564 ****
  934.    *    is up to the package author to declare vsprintf correctly based on the
  935.    *    symbol.
  936.    */
  937. ! /*#undef    HAS_VPRINTF    /**/
  938. ! /*#undef    CHARVSPRINTF     /**/
  939.   
  940.   /* HAS_WAIT4
  941.    *    This symbol, if defined, indicates that wait4() exists.
  942. --- 563,570 ----
  943.    *    is up to the package author to declare vsprintf correctly based on the
  944.    *    symbol.
  945.    */
  946. ! #define    HAS_VPRINTF    /**/
  947. ! #define    CHARVSPRINTF     /**/
  948.   
  949.   /* HAS_WAIT4
  950.    *    This symbol, if defined, indicates that wait4() exists.
  951. ***************
  952. *** 568,581 ****
  953.   /* HAS_WAITPID
  954.    *    This symbol, if defined, indicates that waitpid() exists.
  955.    */
  956. ! /*#undef    HAS_WAITPID    /**/
  957.   
  958.   /* GIDTYPE
  959.    *    This symbol has a value like gid_t, int, ushort, or whatever type is
  960.    *    used to declare group ids in the kernel.
  961.    */
  962. ! #define GIDTYPE int        /**/
  963.   
  964.   /* I_FCNTL
  965.    *    This manifest constant tells the C program to include <fcntl.h>.
  966.    */
  967. --- 574,593 ----
  968.   /* HAS_WAITPID
  969.    *    This symbol, if defined, indicates that waitpid() exists.
  970.    */
  971. ! #define    HAS_WAITPID    /**/
  972.   
  973.   /* GIDTYPE
  974.    *    This symbol has a value like gid_t, int, ushort, or whatever type is
  975.    *    used to declare group ids in the kernel.
  976.    */
  977. ! #define GIDTYPE gid_t        /**/
  978.   
  979. + /* GROUPSTYPE
  980. +  *    This symbol has a value like gid_t, int, ushort, or whatever type is
  981. +  *    used in the return value of getgroups().
  982. +  */
  983. + #define GROUPSTYPE int        /**/
  984. + 
  985.   /* I_FCNTL
  986.    *    This manifest constant tells the C program to include <fcntl.h>.
  987.    */
  988. ***************
  989. *** 634,644 ****
  990.    */
  991.   #define    I_PWD        /**/
  992.   /*#undef    PWQUOTA        /**/
  993. ! /*#undef    PWAGE        /**/
  994.   /*#undef    PWCHANGE    /**/
  995.   /*#undef    PWCLASS        /**/
  996.   /*#undef    PWEXPIRE    /**/
  997. ! /*#undef    PWCOMMENT    /**/
  998.   
  999.   /* I_SYS_FILE
  1000.    *    This manifest constant tells the C program to include <sys/file.h>.
  1001. --- 646,656 ----
  1002.    */
  1003.   #define    I_PWD        /**/
  1004.   /*#undef    PWQUOTA        /**/
  1005. ! #define    PWAGE        /**/
  1006.   /*#undef    PWCHANGE    /**/
  1007.   /*#undef    PWCLASS        /**/
  1008.   /*#undef    PWEXPIRE    /**/
  1009. ! #define    PWCOMMENT    /**/
  1010.   
  1011.   /* I_SYS_FILE
  1012.    *    This manifest constant tells the C program to include <sys/file.h>.
  1013. ***************
  1014. *** 673,679 ****
  1015.    *    This symbol, if defined, indicates to the C program that it should
  1016.    *    include utime.h.
  1017.    */
  1018. ! /*#undef    I_UTIME        /**/
  1019.   
  1020.   /* I_VARARGS
  1021.    *    This symbol, if defined, indicates to the C program that it should
  1022. --- 685,691 ----
  1023.    *    This symbol, if defined, indicates to the C program that it should
  1024.    *    include utime.h.
  1025.    */
  1026. ! #define    I_UTIME        /**/
  1027.   
  1028.   /* I_VARARGS
  1029.    *    This symbol, if defined, indicates to the C program that it should
  1030. ***************
  1031. *** 685,691 ****
  1032.    *    This symbol, if defined, indicates to the C program that it should
  1033.    *    include vfork.h.
  1034.    */
  1035. ! /*#undef    I_VFORK        /**/
  1036.   
  1037.   /* INTSIZE
  1038.    *    This symbol contains the size of an int, so that the C preprocessor
  1039. --- 697,703 ----
  1040.    *    This symbol, if defined, indicates to the C program that it should
  1041.    *    include vfork.h.
  1042.    */
  1043. ! #define    I_VFORK        /**/
  1044.   
  1045.   /* INTSIZE
  1046.    *    This symbol contains the size of an int, so that the C preprocessor
  1047. ***************
  1048. *** 725,731 ****
  1049. --- 737,748 ----
  1050.   /*#undef    I_MY_DIR    /**/
  1051.   /*#undef    DIRNAMLEN    /**/
  1052.   
  1053. + /* MALLOCPTRTYPE
  1054. +  *    This symbol defines the kind of ptr returned by malloc and realloc.
  1055. +  */
  1056. + #define MALLOCPTRTYPE char         /**/
  1057.   
  1058. + 
  1059.   /* RANDBITS
  1060.    *    This symbol contains the number of bits of random number the rand()
  1061.    *    function produces.  Usual values are 15, 16, and 31.
  1062. ***************
  1063. *** 734,740 ****
  1064.   
  1065.   /* SCRIPTDIR
  1066.    *    This symbol holds the name of the directory in which the user wants
  1067. !  *    to put publicly executable scripts for the package in question.  It
  1068.    *    is often a directory that is mounted across diverse architectures.
  1069.    */
  1070.   #define SCRIPTDIR "/usr/local/bin"             /**/
  1071. --- 751,757 ----
  1072.   
  1073.   /* SCRIPTDIR
  1074.    *    This symbol holds the name of the directory in which the user wants
  1075. !  *    to keep publicly executable scripts for the package in question.  It
  1076.    *    is often a directory that is mounted across diverse architectures.
  1077.    */
  1078.   #define SCRIPTDIR "/usr/local/bin"             /**/
  1079. ***************
  1080. *** 742,754 ****
  1081.   /* SIG_NAME
  1082.    *    This symbol contains an list of signal names in order.
  1083.    */
  1084. ! #define SIG_NAME "ZERO","HUP","INT","QUIT","ILL","TRAP","IOT","EMT","FPE","KILL","BUS","SEGV","SYS","PIPE","ALRM","TERM","URG","STOP","TSTP","CONT","CHLD","TTIN","TTOU","IO","XCPU","XFSZ","VTALRM","PROF","WINCH","LOST","USR1","USR2"        /**/
  1085.   
  1086.   /* STDCHAR
  1087.    *    This symbol is defined to be the type of char used in stdio.h.
  1088.    *    It has the values "unsigned char" or "char".
  1089.    */
  1090. ! #define STDCHAR char    /**/
  1091.   
  1092.   /* UIDTYPE
  1093.    *    This symbol has a value like uid_t, int, ushort, or whatever type is
  1094. --- 759,771 ----
  1095.   /* SIG_NAME
  1096.    *    This symbol contains an list of signal names in order.
  1097.    */
  1098. ! #define SIG_NAME "ZERO","HUP","INT","QUIT","ILL","TRAP","ABRT","EMT","FPE","KILL","BUS","SEGV","SYS","PIPE","ALRM","TERM","URG","STOP","TSTP","CONT","CLD","TTIN","TTOU","IO","XCPU","XFSZ","VTALRM","PROF","WINCH","LOST","USR1","USR2"        /**/
  1099.   
  1100.   /* STDCHAR
  1101.    *    This symbol is defined to be the type of char used in stdio.h.
  1102.    *    It has the values "unsigned char" or "char".
  1103.    */
  1104. ! #define STDCHAR unsigned char    /**/
  1105.   
  1106.   /* UIDTYPE
  1107.    *    This symbol has a value like uid_t, int, ushort, or whatever type is
  1108. ***************
  1109. *** 788,796 ****
  1110.    *    its value is "char *".
  1111.    */
  1112.   #ifndef VOIDWANT
  1113. ! #define VOIDWANT 1
  1114.   #endif
  1115. ! #define VOIDHAVE 1
  1116.   #if (VOIDHAVE & VOIDWANT) != VOIDWANT
  1117.   #define void int        /* is void to be avoided? */
  1118.   #define VOID
  1119. --- 805,813 ----
  1120.    *    its value is "char *".
  1121.    */
  1122.   #ifndef VOIDWANT
  1123. ! #define VOIDWANT 7
  1124.   #endif
  1125. ! #define VOIDHAVE 7
  1126.   #if (VOIDHAVE & VOIDWANT) != VOIDWANT
  1127.   #define void int        /* is void to be avoided? */
  1128.   #define VOID
  1129.  
  1130. Index: msdos/config.h
  1131. *** msdos/config.h.old    Fri Jun  7 12:25:35 1991
  1132. --- msdos/config.h    Fri Jun  7 12:25:36 1991
  1133. ***************
  1134. *** 43,49 ****
  1135.   
  1136.   /* BIN
  1137.    *    This symbol holds the name of the directory in which the user wants
  1138. !  *    to put publicly executable images for the package in question.  It
  1139.    *    is most often a local directory such as /usr/local/bin.
  1140.    */
  1141.   #define BIN "/usr/local/bin"             /**/
  1142. --- 43,49 ----
  1143.   
  1144.   /* BIN
  1145.    *    This symbol holds the name of the directory in which the user wants
  1146. !  *    to keep publicly executable images for the package in question.  It
  1147.    *    is most often a local directory such as /usr/local/bin.
  1148.    */
  1149.   #define BIN "/usr/local/bin"             /**/
  1150. ***************
  1151. *** 590,600 ****
  1152. --- 590,612 ----
  1153.    */
  1154.   #define GIDTYPE int        /**/
  1155.   
  1156. + /* GROUPSTYPE
  1157. +  *    This symbol has a value like gid_t, int, ushort, or whatever type is
  1158. +  *    used in the return value of getgroups().
  1159. +  */
  1160. + #define GROUPSTYPE int        /**/
  1161. + 
  1162.   /* I_FCNTL
  1163.    *    This manifest constant tells the C program to include <fcntl.h>.
  1164.    */
  1165.   #define    I_FCNTL    /**/
  1166.   
  1167. + /* I_GDBM
  1168. +  *    This symbol, if defined, indicates that gdbm.h exists and should
  1169. +  *    be included.
  1170. +  */
  1171. + /*#undef    I_GDBM        /**/
  1172. + 
  1173.   /* I_GRP
  1174.    *    This symbol, if defined, indicates to the C program that it should
  1175.    *    include grp.h.
  1176. ***************
  1177. *** 733,738 ****
  1178. --- 745,754 ----
  1179.   /*#undef    I_MY_DIR    /**/
  1180.   /*#undef    DIRNAMLEN    /**/
  1181.   
  1182. + /* MALLOCPTRTYPE
  1183. +  *    This symbol defines the kind of ptr returned by malloc and realloc.
  1184. +  */
  1185. + #define MALLOCPTRTYPE void         /**/
  1186.   
  1187.   /* RANDBITS
  1188.    *    This symbol contains the number of bits of random number the rand()
  1189.  
  1190. Index: config_h.SH
  1191. *** config_h.SH.old    Fri Jun  7 12:23:06 1991
  1192. --- config_h.SH    Fri Jun  7 12:23:07 1991
  1193. ***************
  1194. *** 454,461 ****
  1195. --- 454,467 ----
  1196.    *    This symbol, if defined, indicates that the shmat() routine is
  1197.    *    available to stat symbolic links.
  1198.    */
  1199. + /* VOID_SHMAT
  1200. +  *    This symbol, if defined, indicates that the shmat() routine
  1201. +  *    returns a pointer of type void*.
  1202. +  */
  1203.   #$d_shmat    HAS_SHMAT        /**/
  1204.   
  1205. + #$d_voidshmat    VOIDSHMAT        /**/
  1206. + 
  1207.   /* HAS_SHMCTL
  1208.    *    This symbol, if defined, indicates that the shmctl() routine is
  1209.    *    available to stat symbolic links.
  1210. ***************
  1211. *** 760,766 ****
  1212.   
  1213.   /* SCRIPTDIR
  1214.    *    This symbol holds the name of the directory in which the user wants
  1215. !  *    to put publicly executable scripts for the package in question.  It
  1216.    *    is often a directory that is mounted across diverse architectures.
  1217.    */
  1218.   #define SCRIPTDIR "$scriptdir"             /**/
  1219. --- 766,772 ----
  1220.   
  1221.   /* SCRIPTDIR
  1222.    *    This symbol holds the name of the directory in which the user wants
  1223. !  *    to keep publicly executable scripts for the package in question.  It
  1224.    *    is often a directory that is mounted across diverse architectures.
  1225.    */
  1226.   #define SCRIPTDIR "$scriptdir"             /**/
  1227.  
  1228. Index: cons.c
  1229. Prereq: 4.0
  1230. *** cons.c.old    Fri Jun  7 12:23:11 1991
  1231. --- cons.c    Fri Jun  7 12:23:12 1991
  1232. ***************
  1233. *** 1,11 ****
  1234. ! /* $Header: cons.c,v 4.0 91/03/20 01:05:51 lwall Locked $
  1235.    *
  1236. !  *    Copyright (c) 1989, Larry Wall
  1237.    *
  1238. !  *    You may distribute under the terms of the GNU General Public License
  1239. !  *    as specified in the README file that comes with the perl 3.0 kit.
  1240.    *
  1241.    * $Log:    cons.c,v $
  1242.    * Revision 4.0  91/03/20  01:05:51  lwall
  1243.    * 4.0 baseline.
  1244.    * 
  1245. --- 1,15 ----
  1246. ! /* $RCSfile: cons.c,v $$Revision: 4.0.1.1 $$Date: 91/06/07 10:31:15 $
  1247.    *
  1248. !  *    Copyright (c) 1991, Larry Wall
  1249.    *
  1250. !  *    You may distribute under the terms of either the GNU General Public
  1251. !  *    License or the Artistic License, as specified in the README file.
  1252.    *
  1253.    * $Log:    cons.c,v $
  1254. +  * Revision 4.0.1.1  91/06/07  10:31:15  lwall
  1255. +  * patch4: new copyright notice
  1256. +  * patch4: added global modifier for pattern matches
  1257. +  * 
  1258.    * Revision 4.0  91/03/20  01:05:51  lwall
  1259.    * 4.0 baseline.
  1260.    * 
  1261. ***************
  1262. *** 676,682 ****
  1263.            arg->arg_type == O_NMATCH || arg->arg_type == O_NSUBST) {
  1264.       if ((arg[1].arg_type == A_STAB || arg[1].arg_type == A_LVAL) &&
  1265.           (arg[2].arg_type & A_MASK) == A_SPAT &&
  1266. !         arg[2].arg_ptr.arg_spat->spat_short ) {
  1267.           cmd->c_stab  = arg[1].arg_ptr.arg_stab;
  1268.           cmd->c_short = str_smake(arg[2].arg_ptr.arg_spat->spat_short);
  1269.           cmd->c_slen  = arg[2].arg_ptr.arg_spat->spat_slen;
  1270. --- 680,688 ----
  1271.            arg->arg_type == O_NMATCH || arg->arg_type == O_NSUBST) {
  1272.       if ((arg[1].arg_type == A_STAB || arg[1].arg_type == A_LVAL) &&
  1273.           (arg[2].arg_type & A_MASK) == A_SPAT &&
  1274. !         arg[2].arg_ptr.arg_spat->spat_short &&
  1275. !         (arg->arg_type == O_SUBST || arg->arg_type == O_NSUBST ||
  1276. !          (arg[2].arg_ptr.arg_spat->spat_flags & SPAT_GLOBAL) == 0 )) {
  1277.           cmd->c_stab  = arg[1].arg_ptr.arg_stab;
  1278.           cmd->c_short = str_smake(arg[2].arg_ptr.arg_spat->spat_short);
  1279.           cmd->c_slen  = arg[2].arg_ptr.arg_spat->spat_slen;
  1280.  
  1281. Index: consarg.c
  1282. *** consarg.c.old    Fri Jun  7 12:23:16 1991
  1283. --- consarg.c    Fri Jun  7 12:23:17 1991
  1284. ***************
  1285. *** 1,11 ****
  1286. ! /* $RCSfile: consarg.c,v $$Revision: 4.0.1.1 $$Date: 91/04/11 17:38:34 $
  1287.    *
  1288. !  *    Copyright (c) 1989, Larry Wall
  1289.    *
  1290. !  *    You may distribute under the terms of the GNU General Public License
  1291. !  *    as specified in the README file that comes with the perl 3.0 kit.
  1292.    *
  1293.    * $Log:    consarg.c,v $
  1294.    * Revision 4.0.1.1  91/04/11  17:38:34  lwall
  1295.    * patch1: fixed "Bad free" error
  1296.    * 
  1297. --- 1,15 ----
  1298. ! /* $RCSfile: consarg.c,v $$Revision: 4.0.1.2 $$Date: 91/06/07 10:33:12 $
  1299.    *
  1300. !  *    Copyright (c) 1991, Larry Wall
  1301.    *
  1302. !  *    You may distribute under the terms of either the GNU General Public
  1303. !  *    License or the Artistic License, as specified in the README file.
  1304.    *
  1305.    * $Log:    consarg.c,v $
  1306. +  * Revision 4.0.1.2  91/06/07  10:33:12  lwall
  1307. +  * patch4: new copyright notice
  1308. +  * patch4: length($`), length($&), length($') now optimized to avoid string copy
  1309. +  * 
  1310.    * Revision 4.0.1.1  91/04/11  17:38:34  lwall
  1311.    * patch1: fixed "Bad free" error
  1312.    * 
  1313. ***************
  1314. *** 254,268 ****
  1315.       fprintf(stderr,")\n");
  1316.       }
  1317.   #endif
  1318. !     evalstatic(arg);        /* see if we can consolidate anything */
  1319.       return arg;
  1320.   }
  1321.   
  1322. ! void
  1323.   evalstatic(arg)
  1324.   register ARG *arg;
  1325.   {
  1326. !     register STR *str;
  1327.       register STR *s1;
  1328.       register STR *s2;
  1329.       double value;        /* must not be register */
  1330. --- 258,272 ----
  1331.       fprintf(stderr,")\n");
  1332.       }
  1333.   #endif
  1334. !     arg = evalstatic(arg);    /* see if we can consolidate anything */
  1335.       return arg;
  1336.   }
  1337.   
  1338. ! ARG *
  1339.   evalstatic(arg)
  1340.   register ARG *arg;
  1341.   {
  1342. !     static STR *str = Nullstr;
  1343.       register STR *s1;
  1344.       register STR *s2;
  1345.       double value;        /* must not be register */
  1346. ***************
  1347. *** 275,571 ****
  1348.       double sin(), cos(), atan2(), pow();
  1349.   
  1350.       if (!arg || !arg->arg_len)
  1351. !     return;
  1352.   
  1353. !     if ((arg[1].arg_type == A_SINGLE || arg->arg_type == O_AELEM) &&
  1354. !     (arg->arg_len == 1 || arg[2].arg_type == A_SINGLE) ) {
  1355.       str = Str_new(20,0);
  1356.       s1 = arg[1].arg_ptr.arg_str;
  1357. !     if (arg->arg_len > 1)
  1358. !         s2 = arg[2].arg_ptr.arg_str;
  1359.       else
  1360. -         s2 = Nullstr;
  1361. -     switch (arg->arg_type) {
  1362. -     case O_AELEM:
  1363. -         i = (int)str_gnum(s2);
  1364. -         if (i < 32767 && i >= 0) {
  1365. -         arg->arg_type = O_ITEM;
  1366. -         arg->arg_len = 1;
  1367. -         arg[1].arg_type = A_ARYSTAB;    /* $abc[123] is hoistable now */
  1368. -         arg[1].arg_len = i;
  1369. -         str_free(s2);
  1370. -         arg[2].arg_type = A_NULL;
  1371. -         arg[2].arg_ptr.arg_str = Nullstr;
  1372. -         }
  1373. -         /* FALL THROUGH */
  1374. -     default:
  1375. -         str_free(str);
  1376. -         str = Nullstr;        /* can't be evaluated yet */
  1377. -         break;
  1378. -     case O_CONCAT:
  1379. -         str_sset(str,s1);
  1380. -         str_scat(str,s2);
  1381. -         break;
  1382. -     case O_REPEAT:
  1383. -         i = (int)str_gnum(s2);
  1384. -         tmps = str_get(s1);
  1385. -         str_nset(str,"",0);
  1386. -         STR_GROW(str, i * s1->str_cur + 1);
  1387. -         repeatcpy(str->str_ptr, tmps, s1->str_cur, i);
  1388. -         str->str_cur = i * s1->str_cur;
  1389. -         str->str_ptr[str->str_cur] = '\0';
  1390. -         break;
  1391. -     case O_MULTIPLY:
  1392. -         value = str_gnum(s1);
  1393. -         str_numset(str,value * str_gnum(s2));
  1394. -         break;
  1395. -     case O_DIVIDE:
  1396. -         value = str_gnum(s2);
  1397. -         if (value == 0.0)
  1398. -         yyerror("Illegal division by constant zero");
  1399. -         else
  1400.   #ifdef cray
  1401. !         /* insure that 20./5. == 4. */
  1402. !         {
  1403. !         double x;
  1404. !         int    k;
  1405. !         x =  str_gnum(s1);
  1406. !         if ((double)(int)x     == x &&
  1407. !             (double)(int)value == value &&
  1408. !             (k = (int)x/(int)value)*(int)value == (int)x) {
  1409. !             value = k;
  1410. !         } else {
  1411. !             value = x/value;
  1412. !         }
  1413. !         str_numset(str,value);
  1414.           }
  1415.   #else
  1416. !         str_numset(str,str_gnum(s1) / value);
  1417.   #endif
  1418. !         break;
  1419. !     case O_MODULO:
  1420. !         tmplong = (unsigned long)str_gnum(s2);
  1421. !         if (tmplong == 0L) {
  1422. !         yyerror("Illegal modulus of constant zero");
  1423. !         break;
  1424. !         }
  1425. !         tmp2 = (long)str_gnum(s1);
  1426.   #ifndef lint
  1427. !         if (tmp2 >= 0)
  1428. !         str_numset(str,(double)(tmp2 % tmplong));
  1429. !         else
  1430. !         str_numset(str,(double)((tmplong-((-tmp2 - 1) % tmplong)) - 1));
  1431.   #else
  1432. !         tmp2 = tmp2;
  1433.   #endif
  1434. !         break;
  1435. !     case O_ADD:
  1436. !         value = str_gnum(s1);
  1437. !         str_numset(str,value + str_gnum(s2));
  1438. !         break;
  1439. !     case O_SUBTRACT:
  1440. !         value = str_gnum(s1);
  1441. !         str_numset(str,value - str_gnum(s2));
  1442. !         break;
  1443. !     case O_LEFT_SHIFT:
  1444. !         value = str_gnum(s1);
  1445. !         i = (int)str_gnum(s2);
  1446.   #ifndef lint
  1447. !         str_numset(str,(double)(((long)value) << i));
  1448.   #endif
  1449. !         break;
  1450. !     case O_RIGHT_SHIFT:
  1451. !         value = str_gnum(s1);
  1452. !         i = (int)str_gnum(s2);
  1453.   #ifndef lint
  1454. !         str_numset(str,(double)(((long)value) >> i));
  1455.   #endif
  1456. !         break;
  1457. !     case O_LT:
  1458. !         value = str_gnum(s1);
  1459. !         str_numset(str,(value < str_gnum(s2)) ? 1.0 : 0.0);
  1460. !         break;
  1461. !     case O_GT:
  1462. !         value = str_gnum(s1);
  1463. !         str_numset(str,(value > str_gnum(s2)) ? 1.0 : 0.0);
  1464. !         break;
  1465. !     case O_LE:
  1466. !         value = str_gnum(s1);
  1467. !         str_numset(str,(value <= str_gnum(s2)) ? 1.0 : 0.0);
  1468. !         break;
  1469. !     case O_GE:
  1470. !         value = str_gnum(s1);
  1471. !         str_numset(str,(value >= str_gnum(s2)) ? 1.0 : 0.0);
  1472. !         break;
  1473. !     case O_EQ:
  1474. !         if (dowarn) {
  1475. !         if ((!s1->str_nok && !looks_like_number(s1)) ||
  1476. !             (!s2->str_nok && !looks_like_number(s2)) )
  1477. !             warn("Possible use of == on string value");
  1478. !         }
  1479. !         value = str_gnum(s1);
  1480. !         str_numset(str,(value == str_gnum(s2)) ? 1.0 : 0.0);
  1481. !         break;
  1482. !     case O_NE:
  1483. !         value = str_gnum(s1);
  1484. !         str_numset(str,(value != str_gnum(s2)) ? 1.0 : 0.0);
  1485. !         break;
  1486. !     case O_NCMP:
  1487. !         value = str_gnum(s1);
  1488. !         value -= str_gnum(s2);
  1489. !         if (value > 0.0)
  1490. !         value = 1.0;
  1491. !         else if (value < 0.0)
  1492. !         value = -1.0;
  1493. !         str_numset(str,value);
  1494. !         break;
  1495. !     case O_BIT_AND:
  1496. !         value = str_gnum(s1);
  1497.   #ifndef lint
  1498. !         str_numset(str,(double)(U_L(value) & U_L(str_gnum(s2))));
  1499.   #endif
  1500. !         break;
  1501. !     case O_XOR:
  1502. !         value = str_gnum(s1);
  1503.   #ifndef lint
  1504. !         str_numset(str,(double)(U_L(value) ^ U_L(str_gnum(s2))));
  1505.   #endif
  1506. !         break;
  1507. !     case O_BIT_OR:
  1508. !         value = str_gnum(s1);
  1509.   #ifndef lint
  1510. !         str_numset(str,(double)(U_L(value) | U_L(str_gnum(s2))));
  1511.   #endif
  1512. !         break;
  1513. !     case O_AND:
  1514. !         if (str_true(s1))
  1515. !         str_sset(str,s2);
  1516. !         else
  1517. !         str_sset(str,s1);
  1518. !         break;
  1519. !     case O_OR:
  1520. !         if (str_true(s1))
  1521. !         str_sset(str,s1);
  1522. !         else
  1523. !         str_sset(str,s2);
  1524. !         break;
  1525. !     case O_COND_EXPR:
  1526. !         if ((arg[3].arg_type & A_MASK) != A_SINGLE) {
  1527. !         str_free(str);
  1528. !         str = Nullstr;
  1529. !         }
  1530. !         else {
  1531. !         if (str_true(s1))
  1532. !             str_sset(str,s2);
  1533. !         else
  1534. !             str_sset(str,arg[3].arg_ptr.arg_str);
  1535. !         str_free(arg[3].arg_ptr.arg_str);
  1536. !         arg[3].arg_ptr.arg_str = Nullstr;
  1537. !         }
  1538. !         break;
  1539. !     case O_NEGATE:
  1540. !         str_numset(str,(double)(-str_gnum(s1)));
  1541. !         break;
  1542. !     case O_NOT:
  1543. !         str_numset(str,(double)(!str_true(s1)));
  1544. !         break;
  1545. !     case O_COMPLEMENT:
  1546.   #ifndef lint
  1547. !         str_numset(str,(double)(~U_L(str_gnum(s1))));
  1548.   #endif
  1549. !         break;
  1550. !     case O_SIN:
  1551. !         str_numset(str,sin(str_gnum(s1)));
  1552. !         break;
  1553. !     case O_COS:
  1554. !         str_numset(str,cos(str_gnum(s1)));
  1555. !         break;
  1556. !     case O_ATAN2:
  1557. !         value = str_gnum(s1);
  1558. !         str_numset(str,atan2(value, str_gnum(s2)));
  1559. !         break;
  1560. !     case O_POW:
  1561. !         value = str_gnum(s1);
  1562. !         str_numset(str,pow(value, str_gnum(s2)));
  1563. !         break;
  1564. !     case O_LENGTH:
  1565. !         str_numset(str, (double)str_len(s1));
  1566. !         break;
  1567. !     case O_SLT:
  1568. !         str_numset(str,(double)(str_cmp(s1,s2) < 0));
  1569. !         break;
  1570. !     case O_SGT:
  1571. !         str_numset(str,(double)(str_cmp(s1,s2) > 0));
  1572. !         break;
  1573. !     case O_SLE:
  1574. !         str_numset(str,(double)(str_cmp(s1,s2) <= 0));
  1575. !         break;
  1576. !     case O_SGE:
  1577. !         str_numset(str,(double)(str_cmp(s1,s2) >= 0));
  1578. !         break;
  1579. !     case O_SEQ:
  1580. !         str_numset(str,(double)(str_eq(s1,s2)));
  1581. !         break;
  1582. !     case O_SNE:
  1583. !         str_numset(str,(double)(!str_eq(s1,s2)));
  1584. !         break;
  1585. !     case O_SCMP:
  1586. !         str_numset(str,(double)(str_cmp(s1,s2)));
  1587. !         break;
  1588. !     case O_CRYPT:
  1589.   #ifdef HAS_CRYPT
  1590. !         tmps = str_get(s1);
  1591. !         str_set(str,crypt(tmps,str_get(s2)));
  1592.   #else
  1593. !         yyerror(
  1594. !         "The crypt() function is unimplemented due to excessive paranoia.");
  1595.   #endif
  1596. !         break;
  1597. !     case O_EXP:
  1598. !         str_numset(str,exp(str_gnum(s1)));
  1599. !         break;
  1600. !     case O_LOG:
  1601. !         str_numset(str,log(str_gnum(s1)));
  1602. !         break;
  1603. !     case O_SQRT:
  1604. !         str_numset(str,sqrt(str_gnum(s1)));
  1605. !         break;
  1606. !     case O_INT:
  1607. !         value = str_gnum(s1);
  1608. !         if (value >= 0.0)
  1609. !         (void)modf(value,&value);
  1610. !         else {
  1611. !         (void)modf(-value,&value);
  1612. !         value = -value;
  1613. !         }
  1614. !         str_numset(str,value);
  1615. !         break;
  1616. !     case O_ORD:
  1617.   #ifndef I286
  1618. !         str_numset(str,(double)(*str_get(s1)));
  1619.   #else
  1620. !         {
  1621. !         int  zapc;
  1622. !         char *zaps;
  1623.   
  1624. !         zaps = str_get(s1);
  1625. !         zapc = (int) *zaps;
  1626. !         str_numset(str,(double)(zapc));
  1627. !         }
  1628. ! #endif
  1629. !         break;
  1630.       }
  1631. !     if (str) {
  1632. !         arg->arg_type = O_ITEM;    /* note arg1 type is already SINGLE */
  1633. !         str_free(s1);
  1634. !         arg[1].arg_ptr.arg_str = str;
  1635. !         if (s2) {
  1636. !         str_free(s2);
  1637. !         arg[2].arg_ptr.arg_str = Nullstr;
  1638. !         arg[2].arg_type = A_NULL;
  1639. !         }
  1640. !     }
  1641.       }
  1642.   }
  1643.   
  1644.   ARG *
  1645. --- 279,625 ----
  1646.       double sin(), cos(), atan2(), pow();
  1647.   
  1648.       if (!arg || !arg->arg_len)
  1649. !     return arg;
  1650.   
  1651. !     if (!str)
  1652.       str = Str_new(20,0);
  1653. + 
  1654. +     if (arg[1].arg_type == A_SINGLE)
  1655.       s1 = arg[1].arg_ptr.arg_str;
  1656. !     else
  1657. !     s1 = Nullstr;
  1658. !     if (arg->arg_len >= 2 && arg[2].arg_type == A_SINGLE)
  1659. !     s2 = arg[2].arg_ptr.arg_str;
  1660. !     else
  1661. !     s2 = Nullstr;
  1662. ! 
  1663. ! #define CHECK1 if (!s1) return arg
  1664. ! #define CHECK2 if (!s2) return arg
  1665. ! #define CHECK12 if (!s1 || !s2) return arg
  1666. ! 
  1667. !     switch (arg->arg_type) {
  1668. !     default:
  1669. !     return arg;
  1670. !     case O_AELEM:
  1671. !     CHECK2;
  1672. !     i = (int)str_gnum(s2);
  1673. !     if (i < 32767 && i >= 0) {
  1674. !         arg->arg_type = O_ITEM;
  1675. !         arg->arg_len = 1;
  1676. !         arg[1].arg_type = A_ARYSTAB;    /* $abc[123] is hoistable now */
  1677. !         arg[1].arg_len = i;
  1678. !         str_free(s2);
  1679. !         Renew(arg, 2, ARG);
  1680. !     }
  1681. !     return arg;
  1682. !     case O_CONCAT:
  1683. !     CHECK12;
  1684. !     str_sset(str,s1);
  1685. !     str_scat(str,s2);
  1686. !     break;
  1687. !     case O_REPEAT:
  1688. !     CHECK12;
  1689. !     i = (int)str_gnum(s2);
  1690. !     tmps = str_get(s1);
  1691. !     str_nset(str,"",0);
  1692. !     STR_GROW(str, i * s1->str_cur + 1);
  1693. !     repeatcpy(str->str_ptr, tmps, s1->str_cur, i);
  1694. !     str->str_cur = i * s1->str_cur;
  1695. !     str->str_ptr[str->str_cur] = '\0';
  1696. !     break;
  1697. !     case O_MULTIPLY:
  1698. !     CHECK12;
  1699. !     value = str_gnum(s1);
  1700. !     str_numset(str,value * str_gnum(s2));
  1701. !     break;
  1702. !     case O_DIVIDE:
  1703. !     CHECK12;
  1704. !     value = str_gnum(s2);
  1705. !     if (value == 0.0)
  1706. !         yyerror("Illegal division by constant zero");
  1707.       else
  1708.   #ifdef cray
  1709. !     /* insure that 20./5. == 4. */
  1710. !     {
  1711. !         double x;
  1712. !         int    k;
  1713. !         x =  str_gnum(s1);
  1714. !         if ((double)(int)x     == x &&
  1715. !         (double)(int)value == value &&
  1716. !         (k = (int)x/(int)value)*(int)value == (int)x) {
  1717. !         value = k;
  1718. !         } else {
  1719. !         value = x/value;
  1720.           }
  1721. +         str_numset(str,value);
  1722. +     }
  1723.   #else
  1724. !     str_numset(str,str_gnum(s1) / value);
  1725.   #endif
  1726. !     break;
  1727. !     case O_MODULO:
  1728. !     CHECK12;
  1729. !     tmplong = (unsigned long)str_gnum(s2);
  1730. !     if (tmplong == 0L) {
  1731. !         yyerror("Illegal modulus of constant zero");
  1732. !         return arg;
  1733. !     }
  1734. !     tmp2 = (long)str_gnum(s1);
  1735.   #ifndef lint
  1736. !     if (tmp2 >= 0)
  1737. !         str_numset(str,(double)(tmp2 % tmplong));
  1738. !     else
  1739. !         str_numset(str,(double)((tmplong-((-tmp2 - 1) % tmplong)) - 1));
  1740.   #else
  1741. !     tmp2 = tmp2;
  1742.   #endif
  1743. !     break;
  1744. !     case O_ADD:
  1745. !     CHECK12;
  1746. !     value = str_gnum(s1);
  1747. !     str_numset(str,value + str_gnum(s2));
  1748. !     break;
  1749. !     case O_SUBTRACT:
  1750. !     CHECK12;
  1751. !     value = str_gnum(s1);
  1752. !     str_numset(str,value - str_gnum(s2));
  1753. !     break;
  1754. !     case O_LEFT_SHIFT:
  1755. !     CHECK12;
  1756. !     value = str_gnum(s1);
  1757. !     i = (int)str_gnum(s2);
  1758.   #ifndef lint
  1759. !     str_numset(str,(double)(((long)value) << i));
  1760.   #endif
  1761. !     break;
  1762. !     case O_RIGHT_SHIFT:
  1763. !     CHECK12;
  1764. !     value = str_gnum(s1);
  1765. !     i = (int)str_gnum(s2);
  1766.   #ifndef lint
  1767. !     str_numset(str,(double)(((long)value) >> i));
  1768.   #endif
  1769. !     break;
  1770. !     case O_LT:
  1771. !     CHECK12;
  1772. !     value = str_gnum(s1);
  1773. !     str_numset(str,(value < str_gnum(s2)) ? 1.0 : 0.0);
  1774. !     break;
  1775. !     case O_GT:
  1776. !     CHECK12;
  1777. !     value = str_gnum(s1);
  1778. !     str_numset(str,(value > str_gnum(s2)) ? 1.0 : 0.0);
  1779. !     break;
  1780. !     case O_LE:
  1781. !     CHECK12;
  1782. !     value = str_gnum(s1);
  1783. !     str_numset(str,(value <= str_gnum(s2)) ? 1.0 : 0.0);
  1784. !     break;
  1785. !     case O_GE:
  1786. !     CHECK12;
  1787. !     value = str_gnum(s1);
  1788. !     str_numset(str,(value >= str_gnum(s2)) ? 1.0 : 0.0);
  1789. !     break;
  1790. !     case O_EQ:
  1791. !     CHECK12;
  1792. !     if (dowarn) {
  1793. !         if ((!s1->str_nok && !looks_like_number(s1)) ||
  1794. !         (!s2->str_nok && !looks_like_number(s2)) )
  1795. !         warn("Possible use of == on string value");
  1796. !     }
  1797. !     value = str_gnum(s1);
  1798. !     str_numset(str,(value == str_gnum(s2)) ? 1.0 : 0.0);
  1799. !     break;
  1800. !     case O_NE:
  1801. !     CHECK12;
  1802. !     value = str_gnum(s1);
  1803. !     str_numset(str,(value != str_gnum(s2)) ? 1.0 : 0.0);
  1804. !     break;
  1805. !     case O_NCMP:
  1806. !     CHECK12;
  1807. !     value = str_gnum(s1);
  1808. !     value -= str_gnum(s2);
  1809. !     if (value > 0.0)
  1810. !         value = 1.0;
  1811. !     else if (value < 0.0)
  1812. !         value = -1.0;
  1813. !     str_numset(str,value);
  1814. !     break;
  1815. !     case O_BIT_AND:
  1816. !     CHECK12;
  1817. !     value = str_gnum(s1);
  1818.   #ifndef lint
  1819. !     str_numset(str,(double)(U_L(value) & U_L(str_gnum(s2))));
  1820.   #endif
  1821. !     break;
  1822. !     case O_XOR:
  1823. !     CHECK12;
  1824. !     value = str_gnum(s1);
  1825.   #ifndef lint
  1826. !     str_numset(str,(double)(U_L(value) ^ U_L(str_gnum(s2))));
  1827.   #endif
  1828. !     break;
  1829. !     case O_BIT_OR:
  1830. !     CHECK12;
  1831. !     value = str_gnum(s1);
  1832.   #ifndef lint
  1833. !     str_numset(str,(double)(U_L(value) | U_L(str_gnum(s2))));
  1834.   #endif
  1835. !     break;
  1836. !     case O_AND:
  1837. !     CHECK12;
  1838. !     if (str_true(s1))
  1839. !         str_sset(str,s2);
  1840. !     else
  1841. !         str_sset(str,s1);
  1842. !     break;
  1843. !     case O_OR:
  1844. !     CHECK12;
  1845. !     if (str_true(s1))
  1846. !         str_sset(str,s1);
  1847. !     else
  1848. !         str_sset(str,s2);
  1849. !     break;
  1850. !     case O_COND_EXPR:
  1851. !     CHECK12;
  1852. !     if ((arg[3].arg_type & A_MASK) != A_SINGLE)
  1853. !         return arg;
  1854. !     if (str_true(s1))
  1855. !         str_sset(str,s2);
  1856. !     else
  1857. !         str_sset(str,arg[3].arg_ptr.arg_str);
  1858. !     str_free(arg[3].arg_ptr.arg_str);
  1859. !     Renew(arg, 3, ARG);
  1860. !     break;
  1861. !     case O_NEGATE:
  1862. !     CHECK1;
  1863. !     str_numset(str,(double)(-str_gnum(s1)));
  1864. !     break;
  1865. !     case O_NOT:
  1866. !     CHECK1;
  1867. !     str_numset(str,(double)(!str_true(s1)));
  1868. !     break;
  1869. !     case O_COMPLEMENT:
  1870. !     CHECK1;
  1871.   #ifndef lint
  1872. !     str_numset(str,(double)(~U_L(str_gnum(s1))));
  1873.   #endif
  1874. !     break;
  1875. !     case O_SIN:
  1876. !     CHECK1;
  1877. !     str_numset(str,sin(str_gnum(s1)));
  1878. !     break;
  1879. !     case O_COS:
  1880. !     CHECK1;
  1881. !     str_numset(str,cos(str_gnum(s1)));
  1882. !     break;
  1883. !     case O_ATAN2:
  1884. !     CHECK12;
  1885. !     value = str_gnum(s1);
  1886. !     str_numset(str,atan2(value, str_gnum(s2)));
  1887. !     break;
  1888. !     case O_POW:
  1889. !     CHECK12;
  1890. !     value = str_gnum(s1);
  1891. !     str_numset(str,pow(value, str_gnum(s2)));
  1892. !     break;
  1893. !     case O_LENGTH:
  1894. !     if (arg[1].arg_type == A_STAB) {
  1895. !         arg->arg_type = O_ITEM;
  1896. !         arg[1].arg_type = A_LENSTAB;
  1897. !         return arg;
  1898. !     }
  1899. !     CHECK1;
  1900. !     str_numset(str, (double)str_len(s1));
  1901. !     break;
  1902. !     case O_SLT:
  1903. !     CHECK12;
  1904. !     str_numset(str,(double)(str_cmp(s1,s2) < 0));
  1905. !     break;
  1906. !     case O_SGT:
  1907. !     CHECK12;
  1908. !     str_numset(str,(double)(str_cmp(s1,s2) > 0));
  1909. !     break;
  1910. !     case O_SLE:
  1911. !     CHECK12;
  1912. !     str_numset(str,(double)(str_cmp(s1,s2) <= 0));
  1913. !     break;
  1914. !     case O_SGE:
  1915. !     CHECK12;
  1916. !     str_numset(str,(double)(str_cmp(s1,s2) >= 0));
  1917. !     break;
  1918. !     case O_SEQ:
  1919. !     CHECK12;
  1920. !     str_numset(str,(double)(str_eq(s1,s2)));
  1921. !     break;
  1922. !     case O_SNE:
  1923. !     CHECK12;
  1924. !     str_numset(str,(double)(!str_eq(s1,s2)));
  1925. !     break;
  1926. !     case O_SCMP:
  1927. !     CHECK12;
  1928. !     str_numset(str,(double)(str_cmp(s1,s2)));
  1929. !     break;
  1930. !     case O_CRYPT:
  1931. !     CHECK12;
  1932.   #ifdef HAS_CRYPT
  1933. !     tmps = str_get(s1);
  1934. !     str_set(str,crypt(tmps,str_get(s2)));
  1935.   #else
  1936. !     yyerror(
  1937. !     "The crypt() function is unimplemented due to excessive paranoia.");
  1938.   #endif
  1939. !     break;
  1940. !     case O_EXP:
  1941. !     CHECK1;
  1942. !     str_numset(str,exp(str_gnum(s1)));
  1943. !     break;
  1944. !     case O_LOG:
  1945. !     CHECK1;
  1946. !     str_numset(str,log(str_gnum(s1)));
  1947. !     break;
  1948. !     case O_SQRT:
  1949. !     CHECK1;
  1950. !     str_numset(str,sqrt(str_gnum(s1)));
  1951. !     break;
  1952. !     case O_INT:
  1953. !     CHECK1;
  1954. !     value = str_gnum(s1);
  1955. !     if (value >= 0.0)
  1956. !         (void)modf(value,&value);
  1957. !     else {
  1958. !         (void)modf(-value,&value);
  1959. !         value = -value;
  1960. !     }
  1961. !     str_numset(str,value);
  1962. !     break;
  1963. !     case O_ORD:
  1964. !     CHECK1;
  1965.   #ifndef I286
  1966. !     str_numset(str,(double)(*str_get(s1)));
  1967.   #else
  1968. !     {
  1969. !         int  zapc;
  1970. !         char *zaps;
  1971.   
  1972. !         zaps = str_get(s1);
  1973. !         zapc = (int) *zaps;
  1974. !         str_numset(str,(double)(zapc));
  1975.       }
  1976. ! #endif
  1977. !     break;
  1978.       }
  1979. +     arg->arg_type = O_ITEM;    /* note arg1 type is already SINGLE */
  1980. +     str_free(s1);
  1981. +     arg[1].arg_ptr.arg_str = str;
  1982. +     if (s2) {
  1983. +     str_free(s2);
  1984. +     arg[2].arg_ptr.arg_str = Nullstr;
  1985. +     arg[2].arg_type = A_NULL;
  1986. +     }
  1987. +     str = Nullstr;
  1988. + 
  1989. +     return arg;
  1990.   }
  1991.   
  1992.   ARG *
  1993.  
  1994. *** End of Patch 5 ***
  1995. exit 0 # Just in case...
  1996. -- 
  1997. Kent Landfield                   INTERNET: kent@sparky.IMD.Sterling.COM
  1998. Sterling Software, IMD           UUCP:     uunet!sparky!kent
  1999. Phone:    (402) 291-8300         FAX:      (402) 291-4362
  2000. Please send comp.sources.misc-related mail to kent@uunet.uu.net.
  2001.