view oldXMenu/XCrAssoc.c @ 86240:8cc694a9ff7e

* progmodes/octave-mod.el (inferior-octave-send-list-and-digest): * play/yow.el (doctor-ret-or-read): * vc-hooks.el (vc-dired-resynch-file): * vc-hg.el (log-view-get-marked): * smerge-mode.el (ediff-cleanup-mess): * pcvs.el (vc-editable-p, vc-checkout): * pcomplete.el (comint-bol): * informat.el (texinfo-format-refill): * ido.el (tramp-tramp-file-p): * ibuffer.el (ibuffer-mark-on-buffer, ibuffer-format-qualifier) (ibuffer-generate-filter-groups) (ibuffer-format-filter-group-data): * add-log.el (c-beginning-of-defun, c-end-of-defun): Declare as functions. * textmodes/ispell.el (ispell-int-char): Make it a defalias instead of fset. (ispell-message): Use with-no-warnings for sc-cite-regexp call. * ido.el (ido-file-internal): Move with-no-warnings to include the ffap-string-at-point call. * pcomplete.el (pcomplete-executables): Move defsubst before first use. * vc-hg.el (vc-hg-revision-table): Fix last change.

/* Copyright    Massachusetts Institute of Technology    1985	*/
#include "copyright.h"


#include <config.h>
#include <X11/Xlib.h>
#include <errno.h>
#include "X10.h"

#ifndef NULL
#define NULL 0
#endif

extern int errno;

/*
 * XCreateAssocTable - Create an XAssocTable.  The size argument should be
 * a power of two for efficiency reasons.  Some size suggestions: use 32
 * buckets per 100 objects;  a reasonable maximum number of object per
 * buckets is 8.  If there is an error creating the XAssocTable, a NULL
 * pointer is returned.
 */
XAssocTable *XCreateAssocTable(size)
	register int size;		/* Desired size of the table. */
{
	register XAssocTable *table;	/* XAssocTable to be initialized. */
	register XAssoc *buckets;	/* Pointer to the first bucket in */
					/* the bucket array. */

	/* Malloc the XAssocTable. */
	if ((table = (XAssocTable *)malloc(sizeof(XAssocTable))) == NULL) {
		/* malloc call failed! */
		errno = ENOMEM;
		return(NULL);
	}

	/* calloc the buckets (actually just their headers). */
	buckets = (XAssoc *)calloc((unsigned)size, (unsigned)sizeof(XAssoc));
	if (buckets == NULL) {
		/* calloc call failed! */
		errno = ENOMEM;
		return(NULL);
	}

	/* Insert table data into the XAssocTable structure. */
	table->buckets = buckets;
	table->size = size;

	while (--size >= 0) {
		/* Initialize each bucket. */
		buckets->prev = buckets;
		buckets->next = buckets;
		buckets++;
	}

	return(table);
}

/* arch-tag: 5df3237d-ada0-4345-a3ab-282cafb397aa
   (do not change this comment) */