`4dc60e3`

Fix -f pattern file reading

- Change from formatted to unformatted stream access for byte-by-byte reading
- Fixes issue where only first pattern was read from pattern files
- Properly handle newlines across different platforms

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

SHA: 4dc60e32c5a31a4661cabf2ef13d84221be2d911
Parents: be9dcf3
Tree: e60ae4a

1 changed file

Status	File	+	-
M	`src/ferp_cli.f90`	5	5

src/ferp_cli.f90modified

        return
      end if
 -    ! Validate: need at least one pattern
 -    if (size(patterns) == 0) then
 +    ! Validate: need at least one pattern source (but empty pattern file is valid)
 +    if (.not. has_explicit_pattern) then
        write(error_unit, '(A)') 'ferp: no pattern specified'
        write(error_unit, '(A)') "Try 'ferp --help' for more information."
        ierr = 2
      character(len=1) :: ch
      ierr = 0
 -    ! Use stream access to read exact line lengths (preserving whitespace patterns)
 +    ! Use unformatted stream access for byte-by-byte reading
      open(newunit=unit_num, file=filename, status='old', action='read', &
 -         access='stream', form='formatted', iostat=ios)
 +         access='stream', form='unformatted', iostat=ios)
      if (ios /= 0) then
        write(error_unit, '(A)') 'ferp: ' // trim(filename) // ': No such file or directory'
        ierr = 2
      line = ''
      do
 -      read(unit_num, '(A1)', iostat=ios, advance='no') ch
 +      read(unit_num, iostat=ios) ch
        if (ios /= 0) then
          ! EOF or error - save current line if non-empty
          if (line_len > 0) then