diff options
author | gclarkii <gclarkii@FreeBSD.org> | 1994-09-10 06:27:55 +0000 |
---|---|---|
committer | gclarkii <gclarkii@FreeBSD.org> | 1994-09-10 06:27:55 +0000 |
commit | 1da28de8c92ccedb74fb473dc45a575fea40a7bb (patch) | |
tree | f9a79764c1dbd096adf2498a584398c7d30c7f0f /gnu/usr.bin/perl/x2p/str.h | |
parent | 1336b70f1e03591a3bdfda925256331cb9024b97 (diff) | |
parent | bd9f08584221a6bacbfeaebf19d4c3e21fa94a83 (diff) | |
download | FreeBSD-src-1da28de8c92ccedb74fb473dc45a575fea40a7bb.zip FreeBSD-src-1da28de8c92ccedb74fb473dc45a575fea40a7bb.tar.gz |
This commit was generated by cvs2svn to compensate for changes in r2635,
which included commits to RCS files with non-trunk default branches.
Diffstat (limited to 'gnu/usr.bin/perl/x2p/str.h')
-rw-r--r-- | gnu/usr.bin/perl/x2p/str.h | 46 |
1 files changed, 46 insertions, 0 deletions
diff --git a/gnu/usr.bin/perl/x2p/str.h b/gnu/usr.bin/perl/x2p/str.h new file mode 100644 index 0000000..765d9ea --- /dev/null +++ b/gnu/usr.bin/perl/x2p/str.h @@ -0,0 +1,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(); |