# this script is a part of blesh (https://github.com/akinomyoga/ble.sh) under BSD-3-Clause license
_ble_term_tput=
function ble/init:term/tput { return 1; }
if ble/bin/.freeze-utility-path tput; then
  ble/bin/tput cuu 1 &>/dev/null && _ble_term_tput=${_ble_term_tput}i
  ble/bin/tput UP  1 &>/dev/null && _ble_term_tput=${_ble_term_tput}c
  if [[ $_ble_term_tput ]]; then
    function ble/init:term/tput {
      local type=$_ble_term_tput
      if [[ $1 == -c ]]; then # termcap 優先
        shift
        [[ $type == ic ]] && type=c
      fi
      if [[ $type != c ]]; then
        ble/bin/tput "${1%%:*}" "${@:2}" 2>/dev/null
      else
        ble/bin/tput "${1#*:}" "${@:2}" 2>/dev/null
      fi
    }
  fi
fi
function ble/init:term/register-varname {
  local name=$1
  varnames[${#varnames[@]}]=$name
}
function ble/init:term/define-cap {
  local IFS=$_ble_term_IFS
  local name=$1 def=$2
  shift 2
  ble/util/assign "$name" "ble/init:term/tput $* || ble/util/put \"\$def\""
  ble/init:term/register-varname "$name"
}
function ble/init:term/define-cap.2 {
  local IFS=$_ble_term_IFS
  local name=$1 def=$2
  shift 2
  ble/util/assign "$name" "ble/util/put x; ble/init:term/tput $* || ble/util/put \"\$def\"; ble/util/put x"
  builtin eval "$name=\${$name#x}; $name=\${$name%x}"
  ble/init:term/register-varname "$name"
}
_ble_term_sgr_term2ansi=()
ble/init:term/register-varname _ble_term_sgr_term2ansi
_ble_term_rex_sgr=$'\e''\[([0-9;:]+)m'
function ble/init:term/define-sgr-param {
  local name=$1 seq=$2 ansi=$3
  if [[ $seq =~ $_ble_term_rex_sgr ]]; then
    local rematch1=${BASH_REMATCH[1]}
    builtin eval "$name=\$rematch1"
    if [[ $ansi ]]; then
      local rex='^[0-9]+$'
      [[ $rematch1 =~ $rex ]] &&
        [[ ! ${_ble_term_sgr_term2ansi[rematch1]} ]] &&
        _ble_term_sgr_term2ansi[rematch1]=$ansi
    fi
  else
    builtin eval "$name="
  fi
  if [[ $name =~ ^[a-zA-Z_][a-zA-Z_0-9]*$ ]]; then
    ble/init:term/register-varname "$name"
  fi
}
function ble/init:term/initialize {
  local -a varnames=()
  _ble_term_xenl=1
  [[ $_ble_term_tput ]] &&
    ! ble/init:term/tput xenl:xn &>/dev/null &&
    _ble_term_xenl=
  [[ $TERM == sun* ]] && _ble_term_xenl=
  ble/init:term/register-varname _ble_term_xenl
  _ble_term_bce=
  [[ $_ble_term_tput ]] &&
    ble/init:term/tput bce:ut &>/dev/null &&
    _ble_term_bce=1
  ble/init:term/register-varname _ble_term_bce
  _ble_term_it=8
  if [[ $_ble_term_tput ]]; then
    ble/util/assign _ble_term_it 'ble/init:term/tput it:it'
    _ble_term_it=${_ble_term_it:-8}
  fi
  ble/init:term/register-varname _ble_term_it
  ble/init:term/define-cap.2 _ble_term_ind $'\n' ind:sf # $'\eD'
  ble/init:term/define-cap   _ble_term_ri  ''    ri:sr  # $'\eM'
  ble/init:term/define-cap   _ble_term_cr  $'\r' cr:cr
  if [[ $OSTYPE == msys && ! $_ble_term_CR ]]; then # msys-1.0
    [[ $_ble_term_cr ]] || _ble_term_cr=$'\e[G'
    if [[ $TERM == cygwin ]]; then
      [[ $_ble_term_ind == $'\eD' ]] && _ble_term_ind=$'\n'
      _ble_term_xenl=
    fi
  fi
  ble/init:term/define-cap _ble_term_cuu $'\e[%dA' cuu:UP 123
  ble/init:term/define-cap _ble_term_cud $'\e[%dB' cud:DO 123
  ble/init:term/define-cap _ble_term_cuf $'\e[%dC' cuf:RI 123
  ble/init:term/define-cap _ble_term_cub $'\e[%dD' cub:LE 123
  _ble_term_cuu=${_ble_term_cuu//123/%d}
  _ble_term_cud=${_ble_term_cud//123/%d}
  _ble_term_cuf=${_ble_term_cuf//123/%d}
  _ble_term_cub=${_ble_term_cub//123/%d}
  _ble_term_ri_or_cuu1=${_ble_term_ri:-${_ble_term_cuu//'%d'/1}}
  ble/init:term/register-varname _ble_term_ri_or_cuu1
  ble/init:term/define-cap _ble_term_cup $'\e[13;35H' cup:cm 12 34
  _ble_term_cup=${_ble_term_cup//13/%l}
  _ble_term_cup=${_ble_term_cup//35/%c}
  _ble_term_cup=${_ble_term_cup//12/%y}
  _ble_term_cup=${_ble_term_cup//34/%x}
  ble/init:term/define-cap _ble_term_hpa "$_ble_term_cr${_ble_term_cuf//'%d'/123}" hpa:ch 123
  _ble_term_hpa=${_ble_term_hpa//123/%x}
  _ble_term_hpa=${_ble_term_hpa//124/%c}
  ble/init:term/define-cap _ble_term_vpa "${_ble_term_cuu//'%d'/199}${_ble_term_cud//'%d'/123}" vpa:cv 123
  _ble_term_vpa=${_ble_term_vpa//123/%y}
  _ble_term_vpa=${_ble_term_vpa//124/%l}
  ble/init:term/define-cap _ble_term_clear $'\e[H\e[2J' clear:cl
  ble/init:term/define-cap _ble_term_il $'\e[%dL' il:AL 123
  ble/init:term/define-cap _ble_term_dl $'\e[%dM' -c dl:DL 123
  _ble_term_il=${_ble_term_il//123/%d}
  _ble_term_dl=${_ble_term_dl//123/%d}
  ble/init:term/define-cap _ble_term_el  $'\e[K'  el:ce
  ble/init:term/define-cap _ble_term_el1 $'\e[1K' el1:cb
  if [[ $_ble_term_el == $'\e[K' && $_ble_term_el1 == $'\e[1K' ]]; then
    _ble_term_el2=$'\e[2K'
  else
    _ble_term_el2=$_ble_term_el1$_ble_term_el
  fi
  ble/init:term/register-varname _ble_term_el2
  ble/init:term/define-cap _ble_term_ed  $'\e[J' -c ed:cd
  ble/init:term/define-cap _ble_term_ich '' ich:IC 123 # CSI @
  ble/init:term/define-cap _ble_term_dch '' dch:DC 123 # CSI P
  ble/init:term/define-cap _ble_term_ech '' ech:ec 123 # CSI X
  _ble_term_ich=${_ble_term_ich//123/%d}
  _ble_term_dch=${_ble_term_dch//123/%d}
  _ble_term_ech=${_ble_term_ech//123/%d}
  ble/init:term/define-cap _ble_term_sc $'\e7' sc:sc # \e[s
  ble/init:term/define-cap _ble_term_rc $'\e8' rc:rc # \e[u
  [[ $TERM == minix ]] && _ble_term_sc= _ble_term_rc=
  ble/init:term/define-cap _ble_term_Ss '' Ss:Ss 123 # DECSCUSR
  _ble_term_Ss=${_ble_term_Ss//123/@1}
  ble/init:term/define-cap _ble_term_cvvis $'\e[?25h' cvvis:vs
  ble/init:term/define-cap _ble_term_civis $'\e[?25l' civis:vi
  [[ $TERM == minix ]] && _ble_term_cvvis= _ble_term_civis=
  [[ $_ble_term_cvvis == $'\e[?12;25h' || $_ble_term_cvvis == $'\e[?25;12h' ]] &&
    _ble_term_cvvis=$'\e[?25h'
  [[ $_ble_term_cvvis == $'\e[34l'* && $_ble_term_civis != *$'\e[34h'* ]] &&
    _ble_term_civis=$_ble_term_civis$'\e[34h'
  [[ $_ble_term_civis == $'\e[?25l'* && $_ble_term_cvvis != *$'\e[?25h'* ]] &&
    _ble_term_cvvis=$_ble_term_cvvis$'\e[?25h'
  ble/init:term/define-cap _ble_term_smcup '' smcup:ti # \e[?1049h
  ble/init:term/define-cap _ble_term_rmcup '' rmcup:te # \e[?1049l
  ble/init:term/define-cap _ble_term_tsl '' tsl:ts
  ble/init:term/define-cap _ble_term_fsl '' fsl:fs
  ble/init:term/define-cap _ble_term_dsl '' dsl:ds
  [[ ! $_ble_term_dsl && $_ble_term_fsl ]] &&
    _ble_term_dsl=$_ble_term_tsl$_ble_term_fsl
  ble/init:term/define-cap _ble_term_sgr0 $'\e[m' sgr0:me
  ble/init:term/define-cap _ble_term_bold  $'\e[1m' bold:md
  ble/init:term/define-cap _ble_term_blink $'\e[5m' blink:mb
  ble/init:term/define-cap _ble_term_rev   $'\e[7m' rev:mr
  ble/init:term/define-cap _ble_term_invis $'\e[8m' invis:mk
  ble/init:term/define-sgr-param _ble_term_sgr_bold  "$_ble_term_bold"  1
  ble/init:term/define-sgr-param _ble_term_sgr_blink "$_ble_term_blink" 5
  ble/init:term/define-sgr-param _ble_term_sgr_rev   "$_ble_term_rev"   7
  ble/init:term/define-sgr-param _ble_term_sgr_invis "$_ble_term_invis" 8
  ble/init:term/define-cap _ble_term_sitm $'\e[3m'  sitm:ZH
  ble/init:term/define-cap _ble_term_ritm $'\e[23m' ritm:ZR
  ble/init:term/define-cap _ble_term_smul $'\e[4m'  smul:us
  ble/init:term/define-cap _ble_term_rmul $'\e[24m' rmul:ue
  ble/init:term/define-cap _ble_term_smso $'\e[7m'  smso:so
  ble/init:term/define-cap _ble_term_rmso $'\e[27m' rmso:se
  ble/init:term/define-sgr-param _ble_term_sgr_sitm "$_ble_term_sitm" 3
  ble/init:term/define-sgr-param _ble_term_sgr_ritm "$_ble_term_ritm" 23
  ble/init:term/define-sgr-param _ble_term_sgr_smul "$_ble_term_smul" 4
  ble/init:term/define-sgr-param _ble_term_sgr_rmul "$_ble_term_rmul" 24
  ble/init:term/define-sgr-param _ble_term_sgr_smso "$_ble_term_smso" 7
  ble/init:term/define-sgr-param _ble_term_sgr_rmso "$_ble_term_rmso" 27
  ble/init:term/register-varname _ble_term_sgr_rev_reset
  if [[ $_ble_term_sgr_smso && $_ble_term_sgr_smso == "$_ble_term_sgr_rev" ]]; then
    _ble_term_sgr_rev_reset=$_ble_term_sgr_rmso
  else
    _ble_term_sgr_rev_reset=
  fi
  ble/init:term/define-cap _ble_term_colors 256 colors:Co
  local i
  _ble_term_setaf=()
  _ble_term_setab=()
  _ble_term_sgr_af=()
  _ble_term_sgr_ab=()
  for ((i=0;i<16;i++)); do
    local i1=$((i%8)) af= ab=
    if [[ $TERM == *-direct ]]; then
      if ((i<8)); then
        af=$'\e[3'$i'm'
        ab=$'\e[4'$i'm'
      else
        af=$'\e[38;5;'$i'm'
        ab=$'\e[48;5;'$i'm'
      fi
    else
      if ((i<_ble_term_colors)); then
        local j1
        ((j1=(i1==3?6:
              (i1==6?3:
               (i1==1?4:
                (i1==4?1:i1))))))
        local j=$((i-i1+j1))
        ble/util/assign af 'ble/init:term/tput setaf:AF "$i" 2>/dev/null'
        [[ $af ]] || ble/util/assign af 'ble/init:term/tput setf:Sf "$j" 2>/dev/null'
        ble/util/assign ab 'ble/init:term/tput setab:AB "$i" 2>/dev/null'
        [[ $ab ]] || ble/util/assign ab 'ble/init:term/tput setb:Sb "$j" 2>/dev/null'
      fi
    fi
    [[ $af ]] || af=$'\e[3'$i1'm'
    [[ $ab ]] || ab=$'\e[4'$i1'm'
    _ble_term_setaf[i]=$af
    _ble_term_setab[i]=$ab
    local ansi_sgr_af=3$i1 ansi_sgr_ab=4$i1
    ((i>=8)) && ansi_sgr_af=9$i1 ansi_sgr_ab=10$i1
    ble/init:term/define-sgr-param "_ble_term_sgr_af[i]" "$af" "$ansi_sgr_af"
    ble/init:term/define-sgr-param "_ble_term_sgr_ab[i]" "$ab" "$ansi_sgr_ab"
  done
  ble/init:term/register-varname "_ble_term_setaf"
  ble/init:term/register-varname "_ble_term_setab"
  ble/init:term/register-varname "_ble_term_sgr_af"
  ble/init:term/register-varname "_ble_term_sgr_ab"
  ble/util/declare-print-definitions "${varnames[@]}" >| "$_ble_base_cache/term.$TERM"
}
ble/util/put "ble/term.sh: updating tput cache for TERM=$TERM... " >&2
ble/init:term/initialize
ble/util/print $'\r'"ble/term.sh: updating tput cache for TERM=$TERM... done" >&2
return 0