perl5.000 patch.0e: fix various non-broken things in the x2p/ directory

[p5sagit/p5-mst-13.2.git] / x2p / hash.h

diff --git a/x2p/hash.h b/x2p/hash.h
index 14d2069..f61a29f 100644 (file)
--- a/x2p/hash.h
+++ b/x2p/hash.h
@@ -1,14 +1,11 @@
-/* $Header: hash.h,v 4.0 91/03/20 01:57:53 lwall Locked $
+/* $RCSfile: hash.h,v $$Revision: 4.1 $$Date: 92/08/07 18:29:21 $
  *
- *    Copyright (c) 1989, Larry Wall
+ *    Copyright (c) 1991, Larry Wall
  *
- *    You may distribute under the terms of the GNU General Public License
- *    as specified in the README file that comes with the perl 3.0 kit.
+ *    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  91/03/20  01:57:53  lwall
- * 4.0 baseline.
- * 
  */
 
 #define FILLPCT 60             /* don't make greater than 99 */
@@ -44,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 ));