diff options
Diffstat (limited to 'gv.h')
| -rw-r--r-- | gv.h | 125 |
1 files changed, 125 insertions, 0 deletions
@@ -0,0 +1,125 @@ +/* $RCSfile: gv.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: gv.h,v $ + * Revision 4.1 92/08/07 18:26:42 lwall + * + * Revision 4.0.1.3 92/06/08 15:33:44 lwall + * patch20: fixed confusion between a *var's real name and its effective name + * patch20: ($<,$>) = ... didn't work on some architectures + * + * Revision 4.0.1.2 91/11/05 18:36:15 lwall + * patch11: length($x) was sometimes wrong for numeric $x + * + * Revision 4.0.1.1 91/06/07 11:56:35 lwall + * patch4: new copyright notice + * patch4: length($`), length($&), length($') now optimized to avoid string copy + * + * Revision 4.0 91/03/20 01:39:49 lwall + * 4.0 baseline. + * + */ + +struct gp { + SV * gp_sv; /* scalar value */ + U32 gp_refcnt; /* how many globs point to this? */ + struct io * gp_io; /* filehandle value */ + CV * gp_form; /* format value */ + AV * gp_av; /* array value */ + HV * gp_hv; /* associative array value */ + GV * gp_egv; /* effective gv, if *glob */ + CV * gp_cv; /* subroutine value */ + I32 gp_lastexpr; /* used by nothing_in_common() */ + line_t gp_line; /* line first declared at (for -w) */ + char gp_flags; +}; + +#if defined(CRIPPLED_CC) && (defined(iAPX286) || defined(M_I286) || defined(I80286)) +#define MICROPORT +#endif + +#define GvXPVGV(gv) ((XPVGV*)SvANY(gv)) + +#define GvMAGIC(gv) (GvGP(gv)->gp_magic) +#define GvSV(gv) (GvGP(gv)->gp_sv) +#define GvREFCNT(gv) (GvGP(gv)->gp_refcnt) +#define GvIO(gv) (GvGP(gv)->gp_io) +#define GvIOn(gv) (GvIO(gv) ? \ + GvIO(gv) : \ + (GvIO(gv) = newIO())) + +#define GvFORM(gv) (GvGP(gv)->gp_form) +#define GvAV(gv) (GvGP(gv)->gp_av) + +#ifdef MICROPORT /* Microport 2.4 hack */ +AV *GvAVn(); +#else +#define GvAVn(gv) (GvGP(gv)->gp_av ? \ + GvGP(gv)->gp_av : \ + GvGP(gv_AVadd(gv))->gp_av) +#endif +#define GvHV(gv) ((GvGP(gv))->gp_hv) + +#ifdef MICROPORT /* Microport 2.4 hack */ +HV *GvHVn(); +#else +#define GvHVn(gv) (GvGP(gv)->gp_hv ? \ + GvGP(gv)->gp_hv : \ + GvGP(gv_HVadd(gv))->gp_hv) +#endif /* Microport 2.4 hack */ + +#define GvCV(gv) (GvGP(gv)->gp_cv) + +#define GvLASTEXPR(gv) (GvGP(gv)->gp_lastexpr) + +#define GvLINE(gv) (GvGP(gv)->gp_line) + +#define GvFLAGS(gv) (GvGP(gv)->gp_flags) + +#define GvEGV(gv) (GvGP(gv)->gp_egv) + +#define GvGP(gv) (GvXPVGV(gv)->xgv_gp) +#define GvNAME(gv) (GvXPVGV(gv)->xgv_name) +#define GvNAMELEN(gv) (GvXPVGV(gv)->xgv_namelen) +#define GvENAME(gv) GvNAME(GvEGV(gv)) + +#define GvSTASH(gv) (GvXPVGV(gv)->xgv_stash) +#define GvESTASH(gv) GvSTASH(GvEGV(gv)) + +struct io { + FILE * ifp; /* ifp and ofp are normally the same */ + FILE * ofp; /* but sockets need separate streams */ +#ifdef HAS_READDIR + DIR * dirp; /* for opendir, readdir, etc */ +#endif + long lines; /* $. */ + long page; /* $% */ + long page_len; /* $= */ + long lines_left; /* $- */ + char * top_name; /* $^ */ + GV * top_gv; /* $^ */ + char * fmt_name; /* $~ */ + GV * fmt_gv; /* $~ */ + short subprocess; /* -| or |- */ + char type; + char flags; +}; + +#define IOf_ARGV 1 /* this fp iterates over ARGV */ +#define IOf_START 2 /* check for null ARGV and substitute '-' */ +#define IOf_FLUSH 4 /* this fp wants a flush after write op */ + +#define Nullgv Null(GV*) + +#define DM_UID 0x003 +#define DM_RUID 0x001 +#define DM_EUID 0x002 +#define DM_GID 0x030 +#define DM_RGID 0x010 +#define DM_EGID 0x020 +#define DM_DELAY 0x100 + |