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
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
|
/* $RCSfile: stab.h,v $$Revision: 4.0.1.3 $$Date: 92/06/08 15:33:44 $
*
* 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: stab.h,v $
* 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 stabptrs {
char stbp_magic[4];
STR *stbp_val; /* scalar value */
struct stio *stbp_io; /* filehandle value */
FCMD *stbp_form; /* format value */
ARRAY *stbp_array; /* array value */
HASH *stbp_hash; /* associative array value */
STAB *stbp_stab; /* effective stab, if *glob */
SUBR *stbp_sub; /* subroutine value */
int stbp_lastexpr; /* used by nothing_in_common() */
line_t stbp_line; /* line first declared at (for -w) */
char stbp_flags;
};
#if defined(CRIPPLED_CC) && (defined(iAPX286) || defined(M_I286) || defined(I80286))
#define MICROPORT
#endif
#define stab_magic(stab) (((STBP*)(stab->str_ptr))->stbp_magic)
#define stab_val(stab) (((STBP*)(stab->str_ptr))->stbp_val)
#define stab_io(stab) (((STBP*)(stab->str_ptr))->stbp_io)
#define stab_form(stab) (((STBP*)(stab->str_ptr))->stbp_form)
#define stab_xarray(stab) (((STBP*)(stab->str_ptr))->stbp_array)
#ifdef MICROPORT /* Microport 2.4 hack */
ARRAY *stab_array();
#else
#define stab_array(stab) (((STBP*)(stab->str_ptr))->stbp_array ? \
((STBP*)(stab->str_ptr))->stbp_array : \
((STBP*)(aadd(stab)->str_ptr))->stbp_array)
#endif
#define stab_xhash(stab) (((STBP*)(stab->str_ptr))->stbp_hash)
#ifdef MICROPORT /* Microport 2.4 hack */
HASH *stab_hash();
#else
#define stab_hash(stab) (((STBP*)(stab->str_ptr))->stbp_hash ? \
((STBP*)(stab->str_ptr))->stbp_hash : \
((STBP*)(hadd(stab)->str_ptr))->stbp_hash)
#endif /* Microport 2.4 hack */
#define stab_sub(stab) (((STBP*)(stab->str_ptr))->stbp_sub)
#define stab_lastexpr(stab) (((STBP*)(stab->str_ptr))->stbp_lastexpr)
#define stab_line(stab) (((STBP*)(stab->str_ptr))->stbp_line)
#define stab_flags(stab) (((STBP*)(stab->str_ptr))->stbp_flags)
#define stab_stab(stab) (stab->str_magic->str_u.str_stab)
#define stab_estab(stab) (((STBP*)(stab->str_ptr))->stbp_stab)
#define stab_name(stab) (stab->str_magic->str_ptr)
#define stab_ename(stab) stab_name(stab_estab(stab))
#define stab_stash(stab) (stab->str_magic->str_u.str_stash)
#define stab_estash(stab) stab_stash(stab_estab(stab))
#define SF_VMAGIC 1 /* call routine to dereference STR val */
#define SF_MULTI 2 /* seen more than once */
struct stio {
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; /* $^ */
STAB *top_stab; /* $^ */
char *fmt_name; /* $~ */
STAB *fmt_stab; /* $~ */
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 */
struct sub {
CMD *cmd;
int (*usersub)();
int userindex;
STAB *filestab;
long depth; /* >= 2 indicates recursive call */
ARRAY *tosave;
};
#define Nullstab Null(STAB*)
STRLEN stab_len();
#define STAB_STR(s) (tmpstab = (s), stab_flags(tmpstab) & SF_VMAGIC ? stab_str(stab_val(tmpstab)->str_magic) : stab_val(tmpstab))
#define STAB_LEN(s) (tmpstab = (s), stab_flags(tmpstab) & SF_VMAGIC ? stab_len(stab_val(tmpstab)->str_magic) : str_len(stab_val(tmpstab)))
#define STAB_GET(s) (tmpstab = (s), str_get(stab_flags(tmpstab) & SF_VMAGIC ? stab_str(tmpstab->str_magic) : stab_val(tmpstab)))
#define STAB_GNUM(s) (tmpstab = (s), str_gnum(stab_flags(tmpstab) & SF_VMAGIC ? stab_str(tmpstab->str_magic) : stab_val(tmpstab)))
EXT STAB *tmpstab;
EXT STAB *stab_index[128];
EXT unsigned short statusvalue;
EXT int delaymagic INIT(0);
#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
STAB *aadd();
STAB *hadd();
STAB *fstab();
void stabset();
void stab_fullname();
void stab_efullname();
void stab_check();
|
