perl 3.0: (no announcement message available)perl-3.000

A few of the new features: (18 Oct)

    * Perl can now handle binary data correctly and has functions to pack and unpack binary structures into arrays or lists. You can now do arbitrary ioctl functions.
    * You can now pass things to subroutines by reference.
    * Debugger enhancements.
    * An array or associative array may now appear in a local() list.
    * Array values may now be interpolated into strings.
    * Subroutine names are now distinguished by prefixing with &. You can call subroutines without using do, and without passing any argument list at all.
    * You can use the new -u switch to cause perl to dump core so that you can run undump and produce a binary executable image. Alternately you can use the "dump" operator after initializing any variables and such.
    * You can now chop lists.
    * Perl now uses /bin/csh to do filename globbing, if available. This means that filenames with spaces or other strangenesses work right.
    * New functions: mkdir and rmdir, getppid, getpgrp and setpgrp, getpriority and setpriority, chroot, ioctl and fcntl, flock, readlink, lstat, rindex, pack and unpack, read, warn, dbmopen and dbmclose, dump, reverse, defined, undef.

1 files changed, 11 insertions, 5 deletions

diff --git a/spat.h b/spat.h
index 3bce100f5b..4ee2666757 100644
--- a/spat.h
+++ b/spat.h
@@ -1,8 +1,13 @@
-/* $Header: spat.h,v 2.0 88/06/05 00:10:58 root Exp $
+/* $Header: spat.h,v 3.0 89/10/18 15:23:14 lwall Locked $
+ *
+ *    Copyright (c) 1989, Larry Wall
+ *
+ *    You may distribute under the terms of the GNU General Public License
+ *    as specified in the README file that comes with the perl 3.0 kit.
  *
  * $Log:	spat.h,v $
- * Revision 2.0  88/06/05  00:10:58  root
- * Baseline version 2.0.
+ * Revision 3.0  89/10/18  15:23:14  lwall
+ * 3.0 baseline
  * 
  */
 
@@ -17,13 +22,14 @@ struct scanpat {
 };
 
 #define SPAT_USED 1			/* spat has been used once already */
-#define SPAT_ONCE 2			/* use pattern only once per article */
+#define SPAT_ONCE 2			/* use pattern only once per reset */
 #define SPAT_SCANFIRST 4		/* initial constant not anchored */
 #define SPAT_ALL 8			/* initial constant is whole pat */
 #define SPAT_SKIPWHITE 16		/* skip leading whitespace for split */
 #define SPAT_FOLD 32			/* case insensitivity */
+#define SPAT_CONST 64			/* subst replacement is constant */
+#define SPAT_KEEP 128			/* keep 1st runtime pattern forever */
 
-EXT SPAT *spat_root;		/* list of all spats */
 EXT SPAT *curspat;		/* what to do \ interps from */
 EXT SPAT *lastspat;		/* what to use in place of null pattern */