From 4a94495f747fef1b32bb8ea3aa8adbe81314795a Mon Sep 17 00:00:00 2001 From: Saumit Dinesan Date: Mon, 5 Sep 2022 03:26:33 +0530 Subject: spring cleaning 0.3 --- .local/src/blesh/lib/init-term.sh | 228 -------------------------------------- 1 file changed, 228 deletions(-) delete mode 100644 .local/src/blesh/lib/init-term.sh (limited to '.local/src/blesh/lib/init-term.sh') diff --git a/.local/src/blesh/lib/init-term.sh b/.local/src/blesh/lib/init-term.sh deleted file mode 100644 index cd9647b..0000000 --- a/.local/src/blesh/lib/init-term.sh +++ /dev/null @@ -1,228 +0,0 @@ -# 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 -- cgit v1.2.3