Return to XCrAssoc.c CVS log

Up to [Apple XNU] / GNUtools / emacs / oldXMenu

Annotation of GNUtools/emacs/oldXMenu/XCrAssoc.c, revision 1.1

1.1     ! root        1: /* $XConsortium: XCrAssoc.c,v 10.17 91/01/06 12:04:57 rws Exp $ */
        !             2: /* Copyright    Massachusetts Institute of Technology    1985  */
        !             3: 
        !             4: /*
        !             5: Permission to use, copy, modify, distribute, and sell this software and its
        !             6: documentation for any purpose is hereby granted without fee, provided that
        !             7: the above copyright notice appear in all copies and that both that
        !             8: copyright notice and this permission notice appear in supporting
        !             9: documentation, and that the name of M.I.T. not be used in advertising or
        !            10: publicity pertaining to distribution of the software without specific,
        !            11: written prior permission.  M.I.T. makes no representations about the
        !            12: suitability of this software for any purpose.  It is provided "as is"
        !            13: without express or implied warranty.
        !            14: */
        !            15: 
        !            16: #include "X11/Xlib.h"
        !            17: #include "X10.h"
        !            18: #include "errno.h"
        !            19: 
        !            20: #ifndef NULL
        !            21: #define NULL 0
        !            22: #endif
        !            23: 
        !            24: extern int errno;
        !            25: 
        !            26: /*
        !            27:  * XCreateAssocTable - Create an XAssocTable.  The size argument should be
        !            28:  * a power of two for efficiency reasons.  Some size suggestions: use 32
        !            29:  * buckets per 100 objects;  a reasonable maximum number of object per
        !            30:  * buckets is 8.  If there is an error creating the XAssocTable, a NULL
        !            31:  * pointer is returned.
        !            32:  */
        !            33: XAssocTable *XCreateAssocTable(size)
        !            34:        register int size;              /* Desired size of the table. */
        !            35: {
        !            36:        register XAssocTable *table;    /* XAssocTable to be initialized. */
        !            37:        register XAssoc *buckets;       /* Pointer to the first bucket in */
        !            38:                                        /* the bucket array. */
        !            39:        
        !            40:        /* Malloc the XAssocTable. */
        !            41:        if ((table = (XAssocTable *)malloc(sizeof(XAssocTable))) == NULL) {
        !            42:                /* malloc call failed! */
        !            43:                errno = ENOMEM;
        !            44:                return(NULL);
        !            45:        }
        !            46:        
        !            47:        /* malloc the buckets (actually just their headers). */
        !            48:        buckets = (XAssoc *)calloc((unsigned)size, (unsigned)sizeof(XAssoc));
        !            49:        if (buckets == NULL) {
        !            50:                /* calloc call failed! */
        !            51:                errno = ENOMEM;
        !            52:                return(NULL);
        !            53:        }
        !            54: 
        !            55:        /* Insert table data into the XAssocTable structure. */
        !            56:        table->buckets = buckets;
        !            57:        table->size = size;
        !            58: 
        !            59:        while (--size >= 0) {
        !            60:                /* Initialize each bucket. */
        !            61:                buckets->prev = buckets;
        !            62:                buckets->next = buckets;
        !            63:                buckets++;
        !            64:        }
        !            65: 
        !            66:        return(table);
        !            67: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.