/[eiffelstudio]/FreeELKS/trunk/library/structures/cursors/circular_cursor.e
ViewVC logotype

Contents of /FreeELKS/trunk/library/structures/cursors/circular_cursor.e

Parent Directory Parent Directory | Revision Log Revision Log


Revision 91424 - (show annotations)
Tue Oct 26 18:39:32 2004 UTC (15 years, 3 months ago) by manus_eiffel
File size: 1609 byte(s)
Initial revision

1 indexing
2
3 description:
4 "Cursors for circular lists"
5
6 status: "See notice at end of class"
7 names: circular_cursor, cursor;
8 contents: generic;
9 date: "$Date$"
10 revision: "$Revision$"
11
12 class CIRCULAR_CURSOR
13
14 inherit
15 CURSOR
16
17 create
18 make
19
20 feature {NONE} -- Initialization
21
22 make (curs: like cursor; int: BOOLEAN; start: INTEGER) is
23 -- Create a cursor and set it up on `active_element'.
24 do
25 cursor := curs
26 internal_exhausted := int
27 starter := start
28 end
29
30 feature {CIRCULAR} -- Implementation
31
32 cursor: CURSOR
33 -- Current element in implementation
34
35 internal_exhausted: BOOLEAN
36 -- Has traversal passsed the start?
37
38 starter: INTEGER;
39 -- Index of start position
40
41 indexing
42
43 library: "[
44 EiffelBase: Library of reusable components for Eiffel.
45 ]"
46
47 status: "[
48 Copyright 1986-2001 Interactive Software Engineering (ISE).
49 For ISE customers the original versions are an ISE product
50 covered by the ISE Eiffel license and support agreements.
51 ]"
52
53 license: "[
54 EiffelBase may now be used by anyone as FREE SOFTWARE to
55 develop any product, public-domain or commercial, without
56 payment to ISE, under the terms of the ISE Free Eiffel Library
57 License (IFELL) at http://eiffel.com/products/base/license.html.
58 ]"
59
60 source: "[
61 Interactive Software Engineering Inc.
62 ISE Building
63 360 Storke Road, Goleta, CA 93117 USA
64 Telephone 805-685-1006, Fax 805-685-6869
65 Electronic mail <info@eiffel.com>
66 Customer support http://support.eiffel.com
67 ]"
68
69 info: "[
70 For latest info see award-winning pages: http://eiffel.com
71 ]"
72
73 end -- class CIRCULAR_CURSOR
74
75
76

Properties

Name Value
svn:eol-style native
svn:keywords Author Date Id Revision

  ViewVC Help
Powered by ViewVC 1.1.23