conquest/agents/monarch/commands/filesystem.nim

import os, strutils, strformat, base64, winim, times, algorithm

import ../types

# Retrieve current working directory
proc taskPwd*(task: Task): TaskResult = 

    echo fmt"Retrieving current working directory."

    try: 
        
        # Get current working directory using GetCurrentDirectory
        let 
            buffer = newWString(MAX_PATH + 1)
            length = GetCurrentDirectoryW(MAX_PATH, &buffer)
        
        if length == 0:
            raise newException(OSError, fmt"Failed to get working directory ({GetLastError()}).")

        return TaskResult(
            task: task.id, 
            agent: task.agent, 
            data: encode($buffer[0 ..< (int)length] & "\n"),
            status: Completed
        )

    except CatchableError as err: 
        return TaskResult(
            task: task.id, 
            agent: task.agent, 
            data: encode(fmt"An error occured: {err.msg}" & "\n"),
            status: Failed 
        )

# Change working directory
proc taskCd*(task: Task): TaskResult = 

    let targetDirectory = task.args.join(" ").replace("\"", "").replace("'", "")
    echo fmt"Changing current working directory to {targetDirectory}."

    try: 
        # Get current working directory using GetCurrentDirectory
        if SetCurrentDirectoryW(targetDirectory) == FALSE:         
            raise newException(OSError, fmt"Failed to change working directory ({GetLastError()}).")

        return TaskResult(
            task: task.id, 
            agent: task.agent, 
            data: encode(""),
            status: Completed
        )

    except CatchableError as err: 
        return TaskResult(
            task: task.id, 
            agent: task.agent, 
            data: encode(fmt"An error occured: {err.msg}" & "\n"),
            status: Failed 
        )

# List files and directories at a specific or at the current path
proc taskDir*(task: Task): TaskResult = 

    echo fmt"Listing files and directories."

    try: 
        # Check if users wants to list files in the current working directory or at another path
        var targetDirectory = task.args.join(" ").replace("\"", "").replace("'", "")

        if targetDirectory == "": 
            # Get current working directory using GetCurrentDirectory
            let 
                cwdBuffer = newWString(MAX_PATH + 1)
                cwdLength = GetCurrentDirectoryW(MAX_PATH, &cwdBuffer)
            
            if cwdLength == 0:
                raise newException(OSError, fmt"Failed to get working directory ({GetLastError()}).")

            targetDirectory = $cwdBuffer[0 ..< (int)cwdLength]
        
        # Prepare search pattern (target directory + \*)
        let searchPattern = targetDirectory & "\\*"
        let searchPatternW = newWString(searchPattern)
        
        var 
            findData: WIN32_FIND_DATAW
            hFind: HANDLE
            output = ""
            entries: seq[string] = @[]
            totalFiles = 0
            totalDirs = 0
        
        # Find files and directories in target directory
        hFind = FindFirstFileW(searchPatternW, &findData)
        
        if hFind == INVALID_HANDLE_VALUE:
            raise newException(OSError, fmt"Failed to find files ({GetLastError()}).")
        
        # Directory was found and can be listed
        else:
            output = fmt"Directory: {targetDirectory}" & "\n\n"
            output &= "Mode    LastWriteTime            Length Name" & "\n"
            output &= "----    -------------            ------ ----" & "\n"
            
            # Process all files and directories
            while true:
                let fileName = $cast[WideCString](addr findData.cFileName[0])
                
                # Skip current and parent directory entries
                if fileName != "." and fileName != "..":
                    # Get file attributes and size
                    let isDir = (findData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) != 0
                    let isHidden = (findData.dwFileAttributes and FILE_ATTRIBUTE_HIDDEN) != 0
                    let isReadOnly = (findData.dwFileAttributes and FILE_ATTRIBUTE_READONLY) != 0
                    let isArchive = (findData.dwFileAttributes and FILE_ATTRIBUTE_ARCHIVE) != 0
                    let fileSize = (int64(findData.nFileSizeHigh) shl 32) or int64(findData.nFileSizeLow)
                    
                    # Handle flags
                    var mode = ""
                    if isDir:
                        mode = "d"
                        inc totalDirs
                    else:
                        mode = "-"
                        inc totalFiles
                    
                    if isArchive:
                        mode &= "a"
                    else:
                        mode &= "-"
                    
                    if isReadOnly:
                        mode &= "r"
                    else:
                        mode &= "-"
                    
                    if isHidden:
                        mode &= "h"
                    else:
                        mode &= "-"
                    
                    if (findData.dwFileAttributes and FILE_ATTRIBUTE_SYSTEM) != 0:
                        mode &= "s"
                    else:
                        mode &= "-"
                    
                    # Convert FILETIME to local time and format
                    var 
                        localTime: FILETIME
                        systemTime: SYSTEMTIME
                        dateTimeStr = "01/01/1970  00:00:00"
                    
                    if FileTimeToLocalFileTime(&findData.ftLastWriteTime, &localTime) != 0 and FileTimeToSystemTime(&localTime, &systemTime) != 0:
                        # Format date and time in PowerShell style
                        dateTimeStr = fmt"{systemTime.wDay:02d}/{systemTime.wMonth:02d}/{systemTime.wYear}  {systemTime.wHour:02d}:{systemTime.wMinute:02d}:{systemTime.wSecond:02d}"
                    
                    # Format file size
                    var sizeStr = ""
                    if isDir:
                        sizeStr = "<DIR>"
                    else:
                        sizeStr = ($fileSize).replace("-", "")
                    
                    # Build the entry line
                    let entryLine = fmt"{mode:<7} {dateTimeStr:<20} {sizeStr:>10} {fileName}"
                    entries.add(entryLine)
                
                # Find next file
                if FindNextFileW(hFind, &findData) == 0:
                    break
            
            # Close find handle
            discard FindClose(hFind)
            
            # Add entries to output after sorting them (directories first, files afterwards)
            entries.sort do (a, b: string) -> int:
                let aIsDir = a[0] == 'd'
                let bIsDir = b[0] == 'd'
                
                if aIsDir and not bIsDir:
                    return -1
                elif not aIsDir and bIsDir:
                    return 1
                else:
                    # Extract filename for comparison (last part after the last space)
                    let aParts = a.split(" ")
                    let bParts = b.split(" ")
                    let aName = aParts[^1]
                    let bName = bParts[^1]
                    return cmp(aName.toLowerAscii(), bName.toLowerAscii())
            
            for entry in entries:
                output &= entry & "\n"

            # Add summary of how many files/directories have been found
            output &= "\n" & fmt"{totalFiles} file(s)" & "\n"
            output &= fmt"{totalDirs} dir(s)" & "\n"

        return TaskResult(
            task: task.id, 
            agent: task.agent, 
            data: encode(output),
            status: Completed
        )

    except CatchableError as err: 
        return TaskResult(
            task: task.id, 
            agent: task.agent, 
            data: encode(fmt"An error occured: {err.msg}" & "\n"),
            status: Failed 
        )