Whiteline: Alpha/Whiteline Alpha.iso/progtool/eiffel/vici/examples/listtest.e

Text File | 1994-09-22 | 397 b | 36 lines

class listtest
feature
  l: list;

  create is
  local
     p,q: list;
     i: integer
  do
    l.create(0);
    --l.put(0);

    from i:=1; q:=l
    until i>4
    loop
      p.create(i);
      --p.put(i);
      q.add(p);
      q:=p;

      i:=i+1
    end;

    from p:=l
    until p.void
    loop
      io.putint(p.item);
      p:=p.next
    end;

  end

end