fortrangoingonforty/fortress / e7598cc

-program fortress_clean

-    use iso_fortran_env, only: output_unit, error_unit

-    implicit none

-

-    ! Constants

-    integer, parameter :: MAX_PATH = 512

-    integer, parameter :: MAX_FILES = 500

-    character(len=*), parameter :: ESC = char(27)

-    character(len=*), parameter :: CLEAR = ESC // "[2J" // ESC // "[H"

-    character(len=*), parameter :: BOLD = ESC // "[1m"

-    character(len=*), parameter :: DIM = ESC // "[2m"

-    character(len=*), parameter :: REVERSE = ESC // "[7m"

-    character(len=*), parameter :: RESET = ESC // "[0m"

-

-    ! Variables

-    character(len=MAX_PATH) :: current_dir, parent_dir, temp_dir

-    character(len=MAX_PATH), dimension(MAX_FILES) :: current_files, parent_files

-    logical, dimension(MAX_FILES) :: current_is_dir, parent_is_dir

-    integer :: current_count, parent_count

-    integer :: selected = 1

-    integer :: parent_selected = -1

-    character(len=1) :: key

-    logical :: running = .true.

-    integer :: i, rows, cols

-

-    ! Initialize

-    current_dir = get_pwd()

-    parent_dir = get_parent_path(current_dir)

-

-    ! Setup terminal

-    call execute_command_line("stty -icanon -echo min 1 time 0 2>/dev/null")

-

-    ! Main loop

-    do while (running)

-        ! Get files

-        call get_file_list(current_dir, current_files, current_is_dir, current_count)

-        call get_file_list(parent_dir, parent_files, parent_is_dir, parent_count)

-

-        ! Find current dir in parent

-        parent_selected = find_in_parent(current_dir, parent_files, parent_count)

-

-        ! Get terminal size

-        call get_term_size(rows, cols)

-

-        ! Draw interface

-        write(output_unit, '(a)', advance='no') CLEAR

-        call draw_interface(rows, cols)

-

-        ! Get input

-        read(*, '(a1)', advance='no') key

-

-        ! Handle input

-        select case(ichar(key))

-        case(27)  ! ESC sequence

-            call read_arrow_key(key)

-            select case(key)

-            case('A')  ! Up

-                if (selected > 1) selected = selected - 1

-            case('B')  ! Down

-                if (selected < current_count) selected = selected + 1

-            case('C')  ! Right - enter

-                if (current_is_dir(selected)) then

-                    if (trim(current_files(selected)) == "..") then

-                        temp_dir = current_dir

-                        current_dir = parent_dir

-                        parent_dir = get_parent_path(current_dir)

-                        selected = max(1, find_in_parent(temp_dir, current_files, MAX_FILES))

-                    else if (trim(current_files(selected)) /= ".") then

-                        parent_dir = current_dir

-                        current_dir = join_path(current_dir, current_files(selected))

-                        selected = 1

-                    end if

-                end if

-            case('D')  ! Left - back

-                if (current_dir /= "/") then

-                    temp_dir = current_dir

-                    current_dir = parent_dir

-                    parent_dir = get_parent_path(current_dir)

-                    selected = max(1, find_in_parent(temp_dir, current_files, MAX_FILES))

-                end if

-            end select

-        case(113, 81)  ! 'q' or 'Q'

-            running = .false.

-        end select

-    end do

-

-    ! Cleanup

-    call execute_command_line("stty icanon echo 2>/dev/null")

-    write(output_unit, '(a)', advance='no') CLEAR

-    write(output_unit, '(a)') "Thanks for using FORTRESS!"

-

-contains

-

-    function get_pwd() result(path)

-        character(len=MAX_PATH) :: path

-        integer :: unit, ios

-

-        call execute_command_line("pwd > .fortress_pwd 2>/dev/null", wait=.true.)

-        open(newunit=unit, file=".fortress_pwd", status='old', iostat=ios)

-        if (ios == 0) then

-            read(unit, '(a)') path

-            close(unit)

-        else

-            path = "."

-        end if

-        call execute_command_line("rm -f .fortress_pwd 2>/dev/null")

