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
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
|
/*
* OPERAND.H -- Definition of an operand, defined operation codes and function
* type declarations.
*/
/* ----------
* union of all possible fundamentally allowed data types in an operand
*/
union value {
int v_i; /* integer, also doubles as boolean */
double v_r; /* floating real; all assumed double precision*/
char *v_s; /* char string */
struct arr_desc *v_a; /* Array of int, double or string. */
};
struct operand {
short o_type; /* need 16 bits; see type codes below */
union value o_val;
};
union arrhead {
int *a_i; /* Pointer to ints (or bools). */
double *a_r; /* Pointer to reals. */
char **a_s; /* Pointer to strings. */
};
struct arr_desc {
union arrhead a_ptr; /* Pointer to elements in array.*/
int a_dim; /* Dimensionality of array. */
short a_len; /* Length of first dimension. */
short a_off; /* Offset of first dimension. */
};
/* Note that in an multi-dimensional array a_len and a_off will
* be repeated for each dimension.
*/
/* this should be the size of operand IN INTS so that the instruction
* pointer instptr and operand stack index topos can be properly manipulated.
*/
#define OPSIZ btoi (sizeof (struct operand))
/* ----------
* return value of operand *o.
* not useful for strings as cannot include v_s in this.
* note that both OT_INT and OT_BOOL use v_i.
* we assume that o_type only includes OT_BASIC bits.
*/
#define VALU(o) (((o)->o_type == OT_REAL) ? (o)->o_val.v_r : (o)->o_val.v_i)
/* ----------
* o_type flag defn's; also used in p_type, see param.h.
* the value of o_type&OT_BASIC is the basic type of the operand. there is
* no such thing as an undefined type, only an undefined value.
* an operand's o_value is unused if OT_INDEF or UNDEF is set.
*/
#define OT_BOOL 0 /* actually stored as an int, 0 or 1 */
#define OT_INT 1 /* ints store least 16 bits */
#define OT_REAL 2 /* no float/double distinction */
#define OT_STRING 3 /* any kind of in-core char storage */
#define OT_BASIC 03 /* mask to get only the type bits */
#define OT_INDEF 004 /* value is undefined (not an err) */
#define OT_UNDEF 010 /* value is just not known (an err) */
/* test and set functions for indefinite and undefined operands.
* note that the basic type is not disturbed during setting.
*/
#define opindef(op) (((op)->o_type & OT_INDEF) != 0)
#define opundef(op) (((op)->o_type & OT_UNDEF) != 0)
#define setopindef(op) ((op)->o_type |= OT_INDEF)
#define setopundef(op) ((op)->o_type |= OT_UNDEF)
/* ----------
* binary operations, handled by binop().
* if these are each in numeric order, the switches in binop(), unop(), etc
* will be compiled as jump tables.
*/
#define OP_ADD 1
#define OP_SUB 2
#define OP_MUL 3
#define OP_DIV 4
#define OP_POW 5 /* power, as in a**x */
#define OP_MAX 6
#define OP_MIN 7
#define OP_MOD 8
#define OP_ATAN2 9 /* arctangent with two args */
#define OP_DATAN2 10 /* arctangent with result in degrees */
#define OP_FPEQUAL 11 /* floating point comparison */
#define OP_HYPOT 12 /* euclidean distance */
#define OP_BAND 13 /* bitwise AND operator */
#define OP_BOR 14 /* bitwise OR operator */
#define OP_BXOR 15 /* bitwise XOR operator */
#define OP_CONCAT 16 /* string concatenatation */
#define OP_RADIX 17 /* string = radix (decimal, newradix) */
#define OP_STRIDX 18 /* first occurrence of a char in str */
#define OP_STRLDX 19 /* last occurrence of a char in str */
#define OP_STRSTR 20 /* first occurrence of str1 in str2 */
#define OP_STRLSTR 21 /* last occurrence of str1 in str2 */
#define OP_STRDIC 22 /* index of string in a dictionary */
/* binary logical expressions, handled by binexp();
* uses o_val.v_i as boolean result
*/
#define OP_LT 1
#define OP_GT 2
#define OP_LE 3
#define OP_GE 4
#define OP_EQ 5
#define OP_NE 6
#define OP_OR 7
#define OP_AND 8
/* unary expressions, handled by unexp(); interprets o_val as boolean */
#define OP_TRUE 1 /* sets o_val to 1 */
#define OP_FALSE 2 /* " " 0 */
#define OP_NOT 3 /* sets non-0 o_val to 0, 0 to 1 */
/* unary operations, handled by unop() */
#define OP_ABS 1 /* absolute value */
#define OP_ACCESS 2 /* does named file exist */
#define OP_ACOS 3 /* inverse cosine */
#define OP_ASIN 4 /* inverse sine */
#define OP_BNOT 5 /* bitwise NOT operator */
#define OP_COS 6 /* cosine */
#define OP_DACOS 7 /* inverse cosine (output in degrees) */
#define OP_DASIN 8 /* inverse sine (output in degrees) */
#define OP_DCOS 9 /* cosine (arg in degrees) */
#define OP_DSIN 10 /* sine (arg in degrees) */
#define OP_DTAN 11 /* tangent (arg in degrees) */
#define OP_DEFPAC 12 /* is named package loaded */
#define OP_DEFPAR 13 /* is named parameter defined */
#define OP_DEFTASK 14 /* is named task defined */
#define OP_DEFVAR 15 /* does environment variable exist */
#define OP_DEG 16 /* convert to degrees */
#define OP_ENVGET 17 /* get environment variable defn */
#define OP_EXP 18 /* natural antilog, as in e ** x */
#define OP_FRAC 19 /* fractional part of a real number */
#define OP_IMACCESS 21 /* does named image exist */
#define OP_INT 22 /* coerce to int */
#define OP_ISINDEF 23 /* is value INDEF */
#define OP_LOG 24 /* natural logarithm */
#define OP_LOG10 25 /* decimal logarithm */
#define OP_MINUS 26 /* unary negation */
#define OP_MKTEMP 27 /* make unique file name */
#define OP_NINT 28 /* return nearest integer (round) */
#define OP_OSFN 29 /* convert vfn to OS filename */
#define OP_RAD 30 /* convert to radians */
#define OP_REAL 31 /* coerce to real */
#define OP_SIGN 32 /* sign */
#define OP_SIN 33 /* sine */
#define OP_SQRT 34 /* square root */
#define OP_STR 35 /* coercion to type string */
#define OP_STRLEN 36 /* length of a string constant */
#define OP_STRLWR 37 /* convert string to lower case */
#define OP_STRUPR 38 /* convert string to upper case */
#define OP_TAN 39 /* tangent */
/* Multiple operators, handled by intrfun() directly */
#define OP_ERRPOP 50 /* pop the error handler */
#define OP_ERRPEEK 51 /* peek at error flag */
#define OP_ERRMSG 52 /* return the error message */
#define OP_ERRCODE 53 /* return the error code */
#define OP_ERRTASK 54 /* return task which posted error */
#define OP_NSCAN 55 /* number of items conv. in last SCAN */
#define OP_SUBSTR 56 /* extract substring */
#define OP_TRIM 57 /* trim both sides of a string */
#define OP_TRIML 58 /* trim left side of a string */
#define OP_TRIMR 59 /* trim right side of a string */
/* These area used by intrinsic() to categorize the various opcodes.
* The lower OP_BITS encode the specific function, while bits above that
* encode the category. Thus, none of the OP_XXX codes above may use more
* than OP_BITS, ie, be larger than OP_MASK.
*/
#define OP_BITS 8
#define OP_MASK 255 /* could be 2**OP_BITS-1 if C had ** */
#define UNOP (1<<OP_BITS)
#define BINOP (2<<OP_BITS)
#define MULTOP (3<<OP_BITS)
#define INTWIDTH 15 /* approx max chars in a printed integer*/
#define REALWIDTH 25 /* approx max chars in a printed real */
extern char *truestr, *falsestr;
struct operand popop(), pushop();
struct operand makeop();
struct operand readlist(); /* read and return operand from list */
struct operand sexa(); /* convert n:n:n string to sexagesimal */
|
