class LINKED_AUTOMATON [S -> STATE] General cluster: lex description: "General finite state automata, implemented as lists" create: make Ancestors LINKED_LIST [G] Queries after: BOOLEAN before: BOOLEAN changeable_comparison_criterion: BOOLEAN count: INTEGER_32 cursor: LINKED_LIST_CURSOR [S] duplicate (n: INTEGER_32): [like Current] LINKED_AUTOMATON [S] exhausted: BOOLEAN Extendible: BOOLEAN first: [like item] S for_all (test: FUNCTION [ANY, TUPLE [S], BOOLEAN]): BOOLEAN Full: BOOLEAN has (v: [like item] S): BOOLEAN i_th alias "[]" (i: INTEGER_32): [like item] S index: INTEGER_32 index_of (v: [like item] S; i: INTEGER_32): INTEGER_32 index_set: INTEGER_INTERVAL infix "@" (i: INTEGER_32): [like item] S is_empty: BOOLEAN is_equal (other: [like Current] LINKED_AUTOMATON [S]): BOOLEAN is_inserted (v: S): BOOLEAN isfirst: BOOLEAN islast: BOOLEAN item: S last: [like item] S linear_representation: LINEAR [S] object_comparison: BOOLEAN occurrences (v: [like item] S): INTEGER_32 off: BOOLEAN prunable: BOOLEAN readable: BOOLEAN sequential_occurrences (v: [like item] S): INTEGER_32 there_exists (test: FUNCTION [ANY, TUPLE [S], BOOLEAN]): BOOLEAN valid_cursor (p: CURSOR): BOOLEAN valid_cursor_index (i: INTEGER_32): BOOLEAN valid_index (i: INTEGER_32): BOOLEAN writable: BOOLEAN Commands append (s: SEQUENCE [S]) back compare_objects compare_references copy (other: [like Current] LINKED_AUTOMATON [S]) do_all (action: PROCEDURE [ANY, TUPLE [S]]) do_if (action: PROCEDURE [ANY, TUPLE [S]]; test: FUNCTION [ANY, TUPLE [S], BOOLEAN]) extend (v: [like item] S) fill (other: CONTAINER [S]) finish force (v: [like item] S) forth go_i_th (i: INTEGER_32) go_to (p: CURSOR) merge_left (other: [like Current] LINKED_AUTOMATON [S]) merge_right (other: [like Current] LINKED_AUTOMATON [S]) move (i: INTEGER_32) prune (v: [like item] S) prune_all (v: [like item] S) put (v: [like item] S) put_front (v: [like item] S) put_i_th (v: [like item] S; i: INTEGER_32) put_left (v: [like item] S) put_right (v: [like item] S) remove remove_left remove_right replace (v: [like item] S) search (v: [like item] S) set_final (state, f: INTEGER_32) start swap (i: INTEGER_32) wipe_out