home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume25 / perl / patch11 next >
Encoding:
Text File  |  1991-11-13  |  48.5 KB  |  1,884 lines
  1. Newsgroups: comp.sources.misc
  2. From: lwall@netlabs.com (Larry Wall)
  3. Subject:  v25i060:  perl - The perl programming language, Patch11
  4. Message-ID: <csm-v25i060=perl.154042@sparky.IMD.Sterling.COM>
  5. X-Md4-Signature: d15254ef4059f32bd601455797d4e5b9
  6. Date: Wed, 13 Nov 1991 21:41:29 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: lwall@netlabs.com (Larry Wall)
  10. Posting-number: Volume 25, Issue 60
  11. Archive-name: perl/patch11
  12. Environment: UNIX, MS-DOS, OS2
  13. Patch-To: perl: Volume 18, Issue 19-54
  14.  
  15. System: perl version 4.0
  16. Patch #: 11
  17. Priority: MED-HIGH
  18.  
  19. Subject: added eval {}
  20. Subject: eval 'stuff' now optimized to eval {stuff}
  21.  
  22.     This set of patches doesn't have many enhancements but this is
  23.     one of them.  The eval operator has two distinct semantic functions.
  24.     First, it runs the parser on some random string and executes it.
  25.     Second, it traps exceptions and returns them in $@.  There are times
  26.     when you'd like to get the second function without the first.  In
  27.     order to do that, you can now eval a block of code, which is parsed
  28.     like ordinary code at compile time, but which traps any run-time
  29.     errors and returns them in the $@ variable.  For instance, to
  30.     trap divide by zero errors:
  31.  
  32.         eval {
  33.             $answer = $foo / $bar;
  34.         };
  35.         warn $@ if $@;
  36.  
  37.     Since single-quoted strings don't ever change, they are optimized
  38.     to the eval {} form the first time they are encountered at run-time.
  39.     This doesn't happen too often, though some of you have written things
  40.     like eval '&try_this;'.  However, the righthand side of s///e is
  41.     evaluated as a single-quoted string, so this construct should run
  42.     somewhat faster now.
  43.  
  44. Subject: added sort {} LIST
  45.  
  46.     Another enhancement that some of you have been hankering for.
  47.     You can now inline the sort subroutine as a block where the
  48.     subroutine name used to go:
  49.  
  50.         @articles = sort {$a <=> $b;} readdir(DIR);
  51.  
  52. Subject: added some support for 64-bit integers
  53.  
  54.     For Convexen and Crayen, which have 64-bit integers, there's
  55.     now pack, unpack and sprintf support for 64-bit integers.
  56.  
  57. Subject: sprintf() now supports any length of s field
  58.  
  59.     You can now use formats like %2048s and %-8192.8192s.  Perl will
  60.     totally bypass your system's sprintf() function on these.  No,
  61.     you still probably can't say %2048d.  No, I'm not going to
  62.     change that any time soon.
  63.  
  64. Subject: substr() and vec() weren't allowed in an lvalue list
  65. Subject: extra comma at end of list is now allowed in more places (Hi, Felix!)
  66. Subject: underscore is now allowed within literal octal and hex numbers
  67.  
  68.     Various syntactic relaxations.  You can now get away with
  69.  
  70.         (substr($foo,0,3), substr($bar,0,3)) = ('abc', 'def');
  71.         (1,2,3,)[$x];
  72.         $addr = 0x1a20_ff0b;
  73.  
  74. Subject: safe malloc code now integrated into Perl's malloc when possible
  75.  
  76.     To save a bunch of subroutine calls.  If you use your system's
  77.     malloc it still has to use wrappers.
  78.  
  79. Subject: added support for dbz
  80.  
  81.     By saying "make dbzperl" you can make a copy of Perl that can
  82.     access C news's dbz files.  You still have to follow the dbz rules,
  83.     though, if you're going to try to write a dbz file.
  84.  
  85. Subject: there are now subroutines for calling back from C into Perl
  86. Subject: usub/curses.mus now supports SysV curses
  87.  
  88.     More C linkage support.  I still haven't got Perl embeddable, but
  89.     we're getting there.  That's too big an enhancement for this
  90.     update, in which I've been trying to stick to bug fixes, with some
  91.     success.
  92.  
  93. Subject: prepared for ctype implementations that don't define isascii()
  94.  
  95.     A larger percentage of this update consists of code to do
  96.     consistent ctype processing whether or not <ctype.h> is 8-bit
  97.     clean.
  98.  
  99. Subject: /$foo/o optimizer could access deallocated data
  100. Subject: certain optimizations of //g in array context returned too many values
  101. Subject: regexp with no parens in array context returned wacky $`, $& and $'
  102. Subject: $' not set right on some //g
  103. Subject: grep of a split lost its values
  104. Subject: # fields could write outside allocated memory
  105. Subject: length($x) was sometimes wrong for numeric $x
  106.  
  107.     Recently added or modified stuff that you kind of expect to be
  108.     a bit flaky still.  Well, I do...
  109.  
  110. Subject: passing non-existend array elements to subrouting caused core dump
  111. Subject: "foo" x -1 dumped core
  112. Subject: truncate on a closed filehandle could dump
  113. Subject: a last statement outside any block caused occasional core dumps
  114. Subject: missing arguments caused core dump in -D8 code
  115. Subject: cacheout.pl could dump core from invalid comparison operator
  116. Subject: *foo = undef coredumped
  117. Subject: warn '-' x 10000 dumped core
  118. Subject: index("little", "longer string") could visit faraway places
  119.  
  120.     A bunch of natty little bugs that you wouldn't generally run into
  121.     unless you're trying to be coy.
  122.  
  123. Subject: hex() didn't understand leading 0x
  124.  
  125.     It wasn't documented that it should work, but oct() understands 0x,
  126.     so why not hex()?  I dunno...
  127.  
  128. Subject: "foo\0" eq "foo" was sometimes optimized to true
  129. Subject: eval confused by string containing null
  130.  
  131.     Yet more holdovers from the time before Perl was 8-bit clean.
  132.  
  133. Subject: foreach on null list could spring memory leak
  134. Subject: local(*FILEHANDLE) had a memory leak
  135.  
  136.     Kind of slow leaks, as leaks go.  Still...
  137.  
  138. Subject: minimum match length calculation in regexp is now cumulative
  139.  
  140.     More substitutions can be done in place now because Perl knows
  141.     that patterns like in s/foo\s+bar/1234567/ have to match a
  142.     certain number of characters total.  It used to be on that
  143.     particular pattern that it only knew that it had to match at
  144.     least 3 characters.  Now it know it has to match at least 7.
  145.  
  146. Subject: multiple reallocations now avoided in 1 .. 100000
  147.  
  148.     You still don't want to say 1 .. 1000000, but at least it will
  149.     refrain from allocating intermediate sized blocks while it's
  150.     constructing the value, and won't do the extra copies implied
  151.     by realloc.
  152.  
  153. Subject: indirect subroutine calls through magic vars (e.g. &$1) didn't work
  154. Subject: defined(&$foo) and undef(&$foo) didn't work
  155. Subject: certain perl errors should set EBADF so that $! looks better
  156. Subject: stats of _ forgot whether prior stat was actually lstat
  157. Subject: -T returned true on NFS directory
  158. Subject: sysread() in socket was substituting recv()
  159. Subject: formats didn't fill their fields as well as they could
  160. Subject: ^ fields chopped hyphens on line break
  161. Subject: -P didn't allow use of #elif or #undef
  162. Subject: $0 was being truncated at times
  163. Subject: forked exec on non-existent program now issues a warning
  164.  
  165.     Various things you'd expect to work the way you expect, but
  166.     didn't when you did, or I did, or something...
  167.  
  168. Subject: perl mistook some streams for sockets because they return mode 0 too
  169. Subject: reopening STDIN, STDOUT and STDERR failed on some machines
  170.  
  171.     Problems opening files portably.  So what's new?
  172.  
  173. Subject: cppstdin now installed outside of source directory
  174. Subject: installperl now overrides installer's umask
  175.  
  176.     People who used cppstdin for the cpp filter or who had their
  177.     umask set to 700 will now be happier.  (And Configure will now
  178.     prefer /lib/cpp over cppstdin like it used to.  If this gives
  179.     your machine heartburn because /lib/cpp doesn't set the symbols
  180.     it should, write a hints file to poke them into ccflags.)
  181.  
  182. Subject: initial .* in pattern had dependency on value of $*
  183.  
  184.     An initial .* was optimized to have a ^ on the front to avoid retrying
  185.     when we know it won't match.  Unfortunately this implicit ^ was
  186.     paying attention to $*, which it shouldn't have been.
  187.  
  188. Subject: certain patterns made use of garbage pointers from uncleared memory
  189.  
  190.     Many of you saw this as a failure in t/op/pat.t.
  191.  
  192. Subject: perl now issues warning if $SIG{'ALARM'} is referenced
  193.  
  194.     Since the book mentions "SIGALARM", I thought we needed this.
  195.  
  196. Subject: solitary subroutine references no longer trigger typo warnings
  197.  
  198.     You can now use -w (more) profitably on programs that require
  199.     other files.  I figured if you mistype a subroutine name you'll
  200.     get a fatal error anyway, unlike a variable, which just defaults
  201.     to being undefined.
  202.  
  203. Subject: $foo .= <BAR> could overrun malloced memory
  204.  
  205.     Good old-fashioned bug.
  206.  
  207. Subject: \$ didn't always make it through double-quoter to regexp routines
  208. Subject: \x and \c were subject to double interpretation in regexps
  209. Subject: nested list operators could miscount parens
  210. Subject: sort eval "whatever" didn't work
  211.  
  212.     Syntactic misfeatures of various sorts.
  213.  
  214. Subject: find2perl produced incorrect code for -group
  215. Subject: find2perl could be confused by names containing whitespace
  216. Subject: in a2p, split on whitespace produced extra null field
  217.  
  218.     Translator stuff.
  219.  
  220. Subject: new complete.pl from Wayne Thompson
  221. Subject: assert.pl and exceptions.pl from Tom Christiansen
  222. Subject: added Tom's c2ph stuff
  223. Subject: getcwd.pl from Brandon S. Allbery
  224. Subject: fastcwd.pl from John Basik
  225. Subject: chat2.pl from Randal L. Schwartz
  226.  
  227.     New contributed stuff.  Thanks!
  228.  
  229.     (Not that a lot of the other stuff isn't contributed too...)
  230.  
  231. Subject: debugger got confused over nested subroutine definitions
  232. Subject: once-thru blocks didn't display right in the debugger
  233. Subject: perldb.pl modified to run within emacs in perldb-mode
  234.  
  235.     Debugger stuff.  The first two were caused by not saving line
  236.     numbers at exactly the right moment.
  237.  
  238. Subject: documented meaning of scalar(%foo)
  239.  
  240.     I also updated the Errata section of the man page.
  241.  
  242. Subject: various portability fixes
  243. Subject: random cleanup
  244. Subject: saberized perl
  245.  
  246.     Type casts, saber warning message suppression, hints files and various
  247.     metaconfig fiddlehoods.
  248.  
  249. Fix:    From rn, say "| patch -p -N -d DIR", where DIR is your perl source
  250.     directory.  Outside of rn, say "cd DIR; patch -p -N <thisarticle".
  251.     If you don't have the patch program, apply the following by hand,
  252.     or get patch (version 2.0, latest patchlevel).
  253.  
  254.     After patching:
  255.         *** DO NOTHING--INSTALL ALL PATCHES UP THROUGH #18 FIRST ***
  256.  
  257.     If patch indicates that patchlevel is the wrong version, you may need
  258.     to apply one or more previous patches, or the patch may already
  259.     have been applied.  See the patchlevel.h file to find out what has or
  260.     has not been applied.  In any event, don't continue with the patch.
  261.  
  262.     If you are missing previous patches they can be obtained from me:
  263.  
  264.     Larry Wall
  265.     lwall@netlabs.com
  266.  
  267.     If you send a mail message of the following form it will greatly speed
  268.     processing:
  269.  
  270.     Subject: Command
  271.     @SH mailpatch PATH perl 4.0 LIST
  272.            ^ note the c
  273.  
  274.     where PATH is a return path FROM ME TO YOU either in Internet notation,
  275.     or in bang notation from some well-known host, and LIST is the number
  276.     of one or more patches you need, separated by spaces, commas, and/or
  277.     hyphens.  Saying 35- says everything from 35 to the end.
  278.  
  279.  
  280. Index: patchlevel.h
  281. Prereq: 10
  282. 1c1
  283. < #define PATCHLEVEL 10
  284. ---
  285. > #define PATCHLEVEL 11
  286.  
  287.  
  288. Index: Configure
  289. Prereq: 4.0.1.2
  290. *** Configure.old    Tue Nov  5 23:12:54 1991
  291. --- Configure    Tue Nov  5 23:12:55 1991
  292. ***************
  293. *** 8,14 ****
  294.   # and edit it to reflect your system.  Some packages may include samples
  295.   # of config.h for certain machines, so you might look for one of those.)
  296.   #
  297. ! # $RCSfile: Configure,v $$Revision: 4.0.1.2 $$Date: 91/06/07 10:09:34 $
  298.   #
  299.   # Yes, you may rip this off to use in other distribution packages.
  300.   # (Note: this Configure script was generated automatically.  Rather than
  301. --- 8,14 ----
  302.   # and edit it to reflect your system.  Some packages may include samples
  303.   # of config.h for certain machines, so you might look for one of those.)
  304.   #
  305. ! # $RCSfile: Configure,v $$Revision: 4.0.1.5 $$Date: 91/11/05 23:11:32 $
  306.   #
  307.   # Yes, you may rip this off to use in other distribution packages.
  308.   # (Note: this Configure script was generated automatically.  Rather than
  309. ***************
  310. *** 17,30 ****
  311.   cat >/tmp/c1$$ <<EOF
  312.   ARGGGHHHH!!!!!
  313.   
  314. ! SCO csh still thinks true is false.  Write to SCO today and tell them that next
  315. ! year Configure ought to "rm /bin/csh" unless they fix their blasted shell. :-)
  316.   
  317. ! (Actually, Configure ought to just patch csh in place.  Hmm.  Hmmmmm.  All
  318. ! we'd have to do is go in and swap the && and || tokens, wherever they are.)
  319.   
  320. - [End of diatribe.  We now return you to your regularly scheduled programming...]
  321. - 
  322.   EOF
  323.   cat >/tmp/c2$$ <<EOF
  324.   OOPS!  You naughty creature!  You didn't run Configure with sh!
  325. --- 17,29 ----
  326.   cat >/tmp/c1$$ <<EOF
  327.   ARGGGHHHH!!!!!
  328.   
  329. ! Your csh still thinks true is false.  Write to your vendor today and tell
  330. ! them that next year Configure ought to "rm /bin/csh" unless they fix their
  331. ! blasted shell. :-)
  332.   
  333. ! [End of diatribe.  We now return you to your regularly scheduled
  334. ! programming...]
  335.   
  336.   EOF
  337.   cat >/tmp/c2$$ <<EOF
  338.   OOPS!  You naughty creature!  You didn't run Configure with sh!
  339. ***************
  340. *** 249,255 ****
  341.   ndiro=''
  342.   mallocsrc=''
  343.   mallocobj=''
  344. ! usemymalloc=''
  345.   mallocptrtype=''
  346.   mansrc=''
  347.   manext=''
  348. --- 248,254 ----
  349.   ndiro=''
  350.   mallocsrc=''
  351.   mallocobj=''
  352. ! d_mymalloc=''
  353.   mallocptrtype=''
  354.   mansrc=''
  355.   manext=''
  356. ***************
  357. *** 304,310 ****
  358.   undef='undef'
  359.   : change the next line if compiling for Xenix/286 on Xenix/386
  360.   xlibpth='/usr/lib/386 /lib/386'
  361. ! libpth='/usr/ccs/lib /usr/lib /usr/ucblib /usr/local/lib /usr/lib/large /lib '$xlibpth' /lib/large /usr/lib/small /lib/small'
  362.   smallmach='pdp11 i8086 z8000 i80286 iAPX286'
  363.   trap 'echo " "; exit 1' 1 2 3
  364.   
  365. --- 303,323 ----
  366.   undef='undef'
  367.   : change the next line if compiling for Xenix/286 on Xenix/386
  368.   xlibpth='/usr/lib/386 /lib/386'
  369. ! 
  370. ! : the hints files may add more components to libpth
  371. ! test -d /usr/cs/lib        && libpth="$libpth /usr/cs/lib"
  372. ! test -d /usr/ccs/lib        && libpth="$libpth /usr/ccs/lib"
  373. ! test -d /usr/lib        && libpth="$libpth /usr/lib"
  374. ! test -d /usr/ucblib        && libpth="$libpth /usr/ucblib"
  375. ! test -d /usr/local/lib        && libpth="$libpth /usr/local/lib"
  376. ! test -d /usr/lib/large        && libpth="$libpth /usr/lib/large"
  377. ! test -d /lib            && libpth="$libpth /lib"
  378. !                    libpth="$libpth $xlibpth"
  379. ! test -d /lib/large        && libpth="$libpth /lib/large"
  380. ! test -d /usr/lib/small        && libpth="$libpth /usr/lib/small"
  381. ! test -d /lib/small        && libpth="$libpth /lib/small"
  382. ! test -d /usr/lib/cmplrs/cc    && libpth="$libpth /usr/lib/cmplrs/cc"
  383. ! 
  384.   smallmach='pdp11 i8086 z8000 i80286 iAPX286'
  385.   trap 'echo " "; exit 1' 1 2 3
  386.   
  387. ***************
  388. *** 341,347 ****
  389.   d_ndir=ndir
  390.   voidwant=1
  391.   voidwant=7
  392. ! libswanted="c_s net_s net nsl_s nsl socket nm ndir ndbm dbm malloc sun m bsd BSD x posix ucb"
  393.   inclwanted='/usr/include /usr/netinclude /usr/include/sun /usr/include/bsd /usr/include/lan /usr/ucbinclude'
  394.   
  395.   : Now test for existence of everything in MANIFEST
  396. --- 354,360 ----
  397.   d_ndir=ndir
  398.   voidwant=1
  399.   voidwant=7
  400. ! libswanted="c_s net_s net nsl_s nsl socket nm ndir ndbm dbm PW malloc sun m bsd BSD x posix ucb"
  401.   inclwanted='/usr/include /usr/netinclude /usr/include/sun /usr/include/bsd /usr/include/lan /usr/ucbinclude'
  402.   
  403.   : Now test for existence of everything in MANIFEST
  404. ***************
  405. *** 737,742 ****
  406. --- 750,757 ----
  407.       hint=previous
  408.       ;;
  409.       esac
  410. + else
  411. +     lastuname=`(uname -a) 2>&1`
  412.   fi
  413.   if test -d ../hints && test ! -f ../config.sh; then
  414.       echo ' '
  415. ***************
  416. *** 1262,1267 ****
  417. --- 1277,1287 ----
  418.       n*) nativegcc="$undef"; gccflags='-fpcc-struct-return';;
  419.       *) nativegcc="$define"; gccflags='';;
  420.       esac
  421. +     case "$gccflags" in
  422. +     *-ansi*) ;;
  423. +     *-traditional*) ;;
  424. +     *) gccflags="$gccflags -traditional -Dvolatile=__volatile__" ;;
  425. +     esac
  426.       ;;
  427.   esac
  428.   
  429. ***************
  430. *** 1710,1716 ****
  431.   cd ..
  432.   echo 'cat >.$$.c; '"$cc"' -E ${1+"$@"} .$$.c; rm .$$.c' >cppstdin
  433.   chmod 755 cppstdin
  434. ! wrapper=`pwd`/cppstdin
  435.   cd UU
  436.   
  437.   if test "X$cppstdin" != "X" && \
  438. --- 1730,1741 ----
  439.   cd ..
  440.   echo 'cat >.$$.c; '"$cc"' -E ${1+"$@"} .$$.c; rm .$$.c' >cppstdin
  441.   chmod 755 cppstdin
  442. ! wrapper=cppstdin
  443. ! 
  444. ! case "$cppstdin" in
  445. ! /*cppstdin) cppstdin=cppstdin;;
  446. ! esac
  447. ! cp cppstdin UU
  448.   cd UU
  449.   
  450.   if test "X$cppstdin" != "X" && \
  451. ***************
  452. *** 1736,1747 ****
  453.       echo "Yup, it does."
  454.       cppstdin="$cc -E"
  455.       cppminus='-';
  456. - elif echo 'Uh-uh.  Time to get fancy.  Trying a wrapper...'; \
  457. -   $wrapper <testcpp.c >testcpp.out 2>&1; \
  458. -   $contains 'abc.*xyz' testcpp.out >/dev/null 2>&1 ; then
  459. -     cppstdin="$wrapper"
  460. -     cppminus=''
  461. -     echo "Eureka!."
  462.   elif echo 'No such luck, maybe "'$cpp'" will work...'; \
  463.     $cpp <testcpp.c >testcpp.out 2>&1; \
  464.     $contains 'abc.*xyz' testcpp.out >/dev/null 2>&1 ; then
  465. --- 1761,1766 ----
  466. ***************
  467. *** 1754,1759 ****
  468. --- 1773,1784 ----
  469.       echo "Hooray, it works!  I was beginning to wonder."
  470.       cppstdin="$cpp"
  471.       cppminus='-';
  472. + elif echo 'Uh-uh.  Time to get fancy.  Trying a wrapper...'; \
  473. +   $wrapper <testcpp.c >testcpp.out 2>&1; \
  474. +   $contains 'abc.*xyz' testcpp.out >/dev/null 2>&1 ; then
  475. +     cppstdin="$wrapper"
  476. +     cppminus=''
  477. +     echo "Eureka!."
  478.   elif echo 'Nope...maybe "'"$cc"' -P" will work...'; \
  479.     $cc -P <testcpp.c >testcpp.out 2>&1; \
  480.     $contains 'abc.*xyz' testcpp.out >/dev/null 2>&1 ; then
  481. ***************
  482. *** 2497,2503 ****
  483.   if $test -r $usrinclude/pwd.h ; then
  484.       i_pwd="$define"
  485.       echo "pwd.h found."
  486. !     $cppstdin $cppflags $cppminus <$usrinclude/pwd.h >pwd.txt
  487.       if $contains 'pw_quota' pwd.txt >/dev/null 2>&1; then
  488.       d_pwquota="$define"
  489.       else
  490. --- 2522,2529 ----
  491.   if $test -r $usrinclude/pwd.h ; then
  492.       i_pwd="$define"
  493.       echo "pwd.h found."
  494. !     $cppstdin $cppflags $cppminus <$usrinclude/pwd.h | \
  495. !     sed -n '/struct[     ][     ]*passwd/,/^};/p' >pwd.txt
  496.       if $contains 'pw_quota' pwd.txt >/dev/null 2>&1; then
  497.       d_pwquota="$define"
  498.       else
  499. ***************
  500. *** 3029,3044 ****
  501.   
  502.   : determine which malloc to compile in
  503.   echo " "
  504. ! case "$usemymalloc" in
  505.   '')
  506. !     if bsd || v7; then
  507. !     dflt='y'
  508. !     else
  509. !     dflt='n'
  510. !     fi
  511.       ;;
  512. ! *)  dflt="$usemymalloc"
  513.       ;;
  514.   esac
  515.   rp="Do you wish to attempt to use the malloc that comes with $package? [$dflt]"
  516.   $echo $n "$rp $c"
  517. --- 3055,3078 ----
  518.   
  519.   : determine which malloc to compile in
  520.   echo " "
  521. ! case "$d_mymalloc" in
  522.   '')
  523. !     case "$usemymalloc" in
  524. !     '')
  525. !     if bsd || v7; then
  526. !         dflt='y'
  527. !     else
  528. !         dflt='n'
  529. !     fi
  530. !     ;;
  531. !     n*) dflt=n;;
  532. !     *)  dflt=y;;
  533. !     esac
  534.       ;;
  535. ! define)  dflt="y"
  536.       ;;
  537. + *)  dflt="n"
  538. +     ;;
  539.   esac
  540.   rp="Do you wish to attempt to use the malloc that comes with $package? [$dflt]"
  541.   $echo $n "$rp $c"
  542. ***************
  543. *** 3046,3055 ****
  544.   case "$ans" in
  545.   '') ans=$dflt;;
  546.   esac
  547. - usemymalloc="$ans"
  548.   case "$ans" in
  549.   y*) mallocsrc='malloc.c'; mallocobj='malloc.o'
  550.       libs=`echo $libs | sed 's/-lmalloc//'`
  551.       case "$mallocptrtype" in
  552.       '')
  553.       cat >usemymalloc.c <<'END'
  554. --- 3080,3089 ----
  555.   case "$ans" in
  556.   '') ans=$dflt;;
  557.   esac
  558.   case "$ans" in
  559.   y*) mallocsrc='malloc.c'; mallocobj='malloc.o'
  560.       libs=`echo $libs | sed 's/-lmalloc//'`
  561. +     val="$define"
  562.       case "$mallocptrtype" in
  563.       '')
  564.       cat >usemymalloc.c <<'END'
  565. ***************
  566. *** 3070,3077 ****
  567.       echo " "
  568.       echo "Your system wants malloc to return $mallocptrtype*, it would seem."
  569.       ;;
  570. ! *) mallocsrc=''; mallocobj=''; mallocptrtype=void;;
  571.   esac
  572.   
  573.   : determine where private executables go
  574.   case "$privlib" in
  575. --- 3104,3117 ----
  576.       echo " "
  577.       echo "Your system wants malloc to return $mallocptrtype*, it would seem."
  578.       ;;
  579. ! *)  mallocsrc='';
  580. !     mallocobj='';
  581. !     mallocptrtype=void
  582. !     val="$define"
  583. !     ;;
  584.   esac
  585. + set d_mymalloc
  586. + eval $setvar
  587.   
  588.   : determine where private executables go
  589.   case "$privlib" in
  590. ***************
  591. *** 3734,3740 ****
  592.   ndiro='$ndiro'
  593.   mallocsrc='$mallocsrc'
  594.   mallocobj='$mallocobj'
  595. ! usemymalloc='$usemymalloc'
  596.   mallocptrtype='$mallocptrtype'
  597.   mansrc='$mansrc'
  598.   manext='$manext'
  599. --- 3774,3780 ----
  600.   ndiro='$ndiro'
  601.   mallocsrc='$mallocsrc'
  602.   mallocobj='$mallocobj'
  603. ! d_mymalloc='$d_mymalloc'
  604.   mallocptrtype='$mallocptrtype'
  605.   mansrc='$mansrc'
  606.   manext='$manext'
  607.  
  608. Index: Makefile.SH
  609. *** Makefile.SH.old    Tue Nov  5 19:25:22 1991
  610. --- Makefile.SH    Tue Nov  5 19:25:23 1991
  611. ***************
  612. *** 25,33 ****
  613.   
  614.   echo "Extracting Makefile (with variable substitutions)"
  615.   cat >Makefile <<!GROK!THIS!
  616. ! # $RCSfile: Makefile.SH,v $$Revision: 4.0.1.2 $$Date: 91/06/07 10:14:43 $
  617.   #
  618.   # $Log:    Makefile.SH,v $
  619.   # Revision 4.0.1.2  91/06/07  10:14:43  lwall
  620.   # patch4: cflags now emits entire cc command except for the filename
  621.   # patch4: alternate make programs are now semi-supported
  622. --- 25,37 ----
  623.   
  624.   echo "Extracting Makefile (with variable substitutions)"
  625.   cat >Makefile <<!GROK!THIS!
  626. ! # $RCSfile: Makefile.SH,v $$Revision: 4.0.1.3 $$Date: 91/11/05 15:48:11 $
  627.   #
  628.   # $Log:    Makefile.SH,v $
  629. + # Revision 4.0.1.3  91/11/05  15:48:11  lwall
  630. + # patch11: saberized perl
  631. + # patch11: added support for dbz
  632. + # 
  633.   # Revision 4.0.1.2  91/06/07  10:14:43  lwall
  634.   # patch4: cflags now emits entire cc command except for the filename
  635.   # patch4: alternate make programs are now semi-supported
  636. ***************
  637. *** 56,61 ****
  638. --- 60,66 ----
  639.   mallocsrc = $mallocsrc
  640.   mallocobj = $mallocobj
  641.   SLN = $sln
  642. + RMS = rm -f
  643.   
  644.   libs = $libs $cryptlib
  645.   
  646. ***************
  647. *** 91,98 ****
  648.   
  649.   c = $(c1) $(c2) $(c3)
  650.   
  651.   obj1 = array.o cmd.o cons.o consarg.o doarg.o doio.o dolist.o dump.o
  652. ! obj2 = eval.o form.o hash.o $(mallocobj) perl.o regcomp.o regexec.o
  653.   obj3 = stab.o str.o toke.o util.o
  654.   
  655.   obj = $(obj1) $(obj2) $(obj3)
  656. --- 96,109 ----
  657.   
  658.   c = $(c1) $(c2) $(c3)
  659.   
  660. + s1 = array.c cmd.c cons.c consarg.c doarg.c doio.c dolist.c dump.c
  661. + s2 = eval.c form.c hash.c perl.c regcomp.c regexec.c
  662. + s3 = stab.c str.c toke.c util.c usersub.c perly.c
  663. + 
  664. + saber = $(s1) $(s2) $(s3)
  665. + 
  666.   obj1 = array.o cmd.o cons.o consarg.o doarg.o doio.o dolist.o dump.o
  667. ! obj2 = eval.o form.o $(mallocobj) perl.o regcomp.o regexec.o
  668.   obj3 = stab.o str.o toke.o util.o
  669.   
  670.   obj = $(obj1) $(obj2) $(obj3)
  671. ***************
  672. *** 122,136 ****
  673.   # The $& notation is tells Sequent machines that it can do a parallel make,
  674.   # and is harmless otherwise.
  675.   
  676. ! perl: $& perly.o $(obj) usersub.o
  677. !     $(CC) $(LARGE) $(CLDFLAGS) $(obj) perly.o usersub.o $(libs) -o perl
  678.   
  679. ! uperl.o: $& perly.o $(obj)
  680. !     -ld $(LARGE) $(LDFLAGS) -r $(obj) perly.o -o uperl.o
  681.   
  682. ! saber: perly.c
  683. !     # load $(c) perly.c
  684.   
  685.   # This version, if specified in Configure, does ONLY those scripts which need
  686.   # set-id emulation.  Suidperl must be setuid root.  It contains the "taint"
  687.   # checks as well as the special code to validate that the script in question
  688. --- 133,159 ----
  689.   # The $& notation is tells Sequent machines that it can do a parallel make,
  690.   # and is harmless otherwise.
  691.   
  692. ! perl: $& perly.o $(obj) hash.o usersub.o
  693. !     $(CC) $(LARGE) $(CLDFLAGS) $(obj) hash.o perly.o usersub.o $(libs) -o perl
  694.   
  695. ! # This command assumes that /usr/include/dbz.h and /usr/lib/dbz.o exist.
  696.   
  697. ! dbzperl: $& perly.o $(obj) zhash.o usersub.o
  698. !     $(CC) $(LARGE) $(CLDFLAGS) $(obj) zhash.o /usr/lib/dbz.o perly.o usersub.o $(libs) -o dbzperl
  699.   
  700. + zhash.o: hash.c $(h)
  701. +     $(RMS) zhash.c
  702. +     $(SLN) hash.c zhash.c
  703. +     $(CCCMD) -DWANT_DBZ zhash.c
  704. +     $(RMS) zhash.c
  705. + 
  706. + uperl.o: $& perly.o $(obj) hash.o
  707. +     -ld $(LARGE) $(LDFLAGS) -r $(obj) hash.o perly.o -o uperl.o
  708. + 
  709. + saber: $(saber)
  710. +     # load $(saber)
  711. +     # load /lib/libm.a
  712. + 
  713.   # This version, if specified in Configure, does ONLY those scripts which need
  714.   # set-id emulation.  Suidperl must be setuid root.  It contains the "taint"
  715.   # checks as well as the special code to validate that the script in question
  716. ***************
  717. *** 152,275 ****
  718.   # Replicating all this junk is yucky, but I don't see a portable way to fix it.
  719.   
  720.   tperly.o: perly.c perly.h $(h)
  721. !     /bin/rm -f tperly.c
  722.       $(SLN) perly.c tperly.c
  723.       $(CCCMD) -DTAINT tperly.c
  724. !     /bin/rm -f tperly.c
  725.   
  726.   tperl.o: perl.c perly.h patchlevel.h perl.h $(h)
  727. !     /bin/rm -f tperl.c
  728.       $(SLN) perl.c tperl.c
  729.       $(CCCMD) -DTAINT tperl.c
  730. !     /bin/rm -f tperl.c
  731.   
  732.   sperl.o: perl.c perly.h patchlevel.h $(h)
  733. !     /bin/rm -f sperl.c
  734.       $(SLN) perl.c sperl.c
  735.       $(CCCMD) -DTAINT -DIAMSUID sperl.c
  736. !     /bin/rm -f sperl.c
  737.   
  738.   tarray.o: array.c $(h)
  739. !     /bin/rm -f tarray.c
  740.       $(SLN) array.c tarray.c
  741.       $(CCCMD) -DTAINT tarray.c
  742. !     /bin/rm -f tarray.c
  743.   
  744.   tcmd.o: cmd.c $(h)
  745. !     /bin/rm -f tcmd.c
  746.       $(SLN) cmd.c tcmd.c
  747.       $(CCCMD) -DTAINT tcmd.c
  748. !     /bin/rm -f tcmd.c
  749.   
  750.   tcons.o: cons.c $(h) perly.h
  751. !     /bin/rm -f tcons.c
  752.       $(SLN) cons.c tcons.c
  753.       $(CCCMD) -DTAINT tcons.c
  754. !     /bin/rm -f tcons.c
  755.   
  756.   tconsarg.o: consarg.c $(h)
  757. !     /bin/rm -f tconsarg.c
  758.       $(SLN) consarg.c tconsarg.c
  759.       $(CCCMD) -DTAINT tconsarg.c
  760. !     /bin/rm -f tconsarg.c
  761.   
  762.   tdoarg.o: doarg.c $(h)
  763. !     /bin/rm -f tdoarg.c
  764.       $(SLN) doarg.c tdoarg.c
  765.       $(CCCMD) -DTAINT tdoarg.c
  766. !     /bin/rm -f tdoarg.c
  767.   
  768.   tdoio.o: doio.c $(h)
  769. !     /bin/rm -f tdoio.c
  770.       $(SLN) doio.c tdoio.c
  771.       $(CCCMD) -DTAINT tdoio.c
  772. !     /bin/rm -f tdoio.c
  773.   
  774.   tdolist.o: dolist.c $(h)
  775. !     /bin/rm -f tdolist.c
  776.       $(SLN) dolist.c tdolist.c
  777.       $(CCCMD) -DTAINT tdolist.c
  778. !     /bin/rm -f tdolist.c
  779.   
  780.   tdump.o: dump.c $(h)
  781. !     /bin/rm -f tdump.c
  782.       $(SLN) dump.c tdump.c
  783.       $(CCCMD) -DTAINT tdump.c
  784. !     /bin/rm -f tdump.c
  785.   
  786.   teval.o: eval.c $(h)
  787. !     /bin/rm -f teval.c
  788.       $(SLN) eval.c teval.c
  789.       $(CCCMD) -DTAINT teval.c
  790. !     /bin/rm -f teval.c
  791.   
  792.   tform.o: form.c $(h)
  793. !     /bin/rm -f tform.c
  794.       $(SLN) form.c tform.c
  795.       $(CCCMD) -DTAINT tform.c
  796. !     /bin/rm -f tform.c
  797.   
  798.   thash.o: hash.c $(h)
  799. !     /bin/rm -f thash.c
  800.       $(SLN) hash.c thash.c
  801.       $(CCCMD) -DTAINT thash.c
  802. !     /bin/rm -f thash.c
  803.   
  804.   tregcomp.o: regcomp.c $(h)
  805. !     /bin/rm -f tregcomp.c
  806.       $(SLN) regcomp.c tregcomp.c
  807.       $(CCCMD) -DTAINT tregcomp.c
  808. !     /bin/rm -f tregcomp.c
  809.   
  810.   tregexec.o: regexec.c $(h)
  811. !     /bin/rm -f tregexec.c
  812.       $(SLN) regexec.c tregexec.c
  813.       $(CCCMD) -DTAINT tregexec.c
  814. !     /bin/rm -f tregexec.c
  815.   
  816.   tstab.o: stab.c $(h)
  817. !     /bin/rm -f tstab.c
  818.       $(SLN) stab.c tstab.c
  819.       $(CCCMD) -DTAINT tstab.c
  820. !     /bin/rm -f tstab.c
  821.   
  822.   tstr.o: str.c $(h) perly.h
  823. !     /bin/rm -f tstr.c
  824.       $(SLN) str.c tstr.c
  825.       $(CCCMD) -DTAINT tstr.c
  826. !     /bin/rm -f tstr.c
  827.   
  828.   ttoke.o: toke.c $(h) perly.h
  829. !     /bin/rm -f ttoke.c
  830.       $(SLN) toke.c ttoke.c
  831.       $(CCCMD) -DTAINT ttoke.c
  832. !     /bin/rm -f ttoke.c
  833.   
  834.   tutil.o: util.c $(h)
  835. !     /bin/rm -f tutil.c
  836.       $(SLN) util.c tutil.c
  837.       $(CCCMD) -DTAINT tutil.c
  838. !     /bin/rm -f tutil.c
  839.   
  840.   perly.h: perly.c
  841.       @ echo Dummy dependency for dumb parallel make
  842. --- 175,298 ----
  843.   # Replicating all this junk is yucky, but I don't see a portable way to fix it.
  844.   
  845.   tperly.o: perly.c perly.h $(h)
  846. !     $(RMS) tperly.c
  847.       $(SLN) perly.c tperly.c
  848.       $(CCCMD) -DTAINT tperly.c
  849. !     $(RMS) tperly.c
  850.   
  851.   tperl.o: perl.c perly.h patchlevel.h perl.h $(h)
  852. !     $(RMS) tperl.c
  853.       $(SLN) perl.c tperl.c
  854.       $(CCCMD) -DTAINT tperl.c
  855. !     $(RMS) tperl.c
  856.   
  857.   sperl.o: perl.c perly.h patchlevel.h $(h)
  858. !     $(RMS) sperl.c
  859.       $(SLN) perl.c sperl.c
  860.       $(CCCMD) -DTAINT -DIAMSUID sperl.c
  861. !     $(RMS) sperl.c
  862.   
  863.   tarray.o: array.c $(h)
  864. !     $(RMS) tarray.c
  865.       $(SLN) array.c tarray.c
  866.       $(CCCMD) -DTAINT tarray.c
  867. !     $(RMS) tarray.c
  868.   
  869.   tcmd.o: cmd.c $(h)
  870. !     $(RMS) tcmd.c
  871.       $(SLN) cmd.c tcmd.c
  872.       $(CCCMD) -DTAINT tcmd.c
  873. !     $(RMS) tcmd.c
  874.   
  875.   tcons.o: cons.c $(h) perly.h
  876. !     $(RMS) tcons.c
  877.       $(SLN) cons.c tcons.c
  878.       $(CCCMD) -DTAINT tcons.c
  879. !     $(RMS) tcons.c
  880.   
  881.   tconsarg.o: consarg.c $(h)
  882. !     $(RMS) tconsarg.c
  883.       $(SLN) consarg.c tconsarg.c
  884.       $(CCCMD) -DTAINT tconsarg.c
  885. !     $(RMS) tconsarg.c
  886.   
  887.   tdoarg.o: doarg.c $(h)
  888. !     $(RMS) tdoarg.c
  889.       $(SLN) doarg.c tdoarg.c
  890.       $(CCCMD) -DTAINT tdoarg.c
  891. !     $(RMS) tdoarg.c
  892.   
  893.   tdoio.o: doio.c $(h)
  894. !     $(RMS) tdoio.c
  895.       $(SLN) doio.c tdoio.c
  896.       $(CCCMD) -DTAINT tdoio.c
  897. !     $(RMS) tdoio.c
  898.   
  899.   tdolist.o: dolist.c $(h)
  900. !     $(RMS) tdolist.c
  901.       $(SLN) dolist.c tdolist.c
  902.       $(CCCMD) -DTAINT tdolist.c
  903. !     $(RMS) tdolist.c
  904.   
  905.   tdump.o: dump.c $(h)
  906. !     $(RMS) tdump.c
  907.       $(SLN) dump.c tdump.c
  908.       $(CCCMD) -DTAINT tdump.c
  909. !     $(RMS) tdump.c
  910.   
  911.   teval.o: eval.c $(h)
  912. !     $(RMS) teval.c
  913.       $(SLN) eval.c teval.c
  914.       $(CCCMD) -DTAINT teval.c
  915. !     $(RMS) teval.c
  916.   
  917.   tform.o: form.c $(h)
  918. !     $(RMS) tform.c
  919.       $(SLN) form.c tform.c
  920.       $(CCCMD) -DTAINT tform.c
  921. !     $(RMS) tform.c
  922.   
  923.   thash.o: hash.c $(h)
  924. !     $(RMS) thash.c
  925.       $(SLN) hash.c thash.c
  926.       $(CCCMD) -DTAINT thash.c
  927. !     $(RMS) thash.c
  928.   
  929.   tregcomp.o: regcomp.c $(h)
  930. !     $(RMS) tregcomp.c
  931.       $(SLN) regcomp.c tregcomp.c
  932.       $(CCCMD) -DTAINT tregcomp.c
  933. !     $(RMS) tregcomp.c
  934.   
  935.   tregexec.o: regexec.c $(h)
  936. !     $(RMS) tregexec.c
  937.       $(SLN) regexec.c tregexec.c
  938.       $(CCCMD) -DTAINT tregexec.c
  939. !     $(RMS) tregexec.c
  940.   
  941.   tstab.o: stab.c $(h)
  942. !     $(RMS) tstab.c
  943.       $(SLN) stab.c tstab.c
  944.       $(CCCMD) -DTAINT tstab.c
  945. !     $(RMS) tstab.c
  946.   
  947.   tstr.o: str.c $(h) perly.h
  948. !     $(RMS) tstr.c
  949.       $(SLN) str.c tstr.c
  950.       $(CCCMD) -DTAINT tstr.c
  951. !     $(RMS) tstr.c
  952.   
  953.   ttoke.o: toke.c $(h) perly.h
  954. !     $(RMS) ttoke.c
  955.       $(SLN) toke.c ttoke.c
  956.       $(CCCMD) -DTAINT ttoke.c
  957. !     $(RMS) ttoke.c
  958.   
  959.   tutil.o: util.c $(h)
  960. !     $(RMS) tutil.c
  961.       $(SLN) util.c tutil.c
  962.       $(CCCMD) -DTAINT tutil.c
  963. !     $(RMS) tutil.c
  964.   
  965.   perly.h: perly.c
  966.       @ echo Dummy dependency for dumb parallel make
  967. ***************
  968. *** 298,303 ****
  969. --- 321,327 ----
  970.       rm -f *.orig */*.orig *~ */*~ core $(addedbyconf) h2ph h2ph.man
  971.       rm -f perly.c perly.h t/perl Makefile config.h makedepend makedir
  972.       rm -f makefile x2p/Makefile x2p/makefile cflags x2p/cflags
  973. +     rm -f c2ph pstruct
  974.   
  975.   # The following lint has practically everything turned on.  Unfortunately,
  976.   # you have to wade through a lot of mumbo jumbo that can't be suppressed.
  977. ***************
  978. *** 327,333 ****
  979.       echo $(sh) | tr ' ' '\012' >.shlist
  980.   
  981.   # AUTOMATICALLY GENERATED MAKE DEPENDENCIES--PUT NOTHING BELOW THIS LINE
  982. ! $(obj):
  983.       @ echo "You haven't done a "'"make depend" yet!'; exit 1
  984.   makedepend: makedepend.SH
  985.       /bin/sh makedepend.SH
  986. --- 351,357 ----
  987.       echo $(sh) | tr ' ' '\012' >.shlist
  988.   
  989.   # AUTOMATICALLY GENERATED MAKE DEPENDENCIES--PUT NOTHING BELOW THIS LINE
  990. ! $(obj) hash.o:
  991.       @ echo "You haven't done a "'"make depend" yet!'; exit 1
  992.   makedepend: makedepend.SH
  993.       /bin/sh makedepend.SH
  994. ***************
  995. *** 339,341 ****
  996. --- 363,366 ----
  997.       ln Makefile ../Makefile
  998.       ;;
  999.   esac
  1000. + rm -f makefile
  1001.  
  1002. Index: x2p/Makefile.SH
  1003. *** x2p/Makefile.SH.old    Tue Nov  5 19:28:33 1991
  1004. --- x2p/Makefile.SH    Tue Nov  5 19:28:33 1991
  1005. ***************
  1006. *** 13,27 ****
  1007.       . ./config.sh
  1008.       ;;
  1009.   esac
  1010. - case "$mallocsrc" in
  1011. - '') ;;
  1012. - *) mallocsrc="../$mallocsrc";;
  1013. - esac
  1014.   echo "Extracting x2p/Makefile (with variable substitutions)"
  1015.   cat >Makefile <<!GROK!THIS!
  1016. ! # $RCSfile: Makefile.SH,v $$Revision: 4.0.1.1 $$Date: 91/06/07 12:12:14 $
  1017.   #
  1018.   # $Log:    Makefile.SH,v $
  1019.   # Revision 4.0.1.1  91/06/07  12:12:14  lwall
  1020.   # patch4: cflags now emits entire cc command except for the filename
  1021.   # 
  1022. --- 13,26 ----
  1023.       . ./config.sh
  1024.       ;;
  1025.   esac
  1026.   echo "Extracting x2p/Makefile (with variable substitutions)"
  1027.   cat >Makefile <<!GROK!THIS!
  1028. ! # $RCSfile: Makefile.SH,v $$Revision: 4.0.1.2 $$Date: 91/11/05 19:19:04 $
  1029.   #
  1030.   # $Log:    Makefile.SH,v $
  1031. + # Revision 4.0.1.2  91/11/05  19:19:04  lwall
  1032. + # patch11: random cleanup
  1033. + # 
  1034.   # Revision 4.0.1.1  91/06/07  12:12:14  lwall
  1035.   # patch4: cflags now emits entire cc command except for the filename
  1036.   # 
  1037. ***************
  1038. *** 119,125 ****
  1039.   lint:
  1040.       lint $(lintflags) $(defs) $(c) > a2p.fuzz
  1041.   
  1042. ! depend: ../makedepend
  1043.       ../makedepend
  1044.   
  1045.   clist:
  1046. --- 118,124 ----
  1047.   lint:
  1048.       lint $(lintflags) $(defs) $(c) > a2p.fuzz
  1049.   
  1050. ! depend: $(mallocsrc) ../makedepend
  1051.       ../makedepend
  1052.   
  1053.   clist:
  1054. ***************
  1055. *** 135,140 ****
  1056. --- 134,142 ----
  1057.       rm -f config.sh
  1058.       ln ../config.sh .
  1059.   
  1060. + malloc.c: ../malloc.c
  1061. +     sed 's/"perl.h"/"..\/perl.h"/' ../malloc.c >malloc.c
  1062. + 
  1063.   # AUTOMATICALLY GENERATED MAKE DEPENDENCIES--PUT NOTHING BELOW THIS LINE
  1064.   $(obj):
  1065.       @ echo "You haven't done a "'"make depend" yet!'; exit 1
  1066. ***************
  1067. *** 148,150 ****
  1068. --- 150,153 ----
  1069.       ln Makefile ../Makefile
  1070.       ;;
  1071.   esac
  1072. + rm -f makefile
  1073.  
  1074. Index: README
  1075. *** README.old    Tue Nov  5 19:25:25 1991
  1076. --- README    Tue Nov  5 19:25:26 1991
  1077. ***************
  1078. *** 149,154 ****
  1079. --- 149,156 ----
  1080.       If you have GDBM available and want it instead of NDBM, say -DHAS_GDBM.
  1081.       C's that don't try to restore registers on longjmp() may need -DJMPCLOBBER.
  1082.       (Try this if you get random glitches.)
  1083. +     If you get duplicates upon linking for malloc et al, say -DHIDEMYMALLOC.
  1084. +     Turn on support for 64-bit integers (long longs) with -DQUAD.
  1085.   
  1086.   5)  make test
  1087.   
  1088.  
  1089. Index: hints/altos486.sh
  1090. *** hints/altos486.sh.old    Tue Nov  5 19:26:26 1991
  1091. --- hints/altos486.sh    Tue Nov  5 19:26:27 1991
  1092. ***************
  1093. *** 0 ****
  1094. --- 1,3 ----
  1095. + : have heard of problems with -lc_s on Altos 486
  1096. + set `echo " $libswanted " | sed "s/ c_s / /"`
  1097. + libswanted="$*"
  1098.  
  1099. Index: hints/apollo_C6_8.sh
  1100. *** hints/apollo_C6_8.sh.old    Tue Nov  5 19:26:28 1991
  1101. --- hints/apollo_C6_8.sh    Tue Nov  5 19:26:28 1991
  1102. ***************
  1103. *** 0 ****
  1104. --- 1,20 ----
  1105. + optimize=''
  1106. + ccflags='-DDEBUGGING -A cpu,mathchip -W0,-opt,2'
  1107. + 
  1108. + cat <<'EOF'
  1109. + Some tests may fail unless you use 'chacl -B'.  Also, op/stat
  1110. + test 2 may fail occasionally because Apollo doesn't guarantee
  1111. + that mtime will be equal to ctime on a newly created unmodified
  1112. + file.  Finally, the sleep test will sometimes fail.  See the
  1113. + sleep(3) man page to learn why.
  1114. + 
  1115. + And a note on ccflags:
  1116. + 
  1117. +     Lastly, while -A cpu,mathchip generates optimal code for your DN3500
  1118. +     running sr10.3, be aware that you should be using -A cpu,mathlib_sr10
  1119. +     if your perl must also run on any machines running sr10.0, sr10.1, or
  1120. +     sr10.2.  The -A cpu,mathchip option generates code that doesn't work on
  1121. +     pre-sr10.3 nodes.  See the cc(1) man page for more details.
  1122. +                         -- Steve Vinoski
  1123. + 
  1124. + EOF
  1125.  
  1126.  
  1127. Index: lib/assert.pl
  1128. *** lib/assert.pl.old    Tue Nov  5 19:26:48 1991
  1129. --- lib/assert.pl    Tue Nov  5 19:26:48 1991
  1130. ***************
  1131. *** 0 ****
  1132. --- 1,52 ----
  1133. + # assert.pl
  1134. + # tchrist@convex.com (Tom Christiansen)
  1135. + # 
  1136. + # Usage:
  1137. + # 
  1138. + #     &assert('@x > @y');
  1139. + #     &assert('$var > 10', $var, $othervar, @various_info);
  1140. + # 
  1141. + # That is, if the first expression evals false, we blow up.  The
  1142. + # rest of the args, if any, are nice to know because they will
  1143. + # be printed out by &panic, which is just the stack-backtrace
  1144. + # routine shamelessly borrowed from the perl debugger.
  1145. + 
  1146. + sub assert {
  1147. +     &panic("ASSERTION BOTCHED: $_[0]",$@) unless eval $_[0];
  1148. + } 
  1149. + 
  1150. + sub panic {
  1151. +     select(STDERR);
  1152. + 
  1153. +     print "\npanic: @_\n";
  1154. + 
  1155. +     exit 1 if $] <= 4.003;  # caller broken
  1156. + 
  1157. +     # stack traceback gratefully borrowed from perl debugger
  1158. + 
  1159. +     local($i,$_);
  1160. +     local($p,$f,$l,$s,$h,$a,@a,@sub);
  1161. +     for ($i = 0; ($p,$f,$l,$s,$h,$w) = caller($i); $i++) {
  1162. +     @a = @DB'args;
  1163. +     for (@a) {
  1164. +         if (/^StB\000/ && length($_) == length($_main{'_main'})) {
  1165. +         $_ = sprintf("%s",$_);
  1166. +         }
  1167. +         else {
  1168. +         s/'/\\'/g;
  1169. +         s/([^\0]*)/'$1'/ unless /^-?[\d.]+$/;
  1170. +         s/([\200-\377])/sprintf("M-%c",ord($1)&0177)/eg;
  1171. +         s/([\0-\37\177])/sprintf("^%c",ord($1)^64)/eg;
  1172. +         }
  1173. +     }
  1174. +     $w = $w ? '@ = ' : '$ = ';
  1175. +     $a = $h ? '(' . join(', ', @a) . ')' : '';
  1176. +     push(@sub, "$w&$s$a from file $f line $l\n");
  1177. +     }
  1178. +     for ($i=0; $i <= $#sub; $i++) {
  1179. +     print $sub[$i];
  1180. +     }
  1181. +     exit 1;
  1182. + } 
  1183. + 
  1184. + 1;
  1185.  
  1186. Index: usub/bsdcurses.mus
  1187. *** usub/bsdcurses.mus.old    Tue Nov  5 19:28:15 1991
  1188. --- usub/bsdcurses.mus    Tue Nov  5 19:28:16 1991
  1189. ***************
  1190. *** 0 ****
  1191. --- 1,684 ----
  1192. + /* $RCSfile: bsdcurses.mus,v $$Revision: 4.0.1.1 $$Date: 91/11/05 19:04:53 $
  1193. +  *
  1194. +  * $Log:    bsdcurses.mus,v $
  1195. +  * Revision 4.0.1.1  91/11/05  19:04:53  lwall
  1196. +  * initial checkin
  1197. +  * 
  1198. +  * Revision 4.0  91/03/20  01:56:13  lwall
  1199. +  * 4.0 baseline.
  1200. +  * 
  1201. +  * Revision 3.0.1.1  90/08/09  04:05:21  lwall
  1202. +  * patch19: Initial revision
  1203. +  * 
  1204. +  */
  1205. + 
  1206. + #include "EXTERN.h"
  1207. + #include "perl.h"
  1208. + 
  1209. + char *savestr();
  1210. + 
  1211. + #include <curses.h>
  1212. + 
  1213. + static enum uservars {
  1214. +     UV_curscr,
  1215. +     UV_stdscr,
  1216. +     UV_Def_term,
  1217. +     UV_My_term,
  1218. +     UV_ttytype,
  1219. +     UV_LINES,
  1220. +     UV_COLS,
  1221. +     UV_ERR,
  1222. +     UV_OK,
  1223. + };
  1224. + 
  1225. + static enum usersubs {
  1226. +     US_addch,
  1227. +     US_waddch,
  1228. +     US_addstr,
  1229. +     US_waddstr,
  1230. +     US_box,
  1231. +     US_clear,
  1232. +     US_wclear,
  1233. +     US_clearok,
  1234. +     US_clrtobot,
  1235. +     US_wclrtobot,
  1236. +     US_clrtoeol,
  1237. +     US_wclrtoeol,
  1238. +     US_delch,
  1239. +     US_wdelch,
  1240. +     US_deleteln,
  1241. +     US_wdeleteln,
  1242. +     US_erase,
  1243. +     US_werase,
  1244. +     US_flushok,
  1245. +     US_idlok,
  1246. +     US_insch,
  1247. +     US_winsch,
  1248. +     US_insertln,
  1249. +     US_winsertln,
  1250. +     US_move,
  1251. +     US_wmove,
  1252. +     US_overlay,
  1253. +     US_overwrite,
  1254. +     US_printw,
  1255. +     US_wprintw,
  1256. +     US_refresh,
  1257. +     US_wrefresh,
  1258. +     US_standout,
  1259. +     US_wstandout,
  1260. +     US_standend,
  1261. +     US_wstandend,
  1262. +     US_cbreak,
  1263. +     US_nocbreak,
  1264. +     US_echo,
  1265. +     US_noecho,
  1266. +     US_getch,
  1267. +     US_wgetch,
  1268. +     US_getstr,
  1269. +     US_wgetstr,
  1270. +     US_raw,
  1271. +     US_noraw,
  1272. +     US_scanw,
  1273. +     US_wscanw,
  1274. +     US_baudrate,
  1275. +     US_delwin,
  1276. +     US_endwin,
  1277. +     US_erasechar,
  1278. +     US_getcap,
  1279. +     US_getyx,
  1280. +     US_inch,
  1281. +     US_winch,
  1282. +     US_initscr,
  1283. +     US_killchar,
  1284. +     US_leaveok,
  1285. +     US_longname,
  1286. +     US_fullname,
  1287. +     US_mvwin,
  1288. +     US_newwin,
  1289. +     US_nl,
  1290. +     US_nonl,
  1291. +     US_scrollok,
  1292. +     US_subwin,
  1293. +     US_touchline,
  1294. +     US_touchoverlap,
  1295. +     US_touchwin,
  1296. +     US_unctrl,
  1297. +     US_gettmode,
  1298. +     US_mvcur,
  1299. +     US_scroll,
  1300. +     US_savetty,
  1301. +     US_resetty,
  1302. +     US_setterm,
  1303. +     US_tstp,
  1304. +     US__putchar,
  1305. +     US_testcallback,
  1306. + };
  1307. + 
  1308. + static int usersub();
  1309. + static int userset();
  1310. + static int userval();
  1311. + 
  1312. + int
  1313. + init_curses()
  1314. + {
  1315. +     struct ufuncs uf;
  1316. +     char *filename = "curses.c";
  1317. + 
  1318. +     uf.uf_set = userset;
  1319. +     uf.uf_val = userval;
  1320. + 
  1321. + #define MAGICVAR(name, ix) uf.uf_index = ix, magicname(name, &uf, sizeof uf)
  1322. + 
  1323. +     MAGICVAR("curscr",    UV_curscr);
  1324. +     MAGICVAR("stdscr",    UV_stdscr);
  1325. +     MAGICVAR("Def_term",UV_Def_term);
  1326. +     MAGICVAR("My_term",    UV_My_term);
  1327. +     MAGICVAR("ttytype",    UV_ttytype);
  1328. +     MAGICVAR("LINES",    UV_LINES);
  1329. +     MAGICVAR("COLS",    UV_COLS);
  1330. +     MAGICVAR("ERR",    UV_ERR);
  1331. +     MAGICVAR("OK",    UV_OK);
  1332. + 
  1333. +     make_usub("addch",        US_addch,    usersub, filename);
  1334. +     make_usub("waddch",        US_waddch,    usersub, filename);
  1335. +     make_usub("addstr",        US_addstr,    usersub, filename);
  1336. +     make_usub("waddstr",    US_waddstr,    usersub, filename);
  1337. +     make_usub("box",        US_box,        usersub, filename);
  1338. +     make_usub("clear",        US_clear,    usersub, filename);
  1339. +     make_usub("wclear",        US_wclear,    usersub, filename);
  1340. +     make_usub("clearok",    US_clearok,    usersub, filename);
  1341. +     make_usub("clrtobot",    US_clrtobot,    usersub, filename);
  1342. +     make_usub("wclrtobot",    US_wclrtobot,    usersub, filename);
  1343. +     make_usub("clrtoeol",    US_clrtoeol,    usersub, filename);
  1344. +     make_usub("wclrtoeol",    US_wclrtoeol,    usersub, filename);
  1345. +     make_usub("delch",        US_delch,    usersub, filename);
  1346. +     make_usub("wdelch",        US_wdelch,    usersub, filename);
  1347. +     make_usub("deleteln",    US_deleteln,    usersub, filename);
  1348. +     make_usub("wdeleteln",    US_wdeleteln,    usersub, filename);
  1349. +     make_usub("erase",        US_erase,    usersub, filename);
  1350. +     make_usub("werase",        US_werase,    usersub, filename);
  1351. +     make_usub("flushok",    US_flushok,    usersub, filename);
  1352. +     make_usub("idlok",        US_idlok,    usersub, filename);
  1353. +     make_usub("insch",        US_insch,    usersub, filename);
  1354. +     make_usub("winsch",        US_winsch,    usersub, filename);
  1355. +     make_usub("insertln",    US_insertln,    usersub, filename);
  1356. +     make_usub("winsertln",    US_winsertln,    usersub, filename);
  1357. +     make_usub("move",        US_move,    usersub, filename);
  1358. +     make_usub("wmove",        US_wmove,    usersub, filename);
  1359. +     make_usub("overlay",    US_overlay,    usersub, filename);
  1360. +     make_usub("overwrite",    US_overwrite,    usersub, filename);
  1361. +     make_usub("printw",        US_printw,    usersub, filename);
  1362. +     make_usub("wprintw",    US_wprintw,    usersub, filename);
  1363. +     make_usub("refresh",    US_refresh,    usersub, filename);
  1364. +     make_usub("wrefresh",    US_wrefresh,    usersub, filename);
  1365. +     make_usub("standout",    US_standout,    usersub, filename);
  1366. +     make_usub("wstandout",    US_wstandout,    usersub, filename);
  1367. +     make_usub("standend",    US_standend,    usersub, filename);
  1368. +     make_usub("wstandend",    US_wstandend,    usersub, filename);
  1369. +     make_usub("cbreak",        US_cbreak,    usersub, filename);
  1370. +     make_usub("nocbreak",    US_nocbreak,    usersub, filename);
  1371. +     make_usub("echo",        US_echo,    usersub, filename);
  1372. +     make_usub("noecho",        US_noecho,    usersub, filename);
  1373. +     make_usub("getch",        US_getch,    usersub, filename);
  1374. +     make_usub("wgetch",        US_wgetch,    usersub, filename);
  1375. +     make_usub("getstr",        US_getstr,    usersub, filename);
  1376. +     make_usub("wgetstr",    US_wgetstr,    usersub, filename);
  1377. +     make_usub("raw",        US_raw,        usersub, filename);
  1378. +     make_usub("noraw",        US_noraw,    usersub, filename);
  1379. +     make_usub("scanw",        US_scanw,    usersub, filename);
  1380. +     make_usub("wscanw",        US_wscanw,    usersub, filename);
  1381. +     make_usub("baudrate",    US_baudrate,    usersub, filename);
  1382. +     make_usub("delwin",        US_delwin,    usersub, filename);
  1383. +     make_usub("endwin",        US_endwin,    usersub, filename);
  1384. +     make_usub("erasechar",    US_erasechar,    usersub, filename);
  1385. +     make_usub("getcap",        US_getcap,    usersub, filename);
  1386. +     make_usub("getyx",        US_getyx,    usersub, filename);
  1387. +     make_usub("inch",        US_inch,    usersub, filename);
  1388. +     make_usub("winch",        US_winch,    usersub, filename);
  1389. +     make_usub("initscr",    US_initscr,    usersub, filename);
  1390. +     make_usub("killchar",    US_killchar,    usersub, filename);
  1391. +     make_usub("leaveok",    US_leaveok,    usersub, filename);
  1392. +     make_usub("longname",    US_longname,    usersub, filename);
  1393. +     make_usub("fullname",    US_fullname,    usersub, filename);
  1394. +     make_usub("mvwin",        US_mvwin,    usersub, filename);
  1395. +     make_usub("newwin",        US_newwin,    usersub, filename);
  1396. +     make_usub("nl",        US_nl,        usersub, filename);
  1397. +     make_usub("nonl",        US_nonl,    usersub, filename);
  1398. +     make_usub("scrollok",    US_scrollok,    usersub, filename);
  1399. +     make_usub("subwin",        US_subwin,    usersub, filename);
  1400. +     make_usub("touchline",    US_touchline,    usersub, filename);
  1401. +     make_usub("touchoverlap",    US_touchoverlap,usersub, filename);
  1402. +     make_usub("touchwin",    US_touchwin,    usersub, filename);
  1403. +     make_usub("unctrl",        US_unctrl,    usersub, filename);
  1404. +     make_usub("gettmode",    US_gettmode,    usersub, filename);
  1405. +     make_usub("mvcur",        US_mvcur,    usersub, filename);
  1406. +     make_usub("scroll",        US_scroll,    usersub, filename);
  1407. +     make_usub("savetty",    US_savetty,    usersub, filename);
  1408. +     make_usub("resetty",    US_resetty,    usersub, filename);
  1409. +     make_usub("setterm",    US_setterm,    usersub, filename);
  1410. +     make_usub("tstp",        US_tstp,    usersub, filename);
  1411. +     make_usub("_putchar",    US__putchar,    usersub, filename);
  1412. +     make_usub("testcallback",    US_testcallback,usersub, filename);
  1413. + };
  1414. + 
  1415. + static int
  1416. + usersub(ix, sp, items)
  1417. + int ix;
  1418. + register int sp;
  1419. + register int items;
  1420. + {
  1421. +     STR **st = stack->ary_array + sp;
  1422. +     register int i;
  1423. +     register char *tmps;
  1424. +     register STR *Str;        /* used in str_get and str_gnum macros */
  1425. + 
  1426. +     switch (ix) {
  1427. + CASE int addch
  1428. + I    char        ch
  1429. + END
  1430. + 
  1431. + CASE int waddch
  1432. + I    WINDOW*        win
  1433. + I    char        ch
  1434. + END
  1435. + 
  1436. + CASE int addstr
  1437. + I    char*        str
  1438. + END
  1439. + 
  1440. + CASE int waddstr
  1441. + I    WINDOW*        win
  1442. + I    char*        str
  1443. + END
  1444. + 
  1445. + CASE int box
  1446. + I    WINDOW*        win
  1447. + I    char        vert
  1448. + I    char        hor
  1449. + END
  1450. + 
  1451. + CASE int clear
  1452. + END
  1453. + 
  1454. + CASE int wclear
  1455. + I    WINDOW*        win
  1456. + END
  1457. + 
  1458. + CASE int clearok
  1459. + I    WINDOW*        win
  1460. + I    bool        boolf
  1461. + END
  1462. + 
  1463. + CASE int clrtobot
  1464. + END
  1465. + 
  1466. + CASE int wclrtobot
  1467. + I    WINDOW*        win
  1468. + END
  1469. + 
  1470. + CASE int clrtoeol
  1471. + END
  1472. + 
  1473. + CASE int wclrtoeol
  1474. + I    WINDOW*        win
  1475. + END
  1476. + 
  1477. + CASE int delch
  1478. + END
  1479. + 
  1480. + CASE int wdelch
  1481. + I    WINDOW*        win
  1482. + END
  1483. + 
  1484. + CASE int deleteln
  1485. + END
  1486. + 
  1487. + CASE int wdeleteln
  1488. + I    WINDOW*        win
  1489. + END
  1490. + 
  1491. + CASE int erase
  1492. + END
  1493. + 
  1494. + CASE int werase
  1495. + I    WINDOW*        win
  1496. + END
  1497. + 
  1498. + CASE int flushok
  1499. + I    WINDOW*        win
  1500. + I    bool        boolf
  1501. + END
  1502. + 
  1503. + CASE int idlok
  1504. + I    WINDOW*        win
  1505. + I    bool        boolf
  1506. + END
  1507. + 
  1508. + CASE int insch
  1509. + I    char        c
  1510. + END
  1511. + 
  1512. + CASE int winsch
  1513. + I    WINDOW*        win
  1514. + I    char        c
  1515. + END
  1516. + 
  1517. + CASE int insertln
  1518. + END
  1519. + 
  1520. + CASE int winsertln
  1521. + I    WINDOW*        win
  1522. + END
  1523. + 
  1524. + CASE int move
  1525. + I    int        y
  1526. + I    int        x
  1527. + END
  1528. + 
  1529. + CASE int wmove
  1530. + I    WINDOW*        win
  1531. + I    int        y
  1532. + I    int        x
  1533. + END
  1534. + 
  1535. + CASE int overlay
  1536. + I    WINDOW*        win1
  1537. + I    WINDOW*        win2
  1538. + END
  1539. + 
  1540. + CASE int overwrite
  1541. + I    WINDOW*        win1
  1542. + I    WINDOW*        win2
  1543. + END
  1544. + 
  1545. +     case US_printw:
  1546. +     if (items < 1)
  1547. +         fatal("Usage: &printw($fmt, $arg1, $arg2, ... )");
  1548. +     else {
  1549. +         int retval;
  1550. +         STR*    str =        str_new(0);
  1551. + 
  1552. +         do_sprintf(str, items - 1, st + 1);
  1553. +         retval = addstr(str->str_ptr);
  1554. +         str_numset(st[0], (double) retval);
  1555. +         str_free(str);
  1556. +     }
  1557. +     return sp;
  1558. + 
  1559. +     case US_wprintw:
  1560. +     if (items < 2)
  1561. +         fatal("Usage: &wprintw($win, $fmt, $arg1, $arg2, ... )");
  1562. +     else {
  1563. +         int retval;
  1564. +         STR*    str =        str_new(0);
  1565. +         WINDOW*    win =        *(WINDOW**)    str_get(st[1]);
  1566. + 
  1567. +         do_sprintf(str, items - 1, st + 1);
  1568. +         retval = waddstr(win, str->str_ptr);
  1569. +         str_numset(st[0], (double) retval);
  1570. +         str_free(str);
  1571. +     }
  1572. +     return sp;
  1573. + 
  1574. + CASE int refresh
  1575. + END
  1576. + 
  1577. + CASE int wrefresh
  1578. + I    WINDOW*        win
  1579. + END
  1580. + 
  1581. + CASE int standout
  1582. + END
  1583. + 
  1584. + CASE int wstandout
  1585. + I    WINDOW*        win
  1586. + END
  1587. + 
  1588. + CASE int standend
  1589. + END
  1590. + 
  1591. + CASE int wstandend
  1592. + I    WINDOW*        win
  1593. + END
  1594. + 
  1595. + CASE int cbreak
  1596. + END
  1597. + 
  1598. + CASE int nocbreak
  1599. + END
  1600. + 
  1601. + CASE int echo
  1602. + END
  1603. + 
  1604. + CASE int noecho
  1605. + END
  1606. + 
  1607. +     case US_getch:
  1608. +         if (items != 0)
  1609. +             fatal("Usage: &getch()");
  1610. +         else {
  1611. +             int retval;
  1612. +         char retch;
  1613. + 
  1614. +             retval = getch();
  1615. +         if (retval == EOF)
  1616. +         st[0] = &str_undef;
  1617. +         else {
  1618. +         retch = retval;
  1619. +         str_nset(st[0], &retch, 1);
  1620. +         }
  1621. +         }
  1622. +         return sp;
  1623. + 
  1624. +     case US_wgetch:
  1625. +         if (items != 1)
  1626. +             fatal("Usage: &wgetch($win)");
  1627. +         else {
  1628. +             int retval;
  1629. +         char retch;
  1630. +             WINDOW*     win =           *(WINDOW**)     str_get(st[1]);
  1631. + 
  1632. +             retval = wgetch(win);
  1633. +         if (retval == EOF)
  1634. +         st[0] = &str_undef;
  1635. +         else {
  1636. +         retch = retval;
  1637. +         str_nset(st[0], &retch, 1);
  1638. +         }
  1639. +         }
  1640. +         return sp;
  1641. + 
  1642. + CASE int getstr
  1643. + IO    char*        str
  1644. + END
  1645. + 
  1646. + CASE int wgetstr
  1647. + I    WINDOW*        win
  1648. + IO    char*        str
  1649. + END
  1650. + 
  1651. + CASE int raw
  1652. + END
  1653. + 
  1654. + CASE int noraw
  1655. + END
  1656. + 
  1657. + CASE int baudrate
  1658. + END
  1659. + 
  1660. + CASE int delwin
  1661. + I    WINDOW*        win
  1662. + END
  1663. + 
  1664. + CASE int endwin
  1665. + END
  1666. + 
  1667. + CASE int erasechar
  1668. + END
  1669. + 
  1670. + CASE char* getcap
  1671. + I    char*        str
  1672. + END
  1673. + 
  1674. +     case US_getyx:
  1675. +     if (items != 3)
  1676. +         fatal("Usage: &getyx($win, $y, $x)");
  1677. +     else {
  1678. +         int retval;
  1679. +         STR*    str =        str_new(0);
  1680. +         WINDOW*    win =        *(WINDOW**)    str_get(st[1]);
  1681. +         int        y;
  1682. +         int        x;
  1683. + 
  1684. +         do_sprintf(str, items - 1, st + 1);
  1685. +         retval = getyx(win, y, x);
  1686. +         str_numset(st[2], (double)y);
  1687. +         str_numset(st[3], (double)x);
  1688. +         str_numset(st[0], (double) retval);
  1689. +         str_free(str);
  1690. +     }
  1691. +     return sp;
  1692. + 
  1693. +     
  1694. + CASE int inch
  1695. + END
  1696. + 
  1697. + CASE int winch
  1698. + I    WINDOW*        win
  1699. + END
  1700. + 
  1701. + CASE WINDOW* initscr
  1702. + END
  1703. + 
  1704. + CASE int killchar
  1705. + END
  1706. + 
  1707. + CASE int leaveok
  1708. + I    WINDOW*        win
  1709. + I    bool        boolf
  1710. + END
  1711. + 
  1712. + CASE char* longname
  1713. + I    char*        termbuf
  1714. + IO    char*        name
  1715. + END
  1716. + 
  1717. + CASE int fullname
  1718. + I    char*        termbuf
  1719. + IO    char*        name
  1720. + END
  1721. + 
  1722. + CASE int mvwin
  1723. + I    WINDOW*        win
  1724. + I    int        y
  1725. + I    int        x
  1726. + END
  1727. + 
  1728. + CASE WINDOW* newwin
  1729. + I    int        lines
  1730. + I    int        cols
  1731. + I    int        begin_y
  1732. + I    int        begin_x
  1733. + END
  1734. + 
  1735. + CASE int nl
  1736. + END
  1737. + 
  1738. + CASE int nonl
  1739. + END
  1740. + 
  1741. + CASE int scrollok
  1742. + I    WINDOW*        win
  1743. + I    bool        boolf
  1744. + END
  1745. + 
  1746. + CASE WINDOW* subwin
  1747. + I    WINDOW*        win
  1748. + I    int        lines
  1749. + I    int        cols
  1750. + I    int        begin_y
  1751. + I    int        begin_x
  1752. + END
  1753. + 
  1754. + CASE int touchline
  1755. + I    WINDOW*        win
  1756. + I    int        y
  1757. + I    int        startx
  1758. + I    int        endx
  1759. + END
  1760. + 
  1761. + CASE int touchoverlap
  1762. + I    WINDOW*        win1
  1763. + I    WINDOW*        win2
  1764. + END
  1765. + 
  1766. + CASE int touchwin
  1767. + I    WINDOW*        win
  1768. + END
  1769. + 
  1770. + CASE char* unctrl
  1771. + I    char        ch
  1772. + END
  1773. + 
  1774. + CASE int gettmode
  1775. + END
  1776. + 
  1777. + CASE int mvcur
  1778. + I    int        lasty
  1779. + I    int        lastx
  1780. + I    int        newy
  1781. + I    int        newx
  1782. + END
  1783. + 
  1784. + CASE int scroll
  1785. + I    WINDOW*        win
  1786. + END
  1787. + 
  1788. + CASE int savetty
  1789. + END
  1790. + 
  1791. + CASE void resetty
  1792. + END
  1793. + 
  1794. + CASE int setterm
  1795. + I    char*        name
  1796. + END
  1797. + 
  1798. + CASE int tstp
  1799. + END
  1800. + 
  1801. + CASE int _putchar
  1802. + I    char        ch
  1803. + END
  1804. + 
  1805. +     case US_testcallback:
  1806. +     sp = callback("callback", sp + items, curcsv->wantarray, 1, items);
  1807. +     break;
  1808. + 
  1809. +     default:
  1810. +     fatal("Unimplemented user-defined subroutine");
  1811. +     }
  1812. +     return sp;
  1813. + }
  1814. + 
  1815. + static int
  1816. + userval(ix, str)
  1817. + int ix;
  1818. + STR *str;
  1819. + {
  1820. +     switch (ix) {
  1821. +     case UV_COLS:
  1822. +     str_numset(str, (double)COLS);
  1823. +     break;
  1824. +     case UV_Def_term:
  1825. +     str_set(str, Def_term);
  1826. +     break;
  1827. +     case UV_ERR:
  1828. +     str_numset(str, (double)ERR);
  1829. +     break;
  1830. +     case UV_LINES:
  1831. +     str_numset(str, (double)LINES);
  1832. +     break;
  1833. +     case UV_My_term:
  1834. +     str_numset(str, (double)My_term);
  1835. +     break;
  1836. +     case UV_OK:
  1837. +     str_numset(str, (double)OK);
  1838. +     break;
  1839. +     case UV_curscr:
  1840. +     str_nset(str, &curscr, sizeof(WINDOW*));
  1841. +     break;
  1842. +     case UV_stdscr:
  1843. +     str_nset(str, &stdscr, sizeof(WINDOW*));
  1844. +     break;
  1845. +     case UV_ttytype:
  1846. +     str_set(str, ttytype);
  1847. +     break;
  1848. +     }
  1849. +     return 0;
  1850. + }
  1851. + 
  1852. + static int
  1853. + userset(ix, str)
  1854. + int ix;
  1855. + STR *str;
  1856. + {
  1857. +     switch (ix) {
  1858. +     case UV_COLS:
  1859. +     COLS = (int)str_gnum(str);
  1860. +     break;
  1861. +     case UV_Def_term:
  1862. +     Def_term = savestr(str_get(str));    /* never freed */
  1863. +     break;
  1864. +     case UV_LINES:
  1865. +     LINES = (int)str_gnum(str);
  1866. +     break;
  1867. +     case UV_My_term:
  1868. +     My_term = (bool)str_gnum(str);
  1869. +     break;
  1870. +     case UV_ttytype:
  1871. +     strcpy(ttytype, str_get(str));        /* hope it fits */
  1872. +     break;
  1873. +     }
  1874. +     return 0;
  1875. + }
  1876.  
  1877. *** End of Patch 11 ***
  1878. exit 0 # Just in case...
  1879. -- 
  1880. Kent Landfield                   INTERNET: kent@sparky.IMD.Sterling.COM
  1881. Sterling Software, IMD           UUCP:     uunet!sparky!kent
  1882. Phone:    (402) 291-8300         FAX:      (402) 291-4362
  1883. Please send comp.sources.misc-related mail to kent@uunet.uu.net.
  1884.