50 lines
1.3 KiB
C
50 lines
1.3 KiB
C
/* $RCSfile: str.h,v $$Revision: 1.1.1.1 $$Date: 1994/09/10 06:27:55 $
|
|
*
|
|
* 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 1994/09/10 06:27:55 gclarkii
|
|
* Initial import of Perl 4.046 bmaked
|
|
*
|
|
* Revision 1.1.1.1 1993/08/23 21:30:10 nate
|
|
* PERL!
|
|
*
|
|
* Revision 4.0.1.1 91/06/07 12:20:22 lwall
|
|
* patch4: new copyright notice
|
|
*
|
|
* Revision 4.0 91/03/20 01:58:21 lwall
|
|
* 4.0 baseline.
|
|
*
|
|
*/
|
|
|
|
struct string {
|
|
char * str_ptr; /* pointer to malloced string */
|
|
double str_nval; /* numeric value, if any */
|
|
int str_len; /* allocated size */
|
|
int str_cur; /* length of str_ptr as a C string */
|
|
union {
|
|
STR *str_next; /* while free, link to next free str */
|
|
} str_link;
|
|
char str_pok; /* state of str_ptr */
|
|
char str_nok; /* state of str_nval */
|
|
};
|
|
|
|
#define Nullstr Null(STR*)
|
|
|
|
/* the following macro updates any magic values this str is associated with */
|
|
|
|
#define STABSET(x) (x->str_link.str_magic && stabset(x->str_link.str_magic,x))
|
|
|
|
EXT STR **tmps_list;
|
|
EXT long tmps_max INIT(-1);
|
|
|
|
char *str_2ptr();
|
|
double str_2num();
|
|
STR *str_mortal();
|
|
STR *str_make();
|
|
STR *str_nmake();
|
|
char *str_gets();
|