diff options
Diffstat (limited to 'str.h')
| -rw-r--r-- | str.h | 108 |
1 files changed, 98 insertions, 10 deletions
@@ -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(); |