shellspec/shellspec

#shellcheck shell=sh

SHELLSPEC_STDIN_DEV=$SHELLSPEC_DEV_TTY

shellspec_syntax 'shellspec_evaluation_call'
shellspec_syntax 'shellspec_evaluation_run'

shellspec_proxy 'shellspec_evaluation' 'shellspec_syntax_dispatch evaluation'

shellspec_evaluation_from_tty() {
  "$@" < "$SHELLSPEC_STDIN_DEV"
}
shellspec_evaluation_from_stdin() {
  "$@" < "$SHELLSPEC_STDIN_FILE"
}
shellspec_evaluation_to_null() {
  "$@" > /dev/null
}
shellspec_evaluation_to_stdout() {
  "$@" > "$SHELLSPEC_STDOUT_FILE"
}
shellspec_evaluation_to_stderr() {
  "$@" 2> "$SHELLSPEC_STDERR_FILE"
}
shellspec_evaluation_to_xtrace() {
  # shellcheck disable=SC2153
  set -- "$SHELLSPEC_XTRACEFD" SHELLSPEC_XTRACE_FILE "$@"
  SHELLSPEC_EVAL="
    shellspec_evaluation_to_xtrace_() { \
      exec $1>\"\$$2\"; \"\$@\"; set -- \$?; exec $1>&-; return \"\$1\"; \
    }
  "
  eval "$SHELLSPEC_EVAL"
  shift 2
  shellspec_evaluation_to_xtrace_ "$@"
}

shellspec_evaluation_execute() {
  if [ "$SHELLSPEC_XTRACE" ]; then
    set -- shellspec_evaluation_to_xtrace "$@"
    if [ "$SHELLSPEC_XTRACE_ONLY" ]; then
      set -- shellspec_evaluation_to_null "$@"
    else
      set -- shellspec_evaluation_to_stdout shellspec_evaluation_to_stderr "$@"
    fi
  else
    set -- shellspec_evaluation_to_stdout shellspec_evaluation_to_stderr "$@"
  fi
  if [ "$SHELLSPEC_DATA" ]; then
    set -- shellspec_evaluation_from_stdin "$@"
  else
    set -- shellspec_evaluation_from_tty "$@"
  fi
  "$@"
}

shellspec_invoke_data() {
  [ "$SHELLSPEC_DATA" ] || return 0
  case $# in
    0) shellspec_data > "$SHELLSPEC_STDIN_FILE" ;;
    *) shellspec_data "$@" > "$SHELLSPEC_STDIN_FILE" ;;
  esac
}

shellspec_evaluation_call() {
  set "$SHELLSPEC_ERREXIT"
  "${SHELLSPEC_SET_OPTION:-eval}" "${SHELLSPEC_SHELL_OPTIONS:-:}"
  set +e -- shellspec_evaluation_call_function "$@"
  shellspec_evaluation_execute shellspec_around_call "$@" &&:
  set -e -- $?
  shellspec_evaluation_cleanup "$1"
}

shellspec_evaluation_run() {
  set "$SHELLSPEC_ERREXIT"
  "${SHELLSPEC_SET_OPTION:-eval}" "${SHELLSPEC_SHELL_OPTIONS:-:}"
  case $- in
    *e*) set +e; shellspec_evaluation_run_subshell -e "$@"; ;;
    *) shellspec_evaluation_run_subshell +e "$@"; ;;
  esac
  set -e -- $?
  shellspec_evaluation_cleanup "$1"
}

shellspec_evaluation_run_subshell() {
  if [ "$SHELLSPEC_DEFECT_SUBSHELL" ]; then
    #shellcheck disable=SC2034
    if [ "$2" = "script" ]; then
      SHELLSPEC_DUMMY=$( shellspec_evaluation_run_subshell_ "$@" &&: )
    else
      SHELLSPEC_DUMMY=$( shellspec_evaluation_run_subshell_ "$@" )
    fi
  else
    ( shellspec_evaluation_run_subshell_ "$@" )
  fi
}

shellspec_evaluation_run_subshell_() {
  set "$1"
  shift
  set -- shellspec_around_run shellspec_evaluation_run_instruction "$@"
  if [ "$SHELLSPEC_DEFECT_ZSHEXIT" ]; then
    set -- shellspec_evaluation_run_trap_exit_status "$@"
  fi
  shellspec_evaluation_execute "$@"
}

shellspec_evaluation_run_trap_exit_status() {
  SHELLSPEC_ZSH_EXIT_CODES="$SHELLSPEC_STDIO_FILE_BASE.exit_codes"
  : > "$SHELLSPEC_ZSH_EXIT_CODES"

  case $- in
    *e*) set +e -- -e "$@" ;;
    *) set -- +e "$@" ;;
  esac
  ( set "$1" -- SHELLSPEC_ZSH_EXIT_CODES "$@"
    # `unset status` causes an error and forces exit instead of `exit`
    # The `status` is special variable, it can not unset in zsh
    eval "exit() { echo -n \"\$1\">>\"\$$1\"; { unset status; } 2>/dev/null; }"
    shift 2
    "$@"
  )
  ( error=$?
    [ -s "$SHELLSPEC_ZSH_EXIT_CODES" ] || return "$error"
    read -r ecs < "$SHELLSPEC_ZSH_EXIT_CODES" ||:
    ecs=${ecs% } && ecs=${ecs% *} && error=${ecs##* }
    return "$error"
  )
}

