@@ -5828,7 +5828,7 @@ sub _segment_worklist
5828
5828
}
5829
5829
5830
5830
my $p = File::Spec-> catdir($main::output_directory , $rel_dir );
5831
- File::Path::make_path($p ) unless -d $p ;
5831
+ File::Path::make_path($p ) unless -d $p || $main::no_html ;
5832
5832
my $base_dir = main::get_relative_base_path($rel_dir );
5833
5833
my $trunc_dir = ($rel_dir eq ' ' ) ? ' root' : $rel_dir ;
5834
5834
@@ -6196,6 +6196,7 @@ our $suppress_function_aliases; # if set, don't show list of collapsed
6196
6196
# function aliases
6197
6197
our $merge_function_aliases ;
6198
6198
our $no_sourceview ; # If set, do not create a source code view for each file
6199
+ our $no_html ; # don't generate HTML if set
6199
6200
our $legend ; # If set, include legend in output
6200
6201
our $tab_size = 8; # Number of spaces to use in place of tab
6201
6202
our $html_prolog_file ; # Custom HTML prolog file (up to and including <body>)
@@ -6321,6 +6322,7 @@ my %genhtml_options = ("output-directory|o=s" => \$output_directory,
6321
6322
" num-spaces=i" => \$tab_size ,
6322
6323
" no-prefix" => \$no_prefix ,
6323
6324
" no-sourceview" => \$no_sourceview ,
6325
+ ' no-html' => \$no_html ,
6324
6326
" show-details|s" => \$show_details ,
6325
6327
" frames|f" => \$frames ,
6326
6328
" highlight" => \$deprecated_highlight ,
@@ -6357,6 +6359,7 @@ lcovutil::ignorable_error($lcovutil::ERROR_DEPRECATED,
6357
6359
" option '--highlight' has been removed." )
6358
6360
if ($deprecated_highlight );
6359
6361
$buildSerializableDatabase = 1 if $serialize ;
6362
+ $no_sourceview = 1 if $no_html ;
6360
6363
6361
6364
# Copy related values if not specified
6362
6365
$ln_hi_limit = $hi_limit if (!defined ($ln_hi_limit ));
@@ -6967,10 +6970,11 @@ sub gen_html()
6967
6970
}
6968
6971
}
6969
6972
6970
- info(1, " Writing .css and .png files.\n " );
6971
- write_css_file();
6972
- write_png_files();
6973
-
6973
+ unless ($no_html ) {
6974
+ info(1, " Writing .css and .png files.\n " );
6975
+ write_css_file();
6976
+ write_png_files();
6977
+ }
6974
6978
if ($html_gzip ) {
6975
6979
info(1, " Writing .htaccess file.\n " );
6976
6980
write_htaccess_file();
@@ -7072,6 +7076,7 @@ sub write_summary_pages($$$$$$$$)
7072
7076
$summary -> remove_source($c );
7073
7077
}
7074
7078
}
7079
+ return if $main::no_html ;
7075
7080
if (0 == $summary -> sources() && $summaryType == 1) {
7076
7081
# remove empty directory
7077
7082
push (@cleanDirectoryList , $rel_dir );
0 commit comments