diff options
Diffstat (limited to 'str.h')
| -rw-r--r-- | str.h | 168 |
1 files changed, 0 insertions, 168 deletions
diff --git a/str.h b/str.h deleted file mode 100644 index 408e23f075..0000000000 --- a/str.h +++ /dev/null @@ -1,168 +0,0 @@ -/* $RCSfile: str.h,v $$Revision: 4.0.1.4 $$Date: 92/06/08 15:41:45 $ - * - * Copyright (c) 1991, Larry Wall - * - * You may distribute under the terms of either the GNU General Public - * License or the Artistic License, as specified in the README file. - * - * $Log: str.h,v $ - * Revision 4.0.1.4 92/06/08 15:41:45 lwall - * patch20: fixed confusion between a *var's real name and its effective name - * patch20: removed implicit int declarations on functions - * - * Revision 4.0.1.3 91/11/05 18:41:47 lwall - * patch11: random cleanup - * patch11: solitary subroutine references no longer trigger typo warnings - * - * Revision 4.0.1.2 91/06/07 11:58:33 lwall - * patch4: new copyright notice - * - * Revision 4.0.1.1 91/04/12 09:16:12 lwall - * patch1: you may now use "die" and "caller" in a signal handler - * - * Revision 4.0 91/03/20 01:40:04 lwall - * 4.0 baseline. - * - */ - -struct string { - char * str_ptr; /* pointer to malloced string */ - STRLEN str_len; /* allocated size */ - union { - double str_nval; /* numeric value, if any */ - 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 */ - CMD *str_cmd; /* command for this source line */ - struct { - STAB *stb_stab; /* magic stab for magic "key" string */ - HASH *stb_stash; /* which symbol table this stab is in */ - } stb_u; - } str_u; - STRLEN 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 */ - unsigned char str_pok; /* state of str_ptr */ - unsigned 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 */ - STRLEN str_len; /* allocated size */ - union { - double str_nval; /* numeric value, if any */ - 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 */ - CMD *str_cmd; /* command for this source line */ - struct { - STAB *stb_stab; /* magic stab for magic "key" string */ - HASH *stb_stash; /* which symbol table this stab is in */ - } stb_u; - } str_u; - STRLEN 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 */ - unsigned char str_pok; /* state of str_ptr */ - unsigned 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 -}; - -#define str_stab stb_u.stb_stab -#define str_stash stb_u.stb_stash - -/* some extra info tacked to some lvalue strings */ - -struct lstring { - struct string lstr; - STRLEN lstr_offset; - STRLEN 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 SP_TEMP 128 /* string slated to die, so can be plundered */ - -#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_SCSV 9 /* callsave structure on save stack */ -#define SS_SAPTR 10 /* ARRAY* 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 */ - -#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); -EXT int tmps_base INIT(-1); - -char *str_2ptr(); -double str_2num(); -STR *str_mortal(); -STR *str_2mortal(); -STR *str_make(); -STR *str_nmake(); -STR *str_smake(); -int str_cmp(); -int str_eq(); -void str_magic(); -void str_insert(); -void str_numset(); -void str_sset(); -void str_nset(); -void str_set(); -void str_chop(); -void str_cat(); -void str_scat(); -void str_ncat(); -void str_reset(); -void str_taintproper(); -void str_taintenv(); -STRLEN str_len(); - -#define MULTI (3) |