Lines Matching +refs:diff +refs:find +refs:text
760 "skipping file: $input_file: Non-text (override with -f)\n";
1405 "To find error messages search for 'WARNING' with your editor\n");
1619 $add_option->( 'closing-side-comment-maximum-text', 'csct', '=i' );
1831 closing-side-comment-maximum-text=20
2226 Warn "cannot find file given with -pro=$config_file: $!\n";
2978 # Couldn't find a config file
3165 Did not see ending quote character <$quote_char> in this text:
3226 Did not see ending quote character <$quote_char> in this text:
3464 -csct=n maximum number of columns of appended text, default n=20
3474 Delete selected text
3480 Send selected text to a '.TEE' file
3520 -pod passes pod text through pod2html (default)
3522 -text=s extra extension for table of contents if -frm, default='toc'
3529 If you are unable to see this entire text, try "perltidy -h | more"
3571 # to append another -c than try to find an interior bundled c, as
4603 # pod text gets diverted if the 'pod2html' is used
4614 "unable to find Pod::Html; cannot use pod2html\n-npod disables this message\n";
4679 # because we still want to put the anchors in the <pre> text.
4808 'hh' => 'here-doc-text',
4812 'pd' => 'pod-text',
4962 ${$rexpansion}{"text"} = ["html-toc-extension"];
5173 # write the pod text to the temporary file
5350 Perl::Tidy::Warn "Did not find INDEX END in pod2html output\n";
5369 # and the text in the right panel.
5560 qq(<link rel="stylesheet" href="$css_linkname" type="text/css" />)
5567 <style type="text/css">
5615 <body bgcolor=\"$rOpts->{'html-color-background'}\" text=\"$rOpts->{'html-color-punctuation'}\">
6568 # POD - pod documentation text
6570 # HERE - text of here-document
6575 # DATA - unidentified text following __DATA__
6577 # END - unidentified text following __END__
6829 # find the position if we break at the '='
6883 # loop to find the first entry at or completely below this level
7504 # might delete some text which has been added. So that must
7806 $rOpts->{'closing-side-comment-maximum-text'};
7975 # and the 'sub' token text may have additional text after it (name of
8974 # $token=text of the token
9506 # Start of section to patch token text
9613 # End of section to patch token text
10433 # find the starting keyword for this block (such as 'if', 'else', ...)
10510 # if we find our closing brace..
10909 # if this is text after closing '}'
10975 # find interior token to pad if necessary
10980 # find any unclosed container
10985 # find next nonblank token to pad
11366 # also find the longest line using this whitespace.
11471 # save text after 'if' and 'elsif' to append after 'else'
11510 # accumulate leading text for -csc, ignoring any side comments
11520 # we can add this text if we don't exceed some limits..
11523 # we must not have already exceeded the text length limit
11529 # or the new length must be below the text length limit
11530 # (ie, we may allow one token to exceed the text length limit)
11566 # add the token text
11571 # show that text was truncated if necessary
11585 # These block types may have text between the keyword and opening
11587 # if/elsif text to be appended.
11597 # the text placed after certain closing block braces.
11600 my $block_leading_text = ""; # the leading text of the last '}'
11632 # restore any leading text saved when we entered this block
11692 # save any leading text before we enter this block
11704 # We were accumulating -csc text for block type
11740 # 'elsif' text. Otherwise, the 'end else' is not helpful,
11761 # create additional -csc text for an 'else' and optionally 'elsif',
11765 # = 0 add 'if' text to trailing else
11788 # always show the leading 'if' text on 'else'
11854 # quoted text because the bounce algorithims in text editors do not
11895 # the text needed to create the closing side comments. Also see
11952 # then make the closing side comment text
11957 # append any extra descriptive text collected above
12335 # @fields - the actual text of the line between the vertical alignment
12422 # if we find a new synchronization token, we are done with
12484 # concatenate the text of the consecutive tokens to form
12531 # for keywords we have to use the actual text
12544 # done with this line .. join text of tokens to make the last field
12746 # find the correct line
12773 # These block types may have text between the keyword and opening
12775 # if/elsif text to be appended.
13535 # lines of output text. It looks for certain tokens which can serve as
13877 # The hash keys in this section are token types, plus the text of
15932 # find lengths of all items in the list to calculate page layout
16315 # # We're in trouble. We can't find a single field width that works.
18410 # BEGINNING of inner loop to find the best next breakpoint
18492 # . "\">\n$text</A>\n"
18493 # : "\n$type$pod2.html\#" . $value . "\">$text<\/A>\n";
18600 # side comment is introduced into formated text, then
18753 # END of inner loop to find the best next breakpoint
18795 # END of inner loop to find the best next breakpoint:
20684 # Now find the opening block brace
20940 # it later if we don't find more than 2 lines
21142 # the buffer must be emptied first, then any cached text
21163 my ($diff) = @_;
21164 if ( $valign_buffer_filling && $diff ) {
21169 my $ws = substr( $line, 0, $diff );
21170 if ( ( length($ws) == $diff ) && $ws =~ /^\s+$/ ) {
21171 $line = substr( $line, $diff );
21173 if ( $leading_space_count >= $diff ) {
21174 $leading_space_count -= $diff;
21175 $level = level_change( $leading_space_count, $diff, $level );
21184 # compute decrease in level when we remove $diff spaces from the
21186 my ( $leading_space_count, $diff, $level ) = @_;
21189 int( ( $leading_space_count + $diff ) / $rOpts_indent_columns );
21856 my $diff =
21858 if ( $diff > 0
21873 my $ws = substr( $test_line, 0, $diff );
21874 if ( ( length($ws) == $diff ) && $ws =~ /^\s+$/ ) {
21876 $test_line = substr( $test_line, $diff );
21877 $cached_line_leading_space_count -= $diff;
21881 $diff, $last_level_written );
21882 reduce_valign_buffer_indentation($diff);
22983 # for backwards compatibility we keep the line text terminated with
22995 # POD - pod documentation text
22997 # HERE - text of here-document
23002 # DATA - unidentified text following __DATA__
23004 # END - unidentified text following __END__
23372 # We need to find the indentation level of the first line of the
23396 # keep looking at lines until we find a hash bang or piece of code
23439 # find leading tabs, spaces, and any statement label
23782 # check for here-docs in replacement text invoked by
23794 write_logfile_entry("scanning replacement text for here-doc targets\n");
23837 # scan the replacement text
24341 # patch for SWITCH/CASE: if we find a stray opening block brace
24682 warning("Program bug; didn't find here doc target\n");
24875 # can use your editor to search for the string "NEW_TOKENS" to find the
24926 # *, then run diff between the output of the previous version and the
25053 # all done if we didn't find it
25056 # save pattern and replacement text for rescanning
25082 # text for here-doc targets.
25215 # didn't find any token; start over
25814 # parameters needed to find indentation. It is much easier to do it
26056 # qw/-text File -underline 0 -menuitems/ => [
26873 # find the closing quote; don't worry about escapes
27104 my $diff =
27115 && ( ( $diff > 0 ) || ( $saw_brace_error <= 0 ) )
27127 if ( $diff == 1 || $diff == -1 ) {
27134 ( $diff > 0 )
27139 Found $diff extra $bname$ess between $opening_brace_names[$aa] on line $sl and $closing_brace_names[$aa] on line $el
27142 if ( $diff > 0 ) {
27289 # we didn't find an ending ? on this line,
27350 # we didn't find an ending / on this line,
27654 warning("didn't find identifier after leading ::\n");
27701 # find $i_beg = index of next nonblank token,
28181 # $self->{text}->{colorMap}->[
28272 $id_scan_state = ')'; # now find the end of it
28678 # we just have to find the next '>' if a term is expected
28796 # didn't find ending >
28927 # find the target of a here document, if any
28932 # $found_target = 0 didn't find target; =1 found target
28970 if ($in_quote) { # didn't find end of quote, so no target found
28974 "Did not find here-doc string terminator ($here_quote_character) before end of line \n"
29044 # 1 - still must find end of quote whose target is $quote_character
29111 # $quoted_string = the text of the quote (without quotation tokens)
29129 # a blank token means we must find and use the first non-blank one
29294 # $str = the text of the line
29429 # find closing character for a pattern
29489 P (unused, but -html uses it to label pod text)
29510 POD - pod documentation text
29512 HERE - text of here-document
29517 DATA - unidentified text following __DATA__
29519 END - unidentified text following __END__
30310 the line type (as determined by perltidy), and the text of the line:
30329 $line_of_tokens->{_line_text} - the text of the line
30335 POD - pod documentation text
30337 HERE - text of here-document
30342 DATA - unidentified text following __DATA__
30344 END - unidentified text following __END__
30376 # pull out the actual token text
30394 and C<$rtokens> is a reference to a corresponding array of token text.
30404 identifier is found, its actual text is checked to see if it is one
30412 to get started is to find one of the examples which most closely matches
30421 F<filename.DEBUG> with interleaved lines of text and their token types.