-    end function get_pwd

-

-    function get_parent_path(path) result(parent)

-        character(len=*), intent(in) :: path

-        character(len=MAX_PATH) :: parent

-        integer :: pos

-

-        pos = index(path, "/", back=.true.)

-        if (pos > 1) then

-            parent = path(1:pos-1)

-        else if (pos == 1) then

-            parent = "/"

-        else

-            parent = "."

-        end if

-    end function get_parent_path

-

-    function join_path(base, name) result(full)

-        character(len=*), intent(in) :: base, name

-        character(len=MAX_PATH) :: full

-

-        if (base == "/") then

-            full = "/" // trim(name)

-        else

-            full = trim(base) // "/" // trim(name)

-        end if

-    end function join_path

-

-    function find_in_parent(dir, files, count) result(idx)

-        character(len=*), intent(in) :: dir

-        character(len=*), dimension(*), intent(in) :: files

-        integer, intent(in) :: count

-        integer :: idx, pos

-        character(len=256) :: basename

-

-        pos = index(dir, "/", back=.true.)

-        if (pos > 0) then

-            basename = dir(pos+1:)

-        else

-            basename = dir

-        end if

-

-        do idx = 1, count

-            if (trim(files(idx)) == trim(basename)) return

-        end do

-        idx = 1

-    end function find_in_parent

-

-    subroutine get_file_list(dir, files, is_dir, count)

-        character(len=*), intent(in) :: dir

-        character(len=*), dimension(*), intent(out) :: files

-        logical, dimension(*), intent(out) :: is_dir

-        integer, intent(out) :: count

-        integer :: unit, ios, stat

-        character(len=MAX_PATH) :: fullpath

-

