Automatic generation produced by ISE Eiffel
indexing description: "Lists implemented by resizable arrays" status: "See notice at end of class" names: sequence representation: array access: index, cursor, membership size: fixed contents: generic date: "$Date: 2001-11-16 20:32:23 +0000 (Fri, 16 Nov 2001) $" revision: "$Revision: 51435 $" class interface ARRAYED_LIST [G] create make, make_filled, make_from_array feature -- Initialization make (n: INTEGER) -- Allocate list with n items. -- (n may be zero for empty list.) require valid_number_of_items: n >= 0 ensure correct_position: before make_filled (n: INTEGER) -- Allocate list with n items. -- (n may be zero for empty list.) -- This list will be full. require valid_number_of_items: n >= 0 ensure correct_position: before filled: full make_from_array (a: ARRAY [G]) -- Create list from array a. feature -- Access item: like first -- Current item require else index_is_valid: valid_index (index) first: G -- Item at first position last: like first -- Item at last position index: INTEGER -- Index of item, if valid. cursor: CURSOR -- Current cursor position feature -- Measurement count: INTEGER -- Number of items. feature -- Status report prunable: BOOLEAN -- May items be removed? (Answer: yes.) full: BOOLEAN -- Is structure filled to capacity? valid_cursor (p: CURSOR): BOOLEAN -- Can the cursor be moved to position p? valid_index (i: INTEGER): BOOLEAN -- Is i a valid index? is_inserted (v: G): BOOLEAN -- Has v been inserted at the end by the most recent put or -- extend? feature -- Cursor movement move (i: INTEGER) -- Move cursor i positions. start -- Move cursor to first position if any. ensure then after_when_empty: is_empty implies after finish -- Move cursor to last position if any. ensure then before_when_empty: is_empty implies before forth -- Move cursor one position forward. back -- Move cursor one position backward. go_i_th (i: INTEGER) -- Move cursor to i-th position. go_to (p: CURSOR) -- Move cursor to position p. feature -- Element change put_front (v: like item) -- Add v to the beginning. -- Do not move cursor. force (v: like item) -- Add v to end. -- Do not move cursor. -- Was declared in ARRAYED_LIST as synonym of extend. extend (v: like item) -- Add v to end. -- Do not move cursor. -- Was declared in ARRAYED_LIST as synonym of force. put_left (v: like item) -- Add v to the left of current position. -- Do not move cursor. put_right (v: like item) -- Add v to the right of current position. -- Do not move cursor. replace (v: like first) -- Replace current item by v. merge_left (other: ARRAYED_LIST [G]) -- Merge other into current structure before cursor. merge_right (other: ARRAYED_LIST [G]) -- Merge other into current structure after cursor. feature -- Removal prune (v: like item) -- Remove first occurrence of v, if any, -- after cursor position. -- Move cursor to right neighbor. -- (or after if no right neighbor or v does not occur) remove -- Remove current item. -- Move cursor to right neighbor -- (or after if no right neighbor) ensure then index: index = old index prune_all (v: like item) -- Remove all occurrences of v. -- (Reference or object equality, -- based on object_comparison.) ensure then is_after: after remove_left -- Remove item to the left of cursor position. -- Do not move cursor. remove_right -- Remove item to the right of cursor position -- Do not move cursor wipe_out -- Remove all items. feature -- Transformation swap (i: INTEGER) -- Exchange item at i-th position with item -- at cursor position. feature -- Duplication duplicate (n: INTEGER): like Current -- Copy of sub-list beginning at current position -- and having min (n, count - index + 1) items. invariant prunable: prunable starts_from_one: lower = 1 empty_means_storage_empty: is_empty implies all_default indexing library: "[ EiffelBase: Library of reusable components for Eiffel. ]" status: "[ Copyright 1986-2001 Interactive Software Engineering (ISE). For ISE customers the original versions are an ISE product covered by the ISE Eiffel license and support agreements. ]" license: "[ EiffelBase may now be used by anyone as FREE SOFTWARE to develop any product, public-domain or commercial, without payment to ISE, under the terms of the ISE Free Eiffel Library License (IFELL) at http://eiffel.com/products/base/license.html. ]" source: "[ Interactive Software Engineering Inc. ISE Building 360 Storke Road, Goleta, CA 93117 USA Telephone 805-685-1006, Fax 805-685-6869 Electronic mail <info@eiffel.com> Customer support http://support.eiffel.com ]" info: "[ For latest info see award-winning pages: http://eiffel.com ]" end -- class ARRAYED_LIST -- Generated by ISE Eiffel --
For more details: www.eiffel.com