kenaz 0.3.22 → 0.3.24

package/core/dev/scripts/dev_agent_scheduler.ps1

@@ -1,536 +0,0 @@
-# ============================================================
-# Dev Agent Scheduler - Self-Enhancement Mode
-# ============================================================
-# 自我增強迭代模式：
-# 1. 執行 /dev 完成開發任務
-# 2. 當沒有 pending tasks 時，呼叫 /產品檢視 分析專案
-# 3. 根據分析結果決定繼續迭代或結束
-# ============================================================
-
-param(
-    [int]$InitialDelaySeconds = 30,
-    [int]$IntervalMinutes = 20,
-    [int]$EarlyFinishDelaySeconds = 30,
-    [int]$TotalRuns = 16,
-    [int]$MaxEnhancementCycles = 3,   # 最大自我增強循環次數
-    [string]$WorkingDirectory,        # 工作目錄
-    [switch]$nopause                  # 從 Tauri 調用時使用（跳過暫停）
-)
-
-# Helper function to normalize Windows extended path format (\\?\)
-function Get-NormalizedPath {
-    param([string]$Path)
-    if ($Path -and $Path.StartsWith("\\?\")) {
-        return $Path.Substring(4)
-    }
-    return $Path
-}
-
-# Use KENAZ_PROJECT_PATH env var if WorkingDirectory not specified
-if (-not $WorkingDirectory) {
-    if ($env:KENAZ_PROJECT_PATH) {
-        $WorkingDirectory = $env:KENAZ_PROJECT_PATH
-    } else {
-        $WorkingDirectory = (Get-Location).Path
-    }
-}
-
-# Normalize WorkingDirectory to handle \\?\ prefix from Tauri
-$WorkingDirectory = Get-NormalizedPath $WorkingDirectory
-
-# Config
-$LogFile = Join-Path $WorkingDirectory "dev\pipeline\logs\scheduler_$(Get-Date -Format 'yyyy-MM-dd').log"
-$StatusFile = Join-Path $WorkingDirectory "dev\pipeline\SELF_ENHANCEMENT_STATUS.json"
-
-# Ensure log directory exists
-$LogDir = Split-Path $LogFile -Parent
-if (-not (Test-Path $LogDir)) {
-    New-Item -ItemType Directory -Path $LogDir -Force | Out-Null
-}
-
-function Write-Log {
-    param([string]$Message, [switch]$NoConsole)
-    $Timestamp = Get-Date -Format "yyyy-MM-dd HH:mm:ss"
-    $LogMessage = "[$Timestamp] $Message"
-    if (-not $NoConsole) {
-        Write-Host $LogMessage
-    }
-    Add-Content -Path $LogFile -Value $LogMessage -Encoding UTF8
-}
-
-function Get-ProgressInfo {
-    $ProgressFile = Join-Path $WorkingDirectory "dev\pipeline\PROGRESS.md"
-
-    $info = @{
-        HasPendingTasks = $false
-        CurrentTask = $null
-        NextTask = $null
-        Completed = 0
-        Total = 0
-        Pending = 0
-        InProgress = 0
-    }
-
-    if (-not (Test-Path $ProgressFile)) {
-        $info.HasPendingTasks = $true
-        return $info
-    }
-
-    try {
-        $Content = Get-Content $ProgressFile -Raw -Encoding UTF8
-
-        # Count from statistics section
-        $lines = $Content -split "`n"
-        foreach ($line in $lines) {
-            # 分開處理 Total 匹配，避免 -or 導致 $Matches 混亂
-            if ($line -match "Total.*?:\s*(\d+)") {
-                $info.Total = [int]$Matches[1]
-            }
-            elseif (($line -match "task") -and ($line -match ":\s*(\d+)\s*$")) {
-                $info.Total = [int]$Matches[1]
-            }
-
-            # 分開處理完成數匹配
-            if (($line -match "complet" -or $line -match "done") -and ($line -match "(\d+)\s*\(\d+%\)")) {
-                $info.Completed = [int]$Matches[1]
-            }
-        }
-
-        # Check tasks directory for pending count
-        $tasksDir = Join-Path $WorkingDirectory "dev\pipeline\tasks"
-        if (Test-Path $tasksDir) {
-            $taskFiles = Get-ChildItem -Path $tasksDir -Filter "TASK_*.md" -ErrorAction SilentlyContinue
-            $info.Pending = $taskFiles.Count
-            if ($info.Pending -gt 0) {
-                $info.HasPendingTasks = $true
-
-                $firstTask = $taskFiles | Sort-Object Name | Select-Object -First 1
-                if ($firstTask) {
-                    $taskId = $firstTask.BaseName -replace '_.*$', ''
-                    $taskName = $firstTask.BaseName -replace '^TASK_\d+_', '' -replace '_', ' '
-                    $info.NextTask = "${taskId}: $taskName"
-                }
-            }
-        }
-
-        # Check completed directory
-        $completedDir = Join-Path $WorkingDirectory "dev\pipeline\completed"
-        if (Test-Path $completedDir) {
-            $completedFiles = Get-ChildItem -Path $completedDir -Filter "TASK_*.md" -ErrorAction SilentlyContinue
-            $info.Completed = $completedFiles.Count
-        }
-
-        if ($info.Total -eq 0) {
-            $info.Total = $info.Pending + $info.Completed + $info.InProgress
-        }
-
-        # Check for status markers in table format
-        if ($Content -match "\|\s*pending\s*\|") {
-            $info.HasPendingTasks = $true
-        }
-        if ($Content -match "\|\s*in_progress\s*\|") {
-            $info.HasPendingTasks = $true
-            $info.InProgress = 1
-        }
-
-        if ($Content -match "\|\s*P[0-2]\s*\|\s*(TASK_\d+)\s*\|([^|]+)\|\s*pending\s*\|") {
-            $info.NextTask = "$($Matches[1]): $($Matches[2].Trim())"
-        }
-
-    } catch {
-        Write-Log "Error reading PROGRESS.md: $_"
-        $info.HasPendingTasks = $true
-    }
-
-    return $info
-}
-
-function Show-ProgressStatus {
-    $info = Get-ProgressInfo
-
-    Write-Host ""
-    Write-Host "------------------------------------------------------------"
-    Write-Host "  Progress: $($info.Completed) / $($info.Total) completed ($($info.Pending) pending)"
-
-    if ($info.CurrentTask) {
-        Write-Host "  Current:  $($info.CurrentTask)" -ForegroundColor Yellow
-    }
-    if ($info.NextTask) {
-        Write-Host "  Next:     $($info.NextTask)" -ForegroundColor Cyan
-    }
-    Write-Host "------------------------------------------------------------"
-    Write-Host ""
-
-    return $info
-}
-
-function Test-HasPendingTasks {
-    $info = Get-ProgressInfo
-    return $info.HasPendingTasks
-}
-
-function Invoke-DevAgent {
-    param(
-        [int]$RunNumber,
-        [int]$TimeoutMinutes = 60
-    )
-
-    Write-Log "=========================================="
-    Write-Log "Starting Dev Agent (Run $RunNumber / $TotalRuns)"
-    Write-Log "=========================================="
-
-    try {
-        Push-Location $WorkingDirectory
-
-        $Command = "claude"
-        $Arguments = "--dangerously-skip-permissions /dev"
-        Write-Log "Command: $Command $Arguments"
-
-        # 使用 Start-Process 配合超時機制
-        $pinfo = New-Object System.Diagnostics.ProcessStartInfo
-        $pinfo.FileName = $Command
-        $pinfo.Arguments = $Arguments
-        $pinfo.RedirectStandardOutput = $true
-        $pinfo.RedirectStandardError = $true
-        $pinfo.UseShellExecute = $false
-        $pinfo.WorkingDirectory = $WorkingDirectory
-
-        $process = New-Object System.Diagnostics.Process
-        $process.StartInfo = $pinfo
-        $process.Start() | Out-Null
-
-        $TimeoutMs = $TimeoutMinutes * 60 * 1000
-        $completed = $process.WaitForExit($TimeoutMs)
-
-        if (-not $completed) {
-            Write-Log "WARNING: Command timed out after $TimeoutMinutes minutes. Killing process..."
-            $process.Kill()
-            Write-Log "Process killed due to timeout"
-        } else {
-            $stdout = $process.StandardOutput.ReadToEnd()
-            $stderr = $process.StandardError.ReadToEnd()
-
-            if ($stdout) {
-                Write-Log "Output: $($stdout.Substring(0, [Math]::Min(500, $stdout.Length)))..." -NoConsole
-            }
-            if ($stderr) {
-                Write-Log "Stderr: $stderr"
-            }
-            Write-Log "Execution completed with exit code: $($process.ExitCode)"
-        }
-
-    } catch {
-        Write-Log "Error: $_"
-    } finally {
-        Pop-Location
-    }
-
-    Write-Log "Run $RunNumber finished"
-    Write-Log ""
-}
-
-function Invoke-ProductReview {
-    param(
-        [int]$TimeoutMinutes = 30
-    )
-
-    Write-Log "=========================================="
-    Write-Log "Starting Product Review (Self-Enhancement)"
-    Write-Log "=========================================="
-
-    try {
-        Push-Location $WorkingDirectory
-
-        # 備份舊的狀態文件而非直接刪除
-        if (Test-Path $StatusFile) {
-            $backupFile = "${StatusFile}.bak"
-            Move-Item $StatusFile $backupFile -Force
-            Write-Log "Backed up previous status file"
-        }
-
-        # 使用英文指令避免 PowerShell 編碼問題
-        $Command = "claude"
-        $Arguments = '--dangerously-skip-permissions /product-review'
-        Write-Log "Command: $Command $Arguments"
-
-        # 使用 Start-Process 配合超時機制
-        $pinfo = New-Object System.Diagnostics.ProcessStartInfo
-        $pinfo.FileName = $Command
-        $pinfo.Arguments = $Arguments
-        $pinfo.RedirectStandardOutput = $true
-        $pinfo.RedirectStandardError = $true
-        $pinfo.UseShellExecute = $false
-        $pinfo.WorkingDirectory = $WorkingDirectory
-        $pinfo.StandardOutputEncoding = [System.Text.Encoding]::UTF8
-        $pinfo.StandardErrorEncoding = [System.Text.Encoding]::UTF8
-
-        $process = New-Object System.Diagnostics.Process
-        $process.StartInfo = $pinfo
-        $process.Start() | Out-Null
-
-        $TimeoutMs = $TimeoutMinutes * 60 * 1000
-        $completed = $process.WaitForExit($TimeoutMs)
-
-        if (-not $completed) {
-            Write-Log "WARNING: Product Review timed out after $TimeoutMinutes minutes. Killing process..."
-            $process.Kill()
-            Write-Log "Process killed due to timeout"
-
-            # 如果超時，恢復備份的狀態文件
-            $backupFile = "${StatusFile}.bak"
-            if (Test-Path $backupFile) {
-                Move-Item $backupFile $StatusFile -Force
-                Write-Log "Restored previous status file due to timeout"
-            }
-        } else {
-            $stdout = $process.StandardOutput.ReadToEnd()
-            $stderr = $process.StandardError.ReadToEnd()
-
-            if ($stdout) {
-                Write-Log "Output: $($stdout.Substring(0, [Math]::Min(500, $stdout.Length)))..." -NoConsole
-            }
-            if ($stderr) {
-                Write-Log "Stderr: $stderr"
-            }
-            Write-Log "Product Review completed with exit code: $($process.ExitCode)"
-        }
-
-    } catch {
-        Write-Log "Error in Product Review: $_"
-
-        # 發生錯誤時恢復備份
-        $backupFile = "${StatusFile}.bak"
-        if (Test-Path $backupFile) {
-            Move-Item $backupFile $StatusFile -Force
-            Write-Log "Restored previous status file due to error"
-        }
-    } finally {
-        Pop-Location
-    }
-}
-
-function Get-EnhancementStatus {
-    if (-not (Test-Path $StatusFile)) {
-        return @{
-            Status = "unknown"
-            Decision = "Status file not found"
-        }
-    }
-
-    try {
-        $Content = Get-Content $StatusFile -Raw -Encoding UTF8
-        $Json = $Content | ConvertFrom-Json
-        return @{
-            Status = $Json.status
-            Decision = $Json.decision
-            Reason = $Json.reason
-            NewTasks = $Json.new_tasks
-        }
-    } catch {
-        Write-Log "Error reading status file: $_"
-        return @{
-            Status = "error"
-            Decision = "Failed to parse status file"
-        }
-    }
-}
-
-# ============================================================
-# Main
-# ============================================================
-
-Clear-Host
-Write-Host ""
-Write-Host "============================================================"
-Write-Host "     Dev Agent Scheduler - Self-Enhancement Mode"
-Write-Host "============================================================"
-Write-Host "  Initial Delay: $InitialDelaySeconds seconds"
-Write-Host "  Interval: $IntervalMinutes minutes (or ${EarlyFinishDelaySeconds}s if finished early)"
-Write-Host "  Total Runs: $TotalRuns"
-Write-Host "  Max Enhancement Cycles: $MaxEnhancementCycles"
-Write-Host "  Working Dir: $WorkingDirectory"
-Write-Host "============================================================"
-Write-Host ""
-
-Write-Log "Scheduler started (Self-Enhancement Mode)"
-Write-Log "Config: InitialDelay=${InitialDelaySeconds}s, Interval=${IntervalMinutes}min, MaxCycles=$MaxEnhancementCycles"
-
-# Execute schedule with self-enhancement
-$RunCount = 0
-$EnhancementCycle = 0
-$StoppedEarly = $false
-$ProjectComplete = $false
-$global:HasSuggestions = $false  # 是否有優化建議
-$IntervalSeconds = $IntervalMinutes * 60
-$LastRunStart = Get-Date  # 初始化以避免未定義變數錯誤
-
-while ($RunCount -lt $TotalRuns -and -not $ProjectComplete) {
-    $RunCount++
-
-    # Check if there are pending tasks before waiting
-    $progressInfo = Show-ProgressStatus
-
-    if (-not $progressInfo.HasPendingTasks) {
-        # ============================================================
-        # 自我增強模式：沒有 pending tasks，執行產品檢視
-        # ============================================================
-
-        if ($EnhancementCycle -ge $MaxEnhancementCycles) {
-            Write-Log "=========================================="
-            Write-Log "Max enhancement cycles ($MaxEnhancementCycles) reached!"
-            Write-Log "Stopping to prevent infinite loop."
-            Write-Log "=========================================="
-            $StoppedEarly = $true
-            break
-        }
-
-        $EnhancementCycle++
-        Write-Host ""
-        Write-Host "============================================================" -ForegroundColor Magenta
-        Write-Host "  Self-Enhancement Cycle $EnhancementCycle / $MaxEnhancementCycles" -ForegroundColor Magenta
-        Write-Host "  No pending tasks - Running Product Review..." -ForegroundColor Magenta
-        Write-Host "============================================================" -ForegroundColor Magenta
-        Write-Host ""
-
-        Write-Log "Self-Enhancement Cycle ${EnhancementCycle} - Running Product Review"
-
-        Invoke-ProductReview
-
-        # 檢查決策結果
-        $enhancementStatus = Get-EnhancementStatus
-
-        Write-Host ""
-        Write-Host "------------------------------------------------------------"
-        $statusColor = switch ($enhancementStatus.Status) {
-            "complete" { "Green" }
-            "complete_with_suggestions" { "Cyan" }
-            default { "Yellow" }
-        }
-        Write-Host "  Enhancement Decision: $($enhancementStatus.Status)" -ForegroundColor $statusColor
-        Write-Host "  Reason: $($enhancementStatus.Decision)"
-        if ($enhancementStatus.NewTasks) {
-            Write-Host "  New Tasks: $($enhancementStatus.NewTasks -join ', ')" -ForegroundColor Cyan
-        }
-        Write-Host "------------------------------------------------------------"
-        Write-Host ""
-
-        if ($enhancementStatus.Status -eq "complete") {
-            Write-Log "=========================================="
-            Write-Log "PROJECT COMPLETE!"
-            Write-Log "Decision: $($enhancementStatus.Decision)"
-            Write-Log "Reason: $($enhancementStatus.Reason)"
-            Write-Log "=========================================="
-            $ProjectComplete = $true
-            break
-        }
-
-        if ($enhancementStatus.Status -eq "complete_with_suggestions") {
-            Write-Log "=========================================="
-            Write-Log "PROJECT COMPLETE (with optimization suggestions)"
-            Write-Log "Decision: $($enhancementStatus.Decision)"
-            Write-Log "Reason: $($enhancementStatus.Reason)"
-            Write-Log "Check SELF_ENHANCEMENT_STATUS.json for suggestions"
-            Write-Log "=========================================="
-            $ProjectComplete = $true
-            $global:HasSuggestions = $true
-            break
-        }
-
-        if ($enhancementStatus.Status -eq "continue") {
-            Write-Log "Enhancement added new tasks. Continuing development..."
-            # 重新檢查 pending tasks
-            $progressInfo = Get-ProgressInfo
-            if (-not $progressInfo.HasPendingTasks) {
-                Write-Log "Warning: Status says continue but no new tasks found. Stopping."
-                $StoppedEarly = $true
-                break
-            }
-        } else {
-            Write-Log "Unknown enhancement status: $($enhancementStatus.Status). Stopping."
-            $StoppedEarly = $true
-            break
-        }
-    }
-
-    # Determine wait time
-    if ($RunCount -eq 1) {
-        $WaitSeconds = $InitialDelaySeconds
-    } else {
-        $ElapsedSeconds = ((Get-Date) - $LastRunStart).TotalSeconds
-
-        if ($ElapsedSeconds -lt $IntervalSeconds) {
-            $WaitSeconds = $EarlyFinishDelaySeconds
-            Write-Log "Previous run finished early, waiting ${EarlyFinishDelaySeconds}s"
-        } else {
-            $WaitSeconds = 0
-        }
-    }
-
-    if ($WaitSeconds -gt 0) {
-        $TargetTime = (Get-Date).AddSeconds($WaitSeconds)
-        Write-Host ""
-        Write-Host "Waiting... Next run (${RunCount}/${TotalRuns}): $($TargetTime.ToString('HH:mm:ss')) ($WaitSeconds seconds)"
-        Write-Host "Press Ctrl+C to cancel"
-        Write-Host ""
-
-        while ((Get-Date) -lt $TargetTime) {
-            $Remaining = ($TargetTime - (Get-Date)).TotalSeconds
-            $Minutes = [math]::Floor($Remaining / 60)
-            $Seconds = [math]::Floor($Remaining % 60)
-            Write-Host -NoNewline "`r   Remaining: $($Minutes.ToString('00')):$($Seconds.ToString('00'))   "
-            Start-Sleep -Seconds 1
-        }
-        Write-Host ""
-    }
-
-    $LastRunStart = Get-Date
-
-    # Log current task info
-    $taskInfo = Get-ProgressInfo
-    if ($taskInfo.NextTask) {
-        Write-Log "Target task: $($taskInfo.NextTask)"
-    }
-
-    Invoke-DevAgent -RunNumber $RunCount
-
-    # Check again after execution
-    if (-not (Test-HasPendingTasks)) {
-        Write-Log "All current tasks completed. Will check for enhancement..."
-        # 讓下一個循環處理自我增強
-        continue
-    }
-}
-
-# ============================================================
-# 結束摘要
-# ============================================================
-
-Write-Host ""
-Write-Host "============================================================"
-if ($ProjectComplete -and $global:HasSuggestions) {
-    Write-Host "        PROJECT COMPLETE (with suggestions)" -ForegroundColor Cyan
-    Write-Host "  All PRODUCT_SPEC requirements fulfilled." -ForegroundColor Green
-    Write-Host "  AI has optimization suggestions for review." -ForegroundColor Yellow
-    Write-Host "  See: dev/pipeline/SELF_ENHANCEMENT_STATUS.json" -ForegroundColor Yellow
-} elseif ($ProjectComplete) {
-    Write-Host "        PROJECT COMPLETE!" -ForegroundColor Green
-    Write-Host "  All PRODUCT_SPEC requirements fulfilled." -ForegroundColor Green
-} elseif ($StoppedEarly) {
-    Write-Host "        Scheduler Stopped Early" -ForegroundColor Yellow
-} else {
-    Write-Host "        Schedule Completed" -ForegroundColor Cyan
-}
-Write-Host "------------------------------------------------------------"
-Write-Host "  Total Dev Runs: $RunCount"
-Write-Host "  Enhancement Cycles: $EnhancementCycle"
-Write-Host "  Log file: $LogFile"
-Write-Host "============================================================"
-Write-Host ""
-
-Write-Log "=========================================="
-Write-Log "Scheduler finished"
-Write-Log "Total Dev Runs: $RunCount, Enhancement Cycles: $EnhancementCycle"
-Write-Log "Project Complete: $ProjectComplete"
-Write-Log "=========================================="
-
-Write-Host "Scheduler finished"