eiffel_scan console input
-- Example of a lexical analyzer based on the Eiffel syntax.
-- The analyzer itself is found in the file ``eiffel_lex'', which
-- is created according to the file ``eiffel_token'' if not
-- previously built and stored.
make as scanning_make
copy, consistent, is_equal, setup
-- Create a lexical analyser for Eiffel if none,
-- then use it to analyze the file of name
if argument_count < 1 then
io.error.putstring ("Usage: eiffel_scan eiffel_class_file.e%N")
file_name := argument (1);
build ("eiffel_lex", "eiffel_regular");
io.putstring ("Scanning file `");
end -- make
end -- class EIFFEL_SCAN