Lines Matching refs:line
46 # FIXME: would be nice to turn these into command line options
47 # max number of chars in each line, above which lines are wrapped in
138 foreach my $line (@lines) {
139 chomp ($line);
140 if ($line =~ /^(.)(.)(.)(.)(.)(.) (.*)/) {
145 msg_warning ("Cannot process svn status output: $line");
158 foreach my $line (@lines) {
159 chomp ($line);
160 if ($line =~ /^cvs status: Examining (.*)/) {
162 } elsif ($line =~ /^File: no file (.+)\s+Status: (.*)/) {
166 } elsif ($line =~ /^File: (.*\S)\s+Status: (.*)/) {
170 } elsif ($line =~ /^? (.*)/) {
182 msg_warning ("Cannot process cvs status output: $line");
314 foreach my $line (@diff) {
315 chomp ($line);
316 $line = html_encode ($line);
317 if ($line =~ /^---/) {
318 print DIFF "<FONT COLOR=\"green\" SIZE=\"+1\"><b>$line</b></FONT>\n";
319 } elsif ($line =~ /^@@/) {
320 print DIFF "<FONT COLOR=\"red\" SIZE=\"+1\"><b>$line</b></FONT>\n";
321 } elsif ($line =~ /^\+\+\+/) {
322 print DIFF "<FONT COLOR=\"red\" SIZE=\"+1\"><b>$line</b></FONT>\n";
323 } elsif ($line =~ /^\+/) {
324 print DIFF "<FONT COLOR=\"blue\"><b>$line</b></FONT>\n";
325 } elsif ($line =~ /^\*\*\*/) {
326 print DIFF "<FONT COLOR=\"red\" SIZE=\"+1\"><b>$line</b></FONT>\n";
327 } elsif ($line =~ /^-/) {
328 print DIFF "<FONT COLOR=\"brown\">$line</FONT>\n";
330 print DIFF "$line\n";
359 foreach my $line (@diff) {
360 chomp ($line);
361 $line = html_encode ($line);
362 if ($line =~ /^\+/) {
363 print DIFF "<FONT COLOR=\"blue\"><b>$line</b></FONT>\n";
364 } elsif ($line =~ /^---/) {
365 print DIFF "<FONT COLOR=\"green\" SIZE=\"+1\"><b>$line</b></FONT>\n";
366 } elsif ($line =~ /^\*\*\*/) {
367 print DIFF "<FONT COLOR=\"red\" SIZE=\"+1\"><b>$line</b></FONT>\n";
368 } elsif ($line =~ /^-/) {
369 print DIFF "<FONT COLOR=\"brown\">$line</FONT>\n";
370 } elsif ($line =~ /^!/) {
371 print DIFF "<FONT COLOR=\"blue\">$line</FONT>\n";
373 print DIFF "$line\n";
382 # add a line to the array representing either the left of the right side
387 # $start is printed before the line
388 # $line is the line itself
389 # $end is printed to the end of the line
391 # line numbers
395 my $line = shift;
401 if (length ($line) <= $SDIFF_MAX_LINE) {
402 $line = html_encode ($line);
403 push (@$ref, "$start$line$end");
407 my $lstart = substr ($line, 0, $SDIFF_MAX_LINE);
408 $line = substr ($line, $SDIFF_MAX_LINE);
412 while (length($line) > $SDIFF_MAX_LINE) {
413 $lstart = substr ($line, 0, $SDIFF_MAX_LINE);
414 $line = substr ($line, $SDIFF_MAX_LINE);
419 $line = html_encode ($line);
420 $the_line = "$the_line\n$indent_str$line$end";
430 my $line = "";
432 $line = "$line\n";
435 # push (@$ref, "<PRE STYLE=\"margin: 1pt\">$line</PRE>");
436 push (@$ref, $line);
443 my $line = pop (@$ref);
445 $line = "$line\n";
448 push (@$ref, $line);
477 # line numbers on the left and right side
481 my $line = shift (@diff);
482 chomp ($line);
485 if ($line =~ /^\@\@ -([0-9]+),[0-9]+ \+([0-9]+),[0-9]+ \@\@/) {
490 $line = shift (@diff);
491 chomp ($line);
496 if ($line =~ /^\+(.*)/) {
501 $line = shift (@diff);
502 chomp ($line);
508 while ($line =~ /^\-(.*)/) {
510 $line = shift (@diff);
511 chomp ($line);
517 while ($line =~ /^\+(.*)/) {
542 $line = shift (@diff);
543 chomp ($line);
553 if ($line =~ /^[^+-]/) {
554 push_line (\@right, "$right_line ", $line, "", $line_nr_len);
555 push_line (\@left, "$left_line ", $line, "", $line_nr_len);
561 # fetch the next line if exists
563 $line = shift (@diff);
564 chomp ($line);
580 foreach my $line (@left) {
582 print DIFF "<TR><TD BGCOLOR=#DDDDDD><PRE STYLE=\"margin: 1pt;\">$line\n</PRE></TD></TR>\n";
584 print DIFF "<TR><TD><PRE STYLE=\"margin: 1pt;\">$line\n</PRE></TD></TR>\n";
592 foreach my $line (@right) {
594 print DIFF "<TR><TD BGCOLOR=#DDDDDD><PRE STYLE=\"margin: 1pt;\">$line\n</PRE></TD></TR>\n";
596 print DIFF "<TR><TD><PRE STYLE=\"margin: 1pt;\">$line\n</PRE></TD></TR>\n";
642 my $line = shift (@chlog_lines);
643 chomp ($line);
645 if ($line =~ /^\+(\s+\* \S+.*)/) {
648 $line = shift (@chlog_lines);
649 chomp ($line);
653 while (defined ($line) and $line =~ /^\+(\s+[^*].*)/) {
656 $line = shift (@chlog_lines);
657 chomp ($line);
666 unshift (@chlog_lines, $line);
716 print INDEX "$lines new line(s)\n";
724 print INDEX "$lines deleted line(s)\n";
732 print INDEX "$lines new line(s) not under svn control\n";
763 print INDEX "$new_lines line(s) new / $deleted_lines line(s) deleted / $changed_lines line(s) updated / $unchanged_lines line(s) unchanged\n";
779 print INDEX "<P><B>Total</B>: $total_new line(s) new / $total_deleted line(s) deleted / $total_changed line(s) updated / $total_unchanged line(s) unchanged<BR>\n";
781 print INDEX "An additional $total_non_svn line(s) not under source control<P>\n";