EiffelBase class
(HTML page generated by ISE Eiffel 4.2)
Eiffel Class
indexing
description: "Cursors for circular lists";
status: "See notice at end of class";
names: circular_cursor, cursor;
contents: generic;
date: "$Date: 2007-03-30 11:10:11 -0800 (Fri, 30 Mar 2007) $";
revision: "$Revision: 95354 $"
class CIRCULAR_CURSOR
inherit
CURSOR
creation
make
feature {LINKED_LIST} -- Initialization
make (curs: like cursor; int: BOOLEAN; start: INTEGER) is
-- Create a cursor and set it up on active_element.
do
cursor := curs;
internal_exhausted := int;
starter := start
end;
feature {CIRCULAR} -- Implementation
cursor: CURSOR;
-- Current element in implementation
internal_exhausted: BOOLEAN;
-- Has traversal passsed the start?
starter: INTEGER;
-- Index of start position
end -- class CIRCULAR_CURSOR
|
