    class
    	LEXICAL

    General
    	cluster: lex
    	description: "Lexical analyzers"
    	create: make_new, make

    Ancestors
    	TEXT_FILLER*

    Queries
    	buffer: STRING_8
    	buffer_item_code (c: INTEGER_32): INTEGER_32
    	buffer_size: INTEGER_32
    	char_buffered_number: INTEGER_32
    	column_nb_array: LEX_ARRAY [INTEGER_32]
    	dfa: FIXED_DFA
    	end_of_text: BOOLEAN
    	file_name: STRING_8
    	keyword_code (word: STRING_8): INTEGER_32
    	keyword_string (n: INTEGER_32): STRING_8
    	last_is_keyword: BOOLEAN
    	last_keyword_code: INTEGER_32
    	last_keyword_text: STRING_8
    	last_string_read: STRING_8
    	last_token: TOKEN
    	line_nb_array: LEX_ARRAY [INTEGER_32]
    	No_token: INTEGER_32
    	other_possible_tokens: ARRAY [INTEGER_32]
    	token_column_number: INTEGER_32
    	token_line_number: INTEGER_32
    	token_type: INTEGER_32

    Commands
    	close_file
    	create_buffers (buf, lin: INTEGER_32)
    	exclude (i, j: INTEGER_32)
    	fill_buffer (b: INTEGER_32)
    	fill_whole_buffer
    	get_any_token
    	get_fixed_token (l: INTEGER_32)
    	get_short_token
    	get_token
    	make
    	make_new
    	resize_and_fill_buffer (buf, b: INTEGER_32)
    	set_file (f_name: STRING_8)
    	set_separator_type (type: INTEGER_32)
    	set_string (s: STRING_8)
    	trace