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 /cv.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 'cv.h')
| -rw-r--r-- | cv.h | 40 |
1 files changed, 40 insertions, 0 deletions
@@ -0,0 +1,40 @@ +/* $RCSfile: cv.h,v $$Revision: 4.1 $$Date: 92/08/07 18:26:42 $ + * + * 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: cv.h,v $ + */ + +struct xpvcv { + 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 */ + + HV * xcv_stash; + OP * xcv_start; + OP * xcv_root; + I32 (*xcv_usersub)(); + I32 xcv_userindex; + GV * xcv_filegv; + long xcv_depth; /* >= 2 indicates recursive call */ + AV * xcv_padlist; + bool xcv_deleted; +}; +#define Nullcv Null(CV*) +#define CvSTASH(sv) ((XPVCV*)SvANY(sv))->xcv_stash +#define CvSTART(sv) ((XPVCV*)SvANY(sv))->xcv_start +#define CvROOT(sv) ((XPVCV*)SvANY(sv))->xcv_root +#define CvUSERSUB(sv) ((XPVCV*)SvANY(sv))->xcv_usersub +#define CvUSERINDEX(sv) ((XPVCV*)SvANY(sv))->xcv_userindex +#define CvFILEGV(sv) ((XPVCV*)SvANY(sv))->xcv_filegv +#define CvDEPTH(sv) ((XPVCV*)SvANY(sv))->xcv_depth +#define CvPADLIST(sv) ((XPVCV*)SvANY(sv))->xcv_padlist +#define CvDELETED(sv) ((XPVCV*)SvANY(sv))->xcv_deleted + |