-        call execute_command_line("ls -1a '" // trim(dir) // "' > .fortress_ls 2>/dev/null", wait=.true.)

-

-        open(newunit=unit, file=".fortress_ls", status='old', iostat=ios)

-        if (ios /= 0) then

-            count = 0

-            return

-        end if

-

-        count = 0

-        do

-            count = count + 1

-            if (count > MAX_FILES) exit

-            read(unit, '(a)', iostat=ios) files(count)

-            if (ios /= 0) then

-                count = count - 1

-                exit

-            end if

-

-            fullpath = join_path(dir, files(count))

-            call execute_command_line("test -d '" // trim(fullpath) // "'", exitstat=stat, wait=.true.)

-            is_dir(count) = (stat == 0)

-        end do

-

-        close(unit)

-        call execute_command_line("rm -f .fortress_ls 2>/dev/null")

-    end subroutine get_file_list

-

-    subroutine get_term_size(r, c)

-        integer, intent(out) :: r, c

-        integer :: unit, ios

-

-        call execute_command_line("tput lines > .fortress_size 2>/dev/null", wait=.true.)

-        open(newunit=unit, file=".fortress_size", status='old', iostat=ios)

-        if (ios == 0) then

-            read(unit, *) r

-            close(unit)

-        else

-            r = 24

-        end if

-

-        call execute_command_line("tput cols > .fortress_size 2>/dev/null", wait=.true.)

-        open(newunit=unit, file=".fortress_size", status='old', iostat=ios)

-        if (ios == 0) then

-            read(unit, *) c

-            close(unit)

-        else

-            c = 80

-        end if

-

-        call execute_command_line("rm -f .fortress_size 2>/dev/null")

-    end subroutine get_term_size

-

-    subroutine draw_interface(r, c)

-        integer, intent(in) :: r, c

-        integer :: left_w, i

-        character(len=256) :: fname

-

-        left_w = c * 3 / 10

-

-        ! Header

-        write(output_unit, '(a)') BOLD // "FORTRESS" // RESET // " - " // trim(current_dir)

-

-        ! Files

-        do i = 1, min(r-3, max(parent_count, current_count))

-            ! Parent pane

-            if (i <= parent_count) then

-                fname = parent_files(i)

-                if (parent_is_dir(i) .and. fname /= "." .and. fname /= "..") then

-                    fname = trim(fname) // "/"

-                end if

-                if (i == parent_selected) then

-                    write(output_unit, '(a)', advance='no') DIM // BOLD // fname(1:min(len_trim(fname),left_w)) // RESET

-                else

-                    write(output_unit, '(a)', advance='no') DIM // fname(1:min(len_trim(fname),left_w)) // RESET

-                end if

-                write(output_unit, '(a)', advance='no') repeat(" ", max(0, left_w - len_trim(fname)))

-            else

-                write(output_unit, '(a)', advance='no') repeat(" ", left_w)

-            end if

-

-            ! Separator

-            write(output_unit, '(a)', advance='no') " │ "

-

-            ! Current pane

-            if (i <= current_count) then

-                fname = current_files(i)

-                if (current_is_dir(i) .and. fname /= "." .and. fname /= "..") then

-                    fname = trim(fname) // "/"

-                end if

-                if (i == selected) then

-                    write(output_unit, '(a)') REVERSE // trim(fname) // RESET

-                else

-                    write(output_unit, '(a)') trim(fname)

-                end if

-            else

-                write(output_unit, *)

-            end if

-        end do

-

-        ! Footer

-        write(output_unit, '(a,i0,a)') DIM // "↑↓:nav →:enter ←:back q:quit [", selected, "/" // trim(adjustl(char(current_count))) // "]" // RESET

-    end subroutine draw_interface

-

-    subroutine read_arrow_key(k)

-        character(len=1), intent(out) :: k

-        character(len=1) :: ch

-

-        read(*, '(a1)', advance='no') ch

-        if (ch == '[') then

-            read(*, '(a1)', advance='no') k

-        else

-            k = ch

-        end if

-    end subroutine read_arrow_key

-

-end program fortress_clean

-program fortress_v2

-    use iso_fortran_env, only: output_unit

-    implicit none

-

-    ! File entry type

-    type :: file_entry

-        character(len=256) :: name = ""

-        logical :: is_dir = .false.

-    end type file_entry

-

-    ! Constants

-    integer, parameter :: MAX_FILES = 200

-    character(len=*), parameter :: ESC = char(27)

-

-    ! State variables

-    type(file_entry), dimension(MAX_FILES) :: current_files, parent_files

-    integer :: current_count, parent_count

-    integer :: selected = 1

-    character(len=512) :: current_path, parent_path

-    logical :: running = .true.

-    character(len=10) :: key

-    integer :: rows, cols

-    integer :: i

-

-    ! Initialize

-    call get_cwd(current_path)

-    call get_parent(current_path, parent_path)

-

-    ! Setup terminal

-    call system("stty -icanon -echo min 1 time 0")

-    call get_terminal_size(rows, cols)

-

-    ! Main loop

-    do while (running)

-        ! Get directory contents

-        call list_dir(current_path, current_files, current_count)

-        call list_dir(parent_path, parent_files, parent_count)

-

-        ! Draw screen

-        call clear_screen()

-        call draw_header(current_path)

-        call draw_panes(parent_files, parent_count, current_files, current_count, selected, rows, cols)

-        call draw_footer()

-

-        ! Get keyboard input

-        call get_key(key)

-

-        ! Handle input

-        select case(trim(key))

-        case('A')  ! Up arrow

-            if (selected > 1) selected = selected - 1

-        case('B')  ! Down arrow

-            if (selected < current_count) selected = selected + 1

-        case('C')  ! Right arrow - enter directory

-            if (selected <= current_count .and. current_files(selected)%is_dir) then

-                if (trim(current_files(selected)%name) /= ".") then

-                    call change_dir(current_path, current_files(selected)%name, parent_path)

-                    selected = 1

-                end if

-            end if

-        case('D')  ! Left arrow - go to parent

-            if (trim(current_path) /= "/") then

-                current_path = parent_path

-                call get_parent(current_path, parent_path)

-                selected = 1

-            end if

-        case('q', 'Q')

-            running = .false.

-        end select

-    end do

-

-    ! Cleanup

-    call system("stty icanon echo")

-    call clear_screen()

-    write(output_unit, '(a)') "Thanks for using FORTRESS v2!"

-

-contains

-

-    subroutine get_cwd(path)

-        character(len=*), intent(out) :: path

-        integer :: unit, ios

-

-        call execute_command_line("pwd > pwd_temp.txt", wait=.true.)

-        open(newunit=unit, file="pwd_temp.txt", status='old', iostat=ios)

-        if (ios == 0) then

-            read(unit, '(a)') path

-            close(unit)

-        else

-            path = "."

-        end if

-        call execute_command_line("rm -f pwd_temp.txt", wait=.false.)

-    end subroutine get_cwd

-

-    subroutine get_parent(path, parent)

-        character(len=*), intent(in) :: path

-        character(len=*), intent(out) :: parent

-        integer :: last_slash

-

-        last_slash = index(path, '/', back=.true.)

-        if (last_slash > 1) then

-            parent = path(1:last_slash-1)

-        else

-            parent = "/"

-        end if

-    end subroutine get_parent

-

-    subroutine change_dir(current, new_name, parent)

-        character(len=*), intent(inout) :: current

-        character(len=*), intent(in) :: new_name

-        character(len=*), intent(inout) :: parent

-

-        if (trim(new_name) == "..") then

-            if (trim(current) /= "/") then

-                parent = current

-                call get_parent(current, parent)

-                current = parent

-                call get_parent(current, parent)

-            end if

-        else

-            parent = current

-            if (trim(current) == "/") then

-                current = "/" // trim(new_name)

-            else

-                current = trim(current) // "/" // trim(new_name)

-            end if

-        end if

-    end subroutine change_dir

-

-    subroutine list_dir(path, files, count)

-        character(len=*), intent(in) :: path

-        type(file_entry), dimension(MAX_FILES), intent(out) :: files

-        integer, intent(out) :: count

-        integer :: unit, ios

-        character(len=512) :: cmd

-

-        ! Initialize

-        files%name = ""

-        files%is_dir = .false.

-

-        ! List files

-        write(cmd, '(a)') "ls -1a " // trim(path) // " 2>/dev/null > ls_temp.txt"

-        call execute_command_line(trim(cmd), wait=.true.)

-

-        open(newunit=unit, file="ls_temp.txt", status='old', iostat=ios)

-        if (ios /= 0) then

-            count = 0

-            return

-        end if

-

-        count = 0

-        do

-            count = count + 1

-            if (count > MAX_FILES) exit

-            read(unit, '(a)', iostat=ios) files(count)%name

-            if (ios /= 0) then

-                count = count - 1

-                exit

-            end if

-            ! Check if directory

-            call is_directory(path, files(count)%name, files(count)%is_dir)

-        end do

-

-        close(unit)

-        call execute_command_line("rm -f ls_temp.txt", wait=.false.)

-    end subroutine list_dir

-

-    subroutine is_directory(base_path, name, is_dir)

-        character(len=*), intent(in) :: base_path, name

-        logical, intent(out) :: is_dir

-        character(len=512) :: full_path

-        integer :: stat

-

-        if (trim(base_path) == "/") then

-            full_path = "/" // trim(name)

-        else

-            full_path = trim(base_path) // "/" // trim(name)

-        end if

-

-        call execute_command_line("test -d '" // trim(full_path) // "'", &

-                                 exitstat=stat, wait=.true.)

-        is_dir = (stat == 0)

-    end subroutine is_directory

-

-    subroutine get_terminal_size(rows, cols)

-        integer, intent(out) :: rows, cols

-        integer :: unit, ios

-

-        call execute_command_line("tput lines > size_temp.txt", wait=.true.)

-        open(newunit=unit, file="size_temp.txt", status='old', iostat=ios)

-        if (ios == 0) then

-            read(unit, *) rows

-            close(unit)

-        else

-            rows = 24

-        end if

-

-        call execute_command_line("tput cols > size_temp.txt", wait=.true.)

-        open(newunit=unit, file="size_temp.txt", status='old', iostat=ios)

-        if (ios == 0) then

-            read(unit, *) cols

-            close(unit)

-        else

-            cols = 80

-        end if

-

-        call execute_command_line("rm -f size_temp.txt", wait=.false.)

-    end subroutine get_terminal_size

-

-    subroutine clear_screen()

-        write(output_unit, '(a)', advance='no') ESC // "[2J" // ESC // "[H"

-    end subroutine clear_screen

-

-    subroutine draw_header(path)

-        character(len=*), intent(in) :: path

-        write(output_unit, '(a)') ESC // "[1m" // "FORTRESS v2" // ESC // "[0m - " // trim(path)

-        write(output_unit, '(a)') repeat("=", 70)

-    end subroutine draw_header

-

-    subroutine draw_panes(p_files, p_count, c_files, c_count, sel, rows, cols)

-        type(file_entry), dimension(*), intent(in) :: p_files, c_files

-        integer, intent(in) :: p_count, c_count, sel, rows, cols

-        integer :: i

-        integer :: left_width, right_width

-        character(len=30) :: left_text

-        character(len=50) :: right_text

-

-        left_width = cols * 3 / 10

-        right_width = cols - left_width - 3

-

-        do i = 1, min(rows - 5, max(p_count, c_count))

-            ! Left pane

-            if (i <= p_count) then

-                left_text = p_files(i)%name

-                if (p_files(i)%is_dir .and. trim(left_text) /= "." .and. trim(left_text) /= "..") then

-                    left_text = trim(left_text) // "/"

-                end if

-                if (len_trim(left_text) > left_width) then

-                    left_text = left_text(1:left_width-3) // "..."

-                end if

-                write(output_unit, '(a)', advance='no') ESC // "[2m" // left_text(1:left_width) // ESC // "[0m"

-            else

-                write(output_unit, '(a)', advance='no') repeat(" ", left_width)

-            end if

-

-            ! Separator

-            write(output_unit, '(a)', advance='no') " | "

-

-            ! Right pane

-            if (i <= c_count) then

-                right_text = c_files(i)%name

-                if (c_files(i)%is_dir .and. trim(right_text) /= "." .and. trim(right_text) /= "..") then

-                    right_text = trim(right_text) // "/"

-                end if

-

-                if (i == sel) then

-                    write(output_unit, '(a)') ESC // "[7m" // trim(right_text) // ESC // "[0m"

-                else

-                    write(output_unit, '(a)') trim(right_text)

-                end if

-            else

-                write(output_unit, *)

-            end if

-        end do

-    end subroutine draw_panes

-

-    subroutine draw_footer()

-        write(output_unit, *)

-        write(output_unit, '(a)') ESC // "[2m" // "↑↓: navigate | →: enter | ←: back | q: quit" // ESC // "[0m"

-    end subroutine draw_footer

-

-    subroutine get_key(key)

-        character(len=*), intent(out) :: key

-        character(len=1) :: ch

-

-        key = ""

-        read(*, '(a1)', advance='no', iostat=i) ch

-

-        if (ch == ESC) then

-            read(*, '(a1)', advance='no', iostat=i) ch

-            if (ch == '[') then

-                read(*, '(a1)', advance='no', iostat=i) ch

-                key = ch

-            end if

-        else

-            key = ch

-        end if

-    end subroutine get_key

-

-end program fortress_v2

-program fortress_main

-    use terminal_screen, only: init_screen, cleanup_screen, clear_screen

-    use terminal_input, only: get_key, KEY_UP, KEY_DOWN, KEY_LEFT, KEY_RIGHT, KEY_ENTER, KEY_QUIT

-    use filesystem_ops, only: list_directory, get_parent_dir, get_current_dir, is_directory, &

-                              file_entry, MAX_FILES

-    use ui_panes_buffered, only: draw_panes_buffered

-

-    logical :: running

-    logical :: needs_full_redraw

-    integer :: key

-    character(len=256) :: current_dir

-    character(len=256) :: parent_dir

-    character(len=256) :: new_dir

-    integer :: selected_index

-    integer :: parent_selected_index

-    type(file_entry), dimension(MAX_FILES) :: current_files, parent_files

-    integer :: file_count, parent_file_count, i

-    character(len=256) :: base_name

-    ! Initialize

-    running = .true.

-    needs_full_redraw = .true.

-    selected_index = 1

-    parent_selected_index = 1

-    current_dir = get_current_dir()

-    parent_dir = get_parent_dir(current_dir)

-    ! Set up terminal

-    call init_screen()

-    ! Initial clear screen

-    call clear_screen()

-        ! Get current directory contents

-        current_files = list_directory(current_dir)

-        parent_files = list_directory(parent_dir)

-

-        ! Count actual files

-        file_count = 0

-        do i = 1, MAX_FILES

-            if (len_trim(current_files(i)%name) == 0) exit

-            file_count = i

-        end do

-        parent_file_count = 0

-        do i = 1, MAX_FILES

-            if (len_trim(parent_files(i)%name) == 0) exit

-            parent_file_count = i

-        ! Find current directory in parent listing for highlighting

-        call get_basename(current_dir, base_name)

-        parent_selected_index = 1

-        do i = 1, parent_file_count

-            if (trim(parent_files(i)%name) == trim(base_name)) then

-                parent_selected_index = i

-        ! Only clear screen if needed (reduces flashing)

-        if (needs_full_redraw) then

-            call clear_screen()

-            needs_full_redraw = .false.

-        call draw_panes_buffered(parent_dir, current_dir, selected_index, parent_selected_index)

-        key = get_key()

-        select case(key)

-        case(KEY_UP)

-            if (selected_index > 1) then

-                selected_index = selected_index - 1

-            end if

-        case(KEY_DOWN)

-            if (selected_index < file_count) then

-                selected_index = selected_index + 1

-            end if

-        case(KEY_LEFT)

-            ! Go to parent directory

-            if (trim(current_dir) /= "/") then

-                current_dir = parent_dir

-                parent_dir = get_parent_dir(current_dir)

-                selected_index = parent_selected_index

-                needs_full_redraw = .true.

-            end if

-        case(KEY_RIGHT, KEY_ENTER)

-            ! Enter directory or open file

-            if (selected_index <= file_count) then

-                if (current_files(selected_index)%is_dir) then

-                    ! Navigate into directory

-                    if (trim(current_files(selected_index)%name) == "..") then

-                        ! Same as pressing left arrow

-                        if (trim(current_dir) /= "/") then

-                            current_dir = parent_dir

-                            parent_dir = get_parent_dir(current_dir)

-                            selected_index = parent_selected_index

-                            needs_full_redraw = .true.

-                        end if

-                    else if (trim(current_files(selected_index)%name) /= ".") then

-                        ! Enter subdirectory

-                        new_dir = trim(current_dir) // "/" // trim(current_files(selected_index)%name)

-                        if (is_directory(new_dir)) then

-                            parent_dir = current_dir

-                            current_dir = new_dir

-                            selected_index = 1

-                            needs_full_redraw = .true.

-                        end if

-                    end if

-                    ! Open file - TODO: implement file opening with $EDITOR

-        case(KEY_QUIT)

-            running = .false.

-        end select

-    end do

-    ! Cleanup

-    call cleanup_screen()

-    write(output_unit, *) "Thanks for using FORTRESS!"

-contains

-    subroutine get_basename(path, basename)

-        character(len=*), intent(in) :: path

-        character(len=*), intent(out) :: basename

-        integer :: last_slash

-        last_slash = index(path, '/', back=.true.)

-        if (last_slash > 0 .and. last_slash < len_trim(path)) then

-            basename = path(last_slash+1:)

-            basename = path

-    end subroutine get_basename

-end program fortress_main

-program simple_fortress

-    use iso_fortran_env, only: output_unit, input_unit

-    implicit none

-

-    character(len=256) :: current_path

-    character(len=256) :: parent_path

-    character(len=256), dimension(100) :: files

-    character(len=256), dimension(100) :: parent_files

-    integer :: num_files, num_parent_files

-    integer :: selected = 1

-    integer :: i

-    character(len=1) :: key

-    logical :: running = .true.

-

-    ! Start in current directory

-    current_path = "."

-    parent_path = ".."

-

-    ! Main loop

-    do while (running)

-        ! Get file lists

-        call get_files(current_path, files, num_files)

-        call get_files(parent_path, parent_files, num_parent_files)

-

-        ! Clear screen (simple way)

-        write(output_unit, '(a)') char(27) // "[2J" // char(27) // "[H"

-

-        ! Draw header

-        write(output_unit, '(a)') "FORTRESS - Simple File Browser"

-        write(output_unit, '(a)') "=============================="

-        write(output_unit, *)

-

-        ! Draw files in two columns

-        write(output_unit, '(a)') "Parent Directory          | Current Directory"

-        write(output_unit, '(a)') "------------------------- | -------------------------"

-

-        do i = 1, max(num_parent_files, num_files)

-            if (i <= num_parent_files) then

-                write(output_unit, '(a25)', advance='no') adjustl(parent_files(i))

-            else

-                write(output_unit, '(a25)', advance='no') " "

-            end if

-

-            write(output_unit, '(a)', advance='no') " | "

-

-            if (i <= num_files) then

-                if (i == selected) then

-                    write(output_unit, '(a)') "> " // trim(files(i))

-                else

-                    write(output_unit, '(a)') "  " // trim(files(i))

-                end if

-            else

-                write(output_unit, *)

-            end if

-        end do

-

-        ! Show controls

-        write(output_unit, *)

-        write(output_unit, '(a)') "Controls: j=down, k=up, q=quit"

-        write(output_unit, '(a)', advance='no') "Command: "

-

-        ! Get input

-        read(input_unit, '(a1)') key

-

-        select case(key)

-        case('j', 'J')

-            if (selected < num_files) selected = selected + 1

-        case('k', 'K')

-            if (selected > 1) selected = selected - 1

-        case('q', 'Q')

-            running = .false.

-        end select

-    end do

-

-    write(output_unit, '(a)') "Goodbye!"

-

-contains

-

-    subroutine get_files(path, file_list, count)

-        character(len=*), intent(in) :: path

-        character(len=256), dimension(100), intent(out) :: file_list

-        integer, intent(out) :: count

-

-        character(len=512) :: cmd

-        character(len=256) :: temp_file

-        integer :: unit, ios

-

-        ! Create temp file name

-        temp_file = "temp_files.txt"

-

-        ! List files to temp file

-        write(cmd, '(a)') "ls -1 " // trim(path) // " > " // trim(temp_file) // " 2>/dev/null"

-        call execute_command_line(cmd, wait=.true.)

-

-        ! Read files

-        open(newunit=unit, file=temp_file, status='old', iostat=ios)

-        if (ios /= 0) then

-            count = 0

-            return

-        end if

-

-        count = 0

-        do

-            count = count + 1

-            if (count > 100) exit

-            read(unit, '(a)', iostat=ios) file_list(count)

-            if (ios /= 0) then

-                count = count - 1

-                exit

-            end if

-        end do

-

-        close(unit)

-

-        ! Clean up

-        call execute_command_line("rm -f " // trim(temp_file), wait=.false.)

-    end subroutine get_files

-

-end program simple_fortress

-program test_right_pane

-    use terminal_screen, only: init_screen, cleanup_screen, clear_screen

-    use ui_panes_buffered, only: draw_panes_buffered

-

-    implicit none

-    character(len=256) :: current_dir, parent_dir

-

-    ! Set test directories

-    current_dir = "."

-    parent_dir = ".."

-

-    ! Initialize screen

-    call init_screen()

-    call clear_screen()

-

-    ! Draw the panes with buffered rendering

-    write(*, '(a)') "Testing buffered rendering - both panes should show files:"

-    write(*, *)

-

-    call draw_panes_buffered(parent_dir, current_dir, 2, 1)

-

-    ! Wait for user input

-    write(*, *)

-    write(*, '(a)') "Press Enter to exit test..."

-    read(*, *)

-

-    ! Cleanup

-    call cleanup_screen()

-    write(*, '(a)') "Test complete - if you saw files in both panes, buffered rendering works!"

-

-end program test_right_pane