`f31f4ea`

Preserve CRLF line endings like grep

- Remove CR stripping from mmap line reading
- Remove CR stripping from regular file I/O
- Grep preserves carriage returns in output; ferp now matches

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

SHA: f31f4ea826ea715c510cd3ec5a601eb807944a6b
Parents: d312f5c
Tree: 1e08739

2 changed files

Status	File	+	-
M	`src/ferp_io.f90`	1	6
M	`src/ferp_mmap.f90`	2	14

src/ferp_io.f90modified

        return
      end if
 -    ! Strip trailing carriage return for Windows line endings (\r\n)
 +    ! Get line length (preserve CR like grep)
      line_len = len_trim(buffer)
 -    if (line_len > 0) then
 -      if (buffer(line_len:line_len) == char(13)) then
 -        line_len = line_len - 1
 -      end if
 -    end if
      ! Allocate result string trimmed to actual length
      if (line_len > 0) then

src/ferp_mmap.f90modified

        end_pos = int(newline_pos, c_size_t) + 1
      end if
 -    ! Calculate line length (excluding newline)
 +    ! Calculate line length (excluding newline, but preserving CR like grep)
      line_len = end_pos - start_pos
 -    if (line_len > 0 .and. end_pos > start_pos) then
 -      ! Check for CR before LF (Windows line ending)
 -      if (file_data(end_pos - 1) == char(13)) then
 -        line_len = line_len - 1
 -      end if
 -    end if
      ! Allocate and copy line
      if (line_len > 0) then
          end_pos = int(newline_pos, c_size_t)
        end if
 -      ! Calculate line length (excluding newline and CR)
 +      ! Calculate line length (excluding newline, but preserving CR like grep)
        line_len = end_pos - start_pos
 -      if (line_len > 0 .and. end_pos > start_pos) then
 -        ! Check for CR before LF (Windows line ending)
 -        if (file_data(end_pos) == char(13)) then
 -          line_len = line_len - 1
 -        end if
 -      end if
        ! Store line info
        batch%count = batch%count + 1