ble.sh & z4h addition

1 files changed, 228 insertions, 0 deletions

diff --git a/.local/src/blesh/lib/init-term.sh b/.local/src/blesh/lib/init-term.sh
new file mode 100644
index 0000000..cd9647b
--- /dev/null
+++ b/.local/src/blesh/lib/init-term.sh
@@ -0,0 +1,228 @@
+# 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