1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
/* $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 3.0 89/10/18 15:23:49 lwall
* 3.0 baseline
*
*/
struct string {
char * str_ptr; /* pointer to malloced string */
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 {
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
};
/* 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 */
#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_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();
|
