class BOUNDED_STACK [G] General cluster: base description: "Stacks with a bounded physical size, implemented by arrays" create: make Ancestors BOUNDED* [G] STACK* [G] Queries capacity: INTEGER_32 changeable_comparison_criterion: BOOLEAN count: INTEGER_32 extendible: BOOLEAN full: BOOLEAN has (v: G): BOOLEAN is_empty: BOOLEAN is_inserted (v: G): BOOLEAN item: G item_for_iteration: G linear_representation: ARRAYED_LIST [G] object_comparison: BOOLEAN occurrences (v: G): INTEGER_32 off: BOOLEAN Prunable: BOOLEAN readable: BOOLEAN Resizable: BOOLEAN writable: BOOLEAN Commands append (s: SEQUENCE [G]) compare_objects compare_references extend (v: [like item] G) fill (other: LINEAR [G]) finish force (v: [like item] G) forth make (n: INTEGER_32) put (v: [like item] G) remove replace (v: [like item] G) start wipe_out Constraints count small enough extendible definition