Lines Matching full:this_line
131 my $this_line = shift (@lines);
132 chomp $this_line;
134 if ($this_line =~ /^(\s+)/) {
146 elsif (($this_line =~ /^(\s*)\*\s+[a-zA-Z0-9]/)
147 || ($this_line =~ /^(\s*)\* [a-zA-Z0-9_\.\/\+-]+/)
148 || ($this_line =~ /^(\s*)\([a-zA-Z0-9_\.\/\+-]+(\)|,\s*)/)
149 || ($this_line =~ /^(\s+)(\S+)/)
150 || ($this_line =~ /^(\s*)- +/)
151 || ($this_line =~ /^()\s*$/)
152 || ($this_line =~ /^(\s*)\*\) +/)
153 || ($this_line =~ /^(\s*)[a-zA-Z0-9](\)|\.|\:) +/))
160 $this_line =~ s/^\s*//;
163 my $this_len = length ($this_line);
178 if (substr ($this_line, $idx, 1) =~ /\s/)
180 my $line_now = substr ($this_line, 0, $idx);
181 my $next_line = substr ($this_line, $idx);
182 $this_line = $line_now;
185 chomp $this_line;
188 $this_line .= "\n${left_pad_str}";
239 $this_line = "\n${left_pad_str}${this_line}";
244 unshift (@lines, $this_line);
246 $this_line = "\n${left_pad_str}";
255 if ($this_line =~ /\.$/)
257 $this_line .= " ";
262 $this_line .= " ";
270 $wrapped_text .= "${user_indent}${this_line}";
