1 files changed, 107 insertions, 0 deletions
diff --git a/pkg/utilities/nttools/stxtools/vex.h b/pkg/utilities/nttools/stxtools/vex.h
new file mode 100644
index 00000000..200d717c
--- /dev/null
+++ b/pkg/utilities/nttools/stxtools/vex.h
@@ -0,0 +1,107 @@
+# VEX.H -- Structures and constants used by vex
+
+# Strings
+
+define	FN1STR  "abs acos asin atan cos cosh cube double exp int log log10 \
+nint real sin sinh sqr sqrt tan tanh"
+
+define	FN2STR  "atan2 dim max min mod sign"
+
+# Characters
+
+define	BLANK		' '
+define	CMTCHAR		'#'
+define	DOLLAR		'$'
+define	DOT		'.'
+
+# Function codes
+
+define	FN1_ABS 	1
+define	FN1_ACOS 	2
+define	FN1_ASIN 	3
+define	FN1_ATAN 	4
+define	FN1_COS 	5
+define	FN1_COSH	6
+define	FN1_CUBE	7
+define	FN1_DOUBLE	8
+define	FN1_EXP 	9
+define	FN1_INT 	10
+define	FN1_LOG 	11
+define	FN1_LOG10	12
+define	FN1_NINT	13
+define	FN1_REAL	14
+define	FN1_SIN 	15
+define	FN1_SINH	16
+define	FN1_SQR 	17
+define	FN1_SQRT	18
+define	FN1_TAN 	19
+define	FN1_TANH	20
+
+define	FN2_ATAN2	1
+define	FN2_DIM 	2
+define	FN2_MAX 	3
+define	FN2_MIN 	4
+define	FN2_MOD 	5
+define	FN2_SIGN	6
+
+# These constants are taken from the output of xyacc run on vexcompile.y
+
+define	Y_WRONG		257
+define	Y_LPAR		258
+define	Y_RPAR		259
+define	Y_COMMA		260
+define	Y_VAR		261
+define	Y_INT		262
+define	Y_REAL		263
+define	Y_DOUBLE	264
+define	Y_FN1		265
+define	Y_FN2		266
+define	Y_IF		267
+define	Y_THEN		268
+define	Y_ELSE		269
+define	Y_DONE		270
+define	Y_OR		271
+define	Y_AND		272
+define	Y_NOT		273
+define	Y_EQ		274
+define	Y_NE		275
+define	Y_LT		276
+define	Y_GT		277
+define	Y_LE		278
+define	Y_GE		279
+define	Y_ADD		280
+define	Y_SUB		281
+define	Y_MUL		282
+define	Y_DIV		283
+define	Y_NEG		284
+define	Y_POW		285
+
+# Array lengths
+
+define	MAX_TOKEN	31
+define	MAX_STACK	64
+
+# Pseudocode structure
+
+define	SZ_VEXSTRUCT	2
+
+define	VEX_CODE	Memi[$1]	# pointer to code array
+define	VEX_STACK	Memi[$1+1]	# pointer to stack structure
+
+# Stack structure
+
+define	SZ_STKSTRUCT	6
+
+define	STK_TOP		Memi[$1]	# top of stack
+define	STK_HIGH	Memi[$1+1]	# high water mark in stack
+define	STK_LENVAL	Memi[$1+2]	# length of each value array
+define	STK_NULLARY	Memi[$1+3]	# pointer to array of null values
+define	STK_VALARY	Memi[$1+4]	# pointer to value stack
+define	STK_TYPARY	Memi[$1+5]	# pointer to type stack
+
+define	STK_NULL	Memb[STK_NULLARY($1)+$2]
+define	STK_VALUE	Memi[STK_VALARY($1)+$2]
+define	STK_TYPE	Memi[STK_TYPARY($1)+$2]
+
+define	TOP		-1		# Symbolic constant for top of stack
+