annotate oldXMenu/XCrAssoc.c @ 62789:74e26c83386f

(eshell-eval-command): If the return value of `eshell-resume-eval' is wrapped in a list, it indicates that the command was run asynchronously. In that case, unwrap the value before checking the delimiter value.

申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申     1 /* Copyright    Massachusetts Institute of Technology    1985	*/
申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申     2 
申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申     3 /*
申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申     4 Permission to use, copy, modify, distribute, and sell this software and its
申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申     5 documentation for any purpose is hereby granted without fee, provided that
申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申     6 the above copyright notice appear in all copies and that both that
申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申     7 copyright notice and this permission notice appear in supporting
申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申     8 documentation, and that the name of M.I.T. not be used in advertising or
申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申     9 publicity pertaining to distribution of the software without specific,
申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申    10 written prior permission.  M.I.T. makes no representations about the
申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申    11 suitability of this software for any purpose.  It is provided "as is"
申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申    12 without express or implied warranty.
申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申    13 */
申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申    14 
申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申    15 #include <config.h>
申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申    16 #include <X11/Xlib.h>
申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申    17 #include <errno.h>
申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申    18 #include "X10.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 	/* calloc 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 }
申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申    68 
申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申    69 /* arch-tag: 5df3237d-ada0-4345-a3ab-282cafb397aa
申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申    70    (do not change this comment) */