[unix-history] / usr / src / cmd / lisp / h / structs.h

/* sccs id %W% %G% */

/* 
 * this file contains auxiliary structure definitions which are used by
 * just a few files.
 */

/* transfer table structures. */

#define TRENTS 510

struct trent
{
    lispval (*fcn)();		/* function to call 			*/
    lispval name;	/* symbol which is the function to call */
};

struct trtab
{
    struct trtab *nxtt;			/* pointer to next transfer table */
    struct trent trentrs[TRENTS];	/* entries			  */
    int	sentinal;			/* must be zero			  */
};


struct heads {
	struct heads *link;
	char *pntr;
};


struct types
{
	char	*next_free;
	int	space_left,
		space,
		type,
		type_len;		/*  note type_len is in units of int */
	lispval *items,
		*pages,
		*type_name;
	struct heads
		*first;

};
Commit	Line	Data
ab364f65 BJ	1	/* sccs id %W% %G% */
	2
	3	/*
	4	* this file contains auxiliary structure definitions which are used by
	5	* just a few files.
	6	*/
	7
	8	/* transfer table structures. */
	9
	10	#define TRENTS 510
	11
	12	struct trent
	13	{
	14	lispval (fcn)(); / function to call */
	15	lispval name; /* symbol which is the function to call */
	16	};
	17
	18	struct trtab
	19	{
	20	struct trtab nxtt; / pointer to next transfer table */
	21	struct trent trentrs[TRENTS]; /* entries */
	22	int sentinal; /* must be zero */
	23	};
	24
	25
	26
	27	struct heads {
	28	struct heads *link;
	29	char *pntr;
	30	};
	31
	32
	33	struct types
	34	{
	35	char *next_free;
	36	int space_left,
	37	space,
	38	type,
	39	type_len; /* note type_len is in units of int */
	40	lispval *items,
	41	*pages,
	42	*type_name;
	43	struct heads
	44	*first;
	45
	46	};