shellspec_evaluation_run_instruction() {
  case $1 in
    script) shift; shellspec_evaluation_run_script "$@" ;;
    command) shift; shellspec_evaluation_run_command "$@" ;;
    source) shift; shellspec_evaluation_run_source "$@" ;;
    *) shellspec_evaluation_call_function "$@" ;;
  esac
}

shellspec_shebang_arguments() {
  read -r line
  case $line in (\#!/usr/bin/env\ * | \#!/bin/env\ *)
    shellspec_trim line "${line#* }"
    line="#!$line"
  esac
  case $line in (\#!*)
    shellspec_trim line "$line"
    case $line in (*\ *)
      shellspec_trim line "${line#* }"
      shellspec_putsn "$line"
    esac
  esac
}

shellspec_evaluation_call_function() {
  shellspec_coverage_start
  if [ ! "$SHELLSPEC_XTRACE" ]; then
    "$@"
    set -- $?
  else
    SHELLSPEC_XTRACE=''
    # shellcheck disable=SC2153
    eval "$SHELLSPEC_XTRACE_ON"
    "$@"
    eval "$SHELLSPEC_XTRACE_OFF" -- $?
    SHELLSPEC_XTRACE=1
  fi
  shellspec_coverage_stop
  return "$1"
}

shellspec_evaluation_run_script() {
  if [ ! -e "$1" ]; then
    eval "$SHELLSPEC_SHELL \"\$@\""
  elif [ ! -x "$1" ]; then
    # Execute non-executable file always fails. This is getting error message.
    command "$@" &
    wait $! # wait is workaround for ksh 93r. sometimes fail to get stderr.
  else
    if [ "$SHELLSPEC_SHEBANG_MULTIARG" ]; then
      IFS=" $IFS"
      # shellcheck disable=SC2046
      set -- $(shellspec_shebang_arguments < "$1") "$@"
      IFS=${IFS# }
    else
      set -- "$(shellspec_shebang_arguments < "$1")" "$@"
      [ "$1" ] || shift
    fi
    ( shellspec_coverage_env
      opts=$SHELLSPEC_COVERAGE_SHELL_OPTIONS
      if [ "${SHELLSPEC_PATH_IS_READONLY:-}" ]; then
        opts="\"\$SHELLSPEC_UNREADONLY_PATH\" $opts"
      fi
      # shellcheck disable=SC2030
      if [ "$SHELLSPEC_XTRACE" ]; then
        SHELLSPEC_XTRACE=''
        if [ "$SHELLSPEC_XTRACEFD_VAR" ]; then
          export PS4
          export SHELLSPEC_PS4="${PS4:-}"
          export "$SHELLSPEC_XTRACEFD_VAR"="$SHELLSPEC_XTRACEFD"
        fi
        eval "$SHELLSPEC_SHELL $opts -x \"\$@\""
        set -- $?
        SHELLSPEC_XTRACE=1
      else
        eval "$SHELLSPEC_SHELL $opts \"\$@\""
        set -- $?
      fi
      exit "$1"
    )
  fi
}

shellspec_evaluation_run_command() {
  set -- "$(shellspec_which "$1")" "$@" &&:
  if [ ! "$1" ]; then
    shellspec_abort 127 "$SHELLSPEC_SHELL: $SHELLSPEC_LINENO: $2: not found"
  fi
  case $# in
    2) set -- "$1" ;;
    *) eval "shift 2; set -- \"$1\" \"\$@\"" ;;
  esac
  "$@"
}

shellspec_evaluation_run_source() {
  if [ "${SHELLSPEC_INTERCEPTOR#\|}" ]; then
    test() {
      case $# in
        0) test() { case $# in (0) false ;; (*) [ "$@" ]; esac; } ;;
        *) [ "$@" ] ;;
      esac
    }
    __() { shellspec_interceptor "$@"; }
  fi
  shellspec_coverage_start
  # shellcheck disable=SC2031
  if [ "$SHELLSPEC_XTRACE" ]; then
    SHELLSPEC_XTRACE=''
    eval "shift; $SHELLSPEC_XTRACE_ON; . \"$1\"; $SHELLSPEC_XTRACE_OFF -- \$?"
    SHELLSPEC_XTRACE=1
  else
    eval "shift; . \"$1\"; set -- \$?"
  fi
  shellspec_coverage_stop
  return "$1"
}

shellspec_interceptor() {
  eval "[ \"\${$#}\" = __ ] &&:" || return 0
  set -- "$@" "$SHELLSPEC_EM"
  until [ "$2" = "$SHELLSPEC_EM" ]; do
    set -- "$@" "$1"
    shift
  done
  shift 2
  case $SHELLSPEC_INTERCEPTOR in (*\|$1:*)
    # shellcheck disable=SC2295
    eval "shift; set -- \"${SHELLSPEC_INTERCEPTOR##*\|$1:}\" ${2:+\"\$@\"}"
    eval "shift; set -- \"${1%%\|*}\" ${2:+\"\$@\"}"
    "$@"
  esac
}

shellspec_evaluation_cleanup() {
  SHELLSPEC_STATUS=$1
  unset SHELLSPEC_STDOUT SHELLSPEC_STDERR ||:
  [ "$SHELLSPEC_XTRACE" ] && [ "$SHELLSPEC_XTRACEFD" = 2 ] && return 0
  shellspec_toggle UNHANDLED_STATUS [ "$SHELLSPEC_STATUS" -ne 0 ]
  shellspec_toggle UNHANDLED_STDOUT [ -s "$SHELLSPEC_STDOUT_FILE" ]
  shellspec_toggle UNHANDLED_STDERR [ -s "$SHELLSPEC_STDERR_FILE" ]
}