Initial commit

1 files changed, 198 insertions, 0 deletions

diff --git a/pkg/ecl/operand.h b/pkg/ecl/operand.h
new file mode 100644
index 00000000..fca44856
--- /dev/null
+++ b/pkg/ecl/operand.h
@@ -0,0 +1,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	*/