home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 375.lha / IncrStorageManager_v1.0 / FreeHandle.mod < prev    next >
Encoding:
Modula Implementation  |  1990-05-02  |  904 b   |  50 lines
  1. IMPLEMENTATION MODULE FreeHandle;
  2.  
  3. (* Product: Incremental Storage Manager
  4.  
  5.    Version: 1.0
  6.  
  7.    Author:
  8.         Daniel B. Hankins
  9.         143 Montgomery Street
  10.         Poughkeepsie, NY 12601
  11.         dan-hankins@cup.portal.com
  12.  
  13.    Creation Date: 1989
  14.  
  15.    Release  Date: November 21, 1989
  16.  
  17.    Notice of Intellectual Property:
  18.         This material is *NOT COPYRIGHTED*.  By this notice, I hereby place
  19.    this program and all its parts in the public domain, under the definitions
  20.    and restrictions of United States law.
  21.  
  22.    History of Revisions:
  23.         None yet.
  24. *)
  25.  
  26. TYPE
  27.   Object           = POINTER TO FreeHandleObject;
  28.   FreeHandleObject = Object;
  29.  
  30.  
  31. PROCEDURE Next(FHObject: Object): Object;
  32. BEGIN
  33.   RETURN FHObject^;
  34. END Next;
  35.  
  36.  
  37. PROCEDURE NilObject(): Object;
  38. BEGIN
  39.   RETURN NIL;
  40. END NilObject;
  41.  
  42.  
  43. PROCEDURE Nil(FHObject: Object): BOOLEAN;
  44. BEGIN
  45.   RETURN (FHObject = NIL);
  46. END Nil;
  47.  
  48.  
  49. END FreeHandle.
  50.