    deferred class
    	TEXT_FILLER

    General
    	cluster: lex
    	description: "Buffered files or strings for lexical analysis"

    Ancestors
    	ANY

    Queries
    	buffer: STRING_8
    	buffer_size: INTEGER_32
    	char_buffered_number: INTEGER_32
    	column_nb_array: LEX_ARRAY [INTEGER_32]
    	file_name: STRING_8
    	line_nb_array: LEX_ARRAY [INTEGER_32]

    Commands
    	close_file
    	create_buffers (buf, lin: INTEGER_32)
    	exclude (i, j: INTEGER_32)
    	fill_buffer (b: INTEGER_32)
    	fill_whole_buffer
    	resize_and_fill_buffer (buf, b: INTEGER_32)
    	set_file (f_name: STRING_8)
    	set_string (s: STRING_8)