blob: a3e1cef9c008096ddd9260dd6e02d6cb665338ca (
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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
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
|
