superpowers-manager 0.2.0 → 0.4.0

package/scripts/core/selection.sh

@@ -1,168 +0,0 @@
-#!/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

@@ -1,27 +0,0 @@
-#!/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

@@ -1,280 +0,0 @@
-#!/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"
-}