";
if ($properties{nopre} eq "1") {
#then do not print the tag.
} else {
print "";
}#endif
} else {
print ":\n";
}
}#endif
########## DETERMINE HOW FAR BACK TO GO FOR DISPLAYING THE "PRE-HIT" LINES:
## skip forward if we are only to show the matched line:
if (($sectionproperties{"only_show_matched_line"})
|| ($properties{"only_show_matched_line"})) {
#&increment_index_and_read_more_if_necessary;#ohoh
goto PRINTOUTHITLINE;
}#endif
#DEBUG: print "[5]index=$index,maxindex=$maxindex,tmpindex=$tmpindex
";#
##### ACTUALLY PRINT THE "PRE-HIT" LINES:
&decrement_index_to_beginning_of_entity;
if ($index_lowered) {
$index_lowered=0;
while ($tmpindex < $index) {
&prepforprintingandprint($lines[$tmpindex],$tmpindex);
$tmpindex++;
}#endwhile
}#endif
#DEBUG: print "[10]index=$index,maxindex=$maxindex,tmpindex=$tmpindex
";#
##### PRINT OUT OUR "HIT" LINE:
PRINTOUTHITLINE:
&checkFirstChars($lines[$index]); #OH: TODO: gather keys for legend
&prepforprintingandprint($lines[$index],$index);
if ($DEBUG>=3) { print "
Yindex=$index, lines[Yindex]=\"$lines[$index]\"\n"; }
##### skip forward if we are ONLY ONLY to show the matched line:
if (($sectionproperties{"only_show_matched_line"})
|| ($properties{"only_show_matched_line"})) {
goto VERYENDOFLOOP;
}#endif
##### After doing this, we are now actually analyzing the NEXT LINE!!!!!!!!
&increment_index_and_read_more_if_necessary;
##### PRINT OUT OUR "POST-HIT" LINES:
$linesfound=0;
$whilesingleindent=0;
$whiledoubleindent=0;
#DEBUG: print "lines[index] is now $lines[$index]
";
if ($DEBUG>=3) { print "* Nope... checking lines[$index] for $grepfor.. it is:\n\"$lines[$index]\" and line is:\n\"$line\"\n"; }
if ($lines[$index] =~ /$grepfor/i) {
if ($DEBUG>=1) { print "checking again!"; }
#$lastline=$line;
#$line=$lines[$index];
if ($DEBUG>=3) { print "line=\"$line\""; }
#DEBUG: print "Going to check again!!!!";#
goto CHECKAGAIN;
}#endif
if ($DEBUG>=2) { print "..not found (index=$index,maxindex=$maxindex)\n"; }
if (($sectionproperties{"go_forward_til_blank_line"})
|| ($properties{"go_forward_til_blank_line"})) {
while ($lines[$index] !~ /^\s*$/) {
&prepforprintingandprint($lines[$index],$index);
&increment_index_and_read_more_if_necessary;
$linesfound++;
}#endwhile
} elsif (($sectionproperties{"go_forward_til_non_indent"}) ||
($properties{"go_forward_til_non_indent"})) {
$whilesingleindent=1;
} elsif (&double_indent($lines[$index])) {
if (($properties{go_forward_on_double_indent}) || ($sectionproperties{go_forward_on_double_indent}))
{
$whiledoubleindent=1;
}
} elsif (&single_indent($lines[$index])) {
if (($properties{go_forward_on_single_indent}) || ($sectionproperties{go_forward_on_single_indent})) {
$whilesingleindent=1;
}
}#endif
if ($whiledoubleindent) {
while (&double_indent($lines[$index])) { if ($DEBUG>=2) { print "DI: "; }
&prepforprintingandprint($lines[$index],$index);
#OLD: #&increment_index_and_read_more_if_necessary({dontread=>1});
&increment_index_and_read_more_if_necessary;
$linesfound++;
}#endif
if ($linesfound>0) { goto TOPOFLOOPAFTERREAD; } #sucky! #OH need?
} elsif ($whilesingleindent) {
while (&single_indent($lines[$index])) { if ($DEBUG>=2) { print "DI: "; }
&prepforprintingandprint($lines[$index],$index);
#OLD: #&increment_index_and_read_more_if_necessary({dontread=>1});
&increment_index_and_read_more_if_necessary;
$linesfound++;
}#endif
if ($linesfound>0) { goto TOPOFLOOPAFTERREAD; } #sucky! #OH need?
}
VERYENDOFLOOP:
}#endwhile
close (FILE);
@lines=(); #This really shouldn't be necessary!
#But it does NOT renew every time onegrep is called!
if ($CELL) { print " |