superpowers-manager 0.1.4 → 0.2.0

package/scripts/core/selection.sh

@@ -0,0 +1,168 @@
+#!/bin/sh
+# Sourced module; callers own set -eu.
+
+spw_selection_config_dir() {
+  if [ "${SUPERPOWERS_CONFIG_DIR+x}" = x ]; then
+    case "$SUPERPOWERS_CONFIG_DIR" in
+      /*) printf '%s\n' "$SUPERPOWERS_CONFIG_DIR" ;;
+      *) echo "error: SUPERPOWERS_CONFIG_DIR must be absolute" >&2; return 1 ;;
+    esac
+    return
+  fi
+
+  if [ -n "${XDG_CONFIG_HOME:-}" ]; then
+    case "$XDG_CONFIG_HOME" in
+      /*) printf '%s/superpowers-manager\n' "$XDG_CONFIG_HOME" ;;
+      *) echo "error: XDG_CONFIG_HOME must be absolute" >&2; return 1 ;;
+    esac
+    return
+  fi
+
+  if [ -z "${HOME:-}" ]; then
+    echo "error: HOME is required to locate selection state" >&2
+    return 1
+  fi
+  case "$HOME" in
+    /*) printf '%s/.config/superpowers-manager\n' "$HOME" ;;
+    *) echo "error: HOME must be absolute" >&2; return 1 ;;
+  esac
+}
+
+spw_selection_state_path() {
+  _spw_selection_config_dir=$(spw_selection_config_dir) || return $?
+  printf '%s/selection.json\n' "$_spw_selection_config_dir"
+}
+
+spw_selection_state() {
+  _spw_selection_state_root="$1"
+  shift
+  if _spw_selection_state_error=$(
+    python3 -S "$_spw_selection_state_root/scripts/core/selection-state.py" \
+      "$@" 2>&1
+  ); then
+    :
+  else
+    _spw_selection_state_error=${_spw_selection_state_error#error: }
+    spw_die "$_spw_selection_state_error"
+  fi
+}
+
+spw_load_saved_selection() {
+  _spw_selection_root="$1"
+  _spw_selection_workspace="$2"
+  SPW_SELECTION_STATE_PATH=$(spw_selection_state_path)
+  if ! _spw_selection_normalized=$(mktemp "$_spw_selection_workspace/selection-state.XXXXXX"); then
+    spw_die "cannot create normalized selection scratch file"
+  fi
+
+  if _spw_selection_error=$(
+    python3 -S "$_spw_selection_root/scripts/core/selection-state.py" read \
+      --path "$SPW_SELECTION_STATE_PATH" \
+      --output "$_spw_selection_normalized" 2>&1
+  ); then
+    :
+  else
+    rm -f "$_spw_selection_normalized"
+    _spw_selection_error=${_spw_selection_error#error: }
+    spw_die "$_spw_selection_error"
+  fi
+
+  SPW_SAVED_MODE=$(spw_json_get "$_spw_selection_normalized" saved_mode)
+  SPW_SAVED_SOURCE=$(spw_json_get "$_spw_selection_normalized" saved_source)
+  SPW_SAVED_REQUESTED_REF=$(spw_json_get "$_spw_selection_normalized" saved_requested_ref)
+  SPW_SAVED_RESOLVED_REF=$(spw_json_get "$_spw_selection_normalized" saved_resolved_ref)
+  SPW_SAVED_COMMIT=$(spw_json_get "$_spw_selection_normalized" saved_commit)
+  rm -f "$_spw_selection_normalized"
+
+  export SPW_SELECTION_STATE_PATH
+  export SPW_SAVED_MODE SPW_SAVED_SOURCE SPW_SAVED_REQUESTED_REF
+  export SPW_SAVED_RESOLVED_REF SPW_SAVED_COMMIT
+}
+
+spw_compute_effective_selection() {
+  _spw_selection_root="$1"
+  _spw_selection_workspace="$2"
+  spw_load_saved_selection "$_spw_selection_root" "$_spw_selection_workspace"
+
+  if [ -n "${SUPERPOWERS_UPSTREAM_URL:-}" ]; then
+    SPW_UPSTREAM_SOURCE_ORIGIN="environment"
+    SPW_EFFECTIVE_SOURCE="$SUPERPOWERS_UPSTREAM_URL"
+  elif [ "$SPW_SAVED_MODE" != "none" ]; then
+    SPW_UPSTREAM_SOURCE_ORIGIN="user-config"
+    SPW_EFFECTIVE_SOURCE="$SPW_SAVED_SOURCE"
+  else
+    SPW_UPSTREAM_SOURCE_ORIGIN="package-default"
+    SPW_EFFECTIVE_SOURCE="$SPW_UPSTREAM_URL_DEFAULT"
+  fi
+
+  spw_selection_state "$_spw_selection_root" \
+    validate-source --source="$SPW_EFFECTIVE_SOURCE"
+
+  _spw_selection_uses_saved_pin=false
+  if [ -n "${SUPERPOWERS_REF:-}" ]; then
+    SPW_SELECTION_ORIGIN="environment"
+    SPW_SELECTION_MODE="override"
+    SPW_REQUESTED_REF="$SUPERPOWERS_REF"
+  elif [ "$SPW_SAVED_MODE" = "pinned" ]; then
+    SPW_SELECTION_ORIGIN="user-config"
+    SPW_SELECTION_MODE="pinned"
+    SPW_REQUESTED_REF="$SPW_SAVED_REQUESTED_REF"
+    _spw_selection_uses_saved_pin=true
+  elif [ "$SPW_SAVED_MODE" = "track-latest" ]; then
+    SPW_SELECTION_ORIGIN="user-config"
+    SPW_SELECTION_MODE="track-latest"
+    SPW_REQUESTED_REF="latest-release"
+  else
+    SPW_SELECTION_ORIGIN="package-default"
+    SPW_SELECTION_MODE="default"
+    SPW_REQUESTED_REF=$(spw_config_ref "$_spw_selection_root")
+  fi
+
+  if [ "$_spw_selection_uses_saved_pin" = true ]; then
+    SPW_RESOLVED_REF="$SPW_SAVED_RESOLVED_REF"
+    SPW_DESIRED_COMMIT="$SPW_SAVED_COMMIT"
+    if printf '%s' "$SPW_SAVED_REQUESTED_REF" | grep -Eq '^[0-9a-f]{40}$'; then
+      SPW_RESOLUTION_KIND="raw-commit"
+    else
+      SPW_RESOLUTION_KIND="tag"
+    fi
+  else
+    _spw_selection_resolution=$(
+      spw_resolve_ref "$SPW_EFFECTIVE_SOURCE" "$SPW_REQUESTED_REF"
+    )
+    if _spw_selection_fields=$(
+      printf '%s\n' "$_spw_selection_resolution" | awk '
+        NR == 1 && NF == 3 { printf "%s\t%s\t%s\n", $1, $2, $3; next }
+        { exit 1 }
+        END { if (NR != 1) exit 1 }
+      '
+    ); then
+      :
+    else
+      spw_die "invalid ref resolution result"
+    fi
+    _spw_selection_tab=$(printf '\tX')
+    _spw_selection_tab=${_spw_selection_tab%X}
+    IFS=$_spw_selection_tab read -r \
+      SPW_RESOLUTION_KIND SPW_RESOLVED_REF SPW_DESIRED_COMMIT <<EOF
+$_spw_selection_fields
+EOF
+  fi
+
+  export SPW_SELECTION_ORIGIN SPW_SELECTION_MODE
+  export SPW_UPSTREAM_SOURCE_ORIGIN SPW_EFFECTIVE_SOURCE
+  export SPW_REQUESTED_REF SPW_RESOLVED_REF SPW_DESIRED_COMMIT
+  export SPW_RESOLUTION_KIND
+}
+
+spw_display_source() {
+  _spw_selection_display_source="$1"
+  if _spw_selection_display=$(
+    python3 -S "$(spw_root)/scripts/core/selection-state.py" \
+      display-source --source="$_spw_selection_display_source" 2>/dev/null
+  ); then
+    printf '%s\n' "$_spw_selection_display"
+  else
+    printf '%s\n' '<redacted-source>'
+  fi
+}

package/scripts/core/status.sh

@@ -0,0 +1,27 @@
+#!/bin/sh
+# Sourced module; callers own set -eu.
+
+spw_commit_matches() {
+  desired="$1"
+  observed="$2"
+  short=$(printf '%s' "$desired" | cut -c 1-7)
+  [ -n "$observed" ] && { [ "$observed" = "$desired" ] || [ "$observed" = "$short" ]; }
+}
+
+spw_status_for_commits() {
+  desired="$1"
+  generated="$2"
+  installed="$3"
+
+  if [ -z "$generated" ]; then
+    printf '%s\n' "needs prepare"
+  elif ! spw_commit_matches "$desired" "$generated"; then
+    printf '%s\n' "needs prepare"
+  elif [ -z "$installed" ]; then
+    printf '%s\n' "needs install"
+  elif ! spw_commit_matches "$desired" "$installed"; then
+    printf '%s\n' "needs install"
+  else
+    printf '%s\n' "current"
+  fi
+}

package/scripts/core/upstream.sh

@@ -0,0 +1,280 @@
+#!/bin/sh
+# Sourced module; callers own set -eu.
+
+SPW_UPSTREAM_URL_DEFAULT="https://github.com/obra/superpowers"
+
+spw_config_ref() (
+  config_root="$1"
+  if [ -n "${SUPERPOWERS_REF:-}" ]; then
+    printf '%s\n' "$SUPERPOWERS_REF"
+    return
+  fi
+  sed -n '1{s/[[:space:]]*$//;p;}' "$config_root/config/upstream-ref"
+)
+
+spw_short_commit() {
+  commit="$1"
+  printf '%s' "$commit" | cut -c 1-7
+}
+
+spw_is_semver_base() {
+  version="$1"
+  printf '%s' "$version" | grep -Eq '^(0|[1-9][0-9]*)\.(0|[1-9][0-9]*)\.(0|[1-9][0-9]*)(-((0|[1-9][0-9]*|[0-9]*[A-Za-z-][0-9A-Za-z-]*)(\.(0|[1-9][0-9]*|[0-9]*[A-Za-z-][0-9A-Za-z-]*))*))?$'
+}
+
+spw_is_pinnable_tag() {
+  ref="$1"
+  case "$ref" in
+    *'
+'*|*"$(printf '\r')"*) return 1 ;;
+    v*) spw_is_semver_base "${ref#v}" ;;
+    *) return 1 ;;
+  esac
+}
+
+spw_is_full_commit() {
+  ref="$1"
+  [ "${#ref}" -eq 40 ] || return 1
+  case "$ref" in
+    *[!0-9A-Fa-f]*) return 1 ;;
+    *) return 0 ;;
+  esac
+}
+
+spw_git_safe_source() {
+  source="$1"
+  case "$source" in
+    /*|*://*|*:*|~*) printf '%s\n' "$source" ;;
+    *) printf '%s/%s\n' "$(pwd -P)" "$source" ;;
+  esac
+}
+
+spw_resolve_exact_tag() {
+  source="$1"
+  ref="$2"
+  source_display=$(spw_display_source "$source")
+  query_source=$(spw_git_safe_source "$source")
+  if ! output=$(git ls-remote --tags -- "$query_source" "refs/tags/$ref" "refs/tags/$ref^{}" 2>&1); then
+    spw_die "cannot query exact upstream tag $ref from $source_display: $output"
+  fi
+  commit=$(printf '%s\n' "$output" | awk -v direct="refs/tags/$ref" '
+    $2 == direct { direct_sha = $1 }
+    $2 == direct "^{}" { peeled_sha = $1 }
+    END { if (peeled_sha != "") print peeled_sha; else if (direct_sha != "") print direct_sha }
+  ')
+  [ -n "$commit" ] || spw_die "upstream tag not found: $ref"
+  printf '%s\n' "$commit"
+}
+
+spw_verify_raw_commit() (
+  source="$1"
+  commit=$(printf '%s' "$2" | tr '[:upper:]' '[:lower:]')
+  workspace="$3"
+  source_display=$(spw_display_source "$source")
+  fetch_source=$(spw_git_safe_source "$source")
+
+  if ! verify_workspace=$(spw_make_workspace "$workspace" "superpowers-manager.commit"); then
+    spw_die "cannot create raw-commit verification workspace under $workspace"
+  fi
+  spw_install_workspace_trap "$verify_workspace"
+
+  if ! init_output=$(git init "$verify_workspace" 2>&1); then
+    spw_die "cannot initialize raw-commit verification workspace: $init_output"
+  fi
+  if fetch_output=$(git -C "$verify_workspace" fetch --no-tags -- "$fetch_source" "$commit" 2>&1); then
+    :
+  else
+    case "$fetch_output" in
+      *'not our ref'*|*'unadvertised object'*|*"couldn't find remote ref"*)
+        spw_die "source cannot supply requested commit: $commit"
+        ;;
+      *)
+        spw_die "cannot fetch requested commit from $source_display"
+        ;;
+    esac
+  fi
+  if ! object_type=$(git -C "$verify_workspace" cat-file -t "$commit" 2>/dev/null); then
+    spw_die "requested object is not a commit: $commit"
+  fi
+  if [ "$object_type" != commit ]; then
+    spw_die "requested object is not a commit: $commit"
+  fi
+  printf '%s\n' "$commit"
+)
+
+spw_fetch_exact_commit() (
+  source="$1"
+  commit="$2"
+  repository="$3"
+  workspace="$4"
+  source_display=$(spw_display_source "$source")
+  fetch_source=$(spw_git_safe_source "$source")
+
+  if ! fetch_workspace=$(spw_make_workspace "$workspace" "superpowers-manager.fetch"); then
+    spw_die "cannot create exact-commit fetch workspace under $workspace"
+  fi
+  spw_install_workspace_trap "$fetch_workspace"
+
+  if ! init_output=$(git init "$fetch_workspace" 2>&1); then
+    spw_die "cannot initialize exact-commit fetch workspace: $init_output"
+  fi
+  if fetch_output=$(git -C "$fetch_workspace" fetch --no-tags -- "$fetch_source" "$commit" 2>&1); then
+    :
+  else
+    case "$fetch_output" in
+      *'not our ref'*|*'unadvertised object'*|*"couldn't find remote ref"*)
+        spw_die "source cannot supply requested commit: $commit"
+        ;;
+      *)
+        spw_die "cannot fetch requested commit from $source_display"
+        ;;
+    esac
+  fi
+  if ! object_type=$(git -C "$fetch_workspace" cat-file -t "$commit" 2>/dev/null); then
+    spw_die "requested object is not a commit: $commit"
+  fi
+  if [ "$object_type" != commit ]; then
+    spw_die "requested object is not a commit: $commit"
+  fi
+
+  if [ ! -d "$repository/.git" ]; then
+    if ! init_output=$(git init "$repository" 2>&1); then
+      spw_die "cannot initialize upstream cache repository: $init_output"
+    fi
+  fi
+  if ! transfer_output=$(
+    git -C "$repository" fetch --no-tags -- "$fetch_workspace" "$commit" 2>&1
+  ); then
+    spw_die "cannot transfer requested commit into upstream cache: $transfer_output"
+  fi
+  if ! object_type=$(git -C "$repository" cat-file -t "$commit" 2>/dev/null); then
+    spw_die "cannot verify requested commit in upstream cache: $commit"
+  fi
+  if [ "$object_type" != commit ]; then
+    spw_die "cannot verify requested commit in upstream cache: $commit"
+  fi
+)
+
+spw_sanitize_ref_for_version() {
+  ref="$1"
+  sanitized=$(printf '%s' "$ref" | sed 's/[^0-9A-Za-z-][^0-9A-Za-z-]*/-/g; s/^-*//; s/-*$//')
+  sanitized=$(printf '%s' "$sanitized" | cut -c 1-48 | sed 's/^-*//; s/-*$//')
+  if [ -z "$sanitized" ]; then
+    sanitized="unknown"
+  fi
+  printf '%s' "$sanitized"
+}
+
+spw_manifest_version_for_ref() {
+  requested_ref="$1"
+  resolution_kind="$2"
+  resolved_ref="$3"
+  commit="$4"
+  short=$(spw_short_commit "$commit")
+
+  case "$resolution_kind" in
+    latest-release|tag)
+      base=$(printf '%s' "$resolved_ref" | sed -n 's/^v//p')
+      if [ -n "$base" ] && spw_is_semver_base "$base"; then
+        printf '%s+manager.%s\n' "$base" "$short"
+        return
+      fi
+      ;;
+    ref)
+      if [ "$requested_ref" = "main" ]; then
+        printf '0.0.0-main+manager.%s\n' "$short"
+        return
+      fi
+      sanitized=$(spw_sanitize_ref_for_version "$requested_ref")
+      printf '0.0.0-ref-%s+manager.%s\n' "$sanitized" "$short"
+      return
+      ;;
+    raw-commit)
+      ;;
+  esac
+
+  printf '0.0.0+manager.%s\n' "$short"
+}
+
+spw_manifest_version_for_commit() {
+  commit="$1"
+  spw_manifest_version_for_ref "$commit" "raw-commit" "$commit" "$commit"
+}
+
+spw_select_latest_release_from_ls_remote() {
+  awk '
+    $2 ~ /^refs\/tags\/v[0-9]+\.[0-9]+\.[0-9]+(\^\{\})?$/ {
+      ref = $2
+      peeled = 0
+      if (ref ~ /\^\{\}$/) {
+        peeled = 1
+        sub(/\^\{\}$/, "", ref)
+      }
+      tag = ref
+      sub(/^refs\/tags\//, "", tag)
+      split(substr(tag, 2), parts, ".")
+      key = sprintf("%010d.%010d.%010d", parts[1], parts[2], parts[3])
+      tag_by_key[key] = tag
+      if (peeled || !(tag in sha_by_tag)) {
+        sha_by_tag[tag] = $1
+      }
+    }
+    END {
+      for (key in tag_by_key) {
+        tag = tag_by_key[key]
+        print key, tag, sha_by_tag[tag]
+      }
+    }
+  ' | sort | tail -n 1 | awk '
+    NF == 3 { print $2 " " $3; found = 1 }
+    END { if (!found) exit 1 }
+  '
+}
+
+spw_resolve_ref() {
+  upstream_url="$1"
+  requested_ref="$2"
+  spw_require_command git
+  query_source=$(spw_git_safe_source "$upstream_url")
+
+  if [ "$requested_ref" = "latest-release" ]; then
+    if ! output=$(git ls-remote --tags -- "$query_source" 'refs/tags/v*' 2>&1); then
+      spw_die "cannot query upstream tags from $upstream_url: $output"
+    fi
+    if ! selected=$(printf '%s\n' "$output" | spw_select_latest_release_from_ls_remote); then
+      spw_die "no stable semver tag found for latest-release"
+    fi
+    printf 'latest-release %s\n' "$selected"
+    return
+  fi
+
+  if printf '%s' "$requested_ref" | grep -Eq '^[0-9a-fA-F]{40}$'; then
+    printf 'raw-commit %s %s\n' "$requested_ref" "$requested_ref"
+    return
+  fi
+
+  if ! tag_output=$(git ls-remote --tags -- "$query_source" "refs/tags/$requested_ref" "refs/tags/$requested_ref^{}" 2>&1); then
+    spw_die "cannot query upstream tag $requested_ref from $upstream_url: $tag_output"
+  fi
+  resolved=$(printf '%s\n' "$tag_output" | awk -v tag_ref="refs/tags/$requested_ref" '
+    NF >= 2 && ($2 == tag_ref || $2 == tag_ref "^{}") {
+      sha = $1
+    }
+    END { if (sha != "") print sha }
+  ')
+  if [ -n "$resolved" ]; then
+    printf 'tag %s %s\n' "$requested_ref" "$resolved"
+    return
+  fi
+
+  if ! ref_output=$(git ls-remote -- "$query_source" "$requested_ref" 2>&1); then
+    spw_die "cannot query upstream ref $requested_ref from $upstream_url: $ref_output"
+  fi
+  resolved=$(printf '%s\n' "$ref_output" | awk 'NF >= 2 { print $1; exit }')
+  if [ -n "$resolved" ]; then
+    printf 'ref %s %s\n' "$requested_ref" "$resolved"
+    return
+  fi
+
+  spw_die "cannot resolve upstream ref: $requested_ref"
+}