1: /* $Header: str.h,v 1.0 87/12/18 13:06:26 root Exp $
2: *
3: * $Log: str.h,v $
4: * Revision 1.0 87/12/18 13:06:26 root
5: * Initial revision
6: *
7: */
8:
9: struct string {
10: char * str_ptr; /* pointer to malloced string */
11: double str_nval; /* numeric value, if any */
12: int str_len; /* allocated size */
13: int str_cur; /* length of str_ptr as a C string */
14: union {
15: STR *str_next; /* while free, link to next free str */
16: STAB *str_magic; /* while in use, ptr to magic stab, if any */
17: } str_link;
18: char str_pok; /* state of str_ptr */
19: char str_nok; /* state of str_nval */
20: };
21:
22: #define Nullstr Null(STR*)
23:
24: /* the following macro updates any magic values this str is associated with */
25:
26: #define STABSET(x) (x->str_link.str_magic && stabset(x->str_link.str_magic,x))
27:
28: EXT STR **tmps_list;
29: EXT long tmps_max INIT(-1);
30:
31: char *str_2ptr();
32: double str_2num();
33: STR *str_static();
34: STR *str_make();
35: STR *str_nmake();
Defined variables
Defined struct's
string
defined in line
9; used 2 times
Defined macros
Nullstr
defined in line
22; used 33 times
- in /usr/src/new/PORT/perl.1.0.10/arg.c line
87,
141,
264-265(2),
563-564(2),
596-597(2),
636-637(2),
1042-1043(2),
1057,
1063,
1069-1070(2),
1077-1078(2),
1776,
2064,
2127-2128(2)
- in /usr/src/new/PORT/perl.1.0.10/array.c line
22,
47,
63,
110-112(2),
141-145(2)
- in /usr/src/new/PORT/perl.1.0.10/hash.c line
27,
41
- in /usr/src/new/PORT/perl.1.0.10/perl.h line
157,
163
STABSET
defined in line
26; used 33 times
- in /usr/src/new/PORT/perl.1.0.10/arg.c line
166,
198,
290,
388,
716,
995,
1010,
1314,
1324,
1426-1436(3),
1442,
1456-1464(3),
1480,
1567,
1577,
1617,
1628,
1640,
1648,
1657,
1670-1675(2),
1820,
1874,
1884,
2102,
2114
- in /usr/src/new/PORT/perl.1.0.10/array.c line
168,
181
Usage of this include