Win32 pacifying from mjd.
[perl.git] / x2p / str.h
1 /* $RCSfile: str.h,v $$Revision: 4.1 $$Date: 92/08/07 18:29:27 $
2  *
3  *    Copyright (c) 1991-2002, Larry Wall
4  *
5  *    You may distribute under the terms of either the GNU General Public
6  *    License or the Artistic License, as specified in the README file.
7  *
8  * $Log:        str.h,v $
9  */
10
11 struct string {
12     char *      str_ptr;        /* pointer to malloced string */
13     double      str_nval;       /* numeric value, if any */
14     int         str_len;        /* allocated size */
15     int         str_cur;        /* length of str_ptr as a C string */
16     union {
17         STR *str_next;          /* while free, link to next free str */
18     } str_link;
19     char        str_pok;        /* state of str_ptr */
20     char        str_nok;        /* state of str_nval */
21 };
22
23 #define Nullstr Null(STR*)
24
25 /* the following macro updates any magic values this str is associated with */
26
27 #define STABSET(x) (x->str_link.str_magic && stabset(x->str_link.str_magic,x))
28
29 EXT STR **tmps_list;
30 EXT long tmps_max INIT(-1);
31
32 double str_2num ( STR *str );
33 char * str_2ptr ( STR *str );
34 char * str_append_till ( STR *str, char *from, int delim, char *keeplist );
35 void str_cat ( STR *str, char *ptr );
36 void str_chop ( STR *str, char *ptr );
37 void str_dec ( STR *str );
38 void str_free ( STR *str );
39 char * str_gets ( STR *str, FILE *fp );
40 void str_grow ( STR *str, int len );
41 void str_inc ( STR *str );
42 int str_len ( STR *str );
43 STR * str_make ( char *s );
44 STR * str_mortal ( STR *oldstr );
45 void str_ncat ( STR *str, char *ptr, int len );
46 STR * str_new ( int len );
47 STR * str_nmake ( double n );
48 void str_nset ( STR *str, char *ptr, int len );
49 void str_numset ( STR *str, double num );
50 void str_replace ( STR *str, STR *nstr );
51 void str_scat ( STR *dstr, STR *sstr );
52 void str_set ( STR *str, char *ptr );
53 void str_sset ( STR *dstr, STR *sstr );