/* @(#)Copyright (c), 1987, 1996 StatSci, Inc.  All rights reserved. */

#ifndef _S_CDUMP_H_ /*(*/
#define _S_CDUMP_H_

#include <sccs.h>
SCCS_ID_C(0012,@(#)cdump.h 3.14 last edit 6/4/96 StatSci)

typedef struct h_vector {
	int Type;
	char *name;
	int mode;
	long length;
	struct h_vector *value;
	struct h_vector *x;
	long nalloc;
	long status; 
} Vector;

typedef struct h_vhash {
	long mash;
	struct s_x_h hash;
} Vhash;

typedef struct comp_dict {
	long key;
	fun_ptr routine;

#endif /* !_S_CDUMP_H_ )*/
} Comp_dict;

#ifdef S_ANSI_Syntax
#define CD_NAME(p) cd_##p
#else
#define CD_NAME(p) cd_/**/p
#endif

#define COMPFRAME	(Vector *)COMP_FRAME
#define COMPILED_DATABASE 1234567
#define MAKE_CDCTY(p) void \
	CD_NAME(p) (n_ptr, v_ptr) \
	long *n_ptr; Vhash **v_ptr; { *n_ptr = T_SIZE; *v_ptr = table;} \
	Comp_dict p = {COMPILED_DATABASE, (fun_ptr) CD_NAME(p)};