class
	INPUT

General
	cluster: lex.parse
	description: "Handling of input documents through a lexical analyzer"
	create: make

Ancestors
	ARRAYED_LIST [G]

Queries
	infix "@" (i: INTEGER): TOKEN
	after: BOOLEAN
	analyzer: LEXICAL
	before: BOOLEAN
	capacity: INTEGER
	changeable_comparison_criterion: BOOLEAN
	count: INTEGER
	cursor: CURSOR
	duplicate (n: INTEGER): [like Current] INPUT
	end_of_document: BOOLEAN
	exhausted: BOOLEAN
	Extendible: BOOLEAN
	first: TOKEN
	for_all (test: FUNCTION [ANY, TUPLE [TOKEN], BOOLEAN]): BOOLEAN
	full: BOOLEAN
	has (v: [like item] TOKEN): BOOLEAN
	i_th (i: INTEGER): TOKEN
	index: INTEGER
	index_of (v: [like item] TOKEN; i: INTEGER): INTEGER
	index_set: INTEGER_INTERVAL
	is_empty: BOOLEAN
	is_equal (other: [like Current] INPUT): BOOLEAN
	is_inserted (v: TOKEN): BOOLEAN
	isfirst: BOOLEAN
	islast: BOOLEAN
	keyword_code (s: STRING): INTEGER
	keyword_string (code: INTEGER): STRING
	last: [like first] TOKEN
	linear_representation: LINEAR [TOKEN]
	object_comparison: BOOLEAN
	occurrences (v: [like item] TOKEN): INTEGER
	off: BOOLEAN
	prunable: BOOLEAN
	readable: BOOLEAN
	sequential_occurrences (v: TOKEN): INTEGER
	there_exists (test: FUNCTION [ANY, TUPLE [TOKEN], BOOLEAN]): BOOLEAN
	token: [like first] TOKEN
	valid_cursor (p: CURSOR): BOOLEAN
	valid_cursor_index (i: INTEGER): BOOLEAN
	valid_index (i: INTEGER): BOOLEAN
	writable: BOOLEAN

Commands
	append (s: SEQUENCE [TOKEN])
	arrayed_list_make (n: INTEGER)
	back
	compare_objects
	compare_references
	copy (other: [like Current] INPUT)
	do_all (action: PROCEDURE [ANY, TUPLE [TOKEN]])
	do_if (action: PROCEDURE [ANY, TUPLE [TOKEN]]; test: FUNCTION [ANY, TUPLE [TOKEN], BOOLEAN])
	extend (v: [like item] TOKEN)
	fill (other: CONTAINER [TOKEN])
	finish
	force (v: [like item] TOKEN)
	forth
	get_token
	go_i_th (i: INTEGER)
	go_to (p: CURSOR)
	make
	make_filled (n: INTEGER)
	make_from_array (a: ARRAY [TOKEN])
	merge_left (other: ARRAYED_LIST [TOKEN])
	merge_right (other: ARRAYED_LIST [TOKEN])
	move (i: INTEGER)
	out_list
	prune (v: [like item] TOKEN)
	prune_all (v: [like item] TOKEN)
	put (v: [like item] TOKEN)
	put_front (v: [like item] TOKEN)
	put_i_th (v: [like item] TOKEN; i: INTEGER)
	put_left (v: [like item] TOKEN)
	put_right (v: [like item] TOKEN)
	raise_error (s: STRING)
	remove
	remove_left
	remove_right
	replace (v: [like first] TOKEN)
	retrieve_lex (filename: STRING)
	search (v: [like item] TOKEN)
	set_input_file (filename: STRING)
	set_input_string (stringname: STRING)
	set_lexical (lexical: LEXICAL)
	start
	swap (i: INTEGER)
	wipe_out