perl5.git.perl.org Git - perl5.git/blame_incremental

... / ...

Commit	Line	Data
	1	/* str.h
	2	*
	3	* Copyright (C) 1991, 1992, 1993, 1994, 1995, 1999, 2000, 2005
	4	* by Larry Wall and others
	5	*
	6	* You may distribute under the terms of either the GNU General Public
	7	* License or the Artistic License, as specified in the README file.
	8	*/
	9
	10	struct string {
	11	char * str_ptr; /* pointer to malloced string */
	12	double str_nval; /* numeric value, if any */
	13	int str_len; /* allocated size */
	14	int str_cur; /* length of str_ptr as a C string */
	15	union {
	16	STR str_next; / while free, link to next free str */
	17	} str_link;
	18	char str_pok; /* state of str_ptr */
	19	char str_nok; /* state of str_nval */
	20	};
	21
	22	/* the following macro updates any magic values this str is associated with */
	23
	24	#define STABSET(x) (x->str_link.str_magic && stabset(x->str_link.str_magic,x))
	25
	26	EXT STR **tmps_list;
	27	EXT long tmps_max INIT(-1);
	28
	29	char * str_2ptr ( STR *str );
	30	void str_cat ( STR str, const char ptr );
	31	void str_free ( STR *str );
	32	char * str_gets ( STR str, FILE fp );
	33	int str_len ( STR *str );
	34	STR * str_make ( const char *s );
	35	void str_ncat ( STR str, const char ptr, int len );
	36	STR * str_new ( int len );
	37	void str_nset ( STR str, const char ptr, int len );
	38	void str_numset ( STR *str, double num );
	39	void str_scat ( STR dstr, STR sstr );
	40	void str_set ( STR str, const char ptr );
	41	void str_sset ( STR dstr, STR sstr );