END
}
}
}
elsif (/^(#include) "(.+)"/) {
my ($include, $current_header) = ($1, $2);
my $path_to_header = $current_header;
if (defined $file_not_found{$path_to_header}) {
$path_to_header = $missing_html;
}
if (defined $sources) { # option --enable-sources
if ($path_to_header eq $missing_html) { # not found at ctc2html time => only description
$notfound = "(source not found)";
}
}
$current_file = $original{$current_header};
$current_file = utf8it($current_file);
$current_file = '"' . $current_file . '"';
print PROFILE <<"END";
$include$current_file$notfound
END
}
elsif (/^\s+(\d+)(\s*)(#line )(\d+) "(.+)"/) {
# change the current source (header) file after a line directive
my ($line, $indent, $linedir, $linedir_line, $current_header) = ($1, $2, $3, $4, $5);
my $flag = undef;
if (defined $gPendingLine) {
print PROFILE $gPendingLine;
undef $gPendingLine;
}
if ($gChild eq "") {
$gSource = $gParent;
} else {
$gSource = $gChild;
}
if (defined $file_not_found{stripSecondCopySuffix($gSource)}) {
$gSource = $missing_html;
} else {
$gProcessing{$gSource} = $line;
}
if (defined $gOutsideFunction) { # line directive outside of function, no line coverage
if (defined $sources) {
# process source lines up to line-directive description without line coverage
if ($gSource ne $missing_html) {
# set line coverage off
$aLine_coverage = $gLine_coverage;
undef $gLine_coverage;
$source_line = process_source_file($line, $flag);
# set line coverage to its original value
$gLine_coverage = $aLine_coverage;
}
}
} else { # line directive inside of function, use line coverage
if (defined $sources) {
# process source lines up to line-directive description with line coverage
if ($gSource ne $missing_html) {
$source_line = process_source_file($line, $flag);
}
}
}
# source line with #include header is printed
if (defined $source_line) {
if ($source_line =~ /^\s*#\s*include.+?<\/span>/) {
print PROFILE <<"END";
$line
$source_line
END
}
}
# initialize because of file change
$gPrev_line = $linedir_line - 1;
$gSource = $current_header;
if (defined $file_not_found{$gSource}) {
$gSource = $missing_html;
} else {
$gProcessing{$gSource} = $linedir_line - 1; # there may be function probe in linedir line
}
if (defined $sources) { # option --enable-sources
if ($gSource ne $missing_html)
{
# a new "child" (included) header file begins, open file for reading
if (not defined $gSource_handle{$gSource}) {
open($gHandle, "<" . openName($gSource))
or die "ctc2html: Cannot open file $gSource\n";
$gSource_handle{$gSource} = $gHandle;
$gHandle++;
}
# back to "parent" (includer) source file
if ($gSource eq $gParent) {
$gChild = "";
} else {
$gChild = $gSource;
}
} else { # not found at ctc2html time => only description
$notfound = "(source not found)";
}
}
# profile listing's line-directive description is printed with proper indentation
$indent =~ s/\s{1}(\s*)/$1/;
$indent =~ s/\s/ /g;
$current_file = $original{$current_header};
$current_file = utf8it($current_file);
$current_file = '"' . $current_file . '"';
print PROFILE <<"END";
END
unless (defined $light_untested) {
my $linedir_untested = <<"END";
$line
$indent$linedir$linedir_line $current_file
END
if (defined $gOutsideFunction) {
undef $gPending_untested_function;
print UNTESTED $linedir_untested unless defined $gTer_100;
} else {
# function has been called, but some probes may be untested
if (defined $gPending_untested_function) {
$gPending_untested_function .= $linedir_untested;
} else {
print UNTESTED $linedir_untested unless defined $gTer_100;
}
}
}
}
elsif (/^\s*(\d+)( |\^|v)( |\(not avail\)|\(different\))(-| ) {0,5}(\d+)\s*(FUNCTION) (.+)/) {
# a function begins in the profile list.
# ( no diff-marks ^/v when "(not avail)" or ("different") )
my ($start, $tdiff, $new_chng, $flag, $line, $descr, $function) = ($1, $2, $3, $4, $5, $6, $7);
my $function_probe = $_;
$gFunction_id++;
undef $gPending_untested_function;
if ($new_chng eq " ") {
$new_chng = "";
}
if ($flag eq "-") {
$gNumUntestedProbes++;
} else {
undef $flag;
}
# set global line coverage from user setting (--enable-line_coverage)
if (not defined $no_linecov{$function_probe}) {
$gLine_coverage = $line_coverage;
} else {
# specific function not having line coverage
undef $gLine_coverage;
}
if ($start == 0) {
$startcolor = "tcolnhit";
$endcolor = "profile";
} else {
$startcolor = "profile";
$endcolor = "profile";
}
$sourcestyle = "lineplain";
if (defined $gLine_coverage) {
if ($line == $gPrev_line) { # additional function execution description
if ($start > 0) {
$gExepassed = 1;
} else {
$gExepassed = 0;
}
} else { # first function execution description
if ($start > 0) {
$sourcestyle = "linehit";
$gExepassed = 1;
} else {
$sourcestyle = "linenhit";
$gExepassed = 0;
}
}
}
elsif (defined $line_coverage) {
if ($line == $gPrev_line) { # additional function execution description
;
} else { # first function execution description
if ($start > 0) {
$sourcestyle = "linehit";
} else {
$sourcestyle = "linenhit";
}
}
$gExepassed = 0;
}
# additional execution description line may follow with same line number
$gPrev_line = $line;
$start = exp_format($start, 6);
$next_untested_id = $gProfile_untested_id + 1;
if (defined $flag) {
$pLine = "$line";
$gProfile_untested_id = $next_untested_id;
} else {
$pLine = $line;
}
if (defined $sources) { # option --enable-sources
if ($gSource ne $missing_html) {
# process source lines outside of function up to first function description in line without line coverage
if ($gProcessing{$gSource} < $line) {
# set line coverage off
$aLine_coverage = $gLine_coverage;
undef $gLine_coverage;
$source_line = process_source_file($line, $flag);
$gProcessing{$gSource} = $line;
$gOrig_source_line = "";
# set line coverage to its original value
$gLine_coverage = $aLine_coverage;
}
}
}
$current_file = $original{$gParent};
$current_file = utf8it($current_file);
my $arrow = toArrowSingle($start,$tdiff);
my $function_line = <<"END";
END
# function source line is printed
if (defined $source_line) {
$function_line .= <<"END";
$arrow
$pLine
$source_line
END
} else { # additional function description or source not found at ctc2html time or
# option --disable-sources => function description is printed
$function_line .= <<"END";
$arrow
$pLine
$descr $function
END
}
print PROFILE $function_line;
# show untested files and functions at Untested Code page
$alarm = getAlarmCh($flag);
unless (defined $light_untested) {
unless (defined $gTer_100) {
# function has not been called
if (defined $flag) {
$gUntested_id++;
$uLine = "$line";
} else {
$uLine = $line;
}
$gPending_untested_function = <<"END";
$start
$alarm
$uLine
$descr $function
END
if (defined $gInsert_separator) {
my $separator = <<"END";
END
$gPending_untested_function = $separator . $gPending_untested_function;
}
if (defined $flag) {
print UNTESTED $gPending_untested_function;
undef $gPending_untested_function;
$gInsert_separator = 1;
}
}
}
# There's no '***TER ... of FUNCTION ..." line in the profile listing
# when function coverage instrumentation. Hence, "simulate" it.
# Following line directive may be in inside of function except when function coverage.
if ($gInstrumentationMode eq "function" or
$gInstrumentationMode eq "function+inclusive_timing" or
$gInstrumentationMode eq "function+exclusive_timing" or
$gCoverageView eq "Reduced to function coverage")
{
my $ter_tooltip = "";
if (defined $flag) {
$ter_tooltip = "TER 0 % (0/1)";
} else {
$ter_tooltip = "TER 100 % (1/1)";
}
if (defined $gVerboseIndex) {
print INDEX_PROFILE <<"END";
END
}
$gOutsideFunction = 1;
} else {
undef $gOutsideFunction;
}
}
elsif (/^\s+(\d+)(\s+)(User annotation:.*)/) {
# annotation description begins
my ($line, $indent, $descr) = ($1, $2, $3);
my $flag = undef;
my $annotation_line = "";
if (defined $gPendingLine) {
print PROFILE $gPendingLine;
undef $gPendingLine;
}
if ($gSource ne $missing_html) {
$gProcessing{$gSource} = $line;
}
if (defined $sources) {
# process source up to annotation description
if ($gSource ne $missing_html) {
$source_line = process_source_file($line, $flag);
}
}
# source line with annotation description is printed
if (defined $source_line) {
$annotation_line = <<"END";
$line
$source_line
END
} else { # source not found at ctc2html time or option --disable-sources
# => annotation description is printed
$indent =~ s/\s{1}(\s*)/$1/;
$indent =~ s/\s/ /g;
$annotation_line = <<"END";
$line
$indent$descr
END
}
print PROFILE $annotation_line;
}
elsif (/^\s+(\d+)\s*(}[+-])/ or /^\s+(\d+)\s+(\S+:\+*)/) {
# block end, label, lambda function end nr, function-try end execution description begins
my ($line, $descr) = ($1, $2);
my $line2 = 0;
my $flag = undef;
my $print_source_line = undef;
if (defined $gPendingLine) {
print PROFILE $gPendingLine;
undef $gPendingLine;
}
$sourcestyle = "lineplain";
if (defined $gLine_coverage) {
if ($descr =~ /}([+-])/) { # }+ }- block end, lambda function end nr, function-try end
if ($1 eq "+") {
$exepassed_pending = 1;
}
if ($gExepassed == 1) {
$sourcestyle = "linehit";
} else {
$sourcestyle = "linenhit";
}
} else { # label:+ label:
$descr =~ /\S+:(\+*)/;
if ($1 eq "+") {
$exepassed_pending = 1;
} else {
if ($gExepassed == 1) {
$exepassed_pending = 1;
}
}
if ($exepassed_pending == 1) {
$sourcestyle = "linehit";
} else {
$sourcestyle = "linenhit";
}
}
}
if (defined $sources) {
if ($gSource ne $missing_html) {
# process source up to first block end execution description in line with current exepassed state
if ($gProcessing{$gSource} < $line) {
$source_line = process_source_file($line, $flag);
$gProcessing{$gSource} = $line;
# read next line from input handle
$next_line = ;
$read_input = 0;
$next_line =~ /^[\d ]{10} [\d ]{10} (-| ) {0,5}(\d+)\s*.+/;
$line2 = $2;
# additional execution description (block end/other probe)
if ($line == $line2) {
$gOrig_source_line = $source_line;
} else {
# only one block end execution description => source line is printed
$gOrig_source_line = "";
$print_source_line = 1;
}
} elsif (length $gOrig_source_line > 0) {
# additional block end execution description => source line is printed
$source_line = $gOrig_source_line;
$gOrig_source_line = "";
$print_source_line = 1;
}
}
}
# additional block end execution description or source not found at ctc2html time or
# option --disable-sources => description not printed,
# source line containing one or more block end is printed
if (defined $source_line and defined $print_source_line) {
$gOrig_source_line2 =~ s/}//g;
if (length $gOrig_source_line2 == 0) {
$sourcestyle = "lineplain";
} else {
$gOrig_source_line2 = "";
}
print PROFILE <<"END";
$line
$source_line
END
}
# set current execution mode
if (defined $gLine_coverage) {
$gExepassed = $exepassed_pending;
}
}
elsif (/^([\d ]{10})([ ^v])([\d ]{10})([ ^v])(-| ) {0,5}(\d+)(\s*)(.+)/) {
# execution description begins
my ($start, $tdiff, $end, $fdiff, $flag, $line, $indent, $descr) = ($1, $2, $3, $4, $5, $6, $7, $8);
my $indent_multi = substr($indent, 1);
my $mcdc_flag = undef;
my $omo = undef;
my $omo_tr = undef;
my $descrcol = undef;
my $tfcols = undef;
my $linecol = undef;
my $additional_block_end = undef;
my $indent_untested = "";
my $descr_untested = "";
my $function_end = undef;
my $sourcestyle_hit = undef;
my @color = ();
if (defined $gPendingLine) {
print PROFILE $gPendingLine;
undef $gPendingLine;
}
if ($flag eq "-") {
$gNumUntestedProbes++;
} else {
undef $flag;
}
# additional block end line, statement/line coverage not available
if ($line == $gPrev_line) {
if ($descr eq "}" && length $indent > 1) {
$additional_block_end = 1;
}
}
$start =~ s/\s//g; # remove spaces
$end =~ s/\s//g;
$indent =~ s/\s{1}(\s*)/$1/;
$indent =~ s/\s/ /g;
$indent_untested = $indent;
$descr_untested = $descr;
# }+ }- case n:+ default:+ Label:+, they are stripped off from the last +-
$descr_untested =~ s/[+-]$//;
# get structural coverage background color
@color = getColor($start, $end, $flag, $descr);
$startcolor = $color[0];
$endcolor = $color[1];
$sourcestyle = "lineplain";
if (defined $gLine_coverage) {
if (length $start == 0 && length $end == 0) { # no counters
# additional execution description
if ($descr =~ /MC\/DC \(cond \d+\): \d+ [+-] \d+/) { # MC/DC (cond 1): 1 + 2
$exepassed_pending = $gExepassed;
} elsif ($descr eq '}') { # function end non-reachable, last catch end of function-try
;
} else { # do, else, switch
if ($gExepassed == 1) {
$sourcestyle = "linehit";
} else {
$sourcestyle = "linenhit";
}
$exepassed_pending = $gExepassed;
}
} # no counters
elsif (length $start > 0 && length $end > 0) { # 2 counters
if ($line == $gPrev_line) { # additional execution description
if ($descr =~ /COND \(/ or # condition true/false
$descr =~ /ternary-\?:/ or # ternary expression
$descr =~ /expr-andor:/) # and/or expression
{
$exepassed_pending = $gExepassed;
} elsif ($start == 0 && $end == 0) {
;
} elsif ($start == 0 && $end > 0) {
;
} else {
$exepassed_pending = 1;
}
} else { # first execution description
if ($descr =~ /ternary-\?:/ or # ternary expression
$descr =~ /expr-andor:/) # and/or expression
{
if ($gExepassed == 1) {
$sourcestyle = "linehit";
} else {
$sourcestyle = "linenhit";
}
$exepassed_pending = $gExepassed;
} elsif ($start == 0 && $end == 0) {
$sourcestyle = "linenhit";
} elsif ($start == 0 && $end > 0) {
$sourcestyle = "linehit";
} else {
$sourcestyle = "linehit";
$exepassed_pending = 1;
}
}
} # 2 counters
elsif (length $start > 0 && length $end == 0) { # 1 counter in first column
if ($line == $gPrev_line) { # additional execution description
if ($descr =~ /\d+: [TF&!|_\s()]+/ or # multicondition true
$descr =~ /const-ternary-\?:/) # const ternary expression
{
$exepassed_pending = $gExepassed;
} elsif ($descr =~ /(break|return|goto|continue|throw|__leave)/) { # break return
;
} elsif ($descr =~ /case .+:(\+*)/ or # case n:+ default:+
$descr =~ /default:(\+*)/)
{
if ($start > 0) {
$exepassed_pending = 1;
} else {
if ($1 eq "+") {
$exepassed_pending = 1;
}
}
} elsif ($descr =~ /}([+-])/) { # lambda function end
if ($1 eq "+") {
$exepassed_pending = 1;
}
$descr =~ s/(})[+-]/$1/;
} elsif ($descr eq '}') { # function end
;
} elsif ($start > 0) {
$exepassed_pending = 1;
}
} else { # first execution description
$sourcestyle = "linehit";
if ($descr =~ /const-ternary-\?:/) { # const ternary expression
if ($gExepassed == 0) {
$sourcestyle = "linenhit";
}
$exepassed_pending = $gExepassed;
} elsif ($descr =~ /(break|return|goto|continue|throw|__leave)/) { # break return
if ($start == 0) {
$sourcestyle = "linenhit";
}
} elsif ($descr =~ /case .+:(\+*)/ or # case n:+ default:+
$descr =~ /default:(\+*)/)
{
if ($start > 0) {
$exepassed_pending = 1;
} else {
if ($1 eq "+") {
$exepassed_pending = 1;
} else {
$sourcestyle = "linenhit";
}
}
} elsif ($descr =~ /}([+-])/) { # lambda function end
if ($start == 0) {
$sourcestyle = "linenhit";
}
if ($1 eq "+") {
$exepassed_pending = 1;
}
$descr =~ s/(})[+-]/$1/;
} elsif ($descr eq '}') { # function end
$function_end = 1;
$sourcestyle = "lineplain";
if ($start > 0) {
$sourcestyle_hit = "linehit";
} else {
$sourcestyle_hit = "linenhit";
}
} elsif ($start > 0) {
$exepassed_pending = 1;
} else {
$sourcestyle = "linenhit";
}
}
} # 1 counter in first column
else { # 1 counter in second column, multicondition false or const-if (0)
$sourcestyle = "linehit";
if ($line == $gPrev_line) { # additional execution description
$sourcestyle = "lineplain";
if ($descr =~ /\d+: [TF&!|_\s()]+/) { # multicondition false
$exepassed_pending = $gExepassed;
}
}
} # 1 counter in second column
}
# additional execution description line may follow with same line number
$gPrev_line = $line;
$start = exp_format($start, 6);
$end = exp_format($end, 6);
$next_untested_id = $gProfile_untested_id + 1;
if (defined $flag) {
$pLine = "$line";
$gProfile_untested_id = $next_untested_id;
} else {
$pLine = $line;
}
if (defined $sources) {
if ($gSource ne $missing_html) {
# process source up to first execution description in line with current $gExepassed state
if ($gProcessing{$gSource} < $line) {
$source_line = process_source_file($line, $flag);
$gProcessing{$gSource} = $line;
if (defined $function_end and length $gOrig_source_line > 1) { # {;}
$sourcestyle = $sourcestyle_hit;
}
$gOrig_source_line = "";
} elsif (length $gOrig_source_line > 0) {
# additional execution description after block end => original source line is printed
$source_line = $gOrig_source_line;
$gOrig_source_line = "";
}
}
}
if ($descr =~ /^(\d+): [TF&!|_\s()]+$/) {
$current_max_multi = $1;
} elsif ($descr =~ /^MC\/DC \(cond \d+\): \d+ ([+-]) \d+/) {
$mcdc_flag = $1;
} else {
$current_max_multi = 0;
}
if (defined $mcdc_flag && defined $mcdc_highlight) { # MC/DC line with highlight
# MC/DC (cond 1): 1 - 3
# MC/DC (cond 1): 1 - 4, 2 - 4
$descr =~ /^MC\/DC \(cond (\d+)\): (\d+) [+-] (\d+)/;
my $cond_nr = $1;
my $first = $current_max_multi - ($2 - $cond_nr);
my $second = $current_max_multi - ($3 - $cond_nr);
my @multi_pairs = split(/,/, $descr);
my $multi_pair = "";
my $omo_multi = "";
my $idx = 0;
$omo = "onmouseover=\"highlight(this, $first, $second)\" ".
"onmouseout=\"unhighlight(this, $first, $second)\"";
if (not $#multi_pairs) { # one MC/DC pair
$omo_tr = $omo;
} else { # multiple MC/DC pairs
$omo_multi = $omo;
$indent_multi =~ s/\s/ /g;
$multi_pair = $indent_multi . $multi_pairs[0];
$descrcol = "
";
}
if (length $start == 0 && length $end == 0) { # no counters
if (defined $mcdc_flag && defined $mcdc_highlight) { # MC/DC line with highlight
# In input profile.txt the MC/DC passed info ( |-) was in
# FALSE column. When input is ctcdiff-generated, the diff
# info ( |^|v) is also at FALSE column. To HTML the passed
# info is shown as ( |^|v)(+|-) roughly at Hits/True column
# end, and the ^/v are converted to up/down arrows.
if (defined $omo_tr) { # one MC/DC pair
$tfcols = "
";
}
else { # 1 counter in second column, multicondition false or const-if (0)
$tfcols = "
".toArrowSingle($end,$fdiff)."
";
}
if (defined $mcdc_flag && defined $mcdc_highligh) { # MC/DC line with highlight
if (defined $omo_tr) { # one MC/DC pair
$linecol = "
$pLine
";
} else { # multiple MC/DC pairs
$linecol = "
$pLine
";
}
} else {
$linecol = "
$pLine
";
}
# source line is printed
if (defined $source_line) {
$gPendingLine = <<"END";
$tfcols$linecol
$source_line
END
} else { # additional execution description or
# source not found at ctc2html time or option --disable-sources
# => description is printed
if (defined $mcdc_flag && defined $mcdc_highlight) { # MC/DC line with highlight
if (defined $omo_tr) { # one MC/DC pair
$gPendingLine = <<"END";
END
}
}
# additional block end not printed
if (defined $additional_block_end) {
undef $additional_block_end;
undef $gPendingLine;
}
# show untested files and functions at Untested Code page
$alarm = getAlarmCh($flag);
unless (defined $light_untested) {
if (defined $flag) {
$gUntested_id++;
$uLine = "$line";
# function has been called, but some probes are untested
if (defined $gPending_untested_function) {
print UNTESTED $gPending_untested_function;
undef $gPending_untested_function;
$gInsert_separator = 1;
}
print UNTESTED <<"END";
$tfcols
$alarm
$uLine
$indent_untested$descr_untested
END
}
}
# set current execution mode
if (defined $gLine_coverage) {
$gExepassed = $exepassed_pending;
}
}
elsif (/^\*\*\*TER\s+(\d+) % \((\[.+\]|)\s+(\d+)\/\s*(\d+)\) of FUNCTION (.+)/
) { # MASTER regex
#( 96[3^ + 93=; 0v]/138)
# my $ter_tooltip = "TER $1 % ".toArrow($2,$3,$4);
my $ter_tooltip = "TER $1 % ($2 $3/$4)";
my $function = $5;
my $profile_link = $profile_html{$gSource_id} . "#a$gFunction_id";
$gTooltip = "
END
}
undef $gPending_untested_function;
# following line directive may be in outside of function
$gOutsideFunction = 1;
}
elsif (/^\s+(N\.A\. statement)/) { # N.A. statement (of function)
$gTooltip .= $1 . "\">";
$gPendingLine =~ s/(<\/tr>)/$gTooltip$1<\/a>$2/;
# print pending probe line other than function probe
print PROFILE $gPendingLine;
undef $gPendingLine;
}
elsif (/^\*\*\*TER\s+(\d+) % \(\s*(\[.+\]|)\s*(\d+)\/\s*(\d+)\) (of FILE) .+/ )
{
my ($ter, $one, $two, $diff, $three, $four) = ($1, $1, $3, $2, $4, $5);
my $flag = undef;
my $base_name = "";
if ($gSource ne $missing_html) {
$gProcessing{$gSource} = 0;
}
if (defined $sources) {
# process the remaining lines outside of function of the source file without line coverage
if ($gSource ne $missing_html) {
# set line coverage off
undef $gLine_coverage;
process_source_file(-1, $flag);
}
# close opened source and header files
foreach $key (keys %gSource_handle) {
close $gSource_handle{$key};
}
}
if ($ter < $threshold) {
$structcolor = "belowb";
} else {
$structcolor = "aboveb";
}
$base_name = basename($original{$gParent});
$base_name = utf8it($base_name);
$ter_file = "$one % ".toArrow($two,$diff,$three)." $four $base_name";
print PROFILE <<"END";
***TER$ter_file
END
unless (defined $light_untested) {
if ($gNumUntestedProbes > 0) {
print UNTESTED <<"END";
***TER$ter_file
END
}
}
}
elsif (/^\s+(\d+) % \(\s*(\d+)\/\s*(\d+)\) (statement)(.*)/) {
# 100 % ( 0/ 0) statement[ (N.A. for 2 functions)] (of function or file)
my ($ter, $one, $two, $three, $four, $five) = ($1, $1, $2, $3, $4, $5);
my $file_ter_stmt = "";
my $key = "";
if (defined $gPendingLine) { # statement of function
$gTooltip .= "$one % ($two/$three) $four" . "\">";
$gPendingLine =~ s/(<\/tr>)/$gTooltip$1<\/a>$2/;
# print pending probe line other than function probe
print PROFILE $gPendingLine;
undef $gPendingLine;
} else { # statement of file
if (defined $statement_coverage) {
if ($ter < $stmtthreshold) {
$stmtcolor = "belowb";
} else {
$stmtcolor = "aboveb";
}
$file_ter_stmt = <<"END";
$one % ($two/$three) $four$five
END
} else {
$file_ter_stmt = <<"END";
END
}
# print file ter statement line
print PROFILE $file_ter_stmt;
unless (defined $light_untested) {
if ($gNumUntestedProbes > 0) {
print UNTESTED $file_ter_stmt;
}
}
printProfileFooter();
print PROFILE <<"END";