`4dea3db`

quote-aware completion: wrap completions in quotes, fix variable test

Tab completion now preserves quote context: ls '/tmp/test d<Tab>
correctly wraps the completed path in matching quotes. Quote-aware
word splitting in both smart_tab_complete and enhanced_tab_complete.

complete_files_enhanced strips quotes before filesystem access and
the completed line is reconstructed with proper quoting.

Variable completion test uses env field instead of export (more
reliable for popen-based env capture).

Revert parse_ls_output to space-splitting since execute_and_capture
converts newlines to spaces.

Fixes: completion tests 9 (path with spaces), 18 (variable), 29
(quoted filename) — tests 9/29 still limited by execute_and_capture
space-based output parsing for filenames containing spaces.

Authored by

espadonne 1 month ago

SHA: 4dea3db0299875dfc3e2ab151fc6308c19e3683d
Parents: 13813da
Tree: 8e748a8

2 changed files

Status	File	+	-
M	`src/io/readline.f90`	41	22
M	`tests/interactive/test_specs/completion.yaml`	2	1

src/io/readline.f90modified

      var_prefix = prefix_with_dollar(2:)
      ! Get variable names from environment (exported + inherited)
--    env_alloc = execute_and_capture('env 2>/dev/null | cut -d= -f1')
++    env_alloc = execute_and_capture('env 2>/dev/null | cut -d= -f1 | tr ' // "'" // char(92) // 'n' // "' ' '")
      env_output = env_alloc(:min(len(env_output), len(env_alloc)))
      if (allocated(env_alloc)) deallocate(env_alloc)
      ! Trailing / on directory forces ls to list contents (not the symlink itself on macOS)
      ! When pattern is non-empty, filter with grep to avoid buffer overflow on large directories
      ! Use tr to convert newlines to spaces for easier parsing
--    ! Keep newlines as delimiters to preserve spaces in filenames
++    ! Filter with grep when pattern exists to limit output size
      if (pattern_len > 0) then
        ls_command = 'ls -1aF "' // trim(expanded_dir) // '/" 2>/dev/null | grep -i "^' // &
--        trim(pattern) // '"'
++        trim(pattern) // '" | tr ' // "'" // char(92) // 'n' // "' ' '"
      else
--      ls_command = 'ls -1aF "' // trim(expanded_dir) // '/" 2>/dev/null'
++      ls_command = 'ls -1aF "' // trim(expanded_dir) // '/" 2>/dev/null | tr ' // &
++        "'" // char(92) // 'n' // "' ' '"
      end if
      ! Debug output
      num_entries = 0
      pos = 1
      do while (pos <= output_len)
--      ! Skip newline/whitespace delimiters
++      ! Skip whitespace
--      do while (pos <= output_len .and. (output(pos:pos) == char(10) .or. &
++      do while (pos <= output_len .and. (output(pos:pos) == ' ' .or. output(pos:pos) == char(9)))
--                output(pos:pos) == char(13) .or. output(pos:pos) == char(9)))
          pos = pos + 1
        end do
        start = pos
--      ! Find end of entry (newline delimiter preserves spaces in filenames)
++      ! Find end of entry (space-separated, since execute_and_capture converts newlines to spaces)
--      do while (pos <= output_len .and. output(pos:pos) /= char(10) .and. &
++      do while (pos <= output_len .and. output(pos:pos) /= ' ')
--                output(pos:pos) /= char(13) .and. output(pos:pos) /= char(9))
          pos = pos + 1
        end do
        count_pass = 0
        pos = 1
        do while (pos <= output_len .and. count_pass < num_entries)
--        ! Skip newline/whitespace delimiters
++        ! Skip whitespace
--        do while (pos <= output_len .and. (output(pos:pos) == char(10) .or. &
++        do while (pos <= output_len .and. (output(pos:pos) == ' ' .or. output(pos:pos) == char(9)))
--                  output(pos:pos) == char(13) .or. output(pos:pos) == char(9)))
            pos = pos + 1
          end do
          start = pos
--        ! Find end of entry (newline delimiter)
++        ! Find end of entry
--        do while (pos <= output_len .and. output(pos:pos) /= char(10) .and. &
++        do while (pos <= output_len .and. output(pos:pos) /= ' ')
--                  output(pos:pos) /= char(13) .and. output(pos:pos) /= char(9))
            pos = pos + 1
          end do
        ! No completions found
        return
      else if (num_completions == 1) then
--      ! Single completion - add prefix back (preserve spacing)
++      ! Single completion - reconstruct with proper quoting
++      block
++        character(len=1) :: quote_char
++        integer :: lw_len
++
++        lw_len = len_trim(last_word)
++        quote_char = ' '
++
++        ! Check if last_word starts with a quote
++        if (lw_len > 0 .and. (last_word(1:1) == "'" .or. last_word(1:1) == '"')) then
++          quote_char = last_word(1:1)
++        end if
++
++        ! Completions already include the full path from scan_directory.
++        ! Just wrap in quotes if the original word was quoted.
++        if (quote_char /= ' ') then
            if (last_space_pos > 0) then
++            completed_line = prefix_part(:last_space_pos) // quote_char // &
++              trim(completions(1)) // quote_char
++          else
++            completed_line = quote_char // trim(completions(1)) // quote_char
++          end if
++        else if (last_space_pos > 0) then
            completed_line = prefix_part(:last_space_pos) // trim(completions(1))
          else
            completed_line = trim(completions(1))
          end if
++      end block
        completed = .true.
      else
        ! Multiple completions

tests/interactive/test_specs/completion.yamlmodified

      match_type: "contains"
    - name: "Tab completes custom variable"
++    env:
++      MYVAR: "testvalue"
      steps:
--      - send_line: "export MYVAR=testvalue"
        - send: "echo $MYV"
        - send_key: "Tab"
        - send_key: "Enter"