@walwal-harness/cli 4.0.0-alpha.6 → 4.0.0-alpha.8

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@walwal-harness/cli",
-  "version": "4.0.0-alpha.6",
+  "version": "4.0.0-alpha.8",
   "description": "Production harness for AI agent engineering — Planner, Generator(BE/FE), Evaluator(Func/Visual), optional Brainstormer (requirements refinement). Supports React and Flutter FE stacks.",
   "bin": {
     "walwal-harness": "bin/init.js"

package/scripts/harness-dashboard-v4.sh

@@ -149,10 +149,54 @@ render_feature_list() {
   echo ""
 }
 
+render_prompt_history() {
+  local log_file="$PROJECT_ROOT/.harness/progress.log"
+  if [ ! -f "$log_file" ]; then return; fi
+
+  # Get terminal height to limit display
+  local term_h
+  term_h=$(tput lines 2>/dev/null || echo 50)
+  local max_lines=10  # show latest 10 entries
+
+  echo -e "  ${BOLD}Prompt History${RESET} ${DIM}(newest first)${RESET}"
+
+  # Read non-comment lines, reverse (newest first), take max_lines
+  grep -v '^#' "$log_file" 2>/dev/null | grep -v '^$' | tail -r 2>/dev/null | head -"$max_lines" | \
+  while IFS= read -r line; do
+    # Parse: date | agent | action | detail
+    local ts agent action detail
+    ts=$(echo "$line" | awk -F'|' '{gsub(/^ +| +$/,"",$1); print $1}')
+    agent=$(echo "$line" | awk -F'|' '{gsub(/^ +| +$/,"",$2); print $2}')
+    action=$(echo "$line" | awk -F'|' '{gsub(/^ +| +$/,"",$3); print $3}')
+    detail=$(echo "$line" | awk -F'|' '{gsub(/^ +| +$/,"",$4); print $4}')
+
+    local short_ts icon color
+    short_ts=$(echo "$ts" | sed 's/^[0-9]*-//')
+
+    case "$agent" in
+      dispatcher*|dispatch) icon="▸"; color="$MAGENTA" ;;
+      team-*)               icon="⚡"; color="$CYAN" ;;
+      manual|user)          icon="★"; color="$BOLD" ;;
+      planner*)             icon="□"; color="$YELLOW" ;;
+      generator*|gen*)      icon="▶"; color="$GREEN" ;;
+      eval*)                icon="✦"; color="$RED" ;;
+      system)               icon="⚙"; color="$DIM" ;;
+      *)                    icon="·"; color="$DIM" ;;
+    esac
+
+    if [ ${#detail} -gt 45 ]; then detail="${detail:0:43}.."; fi
+
+    echo -e "  ${color}${icon}${RESET} ${DIM}${short_ts}${RESET} ${agent} ${DIM}${action}${RESET} ${detail}"
+  done
+
+  echo ""
+}
+
 render_all() {
   render_header
   render_queue_summary
   render_teams
+  render_prompt_history
   render_feature_list
   echo -e "  ${DIM}Refreshing every 3s${RESET}"
 }

package/scripts/harness-queue-manager.sh

@@ -42,6 +42,25 @@ fi
 FEATURES="$PROJECT_ROOT/.harness/actions/feature-list.json"
 QUEUE="$PROJECT_ROOT/.harness/actions/feature-queue.json"
 CONFIG="$PROJECT_ROOT/.harness/config.json"
+QUEUE_LOCK="$PROJECT_ROOT/.harness/.queue-lock"
+
+# ── Atomic queue lock — prevent race conditions between teams ──
+acquire_queue_lock() {
+  local max_wait=30 waited=0
+  while ! mkdir "$QUEUE_LOCK" 2>/dev/null; do
+    sleep 0.1
+    waited=$((waited + 1))
+    if [ "$waited" -ge $((max_wait * 10)) ]; then
+      rm -rf "$QUEUE_LOCK"
+      mkdir "$QUEUE_LOCK" 2>/dev/null || true
+      break
+    fi
+  done
+}
+
+release_queue_lock() {
+  rm -rf "$QUEUE_LOCK" 2>/dev/null || true
+}
 
 # ── Concurrency from config ──
 CONCURRENCY=3
@@ -122,12 +141,14 @@ cmd_dequeue() {
   if [ -z "$team_id" ]; then echo "[queue] Usage: dequeue <team_id>"; exit 1; fi
   if [ ! -f "$QUEUE" ]; then echo "[queue] Run 'init' first."; exit 1; fi
 
+  acquire_queue_lock
+
   local feature
   feature=$(jq -r '.queue.ready[0] // empty' "$QUEUE")
 
   if [ -z "$feature" ]; then
+    release_queue_lock
     echo "[queue] No features in ready queue."
-    # Check if all done
     local in_prog blocked
     in_prog=$(jq '.queue.in_progress | length' "$QUEUE")
     blocked=$(jq '.queue.blocked | length' "$QUEUE")
@@ -137,13 +158,13 @@ cmd_dequeue() {
     return 1
   fi
 
-  # Move feature from ready → in_progress, assign to team
   jq --arg fid "$feature" --arg tid "$team_id" '
     .queue.ready -= [$fid] |
     .queue.in_progress[$fid] = { team: ($tid | tonumber), phase: "gen", attempt: 1 } |
     .teams[$tid] = { status: "busy", feature: $fid, branch: ("feature/" + $fid), pid: null }
   ' "$QUEUE" > "${QUEUE}.tmp" && mv "${QUEUE}.tmp" "$QUEUE"
 
+  release_queue_lock
   echo "$feature"
 }
 
@@ -155,11 +176,11 @@ cmd_pass() {
   if [ -z "$fid" ]; then echo "[queue] Usage: pass <feature_id>"; exit 1; fi
   if [ ! -f "$QUEUE" ]; then echo "[queue] Run 'init' first."; exit 1; fi
 
-  # Get team that was working on this feature
+  acquire_queue_lock
+
   local team_id
   team_id=$(jq -r --arg fid "$fid" '.queue.in_progress[$fid].team // empty' "$QUEUE")
 
-  # Move from in_progress → passed, free team, unblock dependents
   jq --arg fid "$fid" --arg tid "${team_id:-0}" '
     # Remove from in_progress
     del(.queue.in_progress[$fid]) |
@@ -188,6 +209,7 @@ cmd_pass() {
 
   local newly_ready
   newly_ready=$(jq -r '.queue.ready | join(", ")' "$QUEUE")
+  release_queue_lock
   echo "[queue] $fid PASSED. Ready: [$newly_ready]"
 }
 
@@ -199,6 +221,8 @@ cmd_fail() {
   if [ -z "$fid" ]; then echo "[queue] Usage: fail <feature_id>"; exit 1; fi
   if [ ! -f "$QUEUE" ]; then exit 1; fi
 
+  acquire_queue_lock
+
   local team_id
   team_id=$(jq -r --arg fid "$fid" '.queue.in_progress[$fid].team // empty' "$QUEUE")
 
@@ -211,6 +235,7 @@ cmd_fail() {
     else . end)
   ' "$QUEUE" > "${QUEUE}.tmp" && mv "${QUEUE}.tmp" "$QUEUE"
 
+  release_queue_lock
   echo "[queue] $fid FAILED."
 }
 
@@ -239,6 +264,8 @@ cmd_update_phase() {
     exit 1
   fi
 
+  acquire_queue_lock
+
   local jq_expr
   jq_expr=".queue.in_progress[\"$fid\"].phase = \"$phase\""
   if [ -n "$attempt" ]; then
@@ -246,6 +273,7 @@ cmd_update_phase() {
   fi
 
   jq "$jq_expr" "$QUEUE" > "${QUEUE}.tmp" && mv "${QUEUE}.tmp" "$QUEUE"
+  release_queue_lock
 }
 
 # ══════════════════════════════════════════
@@ -297,6 +325,31 @@ cmd_status() {
   fi
 }
 
+# ══════════════════════════════════════════
+# recover — Move stale in_progress back to ready (after studio restart)
+# ══════════════════════════════════════════
+cmd_recover() {
+  if [ ! -f "$QUEUE" ]; then echo "[queue] Not initialized."; return; fi
+
+  local stale_count
+  stale_count=$(jq '.queue.in_progress | length' "$QUEUE" 2>/dev/null)
+
+  if [ "${stale_count:-0}" -eq 0 ]; then
+    echo "[queue] No stale in_progress entries."
+    return
+  fi
+
+  # Move all in_progress → ready, reset all teams to idle
+  jq '
+    .queue.ready += [.queue.in_progress | keys[]] |
+    .queue.ready |= unique |
+    .queue.in_progress = {} |
+    .teams |= with_entries(.value = { status: "idle", feature: null, branch: null, pid: null })
+  ' "$QUEUE" > "${QUEUE}.tmp" && mv "${QUEUE}.tmp" "$QUEUE"
+
+  echo "[queue] Recovered ${stale_count} stale features back to ready queue."
+}
+
 # ── Dispatch ──
 case "$CMD" in
   init)         cmd_init ;;
@@ -305,9 +358,10 @@ case "$CMD" in
   fail)         cmd_fail "$@" ;;
   requeue)      cmd_requeue "$@" ;;
   update_phase) cmd_update_phase "$@" ;;
+  recover)      cmd_recover ;;
   status)       cmd_status ;;
   *)
-    echo "Usage: harness-queue-manager.sh <init|dequeue|pass|fail|requeue|update_phase|status> [args]"
+    echo "Usage: harness-queue-manager.sh <init|dequeue|pass|fail|requeue|recover|update_phase|status> [args]"
     exit 1
     ;;
 esac

package/scripts/harness-studio-v4.sh

@@ -54,11 +54,14 @@ echo "Session: $SESSION_NAME"
 
 tmux kill-session -t "$SESSION_NAME" 2>/dev/null || true
 
-# ── Initialize queue if not exists ──
+# ── Initialize or recover queue ──
 QUEUE="$PROJECT_ROOT/.harness/actions/feature-queue.json"
 if [ ! -f "$QUEUE" ]; then
   echo "Initializing feature queue..."
   bash "$SCRIPT_DIR/harness-queue-manager.sh" init "$PROJECT_ROOT"
+else
+  echo "Recovering stale queue state..."
+  bash "$SCRIPT_DIR/harness-queue-manager.sh" recover "$PROJECT_ROOT"
 fi
 
 # ══════════════════════════════════════════