HASH.LST 1.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960
  1. Listing:
  2. 1 DEFINITION MODULE Hash;
  3. 2 (*
  4. 3 * REPERTOIRE
  5. 4 * Release 1.6
  6. 5 * By Charles Bradford and Cole Brecheen
  7. 6 * (c) Copyright 1985-1992 PMI
  8. 7 * Green Bay, Wisconsin
  9. 8 * All rights reserved
  10. 9 * (414) 468-6040
  11. 10 *
  12. 11 * $Header: D:/logfiles/defs/hash.dev 1.4 30 Dec 1990 18:01:10 coleb $
  13. 12 *
  14. 13 *)
  15. 14
  16. 15
  17. 16 FROM SYSTEM IMPORT BYTE;
  18. 17
  19. 18 TYPE HashTable;
  20. 19
  21. 20 PROCEDURE Define( VAR table : HashTable;
  22. 21 numberBins : CARDINAL; dataBytes : CARDINAL
  23. 22 );
  24. 23
  25. 24 PROCEDURE Dispose( VAR table : HashTable);
  26. 25
  27. 26 PROCEDURE Insert( table : HashTable; key : ARRAY
  28. 27 OF BYTE; data : ARRAY OF BYTE );
  29. ***** ^ not supported yet
  30. ***** ^ not supported yet
  31. 28
  32. 29 PROCEDURE Delete( table : HashTable);
  33. 30
  34. 31 PROCEDURE KeyFind( table : HashTable; key :
  35. 32 ARRAY OF BYTE ): BOOLEAN;
  36. ***** ^ not supported yet
  37. 33
  38. 34 PROCEDURE GetData( table : HashTable; VAR data :
  39. 35 ARRAY OF BYTE );
  40. ***** ^ not supported yet
  41. 36
  42. 37 PROCEDURE ChangeData( table : HashTable; data :
  43. 38 ARRAY OF BYTE );
  44. ***** ^ not supported yet
  45. 39
  46. 40 PROCEDURE Size( table : HashTable) : CARDINAL;
  47. 41
  48. 42 PROCEDURE Compute( key : ARRAY OF BYTE; VAR
  49. ***** ^ not supported yet
  50. 43 hash1, hash2, hash3 : CARDINAL );
  51. 44
  52. 45 PROCEDURE Init();
  53. 46
  54. 47 END Hash.
  55. ***** ^ not supported yet
  56. 7 errors