This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
silence a compiler warning
[perl5.git] / x2p / str.h
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 #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 ( STR *str );
32 void str_cat ( STR *str, char *ptr );
33 void str_free ( STR *str );
34 char * str_gets ( STR *str, FILE *fp );
35 int str_len ( STR *str );
36 STR * str_make ( char *s );
37 void str_ncat ( STR *str, char *ptr, int len );
38 STR * str_new ( int len );
39 void str_nset ( STR *str, char *ptr, int len );
40 void str_numset ( STR *str, double num );
41 void str_scat ( STR *dstr, STR *sstr );
42 void str_set ( STR *str, char *ptr );
43 void str_sset ( STR *dstr, STR *sstr );