home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / Small Eiffel 0.4.8 / lib_std / link2.e < prev    next >
Encoding:
Text File  |  1997-04-13  |  674 b   |  42 lines  |  [TEXT/ttxt]
  1. -- Part of SmallEiffel -- Read DISCLAIMER file -- Copyright (C) 
  2. -- Dominique COLNET and Suzanne COLLIN -- colnet@loria.fr
  3. --
  4. class LINK2[E]
  5.    --
  6.    -- To implement LINK2_LIST[E].
  7.    --
  8.  
  9. inherit LINK[E] rename make as link_make end;
  10.    
  11. creation {LINK2_LIST}
  12.    make
  13.  
  14. feature {LINK2_LIST,LINK2}
  15.    
  16.    previous: like Current;
  17.  
  18. feature {LINK2_LIST}
  19.  
  20.    make(i: like item; p: like previous; n: like next) is
  21.       do
  22.      item := i;
  23.      previous := p;
  24.      next := n;
  25.       ensure
  26.      item = i;
  27.      previous = p;
  28.      next = n
  29.       end;
  30.    
  31. feature {LINK2_LIST,LINK2}
  32.  
  33.    set_previous(p: like previous) is
  34.       do
  35.      previous := p;
  36.       ensure
  37.      previous = p
  38.       end;
  39.  
  40. end -- LINK2[E]
  41.  
  42.