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

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

Parent Directory Parent Directory | Revision Log Revision Log


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

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

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23