home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume30 / perl / patch21 < prev    next >
Encoding:
Text File  |  1992-06-11  |  49.2 KB  |  1,949 lines
  1. Newsgroups: comp.sources.misc
  2. From: lwall@netlabs.com (Larry Wall)
  3. Subject:  v30i032:  perl - The perl programming language, Patch21
  4. Message-ID: <1992Jun11.180049.29460@sparky.imd.sterling.com>
  5. X-Md4-Signature: e50fb3d1dc0524c66fc79a93fcab70a5
  6. Date: Thu, 11 Jun 1992 18:00:49 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: lwall@netlabs.com (Larry Wall)
  10. Posting-number: Volume 30, Issue 32
  11. Archive-name: perl/patch21
  12. Environment: UNIX, MS-DOS, OS2
  13. Patch-To: perl: Volume 18, Issue 19-54
  14.  
  15. System: perl version 4.0
  16. Patch #: 21
  17. Priority: highish
  18. Subject: patch #20, continued
  19.  
  20. Description:
  21.     See patch #20.
  22.  
  23. Fix:    From rn, say "| patch -p -N -d DIR", where DIR is your perl source
  24.     directory.  Outside of rn, say "cd DIR; patch -p -N <thisarticle".
  25.     If you don't have the patch program, apply the following by hand,
  26.     or get patch (version 2.0, latest patchlevel).
  27.  
  28.     After patching:
  29.         *** DO NOTHING--INSTALL ALL PATCHES UP THROUGH #33 FIRST ***
  30.  
  31.     If patch indicates that patchlevel is the wrong version, you may need
  32.     to apply one or more previous patches, or the patch may already
  33.     have been applied.  See the patchlevel.h file to find out what has or
  34.     has not been applied.  In any event, don't continue with the patch.
  35.  
  36.     If you are missing previous patches they can be obtained from me:
  37.  
  38.     Larry Wall
  39.     lwall@netlabs.com
  40.  
  41.     If you send a mail message of the following form it will greatly speed
  42.     processing:
  43.  
  44.     Subject: Command
  45.     @SH mailpatch PATH perl 4.0 LIST
  46.            ^ note the c
  47.  
  48.     where PATH is a return path FROM ME TO YOU either in Internet notation,
  49.     or in bang notation from some well-known host, and LIST is the number
  50.     of one or more patches you need, separated by spaces, commas, and/or
  51.     hyphens.  Saying 35- says everything from 35 to the end.
  52.  
  53.  
  54. Index: patchlevel.h
  55. Prereq: 20
  56. 1c1
  57. < #define PATCHLEVEL 20
  58. ---
  59. > #define PATCHLEVEL 21
  60.  
  61. Index: x2p/Makefile.SH
  62. *** x2p/Makefile.SH.old    Mon Jun  8 17:52:41 1992
  63. --- x2p/Makefile.SH    Mon Jun  8 17:52:42 1992
  64. ***************
  65. *** 14,23 ****
  66.       ;;
  67.   esac
  68.   echo "Extracting x2p/Makefile (with variable substitutions)"
  69.   cat >Makefile <<!GROK!THIS!
  70. ! # $RCSfile: Makefile.SH,v $$Revision: 4.0.1.2 $$Date: 91/11/05 19:19:04 $
  71.   #
  72.   # $Log:    Makefile.SH,v $
  73.   # Revision 4.0.1.2  91/11/05  19:19:04  lwall
  74.   # patch11: random cleanup
  75.   # 
  76. --- 14,29 ----
  77.       ;;
  78.   esac
  79.   echo "Extracting x2p/Makefile (with variable substitutions)"
  80. + rm -f Makefile
  81.   cat >Makefile <<!GROK!THIS!
  82. ! # $RCSfile: Makefile.SH,v $$Revision: 4.0.1.3 $$Date: 92/06/08 16:11:32 $
  83.   #
  84.   # $Log:    Makefile.SH,v $
  85. + # Revision 4.0.1.3  92/06/08  16:11:32  lwall
  86. + # patch20: SH files didn't work well with symbolic links
  87. + # patch20: cray didn't give enough memory to /bin/sh
  88. + # patch20: makefiles now display new shift/reduce expectations
  89. + # 
  90.   # Revision 4.0.1.2  91/11/05  19:19:04  lwall
  91.   # patch11: random cleanup
  92.   # 
  93. ***************
  94. *** 40,45 ****
  95. --- 46,52 ----
  96.   LARGE = $large $split
  97.   mallocsrc = $mallocsrc
  98.   mallocobj = $mallocobj
  99. + shellflags = $shellflags
  100.   
  101.   libs = $libs
  102.   !GROK!THIS!
  103. ***************
  104. *** 46,52 ****
  105.   
  106.   cat >>Makefile <<'!NO!SUBS!'
  107.   
  108. ! CCCMD = `sh cflags $@`
  109.   
  110.   public = a2p s2p find2perl
  111.   
  112. --- 53,59 ----
  113.   
  114.   cat >>Makefile <<'!NO!SUBS!'
  115.   
  116. ! CCCMD = `sh $(shellflags) cflags $@`
  117.   
  118.   public = a2p s2p find2perl
  119.   
  120. ***************
  121. *** 58,64 ****
  122.   
  123.   sh = Makefile.SH makedepend.SH
  124.   
  125. ! h = EXTERN.h INTERN.h config.h handy.h hash.h a2p.h str.h util.h
  126.   
  127.   c = hash.c $(mallocsrc) str.c util.c walk.c
  128.   
  129. --- 65,71 ----
  130.   
  131.   sh = Makefile.SH makedepend.SH
  132.   
  133. ! h = EXTERN.h INTERN.h ../config.h handy.h hash.h a2p.h str.h util.h
  134.   
  135.   c = hash.c $(mallocsrc) str.c util.c walk.c
  136.   
  137. ***************
  138. *** 81,87 ****
  139.       $(CC) $(LDFLAGS) $(obj) a2p.o $(libs) -o a2p
  140.   
  141.   a2p.c: a2p.y
  142. !     @ echo Expect 226 shift/reduce conflicts...
  143.       $(YACC) a2p.y
  144.       mv y.tab.c a2p.c
  145.   
  146. --- 88,94 ----
  147.       $(CC) $(LDFLAGS) $(obj) a2p.o $(libs) -o a2p
  148.   
  149.   a2p.c: a2p.y
  150. !     @ echo Expect 231 shift/reduce conflicts...
  151.       $(YACC) a2p.y
  152.       mv y.tab.c a2p.c
  153.   
  154. ***************
  155. *** 105,111 ****
  156.   fi
  157.   
  158.   clean:
  159. !     rm -f a2p *.o
  160.   
  161.   realclean: clean
  162.       rm -f *.orig */*.orig core $(addedbyconf) a2p.c s2p find2perl all cflags
  163. --- 112,118 ----
  164.   fi
  165.   
  166.   clean:
  167. !     rm -f a2p *.o a2p.c
  168.   
  169.   realclean: clean
  170.       rm -f *.orig */*.orig core $(addedbyconf) a2p.c s2p find2perl all cflags
  171. ***************
  172. *** 141,147 ****
  173.   $(obj):
  174.       @ echo "You haven't done a "'"make depend" yet!'; exit 1
  175.   makedepend: makedepend.SH
  176. !     /bin/sh makedepend.SH
  177.   !NO!SUBS!
  178.   $eunicefix Makefile
  179.   case `pwd` in
  180. --- 148,154 ----
  181.   $(obj):
  182.       @ echo "You haven't done a "'"make depend" yet!'; exit 1
  183.   makedepend: makedepend.SH
  184. !     /bin/sh $(shellflags) makedepend.SH
  185.   !NO!SUBS!
  186.   $eunicefix Makefile
  187.   case `pwd` in
  188.  
  189. Index: os2/README.OS2
  190. *** os2/README.OS2.old    Mon Jun  8 17:49:37 1992
  191. --- os2/README.OS2    Mon Jun  8 17:49:38 1992
  192. ***************
  193. *** 376,382 ****
  194.     construct a makefile ...
  195.   + If you have GNU gdbm, you can define NDBM in config.h and link with a
  196.     large model library of gdbm.
  197. ! + I am not shure if I can verify the OS/2 port with each release
  198.     from Larry Wall. Therefore, in future releases there may be
  199.     changes required to compile perl for OS/2.
  200.                    October 1990
  201. --- 376,382 ----
  202.     construct a makefile ...
  203.   + If you have GNU gdbm, you can define NDBM in config.h and link with a
  204.     large model library of gdbm.
  205. ! + I am not sure if I can verify the OS/2 port with each release
  206.     from Larry Wall. Therefore, in future releases there may be
  207.     changes required to compile perl for OS/2.
  208.                    October 1990
  209. ***************
  210. *** 392,397 ****
  211. --- 392,425 ----
  212.   
  213.                                   Kai Uwe Rommel
  214.                                   rommel@lan.informatik.tu-muenchen.dbp.de
  215. + Verified perl 4.0 at patchlevel 10
  216. + Changes:
  217. + - some minor corrections and updates in various files
  218. + - new os2/config.h created from original config.H
  219. + - added support for crypt(), PD routine by A.Tanenbaum in new os2/crypt.c
  220. + - added support for wait4pid() in os2.c
  221. + - fixed/added support for -P option (requires a standard CPP for OS/2)
  222. + - os2/mktemp.c deleted, no longer needed
  223. + - new Makefile created for MS C 6.00 and it's NMAKE
  224. + - with os2/perl.cs, bison has no longer to be called manually
  225. + I have successfully run most tests. Diffs are in os2/tests.dif.
  226. + Often, only command names, shell expansion etc. have to be changed.
  227. + Test that still don't run are Unix-specific ones or fail because
  228. + of CR/LF-problems:
  229. + - io/argv.t, io/inplace.t, op/exec.t, op/glob.t  (minor problems)
  230. + - io/fs.t, io/pipe.t op/fork.t, op/magic.t, op/time.t
  231. +    (under OS/2 not supported features of Unix)
  232. + - op/pat.t (bug, not yet fixed)
  233. + Remember to remove the HAS_GDBM symbol from os2/config.h or
  234. + get GNU gdbm for OS/2.
  235. +                 June 1991
  236. +                                 Kai Uwe Rommel
  237. +                                 rommel@lan.informatik.tu-muenchen.dbp.de
  238. + Verified perl 4.0 at patchlevel 19
  239. + Minor fixes. Previous fixes at PL10 were not included into distribution.
  240. +                 November 1991
  241. +                                 Kai Uwe Rommel
  242. +                                 rommel@informatik.tu-muenchen.dbp.de
  243.   
  244.   
  245.   Verified patchlevel 44.
  246.  
  247. Index: atarist/README.ST
  248. *** atarist/README.ST.old    Mon Jun  8 17:34:57 1992
  249. --- atarist/README.ST    Mon Jun  8 17:34:57 1992
  250. ***************
  251. *** 0 ****
  252. --- 1,186 ----
  253. + See: FILES for a shipping list of files in this archive.
  254. + See: explain for a brief explaination of the diffs in perl.diffs.
  255. + 
  256. + Here is a port of perl 4.0 Patchlevel 19 to the atariST series.:
  257. + 
  258. + Whats new since atariST perl 4.010
  259. +     - many minor problems fixed.
  260. + 
  261. +     - configuration cleaned up.
  262. + 
  263. +         - makefiles now have a uperl.a target, so that usub's can be
  264. +           linked. (see usub/* to see how to make cursesperl)
  265. + 
  266. +     - perl will now compile and run correctly with or without
  267. +     the malloc that comes with perl.
  268. + 
  269. +     - FILEs opened for write now correctly contain CR/LF unless
  270. +     they are binmode'ed.
  271. + 
  272. +     - complete support for gemdos/xbios/bios calls. see osbind.pl
  273. +     and osexample.pl on how to use this facility.
  274. + 
  275. +     - tracked perl to Patchlevel 19.
  276. + 
  277. + known problems:
  278. +      - $! still does'nt contain the correct value when there is no error.
  279. +     i still have'nt been able to track this down.
  280. + 
  281. + -------------------------------------------------------------------------
  282. + 
  283. + Here is a port of perl 4.0 Patchlevel 10 to the atariST series.
  284. + 
  285. + What you'll need:
  286. +     - a decent shell (i use gulam for obvious reasons), other
  287. +     highly recommended ones are bash 1.08/1.10, gemini/mufpel, okami,
  288. +     microCsh, init from apratt for MiNT. avoid neodesk. avoid the
  289. +     desktop like the plague. The shell should be setup to use
  290. +     atari/mwc conventions for command lines and environment setup
  291. +     and passing. (in gulam be sure to `set env_style mw').
  292. + 
  293. +     - a decent set of file utils (ls, rm, mv, etc etc) in your $PATH.
  294. +     if you dont have these, look on atari.archive. the gnuFileutils
  295. +     are available there.
  296. +     
  297. +     - included here are echo and perlglob that you will need.
  298. + 
  299. +     - setting UNIXMODE is recommended but not required. If you are
  300. +     going to run the perl tests, then set UNIXMODE to atleast
  301. +     "/.,LAd", else you will get a lot of unnecessary failures.
  302. +     (alternately you will have to go in and edit long path names.
  303. +      get rid of things dealing with links, and rename paths
  304. +      beginning with "/dev/..." etc)
  305. + 
  306. +     - if you are going to compile: you'll need gcc distribution,
  307. +     (i used gcc-1.40 and libs at Patchlevel 73 initially. i 
  308. +          currently use gcc-2.1 and libs at Patchlevel 80). Also you will
  309. +     need the port of gdbm (i used v1.5). you'll also need bison.
  310. +     all these are available on atari.archive, in atari/gnustuff/tos
  311. +     the diffs as enclosed in this kit assume you have gcc libs at
  312. +         Patchlevel 80.
  313. +     
  314. + Compiling:
  315. +     - get and install gnu gdbm (i used v1.5 -- see README.ST in
  316. +       the gdbm distribution on how to make the gdbm library).
  317. + 
  318. +     - get the perl kit at Patchlevel 19
  319. + 
  320. +         - copy  config.h usersub.c atarist.c echo.c wildmat.c  perlglob.c  
  321. +           makefile.sm makefile.smd makefile.st makefile.std makefile.stm
  322. + 
  323. +     - apply the diffs in file `perl.diffs' using patch
  324. + 
  325. +     - decide which makefile you want to use:
  326. +     makefile.st    perl with gcc library malloc
  327. +     makefile.sm    perl with malloc that comes with perl
  328. + 
  329. +     - hit make -f <MAKEFILE>. (if you are not cross-compiling, 
  330. +        you'll have to adjust the makefile yourself -- watchout for
  331. +        perly.fixer).
  332. +        This will result in 3 executables, perl.ttp, perlglob.ttp
  333. +        and echo.ttp. Put all these executables in a sub-directory
  334. +        in your $PATH (and depending on your shell, issue a rehash).
  335. +     (if you use makefile.std instead of makefile.st, the executable
  336. +      will be called perld.ttp. this is perl compiled with
  337. +      -DDEBUGGING)
  338. + 
  339. + Compiling usubs:
  340. +     see the files in usub/* and the makefile.st there.
  341. + 
  342. + Testing:
  343. +     - run perl from a decent shell. i use either gulam or bash
  344. +     if you are going to be running from gulam, be sure to
  345. +         set env_style mw
  346. +     (this can be done automatically by including the above
  347. +      line in the gulam.g startup file). bash always uses
  348. +     atari/mwc conventions so you dont have to do anything special.
  349. +     (if you run perl from the desktop, you are asking for trouble!)
  350. + 
  351. +     - you'll have to run the tests by hand. Almost all the tests
  352. +     pass. You'll have to judge for yourself when a test fails
  353. +     if it should have. I was able to explain all failures. If you
  354. +     cant, ask me via mail. (one day i will cook up a script to
  355. +     do this).
  356. + 
  357. +     - It helps to have all the gnu fileutils in your PATH here.
  358. +     especially echo.ttp and perlglob.ttp.
  359. + 
  360. +     - Also a lot more tests will pass if you have UNIXMODE setup
  361. +     i use "/.,LAd". If you dont use UNIXMODE, you'll have to hack
  362. +     some of the tests.
  363. + 
  364. +     - You may have to fix up a few Pathnames in the tests if you
  365. +     are cd'ing to a particular test sub-directory to run the tests.
  366. + 
  367. +     - Compare your tests with the results i got -- see file RESULTS.
  368. +     
  369. + General:
  370. +     - setenv PERLLIB to point at the subdirectory containing lib/*
  371. +     (if you want PERLLIB to contain more than one path, seperate
  372. +      them with commas)
  373. + 
  374. +     - UNIXMODE is supported not required.
  375. + 
  376. +     - Pipes are a little flakey sometimes, but mostly work fine.
  377. +     Pipes, `prog`  etc are much more efficient if you have set
  378. +     the environment var TEMP to point to a ramdisk. Note, when
  379. +     you set TEMP, it should contain *no* tailing backslash (or slash).
  380. + 
  381. +     - to force binary mode use "binmode FILE"
  382. + 
  383. +     - browse thru config.h to see whats supported
  384. + 
  385. +     - should MiNT'ize this much more.
  386. + 
  387. +     - avoid using the backtick (`commands`). Use 'open(FOO, "command |")'
  388. +     and use the filehandle FOO as appro.
  389. + 
  390. +     - the command passed to system etc can contain
  391. +     redirections of stdin/out, but system does not understand
  392. +     fancy pipelines etc.
  393. + 
  394. +     - syscall() to make gemdos/bios/xbios are fully supported now.
  395. +     (note: we dont use ioctl like messy-dos to do this, as we can do
  396. +      real ioctl's on devices)
  397. + 
  398. +     - i still need to cons up the lineA stuff.
  399. +       it should be just as easy to cons up aes/vdi outcalls too. imagine
  400. +       graphics from perl!.
  401. + 
  402. +     - watch out for re-directions. TOS blows up if you try to
  403. +     re-direct a re-directed handle. atari has greatly improved this
  404. +     situation. hopefully, the next general release of TOS will contain
  405. +     these fixes.
  406. + 
  407. +     - in the perl libs (particularly perldb.pl) you will
  408. +     need to s?/dev/tty?/dev/console?. perl -d works just fine.
  409. +     for instance: (for this to work, UNIXMODE should include the
  410. +     'd' option):
  411. + *** /home/bammi/etc/src/perl/lib/perldb.pl    Tue Jun 11 17:40:17 1991
  412. + --- perldb.pl    Mon Oct  7 21:46:28 1991
  413. + ***************
  414. + *** 49,56 ****
  415. +   # 
  416. +   #
  417. +   
  418. + ! open(IN, "</dev/tty") || open(IN,  "<&STDIN");    # so we don't dingle stdin
  419. + ! open(OUT,">/dev/tty") || open(OUT, ">&STDOUT");    # so we don't dongle stdout
  420. +   select(OUT);
  421. +   $| = 1;                # for DB'OUT
  422. +   select(STDOUT);
  423. + --- 49,56 ----
  424. +   # 
  425. +   #
  426. +   
  427. + ! open(IN, "</dev/console") || open(IN,  "<&STDIN");    # so we don't dingle stdin
  428. + ! open(OUT,">/dev/console") || open(OUT, ">&STDOUT");    # so we don't dongle stdout
  429. +   select(OUT);
  430. +   $| = 1;                # for DB'OUT
  431. +   select(STDOUT);
  432. + 
  433. + cheers,
  434. + --
  435. + bang:   uunet!cadence!bammi            jwahar r. bammi
  436. + domain: bammi@cadence.com
  437. + GEnie:    J.Bammi
  438. + CIS:    71515,155
  439.  
  440. Index: README.ncr
  441. *** README.ncr.old    Mon Jun  8 17:34:39 1992
  442. --- README.ncr    Mon Jun  8 17:34:40 1992
  443. ***************
  444. *** 0 ****
  445. --- 1,151 ----
  446. + From: lreed@ncratl.AtlantaGA.NCR.COM (Len Reed)
  447. + Newsgroups: comp.lang.perl
  448. + Subject: Fixes for Perl 4.019 on NCR Tower V.3
  449. + Date: 17 Feb 92 16:41:30 GMT
  450. + Organization: Holos Software, Inc.
  451. + 
  452. + Here are the fixes needed to make perl 4.019 on the NCR Tower V.3 system.
  453. + I have bundled this as a shar file: feed everything below the CUT line
  454. + to /bin/sh.
  455. + 
  456. + The file hints/ncr_tower.sh fixes several problems.  It replaces the
  457. + standard copy thereof.  Note that I use perl's malloc.  Note also
  458. + that I have turned the optimizer completely off (-O0).  Optimizing
  459. + at -O1 or -O2 produces some errors that the test suite doesn't catch.
  460. + (Problems with alloca() and setjmp/longjmp, I think.)  It should be
  461. + possible to optimize some modules but I haven't experimented with this.
  462. + 
  463. + [NOTE: this hints file is already installed--lwall]
  464. + 
  465. + I'm don't know if mkdir(2) works: I've left it undef'ed.  It is certainly
  466. + broken in V.2.  If you need fast mkdir's you may want to experiment with
  467. + this.
  468. + 
  469. + The file patch.twg fixes a stupidity in /usr/netinclude/sys/time.h.
  470. + You'll need this if you have WIN-TCP; you can't use it if you don't
  471. + have WIN-TCP.  If needed, apply this patch *before* running Configure.
  472. + 
  473. + Make sure you tell Configure that any config.sh it finds is to be ignored.
  474. + 
  475. + After running Configure and make depend, edit config.h so that
  476. + the CPPSTDIN definition has DEFAULT_CPP=/dev/null prepended.  It should
  477. + look this this:
  478. + 
  479. + #define CPPSTDIN "DEFAULT_CPP=/dev/null cc -E"
  480. + 
  481. + This must be done by hand after running "make depend" and before running
  482. + make.  I was unable to encode this into the hints file.
  483. + 
  484. + This resulting perl should pass all tests.
  485. + 
  486. + -Len Reed
  487. + Holos Software, Inc.
  488. + holos0!lbr@gatech.edu                (my main account)
  489. + lreed@ncratl.atlantaga.ncr.com       (this account--on a customer's machine)
  490. + 
  491. + -----CUT HERE----
  492. + #!/bin/sh
  493. + # This is a shell archive (shar 3.32)
  494. + # made 02/17/1992 16:36 UTC by lreed@ncratl
  495. + # Source directory /usr/acct/lreed/,q
  496. + #
  497. + # existing files WILL be overwritten
  498. + #
  499. + # This shar contains:
  500. + # length  mode       name
  501. + # ------ ---------- ------------------------------------------
  502. + #   1593 -rw-rw-rw- patch.twg
  503. + #    176 -rw-r--r-- hints/ncr_tower.sh
  504. + #
  505. + if touch 2>&1 | fgrep 'amc' > /dev/null
  506. +  then TOUCH=touch
  507. +  else TOUCH=true
  508. + fi
  509. + # ============= patch.twg ==============
  510. + echo "x - extracting patch.twg (Text)"
  511. + sed 's/^X//' << 'SHAR_EOF' > patch.twg &&
  512. + XThe following patch fixes /usr/netinclude/sys/time.h on the Tower V.3.
  513. + XPulling in <sys/time.h> with -I/usr/inetinclude makes a mess unless
  514. + Xthe <sys/twg_config.h> file is pulled in, too.  It's stupid that an
  515. + Xapplication (e.g., perl) should have to do this.  Thus, I fixed
  516. + Xthe system header file.  The alternative is to make each application
  517. + Xget the header file itself.  (The #if allows the application to do
  518. + Xit, though, for compatibility with existing applications.)
  519. + X
  520. + XTo apply this patch, chdir to /usr/netinclude/sys and run
  521. + X    patch <this_file
  522. + X
  523. + XIf the patch fails, fix the file by hand.  All I've done is put
  524. + X#ifndef HDEF
  525. + X    /* Len Reed 5/6/91 -- pulling in <sys/time.h> shouldn't cause
  526. + X       HDEF to blow up the compile--auto pull in its defining file.
  527. + X    */
  528. + X# include <sys/twg_config.h>
  529. + X#endif
  530. + X
  531. + Xbefore HDEF is used.
  532. + X
  533. + X-----The patch starts below this line
  534. + X
  535. + X*** time.h.old    Fri Feb 14 12:06:46 1992
  536. + X--- time.h    Fri Feb 14 12:04:32 1992
  537. + X***************
  538. + X*** 4,12 ****
  539. + X  /*    time.h    6.1    83/07/29    */
  540. + X  /* " @(#)time.h (TWG) 2.2 88/05/17 " */
  541. + X  
  542. + X! /*
  543. + X  HDEF( "@(#)$RCSfile: README.ncr,v $$Revision: 4.0.1.1 $$Date: 92/06/08 11:41:41 $" )
  544. + X- */
  545. + X  
  546. + X  /*
  547. + X   * Structure returned by gettimeofday(2) system call,
  548. + X--- 4,17 ----
  549. + X  /*    time.h    6.1    83/07/29    */
  550. + X  /* " @(#)time.h (TWG) 2.2 88/05/17 " */
  551. + X  
  552. + X! #ifndef HDEF
  553. + X!     /* Len Reed 5/6/91 -- pulling in <sys/time.h> shouldn't cause
  554. + X!        HDEF to blow up the compile--auto pull in its defining file.
  555. + X!     */
  556. + X! # include <sys/twg_config.h>
  557. + X! #endif
  558. + X! 
  559. + X  HDEF( "@(#)$RCSfile: README.ncr,v $$Revision: 4.0.1.1 $$Date: 92/06/08 11:41:41 $" )
  560. + X  
  561. + X  /*
  562. + X   * Structure returned by gettimeofday(2) system call,
  563. + SHAR_EOF
  564. + $TOUCH -am 0217113592 patch.twg &&
  565. + chmod 0666 patch.twg ||
  566. + echo "restore of patch.twg failed"
  567. + set `wc -c patch.twg`;Wc_c=$1
  568. + if test "$Wc_c" != "1593"; then
  569. +     echo original size 1593, current size $Wc_c
  570. + fi
  571. + # ============= hints/ncr_tower.sh ==============
  572. + if test ! -d 'hints'; then
  573. +     echo "x - creating directory hints"
  574. +     mkdir 'hints'
  575. + fi
  576. + echo "x - extracting hints/ncr_tower.sh (Text)"
  577. + sed 's/^X//' << 'SHAR_EOF' > hints/ncr_tower.sh &&
  578. + Xoptimize='-O0'
  579. + Xccflags="$ccflags -W2,-Sl,2000"
  580. + Xeval_cflags='large="-W0,-XL"'
  581. + Xteval_cflags=$eval_cflags
  582. + Xd_mkdir=$undef
  583. + Xusemymalloc='y'
  584. + Xmallocsrc='malloc.c'
  585. + Xmallocobj='malloc.o'
  586. + SHAR_EOF
  587. + $TOUCH -am 0214073692 hints/ncr_tower.sh &&
  588. + chmod 0644 hints/ncr_tower.sh ||
  589. + echo "restore of hints/ncr_tower.sh failed"
  590. + set `wc -c hints/ncr_tower.sh`;Wc_c=$1
  591. + if test "$Wc_c" != "176"; then
  592. +     echo original size 176, current size $Wc_c
  593. + fi
  594. + exit 0
  595. + 
  596. + 
  597.  
  598. Index: atarist/RESULTS
  599. *** atarist/RESULTS.old    Mon Jun  8 17:34:59 1992
  600. --- atarist/RESULTS    Mon Jun  8 17:35:00 1992
  601. ***************
  602. *** 0 ****
  603. --- 1,120 ----
  604. + t/base:
  605. + 
  606. + cond.t
  607. + if.t
  608. + lex.t
  609. + pat.t
  610. + term.t
  611. + 
  612. + all of these pass. if you are running from this directory
  613. + make sure you have a file ..\Makefile for term.t to pass.
  614. + 
  615. + =================================
  616. + 
  617. + t/cmd:
  618. + 
  619. + elsif.t
  620. + for.t
  621. + mod.t
  622. + subval.t
  623. + switch.t
  624. + while.t
  625. + 
  626. + all of these passed. be sure to set UNIXMODE for these to pass.
  627. + make sure there is a file called ./TEST if you run in this sub-directory
  628. + for mod.t.
  629. + 
  630. + =================================
  631. + 
  632. + t/comp:
  633. + 
  634. + cmdopt.t
  635. + decl.t
  636. + package.t
  637. + script.t
  638. + term.t
  639. + multiline.t
  640. + 
  641. + all these work. if you are running in this subdir then cp perl.ttp ./perl
  642. + before running.
  643. + 
  644. + cpp.t
  645. +  fails. i need to fix for -P.
  646. + =================================
  647. + 
  648. + t/io:
  649. + 
  650. + if you are running in this subdir make sure:
  651. + -- there is a file ../Makefile
  652. + -- have a ./perl
  653. + 
  654. + argv.t: 2 & 3 fail
  655. +     `.....` with pipes will not work. redirections may (have'nt checked)
  656. + 
  657. + dup.t: only 1 will pass. what the hell is the rest doing (the atari goes
  658. +     into in infinite loop)
  659. + 
  660. + pipe.t: fails. have to look into this. pipe() on the atari sort of
  661. + work most of the time. see gcc-lib/pipe.c
  662. + 
  663. + print.t: all pass
  664. + tell.t: all pass
  665. + =================================
  666. + 
  667. + t/lib:
  668. + 
  669. + bit.t : pass
  670. + =================================
  671. + 
  672. + t/op:
  673. + 
  674. + append.t    pass
  675. + array.t        pass
  676. + auto.t        pass
  677. + chop.t        pass
  678. + cond.t        pass
  679. + dbm.t -- cant possibly work with gdbm, it does'nt create .pag etc files
  680. + gdbm.t        added new test to test gdbm based perl
  681. + delete.t    pass
  682. + do.t        pass
  683. + each.t        pass
  684. + eval.t        pass
  685. + exec.t 4,5,6 fail rest pass (obviously)
  686. + exp.t        pass
  687. + flip.t        pass
  688. + fork.t        correctly fails
  689. + glob.t    1 fails rest pass (as i said dont depend on `....` to work on the ST)
  690. + goto.t  1,2 pass 3 fail (again because of `...`)
  691. + groups.t    makes no sense on the ST
  692. + index.t        pass
  693. + int.t        pass
  694. + join.t        pass
  695. + list.t        pass
  696. + local.t        pass
  697. + magic.t        fail obviously
  698. + mkdir.t    the failure is obvious, rest pass (our err strings dont match unix's)
  699. + oct.t        pass
  700. + ord.t        pass
  701. + pack.t        pass
  702. + pat.t        pass!!!! (works with lib malloc too now, yeah!)
  703. + push.t        pass
  704. + range.t        pass
  705. + read.t        pass
  706. + regexp.t    pass! (make sure re_tests is in cwd if running in cwd, and edit
  707. +             path in regexp.t)
  708. + repeat.t    pass
  709. + s.t        pass
  710. + sleep.t        pass
  711. + sort.t        pass
  712. + split.t        pass
  713. + sprintf.t    pass
  714. + stat.t        obvious ones fail, looks good
  715. + study.t        pass
  716. + substr.t    pass
  717. + time.t        pass
  718. + undef.t        pass
  719. + unshift.t    pass
  720. + vec.t        pass
  721. + write.t    fail due to  `...`
  722. + =================================
  723. + 
  724.  
  725. Index: x2p/a2p.h
  726. *** x2p/a2p.h.old    Mon Jun  8 17:52:45 1992
  727. --- x2p/a2p.h    Mon Jun  8 17:52:45 1992
  728. ***************
  729. *** 1,4 ****
  730. ! /* $RCSfile: a2p.h,v $$Revision: 4.0.1.1 $$Date: 91/06/07 12:12:27 $
  731.    *
  732.    *    Copyright (c) 1991, Larry Wall
  733.    *
  734. --- 1,4 ----
  735. ! /* $RCSfile: a2p.h,v $$Revision: 4.0.1.2 $$Date: 92/06/08 16:12:23 $
  736.    *
  737.    *    Copyright (c) 1991, Larry Wall
  738.    *
  739. ***************
  740. *** 6,11 ****
  741. --- 6,14 ----
  742.    *    License or the Artistic License, as specified in the README file.
  743.    *
  744.    * $Log:    a2p.h,v $
  745. +  * Revision 4.0.1.2  92/06/08  16:12:23  lwall
  746. +  * patch20: hash tables now split only if the memory is available to do so
  747. +  * 
  748.    * Revision 4.0.1.1  91/06/07  12:12:27  lwall
  749.    * patch4: new copyright notice
  750.    * 
  751. ***************
  752. *** 294,299 ****
  753. --- 297,304 ----
  754.   EXT bool need_entire INIT(FALSE);
  755.   EXT bool absmaxfld INIT(FALSE);
  756.   EXT bool saw_altinput INIT(FALSE);
  757. + 
  758. + EXT bool nomemok INIT(FALSE);
  759.   
  760.   EXT char const_FS INIT(0);
  761.   EXT char *namelist INIT(Nullch);
  762.  
  763. Index: x2p/a2p.y
  764. *** x2p/a2p.y.old    Mon Jun  8 17:52:47 1992
  765. --- x2p/a2p.y    Mon Jun  8 17:52:48 1992
  766. ***************
  767. *** 1,5 ****
  768.   %{
  769. ! /* $RCSfile: a2p.y,v $$Revision: 4.0.1.1 $$Date: 91/06/07 12:12:41 $
  770.    *
  771.    *    Copyright (c) 1991, Larry Wall
  772.    *
  773. --- 1,5 ----
  774.   %{
  775. ! /* $RCSfile: a2p.y,v $$Revision: 4.0.1.2 $$Date: 92/06/08 16:13:03 $
  776.    *
  777.    *    Copyright (c) 1991, Larry Wall
  778.    *
  779. ***************
  780. *** 7,12 ****
  781. --- 7,15 ----
  782.    *    License or the Artistic License, as specified in the README file.
  783.    *
  784.    * $Log:    a2p.y,v $
  785. +  * Revision 4.0.1.2  92/06/08  16:13:03  lwall
  786. +  * patch20: in a2p, getline should allow variable to be array element
  787. +  * 
  788.    * Revision 4.0.1.1  91/06/07  12:12:41  lwall
  789.    * patch4: new copyright notice
  790.    * 
  791. ***************
  792. *** 184,201 ****
  793.           { $$ = oper1(OPAREN,$2); }
  794.       | GETLINE
  795.           { $$ = oper0(OGETLINE); }
  796. !     | GETLINE VAR
  797.           { $$ = oper1(OGETLINE,$2); }
  798.       | GETLINE '<' expr
  799.           { $$ = oper3(OGETLINE,Nullop,string("<",1),$3);
  800.               if (ops[$3].ival != OSTR + (1<<8)) do_fancy_opens = TRUE; }
  801. !     | GETLINE VAR '<' expr
  802.           { $$ = oper3(OGETLINE,$2,string("<",1),$4);
  803.               if (ops[$4].ival != OSTR + (1<<8)) do_fancy_opens = TRUE; }
  804.       | term 'p' GETLINE
  805.           { $$ = oper3(OGETLINE,Nullop,string("|",1),$1);
  806.               if (ops[$1].ival != OSTR + (1<<8)) do_fancy_opens = TRUE; }
  807. !     | term 'p' GETLINE VAR
  808.           { $$ = oper3(OGETLINE,$4,string("|",1),$1);
  809.               if (ops[$1].ival != OSTR + (1<<8)) do_fancy_opens = TRUE; }
  810.       | FUN1
  811. --- 187,204 ----
  812.           { $$ = oper1(OPAREN,$2); }
  813.       | GETLINE
  814.           { $$ = oper0(OGETLINE); }
  815. !     | GETLINE variable
  816.           { $$ = oper1(OGETLINE,$2); }
  817.       | GETLINE '<' expr
  818.           { $$ = oper3(OGETLINE,Nullop,string("<",1),$3);
  819.               if (ops[$3].ival != OSTR + (1<<8)) do_fancy_opens = TRUE; }
  820. !     | GETLINE variable '<' expr
  821.           { $$ = oper3(OGETLINE,$2,string("<",1),$4);
  822.               if (ops[$4].ival != OSTR + (1<<8)) do_fancy_opens = TRUE; }
  823.       | term 'p' GETLINE
  824.           { $$ = oper3(OGETLINE,Nullop,string("|",1),$1);
  825.               if (ops[$1].ival != OSTR + (1<<8)) do_fancy_opens = TRUE; }
  826. !     | term 'p' GETLINE variable
  827.           { $$ = oper3(OGETLINE,$4,string("|",1),$1);
  828.               if (ops[$1].ival != OSTR + (1<<8)) do_fancy_opens = TRUE; }
  829.       | FUN1
  830.  
  831. Index: x2p/a2py.c
  832. *** x2p/a2py.c.old    Mon Jun  8 17:52:50 1992
  833. --- x2p/a2py.c    Mon Jun  8 17:52:51 1992
  834. ***************
  835. *** 1,4 ****
  836. ! /* $RCSfile: a2py.c,v $$Revision: 4.0.1.1 $$Date: 91/06/07 12:12:59 $
  837.    *
  838.    *    Copyright (c) 1991, Larry Wall
  839.    *
  840. --- 1,4 ----
  841. ! /* $RCSfile: a2py.c,v $$Revision: 4.0.1.2 $$Date: 92/06/08 16:15:16 $
  842.    *
  843.    *    Copyright (c) 1991, Larry Wall
  844.    *
  845. ***************
  846. *** 6,11 ****
  847. --- 6,16 ----
  848.    *    License or the Artistic License, as specified in the README file.
  849.    *
  850.    * $Log:    a2py.c,v $
  851. +  * Revision 4.0.1.2  92/06/08  16:15:16  lwall
  852. +  * patch20: in a2p, now warns about spurious backslashes
  853. +  * patch20: in a2p, now allows [ to be backslashed in pattern
  854. +  * patch20: in a2p, now allows numbers of the form 2.
  855. +  * 
  856.    * Revision 4.0.1.1  91/06/07  12:12:59  lwall
  857.    * patch4: new copyright notice
  858.    * 
  859. ***************
  860. *** 14,21 ****
  861.    * 
  862.    */
  863.   
  864. ! #ifdef MSDOS
  865. ! #include "../patchlev.h"
  866.   #endif
  867.   #include "util.h"
  868.   char *index();
  869. --- 19,26 ----
  870.    * 
  871.    */
  872.   
  873. ! #ifdef OS2
  874. ! #include "../patchlevel.h"
  875.   #endif
  876.   #include "util.h"
  877.   char *index();
  878. ***************
  879. *** 26,35 ****
  880.   int checkers = 0;
  881.   STR *walk();
  882.   
  883. ! #ifdef MSDOS
  884.   usage()
  885.   {
  886. !     printf("\nThis is the AWK to PERL translator, version 3.0, patchlevel %d\n", PATCHLEVEL);
  887.       printf("\nUsage: %s [-D<number>] [-F<char>] [-n<fieldlist>] [-<number>] filename\n", myname);
  888.       printf("\n  -D<number>      sets debugging flags."
  889.              "\n  -F<character>   the awk script to translate is always invoked with"
  890. --- 31,40 ----
  891.   int checkers = 0;
  892.   STR *walk();
  893.   
  894. ! #ifdef OS2
  895.   usage()
  896.   {
  897. !     printf("\nThis is the AWK to PERL translator, version 4.0, patchlevel %d\n", PATCHLEVEL);
  898.       printf("\nUsage: %s [-D<number>] [-F<char>] [-n<fieldlist>] [-<number>] filename\n", myname);
  899.       printf("\n  -D<number>      sets debugging flags."
  900.              "\n  -F<character>   the awk script to translate is always invoked with"
  901. ***************
  902. *** 85,91 ****
  903.           break;
  904.       default:
  905.           fatal("Unrecognized switch: %s\n",argv[0]);
  906. ! #ifdef MSDOS
  907.               usage();
  908.   #endif
  909.       }
  910. --- 90,96 ----
  911.           break;
  912.       default:
  913.           fatal("Unrecognized switch: %s\n",argv[0]);
  914. ! #ifdef OS2
  915.               usage();
  916.   #endif
  917.       }
  918. ***************
  919. *** 95,101 ****
  920.       /* open script */
  921.   
  922.       if (argv[0] == Nullch) {
  923. ! #ifdef MSDOS
  924.       if ( isatty(fileno(stdin)) )
  925.           usage();
  926.   #endif
  927. --- 100,106 ----
  928.       /* open script */
  929.   
  930.       if (argv[0] == Nullch) {
  931. ! #ifdef OS2
  932.       if ( isatty(fileno(stdin)) )
  933.           usage();
  934.   #endif
  935. ***************
  936. *** 216,221 ****
  937. --- 221,232 ----
  938.            *s++,filename,line);
  939.       goto retry;
  940.       case '\\':
  941. +     s++;
  942. +     if (*s && *s != '\n') {
  943. +         yyerror("Ignoring spurious backslash");
  944. +         goto retry;
  945. +     }
  946. +     /*FALLSTHROUGH*/
  947.       case 0:
  948.       s = str_get(linestr);
  949.       *s = '\0';
  950. ***************
  951. *** 802,807 ****
  952. --- 813,820 ----
  953.           *d++ = *s++;
  954.           else if (s[1] == '\\')
  955.           *d++ = *s++;
  956. +         else if (s[1] == '[')
  957. +         *d++ = *s++;
  958.       }
  959.       else if (*s == '[') {
  960.           *d++ = *s++;
  961. ***************
  962. *** 846,856 ****
  963.       while (isdigit(*s)) {
  964.           *d++ = *s++;
  965.       }
  966. !     if (*s == '.' && index("0123456789eE",s[1])) {
  967. !         *d++ = *s++;
  968. !         while (isdigit(*s)) {
  969.           *d++ = *s++;
  970.           }
  971.       }
  972.       if (index("eE",*s) && index("+-0123456789",s[1])) {
  973.           *d++ = *s++;
  974. --- 859,873 ----
  975.       while (isdigit(*s)) {
  976.           *d++ = *s++;
  977.       }
  978. !     if (*s == '.') {
  979. !         if (isdigit(s[1])) {
  980.           *d++ = *s++;
  981. +         while (isdigit(*s)) {
  982. +             *d++ = *s++;
  983. +         }
  984.           }
  985. +         else
  986. +         s++;
  987.       }
  988.       if (index("eE",*s) && index("+-0123456789",s[1])) {
  989.           *d++ = *s++;
  990. ***************
  991. *** 1265,1271 ****
  992.   
  993.       sprintf(tmpbuf,"%s:%d",name,prevargs);
  994.       str = hfetch(curarghash,tmpbuf);
  995. -     fprintf(stderr,"Looking for %s\n",tmpbuf);
  996.       if (str && strEQ(str->str_ptr,"*")) {
  997.           if (type == OVAR || type == OSTAR) {
  998.           ops[arg].ival &= ~255;
  999. --- 1282,1287 ----
  1000.  
  1001. Index: atarist/usub/acurses.mus
  1002. *** atarist/usub/acurses.mus.old    Mon Jun  8 17:45:32 1992
  1003. --- atarist/usub/acurses.mus    Mon Jun  8 17:45:32 1992
  1004. ***************
  1005. *** 0 ****
  1006. --- 1,701 ----
  1007. + /* $RCSfile: acurses.mus,v $$Revision: 4.0.1.1 $$Date: 92/06/08 11:54:30 $
  1008. +  *
  1009. +  * $Log:    acurses.mus,v $
  1010. +  * Revision 4.0.1.1  92/06/08  11:54:30  lwall
  1011. +  * Initial revision
  1012. +  * 
  1013. +  * Revision 4.0.1.1  91/11/05  19:04:53  lwall
  1014. +  * initial checkin
  1015. +  * 
  1016. +  * Revision 4.0  91/03/20  01:56:13  lwall
  1017. +  * 4.0 baseline.
  1018. +  * 
  1019. +  * Revision 3.0.1.1  90/08/09  04:05:21  lwall
  1020. +  * patch19: Initial revision
  1021. +  * 
  1022. +  */
  1023. + 
  1024. + #include "EXTERN.h"
  1025. + #include "perl.h"
  1026. + 
  1027. + char *savestr();
  1028. + 
  1029. + #ifdef atarist    /* save and restore definition of VOID around curses.h */
  1030. + # define __SAVEVOID VOID
  1031. + # undef  VOID
  1032. + #endif
  1033. + 
  1034. + #include <curses.h>
  1035. + 
  1036. + static enum uservars {
  1037. +     UV_curscr,
  1038. +     UV_stdscr,
  1039. +     UV_Def_term,
  1040. +     UV_My_term,
  1041. +     UV_ttytype,
  1042. +     UV_LINES,
  1043. +     UV_COLS,
  1044. +     UV_ERR,
  1045. +     UV_OK,
  1046. + };
  1047. + 
  1048. + static enum usersubs {
  1049. +     US_addch,
  1050. +     US_waddch,
  1051. +     US_addstr,
  1052. +     US_waddstr,
  1053. +     US_box,
  1054. +     US_clear,
  1055. +     US_wclear,
  1056. +     US_clearok,
  1057. +     US_clrtobot,
  1058. +     US_wclrtobot,
  1059. +     US_clrtoeol,
  1060. +     US_wclrtoeol,
  1061. +     US_delch,
  1062. +     US_wdelch,
  1063. +     US_deleteln,
  1064. +     US_wdeleteln,
  1065. +     US_erase,
  1066. +     US_werase,
  1067. +     US_flushok,
  1068. +     US_idlok,
  1069. +     US_insch,
  1070. +     US_winsch,
  1071. +     US_insertln,
  1072. +     US_winsertln,
  1073. +     US_move,
  1074. +     US_wmove,
  1075. +     US_overlay,
  1076. +     US_overwrite,
  1077. +     US_printw,
  1078. +     US_wprintw,
  1079. +     US_refresh,
  1080. +     US_wrefresh,
  1081. +     US_standout,
  1082. +     US_wstandout,
  1083. +     US_standend,
  1084. +     US_wstandend,
  1085. +     US_cbreak,
  1086. +     US_nocbreak,
  1087. +     US_echo,
  1088. +     US_noecho,
  1089. +     US_getch,
  1090. +     US_wgetch,
  1091. +     US_getstr,
  1092. +     US_wgetstr,
  1093. +     US_raw,
  1094. +     US_noraw,
  1095. +     US_scanw,
  1096. +     US_wscanw,
  1097. +     US_baudrate,
  1098. +     US_delwin,
  1099. +     US_endwin,
  1100. +     US_erasechar,
  1101. +     US_getcap,
  1102. +     US_getyx,
  1103. +     US_inch,
  1104. +     US_winch,
  1105. +     US_initscr,
  1106. +     US_killchar,
  1107. +     US_leaveok,
  1108. +     US_longname,
  1109. +     US_fullname,
  1110. +     US_mvwin,
  1111. +     US_newwin,
  1112. +     US_nl,
  1113. +     US_nonl,
  1114. +     US_scrollok,
  1115. +     US_subwin,
  1116. +     US_touchline,
  1117. +     US_touchoverlap,
  1118. +     US_touchwin,
  1119. +     US_unctrl,
  1120. +     US_gettmode,
  1121. +     US_mvcur,
  1122. +     US_scroll,
  1123. +     US_savetty,
  1124. +     US_resetty,
  1125. +     US_setterm,
  1126. +     US_tstp,
  1127. +     US__putchar,
  1128. +     US_testcallback,
  1129. + };
  1130. + 
  1131. + static int usersub();
  1132. + static int userset();
  1133. + static int userval();
  1134. + 
  1135. + int
  1136. + init_curses()
  1137. + {
  1138. +     struct ufuncs uf;
  1139. +     char *filename = "curses.c";
  1140. + 
  1141. +     uf.uf_set = userset;
  1142. +     uf.uf_val = userval;
  1143. + 
  1144. + #define MAGICVAR(name, ix) uf.uf_index = ix, magicname(name, &uf, sizeof uf)
  1145. + 
  1146. +     MAGICVAR("curscr",    UV_curscr);
  1147. +     MAGICVAR("stdscr",    UV_stdscr);
  1148. +     MAGICVAR("Def_term",UV_Def_term);
  1149. +     MAGICVAR("My_term",    UV_My_term);
  1150. +     MAGICVAR("ttytype",    UV_ttytype);
  1151. +     MAGICVAR("LINES",    UV_LINES);
  1152. +     MAGICVAR("COLS",    UV_COLS);
  1153. +     MAGICVAR("ERR",    UV_ERR);
  1154. +     MAGICVAR("OK",    UV_OK);
  1155. + 
  1156. +     make_usub("addch",        US_addch,    usersub, filename);
  1157. +     make_usub("waddch",        US_waddch,    usersub, filename);
  1158. +     make_usub("addstr",        US_addstr,    usersub, filename);
  1159. +     make_usub("waddstr",    US_waddstr,    usersub, filename);
  1160. +     make_usub("box",        US_box,        usersub, filename);
  1161. +     make_usub("clear",        US_clear,    usersub, filename);
  1162. +     make_usub("wclear",        US_wclear,    usersub, filename);
  1163. +     make_usub("clearok",    US_clearok,    usersub, filename);
  1164. +     make_usub("clrtobot",    US_clrtobot,    usersub, filename);
  1165. +     make_usub("wclrtobot",    US_wclrtobot,    usersub, filename);
  1166. +     make_usub("clrtoeol",    US_clrtoeol,    usersub, filename);
  1167. +     make_usub("wclrtoeol",    US_wclrtoeol,    usersub, filename);
  1168. +     make_usub("delch",        US_delch,    usersub, filename);
  1169. +     make_usub("wdelch",        US_wdelch,    usersub, filename);
  1170. +     make_usub("deleteln",    US_deleteln,    usersub, filename);
  1171. +     make_usub("wdeleteln",    US_wdeleteln,    usersub, filename);
  1172. +     make_usub("erase",        US_erase,    usersub, filename);
  1173. +     make_usub("werase",        US_werase,    usersub, filename);
  1174. +     make_usub("flushok",    US_flushok,    usersub, filename);
  1175. +     make_usub("idlok",        US_idlok,    usersub, filename);
  1176. +     make_usub("insch",        US_insch,    usersub, filename);
  1177. +     make_usub("winsch",        US_winsch,    usersub, filename);
  1178. +     make_usub("insertln",    US_insertln,    usersub, filename);
  1179. +     make_usub("winsertln",    US_winsertln,    usersub, filename);
  1180. +     make_usub("move",        US_move,    usersub, filename);
  1181. +     make_usub("wmove",        US_wmove,    usersub, filename);
  1182. +     make_usub("overlay",    US_overlay,    usersub, filename);
  1183. +     make_usub("overwrite",    US_overwrite,    usersub, filename);
  1184. +     make_usub("printw",        US_printw,    usersub, filename);
  1185. +     make_usub("wprintw",    US_wprintw,    usersub, filename);
  1186. +     make_usub("refresh",    US_refresh,    usersub, filename);
  1187. +     make_usub("wrefresh",    US_wrefresh,    usersub, filename);
  1188. +     make_usub("standout",    US_standout,    usersub, filename);
  1189. +     make_usub("wstandout",    US_wstandout,    usersub, filename);
  1190. +     make_usub("standend",    US_standend,    usersub, filename);
  1191. +     make_usub("wstandend",    US_wstandend,    usersub, filename);
  1192. +     make_usub("cbreak",        US_cbreak,    usersub, filename);
  1193. +     make_usub("nocbreak",    US_nocbreak,    usersub, filename);
  1194. +     make_usub("echo",        US_echo,    usersub, filename);
  1195. +     make_usub("noecho",        US_noecho,    usersub, filename);
  1196. +     make_usub("getch",        US_getch,    usersub, filename);
  1197. +     make_usub("wgetch",        US_wgetch,    usersub, filename);
  1198. +     make_usub("getstr",        US_getstr,    usersub, filename);
  1199. +     make_usub("wgetstr",    US_wgetstr,    usersub, filename);
  1200. +     make_usub("raw",        US_raw,        usersub, filename);
  1201. +     make_usub("noraw",        US_noraw,    usersub, filename);
  1202. +     make_usub("scanw",        US_scanw,    usersub, filename);
  1203. +     make_usub("wscanw",        US_wscanw,    usersub, filename);
  1204. +     make_usub("baudrate",    US_baudrate,    usersub, filename);
  1205. +     make_usub("delwin",        US_delwin,    usersub, filename);
  1206. +     make_usub("endwin",        US_endwin,    usersub, filename);
  1207. +     make_usub("erasechar",    US_erasechar,    usersub, filename);
  1208. +     make_usub("getcap",        US_getcap,    usersub, filename);
  1209. +     make_usub("getyx",        US_getyx,    usersub, filename);
  1210. +     make_usub("inch",        US_inch,    usersub, filename);
  1211. +     make_usub("winch",        US_winch,    usersub, filename);
  1212. +     make_usub("initscr",    US_initscr,    usersub, filename);
  1213. +     make_usub("killchar",    US_killchar,    usersub, filename);
  1214. +     make_usub("leaveok",    US_leaveok,    usersub, filename);
  1215. +     make_usub("longname",    US_longname,    usersub, filename);
  1216. +     make_usub("fullname",    US_fullname,    usersub, filename);
  1217. +     make_usub("mvwin",        US_mvwin,    usersub, filename);
  1218. +     make_usub("newwin",        US_newwin,    usersub, filename);
  1219. +     make_usub("nl",        US_nl,        usersub, filename);
  1220. +     make_usub("nonl",        US_nonl,    usersub, filename);
  1221. +     make_usub("scrollok",    US_scrollok,    usersub, filename);
  1222. +     make_usub("subwin",        US_subwin,    usersub, filename);
  1223. +     make_usub("touchline",    US_touchline,    usersub, filename);
  1224. +     make_usub("touchoverlap",    US_touchoverlap,usersub, filename);
  1225. +     make_usub("touchwin",    US_touchwin,    usersub, filename);
  1226. +     make_usub("unctrl",        US_unctrl,    usersub, filename);
  1227. +     make_usub("gettmode",    US_gettmode,    usersub, filename);
  1228. +     make_usub("mvcur",        US_mvcur,    usersub, filename);
  1229. +     make_usub("scroll",        US_scroll,    usersub, filename);
  1230. +     make_usub("savetty",    US_savetty,    usersub, filename);
  1231. +     make_usub("resetty",    US_resetty,    usersub, filename);
  1232. +     make_usub("setterm",    US_setterm,    usersub, filename);
  1233. +     make_usub("tstp",        US_tstp,    usersub, filename);
  1234. +     make_usub("_putchar",    US__putchar,    usersub, filename);
  1235. +     make_usub("testcallback",    US_testcallback,usersub, filename);
  1236. + };
  1237. + 
  1238. + static int
  1239. + usersub(ix, sp, items)
  1240. + int ix;
  1241. + register int sp;
  1242. + register int items;
  1243. + {
  1244. +     STR **st = stack->ary_array + sp;
  1245. +     register int i;
  1246. +     register char *tmps;
  1247. +     register STR *Str;        /* used in str_get and str_gnum macros */
  1248. + 
  1249. +     switch (ix) {
  1250. + CASE int addch
  1251. + I    char        ch
  1252. + END
  1253. + 
  1254. + CASE int waddch
  1255. + I    WINDOW*        win
  1256. + I    char        ch
  1257. + END
  1258. + 
  1259. + CASE int addstr
  1260. + I    char*        str
  1261. + END
  1262. + 
  1263. + CASE int waddstr
  1264. + I    WINDOW*        win
  1265. + I    char*        str
  1266. + END
  1267. + 
  1268. + CASE void box
  1269. + I    WINDOW*        win
  1270. + I    char        vert
  1271. + I    char        hor
  1272. + END
  1273. + 
  1274. + CASE int clear
  1275. + END
  1276. + 
  1277. + CASE int wclear
  1278. + I    WINDOW*        win
  1279. + END
  1280. + 
  1281. + CASE int clearok
  1282. + I    WINDOW*        win
  1283. + I    bool        boolf
  1284. + END
  1285. + 
  1286. + CASE void clrtobot
  1287. + END
  1288. + 
  1289. + CASE void wclrtobot
  1290. + I    WINDOW*        win
  1291. + END
  1292. + 
  1293. + CASE void clrtoeol
  1294. + END
  1295. + 
  1296. + CASE void wclrtoeol
  1297. + I    WINDOW*        win
  1298. + END
  1299. + 
  1300. + CASE int delch
  1301. + END
  1302. + 
  1303. + CASE int wdelch
  1304. + I    WINDOW*        win
  1305. + END
  1306. + 
  1307. + CASE int deleteln
  1308. + END
  1309. + 
  1310. + CASE int wdeleteln
  1311. + I    WINDOW*        win
  1312. + END
  1313. + 
  1314. + CASE void erase
  1315. + END
  1316. + 
  1317. + CASE void werase
  1318. + I    WINDOW*        win
  1319. + END
  1320. + 
  1321. + CASE int flushok
  1322. + I    WINDOW*        win
  1323. + I    bool        boolf
  1324. + END
  1325. + 
  1326. + CASE void idlok
  1327. + I    WINDOW*        win
  1328. + I    bool        boolf
  1329. + END
  1330. + 
  1331. + CASE int insch
  1332. + I    char        c
  1333. + END
  1334. + 
  1335. + CASE int winsch
  1336. + I    WINDOW*        win
  1337. + I    char        c
  1338. + END
  1339. + 
  1340. + CASE void insertln
  1341. + END
  1342. + 
  1343. + CASE void winsertln
  1344. + I    WINDOW*        win
  1345. + END
  1346. + 
  1347. + CASE int move
  1348. + I    int        y
  1349. + I    int        x
  1350. + END
  1351. + 
  1352. + CASE int wmove
  1353. + I    WINDOW*        win
  1354. + I    int        y
  1355. + I    int        x
  1356. + END
  1357. + 
  1358. + CASE void overlay
  1359. + I    WINDOW*        win1
  1360. + I    WINDOW*        win2
  1361. + END
  1362. + 
  1363. + CASE void overwrite
  1364. + I    WINDOW*        win1
  1365. + I    WINDOW*        win2
  1366. + END
  1367. + 
  1368. +     case US_printw:
  1369. +     if (items < 1)
  1370. +         fatal("Usage: &printw($fmt, $arg1, $arg2, ... )");
  1371. +     else {
  1372. +         int retval;
  1373. +         STR*    str =        str_new(0);
  1374. + 
  1375. +         do_sprintf(str, items - 1, st + 1);
  1376. +         retval = addstr(str->str_ptr);
  1377. +         str_numset(st[0], (double) retval);
  1378. +         str_free(str);
  1379. +     }
  1380. +     return sp;
  1381. + 
  1382. +     case US_wprintw:
  1383. +     if (items < 2)
  1384. +         fatal("Usage: &wprintw($win, $fmt, $arg1, $arg2, ... )");
  1385. +     else {
  1386. +         int retval;
  1387. +         STR*    str =        str_new(0);
  1388. +         WINDOW*    win =        *(WINDOW**)    str_get(st[1]);
  1389. + 
  1390. +         do_sprintf(str, items - 1, st + 1);
  1391. +         retval = waddstr(win, str->str_ptr);
  1392. +         str_numset(st[0], (double) retval);
  1393. +         str_free(str);
  1394. +     }
  1395. +     return sp;
  1396. + 
  1397. + CASE int refresh
  1398. + END
  1399. + 
  1400. + CASE int wrefresh
  1401. + I    WINDOW*        win
  1402. + END
  1403. + 
  1404. + CASE int standout
  1405. + END
  1406. + 
  1407. + CASE void wstandout
  1408. + I    WINDOW*        win
  1409. + END
  1410. + 
  1411. + CASE int standend
  1412. + END
  1413. + 
  1414. + CASE void wstandend
  1415. + I    WINDOW*        win
  1416. + END
  1417. + 
  1418. + CASE int cbreak
  1419. + END
  1420. + 
  1421. + CASE int nocbreak
  1422. + END
  1423. + 
  1424. + CASE int echo
  1425. + END
  1426. + 
  1427. + CASE int noecho
  1428. + END
  1429. + 
  1430. +     case US_getch:
  1431. +         if (items != 0)
  1432. +             fatal("Usage: &getch()");
  1433. +         else {
  1434. +             int retval;
  1435. +         char retch;
  1436. + 
  1437. +             retval = getch();
  1438. +         if (retval == EOF)
  1439. +         st[0] = &str_undef;
  1440. +         else {
  1441. +         retch = retval;
  1442. +         str_nset(st[0], &retch, 1);
  1443. +         }
  1444. +         }
  1445. +         return sp;
  1446. + 
  1447. +     case US_wgetch:
  1448. +         if (items != 1)
  1449. +             fatal("Usage: &wgetch($win)");
  1450. +         else {
  1451. +             int retval;
  1452. +         char retch;
  1453. +             WINDOW*     win =           *(WINDOW**)     str_get(st[1]);
  1454. + 
  1455. +             retval = wgetch(win);
  1456. +         if (retval == EOF)
  1457. +         st[0] = &str_undef;
  1458. +         else {
  1459. +         retch = retval;
  1460. +         str_nset(st[0], &retch, 1);
  1461. +         }
  1462. +         }
  1463. +         return sp;
  1464. + 
  1465. + CASE int getstr
  1466. + IO    char*        str
  1467. + END
  1468. + 
  1469. + CASE int wgetstr
  1470. + I    WINDOW*        win
  1471. + IO    char*        str
  1472. + END
  1473. + 
  1474. + CASE int raw
  1475. + END
  1476. + 
  1477. + CASE int noraw
  1478. + END
  1479. + 
  1480. + CASE int baudrate
  1481. + END
  1482. + 
  1483. + CASE void delwin
  1484. + I    WINDOW*        win
  1485. + END
  1486. + 
  1487. + CASE void endwin
  1488. + END
  1489. + 
  1490. + CASE int erasechar
  1491. + END
  1492. + 
  1493. +     case US_getcap:
  1494. +     if (items != 1)
  1495. +         fatal("Usage: &getcap($str)");
  1496. +     else {
  1497. +         char* retval;
  1498. +         char*    str =        (char*)        str_get(st[1]);
  1499. +         char output[50], *outputp = output;
  1500. + 
  1501. +         retval = tgetstr(str, &outputp);
  1502. +         str_set(st[0], (char*) retval);
  1503. +     }
  1504. +     return sp;
  1505. + 
  1506. +     case US_getyx:
  1507. +     if (items != 3)
  1508. +         fatal("Usage: &getyx($win, $y, $x)");
  1509. +     else {
  1510. +         int retval;
  1511. +         STR*    str =        str_new(0);
  1512. +         WINDOW*    win =        *(WINDOW**)    str_get(st[1]);
  1513. +         int        y;
  1514. +         int        x;
  1515. + 
  1516. +         do_sprintf(str, items - 1, st + 1);
  1517. +         retval = getyx(win, y, x);
  1518. +         str_numset(st[2], (double)y);
  1519. +         str_numset(st[3], (double)x);
  1520. +         str_numset(st[0], (double) retval);
  1521. +         str_free(str);
  1522. +     }
  1523. +     return sp;
  1524. + 
  1525. +     
  1526. + CASE int inch
  1527. + END
  1528. + 
  1529. + CASE int winch
  1530. + I    WINDOW*        win
  1531. + END
  1532. + 
  1533. + CASE WINDOW* initscr
  1534. + END
  1535. + 
  1536. + CASE int killchar
  1537. + END
  1538. + 
  1539. + CASE int leaveok
  1540. + I    WINDOW*        win
  1541. + I    bool        boolf
  1542. + END
  1543. + 
  1544. + CASE char* longname
  1545. + I    char*        termbuf
  1546. + IO    char*        name
  1547. + END
  1548. + 
  1549. + CASE int fullname
  1550. + I    char*        termbuf
  1551. + IO    char*        name
  1552. + END
  1553. + 
  1554. + CASE int mvwin
  1555. + I    WINDOW*        win
  1556. + I    int        y
  1557. + I    int        x
  1558. + END
  1559. + 
  1560. + CASE WINDOW* newwin
  1561. + I    int        lines
  1562. + I    int        cols
  1563. + I    int        begin_y
  1564. + I    int        begin_x
  1565. + END
  1566. + 
  1567. + CASE int nl
  1568. + END
  1569. + 
  1570. + CASE int nonl
  1571. + END
  1572. + 
  1573. + CASE int scrollok
  1574. + I    WINDOW*        win
  1575. + I    bool        boolf
  1576. + END
  1577. + 
  1578. + CASE WINDOW* subwin
  1579. + I    WINDOW*        win
  1580. + I    int        lines
  1581. + I    int        cols
  1582. + I    int        begin_y
  1583. + I    int        begin_x
  1584. + END
  1585. + 
  1586. + CASE void touchline
  1587. + I    WINDOW*        win
  1588. + I    int        y
  1589. + I    int        startx
  1590. + I    int        endx
  1591. + END
  1592. + 
  1593. + CASE void touchoverlap
  1594. + I    WINDOW*        win1
  1595. + I    WINDOW*        win2
  1596. + END
  1597. + 
  1598. + CASE void touchwin
  1599. + I    WINDOW*        win
  1600. + END
  1601. + 
  1602. + CASE char* unctrl
  1603. + I    char        ch
  1604. + END
  1605. + 
  1606. + CASE void gettmode
  1607. + END
  1608. + 
  1609. + CASE void mvcur
  1610. + I    int        lasty
  1611. + I    int        lastx
  1612. + I    int        newy
  1613. + I    int        newx
  1614. + END
  1615. + 
  1616. + CASE int scroll
  1617. + I    WINDOW*        win
  1618. + END
  1619. + 
  1620. + CASE int savetty
  1621. + END
  1622. + 
  1623. + CASE void resetty
  1624. + END
  1625. + 
  1626. + CASE int setterm
  1627. + I    char*        name
  1628. + END
  1629. + 
  1630. + CASE void tstp
  1631. + END
  1632. + 
  1633. + CASE int _putchar
  1634. + I    char        ch
  1635. + END
  1636. + 
  1637. +     case US_testcallback:
  1638. +     sp = callback("callback", sp + items, curcsv->wantarray, 1, items);
  1639. +     break;
  1640. + 
  1641. +     default:
  1642. +     fatal("Unimplemented user-defined subroutine");
  1643. +     }
  1644. +     return sp;
  1645. + }
  1646. + 
  1647. + static int
  1648. + userval(ix, str)
  1649. + int ix;
  1650. + STR *str;
  1651. + {
  1652. +     switch (ix) {
  1653. +     case UV_COLS:
  1654. +     str_numset(str, (double)COLS);
  1655. +     break;
  1656. +     case UV_Def_term:
  1657. +     str_set(str, Def_term);
  1658. +     break;
  1659. +     case UV_ERR:
  1660. +     str_numset(str, (double)ERR);
  1661. +     break;
  1662. +     case UV_LINES:
  1663. +     str_numset(str, (double)LINES);
  1664. +     break;
  1665. +     case UV_My_term:
  1666. +     str_numset(str, (double)My_term);
  1667. +     break;
  1668. +     case UV_OK:
  1669. +     str_numset(str, (double)OK);
  1670. +     break;
  1671. +     case UV_curscr:
  1672. +     str_nset(str, &curscr, sizeof(WINDOW*));
  1673. +     break;
  1674. +     case UV_stdscr:
  1675. +     str_nset(str, &stdscr, sizeof(WINDOW*));
  1676. +     break;
  1677. +     case UV_ttytype:
  1678. +     str_set(str, ttytype);
  1679. +     break;
  1680. +     }
  1681. +     return 0;
  1682. + }
  1683. + 
  1684. + static int
  1685. + userset(ix, str)
  1686. + int ix;
  1687. + STR *str;
  1688. + {
  1689. +     switch (ix) {
  1690. +     case UV_COLS:
  1691. +     COLS = (int)str_gnum(str);
  1692. +     break;
  1693. +     case UV_Def_term:
  1694. +     Def_term = savestr(str_get(str));    /* never freed */
  1695. +     break;
  1696. +     case UV_LINES:
  1697. +     LINES = (int)str_gnum(str);
  1698. +     break;
  1699. +     case UV_My_term:
  1700. +     My_term = (bool)str_gnum(str);
  1701. +     break;
  1702. +     case UV_ttytype:
  1703. +     strcpy(ttytype, str_get(str));        /* hope it fits */
  1704. +     break;
  1705. +     }
  1706. +     return 0;
  1707. + }
  1708.  
  1709. Index: os2/eg/alarm.pl
  1710. *** os2/eg/alarm.pl.old    Mon Jun  8 17:49:52 1992
  1711. --- os2/eg/alarm.pl    Mon Jun  8 17:49:52 1992
  1712. ***************
  1713. *** 4,12 ****
  1714.     exit(0);
  1715.   }
  1716.   
  1717. - $SIG{'INT'} = 'handler';
  1718. - $SIG{'QUIT'} = 'handler';
  1719.   $SIG{'ALRM'} = 'handler';
  1720.   
  1721.   print "Starting execution ...\n";
  1722.   alarm(10);
  1723. --- 4,13 ----
  1724.     exit(0);
  1725.   }
  1726.   
  1727.   $SIG{'ALRM'} = 'handler';
  1728. + $SIG{'INT'} = 'handler';    # Ctrl-C pressed
  1729. + $SIG{'BREAK'} = 'handler';    # Ctrl-Break pressed
  1730. + $SIG{'TERM'} = 'handler';    # Killed by another process
  1731.   
  1732.   print "Starting execution ...\n";
  1733.   alarm(10);
  1734.  
  1735. Index: arg.h
  1736. *** arg.h.old    Mon Jun  8 17:34:47 1992
  1737. --- arg.h    Mon Jun  8 17:34:47 1992
  1738. ***************
  1739. *** 1,4 ****
  1740. ! /* $RCSfile: arg.h,v $$Revision: 4.0.1.2 $$Date: 91/11/05 15:51:05 $
  1741.    *
  1742.    *    Copyright (c) 1991, Larry Wall
  1743.    *
  1744. --- 1,4 ----
  1745. ! /* $RCSfile: arg.h,v $$Revision: 4.0.1.3 $$Date: 92/06/08 11:44:06 $
  1746.    *
  1747.    *    Copyright (c) 1991, Larry Wall
  1748.    *
  1749. ***************
  1750. *** 6,11 ****
  1751. --- 6,15 ----
  1752.    *    License or the Artistic License, as specified in the README file.
  1753.    *
  1754.    * $Log:    arg.h,v $
  1755. +  * Revision 4.0.1.3  92/06/08  11:44:06  lwall
  1756. +  * patch20: O_PIPE conflicted with Atari
  1757. +  * patch20: clarified debugging output for literals and double-quoted strings
  1758. +  * 
  1759.    * Revision 4.0.1.2  91/11/05  15:51:05  lwall
  1760.    * patch11: added eval {}
  1761.    * patch11: added sort {} LIST
  1762. ***************
  1763. *** 286,292 ****
  1764.   #define O_REWINDDIR 263
  1765.   #define O_CLOSEDIR 264
  1766.   #define O_SYSCALL 265
  1767. ! #define O_PIPE 266
  1768.   #define O_TRY 267
  1769.   #define O_EVALONCE 268
  1770.   #define MAXO 269
  1771. --- 290,296 ----
  1772.   #define O_REWINDDIR 263
  1773.   #define O_CLOSEDIR 264
  1774.   #define O_SYSCALL 265
  1775. ! #define O_PIPE_OP 266
  1776.   #define O_TRY 267
  1777.   #define O_EVALONCE 268
  1778.   #define MAXO 269
  1779. ***************
  1780. *** 603,610 ****
  1781.       "CMD",
  1782.       "STAB",
  1783.       "LVAL",
  1784. !     "SINGLE",
  1785. !     "DOUBLE",
  1786.       "BACKTICK",
  1787.       "READ",
  1788.       "SPAT",
  1789. --- 607,614 ----
  1790.       "CMD",
  1791.       "STAB",
  1792.       "LVAL",
  1793. !     "LITERAL",
  1794. !     "DOUBLEQUOTE",
  1795.       "BACKTICK",
  1796.       "READ",
  1797.       "SPAT",
  1798.  
  1799. Index: array.c
  1800. *** array.c.old    Mon Jun  8 17:34:50 1992
  1801. --- array.c    Mon Jun  8 17:34:51 1992
  1802. ***************
  1803. *** 1,4 ****
  1804. ! /* $RCSfile: array.c,v $$Revision: 4.0.1.2 $$Date: 91/11/05 16:00:14 $
  1805.    *
  1806.    *    Copyright (c) 1991, Larry Wall
  1807.    *
  1808. --- 1,4 ----
  1809. ! /* $RCSfile: array.c,v $$Revision: 4.0.1.3 $$Date: 92/06/08 11:45:05 $
  1810.    *
  1811.    *    Copyright (c) 1991, Larry Wall
  1812.    *
  1813. ***************
  1814. *** 6,11 ****
  1815. --- 6,14 ----
  1816.    *    License or the Artistic License, as specified in the README file.
  1817.    *
  1818.    * $Log:    array.c,v $
  1819. +  * Revision 4.0.1.3  92/06/08  11:45:05  lwall
  1820. +  * patch20: Perl now distinguishes overlapped copies from non-overlapped
  1821. +  * 
  1822.    * Revision 4.0.1.2  91/11/05  16:00:14  lwall
  1823.    * patch11: random cleanup
  1824.    * patch11: passing non-existend array elements to subrouting caused core dump
  1825. ***************
  1826. *** 67,73 ****
  1827.   
  1828.       if (ar->ary_alloc != ar->ary_array) {
  1829.           retval = ar->ary_array - ar->ary_alloc;
  1830. !         Copy(ar->ary_array, ar->ary_alloc, ar->ary_max+1, STR*);
  1831.           Zero(ar->ary_alloc+ar->ary_max+1, retval, STR*);
  1832.           ar->ary_max += retval;
  1833.           ar->ary_array -= retval;
  1834. --- 70,76 ----
  1835.   
  1836.       if (ar->ary_alloc != ar->ary_array) {
  1837.           retval = ar->ary_array - ar->ary_alloc;
  1838. !         Move(ar->ary_array, ar->ary_alloc, ar->ary_max+1, STR*);
  1839.           Zero(ar->ary_alloc+ar->ary_max+1, retval, STR*);
  1840.           ar->ary_max += retval;
  1841.           ar->ary_array -= retval;
  1842. ***************
  1843. *** 212,217 ****
  1844. --- 215,221 ----
  1845.       return retval;
  1846.   }
  1847.   
  1848. + void
  1849.   aunshift(ar,num)
  1850.   register ARRAY *ar;
  1851.   register int num;
  1852. ***************
  1853. *** 266,271 ****
  1854. --- 270,276 ----
  1855.       return ar->ary_fill;
  1856.   }
  1857.   
  1858. + void
  1859.   afill(ar, fill)
  1860.   register ARRAY *ar;
  1861.   int fill;
  1862.  
  1863. Index: array.h
  1864. *** array.h.old    Mon Jun  8 17:34:53 1992
  1865. --- array.h    Mon Jun  8 17:34:54 1992
  1866. ***************
  1867. *** 1,4 ****
  1868. ! /* $RCSfile: array.h,v $$Revision: 4.0.1.1 $$Date: 91/06/07 10:19:20 $
  1869.    *
  1870.    *    Copyright (c) 1991, Larry Wall
  1871.    *
  1872. --- 1,4 ----
  1873. ! /* $RCSfile: array.h,v $$Revision: 4.0.1.2 $$Date: 92/06/08 11:45:57 $
  1874.    *
  1875.    *    Copyright (c) 1991, Larry Wall
  1876.    *
  1877. ***************
  1878. *** 6,11 ****
  1879. --- 6,14 ----
  1880.    *    License or the Artistic License, as specified in the README file.
  1881.    *
  1882.    * $Log:    array.h,v $
  1883. +  * Revision 4.0.1.2  92/06/08  11:45:57  lwall
  1884. +  * patch20: removed implicit int declarations on funcions
  1885. +  * 
  1886.    * Revision 4.0.1.1  91/06/07  10:19:20  lwall
  1887.    * patch4: new copyright notice
  1888.    * 
  1889. ***************
  1890. *** 35,37 ****
  1891. --- 38,42 ----
  1892.   int alen();
  1893.   ARRAY *anew();
  1894.   ARRAY *afake();
  1895. + void aunshift();
  1896. + void afill();
  1897.  
  1898. Index: lib/bigrat.pl
  1899. *** lib/bigrat.pl.old    Mon Jun  8 17:48:44 1992
  1900. --- lib/bigrat.pl    Mon Jun  8 17:48:44 1992
  1901. ***************
  1902. *** 3,8 ****
  1903. --- 3,10 ----
  1904.   
  1905.   # Arbitrary size rational math package
  1906.   #
  1907. + # by Mark Biggar
  1908. + #
  1909.   # Input values to these routines consist of strings of the form 
  1910.   #   m|^\s*[+-]?[\d\s]+(/[\d\s]+)?$|.
  1911.   # Examples:
  1912.  
  1913. Index: atarist/test/binhandl
  1914. *** atarist/test/binhandl.old    Mon Jun  8 17:44:53 1992
  1915. --- atarist/test/binhandl    Mon Jun  8 17:44:53 1992
  1916. ***************
  1917. *** 0 ****
  1918. --- 1,15 ----
  1919. + die "Usage: binhandl files ...\n" if $#ARGV < $[;
  1920. + 
  1921. + NEXTFILE:
  1922. + while ($FILEHAND = shift) {
  1923. +     unless (open(FILEHAND)) {
  1924. +     printf STDERR "Can't open \"$FILEHAND\"\n";
  1925. +         next NEXTFILE;
  1926. +     }
  1927. +     if (-B FILEHAND) {
  1928. +     print "\"$FILEHAND\" is binary\n";
  1929. +     } else {
  1930. +     print "\"$FILEHAND\" is text\n";
  1931. +     }
  1932. +     close(FILEHAND);
  1933. + }
  1934.  
  1935. Index: lib/cacheout.pl
  1936. *** lib/cacheout.pl.old    Mon Jun  8 17:48:46 1992
  1937. --- lib/cacheout.pl    Mon Jun  8 17:48:47 1992
  1938. ***************
  1939. *** 1,5 ****
  1940. - #!/usr/bin/perl
  1941. - 
  1942.   # Open in their package.
  1943.   
  1944.   sub cacheout'open {
  1945. --- 1,3 ----
  1946.  
  1947. *** End of Patch 21 ***
  1948. exit 0 # Just in case...
  1949.