1 /* $Header: str.h,v 3.0 89/10/18 15:35:27 lwall Locked $
3 * Copyright (c) 1989, Larry Wall
5 * You may distribute under the terms of the GNU General Public License
6 * as specified in the README file that comes with the perl 3.0 kit.
9 * Revision 3.0 89/10/18 15:35:27 lwall
15 char * str_ptr; /* pointer to malloced string */
16 double str_nval; /* numeric value, if any */
17 int str_len; /* allocated size */
18 int str_cur; /* length of str_ptr as a C string */
20 STR *str_next; /* while free, link to next free str */
22 char str_pok; /* state of str_ptr */
23 char str_nok; /* state of str_nval */
26 #define Nullstr Null(STR*)
28 /* the following macro updates any magic values this str is associated with */
30 #define STABSET(x) (x->str_link.str_magic && stabset(x->str_link.str_magic,x))
33 EXT long tmps_max INIT(-1);