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
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
|
/* $RCSfile: str.h,v $$Revision: 1.1.1.1 $$Date: 1993/08/23 21:29:39 $
*
* 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 1.1.1.1 1993/08/23 21:29:39 nate
* PERL!
*
* 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)
|
