home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 375.lha / IncrStorageManager_v1.0 / DynItem.def < prev    next >
Encoding:
Modula Definition  |  1990-05-02  |  1.4 KB  |  69 lines
  1. DEFINITION MODULE DynItem;
  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. FROM SYSTEM IMPORT ADDRESS;
  27.  
  28. IMPORT DynamicItem;
  29. IMPORT DynItemList;
  30.  
  31. TYPE
  32.   Object;
  33.  
  34. PROCEDURE New(Size: LONGCARD; TermIt: DynamicItem.TermProc): Object;
  35.  
  36. PROCEDURE Init(DObject: Object; InitIt: DynamicItem.InitProc);
  37.  
  38. PROCEDURE SetHandle(DObject: Object; Handle: DynamicItem.Object);
  39.  
  40. PROCEDURE Dispose(DObject: Object): BOOLEAN;
  41.  
  42. PROCEDURE Kill(DObject: Object);
  43.  
  44. PROCEDURE Ref(DObject: Object);
  45.  
  46. PROCEDURE Access(DObject: Object): ADDRESS;
  47.  
  48. PROCEDURE GetList(DObject: Object): DynItemList.Object;
  49.  
  50. PROCEDURE Percolate(DObject: Object);
  51.  
  52. PROCEDURE LinkAfter(DObjectNew, DObjectOld: Object);
  53.  
  54. PROCEDURE Unlink(DObject: Object);
  55.  
  56. PROCEDURE GetPrev(DObject: Object): Object;
  57.  
  58. PROCEDURE GetNext(DObject: Object): Object;
  59.  
  60. PROCEDURE MoveDown(DObject: Object): Object;
  61.  
  62. PROCEDURE NextAddr(DObject: Object): ADDRESS;
  63.  
  64. PROCEDURE NilObject(): Object;
  65.  
  66. PROCEDURE Nil(DObject: Object): BOOLEAN;
  67.  
  68. END DynItem.
  69.