source: trunk/essentials/dev-lang/perl/NetWare/nwhashcls.h@ 3187

Last change on this file since 3187 was 3181, checked in by bird, 19 years ago

perl 5.8.8

File size: 1.3 KB
Line 
1
2/*
3 * Copyright © 2001 Novell, Inc. All Rights Reserved.
4 *
5 * You may distribute under the terms of either the GNU General Public
6 * License or the Artistic License, as specified in the README file.
7 *
8 */
9
10/*
11 * FILENAME : nwhashcls.h
12 * DESCRIPTION : Equivalent of Hash class
13 *
14 * Author : Srivathsa M
15 * Date Created : July 26 2001
16 */
17#include <stdio.h>
18#include <conio.h>
19#include <process.h>
20
21#define BUCKET_SIZE 37
22
23struct HASHNODE
24{
25 void *data;
26 struct HASHNODE *next;
27};
28
29typedef void (*HASHFORALLFUN)(void *, void *);
30
31class NWPerlHashList
32{
33private:
34 HASHNODE* MemListHash[BUCKET_SIZE];
35 void removeAll() const;