opt_debug;
	warn "	 -o $main::opt_output_file\n" if $main::opt_output_file;
	warn "	 -i $main::opt_input_file\n"  if $main::opt_input_file;
	exit 0;
	};

${Parse_mc::database_file} = $main::opt_output_file
	if $main::opt_output_file;
my $input_files = join(' ', @main::opt_input_file);
# $main::debug is used in parse_mc !
$main::debug = $main::opt_debug || $main::debug;

# Pull in some configuration data
&Parse_conf::read_conf();
my ($ok, $value) = &Parse_conf::get_value('HANDS_OFF');
if ($value ne '0') {
	unlink "${Parse_mc::database_file}";
	exit;
	};

# Let them know wtf is going on...
print STDOUT "Creating ${Parse_mc::database_file}...\n";

# Read the mc/m4 files
&Parse_mc::read_mc($input_files);

# Write out the textual representation
&Parse_mc::write_dbs('', $input_files);