X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/352d5a3ab0aab9889c59e847643d265e062cec0b..bc13eec94a8107f0843a053db152fc38eefaa316:/x2p/hash.h diff --git a/x2p/hash.h b/x2p/hash.h index bd65b8d..377bfd2 100644 --- a/x2p/hash.h +++ b/x2p/hash.h @@ -1,17 +1,11 @@ -/* $RCSfile: hash.h,v $$Revision: 4.0.1.1 $$Date: 91/06/07 12:16:04 $ +/* $RCSfile: hash.h,v $$Revision: 4.1 $$Date: 92/08/07 18:29:21 $ * - * Copyright (c) 1991, Larry Wall + * Copyright (c) 1991-1997, Larry Wall * * You may distribute under the terms of either the GNU General Public * License or the Artistic License, as specified in the README file. * * $Log: hash.h,v $ - * Revision 4.0.1.1 91/06/07 12:16:04 lwall - * patch4: new copyright notice - * - * Revision 4.0 91/03/20 01:57:53 lwall - * 4.0 baseline. - * */ #define FILLPCT 60 /* don't make greater than 99 */ @@ -47,11 +41,12 @@ struct htbl { HENT *tbl_eiter; /* current entry of iterator */ }; -STR *hfetch(); -bool hstore(); -bool hdelete(); -HASH *hnew(); -int hiterinit(); -HENT *hiternext(); -char *hiterkey(); -STR *hiterval(); +bool hdelete (HASH *tb, char *key); +STR * hfetch ( HASH *tb, char *key ); +int hiterinit ( HASH *tb ); +char * hiterkey ( HENT *entry ); +HENT * hiternext ( HASH *tb ); +STR * hiterval ( HENT *entry ); +HASH * hnew ( void ); +void hsplit ( HASH *tb ); +bool hstore ( HASH *tb, char *key, STR *val );