home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / progtool / eiffel / vici / examples / list.e < prev    next >
Encoding:
Text File  |  1994-09-22  |  214 b   |  23 lines
  1. class list
  2. feature
  3.   next: list;
  4.   item: integer;
  5.  
  6.   create(i: integer) is
  7.   do
  8.     put(i)
  9.   end;
  10.  
  11.   put(i:integer) is
  12.   do
  13.     item:=i
  14.   end;
  15.  
  16.   add(n: list) is
  17.   do
  18.     next:=n
  19.   end;
  20.  
  21. end
  22.  
  23.