`e34a89e`

Preserve trailing whitespace in output

Remove trim() calls when printing matched lines to preserve trailing
whitespace. This fixes cases where whitespace patterns would not
display correctly in output.

Authored by mfwolffe <wolffemf@dukes.jmu.edu> 4 months ago

SHA: e34a89eddf6bb46e5045c251f030d3faddfb3bff
Parents: 3df9d92
Tree: d338db4

1 changed file

Status	File	+	-
M	`src/ferp_output.f90`	9	9

src/ferp_output.f90modified

        write(output_unit, '(A)', advance='no') char(9)  ! TAB
      end if
 -    ! Print the line
 +    ! Print the line (preserve trailing whitespace)
      if (opts%null_data) then
 -      write(output_unit, '(A,A)', advance='no') trim(line), char(0)
 +      write(output_unit, '(A,A)', advance='no') line, char(0)
      else
 -      write(output_unit, '(A)') trim(line)
 +      write(output_unit, '(A)') line
      end if
      ! Line-buffered mode
        write(output_unit, '(A)', advance='no') char(9)
      end if
 -    ! Print the line
 +    ! Print the line (preserve trailing whitespace)
      if (opts%null_data) then
 -      write(output_unit, '(A,A)', advance='no') trim(line), char(0)
 +      write(output_unit, '(A,A)', advance='no') line, char(0)
      else
 -      write(output_unit, '(A)') trim(line)
 +      write(output_unit, '(A)') line
      end if
      ! Line-buffered mode
          end if
        end if
      else
 -      ! No color - just print the line
 +      ! No color - just print the line (preserve trailing whitespace)
        if (opts%null_data) then
 -        write(output_unit, '(A,A)', advance='no') trim(line), char(0)
 +        write(output_unit, '(A,A)', advance='no') line, char(0)
        else
 -        write(output_unit, '(A)') trim(line)
 +        write(output_unit, '(A)') line
        end if
      end if