Mercurial > hg > xemacs-beta

comparison src/elhash.h @ 173:8eaf7971accc r20-3b13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b13
author cvs
date Mon, 13 Aug 2007 09:49:09 +0200
parents 376386a54a3c
children 3d6bfa290dbd
comparison
equal deleted inserted replaced
172:a38aed19690b 173:8eaf7971accc
49 HASHTABLE_EQUAL 49 HASHTABLE_EQUAL
50 }; 50 };
51 51
52 Lisp_Object Fmake_hashtable (Lisp_Object size, Lisp_Object test_fun); 52 Lisp_Object Fmake_hashtable (Lisp_Object size, Lisp_Object test_fun);
53 Lisp_Object Fcopy_hashtable (Lisp_Object old_table); 53 Lisp_Object Fcopy_hashtable (Lisp_Object old_table);
54 Lisp_Object Fgethash (Lisp_Object obj, Lisp_Object table, 54 Lisp_Object Fgethash (Lisp_Object obj, Lisp_Object table, Lisp_Object default_);
55 Lisp_Object defalt); 55 Lisp_Object Fputhash (Lisp_Object obj, Lisp_Object val, Lisp_Object table);
56 Lisp_Object Fputhash (Lisp_Object obj, Lisp_Object val,
57 Lisp_Object table);
58 Lisp_Object Fremhash (Lisp_Object obj, Lisp_Object table); 56 Lisp_Object Fremhash (Lisp_Object obj, Lisp_Object table);
59 Lisp_Object Fhashtable_fullness (Lisp_Object table); 57 Lisp_Object Fhashtable_fullness (Lisp_Object table);
60 58
61 Lisp_Object make_lisp_hashtable (int size, 59 Lisp_Object make_lisp_hashtable (int size,
62 enum hashtable_type type, 60 enum hashtable_type type,
63 enum hashtable_test_fun test_fun); 61 enum hashtable_test_fun test_fun);
64 62
65 void elisp_maphash (void (*fn) (CONST void *key, void *contents, 63 void elisp_maphash (void (*fn) (CONST void *key, void *contents,
66 void *extra_arg), 64 void *extra_arg),
67 Lisp_Object table, 65 Lisp_Object table,
68 void *extra_arg); 66 void *extra_arg);
69 67
70 void elisp_map_remhash (int (*fn) (CONST void *key, 68 void elisp_map_remhash (int (*fn) (CONST void *key,
71 CONST void *contents, 69 CONST void *contents,
72 void *extra_arg), 70 void *extra_arg),
73 Lisp_Object table, 71 Lisp_Object table,
74 void *extra_arg); 72 void *extra_arg);
75 73
76 int finish_marking_weak_hashtables (int (*obj_marked_p) (Lisp_Object), 74 int finish_marking_weak_hashtables (int (*obj_marked_p) (Lisp_Object),
77 void (*markobj) (Lisp_Object)); 75 void (*markobj) (Lisp_Object));
78 void prune_weak_hashtables (int (*obj_marked_p) (Lisp_Object)); 76 void prune_weak_hashtables (int (*obj_marked_p) (Lisp_Object));
79 77
80 char *elisp_hvector_malloc (unsigned int, Lisp_Object); 78 void *elisp_hvector_malloc (unsigned int, Lisp_Object);
81 void elisp_hvector_free (void *ptr, Lisp_Object table); 79 void elisp_hvector_free (void *ptr, Lisp_Object table);
82 80
83 #endif /* _XEMACS_ELHASH_H_ */ 81 #endif /* _XEMACS_ELHASH_H_ */