blob: 765d9ea2113d09c43cabc5f5bf8a1ceeb62e8a0a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
/* $RCSfile: str.h,v $$Revision: 1.1.1.1 $$Date: 1993/08/23 21:30:10 $
*
* 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 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();
|