mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 20:00:19 +02:00
Code Activity

* hashtab.c, hashtab.h (scm_internal_hash_fold): New function.

Browse source 
(scm_hash_fold): New procedure.  Used to process all entries in a
hash table (in no particular order).
This commit is contained in:
Mikael Djurfeldt 1999-03-14 16:48:50 +00:00
parent c8eed87557
commit c7df61cd7f
2 changed files with 44 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/hashtab.h
View file

@ -58,6 +58,7 @@ extern SCM scm_hash_fn_create_handle_x SCM_P ((SCM table, SCM obj, SCM init, uns
extern SCM scm_hash_fn_ref SCM_P ((SCM table, SCM obj, SCM dflt, unsigned int (*hash_fn) (), SCM (*assoc_fn) (), void * closure));
extern SCM scm_hash_fn_set_x SCM_P ((SCM table, SCM obj, SCM val, unsigned int (*hash_fn) (), SCM (*assoc_fn) (), void * closure));
extern SCM scm_hash_fn_remove_x SCM_P ((SCM table, SCM obj, unsigned int (*hash_fn) (), SCM (*assoc_fn) (), SCM (*delete_fn) (), void * closure));
extern SCM scm_internal_hash_fold SCM_P ((SCM table, SCM (*fn) (), void *closure, SCM init));
extern SCM scm_hashq_get_handle SCM_P ((SCM table, SCM obj));
extern SCM scm_hashq_create_handle_x SCM_P ((SCM table, SCM obj, SCM init));
@ -79,6 +80,7 @@ extern SCM scm_hashx_create_handle_x SCM_P ((SCM hash, SCM assoc, SCM table, SCM
extern SCM scm_hashx_ref SCM_P ((SCM hash, SCM assoc, SCM table, SCM obj, SCM dflt));
extern SCM scm_hashx_set_x SCM_P ((SCM hash, SCM assoc, SCM table, SCM obj, SCM val));
extern SCM scm_hashx_remove_x SCM_P ((SCM hash, SCM assoc, SCM del, SCM table, SCM obj));
extern SCM scm_hash_fold SCM_P ((SCM hash, SCM proc, SCM init));
extern void scm_init_hashtab SCM_P ((void));
#endif /* HASHTABH */