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, 98 insertions, 10 deletions

diff --git a/str.h b/str.h
index bd91abebbd..f4ea90f8dd 100644
--- a/str.h
+++ b/str.h
@@ -1,31 +1,113 @@
-/* $Header: str.h,v 2.0 88/06/05 00:11:11 root Exp $
+/* $Header: str.h,v 3.0 89/10/18 15:23:49 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:	str.h,v $
- * Revision 2.0  88/06/05  00:11:11  root
- * Baseline version 2.0.
+ * Revision 3.0  89/10/18  15:23:49  lwall
+ * 3.0 baseline
  * 
  */
 
 struct string {
     char *	str_ptr;	/* pointer to malloced string */
-    double	str_nval;	/* numeric value, if any */
+    union {
+	double	str_nval;	/* numeric value, if any */
+	STAB	*str_stab;	/* magic stab for magic "key" string */
+	long	str_useful;	/* is this search optimization effective? */
+	ARG	*str_args;	/* list of args for interpreted string */
+	HASH	*str_hash;	/* string represents an assoc array (stab?) */
+	ARRAY	*str_array;	/* string represents an array */
+    } str_u;
     int		str_len;	/* allocated size */
     int		str_cur;	/* length of str_ptr as a C string */
+    STR *str_magic;		/* while free, link to next free str */
+				/* while in use, ptr to "key" for magic items */
+    char	str_pok;	/* state of str_ptr */
+    char	str_nok;	/* state of str_nval */
+    unsigned char str_rare;	/* used by search strings */
+    unsigned char str_state;	/* one of SS_* below */
+				/* also used by search strings for backoff */
+#ifdef TAINT
+    bool	str_tainted;	/* 1 if possibly under control of $< */
+#endif
+};
+
+struct stab {	/* should be identical, except for str_ptr */
+    STBP *	str_ptr;	/* pointer to malloced string */
     union {
-	STR *str_next;		/* while free, link to next free str */
-	STAB *str_magic;	/* while in use, ptr to magic stab, if any */
-    } str_link;
+	double	str_nval;	/* numeric value, if any */
+	STAB	*str_stab;	/* magic stab for magic "key" string */
+	long	str_useful;	/* is this search optimization effective? */
+	ARG	*str_args;	/* list of args for interpreted string */
+	HASH	*str_hash;	/* string represents an assoc array (stab?) */
+	ARRAY	*str_array;	/* string represents an array */
+    } str_u;
+    int		str_len;	/* allocated size */
+    int		str_cur;	/* length of str_ptr as a C string */
+    STR *str_magic;		/* while free, link to next free str */
+				/* while in use, ptr to "key" for magic items */
     char	str_pok;	/* state of str_ptr */
     char	str_nok;	/* state of str_nval */
-    char	str_rare;	/* used by search strings */
-    char	str_prev;	/* also used by search strings */
+    unsigned char str_rare;	/* used by search strings */
+    unsigned char str_state;	/* one of SS_* below */
+				/* also used by search strings for backoff */
+#ifdef TAINT
+    bool	str_tainted;	/* 1 if possibly under control of $< */
+#endif
+};
+
+/* some extra info tacked to some lvalue strings */
+
+struct lstring {
+    struct string lstr;
+    int	lstr_offset;
+    int	lstr_len;
 };
 
+/* These are the values of str_pok:		*/
+#define SP_VALID	1	/* str_ptr is valid */
+#define SP_FBM		2	/* string was compiled for fbm search */
+#define SP_STUDIED	4	/* string was studied */
+#define SP_CASEFOLD	8	/* case insensitive fbm search */
+#define SP_INTRP	16	/* string was compiled for interping */
+#define SP_TAIL		32	/* fbm string is tail anchored: /foo$/  */
+#define SP_MULTI	64	/* symbol table entry probably isn't a typo */
+
 #define Nullstr Null(STR*)
 
+/* These are the values of str_state:		*/
+#define SS_NORM		0	/* normal string */
+#define SS_INCR		1	/* normal string, incremented ptr */
+#define SS_SARY		2	/* array on save stack */
+#define SS_SHASH	3	/* associative array on save stack */
+#define SS_SINT		4	/* integer on save stack */
+#define SS_SLONG	5	/* long on save stack */
+#define SS_SSTRP	6	/* STR* on save stack */
+#define SS_SHPTR	7	/* HASH* on save stack */
+#define SS_SNSTAB	8	/* non-stab on save stack */
+#define SS_HASH		253	/* carrying an hash */
+#define SS_ARY		254	/* carrying an array */
+#define SS_FREE		255	/* in free list */
+/* str_state may have any value 0-255 when used to hold fbm pattern, in which */
+/* case it indicates offset to rarest character in screaminstr key */
+
 /* the following macro updates any magic values this str is associated with */
 
-#define STABSET(x) (x->str_link.str_magic && stabset(x->str_link.str_magic,x))
+#ifdef TAINT
+#define STABSET(x) \
+    (x)->str_tainted |= tainted; \
+    if ((x)->str_magic) \
+	stabset((x)->str_magic,(x))
+#else
+#define STABSET(x) \
+    if ((x)->str_magic) \
+	stabset((x)->str_magic,(x))
+#endif
+
+#define STR_SSET(dst,src) if (dst != src) str_sset(dst,src)
 
 EXT STR **tmps_list;
 EXT int tmps_max INIT(-1);
@@ -34,5 +116,11 @@ EXT int tmps_base INIT(-1);
 char *str_2ptr();
 double str_2num();
 STR *str_static();
+STR *str_2static();
 STR *str_make();
 STR *str_nmake();
+STR *str_smake();
+int str_cmp();
+int str_eq();
+void str_magic();
+void str_insert();