diff options
| author | Larry Wall <lwall@netlabs.com> | 1993-10-07 23:00:00 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@netlabs.com> | 1993-10-07 23:00:00 +0000 |
| commit | 79072805bf63abe5b5978b5928ab00d360ea3e7f (patch) | |
| tree | 96688fcd69f9c8d2110e93c350b4d0025eaf240d /av.h | |
| parent | e334a159a5616cab575044bafaf68f75b7bb3a16 (diff) | |
| download | perl-79072805bf63abe5b5978b5928ab00d360ea3e7f.tar.gz | |
perl 5.0 alpha 2perl-5a2
[editor's note: from history.perl.org. The sparc executables
originally included in the distribution are not in this commit.]
Diffstat (limited to 'av.h')
| -rw-r--r-- | av.h | 56 |
1 files changed, 56 insertions, 0 deletions
@@ -0,0 +1,56 @@ +/* $RCSfile: array.h,v $$Revision: 4.1 $$Date: 92/08/07 17:18:24 $ + * + * 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: array.h,v $ + * Revision 4.1 92/08/07 17:18:24 lwall + * Stage 6 Snapshot + * + * Revision 4.0.1.2 92/06/08 11:45:57 lwall + * patch20: removed implicit int declarations on funcions + * + * Revision 4.0.1.1 91/06/07 10:19:20 lwall + * patch4: new copyright notice + * + * Revision 4.0 91/03/20 01:03:44 lwall + * 4.0 baseline. + * + */ + +struct xpvav { + char * xpv_pv; /* pointer to malloced string */ + STRLEN xpv_cur; /* length of xp_pv as a C string */ + STRLEN xpv_len; /* allocated size */ + STRLEN xof_off; /* ptr is incremented by offset */ + double xnv_nv; /* numeric value, if any */ + MAGIC* xmg_magic; /* magic for scalar array */ + HV* xmg_stash; /* class package */ + + MAGIC* xav_magic; /* magic for elements */ + + SV** xav_array; + SV** xav_alloc; + SV* xav_arylen; + I32 xav_max; + I32 xav_fill; + U8 xav_flags; +}; + +#define AVf_REAL 1 /* free old entries */ + +#define Nullav Null(AV*) + +#define AvMAGIC(av) ((XPVAV*) SvANY(av))->xav_magic +#define AvARRAY(av) ((XPVAV*) SvANY(av))->xav_array +#define AvALLOC(av) ((XPVAV*) SvANY(av))->xav_alloc +#define AvMAX(av) ((XPVAV*) SvANY(av))->xav_max +#define AvFILL(av) ((XPVAV*) SvANY(av))->xav_fill +#define AvARYLEN(av) ((XPVAV*) SvANY(av))->xav_arylen +#define AvFLAGS(av) ((XPVAV*) SvANY(av))->xav_flags + +#define AvREAL(av) (((XPVAV*) SvANY(av))->xav_flags & AVf_REAL) +#define AvREAL_on(av) (((XPVAV*) SvANY(av))->xav_flags |= AVf_REAL) +#define AvREAL_off(av) (((XPVAV*) SvANY(av))->xav_flags &= ~AVf_REAL) |