`c5ced7d`

fixes

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

SHA: c5ced7d76be1466968088018dd973a799e208756
Parents: 7373e0f
Tree: ca166dd

2 changed files

Status	File	+	-
M	`src/ferp_io.f90`	6	1
M	`src/regex/regex_optimizer.f90`	3	11

src/ferp_io.f90modified

      ! Read byte by byte until NUL or EOF
      do
 -      read(this%unit_num, iostat=ios) ch
 +      ! Use formatted read for stdin, unformatted for files
 +      if (this%source_type == SOURCE_STDIN) then
 +        read(this%unit_num, '(A1)', iostat=ios, advance='no') ch
 +      else
 +        read(this%unit_num, iostat=ios) ch
 +      end if
        if (ios == iostat_end) then
          this%eof_reached = .true.

src/regex/regex_optimizer.f90modified

          call next_set%clear()
          ! Compute NFA transitions for this character
 +        ! Note: DFA is case-sensitive. Case-insensitive matching uses NFA path.
          call compute_char_transitions_simple(opt%nfa, opt%dfa%states(dfa_idx)%nfa_states, &
                                               char(char_code), next_set)
 -        ! For alphabetic characters, also compute transitions for opposite case
 -        if (char_code >= ichar('a') .and. char_code <= ichar('z')) then
 -          call compute_char_transitions_simple(opt%nfa, opt%dfa%states(dfa_idx)%nfa_states, &
 -                                               char(char_code - 32), next_set)
 -        else if (char_code >= ichar('A') .and. char_code <= ichar('Z')) then
 -          call compute_char_transitions_simple(opt%nfa, opt%dfa%states(dfa_idx)%nfa_states, &
 -                                               char(char_code + 32), next_set)
 -        end if
+-
          ! Compute epsilon closure of result
          if (.not. next_set%is_empty()) then
            call expand_epsilon_closure_simple(opt, next_set)
      if (opt%nfa%num_states == 0) return
      ! Fast path: use DFA if available (O(n) matching)
 -    ! DFA now supports case-insensitive matching via case-folded transitions
 -    if (opt%use_dfa) then
 +    ! DFA is case-sensitive; case-insensitive matching falls through to NFA path
 +    if (opt%use_dfa .and. .not. ignore_case) then
        res = dfa_search(opt%dfa, text, text_len)
        return
      end if