ble.sh & z4h addition

22 files changed, 16257 insertions, 0 deletions

diff --git a/.local/src/blesh/lib/core-cmdspec.sh b/.local/src/blesh/lib/core-cmdspec.sh
new file mode 100644
index 0000000..9da62a8
--- /dev/null
+++ b/.local/src/blesh/lib/core-cmdspec.sh
@@ -0,0 +1,66 @@
+# this script is a part of blesh (https://github.com/akinomyoga/ble.sh) under BSD-3-Clause license
+function ble/cmdspec/initialize { return 0; }
+function ble/complete/opts/initialize {
+  ble/cmdspec/opts mandb-help                                    printf
+  ble/cmdspec/opts mandb-disable-man:mandb-help                  bind
+  ble/cmdspec/opts mandb-disable-man:mandb-help:mandb-help-usage complete
+  ble/cmdspec/opts mandb-disable-man:no-options                  : true false
+  ble/cmdspec/opts mandb-help=%'help echo':stop-options-unless='^-[neE]+$' echo
+  local conditional_operators='
+    -eq (NUM1 -eq NUM2)      Arithmetic comparison ==.
+    -ne (NUM1 -ne NUM2)      Arithmetic comparison !=.
+    -lt (NUM1 -lt NUM2)      Arithmetic comparison < .
+    -le (NUM1 -le NUM2)      Arithmetic comparison <=.
+    -gt (NUM1 -gt NUM2)      Arithmetic comparison > .
+    -ge (NUM1 -ge NUM2)      Arithmetic comparison >=.
+    -nt (FILE1 -nt FILE2)    True if file1 is newer than file2 (according to modification date).
+    -ot (FILE1 -ot FILE2)    True if file1 is older than file2.
+    -ef (FILE1 -ef FILE2)    True if file1 is a hard link to file2.'
+  ble/cmdspec/opts disable-double-hyphen:mandb-help=%'help test':mandb-help=@"$conditional_operators" '[['
+  local test_operators=$conditional_operators'
+    -a (EXPR1 -a EXPR2)      True if both expr1 AND expr2 are true.
+    -a (EXPR1 -o EXPR2)      True if either expr1 OR expr2 is true.'
+  ble/cmdspec/opts disable-double-hyphen:mandb-help=%'help test':mandb-help=@"$test_operators"        'test' '['
+  ble/cmdspec/opts mandb-disable-man:mandb-help:stop-options-postarg:plus-options=aAilnrtux declare typeset local
+  ble/cmdspec/opts mandb-disable-man:mandb-help:stop-options-postarg local export readonly
+  ble/cmdspec/opts mandb-disable-man:mandb-help:stop-options-postarg alias
+  ble/cmdspec/opts mandb-help rsync
+}
+ble/complete/opts/initialize
+function ble/cmdinfo/cmd:declare/chroma.wattr {
+  local ret
+  if ((wtype==_ble_attr_VAR)); then
+    ble/syntax:bash/find-rhs "$wtype" "$wbeg" "$wlen" element-assignment &&
+      ble/progcolor/highlight-filename.wattr "$ret" "$wend"
+  else
+    ble/progcolor/eval-word || return "$?"
+    local wval=$ret
+    if ble/string#match "$wval" '^([_a-zA-Z][_a-zA-Z0-9]*)(\[.+\])?$'; then
+      local varname=${BASH_REMATCH[1]}
+      ble/syntax/highlight/vartype "$varname"
+      ble/progcolor/wattr#setattr "$wbeg" "$ret"
+      ble/progcolor/wattr#setattr $((wbeg+${#varname})) d
+    elif ble/string#match "$wval" '^[-+]' && ble/progcolor/is-option-context; then
+      local ret; ble/color/face2g argument_option
+      ble/progcolor/wattr#setg "$wbeg" "$ret"
+    else
+      local ret; ble/color/face2g argument_error
+      ble/progcolor/wattr#setg "$wbeg" "$ret"
+    fi
+  fi
+  return 0
+}
+function ble/cmdinfo/cmd:declare/chroma {
+  local i "${_ble_syntax_progcolor_vars[@]/%/=}" # WA #D1570 checked
+  for ((i=1;i<${#comp_words[@]};i++)); do
+    local ref=${tree_words[i]}
+    [[ $ref ]] || continue
+    local progcolor_iword=$i
+    ble/progcolor/load-word-data "$ref"
+    ble/progcolor/@wattr ble/cmdinfo/cmd:declare/chroma.wattr
+  done
+}
+function ble/cmdinfo/cmd:typeset/chroma  { ble/cmdinfo/cmd:declare/chroma "$@"; }
+function ble/cmdinfo/cmd:local/chroma    { ble/cmdinfo/cmd:declare/chroma "$@"; }
+function ble/cmdinfo/cmd:readonly/chroma { ble/cmdinfo/cmd:declare/chroma "$@"; }
+function ble/cmdinfo/cmd:export/chroma   { ble/cmdinfo/cmd:declare/chroma "$@"; }
diff --git a/.local/src/blesh/lib/core-complete.sh b/.local/src/blesh/lib/core-complete.sh
new file mode 100644
index 0000000..9d7c4c1
--- /dev/null
+++ b/.local/src/blesh/lib/core-complete.sh
@@ -0,0 +1,6327 @@
+# this script is a part of blesh (https://github.com/akinomyoga/ble.sh) under BSD-3-Clause license
+ble/util/import "$_ble_base/lib/core-syntax.sh"
+function ble/complete/string#search-longest-suffix-in {
+  local needle=$1 haystack=$2
+  local l=0 u=${#needle}
+  while ((l<u)); do
+    local m=$(((l+u)/2))
+    if [[ $haystack == *"${needle:m}"* ]]; then
+      u=$m
+    else
+      l=$((m+1))
+    fi
+  done
+  ret=${needle:l}
+}
+function ble/complete/string#common-suffix-prefix {
+  local lhs=$1 rhs=$2
+  if ((${#lhs}<${#rhs})); then
+    local i n=${#lhs}
+    for ((i=0;i<n;i++)); do
+      ret=${lhs:i}
+      [[ $rhs == "$ret"* ]] && return 0
+    done
+    ret=
+  else
+    local j m=${#rhs}
+    for ((j=m;j>0;j--)); do
+      ret=${rhs::j}
+      [[ $lhs == *"$ret" ]] && return 0
+    done
+    ret=
+  fi
+}
+function ble/complete/get-wordbreaks {
+  wordbreaks=$_ble_term_IFS$COMP_WORDBREAKS
+  [[ $wordbreaks == *'('* ]] && wordbreaks=${wordbreaks//['()']}'()'
+  [[ $wordbreaks == *']'* ]] && wordbreaks=']'${wordbreaks//']'}
+  [[ $wordbreaks == *'-'* ]] && wordbreaks=${wordbreaks//'-'}'-'
+}
+_ble_complete_menu_items=()
+_ble_complete_menu_class=
+_ble_complete_menu_param=
+_ble_complete_menu_version=
+_ble_complete_menu_page_style=
+_ble_complete_menu_ipage=
+_ble_complete_menu_offset=
+_ble_complete_menu_icons=()
+_ble_complete_menu_info_data=()
+_ble_complete_menu_selected=-1
+function ble/complete/menu#check-cancel {
+  ((menu_iloop++%menu_interval==0)) &&
+    [[ :$comp_type: != *:sync:* ]] &&
+    ble/decode/has-input
+}
+_ble_complete_menu_style_measure=()
+_ble_complete_menu_style_icons=()
+_ble_complete_menu_style_pages=()
+function ble/complete/menu#render-item {
+  if ble/is-function "$menu_class"/render-item; then
+    "$menu_class"/render-item "$@"
+    return "$?"
+  fi
+  local item=$1 opts=$2
+  local sgr0=$_ble_term_sgr0 sgr1=$_ble_term_rev
+  [[ :$opts: == *:selected:* ]] && local sgr0=$sgr1 sgr1=$sgr0
+  ble/canvas/trace-text "$item" nonewline:external-sgr
+  ret=$sgr0$ret$_ble_term_sgr0
+}
+function ble/complete/menu-style:align/construct/.measure-candidates-in-page {
+  local max_wcell=$bleopt_menu_align_max; ((max_wcell>cols&&(max_wcell=cols)))
+  ((wcell=bleopt_menu_align_min,wcell<2&&(wcell=2)))
+  local ncell=0 index=$begin
+  local item ret esc1 w
+  for item in "${menu_items[@]:begin}"; do
+    ble/complete/menu#check-cancel && return 148
+    local wcell_old=$wcell
+    local w=${_ble_complete_menu_style_measure[index]%%:*}
+    if [[ ! $w ]]; then
+      local x=0 y=0
+      ble/complete/menu#render-item "$item"; esc1=$ret
+      local w=$((y*cols+x))
+      _ble_complete_menu_style_measure[index]=$w:${#item}:$item$esc1
+    fi
+    local wcell_request=$((w++,w<=max_wcell?w:max_wcell))
+    ((wcell<wcell_request)) && wcell=$wcell_request
+    local line_ncell=$((cols/wcell))
+    local cand_ncell=$(((w+wcell-1)/wcell))
+    if [[ $menu_style == align-nowrap ]]; then
+      local x1=$((ncell%line_ncell*wcell))
+      local ncell_eol=$(((ncell/line_ncell+1)*line_ncell))
+      if ((x1>0&&x1+w>=cols)); then
+        ((ncell=ncell_eol+cand_ncell))
+      elif ((x1+w<cols)); then
+        ((ncell+=cand_ncell))
+        ((ncell>ncell_eol&&(ncell=ncell_eol)))
+      else
+        ((ncell+=cand_ncell))
+      fi
+    else
+      ((ncell+=cand_ncell))
+    fi
+    local max_ncell=$((line_ncell*lines))
+    ((index&&ncell>max_ncell)) && { wcell=$wcell_old; break; }
+    ((index++))
+  done
+  end=$index
+}
+function ble/complete/menu-style:align/construct-page {
+  x=0 y=0 esc=
+  local wcell=2
+  ble/complete/menu-style:align/construct/.measure-candidates-in-page
+  (($?==148)) && return 148
+  local ncell=$((cols/wcell))
+  local index=$begin entry
+  for entry in "${_ble_complete_menu_style_measure[@]:begin:end-begin}"; do
+    ble/complete/menu#check-cancel && return 148
+    local w=${entry%%:*}; entry=${entry#*:}
+    local s=${entry%%:*}; entry=${entry#*:}
+    local item=${entry::s} esc1=${entry:s}
+    local x0=$x y0=$y
+    if ((x==0||x+w<cols)); then
+      ((x+=w%cols,y+=w/cols))
+      ((y>=lines&&(x=x0,y=y0,1))) && break
+    else
+      if [[ $menu_style == align-nowrap ]]; then
+        ((y+1>=lines)) && break
+        esc=$esc$'\n'
+        ((x0=x=0,y0=++y))
+        ((x=w%cols,y+=w/cols))
+        ((y>=lines&&(x=x0,y=y0,1))) && break
+      else
+        ble/complete/menu#render-item "$item" ||
+          ((begin==index)) || # [Note: 少なくとも1個ははみ出ても表示する]
+          { x=$x0 y=$y0; break; }; esc1=$ret
+      fi
+    fi
+    _ble_complete_menu_style_icons[index]=$x0,$y0,$x,$y,${#item},${#esc1}:$item$esc1
+    esc=$esc$esc1
+    if ((++index<end)); then
+      local icell=$((x==0?0:(x+wcell)/wcell))
+      if ((icell<ncell)); then
+        local pad=$((icell*wcell-x))
+        ble/string#reserve-prototype "$pad"
+        esc=$esc${_ble_string_prototype::pad}
+        ((x=icell*wcell))
+      else
+        ((y+1>=lines)) && break
+        esc=$esc$'\n'
+        ((x=0,++y))
+      fi
+    fi
+  done
+  end=$index
+}
+function ble/complete/menu-style:align-nowrap/construct-page {
+  ble/complete/menu-style:align/construct-page "$@"
+}
+function ble/complete/menu-style:dense/construct-page {
+  x=0 y=0 esc=
+  local item index=$begin N=${#menu_items[@]}
+  for item in "${menu_items[@]:begin}"; do
+    ble/complete/menu#check-cancel && return 148
+    local x0=$x y0=$y esc1
+    ble/complete/menu#render-item "$item" ||
+      ((index==begin)) ||
+      { x=$x0 y=$y0; break; }; esc1=$ret
+    if [[ $menu_style == dense-nowrap ]]; then
+      if ((y>y0&&x>0||y>y0+1)); then
+        ((++y0>=lines)) && break
+        esc=$esc$'\n'
+        ((y=y0,x=x0=0))
+        ble/complete/menu#render-item "$item" ||
+          ((begin==index)) ||
+          { x=$x0 y=$y0; break; }; esc1=$ret
+      fi
+    fi
+    _ble_complete_menu_style_icons[index]=$x0,$y0,$x,$y,${#item},${#esc1}:$item$esc1
+    esc=$esc$esc1
+    if ((++index<N)); then
+      if [[ $menu_style == dense-nowrap ]] && ((x==0)); then
+        : skip
+      elif ((x+1<cols)); then
+        esc=$esc' '
+        ((x++))
+      else
+        ((y+1>=lines)) && break
+        esc=$esc$'\n'
+        ((x=0,++y))
+      fi
+    fi
+  done
+  end=$index
+}
+function ble/complete/menu-style:dense-nowrap/construct-page {
+  ble/complete/menu-style:dense/construct-page "$@"
+}
+function ble/complete/menu-style:linewise/construct-page {
+  local opts=$1 ret
+  local max_icon_width=$((cols-1))
+  local prefix_format=$bleopt_menu_linewise_prefix prefix_width=0
+  if [[ $prefix_format ]]; then
+    local prefix1
+    ble/util/sprintf prefix1 "$prefix_format" ${#menu_items[@]}
+    local x1 y1 x2 y2
+    LINES=1 COLUMNS=$max_icon_width x=0 y=0 ble/canvas/trace "$prefix1" truncate:measure-bbox
+    if ((x2<=max_icon_width/2)); then
+      prefix_width=$x2
+      ble/string#reserve-prototype "$prefix_width"
+    fi
+  fi
+  local item x0 y0 esc1 index=$begin
+  end=$begin x=0 y=0 esc=
+  for item in "${menu_items[@]:begin:lines}"; do
+    ble/complete/menu#check-cancel && return 148
+    if ((prefix_width)); then
+      local prefix1; ble/util/sprintf prefix1 "$prefix_format" $((index+1))
+      LINES=1 COLUMNS=$max_icon_width y=0 ble/canvas/trace "$prefix1" truncate:relative:measure-bbox; esc1=$ret
+      if ((x<prefix_width)); then
+        x=$prefix_width
+        esc=$esc${_ble_string_prototype::prefix_width-x}$esc1
+      else
+        esc=$esc$esc1
+      fi
+    fi
+    ((x0=x,y0=y))
+    lines=1 cols=$max_icon_width y=0 ble/complete/menu#render-item "$item"; esc1=$ret
+    _ble_complete_menu_style_icons[index]=$x0,$y0,$x,$y,${#item},${#esc1}:$item$esc1
+    ((index++))
+    esc=$esc$esc1
+    ((y+1>=lines)) && break
+    ((x=0,++y))
+    esc=$esc$'\n'
+  done
+  end=$index
+}
+function ble/complete/menu-style:linewise/guess {
+  ((ipage=scroll/lines,
+    begin=ipage*lines,
+    end=begin))
+}
+_ble_complete_menu_desc_pageheight=()
+function ble/complete/menu-style:desc/construct-page {
+  local opts=$1 ret
+  local opt_raw=; [[ $menu_style != desc-text ]] && opt_raw=1
+  end=$begin esc= x=0 y=0
+  local colsep=' | '
+  local desc_sgr0=$'\e[m'
+  ble/color/face2sgr-ansi syntax_quoted; local desc_sgrq=$ret
+  ble/color/face2sgr-ansi syntax_delimiter; local desc_sgrt=$ret
+  local ncolumn=1 nline=$lines
+  local nrest_item=$((${#menu_items[@]}-begin))
+  if [[ $bleopt_menu_desc_multicolumn_width ]]; then
+    ncolumn=$((cols/bleopt_menu_desc_multicolumn_width))
+    if ((ncolumn<1)); then
+      ncolumn=1
+    elif ((ncolumn>nrest_item)); then
+      ncolumn=$nrest_item
+    fi
+  fi
+  ((nline=(${#menu_items[@]}-begin+ncolumn-1)/ncolumn,
+    nline>lines&&(nline=lines)))
+  local ncolumn_max=$(((nrest_item+nline-1)/nline))
+  ((ncolumn>ncolumn_max&&(ncolumn=ncolumn_max)))
+  local available_width=$cols
+  case $_ble_term_TERM in
+  (screen:*|tmux:*|kitty:*|contra:*) ;;
+  (*) ((available_width--)) ;;
+  esac
+  local wcolumn=$(((available_width-${#colsep}*(ncolumn-1))/ncolumn))
+  local wcand_limit=$(((wcolumn+1)*2/3))
+  ((wcand_limit<10&&(wcand_limit=wcolumn)))
+  local -a DRAW_BUFF=()
+  local index=$begin icolumn ymax=0
+  for ((icolumn=0;icolumn<ncolumn;icolumn++)); do
+    local measure; measure=()
+    local pack w esc1 max_width=0
+    for pack in "${menu_items[@]:index:nline}"; do
+      ble/complete/menu#check-cancel && return 148
+      x=0 y=0
+      lines=1 cols=$wcand_limit ble/complete/menu#render-item "$pack"; esc1=$ret
+      ((w=y*wcolumn+x,w>max_width&&(max_width=w)))
+      ble/array#push measure "$w:${#pack}:$pack$esc1"
+    done
+    local cand_width=$max_width
+    local desc_x=$((cand_width+1)); ((desc_x>wcolumn&&(desc_x=wcolumn)))
+    local desc_prefix=; ((wcolumn-desc_x>30)) && desc_prefix=': '
+    local xcolumn=$((icolumn*(wcolumn+${#colsep})))
+    x=0 y=0
+    local entry w s pack esc1 x0 y0 pad
+    for entry in "${measure[@]}"; do
+      ble/complete/menu#check-cancel && return 148
+      w=${entry%%:*} entry=${entry#*:}
+      s=${entry%%:*} entry=${entry#*:}
+      pack=${entry::s} esc1=${entry:s}
+      ((x0=x,y0=y,x+=w))
+      _ble_complete_menu_style_icons[index]=$((xcolumn+x0)),$y0,$((xcolumn+x)),$y,${#pack},${#esc1},"0 0 $wcand_limit 1":$pack$esc1
+      ((index++))
+      ble/canvas/put.draw "$esc1"
+      ble/canvas/put-spaces.draw $((pad=desc_x-x))
+      ble/canvas/put.draw "$desc_prefix"
+      ((x+=pad+${#desc_prefix}))
+      local desc=$desc_sgrt'(no description)'$desc_sgr0
+      ble/function#try "$menu_class"/get-desc "$pack"
+      if [[ $opt_raw ]]; then
+        y=0 g=0 lc=0 lg=0 LINES=1 COLUMNS=$wcolumn ble/canvas/trace.draw "$desc" truncate:relative:ellipsis
+      else
+        y=0 lines=1 cols=$wcolumn ble/canvas/trace-text "$desc" nonewline
+        ble/canvas/put.draw "$ret"
+      fi
+      ble/canvas/put.draw "$_ble_term_sgr0"
+      ((y+1>=nline)) && break
+      ble/canvas/put-move.draw $((-x)) 1
+      ((x=0,++y))
+    done
+    ((y>ymax)) && ymax=$y
+    if ((icolumn+1<ncolumn)); then
+      ble/canvas/put-move.draw $((wcolumn-x)) $((-y))
+      for ((y=0;y<=ymax;y++)); do
+        ble/canvas/put.draw "$colsep"
+        if ((y<ymax)); then
+          ble/canvas/put-move.draw -${#colsep} 1
+        else
+          ble/canvas/put-move-y.draw $((-y))
+        fi
+      done
+    else
+      ((y<ymax)) && ble/canvas/put-move-y.draw $((ymax-y))
+      ((x+=xcolumn,y=ymax))
+    fi
+  done
+  _ble_complete_menu_desc_pageheight[ipage]=$nline
+  end=$index
+  ble/canvas/sflush.draw -v esc
+}
+function ble/complete/menu-style:desc/guess {
+  local ncolumn=1
+  if [[ $bleopt_menu_desc_multicolumn_width ]]; then
+    ncolumn=$((cols/bleopt_menu_desc_multicolumn_width))
+    ((ncolumn<1)) && ncolumn=1
+  fi
+  local nitem_per_page=$((ncolumn*lines))
+  ((ipage=scroll/nitem_per_page,
+    begin=ipage*nitem_per_page,
+    end=begin))
+}
+function ble/complete/menu-style:desc/locate {
+  local type=$1 osel=$2
+  local ipage=$_ble_complete_menu_ipage
+  local nline=${_ble_complete_menu_desc_pageheight[ipage]:-1}
+  case $type in
+  (right) ((ret=osel+nline)) ;;
+  (left)  ((ret=osel-nline)) ;;
+  (down)  ((ret=osel+1)) ;;
+  (up)    ((ret=osel-1)) ;;
+  (*) return 1 ;;
+  esac
+  local beg=$_ble_complete_menu_offset
+  local end=$((beg+${#_ble_complete_menu_icons[@]}))
+  if ((ret<beg)); then
+    ((ret=beg-1))
+  elif ((ret>end)); then
+    ((ret=end))
+  fi
+  return 0
+}
+function ble/complete/menu-style:desc-text/construct-page { ble/complete/menu-style:desc/construct-page "$@"; }
+function ble/complete/menu-style:desc-text/guess { ble/complete/menu-style:desc/guess; }
+function ble/complete/menu-style:desc-text/locate { ble/complete/menu-style:desc/locate "$@"; }
+function ble/complete/menu-style:desc-raw/construct-page { ble/complete/menu-style:desc/construct-page "$@"; }
+function ble/complete/menu-style:desc-raw/guess { ble/complete/menu-style:desc/guess; }
+function ble/complete/menu-style:desc-raw/locate { ble/complete/menu-style:desc/locate "$@"; }
+function ble/complete/menu#construct/.initialize-size {
+  ble/edit/info/.initialize-size
+  local maxlines=$((bleopt_complete_menu_maxlines))
+  ((maxlines>0&&lines>maxlines)) && lines=$maxlines
+}
+function ble/complete/menu#construct {
+  local menu_opts=$1
+  local menu_iloop=0
+  local menu_interval=$bleopt_complete_polling_cycle
+  local cols lines
+  ble/complete/menu#construct/.initialize-size
+  local nitem=${#menu_items[@]}
+  local version=$nitem:$lines:$cols
+  if ((nitem==0)); then
+    _ble_complete_menu_version=$version
+    _ble_complete_menu_items=()
+    _ble_complete_menu_page_style=
+    _ble_complete_menu_ipage=0
+    _ble_complete_menu_offset=0
+    _ble_complete_menu_icons=()
+    _ble_complete_menu_info_data=(ansi $'\e[38;5;242m(no items)\e[m')
+    _ble_complete_menu_selected=-1
+    return 0
+  fi
+  local scroll=0 rex=':scroll=([0-9]+):' use_cache=
+  if [[ :$menu_opts: =~ $rex ]]; then
+    scroll=${BASH_REMATCH[1]}
+    ((nitem&&(scroll%=nitem)))
+    [[ $_ble_complete_menu_version == $version ]] && use_cache=1
+  fi
+  if [[ ! $use_cache ]]; then
+    _ble_complete_menu_style_measure=()
+    _ble_complete_menu_style_icons=()
+    _ble_complete_menu_style_pages=()
+  fi
+  local begin=0 end=0 ipage=0 x y esc
+  ble/function#try ble/complete/menu-style:"$menu_style"/guess
+  while ((end<nitem)); do
+    ((scroll<begin)) && return 1
+    local page_data=${_ble_complete_menu_style_pages[ipage]}
+    if [[ $page_data ]]; then
+      local fields; ble/string#split fields , "${page_data%%:*}"
+      begin=${fields[0]} end=${fields[1]}
+      if ((begin<=scroll&&scroll<end)); then
+        x=${fields[2]} y=${fields[3]} esc=${page_data#*:}
+        break
+      fi
+    else
+      ble/complete/menu-style:"$menu_style"/construct-page "$menu_opts" || return "$?"
+      _ble_complete_menu_style_pages[ipage]=$begin,$end,$x,$y:$esc
+      ((begin<=scroll&&scroll<end)) && break
+    fi
+    begin=$end
+    ((ipage++))
+  done
+  _ble_complete_menu_version=$version
+  _ble_complete_menu_items=("${menu_items[@]}")
+  _ble_complete_menu_class=$menu_class
+  _ble_complete_menu_param=$menu_param
+  _ble_complete_menu_page_style=$menu_style
+  _ble_complete_menu_ipage=$ipage
+  _ble_complete_menu_offset=$begin
+  _ble_complete_menu_icons=("${_ble_complete_menu_style_icons[@]:begin:end-begin}")
+  _ble_complete_menu_info_data=(store "$x" "$y" "$esc")
+  _ble_complete_menu_selected=-1
+  return 0
+}
+function ble/complete/menu#show {
+  ble/edit/info/immediate-show "${_ble_complete_menu_info_data[@]}"
+}
+function ble/complete/menu#clear {
+  ble/edit/info/default
+}
+function ble/complete/menu#select {
+  local menu_class=$_ble_complete_menu_class
+  local menu_param=$_ble_complete_menu_param
+  local osel=$_ble_complete_menu_selected nsel=$1 opts=$2
+  local ncand=${#_ble_complete_menu_items[@]}
+  ((0<=osel&&osel<ncand)) || osel=-1
+  ((0<=nsel&&nsel<ncand)) || nsel=-1
+  ((osel==nsel)) && return 0
+  local infox infoy
+  ble/canvas/panel#get-origin "$_ble_edit_info_panel" --prefix=info
+  local visible_beg=$_ble_complete_menu_offset
+  local visible_end=$((visible_beg+${#_ble_complete_menu_icons[@]}))
+  if ((nsel>=0&&!(visible_beg<=nsel&&nsel<visible_end))); then
+    ble/complete/menu/show filter:load-filtered-data:scroll="$nsel"; local ext=$?
+    ((ext)) && return "$ext"
+    if [[ $_ble_complete_menu_ipage ]]; then
+      local ipage=$_ble_complete_menu_ipage
+      ble/term/visible-bell "menu: Page $((ipage+1))" persistent
+    else
+      ble/term/visible-bell "menu: Offset $_ble_complete_menu_offset/$ncand" persistent
+    fi
+    visible_beg=$_ble_complete_menu_offset
+    visible_end=$((visible_beg+${#_ble_complete_menu_icons[@]}))
+    ((visible_end<=nsel&&(nsel=visible_end-1)))
+    ((nsel<=visible_beg&&(nsel=visible_beg)))
+    ((visible_beg<=osel&&osel<visible_end)) || osel=-1
+  fi
+  local -a DRAW_BUFF=()
+  local ret; ble/canvas/panel/save-position; local pos0=$ret
+  if ((osel>=0)); then
+    local entry=${_ble_complete_menu_icons[osel-visible_beg]}
+    local fields text=${entry#*:}
+    ble/string#split fields , "${entry%%:*}"
+    if ((fields[3]<_ble_canvas_panel_height[_ble_edit_info_panel])); then
+      ble/canvas/panel#goto.draw "$_ble_edit_info_panel" "${fields[@]::2}"
+      ble/canvas/put.draw "${text:fields[4]}"
+      _ble_canvas_x=${fields[2]} _ble_canvas_y=$((infoy+fields[3]))
+    fi
+  fi
+  local value=
+  if ((nsel>=0)); then
+    [[ :$opts: == *:goto-page-top:* ]] && nsel=$visible_beg
+    local entry=${_ble_complete_menu_icons[nsel-visible_beg]}
+    local fields text=${entry#*:}
+    ble/string#split fields , "${entry%%:*}"
+    local x=${fields[0]} y=${fields[1]}
+    local item=${text::fields[4]}
+    local ret
+    if [[ ${fields[6]} ]]; then
+      local box cols lines
+      ble/string#split-words box "${fields[6]}"
+      x=${box[0]} y=${box[1]} cols=${box[2]} lines=${box[3]}
+      ble/complete/menu#render-item "$item" selected
+      ((x+=fields[0]-box[0]))
+      ((y+=fields[1]-box[1]))
+    else
+      local cols lines
+      ble/complete/menu#construct/.initialize-size
+      ble/complete/menu#render-item "$item" selected
+    fi
+    if ((y<_ble_canvas_panel_height[_ble_edit_info_panel])); then
+      ble/canvas/panel#goto.draw "$_ble_edit_info_panel" "${fields[@]::2}"
+      ble/canvas/put.draw "$ret"
+      _ble_canvas_x=$x _ble_canvas_y=$((infoy+y))
+    fi
+    _ble_complete_menu_selected=$nsel
+  else
+    _ble_complete_menu_selected=-1
+    value=$_ble_complete_menu_original
+  fi
+  ble/canvas/panel/load-position.draw "$pos0"
+  ble/canvas/bflush.draw
+  ble/function#try "$menu_class"/onselect "$nsel" "$osel"
+  return 0
+}
+function ble/widget/menu/forward {
+  local opts=$1
+  local nsel=$((_ble_complete_menu_selected+1))
+  local ncand=${#_ble_complete_menu_items[@]}
+  if ((nsel>=ncand)); then
+    if [[ :$opts: == *:cyclic:* ]] && ((ncand>=2)); then
+      nsel=0
+    else
+      ble/widget/.bell "menu: no more candidates"
+      return 1
+    fi
+  fi
+  ble/complete/menu#select "$nsel"
+}
+function ble/widget/menu/backward {
+  local opts=$1
+  local nsel=$((_ble_complete_menu_selected-1))
+  if ((nsel<0)); then
+    local ncand=${#_ble_complete_menu_items[@]}
+    if [[ :$opts: == *:cyclic:* ]] && ((ncand>=2)); then
+      ((nsel=ncand-1))
+    else
+      ble/widget/.bell "menu: no more candidates"
+      return 1
+    fi
+  fi
+  ble/complete/menu#select "$nsel"
+}
+function ble/widget/menu/forward-column {
+  local osel=$((_ble_complete_menu_selected))
+  if local ret; ble/function#try ble/complete/menu-style:"$_ble_complete_menu_page_style"/locate right "$osel"; then
+    local nsel=$ret ncand=${#_ble_complete_menu_items[@]}
+    if ((0<=nsel&&nsel<ncand&&nsel!=osel)); then
+      ble/complete/menu#select "$nsel"
+    else
+      ble/widget/.bell "menu: no more candidates"
+    fi
+  else
+    ble/widget/menu/forward
+  fi
+}
+function ble/widget/menu/backward-column {
+  local osel=$((_ble_complete_menu_selected))
+  if local ret; ble/function#try ble/complete/menu-style:"$_ble_complete_menu_page_style"/locate left "$osel"; then
+    local nsel=$ret ncand=${#_ble_complete_menu_items[@]}
+    if ((0<=nsel&&nsel<ncand&&nsel!=osel)); then
+      ble/complete/menu#select "$nsel"
+    else
+      ble/widget/.bell "menu: no more candidates"
+    fi
+  else
+    ble/widget/menu/backward
+  fi
+}
+_ble_complete_menu_lastcolumn=
+function ble/widget/menu/.check-last-column {
+  if [[ $_ble_complete_menu_lastcolumn ]]; then
+    local lastwidget=${LASTWIDGET%%' '*}
+    if [[ $lastwidget == ble/widget/menu/forward-line ||
+            $lastwidget == ble/widget/menu/backward-line ]]
+    then
+      ox=$_ble_complete_menu_lastcolumn
+      return 0
+    fi
+  fi
+  _ble_complete_menu_lastcolumn=$ox
+}
+function ble/widget/menu/.goto-column {
+  local column=$1
+  local offset=$_ble_complete_menu_offset
+  local osel=$_ble_complete_menu_selected
+  ((osel>=0)) || return 1
+  local entry=${_ble_complete_menu_icons[osel-offset]}
+  local fields; ble/string#split fields , "${entry%%:*}"
+  local ox=${fields[0]} oy=${fields[1]}
+  local nsel=-1
+  if ((ox<column)); then
+    nsel=$osel
+    for entry in "${_ble_complete_menu_icons[@]:osel+1-offset}"; do
+      ble/string#split fields , "${entry%%:*}"
+      local x=${fields[0]} y=${fields[1]}
+      ((y==oy&&x<=column)) || break
+      ((nsel++))
+    done
+  elif ((ox>column)); then
+    local i=$osel
+    while ((--i>=offset)); do
+      entry=${_ble_complete_menu_icons[i-offset]}
+      ble/string#split fields , "${entry%%:*}"
+      local x=${fields[0]} y=${fields[1]}
+      ((y<oy||x<=column&&(nsel=i,1))) && break
+    done
+  fi
+  ((nsel>=0&&nsel!=osel)) &&
+    ble/complete/menu#select "$nsel"
+}
+function ble/widget/menu/forward-line {
+  local offset=$_ble_complete_menu_offset
+  local osel=$_ble_complete_menu_selected
+  ((osel>=0)) || return 1
+  local nsel=-1 goto_column=
+  if local ret; ble/function#try ble/complete/menu-style:"$_ble_complete_menu_page_style"/locate down "$osel"; then
+    nsel=$ret
+  else
+    local entry=${_ble_complete_menu_icons[osel-offset]}
+    local fields; ble/string#split fields , "${entry%%:*}"
+    local ox=${fields[0]} oy=${fields[1]}
+    ble/widget/menu/.check-last-column
+    local i=$osel nsel=-1 is_next_page=
+    for entry in "${_ble_complete_menu_icons[@]:osel+1-offset}"; do
+      ble/string#split fields , "${entry%%:*}"
+      local x=${fields[0]} y=${fields[1]}
+      ((y<=oy||y==oy+1&&x<=ox||nsel<0)) || break
+      ((++i,y>oy&&(nsel=i)))
+    done
+    ((nsel<0&&(is_next_page=1,nsel=offset+${#_ble_complete_menu_icons[@]})))
+    ((is_next_page)) && goto_column=$ox
+  fi
+  local ncand=${#_ble_complete_menu_items[@]}
+  if ((0<=nsel&&nsel<ncand)); then
+    ble/complete/menu#select "$nsel"
+    [[ $goto_column ]] && ble/widget/menu/.goto-column "$goto_column"
+    return 0
+  else
+    ble/widget/.bell 'menu: no more candidates'
+    return 1
+  fi
+}
+function ble/widget/menu/backward-line {
+  local offset=$_ble_complete_menu_offset
+  local osel=$_ble_complete_menu_selected
+  ((osel>=0)) || return 1
+  local nsel=-1 goto_column=
+  if local ret; ble/function#try ble/complete/menu-style:"$_ble_complete_menu_page_style"/locate up "$osel"; then
+    nsel=$ret
+  else
+    local entry=${_ble_complete_menu_icons[osel-offset]}
+    local fields; ble/string#split fields , "${entry%%:*}"
+    local ox=${fields[0]} oy=${fields[1]}
+    ble/widget/menu/.check-last-column
+    local nsel=$osel
+    while ((--nsel>=offset)); do
+      entry=${_ble_complete_menu_icons[nsel-offset]}
+      ble/string#split fields , "${entry%%:*}"
+      local x=${fields[0]} y=${fields[1]}
+      ((y<oy-1||y==oy-1&&x<=ox)) && break
+    done
+    ((0<=nsel&&nsel<offset)) && goto_column=$ox
+  fi
+  local ncand=${#_ble_complete_menu_items[@]}
+  if ((0<=nsel&&nsel<ncand)); then
+    ble/complete/menu#select "$nsel"
+    [[ $goto_column ]] && ble/widget/menu/.goto-column "$goto_column"
+  else
+    ble/widget/.bell 'menu: no more candidates'
+    return 1
+  fi
+}
+function ble/widget/menu/backward-page {
+  if ((_ble_complete_menu_offset>0)); then
+    ble/complete/menu#select $((_ble_complete_menu_offset-1)) goto-page-top
+  else
+    ble/widget/.bell "menu: this is the first page."
+    return 1
+  fi
+}
+function ble/widget/menu/forward-page {
+  local next=$((_ble_complete_menu_offset+${#_ble_complete_menu_icons[@]}))
+  if ((next<${#_ble_complete_menu_items[@]})); then
+    ble/complete/menu#select "$next"
+  else
+    ble/widget/.bell "menu: this is the last page."
+    return 1
+  fi
+}
+function ble/widget/menu/beginning-of-page {
+  ble/complete/menu#select "$_ble_complete_menu_offset"
+}
+function ble/widget/menu/end-of-page {
+  local nicon=${#_ble_complete_menu_icons[@]}
+  ((nicon)) && ble/complete/menu#select $((_ble_complete_menu_offset+nicon-1))
+}
+function ble/widget/menu/cancel {
+  ble/decode/keymap/pop
+  ble/complete/menu#clear
+  "$_ble_complete_menu_class"/oncancel
+}
+function ble/widget/menu/accept {
+  ble/decode/keymap/pop
+  ble/complete/menu#clear
+  local nsel=$_ble_complete_menu_selected
+  local hook=$_ble_complete_menu_accept_hook
+  _ble_complete_menu_accept_hook=
+  if ((nsel>=0)); then
+    "$_ble_complete_menu_class"/onaccept "$nsel" "${_ble_complete_menu_items[nsel]}"
+  else
+    "$_ble_complete_menu_class"/onaccept "$nsel"
+  fi
+}
+function ble-decode/keymap:menu/define {
+  ble-bind -f __default__ 'bell'
+  ble-bind -f __line_limit__ nop
+  ble-bind -f C-m         'menu/accept'
+  ble-bind -f RET         'menu/accept'
+  ble-bind -f C-g         'menu/cancel'
+  ble-bind -f 'C-x C-g'   'menu/cancel'
+  ble-bind -f 'C-M-g'     'menu/cancel'
+  ble-bind -f C-f         'menu/forward-column'
+  ble-bind -f right       'menu/forward-column'
+  ble-bind -f C-i         'menu/forward cyclic'
+  ble-bind -f TAB         'menu/forward cyclic'
+  ble-bind -f C-b         'menu/backward-column'
+  ble-bind -f left        'menu/backward-column'
+  ble-bind -f C-S-i       'menu/backward cyclic'
+  ble-bind -f S-TAB       'menu/backward cyclic'
+  ble-bind -f C-n         'menu/forward-line'
+  ble-bind -f down        'menu/forward-line'
+  ble-bind -f C-p         'menu/backward-line'
+  ble-bind -f up          'menu/backward-line'
+  ble-bind -f prior       'menu/backward-page'
+  ble-bind -f next        'menu/forward-page'
+  ble-bind -f home        'menu/beginning-of-page'
+  ble-bind -f end         'menu/end-of-page'
+}
+function ble/complete/menu.class/onaccept {
+  local hook=$_ble_complete_menu_accept_hook
+  _ble_complete_menu_accept_hook=
+  "$hook" "$@"
+}
+function ble/complete/menu.class/oncancel {
+  local hook=$_ble_complete_menu_cancel_hook
+  _ble_complete_menu_cancel_hook=
+  "$hook" "$@"
+}
+function ble/complete/menu#start {
+  _ble_complete_menu_accept_hook=$1; shift
+  _ble_complete_menu_cancel_hook=
+  local menu_style=linewise
+  local menu_items; menu_items=("$@")
+  local menu_class=ble/complete/menu.class menu_param=
+  ble/complete/menu#construct sync || return "$?"
+  ble/complete/menu#show
+  ble/complete/menu#select 0
+  ble/decode/keymap/push menu
+  return 147
+}
+function ble/complete/check-cancel {
+  [[ :$comp_type: != *:sync:* ]] && ble/decode/has-input
+}
+function ble/complete/string#escape-for-completion-context {
+  local str=$1 escape_flags=$2
+  case $comps_flags in
+  (*S*)    ble/string#escape-for-bash-single-quote "$str"  ;;
+  (*E*)    ble/string#escape-for-bash-escape-string "$str" ;;
+  (*[DI]*) ble/string#escape-for-bash-double-quote "$str"  ;;
+  (*)
+    if [[ $comps_fixed ]]; then
+      ble/string#escape-for-bash-specialchars "$str" "b$escape_flags"
+    else
+      ble/string#escape-for-bash-specialchars "$str" "$escape_flags"
+    fi ;;
+  esac
+}
+function ble/complete/action/complete.addtail {
+  suffix=$suffix$1
+}
+function ble/complete/action/complete.mark-directory {
+  [[ :$comp_type: == *:markdir:* && $CAND != */ ]] &&
+    [[ ! -h $CAND || ( $insert == "$COMPS" || :$comp_type: == *:marksymdir:* ) ]] &&
+    ble/complete/action/complete.addtail /
+}
+function ble/complete/action/complete.close-quotation {
+  case $comps_flags in
+  (*[SE]*) ble/complete/action/complete.addtail \' ;;
+  (*[DI]*) ble/complete/action/complete.addtail \" ;;
+  esac
+}
+_ble_complete_quote_insert_varnames=(
+  quote_action
+  quote_escape_flags
+  quote_cont_cutbackslash
+  quote_paramx_comps
+  quote_trav_prefix
+  quote_fixed_comps
+  quote_fixed_compv
+  quote_fixed_comps_len
+  quote_fixed_compv_len)
+function ble/complete/action/quote-insert.initialize {
+  quote_action=$1
+  quote_escape_flags=c
+  if [[ $quote_action == command ]]; then
+    quote_escape_flags=
+  elif [[ $quote_action == progcomp ]]; then
+    [[ $comp_opts != *:filenames:* ]] &&
+      quote_escape_flags=${quote_escape_flags//c}
+  fi
+  [[ $comps_fixed ]] && quote_escape_flags=b$quote_escape_flags
+  quote_cont_cutbackslash=
+  [[ $comps_flags == *B* && $COMPS == *'\' ]] &&
+    quote_cont_cutbackslash=1
+  quote_paramx_comps=$COMPS
+  if [[ $comps_flags == *p* ]]; then
+    [[ $comps_flags == *B* && $quote_paramx_comps == *'\' ]] &&
+      quote_paramx_comps=${quote_paramx_comps%'\'}
+    case $comps_flags in
+    (*[DI]*)
+      if [[ $COMPS =~ $rex_raw_paramx ]]; then
+        local rematch1=${BASH_REMATCH[1]}
+        quote_paramx_comps=$rematch1'${'${COMPS:${#rematch1}+1}'}'
+      else
+        quote_paramx_comps=$quote_paramx_comps'""'
+      fi ;;
+    (*)
+      quote_paramx_comps=$quote_paramx_comps'\' ;;
+    esac
+  fi
+  quote_trav_prefix=
+  case $comps_flags in
+  (*S*) quote_trav_prefix=\' ;;
+  (*E*) quote_trav_prefix=\$\' ;;
+  (*D*) quote_trav_prefix=\" ;;
+  (*I*) quote_trav_prefix=\$\" ;;
+  esac
+  quote_fixed_comps=
+  quote_fixed_compv=
+  quote_fixed_comps_len=
+  quote_fixed_compv_len=
+  if [[ $comps_fixed ]]; then
+    quote_fixed_compv=${comps_fixed#*:}
+    quote_fixed_compv_len=${#quote_fixed_compv}
+    quote_fixed_comps_len=${comps_fixed%%:*}
+    quote_fixed_comps=${COMPS::quote_fixed_comps_len}
+  fi
+}
+function ble/complete/action/quote-insert {
+  if [[ ! $quote_action ]]; then
+    local "${_ble_complete_quote_insert_varnames[@]/%/=}" # WA #D1570 safe
+    ble/complete/action/quote-insert.initialize "${1:-plain}"
+  fi
+  local escape_flags=$quote_escape_flags
+  if [[ $quote_action == command ]]; then
+    [[ $DATA == *:noquote:* || $COMPS == "$COMPV" && ( $CAND == '[[' || $CAND == '!' ) ]] && return 0
+  elif [[ $quote_action == progcomp ]]; then
+    [[ $comp_opts == *:noquote:* ]] && return 0
+    [[ $comp_opts == *:nospace:* && $CAND == *' ' && ! -f $CAND ]] && return 0
+    [[ $CAND == '~'* && ! ( $comp_opts == *:filenames:* && -e $CAND ) ]] &&
+      escape_flags=T$escape_flags
+  fi
+  if [[ $comps_flags == *v* && $CAND == "$COMPV"* ]]; then
+    local ins ret
+    ble/complete/string#escape-for-completion-context "${CAND:${#COMPV}}" "$escape_flags"; ins=$ret
+    if [[ $comps_flags == *p* && $ins == [_a-zA-Z0-9]* ]]; then
+      INSERT=$quote_paramx_comps$ins
+    else
+      [[ $quote_cont_cutbackslash ]] && ins=${ins#'\'}
+      INSERT=$COMPS$ins;
+    fi
+  elif [[ $quote_fixed_comps && $CAND == "$quote_fixed_compv"* ]]; then
+    local ret; ble/complete/string#escape-for-completion-context "${CAND:quote_fixed_compv_len}" "$escape_flags"
+    INSERT=$quote_fixed_comps$quote_trav_prefix$ret
+  else
+    local ret; ble/complete/string#escape-for-completion-context "$CAND" "$escape_flags"
+    INSERT=$quote_trav_prefix$ret
+  fi
+}
+function ble/complete/action/quote-insert.batch/awk {
+  local q=\'
+  local -x comp_opts=$comp_opts
+  local -x comps=$COMPS
+  local -x compv=$COMPV
+  local -x comps_flags=$comps_flags
+  local -x quote_action=$quote_action
+  local -x quote_escape_flags=$quote_escape_flags
+  local -x quote_paramx_comps=$quote_paramx_comps
+  local -x quote_cont_cutbackslash=$quote_cont_cutbackslash
+  local -x quote_trav_prefix=$quote_trav_prefix
+  local -x quote_fixed_comps=$quote_fixed_comps
+  local -x quote_fixed_compv=$quote_fixed_compv
+  "$quote_batch_awk" -v quote_batch_nulsep="$quote_batch_nulsep" -v q="$q" '
+    function exists(filename) { return substr($0, 1, 1) == "1"; }
+    function is_file(filename) { return substr($0, 2, 1) == "1"; }
+    function initialize(_, flags, comp_opts, tmp) {
+      IS_XPG4 = AWKTYPE == "xpg4";
+      REP_SL = "\\";
+      if (IS_XPG4) REP_SL = "\\\\";
+      REP_DBL_SL = "\\\\"; # gawk, nawk
+      sub(/.*/, REP_DBL_SL, tmp);
+      if (tmp == "\\") REP_DBL_SL = "\\\\\\\\"; # mawk, xpg4
+      Q = q "\\" q q;
+      DELIM = 10;
+      if (quote_batch_nulsep != "") {
+        RS = "\0";
+        DELIM = 0;
+      }
+      quote_action = ENVIRON["quote_action"];
+      comps = ENVIRON["comps"];
+      compv = ENVIRON["compv"];
+      compv_len = length(compv);
+      comps_flags = ENVIRON["comps_flags"];
+      escape_type = 0;
+      if (comps_flags ~ /S/)
+        escape_type = 1;
+      else if (comps_flags ~ /E/)
+        escape_type = 2;
+      else if (comps_flags ~ /[DI]/)
+        escape_type = 3;
+      else
+        escape_type = 4;
+      comps_v = (comps_flags ~ /v/);
+      comps_p = (comps_flags ~ /p/);
+      comp_opts = ENVIRON["comp_opts"];
+      is_noquote = comp_opts ~ /:noquote:/;
+      is_nospace = comp_opts ~ /:nospace:/;
+      flags = ENVIRON["quote_escape_flags"];
+      escape_c = (flags ~ /c/);
+      escape_b = (flags ~ /b/);
+      escape_tilde_always = 1;
+      escape_tilde_exists = 0;
+      if (quote_action == "progcomp") {
+        escape_tilde_always = 0;
+        escape_tilde_exists = (comp_opts ~ /:filenames:/);
+      }
+      quote_cont_cutbackslash   = ENVIRON["quote_cont_cutbackslash"] != "";
+      quote_paramx_comps        = ENVIRON["quote_paramx_comps"];
+      quote_trav_prefix     = ENVIRON["quote_trav_prefix"];
+      quote_fixed_comps     = ENVIRON["quote_fixed_comps"];
+      quote_fixed_compv     = ENVIRON["quote_fixed_compv"];
+      quote_fixed_comps_len = length(quote_fixed_comps);
+      quote_fixed_compv_len = length(quote_fixed_compv);
+    }
+    BEGIN { initialize(); }
+    function escape_for_completion_context(text) {
+      if (escape_type == 1) {
+        gsub(/'$q'/, Q, text);
+      } else if (escape_type == 2) {
+        if (text ~ /[\\'$q'\a\b\t\n\v\f\r\033]/) {
+          gsub(/\\/  , REP_DBL_SL, text);
+          gsub(/'$q'/, REP_SL q  , text);
+          gsub(/\007/, REP_SL "a", text);
+          gsub(/\010/, REP_SL "b", text);
+          gsub(/\011/, REP_SL "t", text);
+          gsub(/\012/, REP_SL "n", text);
+          gsub(/\013/, REP_SL "v", text);
+          gsub(/\014/, REP_SL "f", text);
+          gsub(/\015/, REP_SL "r", text);
+          gsub(/\033/, REP_SL "e", text);
+        }
+      } else if (escape_type == 3) {
+        gsub(/[\\"$`]/, "\\\\&", text); # Note: All awks behaves the same for "\\\\&"
+      } else if (escape_type == 4) {
+        gsub(/[]\\ "'$q'`$|&;<>()!^*?[]/, "\\\\&", text);
+        if (escape_c) gsub(/[=:]/, "\\\\&", text);
+        if (escape_b) gsub(/[{,}]/, "\\\\&", text);
+        if (ret ~ /^~/ && (escape_tilde_always || escape_tilde_exists && exists(cand)))
+          text = "\\" text;
+        gsub(/\n/, "$" q REP_SL "n" q, text);
+        gsub(/\t/, "$" q REP_SL "t" q, text);
+      }
+      return text;
+    }
+    function quote_insert(cand) {
+      if (quote_action == "command") {
+        if (comps == compv && cand ~ /^(\[\[|]]|!)$/) return cand;
+      } else if (quote_action == "progcomp") {
+        if (is_noquote) return cand;
+        if (is_nospace && cand ~ / $/ && !is_file(cand)) return cand;
+      }
+      if (comps_v && substr(cand, 1, compv_len) == compv) {
+        ins = escape_for_completion_context(substr(cand, compv_len + 1));
+        if (comps_p && ins ~ /^[_a-zA-Z0-9]/) {
+          return quote_paramx_comps ins;
+        } else {
+          if (quote_cont_cutbackslash) sub(/^\\/, "", ins);
+          return comps ins;
+        }
+      } else if (quote_fixed_comps_len && substr(cand, 1, quote_fixed_compv_len) == quote_fixed_compv) {
+        ins = substr(cand, quote_fixed_compv_len + 1);
+        return quote_fixed_comps quote_trav_prefix escape_for_completion_context(ins);
+      } else {
+        return quote_trav_prefix escape_for_completion_context(cand);
+      }
+    }
+    {
+      cand = substr($0, 3);
+      insert = quote_insert(cand);
+      printf("%s%c", insert, DELIM);
+    }
+  '
+}
+function ble/complete/action/quote-insert.batch/proc {
+  local _ble_local_tmpfile; ble/util/assign/.mktmp
+  local delim='\n'
+  [[ $quote_batch_nulsep ]] && delim='\0'
+  if [[ $quote_action == progcomp ]]; then
+    local cand file exist
+    for cand in "${cands[@]}"; do
+      ((cand_iloop++%bleopt_complete_polling_cycle==0)) && ble/complete/check-cancel && return 148
+      f=0 e=0
+      [[ -e $cand ]] && e=1
+      [[ -f $cand ]] && f=1
+      printf "$e$f%s$delim" "$cand"
+    done
+  else
+    printf "00%s$delim" "${cands[@]}"
+  fi >| "$_ble_local_tmpfile"
+  local fname_cands=$_ble_local_tmpfile
+  ble/util/conditional-sync \
+    'ble/complete/action/quote-insert.batch/awk < "$fname_cands"' \
+    '! ble/complete/check-cancel < /dev/tty' '' progressive-weight
+  local ext=$?
+  ble/util/assign/.rmtmp
+  return "$ext"
+}
+function ble/complete/action/quote-insert.batch {
+  local opts=$1
+  local quote_batch_nulsep=
+  local quote_batch_awk=ble/bin/awk
+  if [[ :$opts: != *:newline:* ]]; then
+    if ((_ble_bash>=40400)); then
+      if [[ $_ble_bin_awk_type == [mg]awk ]]; then
+        quote_batch_nulsep=1
+      elif ble/bin#has mawk; then
+        quote_batch_nulsep=1
+        quote_batch_awk=mawk
+      elif ble/bin#has gawk; then
+        quote_batch_nulsep=1
+        quote_batch_awk=gawk
+      fi
+    fi
+    [[ ! $quote_batch_nulsep ]] &&
+      [[ "${cands[*]}" == *$'\n'* ]] &&
+      return 1
+  fi
+  if [[ $quote_batch_nulsep ]]; then
+    ble/util/assign-array0 inserts ble/complete/action/quote-insert.batch/proc
+  else
+    ble/util/assign-array inserts ble/complete/action/quote-insert.batch/proc
+  fi
+  return $?
+}
+function ble/complete/action/requote-final-insert {
+  local comps_prefix= check_optarg=
+  if [[ $insert == "$COMPS"* ]]; then
+    [[ $comps_flags == *[SEDI]* ]] && return 0
+    [[ $COMPS != *[!':/={,'] ]] && comps_prefix=$COMPS
+    check_optarg=$COMPS
+  else
+    check_optarg=$insert
+  fi
+  if [[ $check_optarg ]]; then
+    if ble/string#match "$check_optarg" '^([_a-zA-Z][_a-zA-Z0-9]*|-[-a-zA-Z0-9.]+)=(([^\'\''"`${}]*|\\.)*:)?'; then
+      comps_prefix=$BASH_REMATCH
+    elif [[ $COMP_PREFIX == -[!'-=:/\'\''"$`{};&|<>!^{}'] && $check_optarg == "$COMP_PREFIX"* ]]; then
+      comps_prefix=${check_optarg::2}
+    fi
+  fi
+  if [[ $comps_fixed ]]; then
+    local comps_fixed_part=${COMPS::${comps_fixed%%:*}}
+    [[ $comps_prefix == "$comps_fixed_part"* ]] ||
+      comps_prefix=$comps_fixed_part
+  fi
+  if [[ $insert == "$comps_prefix"* && $comps_prefix != *[!':/={,'] ]]; then
+    local ret ins=${insert:${#comps_prefix}}
+    if ! ble/syntax:bash/simple-word/is-literal "$ins" &&
+        ble/syntax:bash/simple-word/is-simple "$ins" &&
+        ble/syntax:bash/simple-word/eval "$ins" &&
+        ((${#ret[@]}==1))
+    then
+      ble/string#quote-word "$ret" quote-empty
+      ((${#ret}<=${#ins})) || return 0
+      insert=$comps_prefix$ret
+      [[ $insert == "$COMPS"* ]] || insert_flags=r$insert_flags # 遡って書き換えた
+    fi
+  fi
+  return 0
+}
+function ble/complete/action#inherit-from {
+  local dst=$1 src=$2
+  local member srcfunc dstfunc
+  for member in initialize{,.batch} complete getg get-desc; do
+    srcfunc=ble/complete/action:$src/$member
+    dstfunc=ble/complete/action:$dst/$member
+    ble/is-function "$srcfunc" && builtin eval "function $dstfunc { $srcfunc; }"
+  done
+}
+function ble/complete/action:plain/initialize {
+  ble/complete/action/quote-insert
+}
+function ble/complete/action:plain/initialize.batch {
+  ble/complete/action/quote-insert.batch
+}
+function ble/complete/action:plain/complete {
+  ble/complete/action/requote-final-insert
+}
+function ble/complete/action:literal-substr/initialize { :; }
+function ble/complete/action:literal-substr/initialize.batch { inserts=("${cands[@]}"); }
+function ble/complete/action:literal-substr/complete { :; }
+function ble/complete/action:substr/initialize {
+  ble/complete/action/quote-insert
+}
+function ble/complete/action:substr/initialize.batch {
+  ble/complete/action/quote-insert.batch
+}
+function ble/complete/action:substr/complete {
+  ble/complete/action/requote-final-insert
+}
+function ble/complete/action:literal-word/initialize { :; }
+function ble/complete/action:literal-word/initialize.batch { inserts=("${cands[@]}"); }
+function ble/complete/action:literal-word/complete {
+  if [[ $comps_flags == *x* ]]; then
+    ble/complete/action/complete.addtail ','
+  else
+    ble/complete/action/complete.addtail ' '
+  fi
+}
+function ble/complete/action:word/initialize {
+  ble/complete/action/quote-insert
+}
+function ble/complete/action:word/initialize.batch {
+  ble/complete/action/quote-insert.batch
+}
+function ble/complete/action:word/complete {
+  ble/complete/action/requote-final-insert
+  ble/complete/action/complete.close-quotation
+  ble/complete/action:literal-word/complete
+}
+function ble/complete/action:word/get-desc {
+  [[ $DATA ]] && desc=$DATA
+}
+function ble/complete/action:file/initialize {
+  ble/complete/action/quote-insert
+}
+function ble/complete/action:file/initialize.batch {
+  ble/complete/action/quote-insert.batch
+}
+function ble/complete/action:file/complete {
+  ble/complete/action/requote-final-insert
+  if [[ -e $CAND || -h $CAND ]]; then
+    if [[ -d $CAND ]]; then
+      ble/complete/action/complete.mark-directory
+    else
+      ble/complete/action:word/complete
+    fi
+  fi
+}
+function ble/complete/action:file/init-menu-item {
+  ble/syntax/highlight/getg-from-filename "$CAND"
+  [[ $g ]] || { local ret; ble/color/face2g filename_warning; g=$ret; }
+  if [[ :$comp_type: == *:vstat:* ]]; then
+    if [[ -h $CAND ]]; then
+      suffix='@'
+    elif [[ -d $CAND ]]; then
+      suffix='/'
+    elif [[ -x $CAND ]]; then
+      suffix='*'
+    fi
+  fi
+}
+function ble/complete/action:file_rhs/initialize {
+  ble/complete/action:file/initialize
+}
+function ble/complete/action:file_rhs/initialize.batch {
+  ble/complete/action:file/initialize.batch
+}
+function ble/complete/action:file_rhs/complete {
+  CAND=${CAND:${#DATA}} ble/complete/action:file/complete
+}
+function ble/complete/action:file_rhs/init-menu-item {
+  CAND=${CAND:${#DATA}} ble/complete/action:file/init-menu-item
+}
+_ble_complete_action_file_desc[_ble_attr_FILE_LINK]='symbolic link'
+_ble_complete_action_file_desc[_ble_attr_FILE_ORPHAN]='symbolic link (orphan)'
+_ble_complete_action_file_desc[_ble_attr_FILE_DIR]='directory'
+_ble_complete_action_file_desc[_ble_attr_FILE_STICKY]='directory (sticky)'
+_ble_complete_action_file_desc[_ble_attr_FILE_SETUID]='file (setuid)'
+_ble_complete_action_file_desc[_ble_attr_FILE_SETGID]='file (setgid)'
+_ble_complete_action_file_desc[_ble_attr_FILE_EXEC]='file (executable)'
+_ble_complete_action_file_desc[_ble_attr_FILE_FILE]='file'
+_ble_complete_action_file_desc[_ble_attr_FILE_CHR]='character device'
+_ble_complete_action_file_desc[_ble_attr_FILE_FIFO]='named pipe'
+_ble_complete_action_file_desc[_ble_attr_FILE_SOCK]='socket'
+_ble_complete_action_file_desc[_ble_attr_FILE_BLK]='block device'
+_ble_complete_action_file_desc[_ble_attr_FILE_URL]='URL'
+function ble/complete/action:file/get-desc {
+  local type; ble/syntax/highlight/filetype "$CAND"
+  desc=${_ble_complete_action_file_desc[type]:-'file (???)'}
+}
+function ble/complete/action:progcomp/initialize/.reconstruct-from-noquote {
+  local simple_flags simple_ibrace ret count
+  ble/syntax:bash/simple-word/is-simple-or-open-simple "$INSERT" &&
+    ble/syntax:bash/simple-word/reconstruct-incomplete-word "$INSERT" &&
+    ble/complete/source/eval-simple-word "$ret" single:count &&
+    ((count==1)) || return 0
+  CAND=$ret
+  if [[ $quote_fixed_comps && $CAND == "$quote_fixed_compv"* ]]; then
+    local ret; ble/complete/string#escape-for-completion-context "${CAND:quote_fixed_compv_len}" "$escape_flags"
+    INSERT=$quote_fixed_comps$quote_trav_prefix$ret
+    return 3
+  fi
+  return 0
+}
+function ble/complete/action:progcomp/initialize {
+  if [[ :$DATA: == *:noquote:* ]]; then
+    local progcomp_resolve_brace=$quote_fixed_comps
+    [[ :$DATA: == *:ble/syntax-raw:* ]] && progcomp_resolve_brace=
+    ble/complete/action:progcomp/initialize/.reconstruct-from-noquote
+    return 0
+  else
+    ble/complete/action/quote-insert progcomp
+  fi
+}
+function ble/complete/action:progcomp/initialize.batch {
+  if [[ :$DATA: == *:noquote:* ]]; then
+    inserts=("${cands[@]}")
+    local progcomp_resolve_brace=$quote_fixed_comps
+    [[ :$DATA: == *:ble/syntax-raw:* ]] && progcomp_resolve_brace=
+    cands=()
+    local INSERT simple_flags simple_ibrace ret count icand=0
+    for INSERT in "${inserts[@]}"; do
+      ((cand_iloop++%bleopt_complete_polling_cycle==0)) && ble/complete/check-cancel && return 148
+      local CAND=$INSERT
+      ble/complete/action:progcomp/initialize/.reconstruct-from-noquote ||
+        inserts[icand]=$INSERT # INSERT を上書きした時 ($?==3)
+      cands[icand++]=$CAND
+    done
+  else
+    ble/complete/action/quote-insert.batch newline
+  fi
+}
+function ble/complete/action:progcomp/complete {
+  if [[ $DATA == *:filenames:* ]]; then
+    ble/complete/action:file/complete
+  else
+    if [[ $DATA != *:ble/no-mark-directories:* && -d $CAND ]]; then
+      ble/complete/action/requote-final-insert
+      ble/complete/action/complete.mark-directory
+    else
+      ble/complete/action:word/complete
+    fi
+  fi
+  [[ $DATA == *:nospace:* ]] && suffix=${suffix%' '}
+  [[ $DATA == *:ble/no-mark-directories:* && -d $CAND ]] && suffix=${suffix%/}
+}
+function ble/complete/action:progcomp/init-menu-item {
+  if [[ $DATA == *:filenames:* ]]; then
+    ble/complete/action:file/init-menu-item
+  fi
+}
+function ble/complete/action:progcomp/get-desc {
+  if [[ $DATA == *:filenames:* ]]; then
+    ble/complete/action:file/get-desc
+  fi
+}
+function ble/complete/action:command/initialize {
+  ble/complete/action/quote-insert command
+}
+function ble/complete/action:command/initialize.batch {
+  ble/complete/action/quote-insert.batch newline
+}
+function ble/complete/action:command/complete {
+  if [[ -d $CAND ]]; then
+    ble/complete/action/complete.mark-directory
+  elif ! type "$CAND" &>/dev/null; then
+    if [[ $CAND == */ ]]; then
+      insert_flags=${insert_flags}n
+    fi
+  else
+    ble/complete/action:word/complete
+  fi
+}
+function ble/complete/action:command/init-menu-item {
+  if [[ -d $CAND ]]; then
+    local ret; ble/color/face2g filename_directory; g=$ret
+  else
+    local type
+    if [[ $CAND != "$INSERT" ]]; then
+      ble/syntax/highlight/cmdtype "$CAND" "$INSERT"
+    else
+      local type; ble/util/type type "$CAND"
+      ble/syntax/highlight/cmdtype1 "$type" "$CAND"
+    fi
+    if [[ $CAND == */ ]] && ((type==_ble_attr_ERR)); then
+      type=_ble_attr_CMD_FUNCTION
+    fi
+    ble/syntax/attr2g "$type"
+  fi
+}
+_ble_complete_action_command_desc[_ble_attr_CMD_BOLD]=builtin
+_ble_complete_action_command_desc[_ble_attr_CMD_BUILTIN]=builtin
+_ble_complete_action_command_desc[_ble_attr_CMD_ALIAS]=alias
+_ble_complete_action_command_desc[_ble_attr_CMD_FUNCTION]=function
+_ble_complete_action_command_desc[_ble_attr_CMD_FILE]=file
+_ble_complete_action_command_desc[_ble_attr_KEYWORD]=command
+_ble_complete_action_command_desc[_ble_attr_CMD_JOBS]=job
+_ble_complete_action_command_desc[_ble_attr_ERR]='command ???'
+_ble_complete_action_command_desc[_ble_attr_CMD_DIR]=directory
+function ble/complete/action:command/get-desc {
+  local title= value=
+  if [[ -d $CAND ]]; then
+    title=directory
+  else
+    local type; ble/util/type type "$CAND"
+    ble/syntax/highlight/cmdtype1 "$type" "$CAND"
+    case $type in
+    ($_ble_attr_CMD_ALIAS)
+      local ret
+      ble/alias#expand "$CAND"
+      title=alias value=$ret ;;
+    ($_ble_attr_CMD_FILE)
+      local path; ble/util/assign path 'type -p -- "$CAND"'
+      [[ $path == ?*/"$CAND" ]] && path="from ${path%/"$CAND"}"
+      title=file value=$path ;;
+    ($_ble_attr_CMD_FUNCTION)
+      local source lineno
+      ble/function#get-source-and-lineno "$CAND"
+      local def; ble/function#getdef "$CAND"
+      ble/string#match "$def" '^[^()]*\(\)[[:space:]]*\{[[:space:]]+(.*[^[:space:]])[[:space:]]+\}[[:space:]]*$' &&
+        def=${BASH_REMATCH[1]} # 関数の中身を抽出する
+      local ret sgr0=$'\e[27m' sgr1=$'\e[7m' # Note: sgr-ansi で生成
+      lines=1 cols=${COLUMNS:-80} x=0 y=0 ble/canvas/trace-text "$def" external-sgr
+      title=function value="${source##*/}:$lineno $desc_sgrq$ret" ;;
+    ($_ble_attr_CMD_JOBS)
+      ble/util/joblist.check
+      local job; ble/util/assign job 'jobs -- "$CAND" 2>/dev/null' || job='???'
+      title=job value=${job:-(ambiguous)} ;;
+    ($_ble_attr_ERR)
+      if [[ $CAND == */ ]]; then
+        title='function namespace'
+      else
+        title=${_ble_complete_action_command_desc[_ble_attr_ERR]}
+      fi ;;
+    (*)
+      title=${_ble_complete_action_command_desc[type]:-'???'} ;;
+    esac
+  fi
+  desc=${title:+$desc_sgrt($title)$desc_sgr0}${value:+ $value}
+}
+function ble/complete/action:variable/initialize { ble/complete/action/quote-insert; }
+function ble/complete/action:variable/initialize.batch { ble/complete/action/quote-insert.batch newline; }
+function ble/complete/action:variable/complete {
+  case $DATA in
+  (assignment)
+    ble/complete/action/complete.addtail '=' ;;
+  (braced)
+    ble/complete/action/complete.addtail '}' ;;
+  (word)       ble/complete/action:word/complete ;;
+  (arithmetic|nosuffix) ;; # do nothing
+  esac
+}
+function ble/complete/action:variable/init-menu-item {
+  local ret; ble/color/face2g syntax_varname; g=$ret
+}
+function ble/complete/action:variable/get-desc {
+  local _ble_local_title=variable
+  if ble/is-array "$CAND"; then
+    _ble_local_title=array
+  elif ble/is-assoc "$CAND"; then
+    _ble_local_title=assoc
+  fi
+  local _ble_local_value=
+  if [[ $_ble_local_title == array || $_ble_local_title == assoc ]]; then
+    builtin eval "local count=\${#$CAND[@]}"
+    if ((count==0)); then
+      count=empty
+    else
+      count="$count items"
+    fi
+    _ble_local_value=$'\e[94m['$count$']\e[m'
+  else
+    local ret; ble/string#quote-word "${!CAND}" ansi:sgrq="$desc_sgrq":quote-empty
+    _ble_local_value=$ret
+  fi
+  desc="$desc_sgrt($_ble_local_title)$desc_sgr0 $_ble_local_value"
+}
+function ble/complete/source/test-limit {
+  local value=$1 limit=
+  if [[ :$comp_type: == *:auto_menu:* && $bleopt_complete_limit_auto_menu ]]; then
+    limit=$bleopt_complete_limit_auto_menu
+  elif [[ :$comp_type: == *:auto:* && $bleopt_complete_limit_auto ]]; then
+    limit=$bleopt_complete_limit_auto
+  else
+    limit=$bleopt_complete_limit
+  fi
+  if [[ $limit && value -gt limit ]]; then
+    cand_limit_reached=1
+    [[ :$comp_type: == *:auto_menu: ]] && cand_limit_reached=cancel
+    return 1
+  else
+    return 0
+  fi
+}
+function ble/complete/source/eval-simple-word {
+  local word=$1 opts=$2
+  if [[ :$comp_type: != *:sync:* && :$opts: != *:noglob:* ]]; then
+    opts=$opts:stopcheck:cached
+    [[ :$comp_type: == *:auto:* && $bleopt_complete_timeout_auto ]] &&
+      opts=$opts:timeout=$((bleopt_complete_timeout_auto))
+  fi
+  ble/syntax:bash/simple-word/eval "$word" "$opts"; local ext=$?
+  ((ext==142)) && return 148
+  return "$ext"
+}
+function ble/complete/source/evaluate-path-spec {
+  local word=$1 sep=$2 opts=$3
+  if [[ :$comp_type: != *:sync:* && :$opts: != *:noglob:* ]]; then
+    opts=$opts:stopcheck:cached:single
+    [[ :$comp_type: == *:auto:* && $bleopt_complete_timeout_auto ]] &&
+      opts=$opts:timeout=$((bleopt_complete_timeout_auto))
+  fi
+  ble/syntax:bash/simple-word/evaluate-path-spec "$word" "$sep" "$opts"; local ext=$?
+  ((ext==142)) && return 148
+  return "$ext"
+}
+function ble/complete/source/reduce-compv-for-ambiguous-match {
+  [[ :$comp_type: == *:[maA]:* ]] || return 0
+  local comps=$COMPS compv=$COMPV
+  local comps_prefix= compv_prefix=
+  if [[ $comps_fixed ]]; then
+    comps_prefix=${comps::${comps_fixed%%:*}}
+    compv_prefix=${comps_fixed#*:}
+    compv=${COMPV:${#compv_prefix}}
+  fi
+  case $comps_flags in
+  (*S*) comps_prefix=$comps_prefix\' ;;
+  (*E*) comps_prefix=$comps_prefix\$\' ;;
+  (*D*) comps_prefix=$comps_prefix\" ;;
+  (*I*) comps_prefix=$comps_prefix\$\" ;;
+  esac
+  if [[ $compv && :$comp_type: == *:a:* ]]; then
+    compv=${compv::1}
+    ble/complete/string#escape-for-completion-context "$compv"
+    comps=$ret
+  else
+    compv= comps=
+  fi
+  COMPV=$compv_prefix$compv
+  COMPS=$comps_prefix$comps
+}
+_ble_complete_yield_varnames=("${_ble_complete_quote_insert_varnames[@]}")
+function ble/complete/cand/yield.initialize {
+  ble/complete/action/quote-insert.initialize "$1"
+}
+function ble/complete/cand/yield {
+  local ACTION=$1 CAND=$2 DATA=$3
+  [[ $flag_force_fignore ]] && ! ble/complete/.fignore/filter "$CAND" && return 0
+  [[ $flag_source_filter ]] || ble/complete/candidates/filter#test "$CAND" || return 0
+  local INSERT=$CAND
+  ble/complete/action:"$ACTION"/initialize || return "$?"
+  local PREFIX_LEN=0
+  [[ $CAND == "$COMP_PREFIX"* ]] && PREFIX_LEN=${#COMP_PREFIX}
+  local icand
+  ((icand=cand_count++))
+  cand_cand[icand]=$CAND
+  cand_word[icand]=$INSERT
+  cand_pack[icand]=$ACTION:${#CAND},${#INSERT},$PREFIX_LEN:$CAND$INSERT$DATA
+}
+function ble/complete/cand/yield.batch {
+  local ACTION=$1 DATA=$2
+  local inserts threshold=500
+  [[ $OSTYPE == cygwin* || $OSTYPE == msys* ]] && threshold=2000
+  if ((${#cands[@]}>=threshold)) && ble/function#try ble/complete/action:"$ACTION"/initialize.batch; then
+    local i n=${#cands[@]}
+    for ((i=0;i<n;i++)); do
+      ((cand_iloop++%bleopt_complete_polling_cycle==0)) && ble/complete/check-cancel && return 148
+      local CAND=${cands[i]} INSERT=${inserts[i]}
+      [[ $flag_force_fignore ]] && ! ble/complete/.fignore/filter "$CAND" && continue
+      [[ $flag_source_filter ]] || ble/complete/candidates/filter#test "$CAND" || continue
+      local PREFIX_LEN=0
+      [[ $CAND == "$COMP_PREFIX"* ]] && PREFIX_LEN=${#COMP_PREFIX}
+      local icand
+      ((icand=cand_count++))
+      cand_cand[icand]=$CAND
+      cand_word[icand]=$INSERT
+      cand_pack[icand]=$ACTION:${#CAND},${#INSERT},$PREFIX_LEN:$CAND$INSERT$DATA
+    done
+  else
+    local cand
+    for cand in "${cands[@]}"; do
+      ((cand_iloop++%bleopt_complete_polling_cycle==0)) && ble/complete/check-cancel && return 148
+      ble/complete/cand/yield "$ACTION" "$cand" "$DATA"
+    done
+  fi
+}
+function ble/complete/cand/yield-filenames {
+  local action=$1; shift
+  local rex_hidden=
+  [[ :$comp_type: != *:match-hidden:* ]] &&
+    rex_hidden=${COMPV:+'.{'${#COMPV}'}'}'(^|/)\.[^/]*$'
+  local -a cands=()
+  local cand icand=0
+  for cand; do
+    ((cand_iloop++%bleopt_complete_polling_cycle==0)) && ble/complete/check-cancel && return 148
+    [[ $rex_hidden && $cand =~ $rex_hidden ]] && continue
+    cands[icand++]=$cand
+  done
+  [[ $FIGNORE ]] && local flag_force_fignore=1
+  local "${_ble_complete_yield_varnames[@]/%/=}" # WA #D1570 safe
+  ble/complete/cand/yield.initialize "$action"
+  ble/complete/cand/yield.batch "$action"
+}
+_ble_complete_cand_varnames=(ACTION CAND INSERT DATA PREFIX_LEN)
+function ble/complete/cand/unpack {
+  local pack=$1
+  ACTION=${pack%%:*} pack=${pack#*:}
+  local text=${pack#*:}
+  IFS=, builtin eval 'pack=(${pack%%:*})'
+  CAND=${text::pack[0]}
+  INSERT=${text:pack[0]:pack[1]}
+  DATA=${text:pack[0]+pack[1]}
+  PREFIX_LEN=${pack[2]}
+}
+function ble/complete/source:none { return 0; }
+function ble/complete/source:wordlist {
+  [[ $comps_flags == *v* ]] || return 1
+  local COMPS=$COMPS COMPV=$COMPV
+  ble/complete/source/reduce-compv-for-ambiguous-match
+  [[ $COMPV =~ ^.+/ ]] && COMP_PREFIX=${BASH_REMATCH[0]}
+  local opt_raw= opt_noword= opt_sabbrev=
+  while (($#)) && [[ $1 == -* ]]; do
+    local arg=$1; shift
+    case $arg in
+    (--) break ;;
+    (--*) ;; # ignore
+    (-*)
+      local i iN=${#arg}
+      for ((i=1;i<iN;i++)); do
+        case ${arg:i:1} in
+        (r) opt_raw=1 ;;
+        (W) opt_noword=1 ;;
+        (s) opt_sabbrev=1 ;;
+        (*) ;; # ignore
+        esac
+      done ;;
+    esac
+  done
+  [[ $opt_sabbrev ]] &&
+    ble/complete/source:sabbrev
+  local action=word
+  [[ $opt_noword ]] && action=substr
+  [[ $opt_raw ]] && action=literal-$action
+  local cand "${_ble_complete_yield_varnames[@]/%/=}" # WA #D1570 safe
+  ble/complete/cand/yield.initialize "$action"
+  for cand; do
+    [[ $cand == "$COMPV"* ]] && ble/complete/cand/yield "$action" "$cand"
+  done
+}
+function ble/complete/source:command/.contract-by-slashes {
+  local slashes=${COMPV//[!'/']}
+  ble/bin/awk -F / -v baseNF=${#slashes} '
+    function initialize_common() {
+      common_NF = NF;
+      for (i = 1; i <= NF; i++) common[i] = $i;
+      common_degeneracy = 1;
+      common0_NF = NF;
+      common0_str = $0;
+    }
+    function print_common(_, output) {
+      if (!common_NF) return;
+      if (common_degeneracy == 1) {
+        print common0_str;
+        common_NF = 0;
+        return;
+      }
+      output = common[1];
+      for (i = 2; i <= common_NF; i++)
+        output = output "/" common[i];
+      if (common_NF == common0_NF) print output;
+      print output "/";
+      common_NF = 0;
+    }
+    {
+      if (NF <= baseNF + 1) {
+        print_common();
+        print $0;
+      } else if (!common_NF) {
+        initialize_common();
+      } else {
+        n = common_NF < NF ? common_NF : NF;
+        for (i = baseNF + 1; i <= n; i++)
+          if (common[i] != $i) break;
+        matched_length = i - 1;
+        if (matched_length <= baseNF) {
+          print_common();
+          initialize_common();
+        } else {
+          common_NF = matched_length;
+          common_degeneracy++;
+        }
+      }
+    }
+    END { print_common(); }
+  '
+}
+function ble/complete/source:command/gen.1 {
+  local COMPS=$COMPS COMPV=$COMPV
+  ble/complete/source/reduce-compv-for-ambiguous-match
+  local slow_compgen=
+  if [[ ! $COMPV ]]; then
+    slow_compgen=1
+  elif [[ $OSTYPE == cygwin* ]]; then
+    case $COMPV in
+    (?|cy*|x8*|i6*)
+      slow_compgen=1 ;;
+    esac
+  fi
+  if [[ $slow_compgen ]]; then
+    shopt -q no_empty_cmd_completion && return 0
+    ble/util/conditional-sync \
+      'builtin compgen -c -- "$COMPV"' \
+      '! ble/complete/check-cancel' 128 progressive-weight
+  else
+    builtin compgen -c -- "$COMPV"
+  fi
+  if [[ $COMPV == */* ]]; then
+    local q="'" Q="'\''"
+    local compv_quoted="'${COMPV//$q/$Q}'"
+    builtin compgen -A function -- "$compv_quoted"
+  fi
+}
+function ble/complete/source:command/gen {
+  if [[ :$comp_type: != *:[maA]:* && $bleopt_complete_contract_function_names ]]; then
+    ble/complete/source:command/gen.1 |
+      ble/complete/source:command/.contract-by-slashes
+  else
+    ble/complete/source:command/gen.1
+  fi
+  if [[ $arg != *D* ]]; then
+    local ret
+    ble/complete/source:file/.construct-pathname-pattern "$COMPV"
+    ble/complete/util/eval-pathname-expansion "$ret/"; (($?==148)) && return 148
+    ble/complete/source/test-limit ${#ret[@]} || return 1
+    ((${#ret[@]})) && printf '%s\n' "${ret[@]}"
+  fi
+  if [[ ! $COMPV || $COMPV == %* ]]; then
+    local q="'" Q="'\''"
+    local compv_quoted=${COMPV#'%'}
+    compv_quoted="'${compv_quoted//$q/$Q}'"
+    builtin compgen -j -P % -- "$compv_quoted"
+    local i joblist; ble/util/joblist
+    local job_count=${#joblist[@]}
+    for i in "${!joblist[@]}"; do
+      if local rex='^\[([0-9]+)\]'; [[ ${joblist[i]} =~ $rex ]]; then
+        joblist[i]=%${BASH_REMATCH[1]}
+      else
+        builtin unset -v 'joblist[i]'
+      fi
+    done
+    joblist=("${joblist[@]}")
+    if ((job_count>0)); then
+      ble/array#push joblist %% %+
+      ((job_count>=2)) &&
+        ble/array#push joblist %-
+    fi
+    builtin compgen -W '"${joblist[@]}"' -- "$compv_quoted"
+  fi
+}
+function ble/complete/source:command {
+  [[ $comps_flags == *v* ]] || return 1
+  [[ ! $COMPV ]] && shopt -q no_empty_cmd_completion && return 1
+  [[ $COMPV =~ ^.+/ ]] && COMP_PREFIX=${BASH_REMATCH[0]}
+  local arg=$1
+  {
+    local old_cand_count=$cand_count
+    local comp_opts=:
+    ble/complete/source:argument/.generate-user-defined-completion initial; local ext=$?
+    ((ext==148)) && return "$ext"
+    if ((ext==0)); then
+      ((cand_count>old_cand_count)) && return "$ext"
+    fi
+  }
+  ble/complete/source:sabbrev
+  local arr
+  local compgen
+  ble/util/assign compgen 'ble/complete/source:command/gen "$arg"'
+  [[ $compgen ]] || return 1
+  ble/util/assign-array arr 'ble/bin/sort -u <<< "$compgen"' # 1 fork/exec
+  ble/complete/source/test-limit ${#arr[@]} || return 1
+  local action=command "${_ble_complete_yield_varnames[@]/%/=}" # WA #D1570 safe
+  ble/complete/cand/yield.initialize "$action"
+  local is_quoted=
+  [[ $COMPS != "$COMPV" ]] && is_quoted=1
+  local rex_keyword='^(if|then|else|elif|fi|case|esac|for|select|while|until|do|done|function|time|[!{}]|\[\[|coproc|\]\]|in)$'
+  local expand_aliases=
+  shopt -q expand_aliases && expand_aliases=1
+  local cand icand=0 cands
+  for cand in "${arr[@]}"; do
+    ((cand_iloop++%bleopt_complete_polling_cycle==0)) && ble/complete/check-cancel && return 148
+    [[ $cand != */ && -d $cand ]] && ! type "$cand" &>/dev/null && continue
+    if [[ $is_quoted ]]; then
+      local disable_count=
+      [[ $cand =~ $rex_keyword ]] && ((disable_count++))
+      [[ $expand_aliases ]] && ble/is-alias "$cand" && ((disable_count++))
+      if [[ $disable_count ]]; then
+        local type; ble/util/type type "$cand"
+        ((${#type[@]}>disable_count)) || continue
+      fi
+    else
+      [[ $cand == ']]' || $cand == in ]] &&
+        ! { [[ $expand_aliases ]] && ble/is-alias "$cand"; } &&
+        continue
+      if [[ ! $expand_aliases ]]; then
+        ble/is-alias "$cand" && ! type "$cand" &>/dev/null && continue
+      fi
+      if ble/string#match "$cand" '[][*?{,}!^~#]' && ble/is-alias "$cand"; then
+        ble/complete/cand/yield "$action" "$cand" :noquote:
+        continue
+      fi
+    fi
+    cands[icand++]=$cand
+  done
+  ble/complete/cand/yield.batch "$action"
+}
+function ble/complete/util/eval-pathname-expansion/.print-def {
+  local pattern=$1 ret
+  IFS= builtin eval "ret=($pattern)" 2>/dev/null
+  ble/string#quote-words "${ret[@]}"
+  ble/util/print "ret=($ret)"
+}
+function ble/complete/util/eval-pathname-expansion {
+  local pattern=$1
+  local -a dtor=()
+  if [[ -o noglob ]]; then
+    set +f
+    ble/array#push dtor 'set -f'
+  fi
+  if ! shopt -q nullglob; then
+    shopt -s nullglob
+    ble/array#push dtor 'shopt -u nullglob'
+  fi
+  if ! shopt -q dotglob; then
+    shopt -s dotglob
+    ble/array#push dtor 'shopt -u dotglob'
+  else
+    ble/array#push dtor 'shopt -s dotglob'
+  fi
+  if ! shopt -q extglob; then
+    shopt -s extglob
+    ble/array#push dtor 'shopt -u extglob'
+  fi
+  if [[ :$comp_type: == *:i:* ]]; then
+    if ! shopt -q nocaseglob; then
+      shopt -s nocaseglob
+      ble/array#push dtor 'shopt -u nocaseglob'
+    fi
+  else
+    if shopt -q nocaseglob; then
+      shopt -u nocaseglob
+      ble/array#push dtor 'shopt -s nocaseglob'
+    fi
+  fi
+  if ble/util/is-cygwin-slow-glob "$pattern"; then # Note: #D1168
+    if shopt -q failglob &>/dev/null || shopt -q nullglob &>/dev/null; then
+      pattern=
+    else
+      set -f
+      ble/array#push dtor 'set +f'
+    fi
+  fi
+  if [[ $GLOBIGNORE ]]; then
+    local GLOBIGNORE_save=$GLOBIGNORE
+    GLOBIGNORE=
+    ble/array#push dtor 'GLOBIGNORE=$GLOBIGNORE_save'
+  fi
+  ble/array#reverse dtor
+  ret=()
+  if [[ :$comp_type: == *:sync:* ]]; then
+    IFS= builtin eval "ret=($pattern)" 2>/dev/null
+  else
+    local sync_command='ble/complete/util/eval-pathname-expansion/.print-def "$pattern"'
+    local sync_opts=progressive-weight
+    [[ :$comp_type: == *:auto:* && $bleopt_complete_timeout_auto ]] &&
+      sync_opts=$sync_opts:timeout=$((bleopt_complete_timeout_auto))
+    local def
+    ble/util/assign def 'ble/util/conditional-sync "$sync_command" "" "" "$sync_opts"' &>/dev/null; local ext=$?
+    if ((ext==148)) || ble/complete/check-cancel; then
+      ble/util/invoke-hook dtor
+      return 148
+    fi
+    builtin eval -- "$def"
+  fi 2>&$_ble_util_fd_stderr
+  ble/util/invoke-hook dtor
+  return 0
+}
+function ble/complete/source:file/.construct-ambiguous-pathname-pattern {
+  local path=$1 fixlen=${2:-1}
+  local pattern= i=0 j
+  local names; ble/string#split names / "$1"
+  local name
+  for name in "${names[@]}"; do
+    ((i++)) && pattern=$pattern/
+    if [[ $name ]]; then
+      ble/string#quote-word "${name::fixlen}"
+      pattern=$pattern$ret*
+      for ((j=fixlen;j<${#name};j++)); do
+        ble/string#quote-word "${name:j:1}"
+        if [[ $_ble_bash -lt 50000 && $pattern == *\* ]]; then
+          pattern=$pattern'([!'$ret'])'
+        fi
+        pattern=$pattern$ret*
+      done
+    fi
+  done
+  [[ $pattern == *'*' ]] || pattern=$pattern*
+  ret=$pattern
+}
+function ble/complete/source:file/.construct-pathname-pattern {
+  local path=$1 pattern
+  case :$comp_type: in
+  (*:a:*) ble/complete/source:file/.construct-ambiguous-pathname-pattern "$path"; pattern=$ret ;;
+  (*:A:*) ble/complete/source:file/.construct-ambiguous-pathname-pattern "$path" 0; pattern=$ret ;;
+  (*:m:*) ble/string#quote-word "$path"; pattern=*$ret* ;;
+  (*) ble/string#quote-word "$path"; pattern=$ret*
+  esac
+  ret=$pattern
+}
+function ble/complete/source:file/.impl {
+  local opts=$1
+  [[ $comps_flags == *v* ]] || return 1
+  [[ :$comp_type: != *:[maA]:* && $COMPV =~ ^.+/ ]] && COMP_PREFIX=${BASH_REMATCH[0]}
+  [[ :$comp_type: == *:[maA]:* && ! $COMPV ]] && return 1
+  ble/complete/source:tilde; local ext=$?
+  ((ext==148||ext==0)) && return "$ext"
+  local -a candidates=()
+  local ret
+  ble/complete/source:file/.construct-pathname-pattern "$COMPV"
+  [[ :$opts: == *:directory:* ]] && ret=$ret/
+  ble/complete/util/eval-pathname-expansion "$ret"; (($?==148)) && return 148
+  ble/complete/source/test-limit ${#ret[@]} || return 1
+  if [[ :$opts: == *:directory:* ]]; then
+    candidates=("${ret[@]%/}")
+  else
+    candidates=("${ret[@]}")
+  fi
+  [[ :$opts: == *:no-fd:* ]] &&
+    ble/array#remove-by-regex candidates '^[0-9]+-?$|^-$'
+  local flag_source_filter=1
+  ble/complete/cand/yield-filenames file "${candidates[@]}"
+}
+function ble/complete/source:file {
+  ble/complete/source:file/.impl "$1"
+}
+function ble/complete/source:dir {
+  ble/complete/source:file/.impl "directory:$1"
+}
+function ble/complete/source:rhs { ble/complete/source:file; }
+function ble/complete/action:tilde/initialize {
+  CAND=${CAND#\~} ble/complete/action/quote-insert
+  INSERT=\~$INSERT
+  local rex='^~[^/'\''"$`\!:]*$'; [[ $INSERT =~ $rex ]]
+}
+function ble/complete/action:tilde/complete {
+  ble/complete/action/complete.mark-directory
+}
+function ble/complete/action:tilde/init-menu-item {
+  local ret
+  ble/color/face2g filename_directory; g=$ret
+}
+function ble/complete/action:tilde/get-desc {
+  if [[ $CAND == '~+' ]]; then
+    desc='current directory (tilde expansion)'
+  elif [[ $CAND == '~-' ]]; then
+    desc='previous directory (tilde expansion)'
+  elif local rex='^~[0-9]$'; [[ $CAND =~ $rex ]]; then
+    desc='DIRSTACK directory (tilde expansion)'
+  else
+    desc='user directory (tilde expansion)'
+  fi
+}
+function ble/complete/source:tilde/.generate {
+  local pattern=${COMPS#\~}
+  [[ :$comp_type: == *:[maA]:* ]] && pattern=
+  builtin compgen -P \~ -u -- "$pattern"
+  printf '%s\n' '~' '~+' '~-'
+  local dirstack_max=$((${#DIRSTACK[@]}-1))
+  ((dirstack_max>=0)) &&
+    builtin eval "printf '%s\n' '~'{0..$dirstack_max}"
+}
+function ble/complete/source:tilde {
+  local rex='^~[^/'\''"$`\!:]*$'; [[ $COMPS =~ $rex ]] || return 1
+  local compgen candidates
+  ble/util/assign compgen ble/complete/source:tilde/.generate
+  [[ $compgen ]] || return 1
+  ble/util/assign-array candidates 'ble/bin/sort -u <<< "$compgen"'
+  local flag_source_filter=1
+  if [[ $COMPS == '~'?* ]]; then
+    local filter_type=$comp_filter_type
+    [[ $filter_type == none ]] && filter_type=head
+    local comp_filter_type
+    local comp_filter_pattern
+    ble/complete/candidates/filter#init "$filter_type" "$COMPS"
+    ble/array#filter candidates ble/complete/candidates/filter#test
+  fi
+  ((${#candidates[@]})) || return 1
+  local old_cand_count=$cand_count
+  ble/complete/cand/yield-filenames tilde "${candidates[@]}"; local ext=$?
+  return $((ext?ext:cand_count>old_cand_count))
+}
+function ble/complete/source:fd {
+  IFS=: builtin eval 'local fdlist=":${_ble_util_openat_fdlist[*]}:"'
+  [[ $comp_filter_type == none ]] &&
+    local comp_filter_type=head
+  local old_cand_count=$cand_count
+  local action=word "${_ble_complete_yield_varnames[@]/%/=}" # WA #D1570 safe
+  ble/complete/cand/yield.initialize "$action"
+  ble/complete/cand/yield "$action" -
+  if [[ -d /proc/self/fd ]]; then
+    local ret
+    ble/complete/util/eval-pathname-expansion '/proc/self/fd/*'
+    local fd
+    for fd in "${ret[@]}"; do
+      fd=${fd#/proc/self/fd/}
+      [[ ${fd//[0-9]} ]] && continue
+      [[ $fdlist == *:"$fd":* ]] && continue
+      ble/complete/cand/yield "$action" "$fd"
+      ble/complete/cand/yield "$action" "$fd-"
+    done
+  else
+    local fd
+    for ((fd=0;fd<10;fd++)); do
+      ble/fd#is-open "$fd" || continue
+      ble/complete/cand/yield "$action" "$fd"
+      ble/complete/cand/yield "$action" "$fd-"
+    done
+  fi
+  return $((cand_count>old_cand_count))
+}
+function ble/complete/progcomp/.compvar-initialize-wordbreaks {
+  local ifs=$_ble_term_IFS q=\'\" delim=';&|<>()' glob='[*?' hist='!^{' esc='`$\'
+  local escaped=$ifs$q$delim$glob$hist$esc
+  wordbreaks=${COMP_WORDBREAKS//[$escaped]} # =:
+}
+function ble/complete/progcomp/.compvar-perform-wordbreaks {
+  local word=$1
+  if [[ ! $word ]]; then
+    ret=('')
+    return 0
+  fi
+  ret=()
+  while local head=${word%%["$wordbreaks"]*}; [[ $head != $word ]]; do
+    ble/array#push ret "$head"
+    word=${word:${#head}}
+    head=${word%%[!"$wordbreaks"]*}
+    ble/array#push ret "$head"
+    word=${word:${#head}}
+  done
+  ble/array#push ret "$word"
+}
+function ble/complete/progcomp/.compvar-eval-word {
+  local opts=$2:single
+  if [[ :$opts: == *:noglob:* ]]; then
+    ble/syntax:bash/simple-word/eval "$1" "$opts"
+  else
+    [[ $bleopt_complete_timeout_compvar ]] &&
+      opts=timeout=$((bleopt_complete_timeout_compvar)):retry-noglob-on-timeout:$opts
+    ble/complete/source/eval-simple-word "$1" "$opts"
+  fi
+}
+function ble/complete/progcomp/.compvar-generate-subwords/impl1 {
+  local word=$1 ret simple_flags simple_ibrace
+  if [[ $point ]]; then
+    local left=${word::point} right=${word:point}
+  else
+    local left=$word right=
+    local point= # hide
+  fi
+  ble/syntax:bash/simple-word/reconstruct-incomplete-word "$left" || return 1
+  left=$ret
+  if [[ $right ]]; then
+    case $simple_flags in
+    (*I*) right=\$\"$right ;;
+    (*D*) right=\"$right ;;
+    (*E*) right=\$\'$right ;;
+    (*S*) right=\'$right ;;
+    (*B*) right=\\$right ;;
+    esac
+    ble/syntax:bash/simple-word/reconstruct-incomplete-word "$right" || return 1
+    right=$ret
+  fi
+  point=0 words=()
+  local eval_opts=noglob
+  ((${#ret[@]}==1)) && eval_opts=
+  ble/syntax:bash/simple-word#break-word "$left"
+  local subword
+  for subword in "${ret[@]}"; do
+    ble/complete/progcomp/.compvar-eval-word "$subword" "$eval_opts"
+    ble/array#push words "$ret"
+    ((point+=${#ret}))
+  done
+  if [[ $right ]]; then
+    ble/syntax:bash/simple-word#break-word "$right"
+    local subword isfirst=1
+    for subword in "${ret[@]}"; do
+      ble/complete/progcomp/.compvar-eval-word "$subword" noglob
+      if [[ $isfirst ]]; then
+        isfirst=
+        local iword=${#words[@]}; ((iword&&iword--))
+        words[iword]=${words[iword]}$ret
+      else
+        ble/array#push words "$ret"
+      fi
+    done
+  fi
+  return 0
+}
+function ble/complete/progcomp/.compvar-generate-subwords/impl2 {
+  local word=$1
+  ble/syntax:bash/simple-word/reconstruct-incomplete-word "$word" || return 1
+  ble/complete/progcomp/.compvar-eval-word "$ret"; (($?==148)) && return 148; local value1=$ret
+  if [[ $point ]]; then
+    if ((point==${#word})); then
+      point=${#value1}
+    elif ble/syntax:bash/simple-word/reconstruct-incomplete-word "${word::point}"; then
+      ble/complete/progcomp/.compvar-eval-word "$ret"; (($?==148)) && return 148
+      point=${#ret}
+    fi
+  fi
+  ble/complete/progcomp/.compvar-perform-wordbreaks "$value1"; words=("${ret[@]}")
+  return 0
+}
+function ble/complete/progcomp/.compvar-generate-subwords {
+  local word1=$1 ret simple_flags simple_ibrace
+  if [[ ! $word1 ]]; then
+    subword_flags=E
+    words=('')
+  elif [[ $word1 == '~' ]]; then
+    subword_flags=Q
+    words=('~')
+  elif ble/complete/progcomp/.compvar-generate-subwords/impl1 "$word1"; then
+    subword_flags=E
+  elif ble/complete/progcomp/.compvar-generate-subwords/impl2 "$word1"; then
+    subword_flags=E
+  else
+    ble/complete/progcomp/.compvar-perform-wordbreaks "$word1"; words=("${ret[@]}")
+  fi
+}
+function ble/complete/progcomp/.compvar-quote-subword {
+  local word=$1 to_quote= is_evaluated= is_quoted=
+  if [[ $subword_flags == *[EQ]* ]]; then
+    [[ $subword_flags == *E* ]] && to_quote=1
+  elif ble/syntax:bash/simple-word/reconstruct-incomplete-word "$word"; then
+    is_evaluated=1
+    ble/complete/progcomp/.compvar-eval-word "$ret"; (($?==148)) && return 148; word=$ret
+    to_quote=1
+  fi
+  if [[ $to_quote ]]; then
+    local shell_specialchars=']\ ["'\''`$|&;<>()*?{}!^'$'\n\t' q="'" Q="'\''" qq="''"
+    if ((index>0)) && [[ $word == *["$shell_specialchars"]* || $word == [#~]* ]]; then
+      is_quoted=1
+      word="'${w//$q/$Q}'" word=${word#"$qq"} word=${word%"$qq"}
+    fi
+  fi
+  if [[ $p && $word != "$1" ]]; then
+    if ((p==${#1})); then
+      p=${#word}
+    else
+      local left=${word::p}
+      if [[ $is_evaluated ]]; then
+        if ble/syntax:bash/simple-word/reconstruct-incomplete-word "$left"; then
+          ble/complete/progcomp/.compvar-eval-word "$ret"; (($?==148)) && return 148; left=$ret
+        fi
+      fi
+      if [[ $is_quoted ]]; then
+        left="'${left//$q/$Q}" left=${left#"$qq"}
+      fi
+      p=${#left}
+    fi
+  fi
+  ret=$word
+}
+function ble/complete/progcomp/.compvar-initialize {
+  COMP_TYPE=9
+  COMP_KEY=9
+  ((${#KEYS[@]})) && COMP_KEY=${KEYS[${#KEYS[@]}-1]:-9} # KEYS defined in ble-decode/widget/.call-keyseq
+  local wordbreaks
+  ble/complete/progcomp/.compvar-initialize-wordbreaks
+  progcomp_prefix=
+  COMP_CWORD=
+  COMP_POINT=
+  COMP_LINE=
+  COMP_WORDS=()
+  local ret simple_flags simple_ibrace
+  local word1 index=0 offset=0 sep=
+  for word1 in "${comp_words[@]}"; do
+    local point=$((comp_point-offset))
+    ((0<=point&&point<=${#word1})) || point=
+    ((offset+=${#word1}))
+    local words subword_flags=
+    ble/complete/progcomp/.compvar-generate-subwords "$word1"
+    local w wq i=0 o=0 p
+    for w in "${words[@]}"; do
+      p=
+      if [[ $point ]]; then
+        ((p=point-o))
+        ((i%2==0?p<=${#w}:p<${#w})) || p=
+        ((o+=${#w},i++))
+      fi
+      [[ $p ]] && point=
+      [[ $point ]] && progcomp_prefix=$progcomp_prefix$w
+      ble/complete/progcomp/.compvar-quote-subword "$w"; local wq=$ret
+      if [[ $p ]]; then
+        COMP_CWORD=${#COMP_WORDS[*]}
+        ((COMP_POINT=${#COMP_LINE}+${#sep}+p))
+      fi
+      ble/array#push COMP_WORDS "$wq"
+      COMP_LINE=$COMP_LINE$sep$wq
+      sep=
+    done
+    sep=' '
+    ((offset++))
+    ((index++))
+  done
+}
+function ble/complete/progcomp/.compgen-helper-prog {
+  if [[ $comp_prog ]]; then
+    local COMP_WORDS COMP_CWORD
+    local -x COMP_LINE COMP_POINT COMP_TYPE COMP_KEY
+    ble/complete/progcomp/.compvar-initialize
+    local cmd=${COMP_WORDS[0]} cur=${COMP_WORDS[COMP_CWORD]} prev=${COMP_WORDS[COMP_CWORD-1]}
+    if [[ $comp_opts == *:ble/prog-trim:* ]]; then
+      local compreply
+      ble/util/assign compreply '"$comp_prog" "$cmd" "$cur" "$prev" < /dev/null'
+      ble/bin/sed "s/[[:space:]]\{1,\}\$//" <<< "$compreply"
+    else
+      "$comp_prog" "$cmd" "$cur" "$prev" < /dev/null
+    fi
+  fi
+}
+function ble/complete/progcomp/compopt {
+  local ext=0
+  local -a ospec
+  while (($#)); do
+    local arg=$1; shift
+    case "$arg" in
+    (-*)
+      local ic c
+      for ((ic=1;ic<${#arg};ic++)); do
+        c=${arg:ic:1}
+        case "$c" in
+        (o)    ospec[${#ospec[@]}]="-$1"; shift ;;
+        ([DE]) fDefault=1; break 2 ;;
+        (*)    ((ext==0&&(ext=1))) ;;
+        esac
+      done ;;
+    (+o) ospec[${#ospec[@]}]="+$1"; shift ;;
+    (*)
+      return "$ext" ;;
+    esac
+  done
+  local s
+  for s in "${ospec[@]}"; do
+    case "$s" in
+    (-*) comp_opts=${comp_opts//:"${s:1}":/:}${s:1}: ;;
+    (+*) comp_opts=${comp_opts//:"${s:1}":/:} ;;
+    esac
+  done
+  return "$ext"
+}
+function ble/complete/progcomp/.check-limits {
+  ((cand_iloop++%bleopt_complete_polling_cycle==0)) &&
+    [[ ! -t 0 ]] && ble/complete/check-cancel <&$_ble_util_fd_stdin &&
+    return 148
+  ble/complete/source/test-limit $((progcomp_read_count++))
+  return "$?"
+}
+function ble/complete/progcomp/.compgen-helper-func {
+  [[ $comp_func ]] || return 1
+  local -a COMP_WORDS
+  local COMP_LINE COMP_POINT COMP_CWORD COMP_TYPE COMP_KEY
+  ble/complete/progcomp/.compvar-initialize
+  local progcomp_read_count=0
+  local _ble_builtin_read_hook='ble/complete/progcomp/.check-limits || { builtin read "$@" < /dev/null; return 148; }'
+  local fDefault=
+  local cmd=${COMP_WORDS[0]} cur=${COMP_WORDS[COMP_CWORD]} prev=${COMP_WORDS[COMP_CWORD-1]}
+  ble/function#push compopt 'ble/complete/progcomp/compopt "$@"'
+  ble/function#push ssh '
+    local IFS=$_ble_term_IFS
+    if [[ " ${FUNCNAME[*]} " == *" ble/complete/progcomp/.compgen "* ]]; then
+      local -a args; args=("$@")
+      ble/util/conditional-sync "exec ssh \"\${args[@]}\"" \
+        "! ble/complete/check-cancel <&$_ble_util_fd_stdin" 128 progressive-weight:killall
+    else
+      ble/function#push/call-top "$@"
+    fi'
+  builtin eval '"$comp_func" "$cmd" "$cur" "$prev"' < /dev/null >&$_ble_util_fd_stdout 2>&$_ble_util_fd_stderr; local ret=$?
+  ble/function#pop ssh
+  ble/function#pop compopt
+  [[ $ret == 124 ]] && progcomp_retry=1
+  return 0
+}
+function ble/complete/progcomp/.parse-complete/next {
+  if [[ $compdef =~ $rex ]]; then
+    builtin eval "arg=$BASH_REMATCH"
+    compdef=${compdef:${#BASH_REMATCH}}
+    return 0
+  elif [[ ${compdef%%' '*} ]]; then
+    arg=${compdef%%' '*}
+    compdef=${compdef#*' '}
+    return 0
+  else
+    return 1
+  fi
+}
+function ble/complete/progcomp/.parse-complete/optarg {
+  optarg=
+  if ((ic+1<${#arg})); then
+    optarg=${arg:ic+1}
+    ic=${#arg}
+    return 0
+  elif [[ $compdef =~ $rex ]]; then
+    builtin eval "optarg=$BASH_REMATCH"
+    compdef=${compdef:${#BASH_REMATCH}}
+    return 0
+  else
+    return 2
+  fi
+}
+function ble/complete/progcomp/.parse-complete {
+  compoptions=()
+  comp_prog=
+  comp_func=
+  flag_noquote=
+  local compdef=${1#'complete '}
+  local arg optarg rex='^([^][*?;&|[:space:]<>()\`$"'\''{}#^!]|\\.|'\''[^'\'']*'\'')+[[:space:]]+' # #D1709 safe (WA gawk 4.0.2)
+  while ble/complete/progcomp/.parse-complete/next; do
+    case $arg in
+    (-*)
+      local ic c
+      for ((ic=1;ic<${#arg};ic++)); do
+        c=${arg:ic:1}
+        case "$c" in
+        ([abcdefgjksuvE])
+          case $c in
+          (c) flag_noquote=1 ;;
+          (d) ((_ble_bash>=40300)) && flag_noquote=1 ;;
+          (f) ((40000<=_ble_bash&&_ble_bash<40200)) && flag_noquote=1 ;;
+          esac
+          ble/array#push compoptions "-$c" ;;
+        ([pr])
+          ;; # 無視 (-p 表示 -r 削除)
+        ([AGWXPS])
+          ble/complete/progcomp/.parse-complete/optarg || break 2
+          if [[ $c == A ]]; then
+            case $optarg in
+            (command) flag_noquote=1 ;;
+            (directory) ((_ble_bash>=40300)) && flag_noquote=1 ;;
+            (file) ((40000<=_ble_bash&&_ble_bash<40200)) && flag_noquote=1 ;;
+            esac
+          fi
+          ble/array#push compoptions "-$c" "$optarg" ;;
+        (o)
+          ble/complete/progcomp/.parse-complete/optarg || break 2
+          comp_opts=${comp_opts//:"$optarg":/:}$optarg:
+          ble/array#push compoptions "-$c" "$optarg" ;;
+        (C)
+          if ((_ble_bash<40000)); then
+            comp_prog=${compdef%' '}
+            compdef=
+          else
+            ble/complete/progcomp/.parse-complete/optarg || break 2
+            comp_prog=$optarg
+          fi
+          ble/array#push compoptions "-$c" ble/complete/progcomp/.compgen-helper-prog ;;
+        (F)
+          if ((_ble_bash<40000)) && [[ $compdef == *' -C '* ]]; then
+            comp_prog=${compdef#*' -C '}
+            comp_prog=${comp_prog%' '}
+            ble/array#push compoptions '-C' ble/complete/progcomp/.compgen-helper-prog
+            comp_func=${compdef%%' -C '*}
+          else
+            comp_func=${compdef%' '}
+          fi
+          compdef=
+          ble/array#push compoptions "-$c" ble/complete/progcomp/.compgen-helper-func ;;
+        (*)
+        esac
+      done ;;
+    (*)
+      ;; # 無視
+    esac
+  done
+}
+function ble/complete/progcomp/.filter-and-split-compgen {
+  flag_mandb=
+  local sed_script=
+  {
+    if [[ $comp_opts == *:ble/filter-by-prefix:* ]]; then
+      local ret; ble/string#escape-for-sed-regex "$COMPV"; local rex_compv=$ret
+      sed_script='!/^'$rex_compv'/d'
+    fi
+    [[ $use_workaround_for_git ]] &&
+      sed_script=${sed_script:+$sed_script;}'s/[[:space:]]\{1,\}$//'
+  }
+  local out=
+  [[ $sed_script ]] && ble/util/assign out 'ble/bin/sed "$sed_script;/^\$/d" <<< "$compgen"'
+  [[ $out ]] || out=$compgen
+  local require_awk=
+  if [[ $comp_opts != *:nosort:* ]]; then
+    ble/util/assign out 'ble/bin/sort -u <<< "$out"'
+  else
+    require_awk=1 # for uniq
+  fi
+  local -a args_mandb=()
+  if [[ $compcmd == "${comp_words[0]}" && $COMPV != [!-]* ]]; then
+    if local ret; ble/complete/mandb/generate-cache "$compcmd"; then
+      require_awk=1
+      args_mandb=(mode=mandb "$ret")
+    fi
+  fi
+  if [[ $require_awk ]]; then
+    local awk_script='
+      BEGIN { mandb_count = 0; }
+      mode == "mandb" {
+        name = $0
+        sub(/'"$_ble_term_FS"'.*/, "", name);
+        if (!mandb[name]) mandb[name] = $0;
+        next;
+      }
+      !hash[$0]++ {
+        if (/^$/) next;
+        name = $0
+        sub(/=$/, "", name);
+        if (mandb[name]) {
+          mandb_count++;
+          print mandb[name];
+          next;
+        } else if (sub(/^--no-/, "--", name)) {
+          if ((entry = mandb[name]) || (entry = mandb[substr(name, 2)])) {
+            split(entry, record, FS);
+            if ((desc = record[4])) {
+              desc = "\033[1mReverse[\033[m " desc " \033[;1m]\033[m";
+              if (match($0, /[[:space:]]*[:=[]/)) {
+                option = substr($0, 1, RSTART - 1);
+                optarg = substr($0, RSTART);
+                suffix = substr($0, RSTART, 1);
+                if (suffix == "[") suffix = "";
+              } else {
+                option = $0;
+                optarg = "";
+                suffix = " ";
+              }
+              mandb_count++;
+              print option FS optarg FS suffix FS desc;
+            }
+            next;
+          }
+        }
+        print $0;
+      }
+      END { if (mandb_count) exit 10; }
+    '
+    ble/util/assign-array "$1" 'ble/bin/awk -F "$_ble_term_FS" "$awk_script" "${args_mandb[@]}" mode=compgen - <<< "$out"'
+    (($?==10)) && flag_mandb=1
+  else
+    ble/string#split-lines "$1" "$out"
+  fi
+  return 0
+} 2>/dev/null
+function ble/complete/progcomp/.cobraV2.patch {
+  local prefix=$cur
+  [[ $comps_flags == *v* ]] && prefix=$COMPV
+  local unprocessed has_desc=
+  unprocessed=()
+  local lines line cand desc
+  for lines in "${out[@]}"; do
+    ble/string#split-lines lines "$lines"
+    for line in "${lines[@]}"; do
+      if [[ $line == *$'\t'* ]]; then
+        cand=${line%%$'\t'*}
+        desc=${line#*$'\t'}
+        [[ $cand == "$prefix"* ]] || continue
+        ble/complete/cand/yield word "$cand" "$desc"
+        has_desc=1
+      else
+        ble/array#push unprocessed "$line"
+      fi
+    done
+  done
+  [[ $has_desc ]] && bleopt complete_menu_style=desc
+  if ((${#unprocessed[@]})); then
+    out=("${unprocessed[@]}")
+    ble/function#advice/do
+  fi
+}
+function ble/complete/progcomp/.compgen {
+  local opts=$1
+  local compcmd= is_special_completion=
+  local -a alias_args=()
+  if [[ :$opts: == *:initial:* ]]; then
+    if ((_ble_bash>=50000)); then
+      is_special_completion=1
+      compcmd='-I'
+    else
+      compcmd=_InitialWorD_
+    fi
+  elif [[ :$opts: == *:default:* ]]; then
+    if ((_ble_bash>=40100)); then
+      builtin complete -p -D &>/dev/null || return 1
+      is_special_completion=1
+      compcmd='-D'
+    else
+      builtin complete -p _DefaultCmD_ &>/dev/null || return 1
+      compcmd=_DefaultCmD_
+    fi
+  else
+    compcmd=${comp_words[0]}
+  fi
+  local compdef
+  if [[ $is_special_completion ]]; then
+    ble/util/assign compdef 'builtin complete -p "$compcmd" 2>/dev/null'
+  elif ble/syntax:bash/simple-word/is-simple "$compcmd"; then
+    ble/util/assign compdef "builtin complete -p -- $compcmd 2>/dev/null"
+    local ret; ble/syntax:bash/simple-word/eval "$compcmd"; compcmd=$ret
+  else
+    ble/util/assign compdef 'builtin complete -p -- "$compcmd" 2>/dev/null'
+  fi
+  compdef=${compdef%"${compcmd:-''}"}
+  compdef=${compdef%' '}' '
+  local comp_prog comp_func compoptions flag_noquote
+  ble/complete/progcomp/.parse-complete "$compdef"
+  if [[ $comp_func ]]; then
+    [[ $comp_func == _fzf_* ]] &&
+      ble-import -f contrib/fzf-completion
+    if ble/is-function _quote_readline_by_ref; then
+      function _quote_readline_by_ref {
+        if [[ $1 == \'* ]]; then
+          printf -v "$2" %s "${1:1}"
+        else
+          printf -v "$2" %q "$1"
+          [[ ${!2} == \$* ]] && builtin eval "$2=${!2}"
+        fi
+      }
+      ble/function#suppress-stderr _filedir 2>/dev/null
+      ble/function#suppress-stderr _find 2>/dev/null
+      ble/function#suppress-stderr _scp_remote_files 2>/dev/null
+      ble/complete/mandb:_parse_help/inject
+    fi
+    if [[ $comp_func == __start_* ]]; then
+      local target=__${comp_func#__start_}_handle_completion_types
+      ble/is-function "$target" &&
+        ble/function#advice around "$target" ble/complete/progcomp/.cobraV2.patch
+    fi
+    ble/function#advice around _dnf_commands_helper '
+      ble/util/conditional-sync \
+        ble/function#advice/do \
+        "! ble/complete/check-cancel <&$_ble_util_fd_stdin" 128 progressive-weight:killall' 2>/dev/null
+  fi
+  if [[ $comp_prog ]]; then
+    if [[ $comp_prog == aws_completer ]]; then
+      comp_opts=${comp_opts}ble/no-mark-directories:ble/prog-trim:
+    fi
+  fi
+  ble/complete/check-cancel && return 148
+  local compgen compgen_compv=$COMPV
+  if [[ ! $flag_noquote && :$comp_opts: != *:noquote:* ]]; then
+    local q="'" Q="'\''"
+    compgen_compv="'${compgen_compv//$q/$Q}'"
+  fi
+  local progcomp_prefix= progcomp_retry=
+  IFS=$IFS word= ble/util/assign compgen 'builtin compgen "${compoptions[@]}" -- "$compgen_compv" 2>/dev/null'
+  if [[ $progcomp_retry && ! $_ble_complete_retry_guard ]]; then
+    local _ble_complete_retry_guard=1
+    opts=:$opts:
+    opts=${opts//:default:/:}
+    ble/complete/progcomp/.compgen "$opts"
+    return "$?"
+  fi
+  [[ $compgen ]] || return 1
+  local use_workaround_for_git=
+  if [[ $comp_func == __git* && $comp_opts == *:nospace:* ]]; then
+    use_workaround_for_git=1
+    comp_opts=${comp_opts//:nospace:/:}
+  fi
+  local cands flag_mandb=
+  ble/complete/progcomp/.filter-and-split-compgen cands # compgen (comp_opts, etc) -> cands, flag_mandb
+  ble/complete/source/test-limit ${#cands[@]} || return 1
+  [[ $comp_opts == *:filenames:* && $COMPV == */* ]] && COMP_PREFIX=${COMPV%/*}/
+  local old_cand_count=$cand_count
+  local action=progcomp "${_ble_complete_yield_varnames[@]/%/=}" # WA #D1570 safe
+  ble/complete/cand/yield.initialize "$action"
+  if [[ $flag_mandb ]]; then
+    local -a entries; entries=("${cands[@]}")
+    cands=()
+    local fs=$_ble_term_FS has_desc= icand=0 entry
+    for entry in "${entries[@]}"; do
+      ((cand_iloop++%bleopt_complete_polling_cycle==0)) && ble/complete/check-cancel && return 148
+      if [[ $entry == -*"$fs"*"$fs"*"$fs"* ]]; then
+        local cand=${entry%%"$fs"*}
+        ble/complete/cand/yield mandb "$cand" "$entry"
+        [[ $entry == *"$fs"*"$fs"*"$fs"?* ]] && has_desc=1
+      else
+        cands[icand++]=$progcomp_prefix$entry
+      fi
+    done
+    [[ $has_desc ]] && bleopt complete_menu_style=desc
+  else
+    [[ $progcomp_prefix ]] &&
+      if ((_ble_bash>=40300)) && ! shopt -q compat42; then
+        cands=("${cands[@]/#/"$progcomp_prefix"}") # WA #D1570 #D1751 safe
+      else
+        cands=("${cands[@]/#/$progcomp_prefix}") # WA #D1570 #D1738 safe
+      fi
+  fi
+  ble/complete/cand/yield.batch "$action" "$comp_opts"
+  [[ $comp_opts == *:plusdirs:* ]] && ble/complete/source:dir
+  ((cand_count>old_cand_count))
+}
+function ble/complete/progcomp/.compline-rewrite-command {
+  local ocmd=${comp_words[0]}
+  [[ $1 != "$ocmd" ]] || (($#>=2)) || return 1
+  local IFS=$_ble_term_IFS
+  local ins="$*"
+  if (($#==0)); then
+    local ret; ble/string#ltrim "${comp_line:${#ocmd}}"
+    ((comp_point-=${#comp_line}-${#ret}))
+    comp_line=$ret
+  else
+    comp_line=$ins${comp_line:${#ocmd}}
+    ((comp_point-=${#ocmd}))
+  fi
+  ((comp_point<0&&(comp_point=0),comp_point+=${#ins}))
+  comp_words=("$@" "${comp_words[@]:1}")
+  ((comp_cword&&(comp_cword+=$#-1)))
+}
+function ble/complete/progcomp/.split-alias-words {
+  local tail=$1
+  local rex_redir='^'$_ble_syntax_bash_RexRedirect
+  local rex_word='^'$_ble_syntax_bash_simple_rex_element'+'
+  local rex_delim=$'^[\n;|&]'
+  local rex_spaces=$'^[ \t]+'
+  local rex_misc='^[<>()]+'
+  local -a words=()
+  while [[ $tail ]]; do
+    if [[ $tail =~ $rex_redir && $tail != ['<>']'('* ]]; then
+      ble/array#push words "$BASH_REMATCH"
+      tail=${tail:${#BASH_REMATCH}}
+    elif [[ $tail =~ $rex_word ]]; then
+      local w=$BASH_REMATCH
+      tail=${tail:${#w}}
+      if [[ $tail && $tail != ["$_ble_term_IFS;|&<>()"]* ]]; then
+        local s=${tail%%["$_ble_term_IFS"]*}
+        tail=${tail:${#s}}
+        w=$w$s
+      fi
+      ble/array#push words "$w"
+    elif [[ $tail =~ $rex_delim ]]; then
+      words=()
+      tail=${tail:${#BASH_REMATCH}}
+    elif [[ $tail =~ $rex_spaces ]]; then
+      tail=${tail:${#BASH_REMATCH}}
+    elif [[ $tail =~ $rex_misc ]]; then
+      ble/array#push words "$BASH_REMATCH"
+      tail=${tail:${#BASH_REMATCH}}
+    else
+      local w=${tail%%["$_ble_term_IFS"]*}
+      ble/array#push words "$w"
+      tail=${tail:${#w}}
+    fi
+  done
+  local i=0 rex_assign='^[a-zA-Z_0-9]+(\['$_ble_syntax_bash_simple_rex_element'*\])?\+?='
+  while ((i<${#words[@]})); do
+   if [[ ${words[i]} =~ $rex_assign ]]; then
+     ((i++))
+   elif [[ ${words[i]} =~ $rex_redir && ${words[i]} != ['<>']'('* ]]; then
+     ((i+=2))
+   else
+     break
+   fi
+  done
+  ret=("${words[@]:i}")
+}
+function ble/complete/progcomp {
+  local cmd=${1-${comp_words[0]}} opts=$2
+  local -a orig_comp_words; orig_comp_words=("${comp_words[@]}")
+  local comp_words comp_line=$comp_line comp_point=$comp_point comp_cword=$comp_cword
+  comp_words=("$cmd" "${orig_comp_words[@]:1}")
+  local orig_qcmds_set=
+  local -a orig_qcmds=()
+  local -a alias_args=()
+  [[ :$opts: == *:__recursive__:* ]] ||
+    local alias_checked=' '
+  while :; do
+    local ret ucmd qcmds
+    ucmd=$cmd qcmds=("$cmd")
+    if ble/syntax:bash/simple-word/is-simple "$cmd"; then
+      if ble/syntax:bash/simple-word/eval "$cmd" noglob &&
+          [[ $ret != "$cmd" || ${#ret[@]} -ne 1 ]]; then
+        ucmd=${ret[0]} qcmds=()
+        local word
+        for word in "${ret[@]}"; do
+          ble/string#quote-word "$word" quote-empty
+          ble/array#push qcmds "$ret"
+        done
+      else
+        ble/string#quote-word "$cmd" quote-empty
+        qcmds=("$ret")
+      fi
+      [[ $cmd == "${orig_comp_words[0]}" ]] &&
+        orig_qcmds_set=1 orig_qcmds=("${qcmds[@]}")
+    fi
+    if ble/is-function "ble/cmdinfo/complete:$ucmd"; then
+      ble/complete/progcomp/.compline-rewrite-command "${qcmds[@]}" "${alias_args[@]}"
+      "ble/cmdinfo/complete:$ucmd" "$opts"
+      return "$?"
+    elif [[ $ucmd == */?* ]] && ble/is-function "ble/cmdinfo/complete:${ucmd##*/}"; then
+      ble/string#quote-word "${ucmd##*/}"; qcmds[0]=$ret
+      ble/complete/progcomp/.compline-rewrite-command "${qcmds[@]}" "${alias_args[@]}"
+      "ble/cmdinfo/complete:${ucmd##*/}" "$opts"
+      return "$?"
+    elif builtin complete -p -- "$ucmd" &>/dev/null; then
+      ble/complete/progcomp/.compline-rewrite-command "${qcmds[@]}" "${alias_args[@]}"
+      ble/complete/progcomp/.compgen "$opts"
+      return "$?"
+    elif [[ $ucmd == */?* ]] && builtin complete -p -- "${ucmd##*/}" &>/dev/null; then
+      ble/string#quote-word "${ucmd##*/}"; qcmds[0]=$ret
+      ble/complete/progcomp/.compline-rewrite-command "${qcmds[@]}" "${alias_args[@]}"
+      ble/complete/progcomp/.compgen "$opts"
+      return "$?"
+    elif
+      ble/function#try __load_completion "${ucmd##*/}" &>/dev/null &&
+        builtin complete -p -- "${ucmd##*/}" &>/dev/null
+    then
+      ble/string#quote-word "${ucmd##*/}"; qcmds[0]=$ret
+      ble/complete/progcomp/.compline-rewrite-command "${qcmds[@]}" "${alias_args[@]}"
+      ble/complete/progcomp/.compgen "$opts"
+      return "$?"
+    fi
+    alias_checked=$alias_checked$cmd' '
+    ((_ble_bash<50000)) || shopt -q progcomp_alias || break
+    local ret
+    ble/alias#expand "$cmd"
+    [[ $ret == "$cmd" ]] && break
+    ble/complete/progcomp/.split-alias-words "$ret"
+    if ((${#ret[@]}==0)); then
+      ble/complete/progcomp/.compline-rewrite-command "${alias_args[@]}"
+      if ((${#comp_words[@]})); then
+        if ((comp_cword==0)); then
+          ble/complete/source:command
+        else
+          ble/complete/progcomp "${comp_words[0]}" "__recursive__:$opts"
+        fi
+      fi
+      return $?
+    fi
+    [[ $alias_checked != *" $ret "* ]] || break
+    cmd=$ret
+    ((${#ret[@]}>=2)) &&
+      alias_args=("${ret[@]:1}" "${alias_args[@]}")
+  done
+  comp_words=("${orig_comp_words[@]}")
+  [[ $orig_qcmds_set ]] &&
+    ble/complete/progcomp/.compline-rewrite-command "${orig_qcmds[@]}"
+  ble/complete/progcomp/.compgen "default:$opts"
+}
+_ble_complete_option_chars='_!#$%&:;.,^~|\\?\/*a-zA-Z0-9'
+function ble/complete/action:mandb/initialize {
+  ble/complete/action/quote-insert
+}
+function ble/complete/action:mandb/initialize.batch {
+  ble/complete/action/quote-insert.batch newline
+}
+function ble/complete/action:mandb/complete {
+  ble/complete/action/complete.close-quotation
+  local fields
+  ble/string#split fields "$_ble_term_FS" "$DATA"
+  local tail=${fields[2]}
+  [[ $tail == ' ' && $comps_flags == *x* ]] && tail=','
+  ble/complete/action/complete.addtail "$tail"
+}
+function ble/complete/action:mandb/init-menu-item {
+  local ret; ble/color/face2g argument_option; g=$ret
+  local fields
+  ble/string#split fields "$_ble_term_FS" "$DATA"
+  suffix=${fields[1]}
+}
+function ble/complete/action:mandb/get-desc {
+  local fields
+  ble/string#split fields "$_ble_term_FS" "$DATA"
+  desc=${fields[3]}
+}
+function ble/complete/mandb/load-mandb-conf {
+  [[ -s $1 ]] || return 0
+  local line words
+  while builtin read "${_ble_bash_tmout_wa[@]}" -r line || [[ $line ]]; do
+    ble/string#split-words words "${line%%'#'*}"
+    case ${words[0]} in
+    (MANDATORY_MANPATH)
+      [[ -d ${words[1]} ]] &&
+        ble/array#push manpath_mandatory "${words[1]}" ;;
+    (MANPATH_MAP)
+      ble/dict#set manpath_map "${words[1]}" "${words[2]}" ;;
+    esac
+  done < "$1"
+}
+_ble_complete_mandb_default_manpath=()
+function ble/complete/mandb/initialize-manpath {
+  ((${#_ble_complete_mandb_default_manpath[@]})) && return 0
+  local manpath
+  MANPATH= ble/util/assign manpath 'manpath || ble/bin/man -w' 2>/dev/null
+  ble/string#split manpath : "$manpath"
+  if ((${#manpath[@]}==0)); then
+    local -a manpath_mandatory=()
+    builtin eval -- "${_ble_util_dict_declare//NAME/manpath_map}"
+    ble/complete/mandb/load-mandb-conf /etc/man_db.conf
+    ble/complete/mandb/load-mandb-conf ~/.manpath
+    if ((${#manpath_mandatory[@]}==0)); then
+      local ret
+      ble/complete/util/eval-pathname-expansion '~/*/share/man'
+      ble/array#push manpath_mandatory "${ret[@]}"
+      ble/complete/util/eval-pathname-expansion '~/@(opt|.opt)/*/share/man'
+      ble/array#push manpath_mandatory "${ret[@]}"
+      for ret in /usr/local/share/man /usr/local/man /usr/share/man; do
+        [[ -d $ret ]] && ble/array#push manpath_mandatory "$ret"
+      done
+    fi
+    builtin eval -- "${_ble_util_dict_declare//NAME/mark}"
+    local paths path ret
+    ble/string#split paths : "$PATH"
+    for path in "${paths[@]}"; do
+      [[ -d $path ]] || continue
+      [[ $path == *?/ ]] && path=${path%/}
+      if ble/dict#get manpath_map "$path"; then
+        path=$ret
+      else
+        path=${path%/bin}/share/man
+      fi
+      if [[ -d $path ]] && ! ble/set#contains mark "$path"; then
+        ble/set#add mark "$path"
+        ble/array#push manpath "$path"
+      fi
+    done
+    for path in "${manpath_mandatory[@]}"; do
+      if [[ -d $path ]] && ! ble/set#contains mark "$path"; then
+        ble/set#add mark "$path"
+        ble/array#push manpath "$path"
+      fi
+    done
+  fi
+  _ble_complete_mandb_default_manpath=("${manpath[@]}")
+}
+function ble/complete/mandb/search-file/.extract-path {
+  local command=$1
+  [[ $_ble_complete_mandb_lang ]] &&
+    local LC_ALL=$$_ble_complete_mandb_lang
+  ble/util/assign path 'ble/bin/man -w "$command"' 2>/dev/null
+}
+ble/function#suppress-stderr ble/complete/mandb/search-file/.extract-path
+function ble/complete/mandb/search-file/.check {
+  local path=$1
+  if [[ $path && -s $path ]]; then
+    ret=$path
+    return 0
+  else
+    return 1
+  fi
+}
+function ble/complete/mandb/search-file {
+  local command=$1
+  local path
+  ble/complete/mandb/search-file/.extract-path "$command"
+  ble/complete/mandb/search-file/.check "$path" && return
+  ble/string#split ret : "$MANPATH"
+  ((${#ret[@]})) || ret=('')
+  local -a manpath=()
+  for path in "${ret[@]}"; do
+    if [[ $path ]]; then
+      ble/array#push manpath "$path"
+    else
+      ble/complete/mandb/initialize-manpath
+      ble/array#push manpath "${_ble_complete_mandb_default_manpath[@]}"
+    fi
+  done
+  local path
+  for path in "${manpath[@]}"; do
+    [[ -d $path ]] || continue
+    ble/complete/mandb/search-file/.check "$path/man1/$command.1" && return 0
+    ble/complete/mandb/search-file/.check "$path/man1/$command.8" && return 0
+    if ble/is-function ble/bin/gzip; then
+      ble/complete/mandb/search-file/.check "$path/man1/$command.1.gz" && return 0
+      ble/complete/mandb/search-file/.check "$path/man1/$command.8.gz" && return 0
+    fi
+    if ble/is-function ble/bin/bzcat; then
+      ble/complete/mandb/search-file/.check "$path/man1/$command.1.bz" && return 0
+      ble/complete/mandb/search-file/.check "$path/man1/$command.1.bz2" && return 0
+      ble/complete/mandb/search-file/.check "$path/man1/$command.8.bz" && return 0
+      ble/complete/mandb/search-file/.check "$path/man1/$command.8.bz2" && return 0
+    fi
+    if ble/is-function ble/bin/xzcat; then
+      ble/complete/mandb/search-file/.check "$path/man1/$command.1.xz" && return 0
+      ble/complete/mandb/search-file/.check "$path/man1/$command.8.xz" && return 0
+    fi
+    if ble/is-function ble/bin/lzcat; then
+      ble/complete/mandb/search-file/.check "$path/man1/$command.1.lzma" && return 0
+      ble/complete/mandb/search-file/.check "$path/man1/$command.8.lzma" && return 0
+    fi
+  done
+  return 1
+}
+if ble/bin/.freeze-utility-path preconv; then
+  function ble/complete/mandb/.preconv { ble/bin/preconv; }
+else
+  function ble/complete/mandb/.preconv {
+    ble/bin/od -A n -t u1 -v | ble/bin/awk '
+      BEGIN {
+        ECHAR = 65533; # U+FFFD
+        byte = 0;
+        for (i = 0; byte < 128; byte++) { mtable[byte] = 0; vtable[byte] = i++; }
+        for (i = 0; byte < 192; byte++) { mtable[byte] = 0; vtable[byte] = ECHAR; }
+        for (i = 0; byte < 224; byte++) { mtable[byte] = 1; vtable[byte] = i++; }
+        for (i = 0; byte < 240; byte++) { mtable[byte] = 2; vtable[byte] = i++; }
+        for (i = 0; byte < 248; byte++) { mtable[byte] = 3; vtable[byte] = i++; }
+        for (i = 0; byte < 252; byte++) { mtable[byte] = 4; vtable[byte] = i++; }
+        for (i = 0; byte < 254; byte++) { mtable[byte] = 5; vtable[byte] = i++; }
+        for (i = 0; byte < 256; byte++) { mtable[byte] = 0; vtable[byte] = ECHAR; }
+        M = 0; C = 0;
+      }
+      function put_uchar(uchar) {
+        if (uchar < 128)
+          printf("%c", uchar);
+        else
+          printf("\\[u%04X]", uchar);
+      }
+      function process_byte(byte) {
+        if (M) {
+          if (128 <= byte && byte < 192) {
+            C = C * 64 + byte % 64;
+            if (--M == 0) put_uchar(C);
+            return;
+          } else {
+            put_uchar(ECHAR);
+            M = 0;
+          }
+        }
+        M = mtable[byte];
+        C = vtable[byte];
+        if (M == 0) put_uchar(C);
+      }
+      { for (i = 1; i <= NF; i++) process_byte($i); }
+    '
+  }
+fi
+_ble_complete_mandb_lang=
+if ble/is-function ble/bin/groff; then
+  _ble_complete_mandb_convert_type=man
+  function ble/complete/mandb/convert-mandoc {
+    if [[ $_ble_util_locale_encoding == UTF-8 ]]; then
+      ble/bin/groff -k -Tutf8 -man
+    else
+      ble/bin/groff -Tascii -man
+    fi
+  }
+  if [[ $OSTYPE == darwin* ]] && ! ble/bin/groff -k -Tutf8 -man &>/dev/null <<< 'α'; then
+    if ble/bin/groff -T utf8 -m man &>/dev/null <<< '\[u03B1]'; then
+      function ble/complete/mandb/convert-mandoc {
+        if [[ $_ble_util_locale_encoding == UTF-8 ]]; then
+          ble/complete/mandb/.preconv | ble/bin/groff -T utf8 -m man
+        else
+          ble/bin/groff -T ascii -m man
+        fi
+      }
+    else
+      _ble_complete_mandb_lang=C
+      function ble/complete/mandb/convert-mandoc {
+        ble/bin/groff -T ascii -m man
+      }
+    fi
+  fi
+elif ble/is-function ble/bin/nroff; then
+  _ble_complete_mandb_convert_type=man
+  function ble/complete/mandb/convert-mandoc {
+    if [[ $_ble_util_locale_encoding == UTF-8 ]]; then
+      ble/bin/nroff -Tutf8 -man
+    else
+      ble/bin/groff -Tascii -man
+    fi
+  }
+elif ble/is-function ble/bin/mandoc; then
+  _ble_complete_mandb_convert_type=mdoc
+  function ble/complete/mandb/convert-mandoc {
+    ble/bin/mandoc -mdoc
+  }
+fi
+function ble/complete/mandb/.generate-cache-from-man {
+  ble/is-function ble/bin/man &&
+    ble/is-function ble/complete/mandb/convert-mandoc || return 1
+  local command=$1
+  local ret
+  ble/complete/mandb/search-file "$command" || return 1
+  local path=$ret
+  case $ret in
+  (*.gz)       ble/bin/gzip -cd "$path" ;;
+  (*.bz|*.bz2) ble/bin/bzcat "$path" ;;
+  (*.lzma)     ble/bin/lzcat "$path" ;;
+  (*.xz)       ble/bin/xzcat "$path" ;;
+  (*)          ble/bin/cat "$path" ;;
+  esac | ble/bin/awk -v type="$_ble_complete_mandb_convert_type" '
+    BEGIN {
+      g_keys_count = 0;
+      g_desc = "";
+      if (type == "man") {
+        print ".TH __ble_ignore__ 1 __ble_ignore__ __ble_ignore__";
+        print ".ll 9999"
+        topic_start = ".TP";
+      }
+      mode = "begin";
+      fmt3_state = "";
+      fmt5_state = "";
+      fmt6_state = "";
+    }
+    function output_pair(key, desc) {
+      print "";
+      print "__ble_key__";
+      if (topic_start != "") print topic_start;
+      print key;
+      print "";
+      print "__ble_desc__";
+      print "";
+      print desc;
+    }
+    function flush_topic(_, i) {
+      if (g_keys_count != 0) {
+        for (i = 0; i < g_keys_count; i++)
+          output_pair(g_keys[i], g_desc);
+      }
+      g_keys_count = 0;
+      g_desc = "";
+      fmt3_flush();
+      fmt5_state = "";
+      fmt6_flush();
+    }
+    mode == "begin" && /^\.(Dd|Nm)[[:space:]]/ {
+      if (type == "man" && /^\.Dd[[:space:]]+\$Mdoc/) topic_start = "";
+      print $0;
+    }
+    function register_key(key) {
+      g_keys[g_keys_count++] = key;
+      g_desc = "";
+    }
+    /^\.ig/ { mode = "ignore"; next; }
+    mode == "ignore" {
+      if (/^\.\.[[:space:]]*/) mode = "none";
+      next;
+    }
+    {
+      sub(/[[:space:]]+$/, "");
+      REQ = match($0, /^\.[_[:alnum:]]+/) ? substr($0, 2, RLENGTH - 1) : "";
+    }
+    REQ ~ /^(S[Ss]|S[Hh]|Pp)$/ { flush_topic(); next; }
+    REQ == "PP" {
+      flush_topic();
+      fmt5_state = "key";
+      fmt5_key = "";
+      fmt5_desc = "";
+      next;
+    }
+    fmt5_state {
+      if (fmt5_state == "key") {
+        if (/^\.RS([^_[:alnum:]]|$)/)
+          fmt5_state = "desc";
+        else if (/^\.RE([^_[:alnum:]]|$)/)
+          fmt5_state = "none";
+        else
+          fmt5_key = (fmt5_key ? "\n" : "") $0;
+      } else if (fmt5_state == "desc") {
+        if (/^\.RE([^_[:alnum:]]|$)/) {
+          register_key(fmt5_key);
+          g_desc = fmt5_desc;
+          flush_topic();
+          fmt5_state = "";
+        } else
+          fmt5_desc = (fmt5_desc ? "\n" : "") $0;
+      }
+    }
+    REQ == "HP" {
+      flush_topic();
+      fmt3_state = "key";
+      fmt3_key_count = 0;
+      fmt3_desc = "";
+      next;
+    }
+    function fmt3_process(_, key) {
+      if (REQ == "TP") { fmt3_flush(); return; }
+      if (REQ == "PD") return;
+      if (fmt3_state == "key") {
+        if (REQ == "IP") { fmt3_state = "desc"; return; }
+        if (match($0, /(	|    )[[:space:]]*/)) {
+          fmt3_keys[fmt3_key_count++] = substr($0, 1, RSTART - 1);
+          fmt3_desc = substr($0, RSTART + RLENGTH);
+          fmt3_state = "desc";
+        } else {
+          fmt3_keys[fmt3_key_count++] = $0;
+        }
+      } else if (fmt3_state == "desc") {
+        if (fmt3_desc != "") fmt3_desc = fmt3_desc "\n";
+        fmt3_desc = fmt3_desc $0;
+      }
+    }
+    function fmt3_flush(_, i) {
+      if (fmt3_state == "desc" && fmt3_key_count > 0) {
+        for (i = 0; i < fmt3_key_count; i++)
+          register_key(fmt3_keys[i]);
+        g_desc = fmt3_desc;
+      }
+      fmt3_state = "";
+      fmt3_key_count = 0;
+      fmt3_desc = "";
+    }
+    fmt3_state { fmt3_process(); }
+    /^\.IP[[:space:]]+".*"([[:space:]]+[0-9]+)?$/ && fmt3_state != "key" {
+      fmt6_init();
+      fmt4_init();
+      next;
+    }
+    function fmt4_init() {
+      if (mode != "fmt4_desc")
+        if (!(g_keys_count && g_desc == "")) flush_topic();
+      gsub(/^\.IP[[:space:]]+"|"([[:space:]]+[0-9]+)?$/, "");
+      register_key($0);
+      mode = "fmt4_desc";
+    }
+    mode == "fmt4_desc" {
+      if ($0 == "") { flush_topic(); mode = "none"; next; }
+      if (g_keys_count == 1 && g_keys[0] == "\\(bu" && match($0, /^\\fC[^\\]+\\fP( or \\fC[^\\]+\\fP)?/) > 0) {
+        _key = substr($0, 1, RLENGTH);
+        _desc = substr($0, RLENGTH + 1);
+        if (match(_key, / or \\fC[^\\]+\\fP/) > 0)
+          _key = substr(_key, 1, RSTART - 1) ", " substr(_key, RSTART + 4);
+        g_keys[0] = _key;
+        g_desc = _desc;
+        next;
+      }
+      if (REQ == "PD") next;
+      if (/^\.IX[[:space:]]+Item[[:space:]]+/) next;
+      if (g_desc != "") g_desc = g_desc "\n";
+      g_desc = g_desc $0;
+    }
+    function fmt6_init() {
+      fmt6_flush();
+      fmt6_state = "desc"
+      fmt6_key = $0;
+      fmt6_desc = "";
+    }
+    fmt6_state {
+      if (REQ == "IX") {
+        fmt6_state = "";
+      } else if (REQ == "IP") {
+        fmt6_flush();
+      } else {
+        fmt6_desc = fmt6_desc $0 "\n";
+      }
+    }
+    function fmt6_flush() {
+      if (!fmt6_state) return;
+      fmt6_state = "";
+      if (fmt6_desc)
+        output_pair(fmt6_key, fmt6_desc);
+    }
+    /^\.It Fl([^_[:alnum:]]|$)/ {
+      if (g_keys_count && g_desc != "") flush_topic();
+      sub(/^\.It Fl/, ".Fl");
+      if ($0 ~ / Xo$/) {
+        g_current_key = $0;
+        mode = "fmt2_keyc"
+      } else {
+        register_key($0);
+        mode = "desc";
+      }
+      next;
+    }
+    mode == "fmt2_keyc" {
+      if (/^\.PD[[:space:]]*([0-9]+[[:space:]]*)?$/) next;
+      g_current_key = g_current_key "\n" $0;
+      if (REQ == "Xc") {
+        register_key(g_current_key);
+        mode = "desc";
+      }
+      next;
+    }
+    type == "man" && REQ == "TP" {
+      if (g_keys_count && g_desc != "") flush_topic();
+      mode = "key1";
+      next;
+    }
+    mode == "key1" {
+      if (/^\.PD[[:space:]]*([0-9]+[[:space:]]*)?$/) next;
+      register_key($0);
+      mode = "desc";
+      next;
+    }
+    mode == "desc" {
+      if (REQ == "PD") next;
+      if (g_desc != "") g_desc = g_desc "\n";
+      g_desc = g_desc $0;
+    }
+    END { flush_topic(); }
+  ' | ble/complete/mandb/convert-mandoc 2>/dev/null | ble/bin/awk -F "$_ble_term_FS" '
+    function flush_pair(_, i) {
+      if (g_option_count) {
+        gsub(/\034/, "\x1b[7m^\\\x1b[27m", g_desc);
+        sub(/(\.  |; ).*/, ".", g_desc); # Long descriptions are truncated.
+        for (i = 0; i < g_option_count; i++)
+          print g_options[i] FS g_desc;
+      }
+      g_option_count = 0;
+      g_desc = "";
+    }
+    function process_key(line, _, n, specs, i, spec, option, optarg, suffix) {
+      gsub(/\x1b\[[ -?]*[@-~]/, "", line); # CSI seq
+      gsub(/\x1b[ -\/]*[0-~]/, "", line); # ESC seq
+      gsub(/.\x08/, "", line); # CHAR BS
+      gsub(/\x0E/, "", line); # SO
+      gsub(/\x0F/, "", line); # SI
+      gsub(/[\x00-\x1F]/, "", line); # Give up all the other control chars
+      gsub(/^[[:space:]]*|[[:space:]]*$/, "", line);
+      gsub(/[[:space:]]+/, " ", line);
+      if (line !~ /^[-+]./) return;
+      n = split(line, specs, /,([[:space:]]+|$)| or /);
+      prev_optarg = "";
+      for (i = n; i > 0; i--) {
+        spec = specs[i];
+        sub(/,[[:space:]]+$/, "", spec);
+        if (spec !~ /^[-+]/ || spec ~ /\034/) { specs[i] = ""; continue; }
+        if (match(spec, /\[[:=]?|[:=[:space:]]/)) {
+          option = substr(spec, 1, RSTART - 1);
+          optarg = substr(spec, RSTART);
+          suffix = substr(spec, RSTART + RLENGTH - 1, 1);
+          if (suffix == "[") suffix = "";
+          prev_optarg = optarg;
+        } else {
+          option = spec;
+          optarg = "";
+          suffix = " ";
+          if (prev_optarg ~ /[A-Z]|<.+>/) {
+            optarg = prev_optarg;
+            if (option ~ /^[-+].$/) {
+              sub(/^\[=/, "[", optarg);
+              sub(/^=/, "", optarg);
+              sub(/^[^[:space:][]/, " &", optarg);
+            } else {
+              if (optarg ~ /^\[[^:=]/)
+                sub(/^\[/, "[=", optarg);
+              else if (optarg ~ /^[^:=[:space:][]/)
+                optarg = " " optarg;
+            }
+            if (match(optarg, /^\[[:=]?|^[:=[:space:]]/)) {
+              suffix = substr(optarg, RSTART + RLENGTH - 1, 1);
+              if (suffix == "[") suffix = "";
+            }
+          }
+        }
+        specs[i] = option FS optarg FS suffix;
+      }
+      for (i = 1; i <= n; i++) {
+        if (specs[i] == "") continue;
+        option = substr(specs[i], 1, index(specs[i], FS) - 1);
+        if (!g_hash[option]++)
+          g_options[g_option_count++] = specs[i];
+      }
+    }
+    function process_desc(line) {
+      gsub(/^[[:space:]]*|[[:space:]]*$/, "", line);
+      gsub(/[[:space:]][[:space:]]+/, " ", line);
+      if (line == "") {
+        if (g_desc != "") return 0;
+        return 1;
+      }
+      if (g_desc != "") g_desc = g_desc " ";
+      g_desc = g_desc line;
+      return 1;
+    }
+    sub(/^[[:space:]]*__ble_key__/, "", $0) {
+      flush_pair();
+      mode = "key";
+      if (match($0, /__ble_desc__/) > 0) {
+        s_key = substr($0, 1, RSTART - 1);
+        s_desc = substr($0, RSTART + RLENGTH);
+        process_key(s_key);
+        mode = "desc";
+        if (!process_desc(s_desc)) mode = "";
+        next;
+      }
+    }
+    sub(/^[[:space:]]*__ble_desc__/, "", $0) {
+      mode = "desc";
+    }
+    mode == "key" { process_key($0); }
+    mode == "desc" { if (!process_desc($0)) mode = ""; }
+    END { flush_pair(); }
+  ' | ble/bin/sort -t "$_ble_term_FS" -k 1
+}
+function ble/complete/mandb:help/generate-cache {
+  local opts=$1
+  local -x cfg_usage= cfg_help=1 cfg_plus= cfg_plus_generate=
+  [[ :$opts: == *:mandb-help-usage:* ]] && cfg_usage=1
+  [[ :$opts: == *:mandb-usage:* ]] && cfg_usage=1 cfg_help=
+  ble/string#match ":$opts:" ':plus-options(=[^:]+)?:' &&
+    cfg_plus=1 cfg_plus_generate=${BASH_REMATCH[1]:1}
+  local space=$' \t' # for #D1709 (WA gawk 4.0.2)
+  local rex_argsep='(\[?[:=]|  ?|\[)'
+  local rex_option='[-+](,|[^]:='$space',[]+)('$rex_argsep'(<[^<>]+>|\([^()]+\)|[^-[:space:]])[^[:space:]]*)?'
+  ble/bin/awk -F "$_ble_term_FS" '
+    BEGIN {
+      cfg_help = ENVIRON["cfg_help"];
+      g_indent = -1;
+      g_keys_count = 0;
+      g_desc = "";
+      cfg_usage = ENVIRON["cfg_usage"];
+      g_usage_count = 0;
+      cfg_plus_generate = ENVIRON["cfg_plus_generate"];
+      cfg_plus = ENVIRON["cfg_plus"] cfg_plus_generate;
+    }
+    function split_option_optarg_suffix(optspec, _, key, suffix, optarg) {
+      if (index(optspec, FS) != 0) return "";
+      if ((pos = match(optspec, /'"$rex_argsep"'/)) > 0) {
+        key = substr(optspec, 1, pos - 1);
+        suffix = substr(optspec, pos + RLENGTH - 1, 1);
+        if (suffix == "[") suffix = "";
+        optarg = substr(optspec, pos);
+      } else {
+        key = optspec;
+        optarg = "";
+        suffix = " ";
+      }
+      if (key ~ /[^-+'"$_ble_complete_option_chars"']/) return "";
+      return key FS optarg FS suffix;
+    }
+    function print_entry(entry, _, name) {
+      name = entry;
+      sub(/'"$_ble_term_FS"'.*$/, "", name);
+      if (name ~ /^\+/ && !cfg_plus) return;
+      if (!g_hash[name]++) # uniq
+        print entry;
+    }
+    {
+      gsub(/\x1b\[[ -?]*[@-~]/, ""); # CSI seq
+      gsub(/\x1b[ -\/]*[0-~]/, ""); # ESC seq
+      gsub(/[\x00-\x1F]/, ""); # Remove all the other C0 chars
+    }
+    function generate_plus(_, i, n) {
+      if (!cfg_plus_generate) return;
+      n = length(cfg_plus_generate);
+      for (i = 1; i <= n; i++)
+        print_entry("+" substr(cfg_plus_generate, i, 1) FS FS FS);
+    }
+    function parse_usage(line, _, optspec, optspec1, option, optarg, n, i, o) {
+      while (match(line, /\[[[:space:]]*([^][]|\[[^][]*\])+[[:space:]]*\]/)) {
+        optspec = substr(line, RSTART + 1, RLENGTH - 2);
+        line = substr(line, RSTART + RLENGTH);
+        while (match(optspec, /([^][|]|\[[^][]*\])+/)) {
+          optspec1 = substr(optspec, RSTART, RLENGTH);
+          optspec = substr(optspec, RSTART + RLENGTH);
+          gsub(/^[[:space:]]+|[[:space:]]+$/, "", optspec1);
+          if (match(optspec1, /^[-+][^]:='"$space"'[]+/)) {
+            option = substr(optspec1, RSTART, RLENGTH);
+            optarg = substr(optspec1, RSTART + RLENGTH);
+            n = RLENGTH;
+            if (option ~ /^-.*-/) {
+              if ((keyinfo = split_option_optarg_suffix(optspec1)) != "")
+                g_usage[g_usage_count++] = keyinfo;
+            } else {
+              o = substr(option, 1, 1);
+              for (i = 2; i <= n; i++)
+                if ((keyinfo = split_option_optarg_suffix(o substr(option, i, 1) optarg)) != "")
+                  g_usage[g_usage_count++] = keyinfo;
+            }
+          }
+        }
+      }
+    }
+    function print_usage(_, i) {
+      for (i = 0; i < g_usage_count; i++)
+        print_entry(g_usage[i] FS);
+    }
+    cfg_usage {
+      if (NR <= 20 && (g_usage_start || $0 ~ /^[a-zA-Z_0-9]|^[^-[:space:]][^[:space:]]*(: |：)/) ) {
+        g_usage_start = 1;
+        parse_usage($0);
+      } else if (/^[[:space:]]*$/)
+        cfg_usage = 0;
+    }
+    function get_indent(text, _, i, n, ret) {
+      ret = 0;
+      n = length(text);
+      for (i = 1; i <= n; i++) {
+        c = substr(text, i, 1);
+        if (c == " ")
+          ret++;
+        else if (c == "\t")
+          ret = (int(ret / 8) + 1) * 8;
+        else
+          break;
+      }
+      return ret;
+    }
+    function flush_data(_, i) {
+      if (g_indent < 0) return;
+      for (i = 0; i < g_keys_count; i++)
+        print_entry(g_keys[i] FS g_desc);
+      g_indent = -1;
+      g_keys_count = 0;
+      g_desc = "";
+    }
+    function register_key(keydef, _, key, keyinfo, keys, nkey, i, optarg) {
+      if (g_desc != "") flush_data();
+      g_indent = get_indent(keydef);
+      nkey = 0;
+      for (;;) {
+        sub(/^,?[[:space:]]+/, "", keydef);
+        if (match(keydef, /^'"$rex_option"'/) <= 0) break;
+        key = substr(keydef, 1, RLENGTH);
+        keydef = substr(keydef, RLENGTH + 1);
+        sub(/,$/, "", key);
+        keys[nkey++] = key;
+      }
+      if (nkey >= 2) {
+        optarg = "";
+        for (i = nkey; --i >= 0; ) {
+          if (match(keys[i], /'"$rex_argsep"'/) > 0) {
+            optarg = substr(keys[i], RSTART);
+            sub(/^[[:space:]]+/, "", optarg);
+            if (optarg !~ /[A-Z]|<.+>/) optarg = "";
+          } else if (optarg != ""){
+            if (keys[i] ~ /^[-+].$/) {
+              optarg2 = optarg;
+              sub(/^\[=/, "[", optarg2);
+              sub(/^=/, "", optarg2);
+              sub(/^[^[:space:][]/, " &", optarg2);
+              keys[i] = keys[i] optarg2;
+            } else {
+              optarg2 = optarg;
+              if (optarg2 ~ /^\[[^:=]/)
+                sub(/^\[/, "[=", optarg2);
+              else if (optarg2 ~ /^[^:=[:space:][]/)
+                optarg2 = " " optarg2;
+              keys[i] = keys[i] optarg2;
+            }
+          }
+        }
+      }
+      for (i = 0; i < nkey; i++)
+        if ((keyinfo = split_option_optarg_suffix(keys[i])) != "")
+          g_keys[g_keys_count++] = keyinfo;
+    }
+    function append_desc(desc) {
+      gsub(/^[[:space:]]+|[[:space:]]$/, "", desc);
+      if (desc == "") return;
+      if (g_desc == "")
+        g_desc = desc;
+      else
+        g_desc = g_desc " " desc;
+    }
+    cfg_help && match($0, /^[[:space:]]*'"$rex_option"'(,?[[:space:]]+'"$rex_option"')*/) {
+      key = substr($0, 1, RLENGTH);
+      desc = substr($0, RLENGTH + 1);
+      if (desc ~ /^,/) next;
+      register_key(key);
+      append_desc(desc);
+      next;
+    }
+    g_indent >= 0 {
+      sub(/[[:space:]]+$/, "");
+      indent = get_indent($0);
+      if (indent <= g_indent)
+        flush_data();
+      else
+        append_desc($0);
+    }
+    END {
+      flush_data();
+      print_usage();
+      generate_plus();
+    }
+  ' | ble/bin/sort -t "$_ble_term_FS" -k 1
+}
+function ble/complete/mandb:_parse_help/inject {
+  ble/is-function _parse_help || return 0
+  ble/function#advice before _parse_help 'ble/complete/mandb:_parse_help/generate-cache "${ADVICE_WORDS[1]}" "${ADVICE_WORDS[2]}"'
+  ble/function#advice before _longopt 'ble/complete/mandb:_parse_help/generate-cache "${ADVICE_WORDS[1]}"'
+  ble/function#advice before _parse_usage 'ble/complete/mandb:_parse_help/generate-cache "${ADVICE_WORDS[1]}" "${ADVICE_WORDS[2]}" usage'
+  function ble/complete/mandb:_parse_help/inject { return 0; }
+}
+function ble/string#hash-pjw {
+  local size=${2:-32}
+  local S=${3:-$(((size+7)/8))} # shift    4
+  local C=$((size-2*S))         # co-shift 24
+  local M=$(((1<<size-S)-1))    # mask     0x0FFFFFFF
+  local N=$(((1<<S)-1<<S))      # mask2    0x000000F0
+  ble/util/s2bytes "$1"
+  local c h=0
+  for c in "${ret[@]}"; do
+    ((h=(h<<S)+c,h=(h^h>>C&N)&M))
+  done
+  ret=$h
+}
+function ble/complete/mandb:_parse_help/generate-cache {
+  [[ $_ble_attached ]] || return 0
+  local command=$1; [[ $1 == ble*/* ]] || command=${1##*/}
+  local ret; ble/string#hash-pjw "${*:2}" 64; local hash=$ret
+  local lc_messages=${LC_ALL:-${LC_MESSAGES:-${LANG:-C}}}
+  local mandb_cache_dir=$_ble_base_cache/complete.mandb/${lc_messages//'/'/%}
+  local subcache; ble/util/sprintf subcache '%s.%014x' "$mandb_cache_dir/_parse_help.d/$command" "$hash"
+  [[ -s $subcache && $subcache -nt $_ble_base/lib/core-complete.sh ]] && return 0
+  ble/util/mkd "${subcache%/*}"
+  if [[ $1 == - ]]; then
+    ble/complete/mandb:help/generate-cache "$3"
+  else
+    local args default_option=--help
+    [[ :$3: == *:usage:* ]] && default_option=--usage
+    ble/string#split-words args "${2:-$default_option}"
+    "$1" "${args[@]}" 2>&1 | ble/complete/mandb:help/generate-cache "$3"
+  fi >| "$subcache"
+}
+function ble/complete/mandb/generate-cache {
+  local command=${1##*/}
+  local lc_messages=${LC_ALL:-${LC_MESSAGES:-${LANG:-C}}}
+  local mandb_cache_dir=$_ble_base_cache/complete.mandb/${lc_messages//'/'/%}
+  local fcache=$mandb_cache_dir/$command
+  local cmdspec_opts; ble/cmdspec/opts#load "$command"
+  [[ :$cmdspec_opts: == *:no-options:* ]] && return 1
+  if ble/opts#extract-all-optargs "$cmdspec_opts" mandb-help --help; then
+    local -a helpspecs; helpspecs=("${ret[@]}")
+    local subcache=$mandb_cache_dir/help.d/$command
+    if ! [[ -s $subcache && $subcache -nt $_ble_base/lib/core-complete.sh ]]; then
+      ble/util/mkd "${subcache%/*}"
+      local helpspec
+      for helpspec in "${helpspecs[@]}"; do
+        if [[ $helpspec == %* ]]; then
+          builtin eval -- "${helpspec:1}"
+        elif [[ $helpspec == @* ]]; then
+          ble/util/print "${helpspec:1}"
+        else
+          ble/string#split-words helpspec "${helpspec#+}"
+          "$command" "${helpspec[@]}" 2>&1
+        fi
+      done | ble/complete/mandb:help/generate-cache "$cmdspec_opts" >| "$subcache"
+    fi
+  fi
+  if [[ :$cmdspec_opts: != *:mandb-disable-man:* ]] && ble/bin#has "$1"; then
+    local subcache=$mandb_cache_dir/man.d/$command
+    if ! [[ -s $subcache && $subcache -nt $_ble_base/lib/core-complete.sh ]]; then
+      ble/util/mkd "${subcache%/*}"
+      ble/complete/mandb/.generate-cache-from-man "$command" >| "$subcache"
+    fi
+  fi
+  local -a subcaches=()
+  local subcache update=
+  ble/complete/util/eval-pathname-expansion '"$mandb_cache_dir"/_parse_help.d/"$command".??????????????'
+  for subcache in "${ret[@]}" "$mandb_cache_dir"/{help,man}.d/"$command"; do
+    if [[ -s $subcache && $subcache -nt $_ble_base/lib/core-complete.sh ]]; then
+      ble/array#push subcaches "$subcache"
+      [[ $fcache -nt $subcache ]] || update=1
+    fi
+  done
+  if [[ $update ]]; then
+    local fs=$_ble_term_FS
+    ble/bin/awk -F "$_ble_term_FS" '
+      BEGIN { plus_count = 0; nodesc_count = 0; }
+      $4 == "" {
+        if ($1 ~ /^\+/) {
+          plus_name[plus_count] = $1;
+          plus_entry[plus_count] = $0;
+          plus_count++;
+        } else {
+          nodesc_name[nodesc_count] = $1;
+          nodesc_entry[nodesc_count] = $0;
+          nodesc_count++;
+        }
+        next;
+      }
+      !hash[$1] { hash[$1] = $0; print; }
+      END {
+        for (i = 0; i < nodesc_count; i++) {
+          if (!hash[nodesc_name[i]]) {
+            hash[nodesc_name[i]] = nodesc_entry[i];
+            print nodesc_entry[i];
+          }
+        }
+        for (i = 0; i < plus_count; i++) {
+          name = plus_name[i];
+          if (hash[name]) continue;
+          split(plus_entry[i], record, FS);
+          optarg = record[2];
+          suffix = record[3];
+          desc = "";
+          mname = name;
+          sub(/^\+/, "-", mname);
+          if (hash[mname]) {
+            if (!optarg) {
+              split(hash[mname], record, FS);
+              optarg = record[2];
+              suffix = record[3];
+            }
+            desc = hash[mname];
+            sub(/^[^'$fs']*'$fs'[^'$fs']*'$fs'[^'$fs']*'$fs'/, "", desc);
+            if (desc) desc = "\033[1mReverse[\033[m " desc " \033[;1m]\033[m";
+          }
+          if (!desc) desc = "reverse of \033[4m" mname "\033[m";
+          hash[name] = name FS optarg FS suffix FS desc;
+          print hash[name];
+        }
+      }
+    ' "${subcaches[@]}" >| "$fcache"
+  fi
+  ret=$fcache
+  [[ -s $fcache ]]
+}
+function ble/complete/mandb/load-cache {
+  ret=()
+  ble/complete/mandb/generate-cache "$@" &&
+    ble/util/mapfile ret < "$ret"
+}
+function ble/complete/source:option/.is-option-context {
+  local rexrej rexreq stopat
+  ble/progcolor/stop-option#init "$cmdspec_opts"
+  if [[ $stopat ]] && ((stopat<=$#)); then
+    return 1
+  elif [[ ! $rexrej$rexreq ]]; then
+    return 0
+  fi
+  local word ret
+  for word; do
+    ble/syntax:bash/simple-word/is-simple "$word" &&
+      ble/syntax:bash/simple-word/eval "$word" noglob &&
+      ble/progcolor/stop-option#test "$ret" &&
+      return 1
+  done
+  return 0
+}
+function ble/complete/source:option {
+  local rex='^-[-+'$_ble_complete_option_chars']*$|^\+[_'$_ble_complete_option_chars']*$'
+  [[ ! $COMPV || $COMPV =~ $rex ]] || return 0
+  local COMPS=$COMPS COMPV=$COMPV
+  ble/complete/source/reduce-compv-for-ambiguous-match
+  [[ :$comp_type: == *:[maA]:* ]] && local COMP2=$COMP1
+  local comp_words comp_line comp_point comp_cword
+  ble/syntax:bash/extract-command "$COMP2" || return 1
+  local -a prev_args=()
+  ((comp_cword>=1)) && prev_args=("${comp_words[@]:1:comp_cword-1}")
+  local cmd=${comp_words[0]}
+  local alias_checked=' '
+  while local ret; ! ble/complete/mandb/load-cache "$cmd"; do
+    alias_checked=$alias_checked$cmd' '
+    ble/alias#expand "$cmd" || return 1
+    local words; ble/string#split-words ret "$ret"; words=("${ret[@]}")
+    local iword=0 rex='^[_a-zA-Z][_a-zA-Z0-9]*\+?='
+    while [[ ${words[iword]} =~ $rex ]]; do ((iword++)); done
+    [[ ${words[iword]} && $alias_checked != *" ${words[iword]} "* ]] || return 1
+    prev_args=("${words[@]:iword+1}" "${prev_args[@]}")
+    cmd=${words[iret]}
+  done
+  local -a entries; entries=("${ret[@]}")
+  local ret cmdspec_opts=
+  ble/syntax:bash/simple-word/is-simple "$cmd" &&
+    ble/syntax:bash/simple-word/eval "$cmd" noglob &&
+    ble/cmdspec/opts#load "$ret"
+  ble/complete/source:option/.is-option-context "${prev_args[@]}" || return 1
+  local "${_ble_complete_yield_varnames[@]/%/=}" # WA #D1570 safe
+  ble/complete/cand/yield.initialize mandb
+  local entry fs=$_ble_term_FS has_desc=
+  for entry in "${entries[@]}"; do
+    ((cand_iloop++%bleopt_complete_polling_cycle==0)) &&
+      ble/complete/check-cancel && return 148
+    local CAND=${entry%%$_ble_term_FS*}
+    [[ $CAND == "$COMPV"* ]] || continue
+    ble/complete/cand/yield mandb "$CAND" "$entry"
+    [[ $entry == *"$fs"*"$fs"*"$fs"?* ]] && has_desc=1
+  done
+  [[ $has_desc ]] && bleopt complete_menu_style=desc
+}
+function ble/complete/source:argument/.generate-user-defined-completion {
+  shopt -q progcomp || return 1
+  [[ :$comp_type: == *:[maA]:* ]] && local COMP2=$COMP1
+  local comp_words comp_line comp_point comp_cword
+  ble/syntax:bash/extract-command "$COMP2" || return 1
+  local forward_words=
+  ((comp_cword)) && IFS=' ' builtin eval 'forward_words="${comp_words[*]::comp_cword} "'
+  local comp2_in_word=$((comp_point-${#forward_words}))
+  local comp1_in_word=$((comp2_in_word-(COMP2-COMP1)))
+  if ((comp1_in_word>0)); then
+    local w=${comp_words[comp_cword]}
+    comp_words=("${comp_words[@]::comp_cword}" "${w::comp1_in_word}" "${w:comp1_in_word}" "${comp_words[@]:comp_cword+1}")
+    IFS=' ' builtin eval 'comp_line="${comp_words[*]}"'
+    ((comp_cword++,comp_point++))
+    ((comp2_in_word=COMP2-COMP1,comp1_in_word=0))
+  fi
+  if [[ $COMPV && :$comp_type: == *:[maA]:* ]]; then
+    local oword=${comp_words[comp_cword]::comp2_in_word} ins
+    local ins=; [[ :$comp_type: == *:a:* ]] && ins=${COMPV::1}
+    local ret comps_flags= comps_fixed= # referenced in ble/complete/string#escape-for-completion-context
+    if [[ $oword ]]; then
+      local simple_flags simple_ibrace
+      ble/syntax:bash/simple-word/reconstruct-incomplete-word "$oword" || return 1
+      comps_flags=v$simple_flags
+      ((${simple_ibrace%:*})) && comps_fixed=1
+    fi
+    ble/complete/string#escape-for-completion-context "$ins" c; ins=$ret
+    ble/util/unlocal comps_flags comps_fixed
+    ((comp_point+=${#ins}))
+    comp_words=("${comp_words[@]::comp_cword}" "$oword$ins" "${comp_words[@]:comp_cword+1}")
+    IFS=' ' builtin eval 'comp_line="${comp_words[*]}"'
+    ((comp2_in_word+=${#ins}))
+  fi
+  local opts=$1
+  if [[ :$opts: == *:initial:* ]]; then
+    ble/complete/progcomp/.compgen initial
+  else
+    ble/complete/progcomp "${comp_words[0]}"
+  fi
+}
+function ble/complete/source:argument {
+  local comp_opts=:
+  ble/complete/source:sabbrev
+  if [[ $comps_flags == *f* && $COMPS != *\* && :$comp_type: != *:[maA]:* ]]; then
+    local ret simple_flags simple_ibrace
+    ble/syntax:bash/simple-word/reconstruct-incomplete-word "$COMPS"
+    ble/complete/source/eval-simple-word "$ret*" && ((${#ret[*]})) &&
+      ble/complete/cand/yield-filenames file "${ret[@]}"
+    (($?==148)) && return 148
+  fi
+  local old_cand_count=$cand_count
+  ble/complete/source:argument/.generate-user-defined-completion; local ext=$?
+  ((ext==148||cand_count>old_cand_count)) && return "$ext"
+  [[ $comp_opts == *:ble/no-default:* ]] && return "$ext"
+  ble/complete/source:option; local ext=$?
+  ((ext==148||cand_count>old_cand_count&&${#COMPV})) && return "$ext"
+  if [[ $comp_opts == *:dirnames:* ]]; then
+    ble/complete/source:dir
+  else
+    ble/complete/source:file
+  fi; local ext=$?
+  ((ext==148||cand_count>old_cand_count)) && return "$ext"
+  if local rex='^/?[-_a-zA-Z0-9.]+[:=]|^-[^-/=:]'; [[ $COMPV =~ $rex ]]; then
+    local prefix=$BASH_REMATCH value=${COMPV:${#BASH_REMATCH}}
+    local COMP_PREFIX=$prefix
+    [[ :$comp_type: != *:[maA]:* && $value =~ ^.+/ ]] &&
+      COMP_PREFIX=$prefix${BASH_REMATCH[0]}
+    local ret cand "${_ble_complete_yield_varnames[@]/%/=}" # WA #D1570 safe
+    ble/complete/source:file/.construct-pathname-pattern "$value"
+    ble/complete/util/eval-pathname-expansion "$ret"; (($?==148)) && return 148
+    ble/complete/source/test-limit ${#ret[@]} || return 1
+    ble/complete/cand/yield.initialize file_rhs
+    for cand in "${ret[@]}"; do
+      [[ -e $cand || -h $cand ]] || continue
+      [[ $FIGNORE ]] && ! ble/complete/.fignore/filter "$cand" && continue
+      ble/complete/cand/yield file_rhs "$prefix$cand" "$prefix"
+    done
+  fi
+}
+function ble/complete/source/compgen {
+  [[ $comps_flags == *v* ]] || return 1
+  local COMPS=$COMPS COMPV=$COMPV
+  ble/complete/source/reduce-compv-for-ambiguous-match
+  local compgen_action=$1
+  local action=$2
+  local data=$3
+  local q="'" Q="'\''"
+  local compv_quoted="'${COMPV//$q/$Q}'"
+  local arr
+  ble/util/assign-array arr 'builtin compgen -A "$compgen_action" -- "$compv_quoted"'
+  ble/complete/source/test-limit ${#arr[@]} || return 1
+  [[ $1 != '=' && ${#arr[@]} == 1 && $arr == "$COMPV" ]] && return 0
+  local cand "${_ble_complete_yield_varnames[@]/%/=}" # WA #D1570 safe
+  ble/complete/cand/yield.initialize "$action"
+  for cand in "${arr[@]}"; do
+    ((cand_iloop++%bleopt_complete_polling_cycle==0)) && ble/complete/check-cancel && return 148
+    ble/complete/cand/yield "$action" "$cand" "$data"
+  done
+}
+function ble/complete/source:variable {
+  local data=
+  case $1 in
+  ('=') data=assignment ;;
+  ('b') data=braced ;;
+  ('a') data=arithmetic ;;
+  ('n') data=nosuffix ;;
+  ('w'|*) data=word ;;
+  esac
+  ble/complete/source/compgen variable variable "$data"
+}
+function ble/complete/source:user {
+  ble/complete/source/compgen user word
+}
+function ble/complete/source:hostname {
+  ble/complete/source/compgen hostname word
+}
+function ble/complete/complete/determine-context-from-opts {
+  local opts=$1
+  context=syntax
+  if local rex=':context=([^:]+):'; [[ :$opts: =~ $rex ]]; then
+    local rematch1=${BASH_REMATCH[1]}
+    if ble/is-function ble/complete/context:"$rematch1"/generate-sources; then
+      context=$rematch1
+    else
+      ble/util/print "ble/widget/complete: unknown context '$rematch1'" >&2
+    fi
+  fi
+}
+function ble/complete/context/filter-prefix-sources {
+  local -a filtered_sources=()
+  local src asrc
+  for src in "${sources[@]}"; do
+    ble/string#split-words asrc "$src"
+    local comp1=${asrc[1]}
+    ((comp1<comp_index)) &&
+      ble/array#push filtered_sources "$src"
+  done
+  sources=("${filtered_sources[@]}")
+  ((${#sources[@]}))
+}
+function ble/complete/context/overwrite-sources {
+  local source_name=$1
+  local -a new_sources=()
+  local src asrc mark
+  for src in "${sources[@]}"; do
+    ble/string#split-words asrc "$src"
+    [[ ${mark[asrc[1]]} ]] && continue
+    ble/array#push new_sources "$source_name ${asrc[1]}"
+    mark[asrc[1]]=1
+  done
+  ((${#new_sources[@]})) ||
+    ble/array#push new_sources "$source_name $comp_index"
+  sources=("${new_sources[@]}")
+}
+function ble/complete/context:syntax/generate-sources {
+  ble/syntax/import
+  ble-edit/content/update-syntax
+  ble/cmdspec/initialize # load user configruation
+  ble/syntax/completion-context/generate "$comp_text" "$comp_index"
+  ((${#sources[@]}))
+}
+function ble/complete/context:filename/generate-sources {
+  ble/complete/context:syntax/generate-sources || return "$?"
+  ble/complete/context/overwrite-sources file
+}
+function ble/complete/context:command/generate-sources {
+  ble/complete/context:syntax/generate-sources || return "$?"
+  ble/complete/context/overwrite-sources command
+}
+function ble/complete/context:variable/generate-sources {
+  ble/complete/context:syntax/generate-sources || return "$?"
+  ble/complete/context/overwrite-sources variable
+}
+function ble/complete/context:username/generate-sources {
+  ble/complete/context:syntax/generate-sources || return "$?"
+  ble/complete/context/overwrite-sources user
+}
+function ble/complete/context:hostname/generate-sources {
+  ble/complete/context:syntax/generate-sources || return "$?"
+  ble/complete/context/overwrite-sources hostname
+}
+function ble/complete/context:glob/generate-sources {
+  comp_type=$comp_type:raw
+  ble/complete/context:syntax/generate-sources || return "$?"
+  ble/complete/context/overwrite-sources glob
+}
+function ble/complete/source:glob {
+  [[ $comps_flags == *v* ]] || return 1
+  [[ :$comp_type: == *:[maA]:* ]] && return 1
+  local pattern=$COMPV
+  ble/complete/source/eval-simple-word "$pattern"; (($?==148)) && return 148
+  if ((!${#ret[@]})) && [[ $pattern != *'*' ]]; then
+    ble/complete/source/eval-simple-word "$pattern*"; (($?==148)) && return 148
+  fi
+  local cand action=file "${_ble_complete_yield_varnames[@]/%/=}" # WA #D1570 safe
+  ble/complete/cand/yield.initialize "$action"
+  for cand in "${ret[@]}"; do
+    ((cand_iloop++%bleopt_complete_polling_cycle==0)) && ble/complete/check-cancel && return 148
+    ble/complete/cand/yield "$action" "$cand"
+  done
+}
+function ble/complete/context:dynamic-history/generate-sources {
+  comp_type=$comp_type:raw
+  ble/complete/context:syntax/generate-sources || return "$?"
+  ble/complete/context/overwrite-sources dynamic-history
+}
+function ble/complete/source:dynamic-history {
+  [[ $comps_flags == *v* ]] || return 1
+  [[ :$comp_type: == *:[maA]:* ]] && return 1
+  [[ $COMPV ]] || return 1
+  local wordbreaks; ble/complete/get-wordbreaks
+  wordbreaks=${wordbreaks//$'\n'}
+  local ret; ble/string#escape-for-extended-regex "$COMPV"
+  local rex_needle='(^|['$wordbreaks'])'$ret'[^'$wordbreaks']+'
+  local rex_wordbreaks='['$wordbreaks']'
+  ble/util/assign-array ret 'HISTTIMEFORMAT= builtin history | ble/bin/grep -Eo "$rex_needle" | ble/bin/sed "s/^$rex_wordbreaks//" | ble/bin/sort -u'
+  local cand action=literal-word "${_ble_complete_yield_varnames[@]/%/=}" # WA #D1570 safe
+  ble/complete/cand/yield.initialize "$action"
+  for cand in "${ret[@]}"; do
+    ((cand_iloop++%bleopt_complete_polling_cycle==0)) && ble/complete/check-cancel && return 148
+    ble/complete/cand/yield "$action" "$cand"
+  done
+}
+function ble/complete/util/construct-ambiguous-regex {
+  local text=$1 fixlen=${2:-1}
+  local opt_icase=; [[ :$comp_type: == *:i:* ]] && opt_icase=1
+  local -a buff=()
+  local i=0 n=${#text} ch=
+  for ((i=0;i<n;i++)); do
+    ((i>=fixlen)) && ble/array#push buff '.*'
+    ch=${text:i:1}
+    if [[ $ch == [a-zA-Z] ]]; then
+      if [[ $opt_icase ]]; then
+        ble/string#toggle-case "$ch"
+        ch=[$ch$ret]
+      fi
+    else
+      ble/string#escape-for-extended-regex "$ch"; ch=$ret
+    fi
+    ble/array#push buff "$ch"
+  done
+  IFS= builtin eval 'ret="${buff[*]}"'
+}
+function ble/complete/util/construct-glob-pattern {
+  local text=$1
+  if [[ :$comp_type: == *:i:* ]]; then
+    local i n=${#text} c
+    local -a buff=()
+    for ((i=0;i<n;i++)); do
+      c=${text:i:1}
+      if [[ $c == [a-zA-Z] ]]; then
+        ble/string#toggle-case "$c"
+        c=[$c$ret]
+      else
+        ble/string#escape-for-bash-glob "$c"; c=$ret
+      fi
+      ble/array#push buff "$c"
+    done
+    IFS= builtin eval 'ret="${buff[*]}"'
+  else
+    ble/string#escape-for-bash-glob "$1"
+  fi
+}
+function ble/complete/.fignore/prepare {
+  _fignore=()
+  local i=0 leaf tmp
+  ble/string#split tmp ':' "$FIGNORE"
+  for leaf in "${tmp[@]}"; do
+    [[ $leaf ]] && _fignore[i++]="$leaf"
+  done
+}
+function ble/complete/.fignore/filter {
+  local pat
+  for pat in "${_fignore[@]}"; do
+    [[ $1 == *"$pat" ]] && return 1
+  done
+  return 0
+}
+function ble/complete/candidates/.pick-nearest-sources {
+  COMP1= COMP2=$comp_index
+  nearest_sources=()
+  local -a unused_sources=()
+  local src asrc
+  for src in "${remaining_sources[@]}"; do
+    ble/string#split-words asrc "$src"
+    if ((COMP1<asrc[1])); then
+      COMP1=${asrc[1]}
+      ble/array#push unused_sources "${nearest_sources[@]}"
+      nearest_sources=("$src")
+    elif ((COMP1==asrc[1])); then
+      ble/array#push nearest_sources "$src"
+    else
+      ble/array#push unused_sources "$src"
+    fi
+  done
+  remaining_sources=("${unused_sources[@]}")
+  COMPS=${comp_text:COMP1:COMP2-COMP1}
+  comps_flags=
+  comps_fixed=
+  if [[ ! $COMPS ]]; then
+    comps_flags=${comps_flags}v COMPV=
+  elif local ret simple_flags simple_ibrace; ble/syntax:bash/simple-word/reconstruct-incomplete-word "$COMPS"; then
+    local reconstructed=$ret
+    if [[ :$comp_type: == *:raw:* ]]; then
+      if ((${simple_ibrace%:*})); then
+        COMPV=
+      else
+        comps_flags=$comps_flags${simple_flags}v
+        COMPV=$reconstructed
+      fi
+    elif ble/complete/source/eval-simple-word "$reconstructed"; local ext=$?; ((ext==148)) && return 148; ((ext==0)); then
+      COMPV=("${ret[@]}")
+      comps_flags=$comps_flags${simple_flags}v
+      if ((${simple_ibrace%:*})); then
+        ble/complete/source/eval-simple-word "${reconstructed::${simple_ibrace#*:}}" single; (($?==148)) && return 148
+        comps_fixed=${simple_ibrace%:*}:$ret
+        comps_flags=${comps_flags}x
+      fi
+    else
+      COMPV=
+      comps_flags=$comps_flags${simple_flags}f
+    fi
+    [[ $COMPS =~ $rex_raw_paramx ]] && comps_flags=${comps_flags}p
+  else
+    COMPV=
+  fi
+}
+function ble/complete/candidates/clear {
+  cand_count=0
+  cand_cand=()
+  cand_word=()
+  cand_pack=()
+}
+function ble/complete/candidates/.filter-by-command {
+  local command=$1
+  local i j=0
+  local -a prop=() cand=() word=() show=() data=()
+  for ((i=0;i<cand_count;i++)); do
+    ((i%bleopt_complete_polling_cycle==0)) && ble/complete/check-cancel && return 148
+    builtin eval -- "$command" || continue
+    cand[j]=${cand_cand[i]}
+    word[j]=${cand_word[i]}
+    data[j]=${cand_pack[i]}
+    ((j++))
+  done
+  cand_count=$j
+  cand_cand=("${cand[@]}")
+  cand_word=("${word[@]}")
+  cand_pack=("${data[@]}")
+}
+function ble/complete/candidates/.filter-by-regex {
+  local rex_filter=$1
+  ble/complete/candidates/.filter-by-command '[[ ${cand_cand[i]} =~ $rex_filter ]]'
+}
+function ble/complete/candidates/.filter-by-glob {
+  local globpat=$1
+  ble/complete/candidates/.filter-by-command '[[ ${cand_cand[i]} == $globpat ]]'
+}
+function ble/complete/candidates/.filter-word-by-prefix {
+  local prefix=$1
+  ble/complete/candidates/.filter-by-command '[[ ${cand_word[i]} == "$prefix"* ]]'
+}
+function ble/complete/candidates/.initialize-rex_raw_paramx {
+  local element=$_ble_syntax_bash_simple_rex_element
+  local open_dquot=$_ble_syntax_bash_simple_rex_open_dquot
+  rex_raw_paramx='^('$element'*('$open_dquot')?)\$[a-zA-Z_][a-zA-Z_0-9]*$'
+}
+function ble/complete/candidates/filter#init {
+  comp_filter_type=$1
+  comp_filter_pattern=
+  ble/complete/candidates/filter:"$comp_filter_type"/init "$2"
+}
+function ble/complete/candidates/filter#test {
+  ble/complete/candidates/filter:"$comp_filter_type"/test "$1"
+}
+function ble/complete/candidates/filter:none/init { ble/complete/candidates/filter:head/init "$@"; }
+function ble/complete/candidates/filter:none/test { true; }
+function ble/complete/candidates/filter:none/count-match-chars { ble/complete/candidates/filter:head/count-match-chars "$@"; }
+function ble/complete/candidates/filter:none/match { ble/complete/candidates/filter:head/match "$@"; }
+function ble/complete/candidates/filter:head/init {
+  local ret; ble/complete/util/construct-glob-pattern "$1"
+  comp_filter_pattern=$ret*
+}
+function ble/complete/candidates/filter:head/count-match-chars { # unused but for completeness
+  local value=$1 compv=$COMPV
+  if [[ :$comp_type: == *:i:* ]]; then
+    ble/string#tolower "$value"; value=$ret
+    ble/string#tolower "$compv"; compv=$ret
+  fi
+  if [[ $value == "$compv"* ]]; then
+    ret=${#compv}
+  elif [[ $compv == "$value"* ]]; then
+    ret=${#value}
+  else
+    ret=0
+  fi
+}
+function ble/complete/candidates/filter:head/test { [[ $1 == $comp_filter_pattern ]]; }
+function ble/complete/candidates/filter:head/match {
+  local needle=$1 text=$2
+  if [[ :$comp_type: == *:i:* ]]; then
+    ble/string#tolower "$needle"; needle=$ret
+    ble/string#tolower "$text"; text=$ret
+  fi
+  if [[ ! $needle || ! $text ]]; then
+    ret=()
+  elif [[ $text == "$needle"* ]]; then
+    ret=(0 ${#needle})
+    return 0
+  elif [[ $text == "${needle::${#text}}" ]]; then
+    ret=(0 ${#text})
+    return 0
+  else
+    ret=()
+    return 1
+  fi
+}
+function ble/complete/candidates/filter:substr/init {
+  local ret; ble/complete/util/construct-glob-pattern "$1"
+  comp_filter_pattern=*$ret*
+}
+function ble/complete/candidates/filter:substr/count-match-chars {
+  local value=$1 compv=$COMPV
+  if [[ :$comp_type: == *:i:* ]]; then
+    ble/string#tolower "$value"; value=$ret
+    ble/string#tolower "$compv"; compv=$ret
+  fi
+  if [[ $value == *"$compv"* ]]; then
+    ret=${#compv}
+    return 0
+  fi
+  ble/complete/string#common-suffix-prefix "$value" "$compv"
+  ret=${#ret}
+}
+function ble/complete/candidates/filter:substr/test { [[ $1 == $comp_filter_pattern ]]; }
+function ble/complete/candidates/filter:substr/match {
+  local needle=$1 text=$2
+  if [[ :$comp_type: == *:i:* ]]; then
+    ble/string#tolower "$needle"; needle=$ret
+    ble/string#tolower "$text"; text=$ret
+  fi
+  if [[ ! $needle ]]; then
+    ret=()
+  elif [[ $text == *"$needle"* ]]; then
+    text=${text%%"$needle"*}
+    local beg=${#text}
+    local end=$((beg+${#needle}))
+    ret=("$beg" "$end")
+  elif ble/complete/string#common-suffix-prefix "$text" "$needle"; ((${#ret})); then
+    local end=${#text}
+    local beg=$((end-${#ret}))
+    ret=("$beg" "$end")
+  else
+    ret=()
+  fi
+}
+function ble/complete/candidates/filter:hsubseq/.determine-fixlen {
+  fixlen=${1:-1}
+  if [[ $comps_fixed ]]; then
+    local compv_fixed_part=${comps_fixed#*:}
+    [[ $compv_fixed_part ]] && fixlen=${#compv_fixed_part}
+  fi
+}
+function ble/complete/candidates/filter:hsubseq/init {
+  local fixlen; ble/complete/candidates/filter:hsubseq/.determine-fixlen "$2"
+  local ret; ble/complete/util/construct-ambiguous-regex "$1" "$fixlen"
+  comp_filter_pattern=^$ret
+}
+function ble/complete/candidates/filter:hsubseq/count-match-chars {
+  local value=$1 compv=$COMPV
+  if [[ :$comp_type: == *:i:* ]]; then
+    ble/string#tolower "$value"; value=$ret
+    ble/string#tolower "$compv"; compv=$ret
+  fi
+  local fixlen
+  ble/complete/candidates/filter:hsubseq/.determine-fixlen "$2"
+  [[ $value == "${compv::fixlen}"* ]] || return 1
+  value=${value:fixlen}
+  local i n=${#COMPV}
+  for ((i=fixlen;i<n;i++)); do
+    local a=${value%%"${compv:i:1}"*}
+    [[ $a == "$value" ]] && { ret=$i; return 0; }
+    value=${value:${#a}+1}
+  done
+  ret=$n
+}
+function ble/complete/candidates/filter:hsubseq/test { [[ $1 =~ $comp_filter_pattern ]]; }
+function ble/complete/candidates/filter:hsubseq/match {
+  local needle=$1 text=$2
+  if [[ :$comp_type: == *:i:* ]]; then
+    ble/string#tolower "$needle"; needle=$ret
+    ble/string#tolower "$text"; text=$ret
+  fi
+  local fixlen; ble/complete/candidates/filter:hsubseq/.determine-fixlen "$3"
+  local prefix=${needle::fixlen}
+  if [[ $text != "$prefix"* ]]; then
+    if [[ $text && $text == "${prefix::${#text}}" ]]; then
+      ret=(0 ${#text})
+    else
+      ret=()
+    fi
+    return 0
+  fi
+  local pN=${#text} iN=${#needle}
+  local first=1
+  ret=()
+  while :; do
+    if [[ $first ]]; then
+      first=
+      local p0=0 p=${#prefix} i=${#prefix}
+    else
+      ((i<iN)) || return 0
+      while ((p<pN)) && [[ ${text:p:1} != "${needle:i:1}" ]]; do
+        ((p++))
+      done
+      ((p<pN)) || return 1
+      p0=$p
+    fi
+    while ((i<iN&&p<pN)) && [[ ${text:p:1} == "${needle:i:1}" ]]; do
+      ((p++,i++))
+    done
+    ((p0<p)) && ble/array#push ret "$p0" "$p"
+  done
+}
+function ble/complete/candidates/filter:subseq/init {
+  [[ $comps_fixed ]] && return 1
+  ble/complete/candidates/filter:hsubseq/init "$1" 0
+}
+function ble/complete/candidates/filter:subseq/count-match-chars {
+  ble/complete/candidates/filter:hsubseq/count-match-chars "$1" 0
+}
+function ble/complete/candidates/filter:subseq/test { [[ $1 =~ $comp_filter_pattern ]]; }
+function ble/complete/candidates/filter:subseq/match {
+  ble/complete/candidates/filter:hsubseq/match "$1" "$2" 0
+}
+function ble/complete/candidates/generate-with-filter {
+  local filter_type=$1 opts=$2
+  local -a remaining_sources nearest_sources
+  remaining_sources=("${sources[@]}")
+  local src asrc source
+  while ((${#remaining_sources[@]})); do
+    nearest_sources=()
+    ble/complete/candidates/.pick-nearest-sources; (($?==148)) && return 148
+    [[ ! $COMPV && :$opts: == *:no-empty:* ]] && continue
+    local comp_filter_type
+    local comp_filter_pattern
+    ble/complete/candidates/filter#init "$filter_type" "$COMPV" || continue
+    for src in "${nearest_sources[@]}"; do
+      ble/string#split-words asrc "$src"
+      ble/string#split source : "${asrc[0]}"
+      local COMP_PREFIX= # 既定値 (yield-candidate で参照)
+      ble/complete/source:"${source[@]}"
+      ble/complete/check-cancel && return 148
+    done
+    [[ $comps_fixed ]] &&
+      ble/complete/candidates/.filter-word-by-prefix "${COMPS::${comps_fixed%%:*}}"
+    ((cand_count)) && return 0
+  done
+  return 0
+}
+function ble/complete/candidates/comp_type#read-rl-variables {
+  ble/util/test-rl-variable completion-ignore-case 0 && comp_type=${comp_type}:i
+  ble/util/test-rl-variable visible-stats 0 && comp_type=${comp_type}:vstat
+  ble/util/test-rl-variable mark-directories 1 && comp_type=${comp_type}:markdir
+  ble/util/test-rl-variable mark-symlinked-directories 1 && comp_type=${comp_type}:marksymdir
+  ble/util/test-rl-variable match-hidden-files 1 && comp_type=${comp_type}:match-hidden
+  ble/util/test-rl-variable menu-complete-display-prefix 0 && comp_type=${comp_type}:menu-show-prefix
+  comp_type=$comp_type:menu-color:menu-color-match
+}
+function ble/complete/candidates/generate {
+  local opts=$1
+  local flag_force_fignore=
+  local flag_source_filter=
+  local -a _fignore=()
+  if [[ $FIGNORE ]]; then
+    ble/complete/.fignore/prepare
+    ((${#_fignore[@]})) && shopt -q force_fignore && flag_force_fignore=1
+  fi
+  local rex_raw_paramx
+  ble/complete/candidates/.initialize-rex_raw_paramx
+  ble/complete/candidates/comp_type#read-rl-variables
+  local cand_iloop=0
+  ble/complete/candidates/clear
+  ble/complete/candidates/generate-with-filter none "$opts" || return "$?"
+  ((cand_count)) && return 0
+  if [[ $bleopt_complete_ambiguous && $COMPV ]]; then
+    local original_comp_type=$comp_type
+    comp_type=${original_comp_type}:m
+    ble/complete/candidates/generate-with-filter substr "$opts" || return "$?"
+    ((cand_count)) && return 0
+    comp_type=${original_comp_type}:a
+    ble/complete/candidates/generate-with-filter hsubseq "$opts" || return "$?"
+    ((cand_count)) && return 0
+    comp_type=${original_comp_type}:A
+    ble/complete/candidates/generate-with-filter subseq "$opts" || return "$?"
+    ((cand_count)) && return 0
+    comp_type=$original_comp_type
+  fi
+  return 0
+}
+function ble/complete/candidates/determine-common-prefix/.apply-partial-comps {
+  local word0=$COMPS word1=$common fixed=
+  if [[ $comps_fixed ]]; then
+    local fixlen=${comps_fixed%%:*}
+    fixed=${word0::fixlen}
+    word0=${word0:fixlen}
+    word1=${word1:fixlen}
+  fi
+  local ret spec path spec0 path0 spec1 path1
+  ble/complete/source/evaluate-path-spec "$word0"; (($?==148)) && return 148; spec0=("${spec[@]}") path0=("${path[@]}")
+  ble/complete/source/evaluate-path-spec "$word1"; (($?==148)) && return 148; spec1=("${spec[@]}") path1=("${path[@]}")
+  local i=${#path1[@]}
+  while ((i--)); do
+    if ble/array#last-index path0 "${path1[i]}"; then
+      local elem=${spec1[i]} # workaround bash-3.1 ${#arr[i]} bug
+      word1=${spec0[ret]}${word1:${#elem}}
+      break
+    fi
+  done
+  common=$fixed$word1
+}
+function ble/complete/candidates/determine-common-prefix {
+  local common=${cand_word[0]}
+  local clen=${#common}
+  if ((cand_count>1)); then
+    local unset_nocasematch= flag_tolower=
+    if [[ :$comp_type: == *:i:* ]]; then
+      if ((_ble_bash<30100)); then
+        flag_tolower=1
+        ble/string#tolower "$common"; common=$ret
+      else
+        unset_nocasematch=1
+        shopt -s nocasematch
+      fi
+    fi
+    local word loop=0
+    for word in "${cand_word[@]:1}"; do
+      ((loop++%bleopt_complete_polling_cycle==0)) && ble/complete/check-cancel && break
+      if [[ $flag_tolower ]]; then
+        ble/string#tolower "$word"; word=$ret
+      fi
+      ((clen>${#word}&&(clen=${#word})))
+      while [[ ${word::clen} != "${common::clen}" ]]; do
+        ((clen--))
+      done
+      common=${common::clen}
+    done
+    [[ $unset_nocasematch ]] && shopt -u nocasematch
+    ble/complete/check-cancel && return 148
+    [[ $flag_tolower ]] && common=${cand_word[0]::${#common}}
+  fi
+  if [[ $common != "$COMPS"* && ! ( $cand_count -eq 1 && $comp_type == *:i:* ) ]]; then
+    ble/complete/candidates/determine-common-prefix/.apply-partial-comps
+  fi
+  if ((cand_count>1)) && [[ $common != "$COMPS"* ]]; then
+    local common0=$common
+    common=$COMPS # 取り敢えず補完挿入をキャンセル
+    if [[ :$comp_type: == *:[maAi]:* ]]; then
+      local simple_flags simple_ibrace
+      if ble/syntax:bash/simple-word/reconstruct-incomplete-word "$common0"; then
+        local common_reconstructed=$ret
+        local value=$ret filter_type=head
+        case :$comp_type: in
+        (*:m:*) filter_type=substr ;;
+        (*:a:*) filter_type=hsubseq ;;
+        (*:A:*) filter_type=subseq ;;
+        esac
+        local is_processed=
+        ble/complete/source/eval-simple-word "$common_reconstructed" single; local ext=$?
+        ((ext==148)) && return 148
+        if ((ext==0)) && ble/complete/candidates/filter:"$filter_type"/count-match-chars "$ret"; then
+          if [[ $filter_type == head ]] && ((ret<${#COMPV})); then
+            is_processed=1
+            [[ $bleopt_complete_allow_reduction ]] && common=$common0
+          elif ((ret)); then
+            is_processed=1
+            ble/string#escape-for-bash-specialchars "${COMPV:ret}" c
+            common=$common0$ret
+          fi
+        fi
+        if [[ ! $is_processed ]] &&
+             local notilde=\'\' &&
+             ble/syntax:bash/simple-word/reconstruct-incomplete-word "$COMPS" &&
+             ble/syntax:bash/simple-word/eval "$notilde$ret" noglob &&
+             local compv_notilde=$ret &&
+             ble/syntax:bash/simple-word/eval "$notilde$common_reconstructed" noglob &&
+             local commonv_notilde=$ret &&
+             COMPV=$compv_notilde ble/complete/candidates/filter:"$filter_type"/count-match-chars "$commonv_notilde"
+        then
+          if [[ $filter_type == head ]] && ((ret<${#COMPV})); then
+            is_processed=1
+            [[ $bleopt_complete_allow_reduction ]] && common=$common0
+          elif ((ret)); then
+            is_processed=1
+            ble/string#escape-for-bash-specialchars "${compv_notilde:ret}" TG
+            common=$common0$ret
+          fi
+        fi
+        [[ $is_processed ]] || common=$common0$COMPS
+      fi
+    else
+      if ble/syntax:bash/simple-word/is-simple-or-open-simple "$common"; then
+        local flag_reduction=
+        if [[ $bleopt_complete_allow_reduction ]]; then
+          flag_reduction=1
+        else
+          local simple_flags simple_ibrace
+          ble/syntax:bash/simple-word/reconstruct-incomplete-word "$common0" &&
+            ble/complete/source/eval-simple-word "$ret" single &&
+            [[ $ret == "$COMPV"* ]] &&
+            flag_reduction=1
+          (($?==148)) && return 148
+        fi
+        [[ $flag_reduction ]] && common=$common0
+      fi
+    fi
+  fi
+  ret=$common
+}
+_ble_complete_menu_active=
+_ble_complete_menu_style=
+_ble_complete_menu0_beg=
+_ble_complete_menu0_end=
+_ble_complete_menu0_str=
+_ble_complete_menu_common_part=
+_ble_complete_menu0_comp=()
+_ble_complete_menu0_pack=()
+_ble_complete_menu_comp=()
+function ble/complete/menu-complete.class/render-item {
+  local opts=$2
+  if [[ :$opts: == *:selected:* ]]; then
+    local COMP1=${_ble_complete_menu_comp[0]}
+    local COMP2=${_ble_complete_menu_comp[1]}
+    local COMPS=${_ble_complete_menu_comp[2]}
+    local COMPV=${_ble_complete_menu_comp[3]}
+    local comp_type=${_ble_complete_menu_comp[4]}
+    local comps_flags=${_ble_complete_menu0_comp[5]}
+    local comps_fixed=${_ble_complete_menu0_comp[6]}
+    local menu_common_part=$_ble_complete_menu_common_part
+  fi
+  local "${_ble_complete_cand_varnames[@]/%/=}" # WA #D1570 checked
+  ble/complete/cand/unpack "$1"
+  local prefix_len=$PREFIX_LEN
+  [[ :$comp_type: == *:menu-show-prefix:* ]] && prefix_len=0
+  local filter_target=${CAND:prefix_len}
+  if [[ ! $filter_target ]]; then
+    ret=
+    return 0
+  fi
+  local g=0 show=$filter_target suffix= prefix=
+  ble/function#try ble/complete/action:"$ACTION"/init-menu-item
+  local g0=$g; [[ :$comp_type: == *:menu-color:* ]] || g0=0
+  local m
+  if [[ :$comp_type: == *:menu-color-match:* && $_ble_complete_menu_common_part && $show == *"$filter_target"* ]]; then
+    local filter_type=head
+    case :$comp_type: in
+    (*:m:*) filter_type=substr ;;
+    (*:a:*) filter_type=hsubseq ;;
+    (*:A:*) filter_type=subseq ;;
+    esac
+    local needle=${_ble_complete_menu_common_part:prefix_len}
+    ble/complete/candidates/filter:"$filter_type"/match "$needle" "$filter_target"; m=("${ret[@]}")
+    if [[ $show != "$filter_target" ]]; then
+      local show_prefix=${show%%"$filter_target"*}
+      local offset=${#show_prefix}
+      local i n=${#m[@]}
+      for ((i=0;i<n;i++)); do ((m[i]+=offset)); done
+    fi
+  else
+    m=()
+  fi
+  local sgrN0= sgrN1= sgrB0= sgrB1=
+  [[ :$opts: == *:selected:* ]] && ((g0^=_ble_color_gflags_Revert))
+  ret=${_ble_color_g2sgr[g=g0]}
+  [[ $ret ]] || ble/color/g2sgr "$g"; sgrN0=$ret
+  ret=${_ble_color_g2sgr[g=g0^_ble_color_gflags_Revert]}
+  [[ $ret ]] || ble/color/g2sgr "$g"; sgrN1=$ret
+  if ((${#m[@]})); then
+    ret=${_ble_color_g2sgr[g=g0|_ble_color_gflags_Bold]}
+    [[ $ret ]] || ble/color/g2sgr "$g"; sgrB0=$ret
+    ret=${_ble_color_g2sgr[g=(g0|_ble_color_gflags_Bold)^_ble_color_gflags_Revert]}
+    [[ $ret ]] || ble/color/g2sgr "$g"; sgrB1=$ret
+  fi
+  local out= flag_overflow= p0=0
+  if [[ $prefix ]]; then
+    ble/canvas/trace-text "$prefix" nonewline || flag_overflow=1
+    out=$out$_ble_term_sgr0$ret
+  fi
+  if ((${#m[@]})); then
+    local i iN=${#m[@]} p p0=0 out=
+    for ((i=0;i<iN;i++)); do
+      ((p=m[i]))
+      if ((p0<p)); then
+        if ((i%2==0)); then
+          local sgr0=$sgrN0 sgr1=$sgrN1
+        else
+          local sgr0=$sgrB0 sgr1=$sgrB1
+        fi
+        ble/canvas/trace-text "${show:p0:p-p0}" nonewline:external-sgr || flag_overflow=1
+        out=$out$sgr0$ret
+      fi
+      p0=$p
+    done
+  fi
+  if ((p0<${#show})); then
+    local sgr0=$sgrN0 sgr1=$sgrN1
+    ble/canvas/trace-text "${show:p0}" nonewline:external-sgr || flag_overflow=1
+    out=$out$sgr0$ret
+  fi
+  if [[ $suffix ]]; then
+    ble/canvas/trace-text "$suffix" nonewline || flag_overflow=1
+    out=$out$_ble_term_sgr0$ret
+  fi
+  ret=$out$_ble_term_sgr0
+  [[ ! $flag_overflow ]]
+}
+function ble/complete/menu-complete.class/get-desc {
+  local item=$1
+  local "${_ble_complete_cand_varnames[@]/%/=}" # WA #D1570 checked
+  ble/complete/cand/unpack "$item"
+  desc="$desc_sgrt(action:$ACTION)$desc_sgr0"
+  ble/function#try ble/complete/action:"$ACTION"/get-desc
+}
+function ble/complete/menu-complete.class/onselect {
+  local nsel=$1 osel=$2
+  local insert=${_ble_complete_menu_original:-${_ble_complete_menu_comp[2]}}
+  if ((nsel>=0)); then
+    local "${_ble_complete_cand_varnames[@]/%/=}" # WA #D1570 checked
+    ble/complete/cand/unpack "${_ble_complete_menu_items[nsel]}"
+    insert=$INSERT
+  fi
+  ble-edit/content/replace-limited "$_ble_complete_menu0_beg" "$_ble_edit_ind" "$insert"
+  ((_ble_edit_ind=_ble_complete_menu0_beg+${#insert}))
+}
+function ble/complete/menu/clear {
+  if [[ $_ble_complete_menu_active ]]; then
+    _ble_complete_menu_active=
+    ble/complete/menu#clear
+    [[ $_ble_highlight_layer_menu_filter_beg ]] &&
+      ble/textarea#invalidate str # layer:menu_filter 解除 (#D0995)
+  fi
+  return 0
+}
+blehook widget_bell+=ble/complete/menu/clear
+blehook history_onleave+=ble/complete/menu/clear
+function ble/complete/menu/get-footprint {
+  footprint=$_ble_edit_ind:$_ble_edit_mark_active:${_ble_edit_mark_active:+$_ble_edit_mark}:$_ble_edit_overwrite_mode:$_ble_edit_str
+}
+function ble/complete/menu/show {
+  local opts=$1
+  if [[ :$opts: == *:load-filtered-data:* ]]; then
+    local COMP1=${_ble_complete_menu_comp[0]}
+    local COMP2=${_ble_complete_menu_comp[1]}
+    local COMPS=${_ble_complete_menu_comp[2]}
+    local COMPV=${_ble_complete_menu_comp[3]}
+    local comp_type=${_ble_complete_menu_comp[4]}
+    local comps_flags=${_ble_complete_menu0_comp[5]}
+    local comps_fixed=${_ble_complete_menu0_comp[6]}
+    local cand_pack; cand_pack=("${_ble_complete_menu_items[@]}")
+    local menu_common_part=$_ble_complete_menu_common_part
+  fi
+  local menu_style=$bleopt_complete_menu_style
+  [[ :$opts: == *:filter:* && $_ble_complete_menu_style ]] &&
+    menu_style=$_ble_complete_menu_style
+  local menu_items; menu_items=("${cand_pack[@]}")
+  _ble_complete_menu_common_part=$menu_common_part
+  local menu_class=ble/complete/menu-complete.class menu_param=
+  local menu_opts=$opts
+  [[ :$comp_type: == *:sync:* ]] && menu_opts=$menu_opts:sync
+  ble/complete/menu#construct "$menu_opts" || return "$?"
+  ble/complete/menu#show
+  if [[ :$opts: == *:menu-source:* ]]; then
+    local left0=${_ble_complete_menu0_str::_ble_complete_menu0_end}
+    local left1=${_ble_edit_str::_ble_edit_ind}
+    local ret; ble/string#common-prefix "$left0" "$left1"; left0=$ret
+    local right0=${_ble_complete_menu0_str:_ble_complete_menu0_end}
+    local right1=${_ble_edit_str:_ble_edit_ind}
+    local ret; ble/string#common-suffix "$right0" "$right1"; right0=$ret
+    local footprint; ble/complete/menu/get-footprint
+    _ble_complete_menu0_str=$left0$right0
+    _ble_complete_menu0_end=${#left0}
+    _ble_complete_menu_footprint=$footprint
+  elif [[ :$opts: != *:filter:* ]]; then
+    local beg=$COMP1 end=$_ble_edit_ind # COMP2 でなく補完挿入後の位置
+    local str=$_ble_edit_str
+    [[ $_ble_decode_keymap == auto_complete ]] &&
+      str=${str::_ble_edit_ind}${str:_ble_edit_mark}
+    local footprint; ble/complete/menu/get-footprint
+    _ble_complete_menu_active=1
+    _ble_complete_menu_style=$menu_style
+    _ble_complete_menu0_beg=$beg
+    _ble_complete_menu0_end=$end
+    _ble_complete_menu0_str=$str
+    _ble_complete_menu0_comp=("$COMP1" "$COMP2" "$COMPS" "$COMPV" "$comp_type" "$comps_flags" "$comps_fixed")
+    _ble_complete_menu0_pack=("${cand_pack[@]}")
+    _ble_complete_menu_selected=-1
+    _ble_complete_menu_comp=("$COMP1" "$COMP2" "$COMPS" "$COMPV" "$comp_type")
+    _ble_complete_menu_footprint=$footprint
+  fi
+  return 0
+}
+function ble/complete/menu/redraw {
+  if [[ $_ble_complete_menu_active ]]; then
+    ble/complete/menu#show
+  fi
+}
+function ble/complete/menu/get-active-range {
+  [[ $_ble_complete_menu_active ]] || return 1
+  local str=${1-$_ble_edit_str} ind=${2-$_ble_edit_ind}
+  local mbeg=$_ble_complete_menu0_beg
+  local mend=$_ble_complete_menu0_end
+  local left=${_ble_complete_menu0_str::mend}
+  local right=${_ble_complete_menu0_str:mend}
+  if [[ ${str::_ble_edit_ind} == "$left"* && ${str:_ble_edit_ind} == *"$right" ]]; then
+    ((beg=mbeg,end=${#str}-${#right}))
+    return 0
+  else
+    ble/complete/menu/clear
+    return 1
+  fi
+}
+function ble/complete/menu/generate-candidates-from-menu {
+  COMP1=${_ble_complete_menu_comp[0]}
+  COMP2=${_ble_complete_menu_comp[1]}
+  COMPS=${_ble_complete_menu_comp[2]}
+  COMPV=${_ble_complete_menu_comp[3]}
+  comp_type=${_ble_complete_menu_comp[4]}
+  comps_flags=${_ble_complete_menu0_comp[5]}
+  comps_fixed=${_ble_complete_menu0_comp[6]}
+  cand_count=${#_ble_complete_menu_items[@]}
+  cand_cand=() cand_word=() cand_pack=()
+  local pack "${_ble_complete_cand_varnames[@]/%/=}" # #D1570 WA checked
+  for pack in "${_ble_complete_menu_items[@]}"; do
+    ble/complete/cand/unpack "$pack"
+    ble/array#push cand_cand "$CAND"
+    ble/array#push cand_word "$INSERT"
+    ble/array#push cand_pack "$pack"
+  done
+  ((cand_count))
+}
+function ble/complete/generate-candidates-from-opts {
+  local opts=$1
+  local context; ble/complete/complete/determine-context-from-opts "$opts"
+  comp_type=
+  [[ :$opts: == *:auto_menu:* ]] && comp_type=auto_menu
+  local comp_text=$_ble_edit_str comp_index=$_ble_edit_ind
+  local sources
+  ble/complete/context:"$context"/generate-sources "$comp_text" "$comp_index" || return "$?"
+  ble/complete/candidates/generate "$opts"
+}
+function ble/complete/insert {
+  local insert_beg=$1 insert_end=$2
+  local insert=$3 suffix=$4
+  local original_text=${_ble_edit_str:insert_beg:insert_end-insert_beg}
+  local ret
+  local insert_replace=
+  if [[ $insert == "$original_text"* ]]; then
+    insert=${insert:insert_end-insert_beg}
+    ((insert_beg=insert_end))
+  else
+    ble/string#common-prefix "$insert" "$original_text"
+    if [[ $ret ]]; then
+      insert=${insert:${#ret}}
+      ((insert_beg+=${#ret}))
+    fi
+  fi
+  if ble/util/test-rl-variable skip-completed-text; then
+    if [[ $insert ]]; then
+      local right_text=${_ble_edit_str:insert_end}
+      right_text=${right_text%%[$IFS]*}
+      if ble/string#common-prefix "$insert" "$right_text"; [[ $ret ]]; then
+        ((insert_end+=${#ret}))
+      elif ble/complete/string#common-suffix-prefix "$insert" "$right_text"; [[ $ret ]]; then
+        ((insert_end+=${#ret}))
+      fi
+    fi
+    if [[ $suffix ]]; then
+      local right_text=${_ble_edit_str:insert_end}
+      if ble/string#common-prefix "$suffix" "$right_text"; [[ $ret ]]; then
+        ((insert_end+=${#ret}))
+      elif ble/complete/string#common-suffix-prefix "$suffix" "$right_text"; [[ $ret ]]; then
+        ((insert_end+=${#ret}))
+      fi
+    fi
+  fi
+  local ins=$insert$suffix
+  ble/widget/.replace-range "$insert_beg" "$insert_end" "$ins"
+  ((_ble_edit_ind=insert_beg+${#ins},
+    _ble_edit_ind>${#_ble_edit_str}&&
+      (_ble_edit_ind=${#_ble_edit_str})))
+}
+function ble/complete/insert-common {
+  local ret
+  ble/complete/candidates/determine-common-prefix; (($?==148)) && return 148
+  local insert=$ret suffix=
+  local insert_beg=$COMP1 insert_end=$COMP2
+  local insert_flags=
+  [[ $insert == "$COMPS"* ]] || insert_flags=r
+  if ((cand_count==1)); then
+    local ACTION=${cand_pack[0]%%:*}
+    if ble/is-function ble/complete/action:"$ACTION"/complete; then
+      local "${_ble_complete_cand_varnames[@]/%/=}" # WA #D1570 checked
+      ble/complete/cand/unpack "${cand_pack[0]}"
+      ble/complete/action:"$ACTION"/complete
+      (($?==148)) && return 148
+    fi
+  else
+    insert_flags=${insert_flags}m
+  fi
+  local do_insert=1
+  if ((cand_count>1)) && [[ $insert_flags == *r* ]]; then
+    if [[ :$comp_type: != *:[maAi]:* ]]; then
+      do_insert=
+    fi
+  elif [[ $insert$suffix == "$COMPS" ]]; then
+    do_insert=
+  fi
+  if [[ $do_insert ]]; then
+    ble/complete/insert "$insert_beg" "$insert_end" "$insert" "$suffix"
+    blehook/invoke complete_insert
+  fi
+  if [[ $insert_flags == *m* ]]; then
+    local menu_common_part=$COMPV
+    local ret simple_flags simple_ibrace
+    if ble/syntax:bash/simple-word/reconstruct-incomplete-word "$insert"; then
+      ble/complete/source/eval-simple-word "$ret" single
+      (($?==148)) && return 148
+      menu_common_part=$ret
+    fi
+    ble/complete/menu/show "$menu_show_opts" || return "$?"
+  elif [[ $insert_flags == *n* ]]; then
+    ble/widget/complete show_menu:regenerate || return "$?"
+  else
+    _ble_complete_state=complete
+    ble/complete/menu/clear
+  fi
+  return 0
+}
+function ble/complete/insert-all {
+  local "${_ble_complete_cand_varnames[@]/%/=}" # WA #D1570 checked
+  local pack beg=$COMP1 end=$COMP2 insert= suffix= insert_flags= index=0
+  for pack in "${cand_pack[@]}"; do
+    ble/complete/cand/unpack "$pack"
+    insert=$INSERT suffix= insert_flags=
+    if ble/is-function ble/complete/action:"$ACTION"/complete; then
+      ble/complete/action:"$ACTION"/complete
+      (($?==148)) && return 148
+    fi
+    [[ $suffix != *' ' ]] && suffix="$suffix "
+    ble/complete/insert "$beg" "$end" "$insert" "$suffix"
+    blehook/invoke complete_insert
+    beg=$_ble_edit_ind end=$_ble_edit_ind
+    ((index++))
+  done
+  _ble_complete_state=complete
+  ble/complete/menu/clear
+  return 0
+}
+function ble/complete/insert-braces/.compose {
+  if ble/bin/awk.supports-null-record-separator; then
+    local printf_format='%s\0' RS='"\0"'
+  else
+    local printf_format='%s\x1E' RS='"\x1E"'
+  fi
+  local q=\'
+  local -x rex_atom='^(\\.|[0-9]+|.)' del_close= del_open= quote_type=
+  local -x COMPS=$COMPS
+  if [[ :$comp_type: != *:[maAi]:* ]]; then
+    local rex_brace='[,{}]|\{[-a-zA-Z0-9]+\.\.[-a-zA-Z0-9]+\}'
+    case $comps_flags in
+    (*S*)    rex_atom='^('$q'(\\'$q'|'$rex_brace')'$q'|[0-9]+|.)' # '...'
+             del_close=\' del_open=\' quote_type=S ;;
+    (*E*)    rex_atom='^(\\.|'$q'('$rex_brace')\$'$q'|[0-9]+|.)'  # $'...'
+             del_close=\' del_open=\$\' quote_type=E ;;
+    (*[DI]*) rex_atom='^(\\[\"$`]|"('$rex_brace')"|[0-9]+|.)'     # "...", $"..."
+             del_close=\" del_open=\" quote_type=D ;;
+    esac
+  fi
+  printf "$printf_format" "$@" | ble/bin/awk '
+    function starts_with(str, head) {
+      return substr(str, 1, length(head)) == head;
+    }
+    BEGIN {
+      RS = '"$RS"';
+      rex_atom = ENVIRON["rex_atom"];
+      del_close = ENVIRON["del_close"];
+      del_open = ENVIRON["del_open"];
+      quote_type = ENVIRON["quote_type"];
+      COMPS = ENVIRON["COMPS"];
+      BRACE_OPEN = del_close "{" del_open;
+      BRACE_CLOS = del_close "}" del_open;
+    }
+    function to_atoms(str, arr, _, chr, atom, level, count, rex) {
+      count = 0;
+      while (match(str, rex_atom) > 0) {
+        chr = substr(str, 1, RLENGTH);
+        str = substr(str, RLENGTH + 1);
+        if (chr == BRACE_OPEN) {
+          atom = chr;
+          level = 1;
+          while (match(str, rex_atom) > 0) {
+            chr = substr(str, 1, RLENGTH);
+            str = substr(str, RLENGTH + 1);
+            atom = atom chr;
+            if (chr == BRACE_OPEN)
+              level++;
+            else if (chr == BRACE_CLOS && --level==0)
+              break;
+          }
+        } else {
+          atom = chr;
+        }
+        arr[count++] = atom;
+      }
+      return count;
+    }
+    function remove_empty_quote(str, _, rex_quote_first, rex_quote, out, empty, m) {
+      if (quote_type == "S" || quote_type == "E") {
+        rex_quote_first = "^[^'$q']*'$q'";
+        rex_quote = "'$q'[^'$q']*'$q'|(\\\\.|[^'$q'])+";
+      } else if (quote_type == "D") {
+        rex_quote_first = "^[^\"]*\"";
+        rex_quote = "\"([^\\\"]|\\\\.)*\"|(\\\\.|[^\"])+";
+      } else return str;
+      empty = del_open del_close;
+      out = "";
+      if (starts_with(str, COMPS)) {
+        out = COMPS;
+        str = substr(str, length(COMPS) + 1);
+        if (match(str, rex_quote_first) > 0) {
+          out = out substr(str, 1, RLENGTH);
+          str = substr(str, RLENGTH + 1);
+        }
+      }
+      while (match(str, rex_quote) > 0) {
+        m = substr(str, 1, RLENGTH);
+        if (m != empty) out = out m;
+        str = substr(str, RLENGTH + 1);
+      }
+      if (str == del_open)
+        return out;
+      else
+        return out str del_close;
+    }
+    function zpad(value, width, _, wpad, i, pad) {
+      wpad = width - length(value);
+      pad = "";
+      for (i = 0; i < wpad; i++) pad = "0" pad;
+      if (value < 0)
+        return "-" pad (-value);
+      else
+        return pad value;
+    }
+    function zpad_remove(value) {
+      if (value ~ /^0+$/)
+        value = "0";
+      else if (value ~ /^-/)
+        sub(/^-0+/, "-", value);
+      else
+        sub(/^0+/, "", value);
+      return value;
+    }
+    function zpad_a2i(text) {
+      sub(/^-0+/, "-", text) || sub(/^0+/, "", text);
+      return 0 + text;
+    }
+    function range_contract(arr, len, _, i, value, alpha, lower, upper, keys, ikey, dict, b, e, beg, end, tmp) {
+      lower = "abcdefghijklmnopqrstuvwxyz";
+      upper = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
+      for (i = 0; i < len; i++) {
+        value = arr[i];
+        if (dict[value]) {
+          dict[value]++;
+        } else {
+          keys[ikey++] = value;
+          dict[value] = 1;
+        }
+      }
+      len = 0;
+      for (i = 0; i < ikey; i++) {
+        while (dict[value = keys[i]]--) {
+          if (value ~ /^([a-zA-Z])$/) {
+            alpha = (value ~ /^[a-z]$/) ? lower : upper;
+            beg = end = value;
+            b = e = index(alpha, value);
+            while (b > 1 && dict[tmp = substr(alpha, b - 1, 1)]) {
+              dict[beg = tmp]--;
+              b--;
+            }
+            while (e < 26 && dict[tmp = substr(alpha, e + 1, 1)]) {
+              dict[end = tmp]--;
+              e++;
+            }
+            if (e == b) {
+              arr[len++] = beg;
+            } else if (e == b + 1) {
+              arr[len++] = beg;
+              arr[len++] = end;
+            } else {
+              arr[len++] = del_close "{" beg ".." end "}" del_open;
+            }
+          } else if (value ~ /^(0+|-?0*[1-9][0-9]*)$/) {
+            beg = end = value;
+            b = e = zpad_a2i(value);
+            wmax = wmin = length(value);
+            if (value ~ /^(0|-?[1-9][0-9]*)$/) {
+              while (dict[b - 1]) dict[--b]--;
+              while (dict[e + 1]) dict[++e]--;
+              tmp = length(beg = "" b);
+              if (tmp < wmin) wmin = tmp;
+              else if (tmp > wmax) wmax = tmp;
+              tmp = length(end = "" e);
+              if (tmp < wmin) wmin = tmp;
+              else if (tmp > wmax) wmax = tmp;
+            }
+            if (wmax == wmin) {
+              while (length(tmp = zpad(b - 1, wmin)) == wmin && dict[tmp]) { dict[tmp]--; --b; }
+              while (length(tmp = zpad(e + 1, wmin)) == wmin && dict[tmp]) { dict[tmp]--; ++e; }
+              beg = zpad(b, wmin);
+              end = zpad(e, wmin);
+            }
+            if (e == b) {
+              arr[len++] = beg;
+            } else if (e == b + 1) {
+              arr[len++] = beg;
+              arr[len++] = end;
+            } else if (b < 0 && e < 0) {
+              arr[len++] = del_close "-{" substr(end, 2) ".." substr(beg, 2) "}" del_open;
+            } else {
+              arr[len++] = del_close "{" beg ".." end "}" del_open;
+            }
+          } else {
+            arr[len++] = value;
+          }
+        }
+      }
+      return len;
+    }
+    function simple_brace(arr, len, _, ret, i) {
+      if (len == 0) return "";
+      len = range_contract(arr, len);
+      if (len == 1) return arr[0];
+      ret = BRACE_OPEN arr[0];
+      for (i = 1; i < len; i++)
+        ret = ret del_close "," del_open arr[i];
+      return ret BRACE_CLOS;
+    }
+    function rfrag_strlen_common(a, b, _, la, lb, tmp, i, n) {
+      ret = 0;
+      alen = to_atoms(a, abuf);
+      blen = to_atoms(b, bbuf);
+      while (alen > 0 && blen > 0) {
+        if (abuf[alen - 1] != bbuf[blen - 1]) break;
+        ret += length(abuf[alen - 1]);
+        alen--;
+        blen--;
+      }
+      return ret;
+    }
+    function rfrag_get_level(str, _, len, i, rfrag0, rfrag0len, rfrag1) {
+      len = length(str);
+      rfrag_matching_offset = len;
+      for (i = 0; i < rfrag_depth - 1; i++) {
+        rfrag0 = rfrag[i];
+        rfrag0len = length(rfrag0);
+        rfrag1 = substr(str, len - rfrag0len + 1);
+        str = substr(str, 1, len -= rfrag0len);
+        if (rfrag0 != rfrag1) break;
+        rfrag_matching_offset -= rfrag0len;
+      }
+      while (i && rfrag[i - 1] == "") i--; # empty fragment
+      return i;
+    }
+    function rfrag_reduce(new_depth, _, c, i, brace, frags) {
+      while (rfrag_depth > new_depth) {
+        rfrag_depth--;
+        c = rfrag_count[rfrag_depth];
+        for (i = 0; i < c; i++)
+          frags[i] = rfrag[rfrag_depth, i];
+        frags[c] = rfrag[rfrag_depth];
+        brace = simple_brace(frags, c + 1);
+        if (rfrag_depth == 0)
+          return brace;
+        else
+          rfrag[rfrag_depth - 1] = brace rfrag[rfrag_depth - 1];
+      }
+    }
+    function rfrag_register(str, level, _, rfrag0, rfrag1, len) {
+      if (level == rfrag_depth) {
+        rfrag_depth = level + 1;
+        rfrag[level] = "";
+        rfrag_count[level] = 0;
+      } else if (rfrag_depth != level + 1) {
+        print "ERR(rfrag)";
+      }
+      rfrag0 = rfrag[level];
+      rfrag1 = substr(str, 1, rfrag_matching_offset);
+      len = rfrag_strlen_common(rfrag0, rfrag1);
+      if (len == 0) {
+        rfrag[level, rfrag_count[level]++] = rfrag0;
+        rfrag[level] = rfrag1;
+      } else {
+        rfrag[level] = substr(rfrag0, length(rfrag0) - len + 1);
+        rfrag[level + 1, 0] = substr(rfrag0, 1, length(rfrag0) - len);
+        rfrag[level + 1] = substr(rfrag1, 1, length(rfrag1) - len);
+        rfrag_count[level + 1] = 1;
+        rfrag_depth++;
+      }
+    }
+    function rfrag_dump(_, i, j, prefix) {
+      print "depth = " rfrag_depth;
+      for (i = 0; i < rfrag_depth; i++) {
+        prefix = "";
+        for (j = 0; j < i; j++) prefix = prefix "  ";
+        for (j = 0; j < rfrag_count[i]; j++)
+          print prefix "rfrag[" i "," j "] = " rfrag[i,j];
+        print prefix "rfrag[" i "] = " rfrag[i];
+      }
+    }
+    function rfrag_brace(arr, len, _, i, level) {
+      if (len == 0) return "";
+      if (len == 1) return arr[0];
+      rfrag_depth = 1;
+      rfrag[0] = arr[0];
+      rfrag_count[0] = 0;
+      for (i = 1; i < len; i++) {
+        level = rfrag_get_level(arr[i]);
+        rfrag_reduce(level + 1);
+        rfrag_register(arr[i], level);
+      }
+      return rfrag_reduce(0);
+    }
+    function lfrag_strlen_common(a, b, _, ret, abuf, bbuf, alen, blen, ia, ib) {
+      ret = 0;
+      alen = to_atoms(a, abuf);
+      blen = to_atoms(b, bbuf);
+      for (ia = ib = 0; ia < alen && ib < blen; ia++ + ib++) {
+        if (abuf[ia] != bbuf[ib]) break;
+        ret += length(abuf[ia]);
+      }
+      return ret;
+    }
+    function lfrag_get_level(str, _, i, frag0, frag0len, frag1) {
+      lfrag_matching_offset = 0;
+      for (i = 0; i < lfrag_depth - 1; i++) {
+        frag0 = frag[i]
+        frag0len = length(frag0);
+        frag1 = substr(str, lfrag_matching_offset + 1, frag0len);
+        if (frag0 != frag1) break;
+        lfrag_matching_offset += frag0len;
+      }
+      while (i && frag[i - 1] == "") i--; # empty fragment
+      return i;
+    }
+    function lfrag_reduce(new_depth, _, c, i, brace, frags) {
+      while (lfrag_depth > new_depth) {
+        lfrag_depth--;
+        c = frag_count[lfrag_depth];
+        for (i = 0; i < c; i++)
+          frags[i] = frag[lfrag_depth, i];
+        frags[c] = frag[lfrag_depth];
+        brace = rfrag_brace(frags, c + 1);
+        if (lfrag_depth == 0)
+          return brace;
+        else
+          frag[lfrag_depth - 1] = frag[lfrag_depth - 1] brace;
+      }
+    }
+    function lfrag_register(str, level, _, frag0, frag1, len) {
+      if (lfrag_depth == level) {
+        lfrag_depth = level + 1;
+        frag[level] = "";
+        frag_count[level] = 0;
+      } else if (lfrag_depth != level + 1) {
+        print "ERR";
+      }
+      frag0 = frag[level];
+      frag1 = substr(str, lfrag_matching_offset + 1);
+      len = lfrag_strlen_common(frag0, frag1);
+      if (len == 0) {
+        frag[level, frag_count[level]++] = frag0;
+        frag[level] = frag1;
+      } else {
+        frag[level] = substr(frag0, 1, len);
+        frag[level + 1, 0] = substr(frag0, len + 1);
+        frag[level + 1] = substr(frag1, len + 1);
+        frag_count[level + 1] = 1;
+        lfrag_depth++;
+      }
+    }
+    function lfrag_dump(_, i, j, prefix) {
+      print "depth = " lfrag_depth;
+      for (i = 0; i < lfrag_depth; i++) {
+        prefix = "";
+        for (j = 0; j < i; j++) prefix = prefix "  ";
+        for (j = 0; j < frag_count[i]; j++)
+          print prefix "frag[" i "," j "] = " frag[i,j];
+        print prefix "frag[" i "] = " frag[i];
+      }
+    }
+    NR == 1 {
+      lfrag_depth = 1;
+      frag[0] = $0;
+      frag_count[0] = 0;
+      next
+    }
+    {
+      level = lfrag_get_level($0);
+      lfrag_reduce(level + 1);
+      lfrag_register($0, level);
+    }
+    END {
+      result = lfrag_reduce(0);
+      result = remove_empty_quote(result);
+      print result;
+    }
+  '
+}
+function ble/complete/insert-braces {
+  if ((cand_count==1)); then
+    ble/complete/insert-common; return "$?"
+  fi
+  local comps_len=${#COMPS} loop=0
+  local -a tails=()
+  local common=${cand_word[0]}
+  ble/array#push tails "${common:comps_len}"
+  local word clen=${#common}
+  for word in "${cand_word[@]:1}"; do
+    ((loop++%bleopt_complete_polling_cycle==0)) && ble/complete/check-cancel && return 148
+    ((clen>${#word}&&(clen=${#word})))
+    while [[ ${word::clen} != "${common::clen}" ]]; do
+      ((clen--))
+    done
+    common=${common::clen}
+    ble/array#push tails "${word:comps_len}"
+  done
+  local fixed=$COMPS
+  if [[ $common != "$COMPS"* ]]; then
+    tails=()
+    local fixed= fixval=
+    {
+      [[ $comps_fixed ]] &&
+        fixed=${COMPS::${comps_fixed%%:*}} fixval=${comps_fixed#*:}
+      local ret simple_flags simple_ibrace
+      ble/complete/candidates/determine-common-prefix/.apply-partial-comps # var[in,out] common
+      if ble/syntax:bash/simple-word/reconstruct-incomplete-word "$common"; then
+        ble/complete/source/eval-simple-word "$ret" single
+        (($?==148)) && return 148
+        fixed=$common fixval=$ret
+      fi
+    }
+    local cand ret fixval_len=${#fixval}
+    for cand in "${cand_cand[@]}"; do
+      ((loop++%bleopt_complete_polling_cycle==0)) && ble/complete/check-cancel && return 148
+      [[ $cand == "$fixval"* ]] || continue
+      ble/complete/string#escape-for-completion-context "${cand:fixval_len}"
+      case $comps in
+      (*S*) cand=\'$ret\'   ;;
+      (*E*) cand=\$\'$ret\' ;;
+      (*D*) cand=\"$ret\"   ;;
+      (*I*) cand=\$\"$ret\" ;;
+      (*)   cand=$ret ;;
+      esac
+      ble/array#push tails "$cand"
+    done
+  fi
+  local tail; ble/util/assign tail 'ble/complete/insert-braces/.compose "${tails[@]}"'
+  local beg=$COMP1 end=$COMP2 insert=$fixed$tail suffix=
+  if [[ $comps_flags == *x* ]]; then
+    ble/complete/action/complete.addtail ','
+  else
+    ble/complete/action/complete.addtail ' '
+  fi
+  ble/complete/insert "$beg" "$end" "$insert" "$suffix"
+  blehook/invoke complete_insert
+  _ble_complete_state=complete
+  ble/complete/menu/clear
+  return 0
+}
+_ble_complete_state=
+function ble/widget/complete {
+  local opts=$1
+  ble-edit/content/clear-arg
+  local state=$_ble_complete_state
+  _ble_complete_state=start
+  local menu_show_opts=
+  if [[ :$opts: != *:insert_*:* && :$opts: != *:show_menu:* ]]; then
+    if [[ :$opts: == *:enter_menu:* ]]; then
+      [[ $_ble_complete_menu_active && :$opts: != *:context=*:* ]] &&
+        ble/complete/menu-complete/enter "$opts" && return 0
+    elif [[ $bleopt_complete_menu_complete ]]; then
+      if [[ $_ble_complete_menu_active && :$opts: != *:context=*:* ]]; then
+        local footprint; ble/complete/menu/get-footprint
+        [[ $footprint == "$_ble_complete_menu_footprint" ]] &&
+          ble/complete/menu-complete/enter && return 0
+      fi
+      [[ $WIDGET == "$LASTWIDGET" && $state != complete ]] && opts=$opts:enter_menu
+    fi
+  fi
+  local COMP1 COMP2 COMPS COMPV
+  local comp_type comps_flags comps_fixed
+  local cand_count cand_cand cand_word cand_pack
+  ble/complete/candidates/clear
+  local cand_limit_reached=
+  if [[ $_ble_complete_menu_active && :$opts: != *:regenerate:* &&
+          :$opts: != *:context=*:* && ${#_ble_complete_menu_icons[@]} -gt 0 ]]
+  then
+    if [[ $_ble_complete_menu_filter_enabled && $bleopt_complete_menu_filter ]] || {
+         ble/complete/menu-filter; local ext=$?
+         ((ext==148)) && return 148
+         ((ext==0)); }; then
+      ble/complete/menu/generate-candidates-from-menu; local ext=$?
+      ((ext==148)) && return 148
+      if ((ext==0&&cand_count)); then
+        local bleopt_complete_menu_style=$_ble_complete_menu_style
+        menu_show_opts=$menu_show_opts:menu-source # 既存の filter 前候補を保持する
+      fi
+    fi
+  fi
+  if ((cand_count==0)); then
+    local bleopt_complete_menu_style=$bleopt_complete_menu_style # source 等に一次変更を認める。
+    ble/complete/generate-candidates-from-opts "$opts"; local ext=$?
+    if ((ext==148)); then
+      return 148
+    fi
+    if [[ $cand_limit_reached ]]; then
+      [[ :$opts: != *:no-bell:* ]] &&
+        ble/widget/.bell 'complete: limit reached'
+      if [[ $cand_limit_reached == cancel ]]; then
+        ble/edit/info/default
+        return 1
+      fi
+    fi
+    if ((ext!=0||cand_count==0)); then
+      [[ :$opts: != *:no-bell:* && ! $cand_limit_reached ]] &&
+        ble/widget/.bell 'complete: no completions'
+      ble/edit/info/default
+      return 1
+    fi
+  fi
+  if [[ :$opts: == *:insert_common:* ]]; then
+    ble/complete/insert-common; return "$?"
+  elif [[ :$opts: == *:insert_braces:* ]]; then
+    ble/complete/insert-braces; return "$?"
+  elif [[ :$opts: == *:insert_all:* ]]; then
+    ble/complete/insert-all; return "$?"
+  elif [[ :$opts: == *:enter_menu:* ]]; then
+    local menu_common_part=$COMPV
+    ble/complete/menu/show "$menu_show_opts" || return "$?"
+    ble/complete/menu-complete/enter "$opts"; local ext=$?
+    ((ext==148)) && return 148
+    ((ext)) && [[ :$opts: != *:no-bell:* ]] &&
+      ble/widget/.bell 'menu-complete: no completions'
+    return 0
+  elif [[ :$opts: == *:show_menu:* ]]; then
+    local menu_common_part=$COMPV
+    ble/complete/menu/show "$menu_show_opts"
+    return "$?" # exit status of ble/complete/menu/show
+  fi
+  ble/complete/insert-common; return "$?"
+}
+function ble/widget/complete-insert {
+  local original=$1 insert=$2 suffix=$3
+  [[ ${_ble_edit_str::_ble_edit_ind} == *"$original" ]] || return 1
+  local insert_beg=$((_ble_edit_ind-${#original}))
+  local insert_end=$_ble_edit_ind
+  ble/complete/insert "$insert_beg" "$insert_end" "$insert" "$suffix"
+}
+function ble/widget/menu-complete {
+  local opts=$1
+  ble/widget/complete enter_menu:$opts
+}
+function ble/complete/menu-filter/.filter-candidates {
+  cand_pack=()
+  local iloop=0 interval=$bleopt_complete_polling_cycle
+  local filter_type pack "${_ble_complete_cand_varnames[@]/%/=}" # #D1570 WA checked
+  for filter_type in head substr hsubseq subseq; do
+    ble/path#remove-glob comp_type '[maA]'
+    case $filter_type in
+    (substr)  comp_type=${comp_type}:m ;;
+    (hsubseq) comp_type=${comp_type}:a ;;
+    (subseq)  comp_type=${comp_type}:A ;;
+    esac
+    local comp_filter_type
+    local comp_filter_pattern
+    ble/complete/candidates/filter#init "$filter_type" "$COMPV"
+    for pack in "${_ble_complete_menu0_pack[@]}"; do
+      ((iloop++%interval==0)) && ble/complete/check-cancel && return 148
+      ble/complete/cand/unpack "$pack"
+      ble/complete/candidates/filter#test "$CAND" &&
+        ble/array#push cand_pack "$pack"
+    done
+    ((${#cand_pack[@]}!=0)) && return 0
+  done
+}
+function ble/complete/menu-filter/.get-filter-target {
+  if [[ $_ble_decode_keymap == emacs || $_ble_decode_keymap == vi_[ic]map ]]; then
+    ret=$_ble_edit_str
+  elif [[ $_ble_decode_keymap == auto_complete ]]; then
+    ret=${_ble_edit_str::_ble_edit_ind}${_ble_edit_str:_ble_edit_mark}
+  else
+    return 1
+  fi
+}
+function ble/complete/menu-filter {
+  [[ $_ble_decode_keymap == menu_complete ]] && return 0
+  local ret; ble/complete/menu-filter/.get-filter-target || return 1; local str=$ret
+  local beg end; ble/complete/menu/get-active-range "$str" "$_ble_edit_ind" || return 1
+  local input=${str:beg:end-beg}
+  [[ $input == "${_ble_complete_menu_comp[2]}" ]] && return 0
+  local simple_flags simple_ibrace
+  if ! ble/syntax:bash/simple-word/reconstruct-incomplete-word "$input"; then
+    ble/syntax:bash/simple-word/is-never-word "$input" && return 1
+    return 0
+  fi
+  [[ $simple_ibrace ]] && ((${simple_ibrace%%:*}>10#0${_ble_complete_menu0_comp[6]%%:*})) && return 1 # 別のブレース展開要素に入った時
+  ble/syntax:bash/simple-word/eval "$ret" single; (($?==148)) && return 148
+  local COMPV=$ret
+  local comp_type=${_ble_complete_menu0_comp[4]} cand_pack
+  ble/complete/menu-filter/.filter-candidates; (($?==148)) && return 148
+  local menu_common_part=$COMPV
+  ble/complete/menu/show filter || return "$?"
+  _ble_complete_menu_comp=("$beg" "$end" "$input" "$COMPV" "$comp_type")
+  return 0
+}
+function ble/complete/menu-filter.idle {
+  ble/util/idle.wait-user-input
+  [[ $bleopt_complete_menu_filter ]] || return 1
+  [[ $_ble_complete_menu_active ]] || return 1
+  ble/complete/menu-filter; local ext=$?
+  ((ext==148)) && return 148
+  ((ext)) && ble/complete/menu/clear
+  return 0
+}
+function ble/highlight/layer/buff#operate-gflags {
+  local BUFF=$1 beg=$2 end=$3 mask=$4 gflags=$5
+  ((beg<end)) || return 1
+  if [[ $mask == auto ]]; then
+    mask=0
+    ((gflags&(_ble_color_gflags_FgIndexed|_ble_color_gflags_FgMask))) &&
+      ((mask|=_ble_color_gflags_FgIndexed|_ble_color_gflags_FgMask))
+    ((gflags&(_ble_color_gflags_BgIndexed|_ble_color_gflags_BgMask))) &&
+      ((mask|=_ble_color_gflags_BgIndexed|_ble_color_gflags_BgMask))
+  fi
+  local i g ret
+  for ((i=beg;i<end;i++)); do
+    ble/highlight/layer/update/getg "$i"
+    ((g=g&~mask|gflags))
+    ble/color/g2sgr "$g"
+    builtin eval -- "$BUFF[$i]=\$ret\${_ble_highlight_layer_plain_buff[$i]}"
+  done
+}
+function ble/highlight/layer/buff#set-explicit-sgr {
+  local BUFF=$1 index=$2
+  builtin eval "((index<\${#$BUFF[@]}))" || return 1
+  local g; ble/highlight/layer/update/getg "$index"
+  local ret; ble/color/g2sgr "$g"
+  builtin eval "$BUFF[index]=\$ret\${_ble_highlight_layer_plain_buff[index]}"
+}
+ble/color/defface menu_filter_fixed bold
+ble/color/defface menu_filter_input fg=16,bg=229
+_ble_highlight_layer_menu_filter_buff=()
+_ble_highlight_layer_menu_filter_beg=
+_ble_highlight_layer_menu_filter_end=
+function ble/highlight/layer:menu_filter/update {
+  local text=$1 player=$2
+  local obeg=$_ble_highlight_layer_menu_filter_beg
+  local oend=$_ble_highlight_layer_menu_filter_end
+  if [[ $obeg ]] && ((DMIN>=0)); then
+    ((DMAX0<=obeg?(obeg+=DMAX-DMAX0):(DMIN<obeg&&(obeg=DMIN)),
+      DMAX0<=oend?(oend+=DMAX-DMAX0):(DMIN<oend&&(oend=DMIN))))
+  fi
+  _ble_highlight_layer_menu_filter_beg=$obeg
+  _ble_highlight_layer_menu_filter_end=$oend
+  local beg= end= ret
+  if [[ $bleopt_complete_menu_filter && $_ble_complete_menu_active && ${#_ble_complete_menu_icons[@]} -gt 0 ]]; then
+    ble/complete/menu-filter/.get-filter-target && local str=$ret &&
+      ble/complete/menu/get-active-range "$str" "$_ble_edit_ind" &&
+      [[ ${str:beg:end-beg} != "${_ble_complete_menu0_comp[2]}" ]] || beg= end=
+  fi
+  [[ ! $obeg && ! $beg ]] && return 0
+  ((PREV_UMIN<0)) && [[ $beg == "$obeg" && $end == "$oend" ]] &&
+    PREV_BUFF=_ble_highlight_layer_menu_filter_buff && return 0
+  local umin=$PREV_UMIN umax=$PREV_UMAX
+  if [[ $beg ]]; then
+    ble/color/face2g menu_filter_fixed; local gF=$ret
+    ble/color/face2g menu_filter_input; local gI=$ret
+    local mid=$_ble_complete_menu0_end
+    ((mid<beg?(mid=beg):(end<mid&&(mid=end))))
+    local buff_name=_ble_highlight_layer_menu_filter_buff
+    builtin eval "$buff_name=(\"\${$PREV_BUFF[@]}\")"
+    ble/highlight/layer/buff#operate-gflags "$buff_name" "$beg" "$mid" auto "$gF"
+    ble/highlight/layer/buff#operate-gflags "$buff_name" "$mid" "$end" auto "$gI"
+    ble/highlight/layer/buff#set-explicit-sgr "$buff_name" "$end"
+    PREV_BUFF=$buff_name
+    if [[ $obeg ]]; then :
+      ble/highlight/layer:region/.update-dirty-range "$beg" "$obeg"
+      ble/highlight/layer:region/.update-dirty-range "$end" "$oend"
+    else
+      ble/highlight/layer:region/.update-dirty-range "$beg" "$end"
+    fi
+  else
+    if [[ $obeg ]]; then
+      ble/highlight/layer:region/.update-dirty-range "$obeg" "$oend"
+    fi
+  fi
+  _ble_highlight_layer_menu_filter_beg=$beg
+  _ble_highlight_layer_menu_filter_end=$end
+  ((PREV_UMIN=umin,PREV_UMAX=umax))
+}
+function ble/highlight/layer:menu_filter/getg {
+  local index=$1
+  local obeg=$_ble_highlight_layer_menu_filter_beg
+  local oend=$_ble_highlight_layer_menu_filter_end
+  local mid=$_ble_complete_menu0_end
+  if [[ $obeg ]] && ((obeg<=index&&index<oend)); then
+    local ret
+    if ((index<mid)); then
+      ble/color/face2g menu_filter_fixed; local g0=$ret
+    else
+      ble/color/face2g menu_filter_input; local g0=$ret
+    fi
+    ble/highlight/layer/update/getg "$index"
+    ble/color/g.append "$g0"
+  fi
+}
+_ble_complete_menu_filter_enabled=
+if ble/is-function ble/util/idle.push-background; then
+  _ble_complete_menu_filter_enabled=1
+  ble/util/idle.push -n 9999 ble/complete/menu-filter.idle
+  ble/array#insert-before _ble_highlight_layer__list region menu_filter
+fi
+_ble_complete_menu_original=
+function ble/complete/menu-complete/select {
+  ble/complete/menu#select "$@"
+}
+function ble/complete/menu-complete/enter {
+  ((${#_ble_complete_menu_icons[@]}>=1)) || return 1
+  local beg end; ble/complete/menu/get-active-range || return 1
+  local opts=$1
+  _ble_edit_mark=$beg
+  _ble_edit_ind=$end
+  local comps_fixed=${_ble_complete_menu0_comp[6]}
+  if [[ $comps_fixed ]]; then
+    local comps_fixed_length=${comps_fixed%%:*}
+    ((_ble_edit_mark+=comps_fixed_length))
+  fi
+  _ble_complete_menu_original=${_ble_edit_str:beg:end-beg}
+  ble/complete/menu/redraw
+  if [[ :$opts: == *:backward:* ]]; then
+    ble/complete/menu#select $((${#_ble_complete_menu_items[@]}-1))
+  else
+    ble/complete/menu#select 0
+  fi
+  _ble_edit_mark_active=insert
+  ble/decode/keymap/push menu_complete
+  return 0
+}
+function ble/widget/menu_complete/exit {
+  local opts=$1
+  ble/decode/keymap/pop
+  if ((_ble_complete_menu_selected>=0)); then
+    local new=${_ble_edit_str:_ble_complete_menu0_beg:_ble_edit_ind-_ble_complete_menu0_beg}
+    local old=$_ble_complete_menu_original
+    local comp_text=${_ble_edit_str::_ble_complete_menu0_beg}$old${_ble_edit_str:_ble_edit_ind}
+    local insert_beg=$_ble_complete_menu0_beg
+    local insert_end=$((_ble_complete_menu0_beg+${#old}))
+    local insert=$new
+    local insert_flags=
+    local suffix=
+    if [[ :$opts: == *:complete:* ]]; then
+      local icon=${_ble_complete_menu_icons[_ble_complete_menu_selected-_ble_complete_menu_offset]}
+      local icon_data=${icon#*:} icon_fields
+      ble/string#split icon_fields , "${icon%%:*}"
+      local pack=${icon_data::icon_fields[4]}
+      local ACTION=${pack%%:*}
+      if ble/is-function ble/complete/action:"$ACTION"/complete; then
+        local COMP1=${_ble_complete_menu0_comp[0]}
+        local COMP2=${_ble_complete_menu0_comp[1]}
+        local COMPS=${_ble_complete_menu0_comp[2]}
+        local COMPV=${_ble_complete_menu0_comp[3]}
+        local comp_type=${_ble_complete_menu0_comp[4]}
+        local comps_flags=${_ble_complete_menu0_comp[5]}
+        local comps_fixed=${_ble_complete_menu0_comp[6]}
+        local "${_ble_complete_cand_varnames[@]/%/=}" # WA #D1570 checked
+        ble/complete/cand/unpack "$pack"
+        ble/complete/action:"$ACTION"/complete
+      fi
+      ble/complete/insert "$_ble_complete_menu0_beg" "$_ble_edit_ind" "$insert" "$suffix"
+    fi
+    blehook/invoke complete_insert
+  fi
+  ble/complete/menu/clear
+  _ble_edit_mark_active=
+  _ble_complete_menu_original=
+}
+function ble/widget/menu_complete/cancel {
+  ble/decode/keymap/pop
+  ble/complete/menu#select -1
+  _ble_edit_mark_active=
+  _ble_complete_menu_original=
+}
+function ble/widget/menu_complete/accept {
+  ble/widget/menu_complete/exit complete
+}
+function ble/widget/menu_complete/exit-default {
+  ble/widget/menu_complete/exit
+  ble/decode/widget/skip-lastwidget
+  ble/decode/widget/redispatch-by-keys "${KEYS[@]}"
+}
+function ble-decode/keymap:menu_complete/define {
+  ble-bind -f __default__ 'menu_complete/exit-default'
+  ble-bind -f __line_limit__ nop
+  ble-bind -f C-m         'menu_complete/accept'
+  ble-bind -f RET         'menu_complete/accept'
+  ble-bind -f C-g         'menu_complete/cancel'
+  ble-bind -f 'C-x C-g'   'menu_complete/cancel'
+  ble-bind -f 'C-M-g'     'menu_complete/cancel'
+  ble-bind -f C-f         'menu/forward-column'
+  ble-bind -f right       'menu/forward-column'
+  ble-bind -f C-i         'menu/forward cyclic'
+  ble-bind -f TAB         'menu/forward cyclic'
+  ble-bind -f C-b         'menu/backward-column'
+  ble-bind -f left        'menu/backward-column'
+  ble-bind -f C-S-i       'menu/backward cyclic'
+  ble-bind -f S-TAB       'menu/backward cyclic'
+  ble-bind -f C-n         'menu/forward-line'
+  ble-bind -f down        'menu/forward-line'
+  ble-bind -f C-p         'menu/backward-line'
+  ble-bind -f up          'menu/backward-line'
+  ble-bind -f prior       'menu/backward-page'
+  ble-bind -f next        'menu/forward-page'
+  ble-bind -f home        'menu/beginning-of-page'
+  ble-bind -f end         'menu/end-of-page'
+}
+function ble/complete/auto-complete/initialize {
+  local ret
+  ble-decode-kbd/generate-keycode auto_complete_enter
+  _ble_complete_KCODE_ENTER=$ret
+}
+ble/complete/auto-complete/initialize
+function ble/highlight/layer:region/mark:auto_complete/get-face {
+  face=auto_complete
+}
+_ble_complete_ac_type=
+_ble_complete_ac_comp1=
+_ble_complete_ac_cand=
+_ble_complete_ac_word=
+_ble_complete_ac_insert=
+_ble_complete_ac_suffix=
+function ble/complete/auto-complete/.search-history-light {
+  [[ $_ble_history_prefix ]] && return 1
+  local text=$1
+  [[ ! $text ]] && return 1
+  local wordbreaks="<>();&|:$_ble_term_IFS"
+  local word= expand
+  if [[ $text != [-0-9#?!]* ]]; then
+    word=${text%%[$wordbreaks]*}
+    command='!'$word ble/util/assign expand 'ble/edit/hist_expanded/.core' &>/dev/null || return 1
+    if [[ $expand == "$text"* ]]; then
+      ret=$expand
+      return 0
+    fi
+  fi
+  if [[ $word != "$text" ]]; then
+    local fragments; ble/string#split fragments '?' "$text"
+    local frag longest_fragments len=0; longest_fragments=('')
+    for frag in "${fragments[@]}"; do
+      local len1=${#frag}
+      ((len1>len&&(len=len1))) && longest_fragments=()
+      ((len1==len)) && ble/array#push longest_fragments "$frag"
+    done
+    for frag in "${longest_fragments[@]}"; do
+      command='!?'$frag ble/util/assign expand 'ble/edit/hist_expanded/.core' &>/dev/null || return 1
+      [[ $expand == "$text"* ]] || continue
+      ret=$expand
+      return 0
+    done
+  fi
+  return 1
+}
+_ble_complete_ac_history_needle=
+_ble_complete_ac_history_index=
+_ble_complete_ac_history_start=
+function ble/complete/auto-complete/.search-history-heavy {
+  local text=$1
+  local count; ble/history/get-count -v count
+  local start=$((count-1))
+  local index=$((count-1))
+  local needle=$text
+  ((start==_ble_complete_ac_history_start)) &&
+    [[ $needle == "$_ble_complete_ac_history_needle"* ]] &&
+    index=$_ble_complete_ac_history_index
+  local isearch_time=0 isearch_ntask=1
+  local isearch_opts=head
+  [[ :$comp_type: == *:sync:* ]] || isearch_opts=$isearch_opts:stop_check
+  ble/history/isearch-backward-blockwise "$isearch_opts"; local ext=$?
+  _ble_complete_ac_history_start=$start
+  _ble_complete_ac_history_index=$index
+  _ble_complete_ac_history_needle=$needle
+  ((ext)) && return "$ext"
+  ble/history/get-edited-entry -v ret "$index"
+  return 0
+}
+function ble/complete/auto-complete/.enter-auto-complete-mode {
+  _ble_complete_ac_type=$type
+  _ble_complete_ac_comp1=$COMP1
+  _ble_complete_ac_cand=$cand
+  _ble_complete_ac_word=$word
+  _ble_complete_ac_insert=$insert
+  _ble_complete_ac_suffix=$suffix
+  _ble_edit_mark_active=auto_complete
+  ble/decode/keymap/push auto_complete
+  ble-decode-key "$_ble_complete_KCODE_ENTER" # dummy key input to record keyboard macros
+}
+function ble/complete/auto-complete/.insert {
+  local insert=$1
+  ble-edit/content/replace-limited "$_ble_edit_ind" "$_ble_edit_ind" "$insert" nobell
+  ((_ble_edit_mark=_ble_edit_ind+${#insert}))
+}
+function ble/complete/auto-complete/.check-history {
+  local opts=$1
+  local searcher=.search-history-heavy
+  [[ :$opts: == *:light:*  ]] && searcher=.search-history-light
+  local ret
+  ((_ble_edit_ind==${#_ble_edit_str})) || return 1
+  ble/complete/auto-complete/"$searcher" "$_ble_edit_str" || return "$?" # 0, 1 or 148
+  local word=$ret cand=
+  local COMP1=0 COMPS=$_ble_edit_str
+  [[ $word == "$COMPS" ]] && return 1
+  local insert=$word suffix=
+  local type=h
+  ble/complete/auto-complete/.insert "${insert:${#COMPS}}"
+  ble/complete/auto-complete/.enter-auto-complete-mode
+  return 0
+}
+function ble/complete/auto-complete/.check-context {
+  local sources
+  ble/complete/context:syntax/generate-sources "$comp_text" "$comp_index" &&
+    ble/complete/context/filter-prefix-sources || return 1
+  local bleopt_complete_contract_function_names=
+  local bleopt_complete_menu_style=$bleopt_complete_menu_style # source local settings
+  ((bleopt_complete_polling_cycle>25)) &&
+    local bleopt_complete_polling_cycle=25
+  local COMP1 COMP2 COMPS COMPV
+  local comps_flags comps_fixed
+  local cand_count cand_cand cand_word cand_pack
+  local cand_limit_reached=
+  ble/complete/candidates/generate; local ext=$?
+  [[ $COMPV ]] || return 1
+  ((ext)) && return "$ext"
+  ((cand_count)) || return 1
+  local word=${cand_word[0]} cand=${cand_cand[0]}
+  [[ $word == "$COMPS" ]] && return 1
+  local insert=$word suffix=
+  local ACTION=${cand_pack[0]%%:*}
+  if ble/is-function ble/complete/action:"$ACTION"/complete; then
+    local "${_ble_complete_cand_varnames[@]/%/=}" # WA #D1570 checked
+    ble/complete/cand/unpack "${cand_pack[0]}"
+    ble/complete/action:"$ACTION"/complete
+  fi
+  local type=
+  if [[ $insert == "$COMPS"* ]]; then
+    [[ ${comp_text:COMP1} == "$insert"* ]] && return 1
+    type=c
+    ble/complete/auto-complete/.insert "${insert:${#COMPS}}"
+  else
+    case :$comp_type: in
+    (*:a:*) type=a ;;
+    (*:m:*) type=m ;;
+    (*:A:*) type=A ;;
+    (*)   type=r ;;
+    esac
+    ble/complete/auto-complete/.insert " [$insert] "
+  fi
+  ble/complete/auto-complete/.enter-auto-complete-mode
+  return 0
+}
+function ble/complete/auto-complete.impl {
+  local opts=$1
+  local comp_type=auto
+  [[ :$opts: == *:sync:* ]] && comp_type=${comp_type}:sync
+  local comp_text=$_ble_edit_str comp_index=$_ble_edit_ind
+  [[ $comp_text ]] || return 0
+  if local beg end; ble/complete/menu/get-active-range "$_ble_edit_str" "$_ble_edit_ind"; then
+    ((_ble_edit_ind<end)) && return 0
+  fi
+  if [[ $bleopt_complete_auto_history ]]; then
+    ble/complete/auto-complete/.check-history light; local ext=$?
+    ((ext==0||ext==148)) && return "$ext"
+    [[ $_ble_history_prefix || $_ble_history_load_done ]] &&
+      ble/complete/auto-complete/.check-history; local ext=$?
+    ((ext==0||ext==148)) && return "$ext"
+  fi
+  ble/complete/auto-complete/.check-context
+}
+function ble/complete/auto-complete.idle {
+  ble/util/idle.wait-user-input
+  [[ $bleopt_complete_auto_complete ]] || return 1
+  [[ $_ble_decode_keymap == emacs || $_ble_decode_keymap == vi_[ic]map ]] || return 0
+  case $_ble_decode_widget_last in
+  (ble/widget/self-insert) ;;
+  (ble/widget/complete) ;;
+  (ble/widget/vi_imap/complete) ;;
+  (*) return 0 ;;
+  esac
+  [[ $_ble_edit_str ]] || return 0
+  ble/util/idle.sleep-until $((_idle_clock_start+bleopt_complete_auto_delay)) checked && return 0
+  ble/complete/auto-complete.impl
+}
+function ble/complete/auto-menu.idle {
+  ble/util/idle.wait-user-input
+  [[ $_ble_complete_menu_active ]] && return 0
+  ((bleopt_complete_auto_menu>0)) || return 1
+  case $_ble_decode_widget_last in
+  (ble/widget/self-insert) ;;
+  (ble/widget/complete) ;;
+  (ble/widget/vi_imap/complete) ;;
+  (ble/widget/auto_complete/self-insert) ;;
+  (*) return 0 ;;
+  esac
+  [[ $_ble_edit_str ]] || return 0
+  local until=$((_idle_clock_start+bleopt_complete_auto_menu))
+  ble/util/idle.sleep-until "$until" checked && return 0
+  ble/widget/complete auto_menu:show_menu:no-empty:no-bell
+}
+ble/function#try ble/util/idle.push-background ble/complete/auto-complete.idle
+ble/function#try ble/util/idle.push-background ble/complete/auto-menu.idle
+function ble/widget/auto-complete-enter {
+  ble/complete/auto-complete.impl sync
+}
+function ble/widget/auto_complete/cancel {
+  ble/decode/keymap/pop
+  ble-edit/content/replace "$_ble_edit_ind" "$_ble_edit_mark" ''
+  _ble_edit_mark=$_ble_edit_ind
+  _ble_edit_mark_active=
+  _ble_complete_ac_insert=
+  _ble_complete_ac_suffix=
+}
+function ble/widget/auto_complete/insert {
+  ble/decode/keymap/pop
+  ble-edit/content/replace "$_ble_edit_ind" "$_ble_edit_mark" ''
+  _ble_edit_mark=$_ble_edit_ind
+  local comp_text=$_ble_edit_str
+  local insert_beg=$_ble_complete_ac_comp1
+  local insert_end=$_ble_edit_ind
+  local insert=$_ble_complete_ac_insert
+  local suffix=$_ble_complete_ac_suffix
+  ble/complete/insert "$insert_beg" "$insert_end" "$insert" "$suffix"
+  blehook/invoke complete_insert
+  _ble_edit_mark_active=
+  _ble_complete_ac_insert=
+  _ble_complete_ac_suffix=
+  ble/complete/menu/clear
+  ble-edit/content/clear-arg
+  return 0
+}
+function ble/widget/auto_complete/cancel-default {
+  ble/widget/auto_complete/cancel
+  ble/decode/widget/skip-lastwidget
+  ble/decode/widget/redispatch-by-keys "${KEYS[@]}"
+}
+function ble/widget/auto_complete/self-insert {
+  local code; ble/widget/self-insert/.get-code
+  ((code==0)) && return 0
+  local ret
+  ble/util/c2s "$code"; local ins=$ret
+  local comps_cur=${_ble_edit_str:_ble_complete_ac_comp1:_ble_edit_ind-_ble_complete_ac_comp1}
+  local comps_new=$comps_cur$ins
+  local processed=
+  if [[ $_ble_complete_ac_type == [ch] ]]; then
+    if [[ $_ble_complete_ac_word == "$comps_new"* ]]; then
+      ((_ble_edit_ind+=${#ins}))
+      [[ ! $_ble_complete_ac_word ]] && ble/widget/auto_complete/cancel
+      processed=1
+    fi
+  elif [[ $_ble_complete_ac_type == [rmaA] && $ins != [{,}] ]]; then
+    if local ret simple_flags simple_ibrace; ble/syntax:bash/simple-word/reconstruct-incomplete-word "$comps_new"; then
+      if ble/complete/source/eval-simple-word "$ret" single && local compv_new=$ret; then
+        local filter_type=head
+        case $_ble_complete_ac_type in
+        (*m*) filter_type=substr  ;;
+        (*a*) filter_type=hsubseq ;;
+        (*A*) filter_type=subseq  ;;
+        esac
+        local comps_fixed=
+        local comp_filter_type
+        local comp_filter_pattern
+        ble/complete/candidates/filter#init "$filter_type" "$compv_new"
+        if ble/complete/candidates/filter#test "$_ble_complete_ac_cand"; then
+          local insert; ble-edit/content/replace-limited "$_ble_edit_ind" "$_ble_edit_ind" "$ins"
+          ((_ble_edit_ind+=${#insert},_ble_edit_mark+=${#insert}))
+          [[ $_ble_complete_ac_cand == "$compv_new" ]] &&
+            ble/widget/auto_complete/cancel
+          processed=1
+        fi
+      fi
+    fi
+  fi
+  if [[ $processed ]]; then
+    local comp_text= insert_beg=0 insert_end=0 insert=$ins suffix=
+    blehook/invoke complete_insert
+    return 0
+  else
+    ble/widget/auto_complete/cancel
+    ble/decode/widget/skip-lastwidget
+    ble/decode/widget/redispatch-by-keys "${KEYS[@]}"
+  fi
+}
+function ble/widget/auto_complete/insert-on-end {
+  if ((_ble_edit_mark==${#_ble_edit_str})); then
+    ble/widget/auto_complete/insert
+  else
+    ble/widget/auto_complete/cancel-default
+  fi
+}
+function ble/widget/auto_complete/insert-word {
+  local breaks=${bleopt_complete_auto_wordbreaks:-$_ble_term_IFS}
+  local rex='^['$breaks']*([^'$breaks']+['$breaks']*)?'
+  if [[ $_ble_complete_ac_type == [ch] ]]; then
+    local ins=${_ble_edit_str:_ble_edit_ind:_ble_edit_mark-_ble_edit_ind}
+    [[ $ins =~ $rex ]]
+    if [[ $BASH_REMATCH == "$ins" ]]; then
+      ble/widget/auto_complete/insert
+      return 0
+    else
+      local ins=$BASH_REMATCH
+      ((_ble_edit_ind+=${#ins}))
+      local comp_text=$_ble_edit_str
+      local insert_beg=$_ble_complete_ac_comp1
+      local insert_end=$_ble_edit_ind
+      local insert=${_ble_edit_str:insert_beg:insert_end-insert_beg}$ins
+      local suffix=
+      blehook/invoke complete_insert
+      return 0
+    fi
+  elif [[ $_ble_complete_ac_type == [rmaA] ]]; then
+    local ins=$_ble_complete_ac_insert
+    [[ $ins =~ $rex ]]
+    if [[ $BASH_REMATCH == "$ins" ]]; then
+      ble/widget/auto_complete/insert
+      return 0
+    else
+      local ins=$BASH_REMATCH
+      _ble_complete_ac_type=c
+      ble-edit/content/replace "$_ble_complete_ac_comp1" "$_ble_edit_mark" "$_ble_complete_ac_insert"
+      ((_ble_edit_ind=_ble_complete_ac_comp1+${#ins},
+        _ble_edit_mark=_ble_complete_ac_comp1+${#_ble_complete_ac_insert}))
+      local comp_text=$_ble_edit_str
+      local insert_beg=$_ble_complete_ac_comp1
+      local insert_end=$_ble_edit_ind
+      local insert=$ins
+      local suffix=
+      blehook/invoke complete_insert
+      return 0
+    fi
+  fi
+  return 1
+}
+function ble/widget/auto_complete/accept-line {
+  ble/widget/auto_complete/insert
+  ble-decode-key 13
+}
+function ble/widget/auto_complete/notify-enter {
+  ble/decode/widget/skip-lastwidget
+}
+function ble-decode/keymap:auto_complete/define {
+  ble-bind -f __defchar__ auto_complete/self-insert
+  ble-bind -f __default__ auto_complete/cancel-default
+  ble-bind -f __line_limit__ nop
+  ble-bind -f 'C-g'       auto_complete/cancel
+  ble-bind -f 'C-x C-g'   auto_complete/cancel
+  ble-bind -f 'C-M-g'     auto_complete/cancel
+  ble-bind -f S-RET       auto_complete/insert
+  ble-bind -f S-C-m       auto_complete/insert
+  ble-bind -f C-f         auto_complete/insert-on-end
+  ble-bind -f right       auto_complete/insert-on-end
+  ble-bind -f C-e         auto_complete/insert-on-end
+  ble-bind -f end         auto_complete/insert-on-end
+  ble-bind -f M-f         auto_complete/insert-word
+  ble-bind -f M-right     auto_complete/insert-word
+  ble-bind -f C-j         auto_complete/accept-line
+  ble-bind -f C-RET       auto_complete/accept-line
+  ble-bind -f auto_complete_enter auto_complete/notify-enter
+}
+function ble/complete/sabbrev/.initialize-print {
+  sgr0= sgr1= sgr2= sgr3= sgro=
+  if [[ $flags == *c* || $flags != *n* && -t 1 ]]; then
+    local ret
+    ble/color/face2sgr command_function; sgr1=$ret
+    ble/color/face2sgr syntax_varname; sgr2=$ret
+    ble/color/face2sgr syntax_quoted; sgr3=$ret
+    ble/color/face2sgr argument_option; sgro=$ret
+    sgr0=$_ble_term_sgr0
+  fi
+}
+function ble/complete/sabbrev/.print-definition {
+  local key=$1 type=${2%%:*} value=${2#*:}
+  local option=
+  [[ $type == m ]] && option=$sgro'-m'$sgr0' '
+  local ret
+  ble/string#quote-word "$key" quote-empty:sgrq="$sgr3":sgr0="$sgr2"
+  key=$sgr2$ret$sgr0
+  ble/string#quote-word "$value" sgrq="$sgr3":sgr0="$sgr0"
+  value=$ret
+  ble/util/print "${sgr1}ble-sabbrev$sgr0 $option$key=$value"
+}
+function ble/complete/sabbrev/register {
+  local key=$1 value=$2
+  ble/gdict#set _ble_complete_sabbrev "$key" "$value"
+}
+function ble/complete/sabbrev/list {
+  local keys ret; keys=("$@")
+  if ((${#keys[@]}==0)); then
+    ble/gdict#keys _ble_complete_sabbrev
+    keys=("${ret[@]}")
+    ((${#keys[@]})) || return 0
+  fi
+  local sgr0 sgr1 sgr2 sgr3 sgro
+  ble/complete/sabbrev/.initialize-print
+  local key ext=0
+  for key in "${keys[@]}"; do
+    if ble/gdict#get _ble_complete_sabbrev "$key"; then
+      ble/complete/sabbrev/.print-definition "$key" "$ret"
+    else
+      ble/util/print "ble-sabbrev: $key: not found." >&2
+      ext=1
+    fi
+  done
+  return "$ext"
+}
+function ble/complete/sabbrev/reset {
+  if (($#)); then
+    local key
+    for key; do
+      ble/gdict#unset _ble_complete_sabbrev "$key"
+    done
+  else
+    ble/gdict#clear _ble_complete_sabbrev
+  fi
+  return 0
+}
+function ble/complete/sabbrev/get {
+  local key=$1
+  ble/gdict#get _ble_complete_sabbrev "$key"
+}
+function ble/complete/sabbrev/get-keys {
+  local ret
+  ble/gdict#keys _ble_complete_sabbrev
+  keys=("${ret[@]}")
+}
+function ble/complete/sabbrev/read-arguments {
+  while (($#)); do
+    local arg=$1; shift
+    if [[ $arg == ?*=* ]]; then
+      ble/array#push specs "s:$arg"
+    else
+      case $arg in
+      (--help)
+        flags=H$flags ;;
+      (--reset)
+        flags=r$flags
+      (--color|--color=always)
+        flags=c${flags//[cn]} ;;
+      (--color=never)
+        flags=n${flags//[cn]} ;;
+      (--color=auto)
+        flags=${flags//[cn]} ;;
+      (-*)
+        local i n=${#arg} c
+        for ((i=1;i<n;i++)); do
+          c=${arg:i:1}
+          case $c in
+          (m)
+            if ((!$#)); then
+              ble/util/print "ble-sabbrev: option argument for '-$c' is missing" >&2
+              flags=E$flags
+            elif [[ $1 != ?*=* ]]; then
+              ble/util/print "ble-sabbrev: invalid option argument '-$c $1' (expected form: '-$c key=value')" >&2
+              flags=E$flags
+            else
+              ble/array#push specs "$c:$1"; shift
+            fi ;;
+          (r)
+            flags=r$flags ;;
+          (*)
+            ble/util/print "ble-sabbrev: unknown option '-$c'." >&2
+            flags=E$flags ;;
+          esac
+        done ;;
+      (*)
+        ble/array#push print "$arg" ;;
+      esac
+    fi
+  done
+}
+function ble-sabbrev {
+  local -a specs=() print=()
+  local flags=
+  ble/complete/sabbrev/read-arguments "$@"
+  if [[ $flags == *H* || $flags == *E* ]]; then
+    [[ $flags == *E* ]] && ble/util/print
+    ble/util/print-lines \
+      'usage: ble-sabbrev [KEY=VALUE|-m KEY=FUNCTION]...' \
+      'usage: ble-sabbrev [-r|--reset] [KEY...]' \
+      'usage: ble-sabbrev --help' \
+      '     Register sabbrev expansion.'
+    [[ ! $flags == *E* ]]; return "$?"
+  fi
+  local ext=0
+  if ((${#specs[@]}==0||${#print[@]})); then
+    if [[ $flags == *r* ]]; then
+      ble/complete/sabbrev/reset "${print[@]}"
+    else
+      ble/complete/sabbrev/list "${print[@]}"
+    fi || ext=$?
+  fi
+  local spec key type value
+  for spec in "${specs[@]}"; do
+    type=${spec::1} spec=${spec:2}
+    key=${spec%%=*} value=${spec#*=}
+    ble/complete/sabbrev/register "$key" "$type:$value"
+  done
+  return "$ext"
+}
+function ble/complete/sabbrev/expand {
+  local sources comp_index=$_ble_edit_ind comp_text=$_ble_edit_str
+  ble/complete/context:syntax/generate-sources
+  local src asrc pos=$comp_index
+  for src in "${sources[@]}"; do
+    ble/string#split-words asrc "$src"
+    case ${asrc[0]} in
+    (file|command|argument|variable:w|wordlist:*|sabbrev)
+      ((asrc[1]<pos)) && pos=${asrc[1]} ;;
+    esac
+  done
+  ((pos<comp_index)) || return 1
+  local key=${_ble_edit_str:pos:comp_index-pos}
+  local ret; ble/complete/sabbrev/get "$key" || return 1
+  local type=${ret%%:*} value=${ret#*:}
+  case $type in
+  (s)
+    ble/widget/.replace-range "$pos" "$comp_index" "$value"
+    ((_ble_edit_ind=pos+${#value})) ;;
+  (m)
+    local comp_type= comps_flags= comps_fixed=
+    local COMP1=$pos COMP2=$pos COMPS=$key COMPV=
+    ble/complete/candidates/comp_type#read-rl-variables
+    local flag_force_fignore=
+    local flag_source_filter=1
+    local cand_count cand_cand cand_word cand_pack
+    ble/complete/candidates/clear
+    local COMP_PREFIX=
+    local bleopt_sabbrev_menu_style=$bleopt_complete_menu_style
+    local bleopt_sabbrev_menu_opts=
+    local -a COMPREPLY=()
+    builtin eval -- "$value"
+    local cand action=word "${_ble_complete_yield_varnames[@]/%/=}" # WA #D1570 safe
+    ble/complete/cand/yield.initialize "$action"
+    for cand in "${COMPREPLY[@]}"; do
+      ble/complete/cand/yield "$action" "$cand" ""
+    done
+    if ((cand_count==0)); then
+      return 1
+    elif ((cand_count==1)); then
+      local value=${cand_word[0]}
+      ble/widget/.replace-range "$pos" "$comp_index" "$value"
+      ((_ble_edit_ind=pos+${#value}))
+      return 0
+    fi
+    ble/widget/.replace-range "$pos" "$comp_index" ''
+    local bleopt_complete_menu_style=$bleopt_sabbrev_menu_style
+    local menu_common_part=
+    ble/complete/menu/show || return "$?"
+    [[ :$bleopt_sabbrev_menu_opts: == *:enter_menu:* ]] &&
+      ble/complete/menu-complete/enter
+    return 147 ;;
+  (*) return 1 ;;
+  esac
+  return 0
+}
+function ble/widget/sabbrev-expand {
+  if ! ble/complete/sabbrev/expand; then
+    ble/widget/.bell
+    return 1
+  fi
+}
+function ble/complete/action:sabbrev/initialize { CAND=$value; }
+function ble/complete/action:sabbrev/complete { :; }
+function ble/complete/action:sabbrev/init-menu-item {
+  local ret; ble/color/face2g command_alias; g=$ret
+  show=$INSERT
+}
+function ble/complete/action:sabbrev/get-desc {
+  local ret; ble/complete/sabbrev/get "$INSERT"
+  desc="$desc_sgrt(sabbrev)$desc_sgr0 $ret"
+}
+function ble/complete/source:sabbrev {
+  local keys; ble/complete/sabbrev/get-keys
+  local filter_type=$comp_filter_type
+  [[ $filter_type == none ]] && filter_type=head
+  local comps_fixed=
+  local comp_filter_type
+  local comp_filter_pattern
+  ble/complete/candidates/filter#init "$filter_type" "$COMPS"
+  local cand action=sabbrev "${_ble_complete_yield_varnames[@]/%/=}" # WA #D1570 safe
+  ble/complete/cand/yield.initialize "$action"
+  for cand in "${keys[@]}"; do
+    ble/complete/candidates/filter#test "$cand" || continue
+    local ret simple_flags simple_ibrace
+    ble/syntax:bash/simple-word/reconstruct-incomplete-word "$cand" &&
+      ble/complete/source/eval-simple-word "$ret" single || continue
+    local value=$ret # referenced in "ble/complete/action:sabbrev/initialize"
+    local flag_source_filter=1
+    ble/complete/cand/yield "$action" "$cand"
+  done
+}
+_ble_complete_dabbrev_original=
+_ble_complete_dabbrev_regex1=
+_ble_complete_dabbrev_regex2=
+_ble_complete_dabbrev_index=
+_ble_complete_dabbrev_pos=
+_ble_complete_dabbrev_stack=()
+function ble/complete/dabbrev/.show-status.fib {
+  local index='!'$((_ble_complete_dabbrev_index+1))
+  local nmatch=${#_ble_complete_dabbrev_stack[@]}
+  local needle=$_ble_complete_dabbrev_original
+  local text="(dabbrev#$nmatch: << $index) \`$needle'"
+  local pos=$1
+  if [[ $pos ]]; then
+    local count; ble/history/get-count
+    local percentage=$((count?pos*1000/count:1000))
+    text="$text searching... @$pos ($((percentage/10)).$((percentage%10))%)"
+  fi
+  ((fib_ntask)) && text="$text *$fib_ntask"
+  ble/edit/info/show text "$text"
+}
+function ble/complete/dabbrev/show-status {
+  local fib_ntask=${#_ble_util_fiberchain[@]}
+  ble/complete/dabbrev/.show-status.fib
+}
+function ble/complete/dabbrev/erase-status {
+  ble/edit/info/default
+}
+function ble/complete/dabbrev/initialize-variables {
+  local wordbreaks; ble/complete/get-wordbreaks
+  _ble_complete_dabbrev_wordbreaks=$wordbreaks
+  local left=${_ble_edit_str::_ble_edit_ind}
+  local original=${left##*[$wordbreaks]}
+  local p1=$((_ble_edit_ind-${#original})) p2=$_ble_edit_ind
+  _ble_edit_mark=$p1
+  _ble_edit_ind=$p2
+  _ble_complete_dabbrev_original=$original
+  local ret; ble/string#escape-for-extended-regex "$original"
+  local needle='(^|['$wordbreaks'])'$ret
+  _ble_complete_dabbrev_regex1=$needle
+  _ble_complete_dabbrev_regex2='('$needle'[^'$wordbreaks']*).*'
+  local index; ble/history/get-index
+  _ble_complete_dabbrev_index=$index
+  _ble_complete_dabbrev_pos=${#_ble_edit_str}
+  _ble_complete_dabbrev_stack=()
+}
+function ble/complete/dabbrev/reset {
+  local original=$_ble_complete_dabbrev_original
+  ble-edit/content/replace "$_ble_edit_mark" "$_ble_edit_ind" "$original"
+  ((_ble_edit_ind=_ble_edit_mark+${#original}))
+  _ble_edit_mark_active=
+}
+function ble/complete/dabbrev/search-in-history-entry {
+  local line=$1 index=$2
+  local index_editing; ble/history/get-index -v index_editing
+  if ((index!=index_editing)); then
+    local pos=$dabbrev_pos
+    while [[ ${line:pos} && ${line:pos} =~ $_ble_complete_dabbrev_regex2 ]]; do
+      local rematch1=${BASH_REMATCH[1]} rematch2=${BASH_REMATCH[2]}
+      local match=${rematch1:${#rematch2}}
+      if [[ $match && $match != "$dabbrev_current_match" ]]; then
+        dabbrev_match=$match
+        dabbrev_match_pos=$((${#line}-${#BASH_REMATCH}+${#match}))
+        return 0
+      else
+        ((pos++))
+      fi
+    done
+  fi
+  return 1
+}
+function ble/complete/dabbrev/.search.fib {
+  if [[ ! $fib_suspend ]]; then
+    local start=$_ble_complete_dabbrev_index
+    local index=$_ble_complete_dabbrev_index
+    local pos=$_ble_complete_dabbrev_pos
+    ((--start>=0)) || ble/history/get-count -v start
+  else
+    local start index pos; builtin eval -- "$fib_suspend"
+    fib_suspend=
+  fi
+  local dabbrev_match=
+  local dabbrev_pos=$pos
+  local dabbrev_current_match=${_ble_edit_str:_ble_edit_mark:_ble_edit_ind-_ble_edit_mark}
+  local line; ble/history/get-edited-entry -v line "$index"
+  if ! ble/complete/dabbrev/search-in-history-entry "$line" "$index"; then
+    ((index--,dabbrev_pos=0))
+    local isearch_time=0
+    local isearch_opts=stop_check:cyclic
+    isearch_opts=$isearch_opts:condition
+    local dabbrev_original=$_ble_complete_dabbrev_original
+    local dabbrev_regex1=$_ble_complete_dabbrev_regex1
+    local needle='[[ $LINE =~ $dabbrev_regex1 ]] && ble/complete/dabbrev/search-in-history-entry "$LINE" "$INDEX"'
+    [[ $dabbrev_original ]] && needle='[[ $LINE == *"$dabbrev_original"* ]] && '$needle
+    isearch_opts=$isearch_opts:progress
+    local isearch_progress_callback=ble/complete/dabbrev/.show-status.fib
+    ble/history/isearch-backward-blockwise "$isearch_opts"; local ext=$?
+    ((ext==148)) && fib_suspend="start=$start index=$index pos=$pos"
+    if ((ext)); then
+      if ((${#_ble_complete_dabbrev_stack[@]})); then
+        ble/widget/.bell # 周回したので鳴らす
+        return 0
+      else
+        return "$ext"
+      fi
+    fi
+  fi
+  local rec=$_ble_complete_dabbrev_index,$_ble_complete_dabbrev_pos,$_ble_edit_ind,$_ble_edit_mark
+  ble/array#push _ble_complete_dabbrev_stack "$rec:$_ble_edit_str"
+  local insert; ble-edit/content/replace-limited "$_ble_edit_mark" "$_ble_edit_ind" "$dabbrev_match"
+  ((_ble_edit_ind=_ble_edit_mark+${#insert}))
+  ((index>_ble_complete_dabbrev_index)) &&
+    ble/widget/.bell # 周回
+  _ble_complete_dabbrev_index=$index
+  _ble_complete_dabbrev_pos=$dabbrev_match_pos
+  ble/textarea#redraw
+}
+function ble/complete/dabbrev/next.fib {
+  ble/complete/dabbrev/.search.fib; local ext=$?
+  if ((ext==0)); then
+    _ble_edit_mark_active=insert
+    ble/complete/dabbrev/.show-status.fib
+  elif ((ext==148)); then
+    ble/complete/dabbrev/.show-status.fib
+  else
+    ble/widget/.bell
+    ble/widget/dabbrev/exit
+    ble/complete/dabbrev/reset
+    fib_kill=1
+  fi
+  return "$ext"
+}
+function ble/widget/dabbrev-expand {
+  ble/complete/dabbrev/initialize-variables
+  ble/decode/keymap/push dabbrev
+  ble/util/fiberchain#initialize ble/complete/dabbrev
+  ble/util/fiberchain#push next
+  ble/util/fiberchain#resume
+}
+function ble/widget/dabbrev/next {
+  ble/util/fiberchain#push next
+  ble/util/fiberchain#resume
+}
+function ble/widget/dabbrev/prev {
+  if ((${#_ble_util_fiberchain[@]})); then
+    local ret; ble/array#pop _ble_util_fiberchain
+    if ((${#_ble_util_fiberchain[@]})); then
+      ble/util/fiberchain#resume
+    else
+      ble/complete/dabbrev/show-status
+    fi
+  elif ((${#_ble_complete_dabbrev_stack[@]})); then
+    local ret; ble/array#pop _ble_complete_dabbrev_stack
+    local rec str=${ret#*:}
+    ble/string#split rec , "${ret%%:*}"
+    ble-edit/content/reset-and-check-dirty "$str"
+    _ble_edit_ind=${rec[2]}
+    _ble_edit_mark=${rec[3]}
+    _ble_complete_dabbrev_index=${rec[0]}
+    _ble_complete_dabbrev_pos=${rec[1]}
+    ble/complete/dabbrev/show-status
+  else
+    ble/widget/.bell
+    return 1
+  fi
+}
+function ble/widget/dabbrev/cancel {
+  if ((${#_ble_util_fiberchain[@]})); then
+    ble/util/fiberchain#clear
+    ble/complete/dabbrev/show-status
+  else
+    ble/widget/dabbrev/exit
+    ble/complete/dabbrev/reset
+  fi
+}
+function ble/widget/dabbrev/exit {
+  ble/decode/keymap/pop
+  _ble_edit_mark_active=
+  ble/complete/dabbrev/erase-status
+}
+function ble/widget/dabbrev/exit-default {
+  ble/widget/dabbrev/exit
+  ble/decode/widget/skip-lastwidget
+  ble/decode/widget/redispatch-by-keys "${KEYS[@]}"
+}
+function ble/widget/dabbrev/accept-line {
+  ble/widget/dabbrev/exit
+  ble-decode-key 13
+}
+function ble-decode/keymap:dabbrev/define {
+  ble-bind -f __default__ 'dabbrev/exit-default'
+  ble-bind -f __line_limit__ nop
+  ble-bind -f 'C-g'       'dabbrev/cancel'
+  ble-bind -f 'C-x C-g'   'dabbrev/cancel'
+  ble-bind -f 'C-M-g'     'dabbrev/cancel'
+  ble-bind -f C-r         'dabbrev/next'
+  ble-bind -f C-s         'dabbrev/prev'
+  ble-bind -f RET         'dabbrev/exit'
+  ble-bind -f C-m         'dabbrev/exit'
+  ble-bind -f C-RET       'dabbrev/accept-line'
+  ble-bind -f C-j         'dabbrev/accept-line'
+}
+function ble/complete/action:cdpath/initialize {
+  DATA=$cdpath_basedir
+  ble/complete/action:file/initialize
+}
+function ble/complete/action:cdpath/complete {
+  CAND=$DATA$CAND ble/complete/action:file/complete
+}
+function ble/complete/action:cdpath/init-menu-item {
+  ble/color/face2g cmdinfo_cd_cdpath; g=$ret
+  if [[ :$comp_type: == *:vstat:* ]]; then
+    if [[ -h $CAND ]]; then
+      suffix='@'
+    elif [[ -d $CAND ]]; then
+      suffix='/'
+    fi
+  fi
+}
+function ble/complete/action:cdpath/get-desc {
+  local sgr0=$_ble_term_sgr0 sgr1= sgr2=
+  local g ret g1 g2
+  ble/syntax/highlight/getg-from-filename "$DATA$CAND"; g1=$g
+  [[ $g1 ]] || { ble/color/face2g filename_warning; g1=$ret; }
+  ((g2=g1^_ble_color_gflags_Revert))
+  ble/color/g2sgr "$g1"; sgr1=$ret
+  ble/color/g2sgr "$g2"; sgr2=$ret
+  ble/string#escape-for-display "$DATA$CAND" sgr1="$sgr2":sgr0="$sgr1"
+  local filename=$sgr1$ret$sgr0
+  CAND=$DATA$CAND ble/complete/action:file/get-desc
+  desc="CDPATH $filename ($desc)"
+}
+function ble/cmdinfo/complete:cd/.impl {
+  local type=$1
+  [[ $comps_flags == *v* ]] || return 1
+  if [[ $COMPV == -* ]]; then
+    local action=word
+    case $type in
+    (pushd)
+      if [[ $COMPV == - || $COMPV == -n ]]; then
+        local "${_ble_complete_yield_varnames[@]/%/=}" # WA #D1570 safe
+        ble/complete/cand/yield.initialize "$action"
+        ble/complete/cand/yield "$action" -n
+      fi ;;
+    (*)
+      COMP_PREFIX=$COMPV
+      local -a list=()
+      local "${_ble_complete_yield_varnames[@]/%/=}" # WA #D1570 safe
+      ble/complete/cand/yield.initialize "$action"
+      [[ $COMPV == -* ]] && ble/complete/cand/yield "$action" "${COMPV}"
+      [[ $COMPV != *L* ]] && ble/complete/cand/yield "$action" "${COMPV}L"
+      [[ $COMPV != *P* ]] && ble/complete/cand/yield "$action" "${COMPV}P"
+      ((_ble_bash>=40200)) && [[ $COMPV != *e* ]] && ble/complete/cand/yield "$action" "${COMPV}e"
+      ((_ble_bash>=40300)) && [[ $COMPV != *@* ]] && ble/complete/cand/yield "$action" "${COMPV}@" ;;
+    esac
+    return 0
+  fi
+  [[ :$comp_type: != *:[maA]:* && $COMPV =~ ^.+/ ]] && COMP_PREFIX=${BASH_REMATCH[0]}
+  [[ :$comp_type: == *:[maA]:* && ! $COMPV ]] && return 1
+  if [[ ! $CDPATH ]]; then
+    ble/complete/source:dir
+    return "$?"
+  fi
+  ble/complete/source:tilde; local ext=$?
+  ((ext==148||ext==0)) && return "$ext"
+  local is_pwd_visited= is_cdpath_generated=
+  "${_ble_util_set_declare[@]//NAME/visited}" # WA #D1570 checked
+  local name names; ble/string#split names : "$CDPATH"
+  for name in "${names[@]}"; do
+    [[ $name ]] || continue
+    name=${name%/}/
+    local action=cdpath
+    [[ ${name%/} == . || ${name%/} == "${PWD%/}" ]] &&
+      is_pwd_visited=1 action=file
+    local -a candidates=()
+    local ret cand
+    ble/complete/source:file/.construct-pathname-pattern "$COMPV"
+    ble/complete/util/eval-pathname-expansion "$name$ret"; (($?==148)) && return 148
+    ble/complete/source/test-limit ${#ret[@]} || return 1
+    for cand in "${ret[@]}"; do
+      ((cand_iloop++%bleopt_complete_polling_cycle==0)) &&
+        ble/complete/check-cancel && return 148
+      [[ $cand && -d $cand ]] || continue
+      [[ $cand == / ]] || cand=${cand%/}
+      cand=${cand#"$name"}
+      ble/set#contains visited "$cand" && continue
+      ble/set#add visited "$cand"
+      ble/array#push candidates "$cand"
+    done
+    ((${#candidates[@]})) || continue
+    local flag_source_filter=1
+    local cdpath_basedir=$name
+    ble/complete/cand/yield-filenames "$action" "${candidates[@]}"
+    [[ $action == cdpath ]] && is_cdpath_generated=1
+  done
+  [[ $is_cdpath_generated ]] &&
+      bleopt complete_menu_style=desc
+  if [[ ! $is_pwd_visited ]]; then
+    local -a candidates=()
+    local ret cand
+    ble/complete/source:file/.construct-pathname-pattern "$COMPV"
+    ble/complete/util/eval-pathname-expansion "${ret%/}/"; (($?==148)) && return 148
+    ble/complete/source/test-limit ${#ret[@]} || return 1
+    for cand in "${ret[@]}"; do
+      ((cand_iloop++%bleopt_complete_polling_cycle==0)) &&
+        ble/complete/check-cancel && return 148
+      [[ -d $cand ]] || continue
+      [[ $cand == / ]] || cand=${cand%/}
+      ble/set#contains visited "$cand" && continue
+      ble/array#push candidates "$cand"
+    done
+    local flag_source_filter=1
+    ble/complete/cand/yield-filenames file "${candidates[@]}"
+  fi
+}
+function ble/cmdinfo/complete:cd {
+  ble/cmdinfo/complete:cd/.impl cd
+}
+function ble/cmdinfo/complete:pushd {
+  ble/cmdinfo/complete:cd/.impl pushd
+}
+blehook/invoke complete_load
+blehook complete_load=
+return 0
diff --git a/.local/src/blesh/lib/core-decode.emacs-rlfunc.txt b/.local/src/blesh/lib/core-decode.emacs-rlfunc.txt
new file mode 100644
index 0000000..e0dbffd
--- /dev/null
+++ b/.local/src/blesh/lib/core-decode.emacs-rlfunc.txt
@@ -0,0 +1,170 @@
+abort                             bell
+accept-line                       accept-line
+alias-expand-line                 alias-expand-line
+arrow-key-prefix                  -
+backward-byte                     @nomarked backward-byte
+backward-char                     @nomarked backward-char
+backward-delete-char              delete-region-or delete-backward-char
+backward-kill-line                kill-backward-line
+backward-kill-word                kill-backward-cword
+backward-word                     @nomarked backward-cword
+beginning-of-history              history-beginning
+beginning-of-line                 @nomarked beginning-of-line
+bracketed-paste-begin             bracketed-paste
+call-last-kbd-macro               call-keyboard-macro
+capitalize-word                   capitalize-eword
+character-search                  character-search-forward
+character-search-backward         character-search-backward
+clear-display                     clear-display
+clear-screen                      clear-screen
+complete                          complete
+complete-command                  complete context=command
+complete-filename                 complete context=filename
+complete-hostname                 complete context=hostname
+complete-into-braces              complete insert_braces
+complete-username                 complete context=username
+complete-variable                 complete context=variable
+copy-backward-word                copy-backward-cword
+copy-forward-word                 copy-forward-cword
+copy-region-as-kill               copy-region
+dabbrev-expand                    dabbrev-expand
+delete-char                       delete-forward-char
+delete-char-or-list               delete-forward-char-or-list
+delete-horizontal-space           delete-horizontal-space
+digit-argument                    append-arg
+display-shell-version             display-shell-version
+do-lowercase-version              do-lowercase-version
+downcase-word                     downcase-eword
+dump-functions                    readline-dump-functions
+dump-macros                       readline-dump-macros
+dump-variables                    readline-dump-variables
+dynamic-complete-history          complete context=dynamic-history
+edit-and-execute-command          edit-and-execute-command
+emacs-editing-mode                nop
+end-kbd-macro                     end-keyboard-macro
+end-of-history                    history-end
+end-of-line                       end-of-line
+exchange-point-and-mark           exchange-point-and-mark
+forward-backward-delete-char      delete-forward-backward-char
+forward-byte                      @nomarked forward-byte
+forward-char                      @nomarked forward-char
+forward-search-history            history-isearch-forward
+forward-word                      @nomarked forward-cword
+glob-complete-word                complete context=glob
+glob-expand-word                  complete context=glob:insert-all
+glob-list-expansions              complete context=glob:show_menu
+history-and-alias-expand-line     history-and-alias-expand-line
+history-expand-line               history-expand-line
+history-search-backward           history-search-backward empty=emulate-readline
+history-search-forward            history-search-forward empty=emulate-readline
+history-substring-search-backward history-substring-search-backward
+history-substring-search-forward  history-substring-search-forward
+insert-comment                    insert-comment
+insert-completions                complete insert_all
+insert-last-argument              insert-last-argument
+kill-line                         kill-forward-line
+kill-region                       kill-region-or kill-uword
+kill-whole-line                   kill-line
+kill-word                         kill-forward-cword
+magic-space                       magic-space
+menu-complete                     menu-complete
+menu-complete-backward            menu-complete backward
+next-history                      history-next
+next-screen-line                  @nomarked forward-graphical-line
+non-incremental-forward-search-history        history-nsearch-forward
+non-incremental-forward-search-history-again  history-nsearch-forward-again
+non-incremental-reverse-search-history        history-nsearch-backward
+non-incremental-reverse-search-history-again  history-nsearch-backward-again
+old-menu-complete                 menu-complete
+operate-and-get-next              accept-and-next
+overwrite-mode                    overwrite-mode
+possible-command-completions      complete show_menu:context=command
+possible-completions              complete show_menu
+possible-filename-completions     complete show_menu:context=filename
+possible-hostname-completions     complete show_menu:context=hostname
+possible-username-completions     complete show_menu:context=username
+possible-variable-completions     complete show_menu:context=variable
+previous-history                  history-prev
+previous-screen-line              @nomarked backward-graphical-line
+print-last-kbd-macro              print-keyboard-macro
+quoted-insert                     quoted-insert
+re-read-init-file                 re-read-init-file
+redraw-current-line               redraw-line
+reverse-search-history            history-isearch-backward
+revert-line                       emacs/revert
+self-insert                       self-insert
+set-mark                          set-mark
+shell-backward-kill-word          kill-backward-sword
+shell-backward-word               @nomarked backward-sword
+shell-expand-line                 shell-expand-line
+shell-forward-word                @nomarked forward-sword
+shell-kill-word                   kill-forward-sword
+shell-transpose-words             transpose-swords
+skip-csi-sequence                 <IGNORE>
+start-kbd-macro                   start-keyboard-macro
+tab-insert                        tab-insert
+tilde-expand                      tilde-expand
+transpose-chars                   transpose-chars
+transpose-words                   transpose-ewords
+tty-status                        -
+undo                              emacs/undo
+universal-argument                universal-arg
+unix-filename-rubout              kill-backward-fword
+unix-line-discard                 kill-backward-line
+unix-word-rubout                  kill-backward-uword
+upcase-word                       upcase-eword
+vi-append-eol                     -
+vi-append-mode                    -
+vi-arg-digit                      -
+vi-prev-word                      vi-rlfunc/prev-word
+vi-backward-word                  vi-command/backward-vword
+vi-backward-bigword               vi-command/backward-uword
+vi-bword                          vi-command/backward-vword
+vi-bWord                          vi-command/backward-uword
+vi-end-word                       vi-rlfunc/end-word
+vi-end-bigword                    vi-command/forward-uword-end
+vi-eword                          vi-command/forward-vword-end
+vi-eWord                          vi-command/forward-uword-end
+vi-next-word                      vi-rlfunc/next-word
+vi-forward-word                   vi-command/forward-vword
+vi-forward-bigword                vi-command/forward-uword
+vi-fword                          vi-command/forward-vword
+vi-fWord                          vi-command/forward-uword
+vi-back-to-indent                 -
+vi-change-case                    -
+vi-change-char                    -
+vi-change-to                      -
+vi-char-search                    -
+vi-column                         -
+vi-complete                       -
+vi-delete                         -
+vi-delete-to                      -
+vi-editing-mode                   vi-editing-mode
+vi-eof-maybe                      -
+vi-fetch-history                  -
+vi-first-print                    -
+vi-goto-mark                      -
+vi-insert-beg                     -
+vi-insertion-mode                 -
+vi-match                          -
+vi-movement-mode                  -
+vi-overstrike                     -
+vi-overstrike-delete              -
+vi-put                            -
+vi-redo                           -
+vi-replace                        -
+vi-rubout                         -
+vi-search                         -
+vi-search-again                   -
+vi-set-mark                       -
+vi-subst                          -
+vi-tilde-expand                   -
+vi-unix-word-rubout               -
+vi-yank-arg                       -
+vi-yank-pop                       -
+vi-yank-to                        -
+yank                              yank
+yank-last-arg                     insert-last-argument
+yank-nth-arg                      insert-nth-argument
+yank-pop                          yank-pop
+paste-from-clipboard              paste-from-clipboard
diff --git a/.local/src/blesh/lib/core-decode.vi_imap-rlfunc.txt b/.local/src/blesh/lib/core-decode.vi_imap-rlfunc.txt
new file mode 100644
index 0000000..8b4dfac
--- /dev/null
+++ b/.local/src/blesh/lib/core-decode.vi_imap-rlfunc.txt
@@ -0,0 +1,169 @@
+abort                             bell
+accept-line                       accept-single-line-or-newline
+alias-expand-line                 alias-expand-line
+arrow-key-prefix                  -
+backward-byte                     @nomarked backward-byte
+backward-char                     @nomarked backward-char
+backward-delete-char              vi_imap/delete-region-or vi_imap/delete-backward-indent-or delete-backward-char
+backward-kill-line                kill-backward-line
+backward-kill-word                kill-backward-uword
+backward-word                     @nomarked backward-sword
+beginning-of-history              history-beginning
+beginning-of-line                 @nomarked beginning-of-line
+bracketed-paste-begin             vi_imap/bracketed-paste
+call-last-kbd-macro               call-keyboard-macro
+capitalize-word                   capitalize-eword
+character-search                  character-search-forward
+character-search-backward         character-search-backward
+clear-display                     clear-display
+clear-screen                      clear-screen
+complete                          complete
+complete-command                  complete context=command
+complete-filename                 complete context=filename
+complete-hostname                 complete context=hostname
+complete-into-braces              complete insert_braces
+complete-username                 complete context=username
+complete-variable                 complete context=variable
+copy-backward-word                copy-backward-sword
+copy-forward-word                 copy-forward-sword
+copy-region-as-kill               copy-region-or copy-uword
+dabbrev-expand                    dabbrev-expand
+delete-char                       vi_imap/delete-region-or delete-forward-char
+delete-char-or-list               delete-forward-char-or-list
+delete-horizontal-space           delete-horizontal-space
+digit-argument                    append-arg
+display-shell-version             display-shell-version
+do-lowercase-version              do-lowercase-version
+downcase-word                     downcase-eword
+dump-functions                    readline-dump-functions
+dump-macros                       readline-dump-macros
+dump-variables                    readline-dump-variables
+dynamic-complete-history          complete context=dynamic-history
+edit-and-execute-command          edit-and-execute-command
+emacs-editing-mode                emacs-editing-mode
+end-kbd-macro                     end-keyboard-macro
+end-of-history                    history-end
+end-of-line                       @nomarked end-of-line
+exchange-point-and-mark           exchange-point-and-mark
+forward-backward-delete-char      delete-forward-backward-char
+forward-byte                      @nomarked forward-byte
+forward-char                      @nomarked forward-char
+forward-search-history            history-isearch-forward
+forward-word                      @nomarked forward-uword
+glob-complete-word                complete context=glob
+glob-expand-word                  complete context=glob:insert-all
+glob-list-expansions              complete context=glob:show_menu
+history-and-alias-expand-line     history-and-alias-expand-line
+history-expand-line               history-expand-line
+history-search-backward           history-search-backward empty=emulate-readline
+history-search-forward            history-search-forward empty=emulate-readline
+history-substring-search-backward history-substring-search-backward
+history-substring-search-forward  history-substring-search-forward
+insert-comment                    insert-comment
+insert-completions                complete insert_all
+insert-last-argument              insert-last-argument
+kill-line                         kill-forward-line
+kill-region                       kill-region-or kill-uword
+kill-whole-line                   kill-line
+kill-word                         kill-forward-uword
+magic-space                       magic-space
+menu-complete                     menu-complete
+menu-complete-backward            menu-complete backward
+next-history                      history-next
+next-screen-line                  @nomarked forward-graphical-line
+non-incremental-forward-search-history        history-nsearch-forward
+non-incremental-forward-search-history-again  history-nsearch-forward-again
+non-incremental-reverse-search-history        history-nsearch-backward
+non-incremental-reverse-search-history-again  history-nsearch-backward-again
+old-menu-complete                 menu-complete
+operate-and-get-next              accept-and-next
+overwrite-mode                    vi_imap/overwrite-mode
+possible-command-completions      complete show_menu:context=command
+possible-completions              complete show_menu
+possible-filename-completions     complete show_menu:context=filename
+possible-hostname-completions     complete show_menu:context=hostname
+possible-username-completions     complete show_menu:context=username
+possible-variable-completions     complete show_menu:context=variable
+previous-history                  history-prev
+previous-screen-line              @nomarked backward-graphical-line
+print-last-kbd-macro              print-keyboard-macro
+quoted-insert                     vi_imap/quoted-insert
+re-read-init-file                 re-read-init-file
+redraw-current-line               redraw-line
+reverse-search-history            history-isearch-backward
+revert-line                       -
+self-insert                       self-insert
+set-mark                          set-mark
+shell-backward-kill-word          kill-backward-sword
+shell-backward-word               @nomarked backward-sword
+shell-expand-line                 shell-expand-line
+shell-forward-word                @nomarked forward-sword
+shell-kill-word                   kill-forward-sword
+shell-transpose-words             transpose-swords
+skip-csi-sequence                 <IGNORE>
+start-kbd-macro                   start-keyboard-macro
+tab-insert                        tab-insert
+tilde-expand                      tilde-expand
+transpose-chars                   transpose-chars
+transpose-words                   transpose-ewords
+tty-status                        -
+undo                              -
+universal-argument                universal-arg
+unix-filename-rubout              kill-backward-fword
+unix-line-discard                 kill-backward-line
+unix-word-rubout                  kill-backward-uword
+upcase-word                       upcase-eword
+vi-append-eol                     -
+vi-append-mode                    -
+vi-arg-digit                      -
+vi-back-to-indent                 -
+vi-prev-word                      vi-rlfunc/prev-word
+vi-backward-word                  vi-command/backward-vword
+vi-backward-bigword               vi-command/backward-uword
+vi-bword                          vi-command/backward-vword
+vi-bWord                          vi-command/backward-uword
+vi-end-word                       vi-rlfunc/end-word
+vi-end-bigword                    vi-command/forward-uword-end
+vi-eword                          vi-command/forward-vword-end
+vi-eWord                          vi-command/forward-uword-end
+vi-next-word                      vi-rlfunc/next-word
+vi-forward-word                   vi-command/forward-vword
+vi-forward-bigword                vi-command/forward-uword
+vi-fword                          vi-command/forward-vword
+vi-fWord                          vi-command/forward-uword
+vi-change-case                    -
+vi-change-char                    -
+vi-change-to                      -
+vi-char-search                    -
+vi-column                         -
+vi-complete                       -
+vi-delete                         -
+vi-delete-to                      -
+vi-editing-mode                   nop
+vi-eof-maybe                      -
+vi-fetch-history                  -
+vi-first-print                    -
+vi-goto-mark                      -
+vi-insert-beg                     -
+vi-insertion-mode                 nop
+vi-match                          -
+vi-movement-mode                  vi_imap/normal-mode
+vi-overstrike                     -
+vi-overstrike-delete              -
+vi-put                            -
+vi-redo                           -
+vi-replace                        vi_imap/overwrite-mode
+vi-rubout                         -
+vi-search                         -
+vi-search-again                   -
+vi-set-mark                       -
+vi-subst                          -
+vi-tilde-expand                   -
+vi-unix-word-rubout               vi_imap/delete-backward-word
+vi-yank-arg                       -
+vi-yank-pop                       -
+vi-yank-to                        -
+yank                              yank
+yank-last-arg                     insert-last-argument
+yank-nth-arg                      insert-nth-argument
+yank-pop                          yank-pop
diff --git a/.local/src/blesh/lib/core-decode.vi_nmap-rlfunc.txt b/.local/src/blesh/lib/core-decode.vi_nmap-rlfunc.txt
new file mode 100644
index 0000000..a3db96d
--- /dev/null
+++ b/.local/src/blesh/lib/core-decode.vi_nmap-rlfunc.txt
@@ -0,0 +1,170 @@
+abort                             bell
+accept-line                       accept-single-line-or vi-command/forward-first-non-space
+alias-expand-line                 vi_nmap/@edit alias-expand-line
+arrow-key-prefix                  -
+backward-byte                     vi-command/backward-byte
+backward-char                     vi-command/backward-char
+backward-delete-char              -
+backward-kill-line                -
+backward-kill-word                -
+backward-word                     vi-command/backward-vword
+beginning-of-history              -
+beginning-of-line                 vi-command/beginning-of-line
+bracketed-paste-begin             vi-command/bracketed-paste
+call-last-kbd-macro               call-keyboard-macro
+capitalize-word                   vi_nmap/capitalize-eword
+character-search                  vi_nmap/@motion character-search-forward
+character-search-backward         vi_nmap/@motion character-search-backward
+clear-display                     clear-display
+clear-screen                      clear-screen
+complete                          -
+complete-command                  -
+complete-filename                 -
+complete-hostname                 -
+complete-into-braces              -
+complete-username                 -
+complete-variable                 -
+copy-backward-word                -
+copy-forward-word                 -
+copy-region-as-kill               -
+dabbrev-expand                    -
+delete-char                       vi_nmap/kill-forward-char
+delete-char-or-list               -
+delete-horizontal-space           -
+digit-argument                    vi-command/append-arg
+display-shell-version             vi_nmap/@adjust display-shell-version
+do-lowercase-version              do-lowercase-version
+downcase-word                     vi_nmap/downcase-eword
+dump-functions                    vi_nmap/@adjust readline-dump-functions
+dump-macros                       vi_nmap/@adjust readline-dump-macros
+dump-variables                    vi_nmap/@adjust readline-dump-variables
+dynamic-complete-history          -
+edit-and-execute-command          vi-command/edit-and-execute-line
+emacs-editing-mode                emacs-editing-mode
+end-kbd-macro                     end-keyboard-macro
+end-of-history                    -
+end-of-line                       vi-command/forward-eol
+exchange-point-and-mark           -
+forward-backward-delete-char      -
+forward-byte                      vi-command/forward-byte
+forward-char                      vi-command/forward-char
+forward-search-history            history-isearch-forward
+forward-word                      vi-command/forward-vword
+glob-complete-word                -
+glob-expand-word                  -
+glob-list-expansions              -
+history-and-alias-expand-line     vi_nmap/@edit history-and-alias-expand-line
+history-expand-line               vi_nmap/@edit history-expand-line
+history-search-backward           history-search-backward empty=emulate-readline
+history-search-forward            history-search-forward empty=emulate-readline
+history-substring-search-backward history-substring-search-backward
+history-substring-search-forward  history-substring-search-forward
+insert-comment                    vi-rlfunc/insert-comment
+insert-completions                -
+insert-last-argument              -
+kill-line                         vi_nmap/kill-forward-line
+kill-region                       -
+kill-whole-line                   -
+kill-word                         vi-rlfunc/kill-word
+magic-space                       -
+menu-complete                     -
+menu-complete-backward            -
+next-history                      history-next
+next-screen-line                  -
+non-incremental-forward-search-history        history-nsearch-forward
+non-incremental-forward-search-history-again  history-nsearch-forward-again
+non-incremental-reverse-search-history        history-nsearch-backward
+non-incremental-reverse-search-history-again  history-nsearch-backward-again
+old-menu-complete                 -
+operate-and-get-next              -
+overwrite-mode                    vi_nmap/replace-mode
+possible-command-completions      complete show_menu:context=command
+possible-completions              complete show_menu
+possible-filename-completions     complete show_menu:context=filename
+possible-hostname-completions     complete show_menu:context=hostname
+possible-username-completions     complete show_menu:context=username
+possible-variable-completions     complete show_menu:context=variable
+previous-history                  history-prev
+previous-screen-line              -
+print-last-kbd-macro              print-keyboard-macro
+quoted-insert                     vi-rlfunc/quoted-insert
+re-read-init-file                 vi_nmap/@adjust re-read-init-file
+redraw-current-line               redraw-line
+reverse-search-history            history-isearch-backward
+revert-line                       vi_nmap/revert
+self-insert                       -
+set-mark                          vi_nmap/charwise-visual-mode
+shell-backward-kill-word          -
+shell-backward-word               -
+shell-expand-line                 -
+shell-forward-word                -
+shell-kill-word                   -
+shell-transpose-words             -
+skip-csi-sequence                 <IGNORE>
+start-kbd-macro                   start-keyboard-macro
+tab-insert                        -
+tilde-expand                      vi_nmap/@edit tilde-expand
+transpose-chars                   transpose-chars
+transpose-words                   -
+tty-status                        -
+undo                              vi_nmap/undo
+universal-argument                -
+unix-filename-rubout              -
+unix-line-discard                 vi-rlfunc/unix-line-discard
+unix-word-rubout                  -
+upcase-word                       vi_nmap/upcase-eword
+vi-append-eol                     vi_nmap/append-mode-at-end-of-line
+vi-append-mode                    vi_nmap/append-mode
+vi-arg-digit                      vi-command/append-arg
+vi-prev-word                      vi-rlfunc/prev-word
+vi-backward-word                  vi-command/backward-vword
+vi-backward-bigword               vi-command/backward-uword
+vi-bword                          vi-command/backward-vword
+vi-bWord                          vi-command/backward-uword
+vi-end-word                       vi-rlfunc/end-word
+vi-end-bigword                    vi-command/forward-uword-end
+vi-eword                          vi-command/forward-vword-end
+vi-eWord                          vi-command/forward-uword-end
+vi-next-word                      vi-rlfunc/next-word
+vi-forward-word                   vi-command/forward-vword
+vi-forward-bigword                vi-command/forward-uword
+vi-fword                          vi-command/forward-vword
+vi-fWord                          vi-command/forward-uword
+vi-back-to-indent                 -
+vi-change-case                    vi-command/operator toggle_case
+vi-change-char                    vi_nmap/replace-char
+vi-change-to                      vi-rlfunc/change-to
+vi-char-search                    vi-rlfunc/char-search
+vi-column                         vi-command/nth-column
+vi-complete                       -
+vi-delete                         vi_nmap/kill-forward-char
+vi-delete-to                      vi-rlfunc/delete-to
+vi-editing-mode                   vi_nmap/insert-mode
+vi-eof-maybe                      vi-rlfunc/eof-maybe
+vi-fetch-history                  vi-command/history-end
+vi-first-print                    vi-command/first-non-space
+vi-goto-mark                      vi-command/goto-mark
+vi-insert-beg                     vi_nmap/insert-mode-at-first-non-space
+vi-insertion-mode                 vi_nmap/insert-mode
+vi-match                          vi-command/search-matchpair-or vi-command/percentage-line
+vi-movement-mode                  nop
+vi-overstrike                     -
+vi-overstrike-delete              -
+vi-put                            vi-rlfunc/put
+vi-redo                           vi_nmap/repeat
+vi-replace                        vi_nmap/replace-mode
+vi-rubout                         vi_nmap/kill-backward-char
+vi-search                         vi-rlfunc/search
+vi-search-again                   vi-rlfunc/search-again
+vi-set-mark                       vi-command/set-mark
+vi-subst                          vi-rlfunc/subst
+vi-tilde-expand                   -
+vi-undo                           vi_nmap/undo
+vi-unix-word-rubout               -
+vi-yank-arg                       vi-rlfunc/yank-arg
+vi-yank-pop                       -
+vi-yank-to                        vi-rlfunc/yank-to
+yank                              yank
+yank-last-arg                     -
+yank-nth-arg                      -
+yank-pop                          -
diff --git a/.local/src/blesh/lib/core-edit.ignoreeof-messages.txt b/.local/src/blesh/lib/core-edit.ignoreeof-messages.txt
new file mode 100644
index 0000000..6588f87
--- /dev/null
+++ b/.local/src/blesh/lib/core-edit.ignoreeof-messages.txt
@@ -0,0 +1,32 @@
+Gebruik Kaart na Los Tronk
+Използвайте „exit“, за да излезете от обвивката.
+Utilitzeu ?exit? per a eixir de l'int?rpret d'ordres.
+Shell lze ukončit příkazem „exit“.
+Brug "exit" for at forlade skallen.
+Benutze "exit" um die Shell zu verlassen.
+Χρήση «exit» για έξοδο από το κέλυφος.
+Use “exit” to leave the shell.
+Use “exit” to leave the shell.
+Uzu «exit» por eliri el la ŝelo.
+Use "exit" para dejar el shell.
+Kirjoita ”exit” poistuaksesi komentotulkista.
+Utilisez « exit » pour quitter le shell.
+Úsáid "exit" le scoir den mblaosc.
+Use «exit» para deixar o shell.
+Koristite „exit” za napuštanje ljuske.
+„exit” használatával lehet elhagyni a parancsértelmezőt.
+Gunakan "exit" untuk meninggalkan shell.
+Usare "exit" per uscire dalla shell.
+シェルから脱出するには "exit" を使用してください。
+Naudokite „exit“, jei norite išeiti iš ap.
+Gebruik "exit" om de shell te verlaten.
+Użyj "exit", aby opuścić tę powłokę.
+Use "exit" para sair da `shell'.
+Na opustenie shellu použite „exit“.
+Uporabite "exit", če želite zapustiti lupino.
+Користите „exit“ да напустите шкољку.
+Använd "exit" fär att lämna skalet.
+Kabuğu bırakmak için "exit" kullanın.
+Використовуйте "exit", щоб вийти з оболонки.
+Dùng "exit" để rời hệ vỏ.
+使用 "exit" 退出 shell 。
diff --git a/.local/src/blesh/lib/core-syntax.sh b/.local/src/blesh/lib/core-syntax.sh
new file mode 100644
index 0000000..bd566f9
--- /dev/null
+++ b/.local/src/blesh/lib/core-syntax.sh
@@ -0,0 +1,5355 @@
+# this script is a part of blesh (https://github.com/akinomyoga/ble.sh) under BSD-3-Clause license
+function ble/syntax/util/is-directory {
+  local path=$1
+  if [[ ( $OSTYPE == cygwin || $OSTYPE == msys ) && $path == //* ]]; then
+    [[ $path == // ]]
+  else
+    [[ -d $path ]]
+  fi
+}
+function ble/syntax/urange#update {
+  local prefix=$1
+  local p1=$2 p2=${3:-$2}
+  ((0<=p1&&p1<p2)) || return 1
+  (((${prefix}umin<0||${prefix}umin>p1)&&(${prefix}umin=p1),
+    (${prefix}umax<0||${prefix}umax<p2)&&(${prefix}umax=p2)))
+}
+function ble/syntax/wrange#update {
+  local prefix=$1
+  local p1=$2 p2=${3:-$2}
+  ((0<=p1&&p1<=p2)) || return 1
+  (((${prefix}umin<0||${prefix}umin>p1)&&(${prefix}umin=p1),
+    (${prefix}umax<0||${prefix}umax<p2)&&(${prefix}umax=p2)))
+}
+function ble/syntax/urange#shift {
+  local prefix=$1
+  ((${prefix}umin>=end0?(${prefix}umin+=shift):(
+      ${prefix}umin>=beg&&(${prefix}umin=end)),
+    ${prefix}umax>end0?(${prefix}umax+=shift):(
+      ${prefix}umax>beg&&(${prefix}umax=beg)),
+    ${prefix}umin>=${prefix}umax&&
+      (${prefix}umin=${prefix}umax=-1)))
+}
+function ble/syntax/wrange#shift {
+  local prefix=$1
+  ((${prefix}umin>=end0?(${prefix}umin+=shift):(
+       ${prefix}umin>beg&&(${prefix}umin=end)),
+    ${prefix}umax>=end0?(${prefix}umax+=shift):(
+      ${prefix}umax>=beg&&(${prefix}umax=beg)),
+    ${prefix}umin==0&&++${prefix}umin,
+    ${prefix}umin>${prefix}umax&&
+      (${prefix}umin=${prefix}umax=-1)))
+}
+_ble_syntax_text=
+_ble_syntax_lang=bash
+_ble_syntax_stat=()
+_ble_syntax_nest=()
+_ble_syntax_tree=()
+_ble_syntax_attr=()
+_ble_syntax_TREE_WIDTH=5
+function ble/syntax/tree-enumerate/.add-root-element {
+  local wtype=$1 wlen=$2 tclen=$3 tplen=$4
+  [[ ! ${wtype//[0-9]} && ${_ble_syntax_bash_command_EndWtype[wtype]} ]] &&
+    wtype=${_ble_syntax_bash_command_EndWtype[wtype]}
+  TE_root="$wtype $wlen $tclen $tplen -- $TE_root"
+}
+function ble/syntax/tree-enumerate/.initialize {
+  if [[ ! ${_ble_syntax_stat[iN]} ]]; then
+    TE_root= TE_i=-1 TE_nofs=0
+    return 0
+  fi
+  local -a stat nest
+  ble/string#split-words stat "${_ble_syntax_stat[iN]}"
+  local wtype=${stat[2]}
+  local wlen=${stat[1]}
+  local nlen=${stat[3]} inest
+  ((inest=nlen<0?nlen:iN-nlen))
+  local tclen=${stat[4]}
+  local tplen=${stat[5]}
+  TE_root=
+  ((iN>0)) && TE_root=${_ble_syntax_tree[iN-1]}
+  while
+    if ((wlen>=0)); then
+      ble/syntax/tree-enumerate/.add-root-element "$wtype" "$wlen" "$tclen" "$tplen"
+      tclen=0
+    fi
+    ((inest>=0))
+  do
+    ble/util/assert '[[ ${_ble_syntax_nest[inest]} ]]' "$FUNCNAME/FATAL1" || break
+    ble/string#split-words nest "${_ble_syntax_nest[inest]}"
+    local olen=$((iN-inest))
+    tplen=${nest[4]}
+    ((tplen>=0&&(tplen+=olen)))
+    ble/syntax/tree-enumerate/.add-root-element "${nest[7]}" "$olen" "$tclen" "$tplen"
+    wtype=${nest[2]} wlen=${nest[1]} nlen=${nest[3]} tclen=0 tplen=${nest[5]}
+    ((wlen>=0&&(wlen+=olen),
+      tplen>=0&&(tplen+=olen),
+      nlen>=0&&(nlen+=olen),
+      inest=nlen<0?nlen:iN-nlen))
+    ble/util/assert '((nlen<0||nlen>olen))' "$FUNCNAME/FATAL2" || break
+  done
+  if [[ $TE_root ]]; then
+    ((TE_i=iN))
+  else
+    ((TE_i=tclen>=0?iN-tclen:tclen))
+  fi
+  ((TE_nofs=0))
+}
+function ble/syntax/tree-enumerate/.impl {
+  local islast=1
+  while ((TE_i>0)); do
+    local -a node
+    if ((TE_i<iN)); then
+      ble/string#split-words node "${_ble_syntax_tree[TE_i-1]}"
+    else
+      ble/string#split-words node "${TE_root:-${_ble_syntax_tree[iN-1]}}"
+    fi
+    ble/util/assert '((TE_nofs<${#node[@]}))' "$FUNCNAME(i=$TE_i,iN=$iN,TE_nofs=$TE_nofs,node=${node[*]},command=$@)/FATAL1" || break
+    local wtype=${node[TE_nofs]} wlen=${node[TE_nofs+1]} tclen=${node[TE_nofs+2]} tplen=${node[TE_nofs+3]} attr=${node[TE_nofs+4]}
+    local wbegin=$((wlen<0?wlen:TE_i-wlen))
+    local tchild=$((tclen<0?tclen:TE_i-tclen))
+    local tprev=$((tplen<0?tplen:TE_i-tplen))
+    "$@"
+    ble/util/assert '((tprev<TE_i))' "$FUNCNAME/FATAL2" || break
+    ((TE_i=tprev,TE_nofs=0,islast=0))
+  done
+}
+function ble/syntax/tree-enumerate-children {
+  ((0<tchild&&tchild<=TE_i)) || return 1
+  local TE_nofs=$((TE_i==tchild?TE_nofs+_ble_syntax_TREE_WIDTH:0))
+  local TE_i=$tchild
+  ble/syntax/tree-enumerate/.impl "$@"
+}
+function ble/syntax/tree-enumerate-break () ((tprev=-1))
+function ble/syntax/tree-enumerate {
+  local TE_root TE_i TE_nofs
+  [[ ${iN:+set} ]] || local iN=${#_ble_syntax_text}
+  ble/syntax/tree-enumerate/.initialize
+  ble/syntax/tree-enumerate/.impl "$@"
+}
+function ble/syntax/tree-enumerate-in-range {
+  local beg=$1 end=$2
+  local proc=$3
+  local -a node
+  local TE_i TE_nofs
+  for ((TE_i=end;TE_i>=beg;TE_i--)); do
+    ((TE_i>0)) && [[ ${_ble_syntax_tree[TE_i-1]} ]] || continue
+    ble/string#split-words node "${_ble_syntax_tree[TE_i-1]}"
+    local flagUpdateNode=
+    for ((TE_nofs=0;TE_nofs<${#node[@]};TE_nofs+=_ble_syntax_TREE_WIDTH)); do
+      local wtype=${node[TE_nofs]} wlen=${node[TE_nofs+1]} wattr=${node[TE_nofs+4]}
+      local wbeg=$((wlen<0?wlen:TE_i-wlen)) wend=$TE_i
+      "${@:3}"
+    done
+  done
+}
+function ble/syntax/print-status/.graph {
+  local char=$1
+  if ble/util/isprint+ "$char"; then
+    graph="'$char'"
+    return 0
+  else
+    local ret
+    ble/util/s2c "$char"
+    local code=$ret
+    if ((code<32)); then
+      ble/util/c2s $((code+64))
+      graph="$_ble_term_rev^$ret$_ble_term_sgr0"
+    elif ((code==127)); then
+      graph="$_ble_term_rev^?$_ble_term_sgr0"
+    elif ((128<=code&&code<160)); then
+      ble/util/c2s $((code-64))
+      graph="${_ble_term_rev}M-^$ret$_ble_term_sgr0"
+    else
+      graph="'$char' ($code)"
+    fi
+  fi
+}
+function ble/syntax/print-status/.tree-prepend {
+  local j=$1
+  local value=$2${tree[j]}
+  tree[j]=$value
+  ((max_tree_width<${#value}&&(max_tree_width=${#value})))
+}
+function ble/syntax/print-status/.dump-arrays/.append-attr-char {
+  if (($?==0)); then
+    attr="${attr}$1"
+  else
+    attr="${attr} "
+  fi
+}
+function ble/syntax/print-status/ctx#get-text {
+  local sgr
+  ble/syntax/ctx#get-name "$1"
+  ret=${ret#BLE_}
+  if [[ ! $ret ]]; then
+    ble/color/face2sgr syntax_error
+    ret="${ret}CTX$1$_ble_term_sgr0"
+  fi
+}
+function ble/syntax/print-status/word.get-text {
+  local index=$1
+  ble/string#split-words word "${_ble_syntax_tree[index]}"
+  local out= ret
+  if [[ $word ]]; then
+    local nofs=$((${#word[@]}/_ble_syntax_TREE_WIDTH*_ble_syntax_TREE_WIDTH))
+    while (((nofs-=_ble_syntax_TREE_WIDTH)>=0)); do
+      local axis=$((index+1))
+      local wtype=${word[nofs]}
+      if [[ $wtype =~ ^[0-9]+$ ]]; then
+        ble/syntax/print-status/ctx#get-text "$wtype"; wtype=$ret
+      elif [[ $wtype =~ ^n* ]]; then
+        wtype=$sgr_quoted\"${wtype:1}\"$_ble_term_sgr0
+      else
+        wtype=$sgr_error${wtype}$_ble_term_sgr0
+      fi
+      local b=$((axis-word[nofs+1])) e=$axis
+      local _prev=${word[nofs+3]} _child=${word[nofs+2]}
+      if ((_prev>=0)); then
+        _prev="@$((axis-_prev-1))>"
+      else
+        _prev=
+      fi
+      if ((_child>=0)); then
+        _child=">@$((axis-_child-1))"
+      else
+        _child=
+      fi
+      local wattr=${word[nofs+4]} _wattr=
+      if [[ $wattr != - ]]; then
+        wattr="/(wattr=$wattr)"
+      else
+        wattr=
+      fi
+      out=" word=$wtype:$_prev$b-$e$_child$wattr$out"
+      for ((;b<index;b++)); do
+        ble/syntax/print-status/.tree-prepend "$b" '|'
+      done
+      ble/syntax/print-status/.tree-prepend "$index" '+'
+    done
+    word=$out
+  fi
+}
+function ble/syntax/print-status/nest.get-text {
+  local index=$1
+  ble/string#split-words nest "${_ble_syntax_nest[index]}"
+  if [[ $nest ]]; then
+    local ret
+    ble/syntax/print-status/ctx#get-text "${nest[0]}"; local nctx=$ret
+    local nword=-
+    if ((nest[1]>=0)); then
+      ble/syntax/print-status/ctx#get-text "${nest[2]}"; local swtype=$ret
+      local wbegin=$((index-nest[1]))
+      nword="$swtype:$wbegin-"
+    fi
+    local nnest=-
+    ((nest[3]>=0)) && nnest="'${nest[7]}':$((index-nest[3]))-"
+    local nchild=-
+    if ((nest[4]>=0)); then
+      local tchild=$((index-nest[4]))
+      nchild='$'$tchild
+      if ! ((0<tchild&&tchild<=index)) || [[ ! ${_ble_syntax_tree[tchild-1]} ]]; then
+        nchild=$sgr_error$nchild$_ble_term_sgr0
+      fi
+    fi
+    local nprev=-
+    if ((nest[5]>=0)); then
+      local tprev=$((index-nest[5]))
+      nprev='$'$tprev
+      if ! ((0<tprev&&tprev<=index)) || [[ ! ${_ble_syntax_tree[tprev-1]} ]]; then
+        nprev=$sgr_error$nprev$_ble_term_sgr0
+      fi
+    fi
+    local nparam=${nest[6]}
+    if [[ $nparam == none ]]; then
+      nparam=
+    else
+      nparam=${nparam//$_ble_term_FS/$'\e[7m^\\\e[m'}
+      nparam=" nparam=$nparam"
+    fi
+    nest=" nest=($nctx w=$nword n=$nnest t=$nchild:$nprev$nparam)"
+  fi
+}
+function ble/syntax/print-status/stat.get-text {
+  local index=$1
+  ble/string#split-words stat "${_ble_syntax_stat[index]}"
+  if [[ $stat ]]; then
+    local ret
+    ble/syntax/print-status/ctx#get-text "${stat[0]}"; local stat_ctx=$ret
+    local stat_word=-
+    if ((stat[1]>=0)); then
+      ble/syntax/print-status/ctx#get-text "${stat[2]}"; local stat_wtype=$ret
+      stat_word="$stat_wtype:$((index-stat[1]))-"
+    fi
+    local stat_inest=-
+    if ((stat[3]>=0)); then
+      local inest=$((index-stat[3]))
+      stat_inest="@$inest"
+      if ((inest<0)) || [[ ! ${_ble_syntax_nest[inest]} ]]; then
+        stat_inest=$sgr_error$stat_inest$_ble_term_sgr0
+      fi
+    fi
+    local stat_child=-
+    if ((stat[4]>=0)); then
+      local tchild=$((index-stat[4]))
+      stat_child='$'$tchild
+      if ! ((0<tchild&&tchild<=index)) || [[ ! ${_ble_syntax_tree[tchild-1]} ]]; then
+        stat_child=$sgr_error$stat_child$_ble_term_sgr0
+      fi
+    fi
+    local stat_prev=-
+    if ((stat[5]>=0)); then
+      local tprev=$((index-stat[5]))
+      stat_prev='$'$tprev
+      if ! ((0<tprev&&tprev<=index)) || [[ ! ${_ble_syntax_tree[tprev-1]} ]]; then
+        stat_prev=$sgr_error$stat_prev$_ble_term_sgr0
+      fi
+    fi
+    local snparam=${stat[6]}
+    if [[ $snparam == none ]]; then
+      snparam=
+    else
+      snparam=${snparam//"$_ble_term_FS"/$'\e[7m^\\\e[m'}
+      snparam=" nparam=$snparam"
+    fi
+    local stat_lookahead=
+    ((stat[7]!=1)) && stat_lookahead=" >>${stat[7]}"
+    stat=" stat=($stat_ctx w=$stat_word n=$stat_inest t=$stat_child:$stat_prev$snparam$stat_lookahead)"
+  fi
+}
+function ble/syntax/print-status/.dump-arrays {
+  local -a tree char line
+  tree=()
+  char=()
+  line=()
+  local ret
+  ble/color/face2sgr syntax_error; local sgr_error=$ret
+  ble/color/face2sgr syntax_quoted; local sgr_quoted=$ret
+  local i max_tree_width=0
+  for ((i=0;i<=iN;i++)); do
+    local attr="  ${_ble_syntax_attr[i]:-|}"
+    if ((_ble_syntax_attr_umin<=i&&i<_ble_syntax_attr_umax)); then
+      attr="${attr:${#attr}-2:2}*"
+    else
+      attr="${attr:${#attr}-2:2} "
+    fi
+    [[ ${_ble_highlight_layer_syntax1_table[i]} ]] && ble/color/g2sgr "${_ble_highlight_layer_syntax1_table[i]}"
+    ble/syntax/print-status/.dump-arrays/.append-attr-char "${ret}a${_ble_term_sgr0}"
+    [[ ${_ble_highlight_layer_syntax2_table[i]} ]] && ble/color/g2sgr "${_ble_highlight_layer_syntax2_table[i]}"
+    ble/syntax/print-status/.dump-arrays/.append-attr-char "${ret}w${_ble_term_sgr0}"
+    [[ ${_ble_highlight_layer_syntax3_table[i]} ]] && ble/color/g2sgr "${_ble_highlight_layer_syntax3_table[i]}"
+    ble/syntax/print-status/.dump-arrays/.append-attr-char "${ret}e${_ble_term_sgr0}"
+    [[ ${_ble_syntax_stat_shift[i]} ]]
+    ble/syntax/print-status/.dump-arrays/.append-attr-char s
+    local index=000$i
+    index=${index:${#index}-3:3}
+    local word nest stat
+    ble/syntax/print-status/word.get-text "$i"
+    ble/syntax/print-status/nest.get-text "$i"
+    ble/syntax/print-status/stat.get-text "$i"
+    local graph=
+    ble/syntax/print-status/.graph "${_ble_syntax_text:i:1}"
+    char[i]="$attr $index $graph"
+    line[i]=$word$nest$stat
+  done
+  resultA='_ble_syntax_attr/tree/nest/stat?'$'\n'
+  ble/string#reserve-prototype "$max_tree_width"
+  for ((i=0;i<=iN;i++)); do
+    local t=${tree[i]}${_ble_string_prototype::max_tree_width}
+    resultA="$resultA${char[i]} ${t::max_tree_width}${line[i]}"$'\n'
+  done
+}
+function ble/syntax/print-status/.dump-tree/proc1 {
+  local tip="| "; tip=${tip:islast:1}
+  prefix="$prefix$tip   " ble/syntax/tree-enumerate-children ble/syntax/print-status/.dump-tree/proc1
+  resultB="$prefix\_ '${_ble_syntax_text:wbegin:wlen}'$nl$resultB"
+}
+function ble/syntax/print-status/.dump-tree {
+  resultB=
+  local nl=$_ble_term_nl
+  local prefix=
+  ble/syntax/tree-enumerate ble/syntax/print-status/.dump-tree/proc1
+}
+function ble/syntax/print-status {
+  local iN=${#_ble_syntax_text}
+  local resultA
+  ble/syntax/print-status/.dump-arrays
+  local resultB
+  ble/syntax/print-status/.dump-tree
+  local result=$resultA$resultB
+  if [[ $1 == -v && $2 ]]; then
+    local "${2%%\[*\]}" && ble/util/upvar "$2" "$result"
+  else
+    ble/util/print "$result"
+  fi
+}
+function ble/syntax/print-layer-buffer.draw {
+  local layer_name=$1
+  local -a keys vals
+  builtin eval "keys=(\"\${!_ble_highlight_layer_${layer_name}_buff[@]}\")"
+  builtin eval "vals=(\"\${_ble_highlight_layer_${layer_name}_buff[@]}\")"
+  local ret sgr0=$_ble_term_sgr0
+  ble/color/face2sgr command_builtin; local sgr1=$ret
+  ble/color/face2sgr syntax_varname; local sgr2=$ret
+  ble/color/face2sgr syntax_quoted; local sgr3=$ret
+  ble/canvas/put.draw "${sgr1}buffer${sgr0} ${sgr2}$layer_name${sgr0}=("
+  local i count=0
+  for ((i=0;i<${#keys[@]};i++)); do
+    local key=${keys[i]} val=${vals[i]}
+    while ((count++<key)); do
+      ((count==1)) || ble/canvas/put.draw ' '
+      ble/canvas/put.draw $'\e[91munset\e[m'
+    done
+    ((count==1)) || ble/canvas/put.draw ' '
+    ble/string#quote-word "$val" quote-empty:sgrq="$sgr3"
+    ble/canvas/put.draw "$ret"
+  done
+  ble/canvas/put.draw ")$_ble_term_nl"
+}
+function ble/syntax/parse/generate-stat {
+  ((ilook<=i&&(ilook=i+1)))
+  _stat="$ctx $((wbegin<0?wbegin:i-wbegin)) $wtype $((inest<0?inest:i-inest)) $((tchild<0?tchild:i-tchild)) $((tprev<0?tprev:i-tprev)) ${nparam:-none} $((ilook-i))"
+}
+function ble/syntax/parse/set-lookahead {
+  ((i+$1>ilook&&(ilook=i+$1)))
+}
+function ble/syntax/parse/tree-append {
+  [[ $debug_p1 ]] && ble/util/assert '((i-1>=debug_p1))' "Wrong call of tree-append: Condition violation (p1=$debug_p1 i=$i iN=$iN)."
+  local type=$1
+  local beg=$2 end=$i
+  local len=$((end-beg))
+  ((len==0)) && return 0
+  local tchild=$3 tprev=$4
+  local ochild=-1 oprev=-1
+  ((tchild>=0&&(ochild=i-tchild)))
+  ((tprev>=0&&(oprev=i-tprev)))
+  [[ $type =~ ^[0-9]+$ ]] && ble/syntax/parse/touch-updated-word "$i"
+  _ble_syntax_tree[i-1]="$type $len $ochild $oprev - ${_ble_syntax_tree[i-1]}"
+}
+function ble/syntax/parse/word-push {
+  wtype=$1 wbegin=$2 tprev=$tchild tchild=-1
+}
+function ble/syntax/parse/word-pop {
+  ble/syntax/parse/tree-append "$wtype" "$wbegin" "$tchild" "$tprev"
+  ((wbegin=-1,wtype=-1,tchild=i))
+  ble/syntax/parse/nest-reset-tprev
+}
+function ble/syntax/parse/word-cancel {
+  local -a word
+  ble/string#split-words word "${_ble_syntax_tree[i-1]}"
+  local wlen=${word[1]} tplen=${word[3]}
+  local wbegin=$((i-wlen))
+  tchild=$((tplen<0?tplen:i-tplen))
+  ble/array#fill-range _ble_syntax_tree "$wbegin" "$i" ''
+}
+function ble/syntax/parse/nest-push {
+  local wlen=$((wbegin<0?wbegin:i-wbegin))
+  local nlen=$((inest<0?inest:i-inest))
+  local tclen=$((tchild<0?tchild:i-tchild))
+  local tplen=$((tprev<0?tprev:i-tprev))
+  _ble_syntax_nest[i]="$ctx $wlen $wtype $nlen $tclen $tplen ${nparam:-none} ${2:-none}"
+  ((ctx=$1,inest=i,wbegin=-1,wtype=-1,tprev=tchild,tchild=-1))
+  nparam=
+}
+function ble/syntax/parse/nest-pop {
+  ((inest<0)) && return 1
+  local -a parentNest
+  ble/string#split-words parentNest "${_ble_syntax_nest[inest]}"
+  local ntype=${parentNest[7]} nbeg=$inest
+  ble/syntax/parse/tree-append "n$ntype" "$nbeg" "$tchild" "$tprev"
+  local wlen=${parentNest[1]} nlen=${parentNest[3]} tplen=${parentNest[5]}
+  ((ctx=parentNest[0]))
+  ((wtype=parentNest[2]))
+  ((wbegin=wlen<0?wlen:nbeg-wlen,
+    inest=nlen<0?nlen:nbeg-nlen,
+    tchild=i,
+    tprev=tplen<0?tplen:nbeg-tplen))
+  nparam=${parentNest[6]}
+  [[ $nparam == none ]] && nparam=
+}
+function ble/syntax/parse/nest-type {
+  local _var=ntype
+  [[ $1 == -v ]] && _var=$2
+  if ((inest<0)); then
+    builtin eval "$_var="
+    return 1
+  else
+    builtin eval "$_var=\"\${_ble_syntax_nest[inest]##* }\""
+  fi
+}
+function ble/syntax/parse/nest-ctx {
+  nctx=
+  ((inest>=0)) || return 1
+  nctx=${_ble_syntax_nest[inest]%% *}
+}
+function ble/syntax/parse/nest-reset-tprev {
+  if ((inest<0)); then
+    tprev=-1
+  else
+    local -a nest
+    ble/string#split-words nest "${_ble_syntax_nest[inest]}"
+    local tclen=${nest[4]}
+    ((tprev=tclen<0?tclen:inest-tclen))
+  fi
+}
+function ble/syntax/parse/nest-equals {
+  local parent_inest=$1
+  while :; do
+    ((parent_inest<i1)) && return 0 # 変更していない範囲 または -1
+    ((parent_inest<i2)) && return 1 # 変更によって消えた範囲
+    local _onest=${_tail_syntax_nest[parent_inest-i2]}
+    local _nnest=${_ble_syntax_nest[parent_inest]}
+    [[ $_onest != "$_nnest" ]] && return 1
+    local -a onest; ble/string#split-words onest "$_onest"
+    ble/util/assert \
+      '((onest[3]!=0&&onest[3]<=parent_inest))' \
+      "invalid nest onest[3]=${onest[3]} parent_inest=$parent_inest text=$text" || return 0
+    ((parent_inest=onest[3]<0?onest[3]:(parent_inest-onest[3])))
+  done
+}
+_ble_syntax_attr_umin=-1 _ble_syntax_attr_umax=-1
+_ble_syntax_word_umin=-1 _ble_syntax_word_umax=-1
+_ble_syntax_word_defer_umin=-1 _ble_syntax_word_defer_umax=-1
+function ble/syntax/parse/touch-updated-attr {
+  ble/syntax/urange#update _ble_syntax_attr_ "$1" $(($1+1))
+}
+function ble/syntax/parse/touch-updated-word {
+  ble/util/assert "(($1>0))" "invalid word position $1"
+  ble/syntax/wrange#update _ble_syntax_word_ "$1"
+}
+_ble_ctx_UNSPECIFIED=0
+_ble_ctx_ARGX=3
+_ble_ctx_ARGX0=18
+_ble_ctx_ARGI=4
+_ble_ctx_ARGQ=61
+_ble_ctx_CMDX=1
+_ble_ctx_CMDX1=17
+_ble_ctx_CMDXT=49
+_ble_ctx_CMDXC=26
+_ble_ctx_CMDXE=43
+_ble_ctx_CMDXD0=38
+_ble_ctx_CMDXD=68
+_ble_ctx_CMDXV=13
+_ble_ctx_CMDI=2
+_ble_ctx_VRHS=11
+_ble_ctx_QUOT=5
+_ble_ctx_EXPR=8
+_ble_attr_ERR=6
+_ble_attr_VAR=7
+_ble_attr_QDEL=9
+_ble_attr_QESC=81
+_ble_attr_DEF=10
+_ble_attr_DEL=12
+_ble_attr_HISTX=21
+_ble_attr_FUNCDEF=22
+_ble_ctx_PARAM=14
+_ble_ctx_PWORD=15
+_ble_ctx_PWORDE=73
+_ble_ctx_PWORDR=72
+_ble_ctx_RDRF=19
+_ble_ctx_RDRD=20
+_ble_ctx_RDRD2=80
+_ble_ctx_RDRS=27
+_ble_ctx_VALX=23
+_ble_ctx_VALI=24
+_ble_ctx_VALR=65
+_ble_ctx_VALQ=66
+_ble_attr_COMMENT=25
+_ble_ctx_ARGVX=28
+_ble_ctx_ARGVI=29
+_ble_ctx_ARGVR=62
+_ble_ctx_CONDX=32
+_ble_ctx_CONDI=33
+_ble_ctx_CONDQ=67
+_ble_ctx_CASE=34
+_ble_ctx_CPATX=76
+_ble_ctx_CPATI=77
+_ble_ctx_CPATQ=79
+_ble_ctx_CPATX0=78
+_ble_ctx_PATN=30
+_ble_attr_GLOB=31
+_ble_ctx_BRAX=54
+_ble_attr_BRACE=55
+_ble_ctx_BRACE1=56
+_ble_ctx_BRACE2=57
+_ble_attr_TILDE=60
+_ble_ctx_FARGX1=16
+_ble_ctx_FARGI1=35
+_ble_ctx_FARGX2=36
+_ble_ctx_FARGI2=37
+_ble_ctx_FARGX3=58
+_ble_ctx_FARGI3=59
+_ble_ctx_FARGQ3=63
+_ble_ctx_SARGX1=48
+_ble_ctx_CARGX1=39
+_ble_ctx_CARGI1=40
+_ble_ctx_CARGQ1=64
+_ble_ctx_CARGX2=41
+_ble_ctx_CARGI2=42
+_ble_ctx_TARGX1=50
+_ble_ctx_TARGI1=51
+_ble_ctx_TARGX2=52
+_ble_ctx_TARGI2=53
+_ble_ctx_RDRH=44
+_ble_ctx_RDRI=45
+_ble_ctx_HERE0=46
+_ble_ctx_HERE1=47
+_ble_ctx_ARGEX=69
+_ble_ctx_ARGEI=70
+_ble_ctx_ARGER=71
+_ble_ctx_COARGX=74
+_ble_ctx_COARGI=75
+_ble_attr_CMD_BOLD=101
+_ble_attr_CMD_BUILTIN=102
+_ble_attr_CMD_ALIAS=103
+_ble_attr_CMD_FUNCTION=104
+_ble_attr_CMD_FILE=105
+_ble_attr_KEYWORD=106
+_ble_attr_KEYWORD_BEGIN=118
+_ble_attr_KEYWORD_END=119
+_ble_attr_KEYWORD_MID=120
+_ble_attr_CMD_JOBS=107
+_ble_attr_CMD_DIR=112
+_ble_attr_FILE_DIR=108
+_ble_attr_FILE_STICKY=124
+_ble_attr_FILE_LINK=109
+_ble_attr_FILE_ORPHAN=121
+_ble_attr_FILE_FILE=111
+_ble_attr_FILE_SETUID=122
+_ble_attr_FILE_SETGID=123
+_ble_attr_FILE_EXEC=110
+_ble_attr_FILE_FIFO=114
+_ble_attr_FILE_CHR=115
+_ble_attr_FILE_BLK=116
+_ble_attr_FILE_SOCK=117
+_ble_attr_FILE_WARN=113
+_ble_attr_FILE_URL=125
+_ble_attr_VAR_UNSET=126
+_ble_attr_VAR_EMPTY=127
+_ble_attr_VAR_NUMBER=128
+_ble_attr_VAR_EXPR=129
+_ble_attr_VAR_ARRAY=130
+_ble_attr_VAR_HASH=132
+_ble_attr_VAR_READONLY=131
+_ble_attr_VAR_TRANSFORM=133
+_ble_attr_VAR_EXPORT=134
+_ble_syntax_bash_ctx_names=(
+  [0]=_ble_ctx_UNSPECIFIED
+  [3]=_ble_ctx_ARGX
+  [18]=_ble_ctx_ARGX0
+  [4]=_ble_ctx_ARGI
+  [61]=_ble_ctx_ARGQ
+  [1]=_ble_ctx_CMDX
+  [17]=_ble_ctx_CMDX1
+  [49]=_ble_ctx_CMDXT
+  [26]=_ble_ctx_CMDXC
+  [43]=_ble_ctx_CMDXE
+  [38]=_ble_ctx_CMDXD0
+  [68]=_ble_ctx_CMDXD
+  [13]=_ble_ctx_CMDXV
+  [2]=_ble_ctx_CMDI
+  [11]=_ble_ctx_VRHS
+  [5]=_ble_ctx_QUOT
+  [8]=_ble_ctx_EXPR
+  [6]=_ble_attr_ERR
+  [7]=_ble_attr_VAR
+  [9]=_ble_attr_QDEL
+  [81]=_ble_attr_QESC
+  [10]=_ble_attr_DEF
+  [12]=_ble_attr_DEL
+  [21]=_ble_attr_HISTX
+  [22]=_ble_attr_FUNCDEF
+  [14]=_ble_ctx_PARAM
+  [15]=_ble_ctx_PWORD
+  [73]=_ble_ctx_PWORDE
+  [72]=_ble_ctx_PWORDR
+  [19]=_ble_ctx_RDRF
+  [20]=_ble_ctx_RDRD
+  [80]=_ble_ctx_RDRD2
+  [27]=_ble_ctx_RDRS
+  [23]=_ble_ctx_VALX
+  [24]=_ble_ctx_VALI
+  [65]=_ble_ctx_VALR
+  [66]=_ble_ctx_VALQ
+  [25]=_ble_attr_COMMENT
+  [28]=_ble_ctx_ARGVX
+  [29]=_ble_ctx_ARGVI
+  [62]=_ble_ctx_ARGVR
+  [32]=_ble_ctx_CONDX
+  [33]=_ble_ctx_CONDI
+  [67]=_ble_ctx_CONDQ
+  [34]=_ble_ctx_CASE
+  [76]=_ble_ctx_CPATX
+  [77]=_ble_ctx_CPATI
+  [79]=_ble_ctx_CPATQ
+  [78]=_ble_ctx_CPATX0
+  [30]=_ble_ctx_PATN
+  [31]=_ble_attr_GLOB
+  [54]=_ble_ctx_BRAX
+  [55]=_ble_attr_BRACE
+  [56]=_ble_ctx_BRACE1
+  [57]=_ble_ctx_BRACE2
+  [60]=_ble_attr_TILDE
+  [16]=_ble_ctx_FARGX1
+  [35]=_ble_ctx_FARGI1
+  [36]=_ble_ctx_FARGX2
+  [37]=_ble_ctx_FARGI2
+  [58]=_ble_ctx_FARGX3
+  [59]=_ble_ctx_FARGI3
+  [63]=_ble_ctx_FARGQ3
+  [48]=_ble_ctx_SARGX1
+  [39]=_ble_ctx_CARGX1
+  [40]=_ble_ctx_CARGI1
+  [64]=_ble_ctx_CARGQ1
+  [41]=_ble_ctx_CARGX2
+  [42]=_ble_ctx_CARGI2
+  [50]=_ble_ctx_TARGX1
+  [51]=_ble_ctx_TARGI1
+  [52]=_ble_ctx_TARGX2
+  [53]=_ble_ctx_TARGI2
+  [44]=_ble_ctx_RDRH
+  [45]=_ble_ctx_RDRI
+  [46]=_ble_ctx_HERE0
+  [47]=_ble_ctx_HERE1
+  [69]=_ble_ctx_ARGEX
+  [70]=_ble_ctx_ARGEI
+  [71]=_ble_ctx_ARGER
+  [74]=_ble_ctx_COARGX
+  [75]=_ble_ctx_COARGI
+  [101]=_ble_attr_CMD_BOLD
+  [102]=_ble_attr_CMD_BUILTIN
+  [103]=_ble_attr_CMD_ALIAS
+  [104]=_ble_attr_CMD_FUNCTION
+  [105]=_ble_attr_CMD_FILE
+  [106]=_ble_attr_KEYWORD
+  [118]=_ble_attr_KEYWORD_BEGIN
+  [119]=_ble_attr_KEYWORD_END
+  [120]=_ble_attr_KEYWORD_MID
+  [107]=_ble_attr_CMD_JOBS
+  [112]=_ble_attr_CMD_DIR
+  [108]=_ble_attr_FILE_DIR
+  [124]=_ble_attr_FILE_STICKY
+  [109]=_ble_attr_FILE_LINK
+  [121]=_ble_attr_FILE_ORPHAN
+  [111]=_ble_attr_FILE_FILE
+  [122]=_ble_attr_FILE_SETUID
+  [123]=_ble_attr_FILE_SETGID
+  [110]=_ble_attr_FILE_EXEC
+  [114]=_ble_attr_FILE_FIFO
+  [115]=_ble_attr_FILE_CHR
+  [116]=_ble_attr_FILE_BLK
+  [117]=_ble_attr_FILE_SOCK
+  [113]=_ble_attr_FILE_WARN
+  [125]=_ble_attr_FILE_URL
+  [126]=_ble_attr_VAR_UNSET
+  [127]=_ble_attr_VAR_EMPTY
+  [128]=_ble_attr_VAR_NUMBER
+  [129]=_ble_attr_VAR_EXPR
+  [130]=_ble_attr_VAR_ARRAY
+  [132]=_ble_attr_VAR_HASH
+  [131]=_ble_attr_VAR_READONLY
+  [133]=_ble_attr_VAR_TRANSFORM
+  [134]=_ble_attr_VAR_EXPORT
+)
+function ble/syntax/ctx#get-name {
+  ret=${_ble_syntax_bash_ctx_names[$1]#_ble_ctx_}
+}
+_BLE_SYNTAX_FCTX=()
+_BLE_SYNTAX_FEND=()
+function ble/syntax:text/ctx-unspecified {
+  ((i+=${#tail}))
+  return 0
+}
+_BLE_SYNTAX_FCTX[_ble_ctx_UNSPECIFIED]=ble/syntax:text/ctx-unspecified
+function ble/syntax:text/initialize-ctx { ctx=$_ble_ctx_UNSPECIFIED; }
+function ble/syntax:text/initialize-vars { :; }
+_ble_syntax_bash_RexSpaces=$'[ \t]+'
+_ble_syntax_bash_RexIFSs="[$_ble_term_IFS]+"
+_ble_syntax_bash_RexDelimiter="[$_ble_term_IFS;|&<>()]"
+_ble_syntax_bash_RexRedirect='((\{[a-zA-Z_][a-zA-Z_0-9]*\}|[0-9]+)?(&?>>?|>[|&]|<[>&]?|<<[-<]?))[ 	]*'
+_ble_syntax_bash_chars=()
+_ble_syntax_bashc_seed=
+function ble/syntax:bash/cclass/update/reorder {
+  builtin eval "local a=\"\${$1}\""
+  [[ $a == *']'* ]] && a="]${a//]}"
+  [[ $a == *'-'* ]] && a="${a//-}-"
+  builtin eval "$1=\$a"
+}
+function ble/syntax:bash/cclass/update {
+  local seed=$_ble_syntax_bash_histc12
+  shopt -q extglob && seed=${seed}x
+  [[ $seed == "$_ble_syntax_bashc_seed" ]] && return 1
+  _ble_syntax_bashc_seed=$seed
+  local key modified=
+  if [[ $_ble_syntax_bash_histc12 == '!^' ]]; then
+    for key in "${!_ble_syntax_bash_charsDef[@]}"; do
+      _ble_syntax_bash_chars[key]=${_ble_syntax_bash_charsDef[key]}
+    done
+    _ble_syntax_bashc_simple=$_ble_syntax_bash_chars_simpleDef
+  else
+    modified=1
+    local histc1=${_ble_syntax_bash_histc12:0:1}
+    local histc2=${_ble_syntax_bash_histc12:1:1}
+    for key in "${!_ble_syntax_bash_charsFmt[@]}"; do
+      local a=${_ble_syntax_bash_charsFmt[key]}
+      a=${a//@h/"$histc1"}
+      a=${a//@q/"$histc2"}
+      _ble_syntax_bash_chars[key]=$a
+    done
+    local a=$_ble_syntax_bash_chars_simpleFmt
+    a=${a//@h/"$histc1"}
+    a=${a//@q/"$histc2"}
+    _ble_syntax_bashc_simple=$a
+  fi
+  if [[ $seed == *x ]]; then
+    local extglob='@+!' # *? は既に登録されている筈
+    _ble_syntax_bash_chars[_ble_ctx_ARGI]=${_ble_syntax_bash_chars[_ble_ctx_ARGI]}$extglob
+    _ble_syntax_bash_chars[_ble_ctx_PATN]=${_ble_syntax_bash_chars[_ble_ctx_PATN]}$extglob
+    _ble_syntax_bash_chars[_ble_ctx_PWORD]=${_ble_syntax_bash_chars[_ble_ctx_PWORD]}$extglob
+    _ble_syntax_bash_chars[_ble_ctx_PWORDE]=${_ble_syntax_bash_chars[_ble_ctx_PWORDE]}$extglob
+    _ble_syntax_bash_chars[_ble_ctx_PWORDR]=${_ble_syntax_bash_chars[_ble_ctx_PWORDR]}$extglob
+  fi
+  if [[ $modified ]]; then
+    for key in "${!_ble_syntax_bash_chars[@]}"; do
+      ble/syntax:bash/cclass/update/reorder _ble_syntax_bash_chars[key]
+    done
+    ble/syntax:bash/cclass/update/reorder _ble_syntax_bashc_simple
+  fi
+  return 0
+}
+_ble_syntax_bash_charsDef=()
+_ble_syntax_bash_charsFmt=()
+_ble_syntax_bash_chars_simpleDef=
+_ble_syntax_bash_chars_simpleFmt=
+function ble/syntax:bash/cclass/initialize {
+  local delimiters="$_ble_term_IFS;|&()<>"
+  local expansions="\$\"\`\\'"
+  local glob='[*?'
+  local tilde='~:'
+  _ble_syntax_bash_charsDef[_ble_ctx_ARGI]="$delimiters$expansions$glob{$tilde^!"
+  _ble_syntax_bash_charsDef[_ble_ctx_PATN]="$expansions$glob(|)<>{!" # <> はプロセス置換のため。
+  _ble_syntax_bash_charsDef[_ble_ctx_QUOT]="\$\"\`\\!"         # 文字列 "～" で特別な意味を持つのは $ ` \ " のみ。+履歴展開の ! も。
+  _ble_syntax_bash_charsDef[_ble_ctx_EXPR]="][}()$expansions!" # ()[] は入れ子を数える為。} は ${var:ofs:len} の為。
+  _ble_syntax_bash_charsDef[_ble_ctx_PWORD]="}$expansions$glob!" # パラメータ展開 ${～}
+  _ble_syntax_bash_charsDef[_ble_ctx_PWORDE]="}$expansions$glob!" # パラメータ展開 ${～} エラー
+  _ble_syntax_bash_charsDef[_ble_ctx_PWORDR]="}/$expansions$glob!" # パラメータ展開 ${～} 置換前
+  _ble_syntax_bash_charsDef[_ble_ctx_RDRH]="$delimiters$expansions"
+  _ble_syntax_bash_charsFmt[_ble_ctx_ARGI]="$delimiters$expansions$glob{$tilde@q@h"
+  _ble_syntax_bash_charsFmt[_ble_ctx_PATN]="$expansions$glob(|)<>{@h"
+  _ble_syntax_bash_charsFmt[_ble_ctx_QUOT]="\$\"\`\\@h"
+  _ble_syntax_bash_charsFmt[_ble_ctx_EXPR]="][}()$expansions@h"
+  _ble_syntax_bash_charsFmt[_ble_ctx_PWORD]="}$expansions$glob@h"
+  _ble_syntax_bash_charsFmt[_ble_ctx_PWORDE]="}$expansions$glob@h"
+  _ble_syntax_bash_charsFmt[_ble_ctx_PWORDR]="}/$expansions$glob@h"
+  _ble_syntax_bash_charsFmt[_ble_ctx_RDRH]=${_ble_syntax_bash_charsDef[_ble_ctx_RDRH]}
+  _ble_syntax_bash_chars_simpleDef="$delimiters$expansions^!"
+  _ble_syntax_bash_chars_simpleFmt="$delimiters$expansions@q@h"
+  _ble_syntax_bash_histc12='!^'
+  ble/syntax:bash/cclass/update
+}
+ble/syntax:bash/cclass/initialize
+_ble_syntax_bash_simple_rex_letter=
+_ble_syntax_bash_simple_rex_param=
+_ble_syntax_bash_simple_rex_bquot=
+_ble_syntax_bash_simple_rex_squot=
+_ble_syntax_bash_simple_rex_dquot=
+_ble_syntax_bash_simple_rex_literal=
+_ble_syntax_bash_simple_rex_element=
+_ble_syntax_bash_simple_rex_word=
+_ble_syntax_bash_simple_rex_open_word=
+_ble_syntax_bash_simple_rex_open_dquot=
+_ble_syntax_bash_simple_rex_open_squot=
+_ble_syntax_bash_simple_rex_incomplete_word1=
+_ble_syntax_bash_simple_rex_incomplete_word2=
+_ble_syntax_bash_simple_rex_noglob_word1=
+_ble_syntax_bash_simple_rex_noglob_word2=
+function ble/syntax:bash/simple-word/update {
+  local q="'"
+  local letter='\[[!^]|[^'${_ble_syntax_bashc_simple}']'
+  local param1='\$([-*@#?$!0_]|[1-9][0-9]*|[a-zA-Z_][a-zA-Z_0-9]*)'
+  local param2='\$\{(#?[-*@#?$!0]|[#!]?([1-9][0-9]*|[a-zA-Z_][a-zA-Z_0-9]*))\}' # ${!!} ${!$} はエラーになる。履歴展開の所為?
+  local param=$param1'|'$param2
+  local bquot='\\.'
+  local squot=$q'[^'$q']*'$q'|\$'$q'([^'$q'\]|\\.)*'$q
+  local dquot='\$?"([^'${_ble_syntax_bash_chars[_ble_ctx_QUOT]}']|\\.|'$param')*"'
+  _ble_syntax_bash_simple_rex_letter=$letter # 0 groups
+  _ble_syntax_bash_simple_rex_param=$param   # 3 groups
+  _ble_syntax_bash_simple_rex_bquot=$bquot   # 0 groups
+  _ble_syntax_bash_simple_rex_squot=$squot   # 1 groups
+  _ble_syntax_bash_simple_rex_dquot=$dquot   # 4 groups
+  _ble_syntax_bash_simple_rex_literal='^('$letter')+$'
+  _ble_syntax_bash_simple_rex_element='('$bquot'|'$squot'|'$dquot'|'$param'|'$letter')'
+  _ble_syntax_bash_simple_rex_word='^'$_ble_syntax_bash_simple_rex_element'+$'
+  local open_squot=$q'[^'$q']*|\$'$q'([^'$q'\]|\\.)*'
+  local open_dquot='\$?"([^'${_ble_syntax_bash_chars[_ble_ctx_QUOT]}']|\\.|'$param')*'
+  _ble_syntax_bash_simple_rex_open_word='^('$_ble_syntax_bash_simple_rex_element'*)(\\|'$open_squot'|'$open_dquot')$'
+  _ble_syntax_bash_simple_rex_open_squot=$open_squot
+  _ble_syntax_bash_simple_rex_open_dquot=$open_dquot
+  local letter1='\[[!^]|[^{'${_ble_syntax_bashc_simple}']'
+  local letter2='\[[!^]|[^'${_ble_syntax_bashc_simple}']'
+  _ble_syntax_bash_simple_rex_incomplete_word1='^('$bquot'|'$squot'|'$dquot'|'$param'|'$letter1')+'
+  _ble_syntax_bash_simple_rex_incomplete_word2='^(('$bquot'|'$squot'|'$dquot'|'$param'|'$letter2')*)(\\|'$open_squot'|'$open_dquot')?$'
+  local noglob_letter='[^[?*'${_ble_syntax_bashc_simple}']'
+  _ble_syntax_bash_simple_rex_noglob_word1='^('$bquot'|'$squot'|'$dquot'|'$noglob_letter')+$'
+  _ble_syntax_bash_simple_rex_noglob_word2='^('$bquot'|'$squot'|'$dquot'|'$param'|'$noglob_letter')+$'
+}
+ble/syntax:bash/simple-word/update
+function ble/syntax:bash/simple-word/is-literal {
+  [[ $1 =~ $_ble_syntax_bash_simple_rex_literal ]]
+}
+function ble/syntax:bash/simple-word/is-simple {
+  [[ $1 =~ $_ble_syntax_bash_simple_rex_word ]]
+}
+function ble/syntax:bash/simple-word/is-simple-or-open-simple {
+  [[ $1 =~ $_ble_syntax_bash_simple_rex_word || $1 =~ $_ble_syntax_bash_simple_rex_open_word ]]
+}
+function ble/syntax:bash/simple-word/is-never-word {
+  ble/syntax:bash/simple-word/is-simple-or-open-simple && return 1
+  local rex=${_ble_syntax_bash_simple_rex_word%'$'}'[ |&;<>()]|^[ |&;<>()]'
+  [[ $1 =~ $rex ]]
+}
+function ble/syntax:bash/simple-word/is-simple-noglob {
+  [[ $1 =~ $_ble_syntax_bash_simple_rex_noglob_word1 ]] && return 0
+  if [[ $1 =~ $_ble_syntax_bash_simple_rex_noglob_word2 ]]; then
+    builtin eval -- "local expanded=$1" 2>/dev/null
+    local rex='[*?]|\[.+\]|[*?@+!]\(.*\)'
+    [[ $expanded =~ $rex ]] || return 0
+  fi
+  return 1
+}
+function ble/syntax:bash/simple-word/evaluate-last-brace-expansion {
+  local value=$1
+  local bquot=$_ble_syntax_bash_simple_rex_bquot
+  local squot=$_ble_syntax_bash_simple_rex_squot
+  local dquot=$_ble_syntax_bash_simple_rex_dquot
+  local param=$_ble_syntax_bash_simple_rex_param
+  local letter='\[[!^]|[^{,}'${_ble_syntax_bashc_simple}']'
+  local symbol='[{,}]'
+  local rex_range_expansion='^(([-+]?[0-9]+)\.\.\.[-+]?[0-9]+|([a-zA-Z])\.\.[a-zA-Z])(\.\.[-+]?[0-9]+)?$'
+  local rex0='^('$bquot'|'$squot'|'$dquot'|'$param'|'$letter')+'
+  local stack; stack=()
+  local out= comma= index=0 iopen=0 no_brace_length=0
+  while [[ $value ]]; do
+    if [[ $value =~ $rex0 ]]; then
+      local len=${#BASH_REMATCH}
+      ((index+=len,no_brace_length+=len))
+      out=$out${value::len}
+      value=${value:len}
+    elif [[ $value == '{'* ]]; then
+      ((iopen=++index,no_brace_length=0))
+      value=${value:1}
+      ble/array#push stack "$comma:$out"
+      out= comma=
+    elif ((${#stack[@]})) && [[ $value == '}'* ]]; then
+      ((++index))
+      value=${value:1}
+      ble/array#pop stack
+      local out0=${ret#*:} comma0=${ret%%:*}
+      if [[ $comma ]]; then
+        ((iopen=index,no_brace_length=0))
+        out=$out0$out
+        comma=$comma0
+      elif [[ $out =~ $rex_range_expansion ]]; then
+        ((iopen=index,no_brace_length=0))
+        out=$out0${2#+}$3
+        comma=$comma0
+      else
+        ((++no_brace_length))
+        ble/array#push stack "$comma0:$out0" # cancel pop
+        out=$out'}'
+      fi
+    elif ((${#stack[@]})) && [[ $value == ','* ]]; then
+      ((iopen=++index,no_brace_length=0))
+      value=${value:1}
+      out= comma=1
+    else
+      ((++index,++no_brace_length))
+      out=$out${value::1}
+      value=${value:1}
+    fi
+  done
+  while ((${#stack[@]})); do
+    ble/array#pop stack
+    local out0=${ret#*:} comma0=${ret%%:*}
+    out=$out0$out
+  done
+  ret=$out simple_ibrace=$iopen:$((${#out}-no_brace_length))
+}
+function ble/syntax:bash/simple-word/reconstruct-incomplete-word {
+  local word=$1
+  ret= simple_flags= simple_ibrace=0:0
+  [[ $word ]] || return 0
+  if [[ $word =~ $_ble_syntax_bash_simple_rex_incomplete_word1 ]]; then
+    ret=${word::${#BASH_REMATCH}}
+    word=${word:${#BASH_REMATCH}}
+    [[ $word ]] || return 0
+  fi
+  if [[ $word =~ $_ble_syntax_bash_simple_rex_incomplete_word2 ]]; then
+    local out=$ret
+    local m_brace=${BASH_REMATCH[1]}
+    local m_quote=${word:${#m_brace}}
+    if [[ $m_brace ]]; then
+      ble/syntax:bash/simple-word/evaluate-last-brace-expansion "$m_brace"
+      simple_ibrace=$((${#out}+${simple_ibrace%:*})):$((${#out}+${simple_ibrace#*:}))
+      out=$out$ret
+    fi
+    if [[ $m_quote ]]; then
+      case $m_quote in
+      ('$"'*) out=$out$m_quote\" simple_flags=I ;;
+      ('"'*)  out=$out$m_quote\" simple_flags=D ;;
+      ("$'"*) out=$out$m_quote\' simple_flags=E ;;
+      ("'"*)  out=$out$m_quote\' simple_flags=S ;;
+      ('\')   simple_flags=B ;;
+      (*) return 1 ;;
+      esac
+    fi
+    ret=$out
+    return 0
+  fi
+  return 1
+}
+function ble/syntax:bash/simple-word/extract-parameter-names {
+  ret=()
+  local letter=$_ble_syntax_bash_simple_rex_letter
+  local bquot=$_ble_syntax_bash_simple_rex_bquot
+  local squot=$_ble_syntax_bash_simple_rex_squot
+  local dquot=$_ble_syntax_bash_simple_rex_dquot
+  local param=$_ble_syntax_bash_simple_rex_param
+  local value=$1
+  local rex0='^('$letter'|'$bquot'|'$squot')+'
+  local rex1='^('$dquot')'
+  local rex2='^('$param')'
+  while [[ $value ]]; do
+    [[ $value =~ $rex0 ]] && value=${value:${#BASH_REMATCH}}
+    if [[ $value =~ $rex1 ]]; then
+      value=${value:${#BASH_REMATCH}}
+      ble/syntax:bash/simple-word/extract-parameter-names/.process-dquot "$BASH_REMATCH"
+    fi
+    [[ $value =~ $rex2 ]] || break
+    value=${value:${#BASH_REMATCH}}
+    local var=${BASH_REMATCH[2]}${BASH_REMATCH[3]}
+    [[ $var == [_a-zA-Z]* ]] && ble/array#push ret "$var"
+  done
+}
+function ble/syntax:bash/simple-word/extract-parameter-names/.process-dquot {
+  local value=$1
+  if [[ $value == '$"'*'"' ]]; then
+    value=${value:2:${#value}-3}
+  elif [[ $value == '"'*'"' ]]; then
+    value=${value:1:${#value}-2}
+  else
+    return 0
+  fi
+  local rex0='^([^'${_ble_syntax_bash_chars[_ble_ctx_QUOT]}']|\\.)+'
+  local rex2='^('$param')'
+  while [[ $value ]]; do
+    [[ $value =~ $rex0 ]] && value=${value:${#BASH_REMATCH}}
+    [[ $value =~ $rex2 ]] || break
+    value=${value:${#BASH_REMATCH}}
+    local var=${BASH_REMATCH[2]}${BASH_REMATCH[3]}
+    [[ $var == [_a-zA-Z]* ]] && ble/array#push ret "$var"
+  done
+}
+function ble/syntax:bash/simple-word/eval/.set-result { __ble_ret=("$@"); }
+function ble/syntax:bash/simple-word/eval/.print-result {
+  if (($#>=1000)) && [[ $OSTYPE != cygwin ]]; then
+    if ((_ble_bash>=50200)); then
+      printf '%s\0' "$@" >| "$__ble_simple_word_tmpfile"
+      ble/util/print 'ble/util/readarray -d "" __ble_ret < "$__ble_simple_word_tmpfile"'
+      return 0
+    elif ((_ble_bash>=40000)); then
+      ret=("$@")
+      ble/util/writearray --nlfix ret >| "$__ble_simple_word_tmpfile"
+      ble/util/print 'ble/util/readarray --nlfix __ble_ret < "$__ble_simple_word_tmpfile"'
+      return 0
+    fi
+  fi
+  local ret; ble/string#quote-words "$@"
+  ble/util/print "__ble_ret=($ret)"
+}
+function ble/syntax:bash/simple-word/eval/.impl {
+  local __ble_word=$1 __ble_opts=$2 __ble_flags=
+  local -a ret=()
+  ble/syntax:bash/simple-word/extract-parameter-names "$__ble_word"
+  if ((${#ret[@]})); then
+    local __ble_defs
+    ble/util/assign __ble_defs 'ble/util/print-global-definitions --hidden-only "${ret[@]}"'
+    builtin eval -- "$__ble_defs" &>/dev/null # 読み取り専用の変数のこともある
+  fi
+  if [[ $- != *f* ]] && ! ble/syntax:bash/simple-word/is-simple-noglob "$1"; then
+    if [[ :$__ble_opts: == *:noglob:* ]]; then
+      set -f
+      __ble_flags=f
+    elif ble/util/is-cygwin-slow-glob "$1"; then # Note: #D1168
+      if shopt -q failglob &>/dev/null; then
+        __ble_ret=()
+        return 1
+      elif shopt -q nullglob &>/dev/null; then
+        __ble_ret=()
+        return 0
+      else
+        set -f
+        __ble_flags=f
+      fi
+    elif [[ :$__ble_opts: == *:stopcheck:* ]]; then
+      ble/decode/has-input && return 148
+      if ((_ble_bash>=40000)); then
+        __ble_flags=s
+      elif shopt -q globstar &>/dev/null; then
+        if builtin eval "[[ $__ble_word == *'**'* ]]"; then
+          [[ :$__ble_opts: == *:timeout=*:* ]] && return 142
+          return 148
+        fi
+      fi
+    fi
+  fi
+  __ble_ret=()
+  if [[ $__ble_flags == *s* ]]; then
+    local __ble_sync_command="ble/syntax:bash/simple-word/eval/.print-result $__ble_word"
+    local __ble_sync_opts=progressive-weight
+    local __ble_sync_weight=$bleopt_syntax_eval_polling_interval
+    local __ble_sync_timeout=$_ble_syntax_bash_simple_eval_timeout
+    if [[ $_ble_syntax_bash_simple_eval_timeout_carry ]]; then
+      __ble_sync_timeout=0
+    elif local __ble_rex=':timeout=([^:]*):'; [[ :$__ble_opts: =~ $__ble_rex ]]; then
+      __ble_sync_timeout=${BASH_REMATCH[1]}
+    fi
+    [[ $__ble_sync_timeout ]] &&
+      __ble_sync_opts=$__ble_sync_opts:timeout=$((__ble_sync_timeout))
+    local _ble_local_tmpfile; ble/util/assign/.mktmp
+    local __ble_simple_word_tmpfile=$_ble_local_tmpfile
+    local __ble_script
+    ble/util/assign __ble_script 'ble/util/conditional-sync "$__ble_sync_command" "" "$__ble_sync_weight" "$__ble_sync_opts"' &>/dev/null; local ext=$?
+    builtin eval -- "$__ble_script"
+    ble/util/assign/.rmtmp
+  else
+    builtin eval "ble/syntax:bash/simple-word/eval/.set-result $__ble_word" &>/dev/null; local ext=$?
+    builtin eval : # Note: bash 3.1/3.2 eval バグ対策 (#D1132)
+  fi
+  [[ $__ble_flags == *f* ]] && set +f
+  return "$ext"
+}
+_ble_syntax_bash_simple_eval_hash=
+function ble/syntax:bash/simple-word/eval/.cache-clear {
+  ble/gdict#clear _ble_syntax_bash_simple_eval
+  ble/gdict#clear _ble_syntax_bash_simple_eval_full
+}
+function ble/syntax:bash/simple-word/eval/.cache-update {
+  local hash=$-:$BASHOPTS:$_ble_edit_lineno:$_ble_textarea_version:$PWD
+  if [[ $hash != "$_ble_syntax_bash_simple_eval_hash" ]]; then
+    _ble_syntax_bash_simple_eval_hash=$hash
+    ble/syntax:bash/simple-word/eval/.cache-clear
+  fi
+}
+function ble/syntax:bash/simple-word/eval/.cache-save {
+  ((ext==148||ext==142)) && return 0
+  local ret; ble/string#quote-words "$3"
+  ble/gdict#set _ble_syntax_bash_simple_eval "$1" "ext=$2 count=$(($#-2)) ret=$ret"
+  local ret; ble/string#quote-words "${@:3}"
+  ble/gdict#set _ble_syntax_bash_simple_eval_full "$1" "ext=$2 count=$(($#-2)) ret=($ret)"
+}
+function ble/syntax:bash/simple-word/eval/.cache-load {
+  ext= ret=
+  if [[ :$2: == *:single:* ]]; then
+    ble/gdict#get _ble_syntax_bash_simple_eval "$1" || return 1
+  else
+    ble/gdict#get _ble_syntax_bash_simple_eval_full "$1" || return 1
+  fi
+  builtin eval -- "$ret"
+  return 0
+}
+_ble_syntax_bash_simple_eval_timeout=
+_ble_syntax_bash_simple_eval_timeout_carry=
+function ble/syntax:bash/simple-word/eval {
+  [[ :$2: != *:count:* ]] && local count
+  if [[ :$2: == *:cached:* && :$2: != *:noglob:* ]]; then
+    ble/syntax:bash/simple-word/eval/.cache-update
+    local ext; ble/syntax:bash/simple-word/eval/.cache-load "$1" "$2" && return "$ext"
+  fi
+  local __ble_ret
+  ble/syntax:bash/simple-word/eval/.impl "$1" "$2"; local ext=$?
+  ret=("${__ble_ret[@]}")
+  count=${#ret[@]}
+  if [[ :$2: == *:cached:* && :$2: != *:noglob:* ]]; then
+    ble/syntax:bash/simple-word/eval/.cache-save "$1" "$ext" "${ret[@]}"
+  fi
+  if ((ext==142)); then
+    [[ :$2: == *:timeout-carry:* ]] &&
+      _ble_syntax_bash_simple_eval_timeout_carry=1
+    if [[ :$2: == *:retry-noglob-on-timeout:* ]]; then
+      ble/syntax:bash/simple-word/eval "$1" "$2:noglob"
+      return "$?"
+    fi
+  fi
+  return "$ext"
+}
+function ble/syntax:bash/simple-word/.get-rex_element {
+  local sep=$1
+  local param=$_ble_syntax_bash_simple_rex_param
+  local bquot=$_ble_syntax_bash_simple_rex_bquot
+  local squot=$_ble_syntax_bash_simple_rex_squot
+  local dquot=$_ble_syntax_bash_simple_rex_dquot
+  local letter1='\[[!^]|[^'$sep$_ble_syntax_bashc_simple']'
+  rex_element='('$bquot'|'$squot'|'$dquot'|'$param'|'$letter1')+'
+}
+function ble/syntax:bash/simple-word/evaluate-path-spec {
+  local word=$1 sep=${2:-'/:='} opts=$3
+  ret=() spec=() path=()
+  [[ $word ]] || return 0
+  local eval_opts=$opts notilde=
+  [[ :$opts: == *:notilde:* ]] && notilde=\'\' # チルダ展開の抑制
+  local rex_element; ble/syntax:bash/simple-word/.get-rex_element "$sep"
+  local rex='^['$sep']?'$rex_element'|^['$sep']'
+  [[ :$opts: == *:after-sep:* ]] &&
+    local rex='^'$rex_element'['$sep']?|^['$sep']'
+  local tail=$word s= p= ext=0
+  while [[ $tail =~ $rex ]]; do
+    local rematch=$BASH_REMATCH
+    s=$s$rematch
+    ble/syntax:bash/simple-word/eval "$notilde$s" "$eval_opts"; ext=$?
+    ((ext==148||ext==142)) && return "$ext"
+    p=$ret
+    tail=${tail:${#rematch}}
+    ble/array#push spec "$s"
+    ble/array#push path "$p"
+  done
+  [[ $tail ]] && return 1
+  ((ext)) && return "$ext"
+  return 0
+}
+function ble/syntax:bash/simple-word/detect-separated-path {
+  local word=$1 sep=${2:-':'} opts=$3
+  [[ $word ]] || return 1
+  local rex_url='^[a-z]+://'
+  [[ :$opts: == *:url:* && $word =~ $rex_url ]] && return 1
+  local eval_opts=$opts notilde=
+  [[ :$opts: == *:notilde:* ]] && notilde=\'\' # チルダ展開の抑制
+  local rex_element
+  ble/syntax:bash/simple-word/.get-rex_element /
+  local rex='^'$rex_element'/?|^/'
+  local tail=$word head=
+  while [[ $tail =~ $rex ]]; do
+    local rematch=$BASH_REMATCH
+    ble/syntax:bash/simple-word/locate-filename/.exists "$notilde$head$rematch"; local ext=$?
+    ((ext==148)) && return 148
+    ((ext==0)) || break
+    head=$head$rematch
+    tail=${tail:${#rematch}}
+  done
+  ret=
+  local i
+  for ((i=0;i<${#sep};i++)); do
+    local sep1=${sep:i:1}
+    ble/syntax:bash/simple-word/.get-rex_element "$sep1"
+    local rex_nocolon='^('$rex_element')?$'
+    local rex_hascolon='^('$rex_element')?['$sep1']'
+    [[ $head =~ $rex_nocolon && $tail =~ $rex_hascolon ]] && ret=$ret$sep1
+  done
+  [[ $ret ]]
+}
+function ble/syntax:bash/simple-word/locate-filename/.exists {
+  local word=$1 ret
+  ble/syntax:bash/simple-word/eval "$word" "$eval_opts" || return "$?"
+  local path=$ret
+  if [[ ( $OSTYPE == cygwin || $OSTYPE == msys ) && $path == //* ]]; then
+    [[ $path == // ]]
+  else
+    [[ -e $path || -h $path ]]
+  fi || [[ :$opts: == *:url:* && $path =~ $rex_url ]]
+}
+function ble/syntax:bash/simple-word/locate-filename {
+  local word=$1 sep=${2:-':='} opts=$3
+  ret=0
+  [[ $word ]] || return 0
+  local eval_opts=$opts
+  local rex_element; ble/syntax:bash/simple-word/.get-rex_element "$sep"
+  local rex='^'$rex_element'['$sep']|^['$sep']'
+  local rex_url='^[a-z]+://'
+  local -a seppos=()
+  local tail=$word p=0
+  while [[ $tail =~ $rex ]]; do
+    ((p+=${#BASH_REMATCH}))
+    tail=${tail:${#BASH_REMATCH}}
+    ble/array#push seppos $((p-1))
+  done
+  ble/syntax:bash/simple-word/is-simple "$tail" &&
+    ble/array#push seppos $((p+${#tail}))
+  local -a out=()
+  for ((i=0;i<${#seppos[@]};i++)); do
+    local j0=$i
+    [[ :$opts: == *:greedy:* ]] && j0=${#seppos[@]}-1
+    for ((j=j0;j>=i;j--)); do
+      local f1=0 f2=${seppos[j]}
+      ((i)) && ((f1=seppos[i-1]+1))
+      if ((j>i)); then
+        ble/syntax:bash/simple-word/locate-filename/.exists "${word:f1:f2-f1}" "$opts"; local ext=$?
+        ((ext==148)) && return 148
+        if ((ext==0)); then
+          ble/array#push out "$f1" "$f2"
+          ((i=j))
+        fi
+      else
+        if [[ :$opts: != *:exists:* ]] ||
+             { ble/syntax:bash/simple-word/locate-filename/.exists "${word:f1:f2-f1}" "$opts"
+               local ext=$?; ((ext==148)) && return 148; ((ext==0)); }; then
+          ble/array#push out "$f1" "$f2"
+        fi
+      fi
+    done
+  done
+  ret=("${out[@]}")
+  return 0
+}
+function ble/syntax:bash/simple-word#break-word {
+  local word=$1 sep=${2:-':='}
+  if [[ ! $word ]]; then
+    ret=('')
+    return 0
+  fi
+  sep=${sep//[\"\'\$\`]}
+  local rex_element; ble/syntax:bash/simple-word/.get-rex_element "$sep"
+  local rex='^('$rex_element')?['$sep']+'
+  local -a out=()
+  local tail=$word p=0
+  while [[ $tail =~ $rex ]]; do
+    local rematch1=${BASH_REMATCH[1]}
+    ble/array#push out "$rematch1"
+    ble/array#push out "${BASH_REMATCH:${#rematch1}}"
+    tail=${tail:${#BASH_REMATCH}}
+  done
+  ble/array#push out "$tail"
+  ret=("${out[@]}")
+  return 0
+}
+function ble/syntax:bash/initialize-ctx {
+  ctx=$_ble_ctx_CMDX # _ble_ctx_CMDX が ble/syntax:bash の最初の文脈
+}
+function ble/syntax:bash/initialize-vars {
+  local histc12
+  if [[ ${histchars+set} ]]; then
+    histc12=${histchars::2}
+  else
+    histc12='!^'
+  fi
+  _ble_syntax_bash_histc12=$histc12
+  if ble/syntax:bash/cclass/update; then
+    ble/syntax:bash/simple-word/update
+  fi
+  local histstop=$' \t\n='
+  shopt -q extglob && histstop="$histstop("
+  _ble_syntax_bash_histstop=$histstop
+}
+function ble/syntax/highlight/vartype {
+  if [[ ! $bleopt_highlight_variable ]]; then
+    ret=$_ble_attr_VAR
+    return 0
+  fi
+  local name=$1 opts=$2 tail=$3 rex='^-?[0-9]+(#[0-9a-zA-Z@_]*)?$'
+  local attr; ble/variable#get-attr "$name"
+  if [[ ${!name+set} || $attr == *[aA]* ]]; then
+    if [[ ${!name-} && :$opts: == *:expr:* && ! ( ${!name} =~ $rex ) ]]; then
+      ret=$_ble_attr_VAR_EXPR
+    elif [[ ${!name+set} && $attr == *x* ]]; then
+      ret=$_ble_attr_VAR_EXPORT
+    elif [[ $attr == *a* ]]; then
+      ret=$_ble_attr_VAR_ARRAY
+    elif [[ $attr == *A* ]]; then
+      ret=$_ble_attr_VAR_HASH
+    elif [[ $attr == *r* ]]; then
+      ret=$_ble_attr_VAR_READONLY
+    elif [[ $attr == *i* ]]; then
+      ret=$_ble_attr_VAR_NUMBER
+    elif [[ $attr == *[luc]* ]]; then
+      ret=$_ble_attr_VAR_TRANSFORM
+    elif [[ ! ${!name} ]]; then
+      ret=$_ble_attr_VAR_EMPTY
+    else
+      ret=$_ble_attr_VAR
+    fi
+  else
+    if [[ :$opts: == *:readvar:* && $_ble_bash_set == *u* ]]; then
+      if [[ ! $tail ]] || {
+           local rex='^:?[-+?=]'
+           [[ $tail == :* ]] && lookahead=2
+           ! [[ $tail =~ $rex ]]; }
+      then
+        ret=$_ble_attr_ERR
+        return 0
+      fi
+    fi
+    ret=$_ble_attr_VAR_UNSET
+  fi
+}
+function ble/syntax:bash/check-plain-with-escape {
+  local rex='^('$1'|\\.)' is_quote=$2
+  [[ $tail =~ $rex ]] || return 1
+  if [[ $BASH_REMATCH == '\'? &&
+          ( ! $is_quote || $BASH_REMATCH == '\'[$'\\`$\n"'] ) ]]; then
+    ((_ble_syntax_attr[i]=_ble_attr_QESC))
+  else
+    ((_ble_syntax_attr[i]=ctx))
+  fi
+  ((i+=${#BASH_REMATCH}))
+  return 0
+}
+function ble/syntax:bash/check-dollar {
+  [[ $tail == '$'* ]] || return 1
+  local rex
+  if [[ $tail == '${'* ]]; then
+    local rex1='^(\$\{#)([-*@#?$!0]\}?|[1-9][0-9]*\}?|[a-zA-Z_][a-zA-Z_0-9]*[[}]?)'
+    local rex2='^(\$\{!?)([-*@#?$!0]|[1-9][0-9]*|[a-zA-Z_][a-zA-Z_0-9]*\[?)'
+    if
+      [[ $tail =~ $rex1 ]] && {
+        [[ ${BASH_REMATCH[2]} == *['[}'] || $BASH_REMATCH == "$tail" ]] ||
+          { ble/syntax/parse/set-lookahead $((${#BASH_REMATCH}+1)); false; } } ||
+        [[ $tail =~ $rex2 ]]
+    then
+      local rematch1=${BASH_REMATCH[1]}
+      local rematch2=${BASH_REMATCH[2]}
+      local varname=${rematch2%['[}']}
+      local ntype='${'
+      if ((ctx==_ble_ctx_QUOT)); then
+        ntype='"${'
+      elif ((ctx==_ble_ctx_PWORD||ctx==_ble_ctx_PWORDE||ctx==_ble_ctx_PWORDR||ctx==_ble_ctx_EXPR)); then
+        local ntype2; ble/syntax/parse/nest-type -v ntype2
+        [[ $ntype2 == '"${' ]] && ntype='"${'
+      fi
+      local ret lookahead= tail2=${tail:${#rematch1}+${#varname}}
+      ble/syntax/highlight/vartype "$varname" readvar "$tail2"; local attr=$ret
+      ble/syntax/parse/nest-push "$_ble_ctx_PARAM" "$ntype"
+      ((_ble_syntax_attr[i]=ctx,
+        i+=${#rematch1},
+        _ble_syntax_attr[i]=attr,
+        i+=${#varname}))
+      [[ $lookahead ]] && ble/syntax/parse/set-lookahead "$lookahead"
+      if rex='^\$\{![a-zA-Z_][a-zA-Z_0-9]*[*@]\}?'; [[ $tail =~ $rex ]]; then
+        ble/syntax/parse/set-lookahead 2
+        if [[ $BASH_REMATCH == *'}' ]]; then
+          ((i++,ctx=_ble_ctx_PWORDE))
+        fi
+      elif [[ $rematch2 == *'[' ]]; then
+        ble/syntax/parse/nest-push "$_ble_ctx_EXPR" 'v['
+        ((_ble_syntax_attr[i++]=_ble_ctx_EXPR))
+      fi
+      return 0
+    else
+      ((_ble_syntax_attr[i]=_ble_attr_ERR,i+=2))
+      return 0
+    fi
+  elif [[ $tail == '$(('* ]]; then
+    ((_ble_syntax_attr[i]=_ble_ctx_PARAM))
+    ble/syntax/parse/nest-push "$_ble_ctx_EXPR" '$(('
+    ((i+=3))
+    return 0
+  elif [[ $tail == '$['* ]]; then
+    ((_ble_syntax_attr[i]=_ble_ctx_PARAM))
+    ble/syntax/parse/nest-push "$_ble_ctx_EXPR" '$['
+    ((i+=2))
+    return 0
+  elif [[ $tail == '$('* ]]; then
+    ((_ble_syntax_attr[i]=_ble_ctx_PARAM))
+    ble/syntax/parse/nest-push "$_ble_ctx_CMDX" '$('
+    ((i+=2))
+    return 0
+  elif rex='^\$([-*@#?$!0_]|[1-9]|[a-zA-Z_][a-zA-Z_0-9]*)' && [[ $tail =~ $rex ]]; then
+    local rematch=$BASH_REMATCH rematch1=${BASH_REMATCH[1]}
+    local ret; ble/syntax/highlight/vartype "$rematch1" readvar
+    ((_ble_syntax_attr[i]=_ble_ctx_PARAM,
+      _ble_syntax_attr[i+1]=ret,
+      i+=${#rematch}))
+    return 0
+  else
+    ((_ble_syntax_attr[i++]=ctx))
+    return 0
+  fi
+}
+function ble/syntax:bash/check-quotes {
+  local rex aqdel=$_ble_attr_QDEL aquot=$_ble_ctx_QUOT
+  if ((ctx==_ble_ctx_EXPR)); then
+    local ntype
+    ble/syntax/parse/nest-type
+    if [[ $ntype == '${' || $ntype == '$[' || $ntype == '$((' || $ntype == 'NQ(' ]]; then
+      ((aqdel=_ble_attr_ERR,aquot=_ble_ctx_EXPR))
+    elif [[ $ntype == '"${' ]] && ! { [[ $tail == '$'[\'\"]* ]] && shopt -q extquote; }; then
+      ((aqdel=_ble_attr_ERR,aquot=_ble_ctx_EXPR))
+    fi
+  elif ((ctx==_ble_ctx_PWORD||ctx==_ble_ctx_PWORDE||ctx==_ble_ctx_PWORDR)); then
+    if [[ $tail == '$'[\'\"]* ]] && ! shopt -q extquote; then
+      local ntype
+      ble/syntax/parse/nest-type
+      if [[ $ntype == '"${' ]]; then
+        ((aqdel=ctx,aquot=ctx))
+      fi
+    fi
+  fi
+  if rex='^`([^`\]|\\(.|$))*(`?)|^'\''[^'\'']*('\''?)' && [[ $tail =~ $rex ]]; then
+    ((_ble_syntax_attr[i]=aqdel,
+      _ble_syntax_attr[i+1]=aquot,
+      i+=${#BASH_REMATCH},
+      _ble_syntax_attr[i-1]=${#BASH_REMATCH[3]}||${#BASH_REMATCH[4]}?aqdel:_ble_attr_ERR))
+    return 0
+  fi
+  if ((ctx!=_ble_ctx_QUOT)); then
+    if rex='^(\$?")([^'"${_ble_syntax_bash_chars[_ble_ctx_QUOT]}"']*)("?)' && [[ $tail =~ $rex ]]; then
+      local rematch1=${BASH_REMATCH[1]} # for bash-3.1 ${#arr[n]} bug
+      if [[ ${BASH_REMATCH[3]} ]]; then
+        ((_ble_syntax_attr[i]=aqdel,
+          _ble_syntax_attr[i+${#rematch1}]=aquot,
+          i+=${#BASH_REMATCH},
+          _ble_syntax_attr[i-1]=aqdel))
+      else
+        ble/syntax/parse/nest-push "$_ble_ctx_QUOT"
+        if (((ctx==_ble_ctx_PWORD||ctx==_ble_ctx_PWORDE||ctx==_ble_ctx_PWORDR)&&aqdel!=_ble_attr_QDEL)); then
+          ((_ble_syntax_attr[i]=aqdel,
+            _ble_syntax_attr[i+${#rematch1}-1]=_ble_attr_QDEL,
+            _ble_syntax_attr[i+${#rematch1}]=_ble_ctx_QUOT,
+            i+=${#BASH_REMATCH}))
+        else
+          ((_ble_syntax_attr[i]=aqdel,
+            _ble_syntax_attr[i+${#rematch1}]=_ble_ctx_QUOT,
+            i+=${#BASH_REMATCH}))
+        fi
+      fi
+      return 0
+    elif rex='^\$'\''(([^'\''\]|\\(.|$))*)('\''?)' && [[ $tail =~ $rex ]]; then
+      ((_ble_syntax_attr[i]=aqdel,i+=2))
+      local t=${BASH_REMATCH[1]} rematch4=${BASH_REMATCH[4]}
+      local rex='\\[abefnrtvE"'\''\?]|\\[0-7]{1,3}|\\c.|\\x[0-9a-fA-F]{1,2}'
+      ((_ble_bash>=40200)) && rex=$rex'|\\u[0-9a-fA-F]{1,4}|\\U[0-9a-fA-F]{1,8}'
+      local rex='^([^'\''\]*)('$rex'|(\\.))'
+      while [[ $t =~ $rex ]]; do
+        local m1=${BASH_REMATCH[1]} m2=${BASH_REMATCH[2]}
+        [[ $m1 ]] && ((_ble_syntax_attr[i]=aquot,i+=${#m1}))
+        if [[ ${BASH_REMATCH[3]} ]]; then
+          ((_ble_syntax_attr[i]=aquot))
+        else
+          ((_ble_syntax_attr[i]=_ble_attr_QESC))
+        fi
+        ((i+=${#m2}))
+        t=${t:${#BASH_REMATCH}}
+      done
+      [[ $t ]] && ((_ble_syntax_attr[i]=aquot,i+=${#t}))
+      if [[ $rematch4 ]]; then
+        ((_ble_syntax_attr[i++]=aqdel))
+      else
+        ((_ble_syntax_attr[i-1]=_ble_attr_ERR))
+      fi
+      return 0
+    fi
+  fi
+  return 1
+}
+function ble/syntax:bash/check-process-subst {
+  if [[ $tail == ['<>']'('* ]]; then
+    ble/syntax/parse/nest-push "$_ble_ctx_CMDX" '('
+    ((_ble_syntax_attr[i]=_ble_attr_DEL,i+=2))
+    return 0
+  fi
+  return 1
+}
+function ble/syntax:bash/check-comment {
+  if shopt -q interactive_comments; then
+    if ((wbegin<0||wbegin==i)) && local rex=$'^#[^\n]*' && [[ $tail =~ $rex ]]; then
+      ((_ble_syntax_attr[i]=_ble_attr_COMMENT,
+        i+=${#BASH_REMATCH}))
+      return 0
+    fi
+  fi
+  return 1
+}
+function ble/syntax:bash/check-glob {
+  [[ $tail == ['[?*@+!()|']* ]] || return 1
+  local ntype= force_attr=
+  if ((ctx==_ble_ctx_VRHS||ctx==_ble_ctx_ARGVR||ctx==_ble_ctx_ARGER||ctx==_ble_ctx_VALR||ctx==_ble_ctx_RDRS)); then
+    force_attr=$ctx
+    ntype="glob_attr=$force_attr"
+  elif ((ctx==_ble_ctx_FARGX1||ctx==_ble_ctx_FARGI1)); then
+    force_attr=$_ble_attr_ERR
+    ntype="glob_attr=$force_attr"
+  elif ((ctx==_ble_ctx_PWORD||ctx==_ble_ctx_PWORDE||ctx==_ble_ctx_PWORDR)); then
+    ntype="glob_ctx=$ctx"
+  elif ((ctx==_ble_ctx_PATN||ctx==_ble_ctx_BRAX)); then
+    ble/syntax/parse/nest-type
+    local exit_attr=
+    if [[ $ntype == glob_attr=* ]]; then
+      force_attr=${ntype#*=}
+      exit_attr=$force_attr
+    elif ((ctx==_ble_ctx_BRAX)); then
+      force_attr=$ctx
+      ntype="glob_attr=$force_attr"
+    elif ((ctx==_ble_ctx_PATN)); then
+      ((exit_attr=_ble_syntax_attr[inest]))
+      [[ $ntype != glob_ctx=* ]] && ntype=
+    else
+      ntype=
+    fi
+  elif [[ $1 == assign ]]; then
+    ntype='a['
+  fi
+  if [[ $tail == ['?*@+!']'('* ]] && shopt -q extglob; then
+    ble/syntax/parse/nest-push "$_ble_ctx_PATN" "$ntype"
+    ((_ble_syntax_attr[i]=${force_attr:-_ble_attr_GLOB},i+=2))
+    return 0
+  fi
+  local histc1=${_ble_syntax_bash_histc12::1}
+  [[ $histc1 && $tail == "$histc1"* ]] && return 1
+  if [[ $tail == '['* ]]; then
+    if ((ctx==_ble_ctx_BRAX)); then
+      ((_ble_syntax_attr[i++]=force_attr))
+      [[ $tail == '[!'* ]] && ((i++))
+      return 0
+    fi
+    ble/syntax/parse/nest-push "$_ble_ctx_BRAX" "$ntype"
+    ((_ble_syntax_attr[i++]=${force_attr:-_ble_attr_GLOB}))
+    [[ $tail == '[!'* ]] && ((i++))
+    if [[ ${text:i:1} == ']' ]]; then
+      ((_ble_syntax_attr[i++]=${force_attr:-_ble_ctx_BRAX}))
+    elif [[ ${text:i:1} == '[' ]]; then
+      if [[ ${text:i+1:1} == [:=.] ]]; then
+        ble/syntax/parse/set-lookahead 2
+      else
+        ((_ble_syntax_attr[i++]=${force_attr:-_ble_ctx_BRAX}))
+        [[ ${text:i:1} == '!'* ]] && ((i++))
+      fi
+    fi
+    return 0
+  elif [[ $tail == ['?*']* ]]; then
+    ((_ble_syntax_attr[i++]=${force_attr:-_ble_attr_GLOB}))
+    return 0
+  elif [[ $tail == ['@+!']* ]]; then
+    ((_ble_syntax_attr[i++]=${force_attr:-ctx}))
+    return 0
+  elif ((ctx==_ble_ctx_PATN||ctx==_ble_ctx_BRAX)); then
+    if [[ $tail == '('* ]]; then
+      ble/syntax/parse/nest-push "$_ble_ctx_PATN" "$ntype"
+      ((_ble_syntax_attr[i++]=${force_attr:-ctx}))
+      return 0
+    elif [[ $tail == ')'* ]]; then
+      if ((ctx==_ble_ctx_PATN)); then
+        ((_ble_syntax_attr[i++]=exit_attr))
+        ble/syntax/parse/nest-pop
+      else
+        ((_ble_syntax_attr[i++]=${force_attr:-ctx}))
+      fi
+      return 0
+    elif [[ $tail == '|'* ]]; then
+      ((_ble_syntax_attr[i++]=${force_attr:-_ble_attr_GLOB}))
+      return 0
+    fi
+  fi
+  return 1
+}
+_ble_syntax_bash_histexpand_RexWord=
+_ble_syntax_bash_histexpand_RexMods=
+_ble_syntax_bash_histexpand_RexEventDef=
+_ble_syntax_bash_histexpand_RexQuicksubDef=
+_ble_syntax_bash_histexpand_RexEventFmt=
+_ble_syntax_bash_histexpand_RexQuicksubFmt=
+function ble/syntax:bash/check-history-expansion/.initialize {
+  local spaces=$_ble_term_IFS nl=$'\n'
+  local rex_event='-?[0-9]+|[!#]|[^-$^*%:'$spaces'=?!#;&|<>()]+|\?[^?'$nl']*\??'
+  _ble_syntax_bash_histexpand_RexEventDef='^!('$rex_event')'
+  local rex_word1='([0-9]+|[$%^])'
+  local rex_wordsA=':('$rex_word1'?-'$rex_word1'?|\*|'$rex_word1'\*?)'
+  local rex_wordsB='([$%^]?-'$rex_word1'?|\*|[$^%][*-]?)'
+  _ble_syntax_bash_histexpand_RexWord='('$rex_wordsA'|'$rex_wordsB')?'
+  local rex_modifier=':[htrepqx]|:[gGa]?&|:[gGa]?s(/([^\/]|\\.)*){0,2}(/|$)'
+  _ble_syntax_bash_histexpand_RexMods='('$rex_modifier')*'
+  _ble_syntax_bash_histexpand_RexQuicksubDef='\^([^^\]|\\.)*\^([^^\]|\\.)*\^'
+  _ble_syntax_bash_histexpand_RexQuicksubFmt='@A([^@C\]|\\.)*@A([^@C\]|\\.)*@A'
+  _ble_syntax_bash_histexpand_RexEventFmt='^@A('$rex_event'|@A)'
+}
+ble/syntax:bash/check-history-expansion/.initialize
+function ble/syntax:bash/check-history-expansion/.initialize-event {
+  local histc1=${_ble_syntax_bash_histc12::1}
+  if [[ $histc1 == '!' ]]; then
+    rex_event=$_ble_syntax_bash_histexpand_RexEventDef
+  else
+    local A="[$histc1]"
+    [[ $histc1 == '^' ]] && A='\^'
+    rex_event=$_ble_syntax_bash_histexpand_RexEventFmt
+    rex_event=${rex_event//@A/"$A"}
+  fi
+}
+function ble/syntax:bash/check-history-expansion/.initialize-quicksub {
+  local histc2=${_ble_syntax_bash_histc12:1:1}
+  if [[ $histc2 == '^' ]]; then
+    rex_quicksub=$_ble_syntax_bash_histexpand_RexQuicksubDef
+  else
+    rex_quicksub=$_ble_syntax_bash_histexpand_RexQuicksubFmt
+    rex_quicksub=${rex_quicksub//@A/"[$histc2]"}
+    rex_quicksub=${rex_quicksub//@C/"$histc2"}
+  fi
+}
+function ble/syntax:bash/check-history-expansion/.check-modifiers {
+  [[ ${text:i} =~ $_ble_syntax_bash_histexpand_RexMods ]] &&
+    ((i+=${#BASH_REMATCH}))
+  if local rex='^:[gGa]?s(.)'; [[ ${text:i} =~ $rex ]]; then
+    local del=${BASH_REMATCH[1]}
+    local A="[$del]" B="[^$del]"
+    [[ $del == '^' || $del == ']' ]] && A='\'$del
+    [[ $del != '\' ]] && B=$B'|\\.'
+    local rex_substitute='^:[gGa]?s('$A'('$B')*){0,2}('$A'|$)'
+    if [[ ${text:i} =~ $rex_substitute ]]; then
+      ((i+=${#BASH_REMATCH}))
+      ble/syntax:bash/check-history-expansion/.check-modifiers
+      return 0
+    fi
+  fi
+  if [[ ${text:i} == ':'[gGa]* ]]; then
+    ((_ble_syntax_attr[i+1]=_ble_attr_ERR,i+=2))
+  elif [[ ${text:i} == ':'* ]]; then
+    ((_ble_syntax_attr[i]=_ble_attr_ERR,i++))
+  fi
+}
+function ble/syntax:bash/check-history-expansion {
+  [[ -o histexpand ]] || return 1
+  local histc1=${_ble_syntax_bash_histc12:0:1}
+  local histc2=${_ble_syntax_bash_histc12:1:1}
+  if [[ $histc1 && $tail == "$histc1"[^"$_ble_syntax_bash_histstop"]* ]]; then
+    if ((ctx==_ble_ctx_QUOT)); then
+      local tail=${tail%%'"'*}
+      [[ $tail == '!' ]] && return 1
+    fi
+    ((_ble_syntax_attr[i]=_ble_attr_HISTX))
+    local rex_event
+    ble/syntax:bash/check-history-expansion/.initialize-event
+    if [[ $tail =~ $rex_event ]]; then
+      ((i+=${#BASH_REMATCH}))
+    elif [[ $tail == "$histc1"['-:0-9^$%*']* ]]; then
+      ((_ble_syntax_attr[i]=_ble_attr_HISTX,i++))
+    else
+      ((_ble_syntax_attr[i+1]=_ble_attr_ERR,i+=2))
+      return 0
+    fi
+    [[ ${text:i} =~ $_ble_syntax_bash_histexpand_RexWord ]] &&
+      ((i+=${#BASH_REMATCH}))
+    ble/syntax:bash/check-history-expansion/.check-modifiers
+    return 0
+  elif ((i==0)) && [[ $histc2 && $tail == "$histc2"* ]]; then
+    ((_ble_syntax_attr[i]=_ble_attr_HISTX))
+    local rex_quicksub
+    ble/syntax:bash/check-history-expansion/.initialize-quicksub
+    if [[ $tail =~ $rex_quicksub ]]; then
+      ((i+=${#BASH_REMATCH}))
+      ble/syntax:bash/check-history-expansion/.check-modifiers
+      return 0
+    else
+      ((i+=${#tail}))
+      return 0
+    fi
+  fi
+  return 1
+}
+function ble/syntax:bash/starts-with-histchars {
+  [[ $_ble_syntax_bash_histc12 && $tail == ["$_ble_syntax_bash_histc12"]* ]]
+}
+_BLE_SYNTAX_FCTX[_ble_ctx_QUOT]=ble/syntax:bash/ctx-quot
+function ble/syntax:bash/ctx-quot {
+  if ble/syntax:bash/check-plain-with-escape "[^${_ble_syntax_bash_chars[_ble_ctx_QUOT]}]+" 1; then
+    return 0
+  elif [[ $tail == '"'* ]]; then
+    ((_ble_syntax_attr[i]=_ble_attr_QDEL,
+      i+=1))
+    ble/syntax/parse/nest-pop
+    return 0
+  elif ble/syntax:bash/check-quotes; then
+    return 0
+  elif ble/syntax:bash/check-dollar; then
+    return 0
+  elif ble/syntax:bash/starts-with-histchars; then
+    ble/syntax:bash/check-history-expansion ||
+      ((_ble_syntax_attr[i]=ctx,i++))
+    return 0
+  fi
+  return 1
+}
+_BLE_SYNTAX_FCTX[_ble_ctx_CASE]=ble/syntax:bash/ctx-case
+function ble/syntax:bash/ctx-case {
+  if [[ $tail =~ ^$_ble_syntax_bash_RexIFSs ]]; then
+    ((_ble_syntax_attr[i]=ctx,i+=${#BASH_REMATCH}))
+    return 0
+  elif [[ $tail == '('* ]]; then
+    ((_ble_syntax_attr[i++]=_ble_attr_GLOB,ctx=_ble_ctx_CPATX))
+    return 0
+  elif [[ $tail == 'esac'$_ble_syntax_bash_RexDelimiter* || $tail == 'esac' ]]; then
+    ((ctx=_ble_ctx_CMDX))
+    ble/syntax:bash/ctx-command
+  else
+    ((ctx=_ble_ctx_CPATX))
+    ble/syntax:bash/ctx-command-case-pattern-expect
+  fi
+}
+_BLE_SYNTAX_FCTX[_ble_ctx_PATN]=ble/syntax:bash/ctx-globpat
+_BLE_SYNTAX_FEND[_ble_ctx_PATN]=ble/syntax:bash/ctx-globpat.end
+function ble/syntax:bash/ctx-globpat/get-stop-chars {
+  chars=${_ble_syntax_bash_chars[_ble_ctx_PATN]}
+  local ntype; ble/syntax/parse/nest-type
+  if [[ $ntype == glob_ctx=* ]]; then
+    local gctx=${ntype#glob_ctx=}
+    if ((gctx==_ble_ctx_PWORD||gctx==_ble_ctx_PWORDE)); then
+      chars=}$chars
+    elif ((gctx==_ble_ctx_PWORDR)); then
+      chars=}/$chars
+    fi
+  fi
+}
+function ble/syntax:bash/ctx-globpat {
+  local chars; ble/syntax:bash/ctx-globpat/get-stop-chars
+  if ble/syntax:bash/check-plain-with-escape "[^$chars]+"; then
+    return 0
+  elif ble/syntax:bash/check-process-subst; then
+    return 0
+  elif [[ $tail == ['<>']* ]]; then
+    ((_ble_syntax_attr[i++]=ctx))
+    return 0
+  elif ble/syntax:bash/check-quotes; then
+    return 0
+  elif ble/syntax:bash/check-dollar; then
+    return 0
+  elif ble/syntax:bash/check-glob; then
+    return 0
+  elif ble/syntax:bash/check-brace-expansion; then
+    return 0
+  elif ble/syntax:bash/starts-with-histchars; then
+    ble/syntax:bash/check-history-expansion ||
+      ((_ble_syntax_attr[i]=ctx,i++))
+    return 0
+  fi
+  return 1
+}
+function ble/syntax:bash/ctx-globpat.end {
+  local is_end= tail=${text:i}
+  local ntype; ble/syntax/parse/nest-type
+  if [[ $ntype == glob_ctx=* ]]; then
+    local gctx=${ntype#glob_ctx=}
+    if ((gctx==_ble_ctx_PWORD||gctx==_ble_ctx_PWORDE)); then
+      [[ ! $tail || $tail == '}'* ]] && is_end=1
+    elif ((gctx==_ble_ctx_PWORDR)); then
+      [[ ! $tail || $tail == ['/}']* ]] && is_end=1
+    fi
+  fi
+  if [[ $is_end ]]; then
+    ble/syntax/parse/nest-pop
+    ble/syntax/parse/check-end
+    return 0
+  fi
+  return 0
+}
+_BLE_SYNTAX_FCTX[_ble_ctx_BRAX]=ble/syntax:bash/ctx-bracket-expression
+_BLE_SYNTAX_FEND[_ble_ctx_BRAX]=ble/syntax:bash/ctx-bracket-expression.end
+function ble/syntax:bash/ctx-bracket-expression {
+  local nctx; ble/syntax/parse/nest-ctx
+  if ((nctx==_ble_ctx_PATN)); then
+    local chars; ble/syntax:bash/ctx-globpat/get-stop-chars
+  elif ((nctx==_ble_ctx_PWORD||nctx==_ble_ctx_PWORDE||nctx==_ble_ctx_PWORDR)); then
+    local chars=${_ble_syntax_bash_chars[nctx]}
+  else
+    local chars=${_ble_syntax_bash_chars[_ble_ctx_ARGI]//'~'}
+  fi
+  chars="][${chars#']'}"
+  local ntype; ble/syntax/parse/nest-type
+  local force_attr=; [[ $ntype == glob_attr=* ]] && force_attr=${ntype#*=}
+  local rex
+  if [[ $tail == ']'* ]]; then
+    ((_ble_syntax_attr[i++]=${force_attr:-_ble_attr_GLOB}))
+    ble/syntax/parse/nest-pop
+    if [[ $ntype == 'a[' ]]; then
+      local is_assign=
+      if [[ $tail == ']='* ]]; then
+        ((_ble_syntax_attr[i++]=ctx,is_assign=1))
+      elif [[ $tail == ']+'* ]]; then
+        ble/syntax/parse/set-lookahead 2
+        [[ $tail == ']+=' ]] && ((_ble_syntax_attr[i]=ctx,i+=2,is_assign=1))
+      fi
+      if [[ $is_assign ]]; then
+        ble/util/assert '[[ ${_ble_syntax_bash_command_CtxAssign[ctx]} ]]'
+        ((ctx=_ble_syntax_bash_command_CtxAssign[ctx]))
+        if local tail=${text:i}; [[ $tail == '~'* ]]; then
+          ble/syntax:bash/check-tilde-expansion rhs
+        fi
+      fi
+    fi
+    return 0
+  elif [[ $tail == '['* ]]; then
+    rex='^\[@([^'$chars']+(@\]?)?)?'
+    rex=${rex//@/:}'|'${rex//@/'\.'}'|'${rex//@/=}'|^\['
+    [[ $tail =~ $rex ]]
+    ((_ble_syntax_attr[i]=${force_attr:-ctx},
+      i+=${#BASH_REMATCH}))
+    return 0
+  elif ctx=${force_attr:-$ctx} ble/syntax:bash/check-plain-with-escape "[^$chars]+"; then
+    return 0
+  elif ble/syntax:bash/check-process-subst; then
+    return 0
+  elif ble/syntax:bash/check-quotes; then
+    return 0
+  elif ble/syntax:bash/check-dollar; then
+    return 0
+  elif ble/syntax:bash/check-glob; then
+    return 0
+  elif ble/syntax:bash/check-brace-expansion; then
+    return 0
+  elif ble/syntax:bash/check-tilde-expansion; then
+    return 0
+  elif ble/syntax:bash/starts-with-histchars; then
+    ble/syntax:bash/check-history-expansion ||
+      ((_ble_syntax_attr[i++]=${force_attr:-ctx}))
+    return 0
+  elif ((nctx==_ble_ctx_PATN)) && [[ $tail == ['<>']* ]]; then
+    ((_ble_syntax_attr[i++]=${force_attr:-ctx}))
+    return 0
+  fi
+  return 1
+}
+function ble/syntax:bash/ctx-bracket-expression.end {
+  local is_end=
+  local tail=${text:i}
+  if [[ ! $tail ]]; then
+    is_end=1
+  else
+    local nctx; ble/syntax/parse/nest-ctx
+    local external_ctx=$nctx
+    if ((nctx==_ble_ctx_PATN)); then
+      local ntype; ble/syntax/parse/nest-type
+      [[ $ntype == glob_ctx=* ]] &&
+        external_ctx=${ntype#glob_ctx=}
+    fi
+    if ((external_ctx==_ble_ctx_PATN)); then
+      [[ $tail == ')'* ]] && is_end=1
+    elif ((external_ctx==_ble_ctx_PWORD||external_ctx==_ble_ctx_PWORDE)); then
+      [[ $tail == '}'* ]] && is_end=1
+    elif ((external_ctx==_ble_ctx_PWORDR)); then
+      [[ $tail == ['}/']* ]] && is_end=1
+    else
+      if ble/syntax:bash/check-word-end/is-delimiter; then
+        is_end=1
+      elif [[ $tail == ':'* && ${_ble_syntax_bash_command_IsAssign[ctx]} ]]; then
+        is_end=1
+      fi
+    fi
+  fi
+  if [[ $is_end ]]; then
+    ble/syntax/parse/nest-pop
+    ble/syntax/parse/check-end
+    return "$?"
+  fi
+  return 0
+}
+_BLE_SYNTAX_FCTX[_ble_ctx_PARAM]=ble/syntax:bash/ctx-param
+_BLE_SYNTAX_FCTX[_ble_ctx_PWORD]=ble/syntax:bash/ctx-pword
+_BLE_SYNTAX_FCTX[_ble_ctx_PWORDR]=ble/syntax:bash/ctx-pword
+_BLE_SYNTAX_FCTX[_ble_ctx_PWORDE]=ble/syntax:bash/ctx-pword-error
+function ble/syntax:bash/ctx-param {
+  if [[ $tail == '}'* ]]; then
+    ((_ble_syntax_attr[i]=_ble_syntax_attr[inest]))
+    ((i+=1))
+    ble/syntax/parse/nest-pop
+    return 0
+  fi
+  local rex='##?|%%?|:?[-?=+]|:|/[/#%]?'
+  ((_ble_bash>=40000)) && rex=$rex'|,,?|\^\^?|~~?'
+  if ((_ble_bash>=50100)); then
+    rex=$rex'|@[QEPAaUuLK]?'
+  elif ((_ble_bash>=40400)); then
+    rex=$rex'|@[QEPAa]?'
+  fi
+  rex='^('$rex')'
+  if [[ $tail =~ $rex ]]; then
+    ((_ble_syntax_attr[i]=_ble_ctx_PARAM,
+      i+=${#BASH_REMATCH}))
+    if [[ $BASH_REMATCH == '/'* ]]; then
+      ((ctx=_ble_ctx_PWORDR))
+    elif [[ $BASH_REMATCH == : ]]; then
+      ((ctx=_ble_ctx_EXPR,_ble_syntax_attr[i-1]=_ble_ctx_EXPR))
+    elif [[ $BASH_REMATCH == @* ]]; then
+      ((ctx=_ble_ctx_PWORDE))
+    else
+      ((ctx=_ble_ctx_PWORD))
+      [[ $BASH_REMATCH == [':-+=?#%']* ]] &&
+        tail=${text:i} ble/syntax:bash/check-tilde-expansion pword
+    fi
+    return 0
+  else
+    local i0=$i
+    ((ctx=_ble_ctx_PWORD))
+    ble/syntax:bash/ctx-pword || return 1
+    if ((i0+2<=i)); then
+      ((_ble_syntax_attr[i0+1])) ||
+        ((_ble_syntax_attr[i0+1]=_ble_syntax_attr[i0]))
+    fi
+    ((_ble_syntax_attr[i0]=_ble_attr_ERR))
+    return 0
+  fi
+}
+function ble/syntax:bash/ctx-pword {
+  if ble/syntax:bash/check-plain-with-escape "[^${_ble_syntax_bash_chars[ctx]}]+"; then
+    return 0
+  elif ((ctx==_ble_ctx_PWORDR)) && [[ $tail == '/'* ]]; then
+    ((_ble_syntax_attr[i++]=_ble_ctx_PARAM,ctx=_ble_ctx_PWORD))
+    return 0
+  elif [[ $tail == '}'* ]]; then
+    ((_ble_syntax_attr[i]=_ble_syntax_attr[inest]))
+    ((i+=1))
+    ble/syntax/parse/nest-pop
+    return 0
+  elif ble/syntax:bash/check-quotes; then
+    return 0
+  elif ble/syntax:bash/check-dollar; then
+    return 0
+  elif ble/syntax:bash/check-glob; then
+    return 0
+  elif ble/syntax:bash/starts-with-histchars; then
+    ble/syntax:bash/check-history-expansion ||
+      ((_ble_syntax_attr[i]=ctx,i++))
+    return 0
+  fi
+  return 1
+}
+function ble/syntax:bash/ctx-pword-error {
+  local i0=$i
+  if ble/syntax:bash/ctx-pword; then
+    [[ $tail == '}'* ]] ||
+      ((_ble_syntax_attr[i0]=_ble_attr_ERR))
+    return 0
+  else
+    return 1
+  fi
+}
+_BLE_SYNTAX_FCTX[_ble_ctx_EXPR]=ble/syntax:bash/ctx-expr
+function ble/syntax:bash/ctx-expr/.count-paren {
+  if [[ $char == ')' ]]; then
+    if [[ $ntype == '((' || $ntype == '$((' ]]; then
+      if [[ $tail == '))'* ]]; then
+        ((_ble_syntax_attr[i]=_ble_syntax_attr[inest]))
+        ((i+=2))
+        ble/syntax/parse/nest-pop
+      else
+        ((ctx=_ble_ctx_ARGX0,
+          _ble_syntax_attr[i++]=_ble_syntax_attr[inest]))
+      fi
+      return 0
+    elif [[ $ntype == '(' || $ntype == 'NQ(' ]]; then
+      ((_ble_syntax_attr[i++]=ctx))
+      ble/syntax/parse/nest-pop
+      return 0
+    fi
+  elif [[ $char == '(' ]]; then
+    local ntype2='('
+    [[ $ntype == '$((' || $ntype == 'NQ(' ]] && ntype2='NQ('
+    ble/syntax/parse/nest-push "$_ble_ctx_EXPR" "$ntype2"
+    ((_ble_syntax_attr[i++]=ctx))
+    return 0
+  fi
+  return 1
+}
+function ble/syntax:bash/ctx-expr/.count-bracket {
+  if [[ $char == ']' ]]; then
+    if [[ $ntype == '[' || $ntype == '$[' ]]; then
+      ((_ble_syntax_attr[i]=_ble_syntax_attr[inest]))
+      ((i++))
+      ble/syntax/parse/nest-pop
+      return 0
+    elif [[ $ntype == [ad]'[' ]]; then
+      ((_ble_syntax_attr[i++]=_ble_ctx_EXPR))
+      ble/syntax/parse/nest-pop
+      if [[ $tail == ']='* ]]; then
+        ((i++))
+        tail=${text:i} ble/syntax:bash/check-tilde-expansion rhs
+      elif ((_ble_bash>=30100)) && [[ $tail == ']+'* ]]; then
+        ble/syntax/parse/set-lookahead 2
+        if [[ $tail == ']+='* ]]; then
+          ((i+=2))
+          tail=${text:i} ble/syntax:bash/check-tilde-expansion rhs
+        fi
+      else
+        if [[ $ntype == 'a[' ]]; then
+          if ((ctx==_ble_ctx_VRHS)); then
+            ((ctx=_ble_ctx_CMDI,wtype=_ble_ctx_CMDI))
+          elif ((ctx==_ble_ctx_ARGVR)); then
+            ((ctx=_ble_ctx_ARGVI,wtype=_ble_ctx_ARGVI))
+          elif ((ctx==_ble_ctx_ARGER)); then
+            ((ctx=_ble_ctx_ARGEI,wtype=_ble_ctx_ARGEI))
+          fi
+        else # ntype == 'd['
+          ((ctx=_ble_ctx_VALI,wtype=_ble_ctx_VALI))
+        fi
+      fi
+      return 0
+    elif [[ $ntype == 'v[' ]]; then
+      ((_ble_syntax_attr[i++]=_ble_ctx_EXPR))
+      ble/syntax/parse/nest-pop
+      return 0
+    fi
+  elif [[ $char == '[' ]]; then
+    ble/syntax/parse/nest-push "$_ble_ctx_EXPR" '['
+    ((_ble_syntax_attr[i++]=ctx))
+    return 0
+  fi
+  return 1
+}
+function ble/syntax:bash/ctx-expr/.count-brace {
+  if [[ $char == '}' ]]; then
+    ((_ble_syntax_attr[i]=_ble_syntax_attr[inest]))
+    ((i++))
+    ble/syntax/parse/nest-pop
+    return 0
+  fi
+  return 1
+}
+function ble/syntax:bash/ctx-expr {
+  local rex
+  if rex='^[a-zA-Z_][a-zA-Z_0-9]*'; [[ $tail =~ $rex ]]; then
+    local rematch=$BASH_REMATCH
+    local ret; ble/syntax/highlight/vartype "$BASH_REMATCH" readvar:expr
+    ((_ble_syntax_attr[i]=ret,i+=${#rematch}))
+    return 0
+  elif rex='^0[xX][0-9a-fA-F]*|^[0-9]+(#[0-9a-zA-Z@_]*)?'; [[ $tail =~ $rex ]]; then
+    ((_ble_syntax_attr[i]=_ble_attr_VAR_NUMBER,i+=${#BASH_REMATCH}))
+    return 0
+  elif ble/syntax:bash/check-plain-with-escape "[^${_ble_syntax_bash_chars[ctx]}a-zA-Z_0-9]+" 1; then
+    return 0
+  elif [[ $tail == ['][()}']* ]]; then
+    local char=${tail::1} ntype
+    ble/syntax/parse/nest-type
+    if [[ $ntype == *'(' ]]; then
+      ble/syntax:bash/ctx-expr/.count-paren && return 0
+    elif [[ $ntype == *'[' ]]; then
+      ble/syntax:bash/ctx-expr/.count-bracket && return 0
+    elif [[ $ntype == '${' || $ntype == '"${' ]]; then
+      ble/syntax:bash/ctx-expr/.count-brace && return 0
+    else
+      ble/util/assert 'false' "unexpected ntype=$ntype for arithmetic expression"
+    fi
+    ((_ble_syntax_attr[i++]=ctx))
+    return 0
+  elif ble/syntax:bash/check-quotes; then
+    return 0
+  elif ble/syntax:bash/check-dollar; then
+    return 0
+  elif ble/syntax:bash/starts-with-histchars; then
+    ble/syntax:bash/check-history-expansion ||
+      ((_ble_syntax_attr[i]=ctx,i++))
+    return 0
+  fi
+  return 1
+}
+function ble/syntax:bash/check-brace-expansion {
+  [[ $tail == '{'* ]] || return 1
+  local rex='^\{[-+0-9a-zA-Z.]*(\}?)'
+  [[ $tail =~ $rex ]]
+  local str=$BASH_REMATCH
+  local force_attr= inactive=
+  if [[ $- != *B* ]]; then
+    inactive=1
+  elif ((ctx==_ble_ctx_CONDI||ctx==_ble_ctx_CONDQ||ctx==_ble_ctx_RDRS||ctx==_ble_ctx_VRHS)); then
+    inactive=1
+  elif ((ctx==_ble_ctx_PATN||ctx==_ble_ctx_BRAX)); then
+    local ntype; ble/syntax/parse/nest-type
+    if [[ $ntype == glob_attr=* ]]; then
+      force_attr=${ntype#*=}
+      (((force_attr==_ble_ctx_RDRS||force_attr==_ble_ctx_VRHS||force_attr==_ble_ctx_ARGVR||force_attr==_ble_ctx_ARGER||force_attr==_ble_ctx_VALR)&&(inactive=1)))
+    elif ((ctx==_ble_ctx_BRAX)); then
+      local nctx; ble/syntax/parse/nest-ctx
+      (((nctx==_ble_ctx_CONDI||octx==_ble_ctx_CONDQ)&&(inactive=1)))
+    fi
+  elif ((ctx==_ble_ctx_BRACE1||ctx==_ble_ctx_BRACE2)); then
+    local ntype; ble/syntax/parse/nest-type
+    if [[ $ntype == glob_attr=* ]]; then
+      force_attr=${ntype#*=}
+    fi
+  fi
+  if [[ $inactive ]]; then
+    ((_ble_syntax_attr[i]=${force_attr:-ctx},i+=${#str}))
+    return 0
+  fi
+  [[ ${_ble_syntax_bash_command_IsAssign[ctx]} ]] &&
+    ctx=${_ble_syntax_bash_command_IsAssign[ctx]}
+  if rex='^\{(([-+]?[0-9]+)\.\.[-+]?[0-9]+|[a-zA-Z]\.\.[a-zA-Z])(\.\.[-+]?[0-9]+)?\}$'; [[ $str =~ $rex ]]; then
+    if [[ $force_attr ]]; then
+      ((_ble_syntax_attr[i]=force_attr,i+=${#str}))
+    else
+      local rematch1=${BASH_REMATCH[1]}
+      local rematch2=${BASH_REMATCH[2]}
+      local rematch3=${BASH_REMATCH[3]}
+      local len2=${#rematch2}; ((len2||(len2=1)))
+      local attr=$_ble_attr_BRACE
+      if ((ctx==_ble_ctx_RDRF||ctx==_ble_ctx_RDRD||ctx==_ble_ctx_RDRD2)); then
+        local lhs=${rematch1::len2} rhs=${rematch1:len2+2}
+        if [[ $rematch2 ]]; then
+          local lhs1=$((10#0${lhs#[-+]})); [[ $lhs == -* ]] && ((lhs1=-lhs1))
+          local rhs1=$((10#0${rhs#[-+]})); [[ $rhs == -* ]] && ((rhs1=-rhs1))
+          lhs=$lhs1 rhs=$rhs1
+        fi
+        [[ $lhs != "$rhs" ]] && ((attr=_ble_attr_ERR))
+      fi
+      ((_ble_syntax_attr[i++]=attr))
+      ((_ble_syntax_attr[i]=ctx,i+=len2,
+        _ble_syntax_attr[i]=_ble_attr_BRACE,i+=2,
+        _ble_syntax_attr[i]=ctx,i+=${#rematch1}-len2-2))
+      if [[ $rematch3 ]]; then
+        ((_ble_syntax_attr[i]=_ble_attr_BRACE,i+=2,
+          _ble_syntax_attr[i]=ctx,i+=${#rematch3}-2))
+      fi
+      ((_ble_syntax_attr[i++]=attr))
+    fi
+    return 0
+  fi
+  local ntype=
+  ((ctx==_ble_ctx_RDRF||ctx==_ble_ctx_RDRD||ctx==_ble_ctx_RDRD2)) && force_attr=$ctx
+  [[ $force_attr ]] && ntype="glob_attr=$force_attr"
+  ble/syntax/parse/nest-push "$_ble_ctx_BRACE1" "$ntype"
+  local len=$((${#str}-1))
+  ((_ble_syntax_attr[i++]=${force_attr:-_ble_attr_BRACE},
+    len&&(_ble_syntax_attr[i]=${force_attr:-ctx},i+=len)))
+  return 0
+}
+_BLE_SYNTAX_FCTX[_ble_ctx_BRACE1]=ble/syntax:bash/ctx-brace-expansion
+_BLE_SYNTAX_FCTX[_ble_ctx_BRACE2]=ble/syntax:bash/ctx-brace-expansion
+_BLE_SYNTAX_FEND[_ble_ctx_BRACE1]=ble/syntax:bash/ctx-brace-expansion.end
+_BLE_SYNTAX_FEND[_ble_ctx_BRACE2]=ble/syntax:bash/ctx-brace-expansion.end
+function ble/syntax:bash/ctx-brace-expansion {
+  if [[ $tail == '}'* ]] && ((ctx==_ble_ctx_BRACE2)); then
+    local force_attr=
+    local ntype; ble/syntax/parse/nest-type
+    [[ $ntype == glob_attr=* ]] && force_attr=$_ble_attr_ERR # ※${ntype#*=} ではなくエラー
+    ((_ble_syntax_attr[i++]=${force_attr:-_ble_attr_BRACE}))
+    ble/syntax/parse/nest-pop
+    return 0
+  elif [[ $tail == ','* ]]; then
+    local force_attr=
+    local ntype; ble/syntax/parse/nest-type
+    [[ $ntype == glob_attr=* ]] && force_attr=${ntype#*=}
+    ((_ble_syntax_attr[i++]=${force_attr:-_ble_attr_BRACE}))
+    ((ctx=_ble_ctx_BRACE2))
+    return 0
+  fi
+  local chars=",${_ble_syntax_bash_chars[_ble_ctx_ARGI]//'~:'}"
+  ((ctx==_ble_ctx_BRACE2)) && chars="}$chars"
+  ble/syntax:bash/cclass/update/reorder chars
+  if ble/syntax:bash/check-plain-with-escape "[^$chars]+"; then
+    return 0
+  elif ble/syntax:bash/check-process-subst; then
+    return 0
+  elif ble/syntax:bash/check-quotes; then
+    return 0
+  elif ble/syntax:bash/check-dollar; then
+    return 0
+  elif ble/syntax:bash/check-glob; then
+    return 0
+  elif ble/syntax:bash/check-brace-expansion; then
+    return 0
+  elif ble/syntax:bash/starts-with-histchars; then
+    ble/syntax:bash/check-history-expansion ||
+      ((_ble_syntax_attr[i++]=ctx))
+    return 0
+  fi
+  return 1
+}
+function ble/syntax:bash/ctx-brace-expansion.end {
+  if ((i==${#text})) || ble/syntax:bash/check-word-end/is-delimiter; then
+    ble/syntax/parse/nest-pop
+    ble/syntax/parse/check-end
+    return "$?"
+  fi
+  return 0
+}
+function ble/syntax:bash/check-tilde-expansion {
+  [[ $tail == ['~:']* ]] || return 1
+  local rhs_enabled=
+  { ((ctx==_ble_ctx_VRHS||ctx==_ble_ctx_ARGVR||ctx==_ble_ctx_VALR||ctx==_ble_ctx_ARGER)) ||
+      ! ble/base/is-POSIXLY_CORRECT; } && rhs_enabled=1
+  local tilde_enabled=$((i==wbegin||ctx==_ble_ctx_PWORD))
+  [[ $1 == rhs && $rhs_enabled ]] && tilde_enabled=1 # = の直後
+  if [[ $tail == ':'* ]]; then
+    _ble_syntax_attr[i++]=$ctx
+    if [[ $rhs_enabled ]]; then
+      if ! ((tilde_enabled=_ble_syntax_bash_command_IsAssign[ctx])); then
+        if ((ctx==_ble_ctx_BRAX)); then
+          local nctx; ble/syntax/parse/nest-ctx
+          ((tilde_enabled=_ble_syntax_bash_command_IsAssign[nctx]))
+        fi
+      fi
+    fi
+    local tail=${text:i}
+    [[ $tail == '~'* ]] || return 0
+  fi
+  if ((tilde_enabled)); then
+    local chars="${_ble_syntax_bash_chars[_ble_ctx_ARGI]}/:"
+    ((ctx==_ble_ctx_PWORD)) && chars=${chars/'{'/'{}'}
+    ble/syntax:bash/cclass/update/reorder chars
+    local delimiters="$_ble_term_IFS;|&)<>"
+    local rex='^(~\+|~[^'$chars']*)([^'$delimiters'/:]?)'; [[ $tail =~ $rex ]]
+    local str=${BASH_REMATCH[1]}
+    local path attr=$ctx
+    builtin eval "path=$str"
+    if [[ ! ${BASH_REMATCH[2]} && $path != "$str" ]]; then
+      ((attr=_ble_attr_TILDE))
+      if ((ctx==_ble_ctx_BRAX)); then
+        ble/util/assert 'ble/util/unlocal tail; [[ $tail == ":~"* ]]'
+        ble/syntax/parse/nest-pop
+      fi
+    else
+      if [[ $str == '~+' ]]; then
+        ble/syntax/parse/set-lookahead 3
+        str='~'
+      fi
+    fi
+    ((_ble_syntax_attr[i]=attr,i+=${#str}))
+  else
+    ((_ble_syntax_attr[i]=ctx,i++)) # skip tilde
+    local chars=${_ble_syntax_bash_chars[_ble_ctx_ARGI]}
+    ble/syntax:bash/check-plain-with-escape "[^$chars]+" # 追加(失敗してもOK)
+  fi
+  return 0
+}
+_ble_syntax_bash_command_CtxAssign[_ble_ctx_CMDI]=$_ble_ctx_VRHS
+_ble_syntax_bash_command_CtxAssign[_ble_ctx_COARGI]=$_ble_ctx_VRHS
+_ble_syntax_bash_command_CtxAssign[_ble_ctx_ARGVI]=$_ble_ctx_ARGVR
+_ble_syntax_bash_command_CtxAssign[_ble_ctx_ARGEI]=$_ble_ctx_ARGER
+_ble_syntax_bash_command_CtxAssign[_ble_ctx_ARGI]=$_ble_ctx_ARGQ
+_ble_syntax_bash_command_CtxAssign[_ble_ctx_FARGI3]=$_ble_ctx_FARGQ3
+_ble_syntax_bash_command_CtxAssign[_ble_ctx_CARGI1]=$_ble_ctx_CARGQ1
+_ble_syntax_bash_command_CtxAssign[_ble_ctx_CPATI]=$_ble_ctx_CPATQ
+_ble_syntax_bash_command_CtxAssign[_ble_ctx_VALI]=$_ble_ctx_VALQ
+_ble_syntax_bash_command_CtxAssign[_ble_ctx_CONDI]=$_ble_ctx_CONDQ
+_ble_syntax_bash_command_IsAssign[_ble_ctx_VRHS]=$_ble_ctx_CMDI
+_ble_syntax_bash_command_IsAssign[_ble_ctx_ARGVR]=$_ble_ctx_ARGVI
+_ble_syntax_bash_command_IsAssign[_ble_ctx_ARGER]=$_ble_ctx_ARGEI
+_ble_syntax_bash_command_IsAssign[_ble_ctx_ARGQ]=$_ble_ctx_ARGI
+_ble_syntax_bash_command_IsAssign[_ble_ctx_FARGQ3]=$_ble_ctx_FARGI3
+_ble_syntax_bash_command_IsAssign[_ble_ctx_CARGQ1]=$_ble_ctx_CARGI1
+_ble_syntax_bash_command_IsAssign[_ble_ctx_CPATQ]=$_ble_ctx_CPATI
+_ble_syntax_bash_command_IsAssign[_ble_ctx_VALR]=$_ble_ctx_VALI
+_ble_syntax_bash_command_IsAssign[_ble_ctx_VALQ]=$_ble_ctx_VALI
+_ble_syntax_bash_command_IsAssign[_ble_ctx_CONDQ]=$_ble_ctx_CONDI
+function ble/syntax:bash/check-variable-assignment {
+  ((wbegin==i)) || return 1
+  if ((ctx==_ble_ctx_VALI)) && [[ $tail == '['* ]]; then
+    ((ctx=_ble_ctx_VALR))
+    ble/syntax/parse/nest-push "$_ble_ctx_EXPR" 'd['
+    ((_ble_syntax_attr[i++]=ctx))
+    return 0
+  fi
+  [[ ${_ble_syntax_bash_command_CtxAssign[ctx]} ]] || return 1
+  local suffix='[=[]'
+  ((_ble_bash>=30100)) && suffix=$suffix'|\+=?'
+  local rex_assign="^([a-zA-Z_][a-zA-Z_0-9]*)($suffix)"
+  [[ $tail =~ $rex_assign ]] || return 1
+  local rematch=$BASH_REMATCH
+  local rematch1=${BASH_REMATCH[1]} # for bash-3.1 ${#arr[n]} bug
+  local rematch2=${BASH_REMATCH[2]} # for bash-3.1 ${#arr[n]} bug
+  if [[ $rematch2 == '+' ]]; then
+    ble/syntax/parse/set-lookahead $((${#rematch}+1))
+    return 1
+  fi
+  local variable_assign=
+  if ((ctx==_ble_ctx_CMDI||ctx==_ble_ctx_ARGVI||ctx==_ble_ctx_ARGEI&&${#rematch2})); then
+    local ret; ble/syntax/highlight/vartype "$rematch1"
+    ((wtype=_ble_attr_VAR,
+      _ble_syntax_attr[i]=ret,
+      i+=${#rematch},
+      ${#rematch2}&&(_ble_syntax_attr[i-${#rematch2}]=_ble_ctx_EXPR),
+      variable_assign=1,
+      ctx=_ble_syntax_bash_command_CtxAssign[ctx]))
+  else
+    ((_ble_syntax_attr[i]=ctx,
+      i+=${#rematch}))
+  fi
+  if [[ $rematch2 == '[' ]]; then
+    if [[ $variable_assign ]]; then
+      i=$((i-1)) ble/syntax/parse/nest-push "$_ble_ctx_EXPR" 'a['
+    else
+      ((i--))
+      tail=${text:i} ble/syntax:bash/check-glob assign
+    fi
+  elif [[ $rematch2 == *'=' ]]; then
+    if [[ $variable_assign && ${text:i} == '('* ]]; then
+      ble/syntax:bash/ctx-values/enter
+      ((_ble_syntax_attr[i++]=_ble_attr_DEL))
+    else
+      [[ $variable_assign ]] || ((ctx=_ble_syntax_bash_command_CtxAssign[ctx]))
+      if local tail=${text:i}; [[ $tail == '~'* ]]; then
+        ble/syntax:bash/check-tilde-expansion rhs
+      fi
+    fi
+  fi
+  return 0
+}
+_BLE_SYNTAX_FCTX[_ble_ctx_ARGX]=ble/syntax:bash/ctx-command
+_BLE_SYNTAX_FCTX[_ble_ctx_ARGX0]=ble/syntax:bash/ctx-command
+_BLE_SYNTAX_FCTX[_ble_ctx_CMDX]=ble/syntax:bash/ctx-command
+_BLE_SYNTAX_FCTX[_ble_ctx_CMDX1]=ble/syntax:bash/ctx-command
+_BLE_SYNTAX_FCTX[_ble_ctx_CMDXT]=ble/syntax:bash/ctx-command
+_BLE_SYNTAX_FCTX[_ble_ctx_CMDXC]=ble/syntax:bash/ctx-command
+_BLE_SYNTAX_FCTX[_ble_ctx_CMDXE]=ble/syntax:bash/ctx-command
+_BLE_SYNTAX_FCTX[_ble_ctx_CMDXD]=ble/syntax:bash/ctx-command
+_BLE_SYNTAX_FCTX[_ble_ctx_CMDXD0]=ble/syntax:bash/ctx-command
+_BLE_SYNTAX_FCTX[_ble_ctx_CMDXV]=ble/syntax:bash/ctx-command
+_BLE_SYNTAX_FCTX[_ble_ctx_ARGI]=ble/syntax:bash/ctx-command
+_BLE_SYNTAX_FCTX[_ble_ctx_ARGQ]=ble/syntax:bash/ctx-command
+_BLE_SYNTAX_FCTX[_ble_ctx_CMDI]=ble/syntax:bash/ctx-command
+_BLE_SYNTAX_FCTX[_ble_ctx_VRHS]=ble/syntax:bash/ctx-command
+_BLE_SYNTAX_FCTX[_ble_ctx_ARGVR]=ble/syntax:bash/ctx-command
+_BLE_SYNTAX_FCTX[_ble_ctx_ARGER]=ble/syntax:bash/ctx-command
+_BLE_SYNTAX_FEND[_ble_ctx_CMDI]=ble/syntax:bash/ctx-command/check-word-end
+_BLE_SYNTAX_FEND[_ble_ctx_ARGI]=ble/syntax:bash/ctx-command/check-word-end
+_BLE_SYNTAX_FEND[_ble_ctx_ARGQ]=ble/syntax:bash/ctx-command/check-word-end
+_BLE_SYNTAX_FEND[_ble_ctx_VRHS]=ble/syntax:bash/ctx-command/check-word-end
+_BLE_SYNTAX_FEND[_ble_ctx_ARGVR]=ble/syntax:bash/ctx-command/check-word-end
+_BLE_SYNTAX_FEND[_ble_ctx_ARGER]=ble/syntax:bash/ctx-command/check-word-end
+_BLE_SYNTAX_FCTX[_ble_ctx_ARGVX]=ble/syntax:bash/ctx-command
+_BLE_SYNTAX_FCTX[_ble_ctx_ARGVI]=ble/syntax:bash/ctx-command
+_BLE_SYNTAX_FEND[_ble_ctx_ARGVI]=ble/syntax:bash/ctx-command/check-word-end
+_BLE_SYNTAX_FCTX[_ble_ctx_ARGEX]=ble/syntax:bash/ctx-command
+_BLE_SYNTAX_FCTX[_ble_ctx_ARGEI]=ble/syntax:bash/ctx-command
+_BLE_SYNTAX_FEND[_ble_ctx_ARGEI]=ble/syntax:bash/ctx-command/check-word-end
+_BLE_SYNTAX_FCTX[_ble_ctx_SARGX1]=ble/syntax:bash/ctx-command-compound-expect
+_BLE_SYNTAX_FCTX[_ble_ctx_FARGX1]=ble/syntax:bash/ctx-command-compound-expect
+_BLE_SYNTAX_FCTX[_ble_ctx_FARGX2]=ble/syntax:bash/ctx-command-compound-expect
+_BLE_SYNTAX_FCTX[_ble_ctx_FARGX3]=ble/syntax:bash/ctx-command
+_BLE_SYNTAX_FCTX[_ble_ctx_FARGI1]=ble/syntax:bash/ctx-command
+_BLE_SYNTAX_FCTX[_ble_ctx_FARGI2]=ble/syntax:bash/ctx-command
+_BLE_SYNTAX_FCTX[_ble_ctx_FARGI3]=ble/syntax:bash/ctx-command
+_BLE_SYNTAX_FCTX[_ble_ctx_FARGQ3]=ble/syntax:bash/ctx-command
+_BLE_SYNTAX_FEND[_ble_ctx_FARGI1]=ble/syntax:bash/ctx-command/check-word-end
+_BLE_SYNTAX_FEND[_ble_ctx_FARGI2]=ble/syntax:bash/ctx-command/check-word-end
+_BLE_SYNTAX_FEND[_ble_ctx_FARGI3]=ble/syntax:bash/ctx-command/check-word-end
+_BLE_SYNTAX_FEND[_ble_ctx_FARGQ3]=ble/syntax:bash/ctx-command/check-word-end
+_BLE_SYNTAX_FCTX[_ble_ctx_CARGX1]=ble/syntax:bash/ctx-command-compound-expect
+_BLE_SYNTAX_FCTX[_ble_ctx_CARGX2]=ble/syntax:bash/ctx-command-compound-expect
+_BLE_SYNTAX_FCTX[_ble_ctx_CPATX]=ble/syntax:bash/ctx-command-case-pattern-expect
+_BLE_SYNTAX_FCTX[_ble_ctx_CPATX0]=ble/syntax:bash/ctx-command-case-pattern-expect
+_BLE_SYNTAX_FCTX[_ble_ctx_CARGI1]=ble/syntax:bash/ctx-command
+_BLE_SYNTAX_FCTX[_ble_ctx_CARGQ1]=ble/syntax:bash/ctx-command
+_BLE_SYNTAX_FCTX[_ble_ctx_CARGI2]=ble/syntax:bash/ctx-command
+_BLE_SYNTAX_FCTX[_ble_ctx_CPATI]=ble/syntax:bash/ctx-command
+_BLE_SYNTAX_FCTX[_ble_ctx_CPATQ]=ble/syntax:bash/ctx-command
+_BLE_SYNTAX_FEND[_ble_ctx_CARGI1]=ble/syntax:bash/ctx-command/check-word-end
+_BLE_SYNTAX_FEND[_ble_ctx_CARGQ1]=ble/syntax:bash/ctx-command/check-word-end
+_BLE_SYNTAX_FEND[_ble_ctx_CARGI2]=ble/syntax:bash/ctx-command/check-word-end
+_BLE_SYNTAX_FEND[_ble_ctx_CPATI]=ble/syntax:bash/ctx-command/check-word-end
+_BLE_SYNTAX_FEND[_ble_ctx_CPATQ]=ble/syntax:bash/ctx-command/check-word-end
+_BLE_SYNTAX_FCTX[_ble_ctx_TARGX1]=ble/syntax:bash/ctx-command-time-expect
+_BLE_SYNTAX_FCTX[_ble_ctx_TARGX2]=ble/syntax:bash/ctx-command-time-expect
+_BLE_SYNTAX_FCTX[_ble_ctx_TARGI1]=ble/syntax:bash/ctx-command
+_BLE_SYNTAX_FCTX[_ble_ctx_TARGI2]=ble/syntax:bash/ctx-command
+_BLE_SYNTAX_FEND[_ble_ctx_TARGI1]=ble/syntax:bash/ctx-command/check-word-end
+_BLE_SYNTAX_FEND[_ble_ctx_TARGI2]=ble/syntax:bash/ctx-command/check-word-end
+_BLE_SYNTAX_FCTX[_ble_ctx_COARGX]=ble/syntax:bash/ctx-command-compound-expect
+_BLE_SYNTAX_FEND[_ble_ctx_COARGI]=ble/syntax:bash/ctx-coproc/check-word-end
+function ble/syntax:bash/starts-with-delimiter-or-redirect {
+  local delimiters=$_ble_syntax_bash_RexDelimiter
+  local redirect=$_ble_syntax_bash_RexRedirect
+  [[ ( $tail =~ ^$delimiters || $wbegin -lt 0 && $tail =~ ^$redirect || $wbegin -lt 0 && $tail == $'\\\n'* ) && $tail != ['<>']'('* ]]
+}
+function ble/syntax:bash/starts-with-delimiter {
+  [[ $tail == ["$_ble_term_IFS;|&<>()"]* && $tail != ['<>']'('* ]]
+}
+function ble/syntax:bash/check-word-end/is-delimiter {
+  local tail=${text:i}
+  if [[ $tail == [!"$_ble_term_IFS;|&<>()"]* ]]; then
+    return 1
+  elif [[ $tail == ['<>']* ]]; then
+    ble/syntax/parse/set-lookahead 2
+    [[ $tail == ['<>']'('* ]] && return 1
+  fi
+  return 0
+}
+function ble/syntax:bash/check-here-document-from {
+  local spaces=$1
+  [[ $nparam && $spaces == *$'\n'* ]] || return 1
+  local rex="$_ble_term_FS@([RI][QH][^$_ble_term_FS]*)(.*$)" && [[ $nparam =~ $rex ]] || return 1
+  local rematch1=${BASH_REMATCH[1]}
+  local rematch2=${BASH_REMATCH[2]}
+  local padding=${spaces%%$'\n'*}
+  ((_ble_syntax_attr[i]=ctx,i+=${#padding}))
+  nparam=${nparam::${#nparam}-${#BASH_REMATCH}}${nparam:${#nparam}-${#rematch2}}
+  ble/syntax/parse/nest-push "$_ble_ctx_HERE0"
+  ((i++))
+  nparam=$rematch1
+  return 0
+}
+function ble/syntax:bash/ctx-coproc/.is-next-compound {
+  local p=$i ahead=1 tail=${text:i}
+  if local rex=$'^[ \t]+'; [[ $tail =~ $rex ]]; then
+    ((p+=${#BASH_REMATCH}))
+    ahead=1 tail=${text:p}
+  fi
+  local is_compound=
+  if [[ $tail == '('* ]]; then
+    is_compound=1
+  elif rex='^[a-z]+|^\[\[?|^[{}!]'; [[ $tail =~ $rex ]]; then
+    local rematch=$BASH_REMATCH
+    ((p+=${#rematch}))
+    [[ $rematch == ['{}!'] || $rematch == '[[' ]]; ahead=$?
+    rex='^(\[\[|for|select|case|if|while|until|fi|done|esac|then|elif|else|do|[{}!]|coproc|function)$'
+    if  [[ $rematch =~ $rex ]]; then
+      if rex='^[;|&()'$_ble_term_IFS']|^$|^[<>]\(?' ahead=1; [[ ${text:p} =~ $rex ]]; then
+        local rematch=$BASH_REMATCH
+        ((p+=${#rematch}))
+        [[ $rematch && $rematch != ['<>'] ]]; ahead=$?
+        [[ $rematch != ['<>']'(' ]] && is_compound=1
+      fi
+    fi
+  fi
+  ble/syntax/parse/set-lookahead $((p+ahead-i))
+  [[ $is_compound ]]
+}
+function ble/syntax:bash/ctx-coproc/check-word-end {
+  ble/util/assert '((ctx==_ble_ctx_COARGI))'
+  ((wbegin<0)) && return 1
+  ble/syntax:bash/check-word-end/is-delimiter || return 1
+  local wbeg=$wbegin wlen=$((i-wbegin)) wend=$i
+  local word=${text:wbegin:wlen}
+  local wt=$wtype
+  if local rex='^[_a-zA-Z0-9]+$'; [[ $word =~ $rex ]]; then
+    if ble/syntax:bash/ctx-coproc/.is-next-compound; then
+      ((_ble_syntax_attr[wbegin]=_ble_attr_VAR))
+      ((ctx=_ble_ctx_CMDXC,type=_ble_ctx_ARGVI))
+      ble/syntax/parse/word-pop
+      return 0
+    fi
+  fi
+  ((ctx=_ble_ctx_CMDI,wtype=_ble_ctx_CMDX))
+  ble/syntax:bash/ctx-command/check-word-end
+}
+_ble_syntax_bash_command_EndCtx=()
+_ble_syntax_bash_command_EndCtx[_ble_ctx_ARGI]=$_ble_ctx_ARGX
+_ble_syntax_bash_command_EndCtx[_ble_ctx_ARGQ]=$_ble_ctx_ARGX
+_ble_syntax_bash_command_EndCtx[_ble_ctx_ARGVI]=$_ble_ctx_ARGVX
+_ble_syntax_bash_command_EndCtx[_ble_ctx_ARGVR]=$_ble_ctx_ARGVX
+_ble_syntax_bash_command_EndCtx[_ble_ctx_ARGEI]=$_ble_ctx_ARGEX
+_ble_syntax_bash_command_EndCtx[_ble_ctx_ARGER]=$_ble_ctx_ARGEX
+_ble_syntax_bash_command_EndCtx[_ble_ctx_VRHS]=$_ble_ctx_CMDXV
+_ble_syntax_bash_command_EndCtx[_ble_ctx_FARGI1]=$_ble_ctx_FARGX2
+_ble_syntax_bash_command_EndCtx[_ble_ctx_FARGI2]=$_ble_ctx_FARGX3
+_ble_syntax_bash_command_EndCtx[_ble_ctx_FARGI3]=$_ble_ctx_FARGX3
+_ble_syntax_bash_command_EndCtx[_ble_ctx_FARGQ3]=$_ble_ctx_FARGX3
+_ble_syntax_bash_command_EndCtx[_ble_ctx_CARGI1]=$_ble_ctx_CARGX2
+_ble_syntax_bash_command_EndCtx[_ble_ctx_CARGQ1]=$_ble_ctx_CARGX2
+_ble_syntax_bash_command_EndCtx[_ble_ctx_CARGI2]=$_ble_ctx_CASE
+_ble_syntax_bash_command_EndCtx[_ble_ctx_CPATI]=$_ble_ctx_CPATX0
+_ble_syntax_bash_command_EndCtx[_ble_ctx_CPATQ]=$_ble_ctx_CPATX0
+_ble_syntax_bash_command_EndCtx[_ble_ctx_TARGI1]=$((_ble_bash>=40200?_ble_ctx_TARGX2:_ble_ctx_CMDXT)) #1
+_ble_syntax_bash_command_EndCtx[_ble_ctx_TARGI2]=$_ble_ctx_CMDXT
+_ble_syntax_bash_command_EndWtype[_ble_ctx_ARGX]=$_ble_ctx_ARGI
+_ble_syntax_bash_command_EndWtype[_ble_ctx_ARGX0]=$_ble_ctx_ARGI
+_ble_syntax_bash_command_EndWtype[_ble_ctx_ARGVX]=$_ble_ctx_ARGVI
+_ble_syntax_bash_command_EndWtype[_ble_ctx_ARGEX]=$_ble_ctx_ARGEI
+_ble_syntax_bash_command_EndWtype[_ble_ctx_CMDX]=$_ble_ctx_CMDI
+_ble_syntax_bash_command_EndWtype[_ble_ctx_CMDX1]=$_ble_ctx_CMDI
+_ble_syntax_bash_command_EndWtype[_ble_ctx_CMDXT]=$_ble_ctx_CMDI
+_ble_syntax_bash_command_EndWtype[_ble_ctx_CMDXC]=$_ble_ctx_CMDI
+_ble_syntax_bash_command_EndWtype[_ble_ctx_CMDXE]=$_ble_ctx_CMDI
+_ble_syntax_bash_command_EndWtype[_ble_ctx_CMDXD]=$_ble_ctx_CMDI
+_ble_syntax_bash_command_EndWtype[_ble_ctx_CMDXD0]=$_ble_ctx_CMDI
+_ble_syntax_bash_command_EndWtype[_ble_ctx_CMDXV]=$_ble_ctx_CMDI
+_ble_syntax_bash_command_EndWtype[_ble_ctx_FARGX1]=$_ble_ctx_FARGI1 # 変数名
+_ble_syntax_bash_command_EndWtype[_ble_ctx_SARGX1]=$_ble_ctx_ARGI
+_ble_syntax_bash_command_EndWtype[_ble_ctx_FARGX2]=$_ble_ctx_FARGI2 # in
+_ble_syntax_bash_command_EndWtype[_ble_ctx_FARGX3]=$_ble_ctx_ARGI # in
+_ble_syntax_bash_command_EndWtype[_ble_ctx_CARGX1]=$_ble_ctx_ARGI
+_ble_syntax_bash_command_EndWtype[_ble_ctx_CARGX2]=$_ble_ctx_CARGI2 # in
+_ble_syntax_bash_command_EndWtype[_ble_ctx_CPATX]=$_ble_ctx_CPATI
+_ble_syntax_bash_command_EndWtype[_ble_ctx_CPATX0]=$_ble_ctx_CPATI
+_ble_syntax_bash_command_EndWtype[_ble_ctx_TARGX1]=$_ble_ctx_ARGI # -p
+_ble_syntax_bash_command_EndWtype[_ble_ctx_TARGX2]=$_ble_ctx_ARGI # --
+_ble_syntax_bash_command_Expect=()
+_ble_syntax_bash_command_Expect[_ble_ctx_CMDXC]='^(\(|\{|\(\(|\[\[|for|select|case|if|while|until)$'
+_ble_syntax_bash_command_Expect[_ble_ctx_CMDXE]='^(\}|fi|done|esac|then|elif|else|do)$'
+_ble_syntax_bash_command_Expect[_ble_ctx_CMDXD]='^(\{|do)$'
+_ble_syntax_bash_command_Expect[_ble_ctx_CMDXD0]='^(\{|do)$'
+function ble/syntax:bash/ctx-command/check-word-end {
+  ((wbegin<0)) && return 1
+  ble/syntax:bash/check-word-end/is-delimiter || return 1
+  local wbeg=$wbegin wlen=$((i-wbegin)) wend=$i
+  local word=${text:wbegin:wlen}
+  local wt=$wtype
+  [[ ${_ble_syntax_bash_command_EndWtype[wt]} ]] &&
+    wtype=${_ble_syntax_bash_command_EndWtype[wt]}
+  local rex_expect_command=${_ble_syntax_bash_command_Expect[wt]}
+  if [[ $rex_expect_command ]]; then
+    [[ $word =~ $rex_expect_command ]] || ((wtype=_ble_attr_ERR))
+  fi
+  if ((wt==_ble_ctx_CMDX1)); then
+    local rex='^(then|elif|else|do|\}|done|fi|esac)$'
+    [[ $word =~ $rex ]] && ((wtype=_ble_attr_ERR))
+  fi
+  ble/syntax/parse/word-pop
+  if ((ctx==_ble_ctx_CMDI)); then
+    local ret
+    ble/alias#expand "$word"; local word_expanded=$ret
+    if ((wt!=_ble_ctx_CMDXV)); then # Note: 変数代入の直後はキーワードは処理しない
+      local processed=
+      case "$word_expanded" in
+      ('[[')
+        ble/syntax/parse/touch-updated-attr "$wbeg"
+        ((_ble_syntax_attr[wbeg]=_ble_attr_DEL,
+          ctx=_ble_ctx_ARGX0))
+        ble/syntax/parse/word-cancel # 単語 "[[" (とその内部のノード全て) を削除
+        if [[ $word == '[[' ]]; then
+          _ble_syntax_attr[wbeg+1]= # 角括弧式として着色されているのを消去
+        fi
+        i=$wbeg ble/syntax/parse/nest-push "$_ble_ctx_CONDX"
+        i=$wbeg ble/syntax/parse/word-push "$_ble_ctx_CMDI" "$wbeg"
+        ble/syntax/parse/word-pop
+        return 0 ;;
+      ('time')               ((ctx=_ble_ctx_TARGX1)); processed=keyword ;;
+      ('!')                  ((ctx=_ble_ctx_CMDXT)) ; processed=keyword ;;
+      ('if'|'while'|'until') ((ctx=_ble_ctx_CMDX1)) ; processed=begin ;;
+      ('for')                ((ctx=_ble_ctx_FARGX1)); processed=begin ;;
+      ('select')             ((ctx=_ble_ctx_SARGX1)); processed=begin ;;
+      ('case')               ((ctx=_ble_ctx_CARGX1)); processed=begin ;;
+      ('{')
+        ((ctx=_ble_ctx_CMDX1))
+        if ((wt==_ble_ctx_CMDXD||wt==_ble_ctx_CMDXD0)); then
+          processed=middle # "for ...; {" などの時
+        else
+          processed=begin
+        fi ;;
+      ('then'|'elif'|'else'|'do') ((ctx=_ble_ctx_CMDX1)) ; processed=middle ;;
+      ('}'|'done'|'fi'|'esac')    ((ctx=_ble_ctx_CMDXE)) ; processed=end ;;
+      ('coproc')
+        if ((_ble_bash>=40000)); then
+          if ble/syntax:bash/ctx-coproc/.is-next-compound; then
+            ((ctx=_ble_ctx_CMDXC))
+          else
+            ((ctx=_ble_ctx_COARGX))
+          fi
+          processed=keyword
+        fi ;;
+      ('function')
+        ((ctx=_ble_ctx_ARGX))
+        local isfuncsymx=$'\t\n'' "$&'\''();<>\`|' rex_space=$'[ \t]' rex
+        if rex="^$rex_space+" && [[ ${text:i} =~ $rex ]]; then
+          ((_ble_syntax_attr[i]=_ble_ctx_ARGX,i+=${#BASH_REMATCH},ctx=_ble_ctx_ARGX))
+          if rex="^([^#$isfuncsymx][^$isfuncsymx]*)($rex_space*)(\(\(|\($rex_space*\)?)?" && [[ ${text:i} =~ $rex ]]; then
+            local rematch1=${BASH_REMATCH[1]}
+            local rematch2=${BASH_REMATCH[2]}
+            local rematch3=${BASH_REMATCH[3]}
+            ((_ble_syntax_attr[i]=_ble_attr_FUNCDEF,i+=${#rematch1},
+              ${#rematch2}&&(_ble_syntax_attr[i]=_ble_ctx_CMDX1,i+=${#rematch2})))
+            if [[ $rematch3 == '('*')' ]]; then
+              ((_ble_syntax_attr[i]=_ble_attr_DEL,i+=${#rematch3},ctx=_ble_ctx_CMDXC))
+            elif ((_ble_bash>=40200)) && [[ $rematch3 == '((' ]]; then
+              ble/syntax/parse/set-lookahead 2
+              ((ctx=_ble_ctx_CMDXC))
+            elif [[ $rematch3 == '('* ]]; then
+              ((_ble_syntax_attr[i]=_ble_attr_ERR,ctx=_ble_ctx_ARGX0))
+              ble/syntax/parse/nest-push "$_ble_ctx_CMDX1" '('
+              ((${#rematch3}>=2&&(_ble_syntax_attr[i+1]=_ble_ctx_CMDX1),i+=${#rematch3}))
+            else
+              ((ctx=_ble_ctx_CMDXC))
+            fi
+            processed=keyword
+          fi
+        fi
+        [[ $processed ]] || ((_ble_syntax_attr[i-1]=_ble_attr_ERR)) ;;
+      esac
+      if [[ $processed ]]; then
+        local attr=
+        case $processed in
+        (keyword) attr=$_ble_attr_KEYWORD ;;
+        (begin)   attr=$_ble_attr_KEYWORD_BEGIN ;;
+        (end)     attr=$_ble_attr_KEYWORD_END ;;
+        (middle)  attr=$_ble_attr_KEYWORD_MID ;;
+        esac
+        if [[ $attr ]]; then
+          ble/syntax/parse/touch-updated-attr "$wbeg"
+          ((_ble_syntax_attr[wbeg]=attr))
+        fi
+        return 0
+      fi
+    fi
+    ((ctx=_ble_ctx_ARGX))
+    if local rex='^([ 	]*)(\([ 	]*\)?)?'; [[ ${text:i} =~ $rex && $BASH_REMATCH ]]; then
+      local rematch1=${BASH_REMATCH[1]}
+      local rematch2=${BASH_REMATCH[2]}
+      if [[ $rematch2 == '('*')' ]]; then
+        _ble_syntax_tree[i-1]="$_ble_attr_FUNCDEF ${_ble_syntax_tree[i-1]#* }"
+        ((_ble_syntax_attr[i]=_ble_ctx_CMDX1,i+=${#rematch1},
+          _ble_syntax_attr[i]=_ble_attr_DEL,i+=${#rematch2},
+          ctx=_ble_ctx_CMDXC))
+      elif [[ $rematch2 == '('* ]]; then
+        ((_ble_syntax_attr[i]=_ble_ctx_ARGX0,i+=${#rematch1},
+          _ble_syntax_attr[i]=_ble_attr_ERR,
+          ctx=_ble_ctx_ARGX0))
+        ble/syntax/parse/nest-push "$_ble_ctx_PATN"
+        ((${#rematch2}>=2&&(_ble_syntax_attr[i+1]=_ble_ctx_CMDXC),
+          i+=${#rematch2}))
+      else
+        ((_ble_syntax_attr[i]=_ble_ctx_ARGX,i+=${#rematch1}))
+      fi
+    fi
+    case $word_expanded in
+    ('declare'|'readonly'|'typeset'|'local'|'export'|'alias')
+      ((ctx=_ble_ctx_ARGVX)) ;;
+    ('eval')
+      ((ctx=_ble_ctx_ARGEX)) ;;
+    esac
+    return 0
+  fi
+  if ((ctx==_ble_ctx_FARGI2)); then
+    if [[ $word == do ]]; then
+      ((ctx=_ble_ctx_CMDX1))
+      return 0
+    fi
+  fi
+  if ((ctx==_ble_ctx_FARGI2||ctx==_ble_ctx_CARGI2)); then
+    if [[ $word != in ]];  then
+      ble/syntax/parse/touch-updated-attr "$wbeg"
+      ((_ble_syntax_attr[wbeg]=_ble_attr_ERR))
+    fi
+  fi
+  if ((_ble_syntax_bash_command_EndCtx[ctx])); then
+    ((ctx=_ble_syntax_bash_command_EndCtx[ctx]))
+  fi
+  return 0
+}
+_ble_syntax_bash_command_Opt=()
+_ble_syntax_bash_command_Opt[_ble_ctx_ARGX]=1
+_ble_syntax_bash_command_Opt[_ble_ctx_ARGX0]=1
+_ble_syntax_bash_command_Opt[_ble_ctx_ARGVX]=1
+_ble_syntax_bash_command_Opt[_ble_ctx_ARGEX]=1
+_ble_syntax_bash_command_Opt[_ble_ctx_CMDXV]=1
+_ble_syntax_bash_command_Opt[_ble_ctx_CMDXE]=1
+_ble_syntax_bash_command_Opt[_ble_ctx_CMDXD0]=1
+_ble_syntax_bash_is_command_form_for=
+function ble/syntax:bash/ctx-command/.check-delimiter-or-redirect {
+  if [[ $tail =~ ^$_ble_syntax_bash_RexIFSs || $wbegin -lt 0 && $tail == $'\\\n'* ]]; then
+    local spaces=$BASH_REMATCH
+    if [[ $tail == $'\\\n'* ]]; then
+      spaces=$'\\\n'
+    elif [[ $spaces == *$'\n'* ]]; then
+      ble/syntax:bash/check-here-document-from "$spaces" && return 0
+      if ((ctx==_ble_ctx_ARGX||ctx==_ble_ctx_ARGX0||ctx==_ble_ctx_ARGVX||ctx==_ble_ctx_ARGEX||ctx==_ble_ctx_CMDXV||ctx==_ble_ctx_CMDXT||ctx==_ble_ctx_CMDXE)); then
+        ((ctx=_ble_ctx_CMDX))
+      elif ((ctx==_ble_ctx_FARGX2||ctx==_ble_ctx_FARGX3||ctx==_ble_ctx_CMDXD0)); then
+        ((ctx=_ble_ctx_CMDXD))
+      fi
+    fi
+    ((_ble_syntax_attr[i]=ctx,i+=${#spaces}))
+    return 0
+  elif [[ $tail =~ ^$_ble_syntax_bash_RexRedirect ]]; then
+    local len=${#BASH_REMATCH}
+    local rematch1=${BASH_REMATCH[1]}
+    local rematch3=${BASH_REMATCH[3]}
+    ((_ble_syntax_attr[i]=_ble_attr_DEL,
+      ${#rematch1}<len&&(_ble_syntax_attr[i+${#rematch1}]=_ble_ctx_ARGX)))
+    if ((ctx==_ble_ctx_CMDX||ctx==_ble_ctx_CMDX1||ctx==_ble_ctx_CMDXT)); then
+      ((ctx=_ble_ctx_CMDXV))
+    elif ((ctx==_ble_ctx_CMDXC||ctx==_ble_ctx_CMDXD||ctx==_ble_ctx_CMDXD0)); then
+      ((ctx=_ble_ctx_CMDXV,
+        _ble_syntax_attr[i]=_ble_attr_ERR))
+    elif ((ctx==_ble_ctx_CMDXE)); then
+      ((ctx=_ble_ctx_ARGX0))
+    elif ((ctx==_ble_ctx_FARGX3)); then
+      ((_ble_syntax_attr[i]=_ble_attr_ERR))
+    fi
+    if [[ ${text:i+len} != [!$'\n|&()']* ]]; then
+      ((_ble_syntax_attr[i+len-1]=_ble_attr_ERR))
+    else
+      if [[ $rematch3 == '>&' ]]; then
+        ble/syntax/parse/nest-push "$_ble_ctx_RDRD2" "$rematch3"
+      elif [[ $rematch1 == *'&' ]]; then
+        ble/syntax/parse/nest-push "$_ble_ctx_RDRD" "$rematch3"
+      elif [[ $rematch1 == *'<<<' ]]; then
+        ble/syntax/parse/nest-push "$_ble_ctx_RDRS" "$rematch3"
+      elif [[ $rematch1 == *\<\< ]]; then
+        ble/syntax/parse/nest-push "$_ble_ctx_RDRH" "$rematch3"
+      elif [[ $rematch1 == *\<\<- ]]; then
+        ble/syntax/parse/nest-push "$_ble_ctx_RDRI" "$rematch3"
+      else
+        ble/syntax/parse/nest-push "$_ble_ctx_RDRF" "$rematch3"
+      fi
+    fi
+    ((i+=len))
+    return 0
+  elif local rex='^(&&|\|[|&]?)|^;(;&?|&)|^[;&]'
+       ((_ble_bash<40000)) && rex='^(&&|\|\|?)|^;(;)|^[;&]'
+       [[ $tail =~ $rex ]]
+  then
+    if [[ $BASH_REMATCH == ';' ]]; then
+      if ((ctx==_ble_ctx_FARGX2||ctx==_ble_ctx_FARGX3||ctx==_ble_ctx_CMDXD0)); then
+        ((_ble_syntax_attr[i++]=_ble_attr_DEL,ctx=_ble_ctx_CMDXD))
+        return 0
+      elif ((ctx==_ble_ctx_CMDXT)); then
+        ((_ble_syntax_attr[i++]=_ble_attr_DEL,ctx=_ble_bash>=40400?_ble_ctx_CMDX:_ble_ctx_CMDXE))
+        return 0
+      fi
+    fi
+    local rematch1=${BASH_REMATCH[1]} rematch2=${BASH_REMATCH[2]}
+    ((_ble_syntax_attr[i]=_ble_attr_DEL,
+      (_ble_syntax_bash_command_Opt[ctx]||ctx==_ble_ctx_CMDX&&${#rematch2})||
+        (_ble_syntax_attr[i]=_ble_attr_ERR)))
+    ((ctx=${#rematch1}?_ble_ctx_CMDX1:(
+         ${#rematch2}?_ble_ctx_CASE:
+         _ble_ctx_CMDX)))
+    ((i+=${#BASH_REMATCH}))
+    return 0
+  elif local rex='^\(\(?' && [[ $tail =~ $rex ]]; then
+    local m=${BASH_REMATCH[0]}
+    if ((ctx==_ble_ctx_CMDX||ctx==_ble_ctx_CMDX1||ctx==_ble_ctx_CMDXT||ctx==_ble_ctx_CMDXC)); then
+      ((_ble_syntax_attr[i]=_ble_attr_DEL))
+      ((ctx=${#m}==1?_ble_ctx_CMDXE:_ble_ctx_ARGX0))
+      [[ $_ble_syntax_bash_is_command_form_for && $tail == '(('* ]] && ((ctx=_ble_ctx_CMDXD0))
+      ble/syntax/parse/nest-push $((${#m}==1?_ble_ctx_CMDX1:_ble_ctx_EXPR)) "$m"
+      ((i+=${#m}))
+    else
+      ble/syntax/parse/nest-push "$_ble_ctx_PATN"
+      ((_ble_syntax_attr[i++]=_ble_attr_ERR))
+    fi
+    return 0
+  elif [[ $tail == ')'* ]]; then
+    local ntype
+    ble/syntax/parse/nest-type
+    local attr=
+    if [[ $ntype == '(' || $ntype == '$(' || $ntype == '((' || $ntype == '$((' ]]; then
+      ((attr=_ble_syntax_attr[inest]))
+    fi
+    if [[ $attr ]]; then
+      ((_ble_syntax_attr[i]=(ctx==_ble_ctx_CMDX||ctx==_ble_ctx_CMDXV||ctx==_ble_ctx_CMDXE||ctx==_ble_ctx_ARGX||ctx==_ble_ctx_ARGX0||ctx==_ble_ctx_ARGVX||ctx==_ble_ctx_ARGEX)?attr:_ble_attr_ERR,
+        i+=1))
+      ble/syntax/parse/nest-pop
+      return 0
+    fi
+  fi
+  return 1
+}
+_ble_syntax_bash_command_BeginCtx=()
+_ble_syntax_bash_command_BeginCtx[_ble_ctx_ARGX]=$_ble_ctx_ARGI
+_ble_syntax_bash_command_BeginCtx[_ble_ctx_ARGX0]=$_ble_ctx_ARGI
+_ble_syntax_bash_command_BeginCtx[_ble_ctx_ARGVX]=$_ble_ctx_ARGVI
+_ble_syntax_bash_command_BeginCtx[_ble_ctx_ARGEX]=$_ble_ctx_ARGEI
+_ble_syntax_bash_command_BeginCtx[_ble_ctx_CMDX]=$_ble_ctx_CMDI
+_ble_syntax_bash_command_BeginCtx[_ble_ctx_CMDX1]=$_ble_ctx_CMDI
+_ble_syntax_bash_command_BeginCtx[_ble_ctx_CMDXT]=$_ble_ctx_CMDI
+_ble_syntax_bash_command_BeginCtx[_ble_ctx_CMDXC]=$_ble_ctx_CMDI
+_ble_syntax_bash_command_BeginCtx[_ble_ctx_CMDXE]=$_ble_ctx_CMDI
+_ble_syntax_bash_command_BeginCtx[_ble_ctx_CMDXD]=$_ble_ctx_CMDI
+_ble_syntax_bash_command_BeginCtx[_ble_ctx_CMDXD0]=$_ble_ctx_CMDI
+_ble_syntax_bash_command_BeginCtx[_ble_ctx_CMDXV]=$_ble_ctx_CMDI
+_ble_syntax_bash_command_BeginCtx[_ble_ctx_FARGX1]=$_ble_ctx_FARGI1
+_ble_syntax_bash_command_BeginCtx[_ble_ctx_SARGX1]=$_ble_ctx_FARGI1
+_ble_syntax_bash_command_BeginCtx[_ble_ctx_FARGX2]=$_ble_ctx_FARGI2
+_ble_syntax_bash_command_BeginCtx[_ble_ctx_FARGX3]=$_ble_ctx_FARGI3
+_ble_syntax_bash_command_BeginCtx[_ble_ctx_CARGX1]=$_ble_ctx_CARGI1
+_ble_syntax_bash_command_BeginCtx[_ble_ctx_CARGX2]=$_ble_ctx_CARGI2
+_ble_syntax_bash_command_BeginCtx[_ble_ctx_CPATX]=$_ble_ctx_CPATI
+_ble_syntax_bash_command_BeginCtx[_ble_ctx_CPATX0]=$_ble_ctx_CPATI
+_ble_syntax_bash_command_BeginCtx[_ble_ctx_TARGX1]=$_ble_ctx_TARGI1
+_ble_syntax_bash_command_BeginCtx[_ble_ctx_TARGX2]=$_ble_ctx_TARGI2
+_ble_syntax_bash_command_BeginCtx[_ble_ctx_COARGX]=$_ble_ctx_COARGI
+_ble_syntax_bash_command_isARGI[_ble_ctx_CMDI]=1
+_ble_syntax_bash_command_isARGI[_ble_ctx_VRHS]=1
+_ble_syntax_bash_command_isARGI[_ble_ctx_ARGI]=1
+_ble_syntax_bash_command_isARGI[_ble_ctx_ARGQ]=1
+_ble_syntax_bash_command_isARGI[_ble_ctx_ARGVI]=1
+_ble_syntax_bash_command_isARGI[_ble_ctx_ARGVR]=1
+_ble_syntax_bash_command_isARGI[_ble_ctx_ARGEI]=1
+_ble_syntax_bash_command_isARGI[_ble_ctx_ARGER]=1
+_ble_syntax_bash_command_isARGI[_ble_ctx_FARGI1]=1 # var
+_ble_syntax_bash_command_isARGI[_ble_ctx_FARGI2]=1 # in
+_ble_syntax_bash_command_isARGI[_ble_ctx_FARGI3]=1 # args...
+_ble_syntax_bash_command_isARGI[_ble_ctx_FARGQ3]=1 # args... (= の後)
+_ble_syntax_bash_command_isARGI[_ble_ctx_CARGI1]=1 # value
+_ble_syntax_bash_command_isARGI[_ble_ctx_CARGQ1]=1 # value (= の後)
+_ble_syntax_bash_command_isARGI[_ble_ctx_CARGI2]=1 # in
+_ble_syntax_bash_command_isARGI[_ble_ctx_CPATI]=1  # pattern
+_ble_syntax_bash_command_isARGI[_ble_ctx_CPATQ]=1  # pattern
+_ble_syntax_bash_command_isARGI[_ble_ctx_TARGI1]=1 # -p
+_ble_syntax_bash_command_isARGI[_ble_ctx_TARGI2]=1 # --
+_ble_syntax_bash_command_isARGI[_ble_ctx_COARGI]=1 # var (coproc の後)
+function ble/syntax:bash/ctx-command/.check-word-begin {
+  if ((wbegin<0)); then
+    local octx
+    ((octx=ctx,
+      wtype=octx,
+      ctx=_ble_syntax_bash_command_BeginCtx[ctx]))
+    ble/util/assert '((ctx!=0))' "invalid ctx=$octx at the beginning of words" ||
+      ((ctx=wtype=_ble_ctx_ARGI))
+    ble/syntax/parse/word-push "$wtype" "$i"
+    ((octx!=_ble_ctx_ARGX0&&octx!=_ble_ctx_CPATX0)); return "$?" # return unexpectedWbegin
+  fi
+  ble/util/assert '((_ble_syntax_bash_command_isARGI[ctx]))' "invalid ctx=$ctx in words"
+  return 0
+}
+function ble/syntax:bash/ctx-command {
+  if ble/syntax:bash/starts-with-delimiter-or-redirect; then
+    ble/util/assert '
+      ((ctx==_ble_ctx_ARGX||ctx==_ble_ctx_ARGX0||ctx==_ble_ctx_ARGVX||ctx==_ble_ctx_ARGEX||
+          ctx==_ble_ctx_FARGX2||ctx==_ble_ctx_FARGX3||ctx==_ble_ctx_COARGX||
+          ctx==_ble_ctx_CMDX||ctx==_ble_ctx_CMDX1||ctx==_ble_ctx_CMDXT||ctx==_ble_ctx_CMDXC||
+          ctx==_ble_ctx_CMDXE||ctx==_ble_ctx_CMDXD||ctx==_ble_ctx_CMDXD0||ctx==_ble_ctx_CMDXV))'  "invalid ctx=$ctx @ i=$i"
+    ble/util/assert '((wbegin<0&&wtype<0))' "invalid word-context (wtype=$wtype wbegin=$wbegin) on non-word char."
+    ble/syntax:bash/ctx-command/.check-delimiter-or-redirect; return "$?"
+  fi
+  ble/syntax:bash/check-comment && return 0
+  local unexpectedWbegin=-1
+  ble/syntax:bash/ctx-command/.check-word-begin || ((unexpectedWbegin=i))
+  local wtype0=$wtype i0=$i
+  local flagConsume=0
+  if ble/syntax:bash/check-variable-assignment; then
+    flagConsume=1
+  elif local rex='^([^'${_ble_syntax_bash_chars[_ble_ctx_ARGI]}']+|\\.)'; [[ $tail =~ $rex ]]; then
+    local rematch=$BASH_REMATCH
+    local attr=$ctx
+    [[ $BASH_REMATCH == '\'? ]] && attr=$_ble_attr_QESC
+    ((_ble_syntax_attr[i]=attr,i+=${#rematch}))
+    flagConsume=1
+  elif ble/syntax:bash/check-process-subst; then
+    flagConsume=1
+  elif ble/syntax:bash/check-quotes; then
+    flagConsume=1
+  elif ble/syntax:bash/check-dollar; then
+    flagConsume=1
+  elif ble/syntax:bash/check-glob; then
+    flagConsume=1
+  elif ble/syntax:bash/check-brace-expansion; then
+    flagConsume=1
+  elif ble/syntax:bash/check-tilde-expansion; then
+    flagConsume=1
+  elif ble/syntax:bash/starts-with-histchars; then
+    ble/syntax:bash/check-history-expansion ||
+      ((_ble_syntax_attr[i]=ctx,i++))
+    flagConsume=1
+  fi
+  if ((flagConsume)); then
+    ble/util/assert '((wtype0>=0))'
+    if ((ctx==_ble_ctx_FARGI1)); then
+      local rex='^[a-zA-Z_][a-zA-Z_0-9]*$' attr=$_ble_attr_ERR
+      if ((i0==wbegin)) && [[ ${text:i0:i-i0} =~ $rex ]]; then
+        local ret; ble/syntax/highlight/vartype "$BASH_REMATCH"; attr=$ret
+      fi
+      ((_ble_syntax_attr[i0]=attr))
+    fi
+    [[ ${_ble_syntax_bash_command_Expect[wtype0]} ]] &&
+      ((_ble_syntax_attr[i0]=_ble_attr_ERR))
+    if ((unexpectedWbegin>=0)); then
+      ble/syntax/parse/touch-updated-attr "$unexpectedWbegin"
+      ((_ble_syntax_attr[unexpectedWbegin]=_ble_attr_ERR))
+    fi
+    return 0
+  else
+    return 1
+  fi
+}
+function ble/syntax:bash/ctx-command-compound-expect {
+  ble/util/assert '((ctx==_ble_ctx_FARGX1||ctx==_ble_ctx_SARGX1||ctx==_ble_ctx_CARGX1||ctx==_ble_ctx_FARGX2||ctx==_ble_ctx_CARGX2||ctx==_ble_ctx_COARGX))'
+  local _ble_syntax_bash_is_command_form_for=
+  if ble/syntax:bash/starts-with-delimiter-or-redirect; then
+    if ((ctx==_ble_ctx_FARGX2)) && [[ $tail == [$';\n']* ]]; then
+      ble/syntax:bash/ctx-command
+      return "$?"
+    elif ((ctx==_ble_ctx_FARGX1)) && [[ $tail == '(('* ]]; then
+      ((ctx=_ble_ctx_CMDX1,_ble_syntax_bash_is_command_form_for=1))
+    elif [[ $tail == $'\n'* ]]; then
+      if ((ctx==_ble_ctx_CARGX2)); then
+        ((_ble_syntax_attr[i++]=_ble_ctx_ARGX))
+      else
+        ((_ble_syntax_attr[i++]=_ble_attr_ERR,ctx=_ble_ctx_ARGX))
+      fi
+      return 0
+    elif [[ $tail =~ ^$_ble_syntax_bash_RexSpaces ]]; then
+      ((_ble_syntax_attr[i]=ctx,i+=${#BASH_REMATCH}))
+      return 0
+    elif ((ctx!=_ble_ctx_COARGX)); then
+      local i0=$i
+      ((ctx=_ble_ctx_ARGX))
+      ble/syntax:bash/ctx-command/.check-delimiter-or-redirect || ((i++))
+      ((_ble_syntax_attr[i0]=_ble_attr_ERR))
+      return 0
+    fi
+  fi
+  local i0=$i
+  if ble/syntax:bash/check-comment; then
+    if ((ctx==_ble_ctx_FARGX1||ctx==_ble_ctx_SARGX1||ctx==_ble_ctx_CARGX1||ctx==_ble_ctx_COARGX)); then
+      ((_ble_syntax_attr[i0]=_ble_attr_ERR))
+    fi
+    return 0
+  fi
+  ble/syntax:bash/ctx-command
+}
+function ble/syntax:bash/ctx-command-expect/.match-word {
+  local word=$1 len=${#1}
+  if [[ $tail == "$word"* ]]; then
+    ble/syntax/parse/set-lookahead $((len+1))
+    if ((${#tail}==len)) || i=$((i+len)) ble/syntax:bash/check-word-end/is-delimiter; then
+      return 0
+    fi
+  fi
+  return 1
+}
+function ble/syntax:bash/ctx-command-time-expect {
+  ble/util/assert '((ctx==_ble_ctx_TARGX1||ctx==_ble_ctx_TARGX2))'
+  if ble/syntax:bash/starts-with-delimiter-or-redirect; then
+    ble/util/assert '((wbegin<0&&wtype<0))'
+    if [[ $tail =~ ^$_ble_syntax_bash_RexSpaces ]]; then
+      ((_ble_syntax_attr[i]=ctx,i+=${#BASH_REMATCH}))
+      return 0
+    else
+      ((ctx=_ble_ctx_CMDXT))
+      ble/syntax:bash/ctx-command/.check-delimiter-or-redirect; return "$?"
+    fi
+  fi
+  if ((ctx==_ble_ctx_TARGX1)); then
+    ble/syntax:bash/ctx-command-expect/.match-word '-p' ||
+      ((ctx=_ble_bash>=50100?_ble_ctx_TARGX2:_ble_ctx_CMDXT))
+  fi
+  if ((ctx==_ble_ctx_TARGX2)); then
+    ble/syntax:bash/ctx-command-expect/.match-word '--' ||
+      ((ctx=_ble_ctx_CMDXT))
+  fi
+  ble/syntax:bash/ctx-command
+}
+function ble/syntax:bash/ctx-command-case-pattern-expect {
+  ble/util/assert '((ctx==_ble_ctx_CPATX||ctx==_ble_ctx_CPATX0))'
+  if ble/syntax:bash/starts-with-delimiter-or-redirect; then
+    local delimiter=$BASH_REMATCH
+    if [[ $tail =~ ^$_ble_syntax_bash_RexSpaces ]]; then
+      ((_ble_syntax_attr[i]=ctx,i+=${#BASH_REMATCH}))
+    elif [[ $tail == '|'* ]]; then
+      ((_ble_syntax_attr[i++]=ctx==_ble_ctx_CPATX?_ble_attr_ERR:_ble_attr_GLOB,ctx=_ble_ctx_CPATX))
+    elif [[ $tail == ')'* ]]; then
+      ((_ble_syntax_attr[i++]=ctx==_ble_ctx_CPATX?_ble_attr_ERR:_ble_attr_GLOB,ctx=_ble_ctx_CMDX))
+    elif [[ $tail == '('* ]]; then
+      ble/syntax:bash/ctx-command/.check-delimiter-or-redirect
+    else
+      ((_ble_syntax_attr[i]=_ble_attr_ERR,i+=${#delimiter}))
+    fi
+    return "$?"
+  fi
+  local i0=$i
+  if ble/syntax:bash/check-comment; then
+    ((_ble_syntax_attr[i0]=_ble_attr_ERR))
+    return 0
+  fi
+  ble/syntax:bash/ctx-command
+}
+_BLE_SYNTAX_FCTX[_ble_ctx_VALX]=ble/syntax:bash/ctx-values
+_BLE_SYNTAX_FCTX[_ble_ctx_VALI]=ble/syntax:bash/ctx-values
+_BLE_SYNTAX_FEND[_ble_ctx_VALI]=ble/syntax:bash/ctx-values/check-word-end
+_BLE_SYNTAX_FCTX[_ble_ctx_VALR]=ble/syntax:bash/ctx-values
+_BLE_SYNTAX_FEND[_ble_ctx_VALR]=ble/syntax:bash/ctx-values/check-word-end
+_BLE_SYNTAX_FCTX[_ble_ctx_VALQ]=ble/syntax:bash/ctx-values
+_BLE_SYNTAX_FEND[_ble_ctx_VALQ]=ble/syntax:bash/ctx-values/check-word-end
+function ble/syntax:bash/ctx-values/enter {
+  local outer_nparam=$nparam
+  ble/syntax/parse/nest-push "$_ble_ctx_VALX"
+  nparam=$outer_nparam
+}
+function ble/syntax:bash/ctx-values/leave {
+  local inner_nparam=$nparam
+  ble/syntax/parse/nest-pop
+  nparam=$inner_nparam
+}
+function ble/syntax:bash/ctx-values/check-word-end {
+  ((wbegin<0)) && return 1
+  [[ ${text:i:1} == [!"$_ble_term_IFS;|&<>()"] ]] && return 1
+  local wbeg=$wbegin wlen=$((i-wbegin)) wend=$i
+  local word=${text:wbegin:wlen}
+  ble/syntax/parse/word-pop
+  ble/util/assert '((ctx==_ble_ctx_VALI||ctx==_ble_ctx_VALR||ctx==_ble_ctx_VALQ))' 'invalid context'
+  ((ctx=_ble_ctx_VALX))
+  return 0
+}
+function ble/syntax:bash/ctx-values {
+  if ble/syntax:bash/starts-with-delimiter; then
+    ble/util/assert '((ctx==_ble_ctx_VALX))' "invalid ctx=$ctx @ i=$i"
+    ble/util/assert '((wbegin<0&&wtype<0))' "invalid word-context (wtype=$wtype wbegin=$wbegin) on non-word char."
+    if [[ $tail =~ ^$_ble_syntax_bash_RexIFSs ]]; then
+      local spaces=$BASH_REMATCH
+      ble/syntax:bash/check-here-document-from "$spaces" && return 0
+      ((_ble_syntax_attr[i]=ctx,i+=${#spaces}))
+      return 0
+    elif [[ $tail == ')'* ]]; then
+      ((_ble_syntax_attr[i++]=_ble_attr_DEL))
+      ble/syntax:bash/ctx-values/leave
+      return 0
+    elif [[ $type == ';'* ]]; then
+      ((_ble_syntax_attr[i++]=_ble_attr_ERR))
+      return 0
+    else
+      ((_ble_syntax_attr[i++]=_ble_attr_ERR))
+      return 0
+    fi
+  fi
+  if ble/syntax:bash/check-comment; then
+    return 0
+  fi
+  if ((wbegin<0)); then
+    ((ctx=_ble_ctx_VALI))
+    ble/syntax/parse/word-push "$ctx" "$i"
+  fi
+  ble/util/assert '((ctx==_ble_ctx_VALI||ctx==_ble_ctx_VALR||ctx==_ble_ctx_VALQ))' "invalid context ctx=$ctx"
+  if ble/syntax:bash/check-variable-assignment; then
+    return 0
+  elif ble/syntax:bash/check-plain-with-escape "[^${_ble_syntax_bash_chars[_ble_ctx_ARGI]}]+"; then
+    return 0
+  elif ble/syntax:bash/check-process-subst; then
+    return 0
+  elif ble/syntax:bash/check-quotes; then
+    return 0
+  elif ble/syntax:bash/check-dollar; then
+    return 0
+  elif ble/syntax:bash/check-glob; then
+    return 0
+  elif ble/syntax:bash/check-brace-expansion; then
+    return 0
+  elif ble/syntax:bash/check-tilde-expansion; then
+    return 0
+  elif ble/syntax:bash/starts-with-histchars; then
+    ble/syntax:bash/check-history-expansion ||
+      ((_ble_syntax_attr[i]=ctx,i++))
+    return 0
+  fi
+  return 1
+}
+_BLE_SYNTAX_FCTX[_ble_ctx_CONDX]=ble/syntax:bash/ctx-conditions
+_BLE_SYNTAX_FCTX[_ble_ctx_CONDI]=ble/syntax:bash/ctx-conditions
+_BLE_SYNTAX_FEND[_ble_ctx_CONDI]=ble/syntax:bash/ctx-conditions/check-word-end
+_BLE_SYNTAX_FCTX[_ble_ctx_CONDQ]=ble/syntax:bash/ctx-conditions
+_BLE_SYNTAX_FEND[_ble_ctx_CONDQ]=ble/syntax:bash/ctx-conditions/check-word-end
+function ble/syntax:bash/ctx-conditions/check-word-end {
+  ((wbegin<0)) && return 1
+  [[ ${text:i:1} == [!"$_ble_term_IFS;|&<>()"] ]] && return 1
+  local wbeg=$wbegin wlen=$((i-wbegin)) wend=$i
+  local word=${text:wbegin:wlen}
+  ble/syntax/parse/word-pop
+  ble/util/assert '((ctx==_ble_ctx_CONDI||ctx==_ble_ctx_CONDQ))' 'invalid context'
+  if [[ $word == ']]' ]]; then
+    ble/syntax/parse/touch-updated-attr "$wbeg"
+    ((_ble_syntax_attr[wbeg]=_ble_attr_DEL))
+    ble/syntax/parse/nest-pop
+  else
+    ((ctx=_ble_ctx_CONDX))
+  fi
+  return 0
+}
+function ble/syntax:bash/ctx-conditions {
+  if ble/syntax:bash/starts-with-delimiter; then
+    ble/util/assert '((ctx==_ble_ctx_CONDX))' "invalid ctx=$ctx @ i=$i"
+    ble/util/assert '((wbegin<0&&wtype<0))' "invalid word-context (wtype=$wtype wbegin=$wbegin) on non-word char."
+    if [[ $tail =~ ^$_ble_syntax_bash_RexIFSs ]]; then
+      ((_ble_syntax_attr[i]=ctx,i+=${#BASH_REMATCH}))
+      return 0
+    else
+      ((_ble_syntax_attr[i++]=_ble_ctx_CONDI))
+      return 0
+    fi
+  fi
+  ble/syntax:bash/check-comment && return 0
+  if ((wbegin<0)); then
+    ((ctx=_ble_ctx_CONDI))
+    ble/syntax/parse/word-push "$ctx" "$i"
+  fi
+  ble/util/assert '((ctx==_ble_ctx_CONDI||ctx==_ble_ctx_CONDQ))' "invalid context ctx=$ctx"
+  if ble/syntax:bash/check-variable-assignment; then
+    return 0
+  elif ble/syntax:bash/check-plain-with-escape "[^${_ble_syntax_bash_chars[_ble_ctx_ARGI]}]+"; then
+    return 0
+  elif ble/syntax:bash/check-process-subst; then
+    return 0
+  elif ble/syntax:bash/check-quotes; then
+    return 0
+  elif ble/syntax:bash/check-dollar; then
+    return 0
+  elif ble/syntax:bash/check-glob; then
+    return 0
+  elif ble/syntax:bash/check-brace-expansion; then
+    return 0
+  elif ble/syntax:bash/check-tilde-expansion; then
+    return 0
+  elif ble/syntax:bash/starts-with-histchars; then
+    ble/syntax:bash/check-history-expansion ||
+      ((_ble_syntax_attr[i++]=ctx))
+    return 0
+  else
+    ((_ble_syntax_attr[i++]=ctx))
+    return 0
+  fi
+  return 1
+}
+_BLE_SYNTAX_FCTX[_ble_ctx_RDRF]=ble/syntax:bash/ctx-redirect
+_BLE_SYNTAX_FCTX[_ble_ctx_RDRD]=ble/syntax:bash/ctx-redirect
+_BLE_SYNTAX_FCTX[_ble_ctx_RDRD2]=ble/syntax:bash/ctx-redirect
+_BLE_SYNTAX_FCTX[_ble_ctx_RDRS]=ble/syntax:bash/ctx-redirect
+_BLE_SYNTAX_FEND[_ble_ctx_RDRF]=ble/syntax:bash/ctx-redirect/check-word-end
+_BLE_SYNTAX_FEND[_ble_ctx_RDRD]=ble/syntax:bash/ctx-redirect/check-word-end
+_BLE_SYNTAX_FEND[_ble_ctx_RDRD2]=ble/syntax:bash/ctx-redirect/check-word-end
+_BLE_SYNTAX_FEND[_ble_ctx_RDRS]=ble/syntax:bash/ctx-redirect/check-word-end
+function ble/syntax:bash/ctx-redirect/check-word-begin {
+  if ((wbegin<0)); then
+    ble/syntax/parse/word-push "$ctx" "$i"
+    ble/syntax/parse/touch-updated-word "$i" #■これは不要では?
+  fi
+}
+function ble/syntax:bash/ctx-redirect/check-word-end {
+  ((wbegin<0)) && return 1
+  ble/syntax:bash/check-word-end/is-delimiter || return 1
+  ble/syntax/parse/word-pop
+  ble/syntax/parse/nest-pop
+  ble/util/assert '((!_ble_syntax_bash_command_isARGI[ctx]))' "invalid ctx=$ctx in words"
+  return 0
+}
+function ble/syntax:bash/ctx-redirect {
+  if ble/syntax:bash/starts-with-delimiter-or-redirect; then
+    ((_ble_syntax_attr[i++]=_ble_attr_ERR))
+    [[ ${tail:1} =~ ^$_ble_syntax_bash_RexSpaces ]] &&
+      ((_ble_syntax_attr[i]=ctx,i+=${#BASH_REMATCH}))
+    return 0
+  fi
+  if local i0=$i; ble/syntax:bash/check-comment; then
+    ((_ble_syntax_attr[i0]=_ble_attr_ERR))
+    return 0
+  fi
+  ble/syntax:bash/ctx-redirect/check-word-begin
+  if ble/syntax:bash/check-plain-with-escape "[^${_ble_syntax_bash_chars[_ble_ctx_ARGI]}]+"; then
+    return 0
+  elif ble/syntax:bash/check-process-subst; then
+    return 0
+  elif ble/syntax:bash/check-quotes; then
+    return 0
+  elif ble/syntax:bash/check-dollar; then
+    return 0
+  elif ble/syntax:bash/check-glob; then
+    return 0
+  elif ble/syntax:bash/check-brace-expansion; then
+    return 0
+  elif ble/syntax:bash/check-tilde-expansion; then
+    return 0
+  elif ble/syntax:bash/starts-with-histchars; then
+    ble/syntax:bash/check-history-expansion ||
+      ((_ble_syntax_attr[i]=ctx,i++))
+    return 0
+  fi
+  return 1
+}
+_ble_syntax_bash_heredoc_EscSP='\040'
+_ble_syntax_bash_heredoc_EscHT='\011'
+_ble_syntax_bash_heredoc_EscLF='\012'
+_ble_syntax_bash_heredoc_EscFS='\034'
+function ble/syntax:bash/ctx-heredoc-word/initialize {
+  local ret
+  ble/util/s2c ' '
+  ble/util/sprintf _ble_syntax_bash_heredoc_EscSP '\\%03o' "$ret"
+  ble/util/s2c $'\t'
+  ble/util/sprintf _ble_syntax_bash_heredoc_EscHT '\\%03o' "$ret"
+  ble/util/s2c $'\n'
+  ble/util/sprintf _ble_syntax_bash_heredoc_EscLF '\\%03o' "$ret"
+  ble/util/s2c "$_ble_term_FS"
+  ble/util/sprintf _ble_syntax_bash_heredoc_EscFS '\\%03o' "$ret"
+}
+ble/syntax:bash/ctx-heredoc-word/initialize
+function ble/syntax:bash/ctx-heredoc-word/remove-quotes {
+  local text=$1 result=
+  local rex='^[^\$"'\'']+|^\$?["'\'']|^\\.?|^.'
+  while [[ $text && $text =~ $rex ]]; do
+    local rematch=$BASH_REMATCH
+    if [[ $rematch == \" || $rematch == \$\" ]]; then
+      if rex='^\$?"(([^\"]|\\.)*)(\\?$|")'; [[ $text =~ $rex ]]; then
+        local str=${BASH_REMATCH[1]}
+        local a b
+        b='\`' a='`'; str=${str//"$b"/"$a"}
+        b='\"' a='"'; str=${str//"$b"/"$a"} # WA #D1751 safe
+        b='\$' a='$'; str=${str//"$b"/"$a"}
+        b='\\' a='\'; str=${str//"$b"/"$a"}
+        result=$result$str
+        text=${text:${#BASH_REMATCH}}
+        continue
+      fi
+    elif [[ $rematch == \' ]]; then
+      if rex="^('[^']*)'?"; [[ $text =~ $rex ]]; then
+        builtin eval "result=\$result${BASH_REMATCH[1]}'"
+        text=${text:${#BASH_REMATCH}}
+        continue
+      fi
+    elif [[ $rematch == \$\' ]]; then
+      if rex='^(\$'\''([^\'\'']|\\.)*)('\''|\\?$)'; [[ $text =~ $rex ]]; then
+        builtin eval "result=\$result${BASH_REMATCH[1]}'"
+        text=${text:${#BASH_REMATCH}}
+        continue
+      fi
+    elif [[ $rematch == \\* ]]; then
+      result=$result${rematch:1}
+      text=${text:${#rematch}}
+      continue
+    fi
+    result=$result$rematch
+    text=${text:${#rematch}}
+  done
+  delimiter=$result$text
+}
+function ble/syntax:bash/ctx-heredoc-word/escape-delimiter {
+  local ret=$1
+  if [[ $ret == *[\\\'$_ble_term_IFS$_ble_term_FS]* ]]; then
+    local a b fs=$_ble_term_FS
+    a=\\   ; b='\'$a; ret=${ret//"$a"/"$b"}
+    a=\'   ; b='\'$a; ret=${ret//"$a"/"$b"}
+    a=' '  ; b=$_ble_syntax_bash_heredoc_EscSP; ret=${ret//"$a"/"$b"}
+    a=$'\t'; b=$_ble_syntax_bash_heredoc_EscHT; ret=${ret//"$a"/"$b"}
+    a=$'\n'; b=$_ble_syntax_bash_heredoc_EscLF; ret=${ret//"$a"/"$b"}
+    a=$fs  ; b=$_ble_syntax_bash_heredoc_EscFS; ret=${ret//"$a"/"$b"}
+  fi
+  escaped=$ret
+}
+function ble/syntax:bash/ctx-heredoc-word/unescape-delimiter {
+  builtin eval "delimiter=\$'$1'"
+}
+_BLE_SYNTAX_FCTX[_ble_ctx_RDRH]=ble/syntax:bash/ctx-heredoc-word
+_BLE_SYNTAX_FEND[_ble_ctx_RDRH]=ble/syntax:bash/ctx-heredoc-word/check-word-end
+_BLE_SYNTAX_FCTX[_ble_ctx_RDRI]=ble/syntax:bash/ctx-heredoc-word
+_BLE_SYNTAX_FEND[_ble_ctx_RDRI]=ble/syntax:bash/ctx-heredoc-word/check-word-end
+function ble/syntax:bash/ctx-heredoc-word/check-word-end {
+  ((wbegin<0)) && return 1
+  ble/syntax:bash/check-word-end/is-delimiter || return 1
+  local octx=$ctx word=${text:wbegin:i-wbegin}
+  ble/syntax/parse/word-pop
+  ble/syntax/parse/nest-pop
+  local I
+  if ((octx==_ble_ctx_RDRI)); then I=I; else I=R; fi
+  local Q delimiter
+  if [[ $word == *[\'\"\\]* ]]; then
+    Q=Q; ble/syntax:bash/ctx-heredoc-word/remove-quotes "$word"
+  else
+    Q=H; delimiter=$word
+  fi
+  local escaped; ble/syntax:bash/ctx-heredoc-word/escape-delimiter "$delimiter"
+  nparam=$nparam$_ble_term_FS@$I$Q$escaped
+  return 0
+}
+function ble/syntax:bash/ctx-heredoc-word {
+  ble/syntax:bash/ctx-redirect
+}
+_BLE_SYNTAX_FCTX[_ble_ctx_HERE0]=ble/syntax:bash/ctx-heredoc-content
+_BLE_SYNTAX_FCTX[_ble_ctx_HERE1]=ble/syntax:bash/ctx-heredoc-content
+function ble/syntax:bash/ctx-heredoc-content {
+  local indented= quoted= delimiter=
+  ble/syntax:bash/ctx-heredoc-word/unescape-delimiter "${nparam:2}"
+  [[ ${nparam::1} == I ]] && indented=1
+  [[ ${nparam:1:1} == Q ]] && quoted=1
+  local rex ht=$'\t' lf=$'\n'
+  if ((ctx==_ble_ctx_HERE0)); then
+    rex="^${indented:+$ht*}"$'([^\n]+\n?|\n)'
+    [[ $tail =~ $rex ]] || return 1
+    local line=${BASH_REMATCH%"$lf"}
+    local rematch1=${BASH_REMATCH[1]}
+    if [[ ${rematch1%"$lf"} == "$delimiter" ]]; then
+      local indent
+      ((indent=${#BASH_REMATCH}-${#rematch1},
+        _ble_syntax_attr[i]=_ble_ctx_HERE0,
+        _ble_syntax_attr[i+indent]=_ble_ctx_RDRH,
+        i+=${#line}))
+      ble/syntax/parse/nest-pop
+      return 0
+    fi
+  fi
+  if [[ $quoted ]]; then
+    ble/util/assert '((ctx==_ble_ctx_HERE0))'
+    ((_ble_syntax_attr[i]=_ble_ctx_HERE0,i+=${#BASH_REMATCH}))
+    return 0
+  else
+    ((ctx=_ble_ctx_HERE1))
+    if rex='^([^$`\'"$lf"']|\\.)+'"$lf"'?|^'"$lf" && [[ $tail =~ $rex ]]; then
+      ((_ble_syntax_attr[i]=_ble_ctx_HERE0,
+        i+=${#BASH_REMATCH}))
+      [[ $BASH_REMATCH == *"$lf" ]] && ((ctx=_ble_ctx_HERE0))
+      return 0
+    fi
+    if ble/syntax:bash/check-dollar; then
+      return 0
+    elif [[ $tail == '`'* ]] && ble/syntax:bash/check-quotes; then
+      return 0
+    else
+      ((_ble_syntax_attr[i]=_ble_ctx_HERE0,i++))
+      return 0
+    fi
+  fi
+}
+function ble/syntax:bash/is-complete {
+  local iN=${#_ble_syntax_text}
+  ((iN>0)) && ((_ble_syntax_attr[iN-1]==_ble_attr_ERR)) && return 1
+  local stat=${_ble_syntax_stat[iN]}
+  if [[ $stat ]]; then
+    ble/string#split-words stat "$stat"
+    local nlen=${stat[3]}; ((nlen>=0)) && return 1
+    local nparam=${stat[6]}; [[ $nparam == none ]] && nparam=
+    local rex="$_ble_term_FS@([RI][QH][^$_ble_term_FS]*)(.*$)"
+    [[ $nparam =~ $rex ]] && return 1
+    local ctx=${stat[0]}
+    ((ctx==_ble_ctx_ARGX||ctx==_ble_ctx_ARGX0||ctx==_ble_ctx_ARGVX||ctx==_ble_ctx_ARGEX||
+        ctx==_ble_ctx_CMDX||ctx==_ble_ctx_CMDXT||ctx==_ble_ctx_CMDXE||ctx==_ble_ctx_CMDXV||
+        ctx==_ble_ctx_TARGX1||ctx==_ble_ctx_TARGX2)) || return 1
+  fi
+  local attrs ret
+  IFS= builtin eval 'attrs="::${_ble_syntax_attr[*]/%/::}"' # WA #D1570 checked
+  ble/string#count-string "$attrs" ":$_ble_attr_KEYWORD_BEGIN:"; local nbeg=$ret
+  ble/string#count-string "$attrs" ":$_ble_attr_KEYWORD_END:"; local nend=$ret
+  ((nbeg>nend)) && return 1
+  return 0
+}
+function ble/syntax:bash/find-end-of-array-index {
+  local beg=$1 end=$2
+  ret=
+  local inest0=$beg nest0
+  [[ ${_ble_syntax_nest[inest0]} ]] || return 1
+  local q stat1 nlen1 inest1 r=
+  for ((q=inest0+1;q<end;q++)); do
+    local stat1=${_ble_syntax_stat[q]}
+    [[ $stat1 ]] || continue
+    ble/string#split-words stat1 "$stat1"
+    ((nlen1=stat1[3])) # (workaround Bash-4.2 segfault)
+    ((inest1=nlen1<0?nlen1:q-nlen1))
+    ((inest1<inest0)) && break
+    ((r=q))
+  done
+  [[ ${_ble_syntax_text:r:end-r} == ']'* ]] && ret=$r
+  [[ $ret ]]
+}
+function ble/syntax:bash/find-rhs {
+  local wtype=$1 wbeg=$2 wlen=$3 opts=$4
+  local text=$_ble_syntax_text
+  local word=${text:wbeg:wlen} wend=$((wbeg+wlen))
+  local rex=
+  if ((wtype==_ble_attr_VAR)); then
+    rex='^[a-zA-Z0-9_]+(\+?=|\[)'
+  elif ((wtype==_ble_ctx_VALI)); then
+    if [[ :$opts: == *:element-assignment:* ]]; then
+      rex='^[a-zA-Z0-9_]+(\+?=|\[)|^(\[)'
+    else
+      rex='^(\[)'
+    fi
+  fi
+  if [[ $rex && $word =~ $rex ]]; then
+    local last_char=${BASH_REMATCH:${#BASH_REMATCH}-1}
+    if [[ $last_char == '[' ]]; then
+      local p1=$((wbeg+${#BASH_REMATCH}-1))
+      if ble/syntax:bash/find-end-of-array-index "$p1" "$wend"; then
+        local p2=$ret
+        case ${text:p2:wend-p2} in
+        (']='*)  ((ret=p2+2)); return 0 ;;
+        (']+='*) ((ret=p2+3)); return 0 ;;
+        esac
+      fi
+    else
+      ((ret=wbeg+${#BASH_REMATCH}))
+      return 0
+    fi
+  fi
+  ret=$wbeg
+  return 1
+}
+_ble_syntax_vanishing_word_umin=-1
+_ble_syntax_vanishing_word_umax=-1
+function ble/syntax/vanishing-word/register {
+  local tree_array=$1 tofs=$2
+  local beg=$3 end=$4 lbeg=$5 lend=$6
+  (((beg<=0)&&(beg=1)))
+  local node i nofs
+  for ((i=end;i>=beg;i--)); do
+    builtin eval "node=(\${$tree_array[tofs+i-1]})"
+    ((${#node[@]})) || continue
+    for ((nofs=0;nofs<${#node[@]};nofs+=_ble_syntax_TREE_WIDTH)); do
+      local wtype=${node[nofs]} wlen=${node[nofs+1]}
+      local wbeg=$((wlen<0?wlen:i-wlen)) wend=$i
+      ((wbeg<lbeg&&(wbeg=lbeg),
+        wend>lend&&(wend=lend)))
+      ble/syntax/urange#update _ble_syntax_vanishing_word_ "$wbeg" "$wend"
+    done
+  done
+}
+function ble/syntax/parse/shift.stat {
+  if [[ ${_ble_syntax_stat[shift2_j]} ]]; then
+    local -a stat; ble/string#split-words stat "${_ble_syntax_stat[shift2_j]}"
+    local k klen kbeg
+    for k in 1 3 4 5; do # wlen nlen tclen tplen
+      (((klen=stat[k])<0)) && continue
+      ((kbeg=shift2_j-klen))
+      if ((kbeg<beg)); then
+        ((stat[k]+=shift))
+      elif ((kbeg<end0)); then
+        ((stat[k]-=end0-kbeg))
+      fi
+    done
+    _ble_syntax_stat[shift2_j]="${stat[*]}"
+  fi
+}
+function ble/syntax/parse/shift.tree/1 {
+  local k klen kbeg
+  for k in 1 2 3; do # wlen/nlen tclen tplen
+    ((klen=node[nofs+k]))
+    ((klen<0||(kbeg=shift2_j-klen)>end0)) && continue
+    if [[ $k == 1 && ${node[nofs]} =~ ^[0-9]$ ]]; then
+      ble/syntax/parse/touch-updated-word "$shift2_j"
+      node[nofs+4]='-'
+    fi
+    if ((kbeg<beg)); then
+      ((node[nofs+k]+=shift))
+    elif ((kbeg<end0)); then
+      ((node[nofs+k]-=end0-kbeg))
+    fi
+  done
+}
+function ble/syntax/parse/shift.tree {
+  [[ ${_ble_syntax_tree[shift2_j-1]} ]] || return 1
+  local -a node
+  ble/string#split-words node "${_ble_syntax_tree[shift2_j-1]}"
+  local nofs
+  if [[ $1 ]]; then
+    nofs=$1 ble/syntax/parse/shift.tree/1
+  else
+    for ((nofs=0;nofs<${#node[@]};nofs+=_ble_syntax_TREE_WIDTH)); do
+      ble/syntax/parse/shift.tree/1
+    done
+  fi
+  _ble_syntax_tree[shift2_j-1]="${node[*]}"
+}
+function ble/syntax/parse/shift.nest {
+  if [[ ${_ble_syntax_nest[shift2_j]} ]]; then
+    local -a nest
+    ble/string#split-words nest "${_ble_syntax_nest[shift2_j]}"
+    local k klen kbeg
+    for k in 1 3 4 5; do
+      (((klen=nest[k])))
+      ((klen<0||(kbeg=shift2_j-klen)<0)) && continue
+      if ((kbeg<beg)); then
+        ((nest[k]+=shift))
+      elif ((kbeg<end0)); then
+        ((nest[k]-=end0-kbeg))
+      fi
+    done
+    _ble_syntax_nest[shift2_j]="${nest[*]}"
+  fi
+}
+function ble/syntax/parse/shift.impl2/.shift-until {
+  local limit=$1
+  while ((shift2_j>=limit)); do
+    [[ $bleopt_syntax_debug ]] && _ble_syntax_stat_shift[shift2_j+shift]=1
+    ble/syntax/parse/shift.stat
+    ble/syntax/parse/shift.nest
+    ((shift2_j--))
+  done
+}
+function ble/syntax/parse/shift.impl2/.proc1 {
+  if ((TE_i<j2)); then
+    ((tprev=-1)) # 中断
+    return 0
+  fi
+  ble/syntax/parse/shift.impl2/.shift-until $((TE_i+1))
+  ble/syntax/parse/shift.tree "$TE_nofs"
+  if ((tprev>end0&&wbegin>end0)) && [[ ${wtype//[0-9]} ]]; then
+    [[ $bleopt_syntax_debug ]] && _ble_syntax_stat_shift[shift2_j+shift]=1
+    ble/syntax/parse/shift.stat
+    ble/syntax/parse/shift.nest
+    ((shift2_j=wbegin)) # skip
+  elif ((tchild>=0)); then
+    ble/syntax/tree-enumerate-children ble/syntax/parse/shift.impl2/.proc1
+  fi
+}
+function ble/syntax/parse/shift.method1 {
+  local i j
+  for ((i=i2,j=j2;i<=iN;i++,j++)); do
+    local shift2_j=$j
+    ble/syntax/parse/shift.stat
+    ((j>0))  && ble/syntax/parse/shift.tree
+    ((i<iN)) && ble/syntax/parse/shift.nest
+  done
+}
+function ble/syntax/parse/shift.method2 {
+  [[ $bleopt_syntax_debug ]] && _ble_syntax_stat_shift=()
+  local iN=${#_ble_syntax_text} # tree-enumerate 起点は (古い text の長さ) である
+  local shift2_j=$iN # proc1 に渡す変数
+  ble/syntax/tree-enumerate ble/syntax/parse/shift.impl2/.proc1
+  ble/syntax/parse/shift.impl2/.shift-until "$j2" # 未処理部分
+}
+function ble/syntax/parse/shift {
+  ble/syntax/parse/shift.method2 # tree-enumerate による skip
+  if ((shift!=0)); then
+    ble/syntax/urange#shift _ble_syntax_attr_
+    ble/syntax/wrange#shift _ble_syntax_word_
+    ble/syntax/wrange#shift _ble_syntax_word_defer_
+    ble/syntax/urange#shift _ble_syntax_vanishing_word_
+  fi
+}
+_ble_syntax_dbeg=-1 _ble_syntax_dend=-1
+function ble/syntax/parse/determine-parse-range {
+  local flagSeekStat=0
+  ((i1=_ble_syntax_dbeg,i1>=end0&&(i1+=shift),
+    i2=_ble_syntax_dend,i2>=end0&&(i2+=shift),
+    (i1<0||beg<i1)&&(i1=beg,flagSeekStat=1),
+    (i2<0||i2<end)&&(i2=end),
+    (i2>iN)&&(i2=iN),
+    j2=i2-shift))
+  if ((flagSeekStat)); then
+    local lookahead='stat[7]'
+    local -a stat
+    while ((i1>0)); do
+      if [[ ${_ble_syntax_stat[--i1]} ]]; then
+        ble/string#split-words stat "${_ble_syntax_stat[i1]}"
+        ((i1+lookahead<=beg)) && break
+      fi
+    done
+  fi
+  ble/util/assert '((0<=i1&&i1<=beg&&end<=i2&&i2<=iN))' "X2 0 <= $i1 <= $beg <= $end <= $i2 <= $iN"
+}
+function ble/syntax/parse/check-end {
+  [[ ${_BLE_SYNTAX_FEND[ctx]} ]] && "${_BLE_SYNTAX_FEND[ctx]}"
+}
+function ble/syntax/parse {
+  local text=$1 iN=${#1}
+  local opts=$2
+  local beg=${3:-0} end=${4:-$iN} end0=${5:-0}
+  ((end==beg&&end0==beg&&_ble_syntax_dbeg<0)) && return 0
+  local IFS=$_ble_term_IFS
+  local shift=$((end-end0))
+  ble/util/assert \
+    '((0<=beg&&beg<=end&&end<=iN&&beg<=end0))' \
+    "X1 0 <= beg:$beg <= end:$end <= iN:$iN, beg:$beg <= end0:$end0 (shift=$shift text=$text)" ||
+    ((beg=0,end=iN))
+  local i1 i2 j2
+  ble/syntax/parse/determine-parse-range
+  ble/syntax/vanishing-word/register _ble_syntax_tree 0 "$i1" "$j2" 0 "$i2"
+  ble/syntax/parse/shift
+  local ctx wbegin wtype inest tchild tprev nparam ilook
+  if ((i1>0)) && [[ ${_ble_syntax_stat[i1]} ]]; then
+    local -a stat
+    ble/string#split-words stat "${_ble_syntax_stat[i1]}"
+    local wlen=${stat[1]} nlen=${stat[3]} tclen=${stat[4]} tplen=${stat[5]}
+    ctx=${stat[0]}
+    wbegin=$((wlen<0?wlen:i1-wlen))
+    wtype=${stat[2]}
+    inest=$((nlen<0?nlen:i1-nlen))
+    tchild=$((tclen<0?tclen:i1-tclen))
+    tprev=$((tplen<0?tplen:i1-tplen))
+    nparam=${stat[6]}; [[ $nparam == none ]] && nparam=
+    ilook=$((i1+${stat[7]:-1}))
+  else
+    ctx=$_ble_ctx_UNSPECIFIED ##!< 現在の解析の文脈
+    ble/syntax:"$_ble_syntax_lang"/initialize-ctx # ctx 初期化
+    wbegin=-1       ##!< シェル単語内にいる時、シェル単語の開始位置
+    wtype=-1        ##!< シェル単語内にいる時、シェル単語の種類
+    inest=-1        ##!< 入れ子の時、親の開始位置
+    tchild=-1
+    tprev=-1
+    nparam=
+    ilook=1
+  fi
+  local -a _tail_syntax_stat _tail_syntax_tree _tail_syntax_nest _tail_syntax_attr
+  _tail_syntax_stat=("${_ble_syntax_stat[@]:j2:iN-i2+1}")
+  _tail_syntax_tree=("${_ble_syntax_tree[@]:j2:iN-i2}")
+  _tail_syntax_nest=("${_ble_syntax_nest[@]:j2:iN-i2}")
+  _tail_syntax_attr=("${_ble_syntax_attr[@]:j2:iN-i2}")
+  ble/array#reserve-prototype "$iN"
+  _ble_syntax_stat=("${_ble_syntax_stat[@]::i1}" "${_ble_array_prototype[@]:i1:iN-i1}") # 再開用データ
+  _ble_syntax_tree=("${_ble_syntax_tree[@]::i1}" "${_ble_array_prototype[@]:i1:iN-i1}") # 単語
+  _ble_syntax_nest=("${_ble_syntax_nest[@]::i1}" "${_ble_array_prototype[@]:i1:iN-i1}") # 入れ子の親
+  _ble_syntax_attr=("${_ble_syntax_attr[@]::i1}" "${_ble_array_prototype[@]:i1:iN-i1}") # 文脈・色とか
+  ble/syntax:"$_ble_syntax_lang"/initialize-vars
+  _ble_syntax_text=$text
+  local i _stat tail
+  local debug_p1
+  for ((i=i1;i<iN;)); do
+    ble/syntax/parse/generate-stat
+    if ((i>=i2)) && [[ ${_tail_syntax_stat[i-i2]} == "$_stat" ]]; then
+      if ble/syntax/parse/nest-equals "$inest"; then
+        _ble_syntax_stat=("${_ble_syntax_stat[@]::i}" "${_tail_syntax_stat[@]:i-i2}")
+        _ble_syntax_tree=("${_ble_syntax_tree[@]::i}" "${_tail_syntax_tree[@]:i-i2}")
+        _ble_syntax_nest=("${_ble_syntax_nest[@]::i}" "${_tail_syntax_nest[@]:i-i2}")
+        _ble_syntax_attr=("${_ble_syntax_attr[@]::i}" "${_tail_syntax_attr[@]:i-i2}")
+        break
+      fi
+    fi
+    _ble_syntax_stat[i]=$_stat
+    tail=${text:i}
+    debug_p1=$i
+    "${_BLE_SYNTAX_FCTX[ctx]}" || ((_ble_syntax_attr[i]=_ble_attr_ERR,i++))
+    ble/syntax/parse/check-end
+  done
+  builtin unset -v debug_p1
+  ble/syntax/vanishing-word/register _tail_syntax_tree $((-i2)) $((i2+1)) "$i" 0 "$i"
+  ble/syntax/urange#update _ble_syntax_attr_ "$i1" "$i"
+  (((i>=i2)?(
+      _ble_syntax_dbeg=_ble_syntax_dend=-1
+    ):(
+      _ble_syntax_dbeg=i,_ble_syntax_dend=i2)))
+  if ((i>=iN)); then
+    ((i=iN))
+    ble/syntax/parse/generate-stat
+    _ble_syntax_stat[i]=$_stat
+    if ((inest>0)); then
+      ((_ble_syntax_attr[iN-1]=_ble_attr_ERR))
+      while ((inest>=0)); do
+        ((i=inest))
+        ble/syntax/parse/nest-pop
+        ((inest>=i&&(inest=i-1)))
+      done
+    fi
+  fi
+  ble/util/assert \
+    '((${#_ble_syntax_stat[@]}==iN+1))' \
+    "unexpected array length #arr=${#_ble_syntax_stat[@]} (expected to be $iN), #proto=${#_ble_array_prototype[@]} should be >= $iN"
+}
+function ble/syntax/highlight {
+  local text=$1 lang=${2:-bash} cache_prefix=$3
+  local -a _ble_highlight_layer__list=(plain syntax)
+  local -a vars=()
+  ble/array#push vars "${_ble_syntax_VARNAMES[@]}"
+  ble/array#push vars "${_ble_highlight_layer_plain_VARNAMES[@]}"
+  ble/array#push vars "${_ble_highlight_layer_syntax_VARNAMES[@]}"
+  local "${vars[@]/%/=}" # WA #D1570 checked
+  if [[ $cache_prefix ]] && ((${cache_prefix}_INITIALIZED++)); then
+    ble/util/restore-vars "$cache_prefix" "${vars[@]}"
+    ble/string#common-prefix "$_ble_syntax_text" "$text"
+    local beg=${#ret}
+    ble/string#common-suffix "${_ble_syntax_text:beg}" "${text:beg}"
+    local end=$((${#text}-${#ret})) end0=$((${#_ble_syntax_text}-${#ret}))
+  else
+    ble/syntax/initialize-vars
+    ble/highlight/layer:plain/initialize-vars
+    ble/highlight/layer:syntax/initialize-vars
+    _ble_syntax_lang=$lang
+    local beg=0 end=${#text} end0=0
+  fi
+  ble/syntax/parse "$text" '' "$beg" "$end" "$end0"
+  local HIGHLIGHT_BUFF HIGHLIGHT_UMIN HIGHLIGHT_UMAX
+  ble/highlight/layer/update "$text" '' "$beg" "$end" "$end0"
+  IFS= builtin eval "ret=\"\${$HIGHLIGHT_BUFF[*]}\""
+  [[ $cache_prefix ]] &&
+    ble/util/save-vars "$cache_prefix" "${vars[@]}"
+  return 0
+}
+function ble/syntax/completion-context/.add {
+  local source=$1
+  local comp1=$2
+  ble/util/assert '[[ $source && comp1 -ge 0 ]]'
+  sources[${#sources[*]}]="$source $comp1"
+}
+function ble/syntax/completion-context/.check/parameter-expansion {
+  local rex_paramx='^(\$(\{[!#]?)?)([a-zA-Z_][a-zA-Z_0-9]*)?$'
+  if [[ ${text:istat:index-istat} =~ $rex_paramx ]]; then
+    local rematch1=${BASH_REMATCH[1]}
+    local source=variable
+    if [[ $rematch1 == '${'* ]]; then
+      source=variable:b # suffix }
+    elif ((ctx==_ble_ctx_BRACE1||ctx==_ble_ctx_BRACE2)); then
+      source=variable:n # no suffix
+    fi
+    ble/syntax/completion-context/.add "$source" $((istat+${#rematch1}))
+  fi
+}
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_CMDI]=inside-command
+function ble/syntax/completion-context/.check-prefix/ctx:inside-command {
+  if ((wlen>=0)); then
+    ble/syntax/completion-context/.add command "$wbeg"
+    if [[ ${text:wbeg:index-wbeg} =~ $rex_param ]]; then
+      ble/syntax/completion-context/.add variable:= "$wbeg"
+    fi
+  fi
+  ble/syntax/completion-context/.check/parameter-expansion
+}
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_ARGI]='inside-argument argument'
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_ARGQ]='inside-argument argument'
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_FARGI1]='inside-argument variable:w'
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_FARGI3]='inside-argument argument'
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_FARGQ3]='inside-argument argument'
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_CARGI1]='inside-argument argument'
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_CARGQ1]='inside-argument argument'
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_CPATI]='inside-argument argument'
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_CPATQ]='inside-argument argument'
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_COARGI]='inside-argument variable command'
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_VALI]='inside-argument sabbrev file'
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_VALQ]='inside-argument sabbrev file'
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_CONDI]='inside-argument sabbrev file option'
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_CONDQ]='inside-argument sabbrev file'
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_ARGVI]='inside-argument sabbrev variable:='
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_ARGEI]='inside-argument command:D variable:= file'
+function ble/syntax/completion-context/.check-prefix/ctx:inside-argument {
+  if ((wlen>=0)); then
+    local source
+    for source; do
+      ble/syntax/completion-context/.add "$source" "$wbeg"
+      if [[ $source != argument ]]; then
+        local sub=${text:wbeg:index-wbeg}
+        if [[ $sub == *[=:]* ]]; then
+          sub=${sub##*[=:]}
+          ble/syntax/completion-context/.add "$source" $((index-${#sub}))
+        fi
+      fi
+    done
+  fi
+  ble/syntax/completion-context/.check/parameter-expansion
+}
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_CMDX]=next-command
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_CMDX1]=next-command
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_CMDXT]=next-command
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_CMDXV]=next-command
+function ble/syntax/completion-context/.check-prefix/.test-redirection {
+  local word=$1
+  [[ $word =~ ^$_ble_syntax_bash_RexRedirect$ ]] || return 1
+  ((ctx==_ble_ctx_CMDXC||ctx==_ble_ctx_CMDXD||ctx==_ble_ctx_CMDXD0||ctx==_ble_ctx_FARGX3)) && return 0
+  local rematch3=${BASH_REMATCH[3]}
+  case $rematch3 in
+  ('>&')
+    ble/syntax/completion-context/.add fd "$index"
+    ble/syntax/completion-context/.add file:no-fd "$index" ;;
+  (*'&')
+    ble/syntax/completion-context/.add fd "$index" ;;
+  ('<<'|'<<-')
+    ble/syntax/completion-context/.add wordlist:EOF:END:HERE "$index" ;;
+  ('<<<'|*)
+    ble/syntax/completion-context/.add file "$index" ;;
+  esac
+  return 0
+}
+function ble/syntax/completion-context/.check-prefix/ctx:next-command {
+  local word=${text:istat:index-istat}
+  if ble/syntax:bash/simple-word/is-simple-or-open-simple "$word"; then
+    ble/syntax/completion-context/.add command "$istat"
+    if local rex='^[a-zA-Z_][a-zA-Z_0-9]*(\+?=)?$' && [[ $word =~ $rex ]]; then
+      if [[ $word == *= ]]; then
+        if ((_ble_bash>=30100)) || [[ $word != *+= ]]; then
+          ble/syntax/completion-context/.add argument "$index"
+        fi
+      else
+        ble/syntax/completion-context/.add variable:= "$istat"
+      fi
+    fi
+  elif ble/syntax/completion-context/.check-prefix/.test-redirection; then
+    true
+  elif [[ $word =~ ^$_ble_syntax_bash_RexSpaces$ ]]; then
+    shopt -q no_empty_cmd_completion ||
+      ble/syntax/completion-context/.add command "$index"
+  fi
+  ble/syntax/completion-context/.check/parameter-expansion
+}
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_ARGX]=next-argument
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_CARGX1]=next-argument
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_CPATX]=next-argument
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_FARGX3]=next-argument
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_COARGX]=next-argument
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_ARGVX]=next-argument
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_ARGEX]=next-argument
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_VALX]=next-argument
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_CONDX]=next-argument
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_RDRS]=next-argument
+function ble/syntax/completion-context/.check-prefix/ctx:next-argument {
+  local source
+  if ((ctx==_ble_ctx_ARGX||ctx==_ble_ctx_CARGX1||ctx==_ble_ctx_FARGX3)); then
+    source=(argument)
+  elif ((ctx==_ble_ctx_COARGX)); then
+    source=(command variable)
+  elif ((ctx==_ble_ctx_ARGVX)); then
+    source=(sabbrev variable:= option)
+  elif ((ctx==_ble_ctx_ARGEX)); then
+    source=(command:D variable:= file)
+  elif ((ctx==_ble_ctx_CONDX)); then
+    source=(sabbrev file option)
+  else
+    source=(sabbrev file)
+  fi
+  local word=${text:istat:index-istat}
+  if ble/syntax:bash/simple-word/is-simple-or-open-simple "$word"; then
+    local src
+    for src in "${source[@]}"; do
+      ble/syntax/completion-context/.add "$src" "$istat"
+    done
+    if [[ ${source[0]} != argument ]]; then
+      local rex="^([^='\"\$\\{}]|\\.)*="
+      if [[ $word =~ $rex ]]; then
+        word=${word:${#BASH_REMATCH}}
+        ble/syntax/completion-context/.add rhs $((index-${#word}))
+      fi
+    fi
+  elif ble/syntax/completion-context/.check-prefix/.test-redirection "$word"; then
+    true
+  elif [[ $word =~ ^$_ble_syntax_bash_RexSpaces$ ]]; then
+    local src
+    for src in "${source[@]}"; do
+      ble/syntax/completion-context/.add "$src" "$index"
+    done
+  fi
+  ble/syntax/completion-context/.check/parameter-expansion
+}
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_CMDXC]=next-compound
+function ble/syntax/completion-context/.check-prefix/ctx:next-compound {
+  local rex word=${text:istat:index-istat}
+  if [[ ${text:istat:index-istat} =~ $rex_param ]]; then
+    ble/syntax/completion-context/.add wordlist:-r:'for:select:case:if:while:until' "$istat"
+  elif rex='^[[({]+$'; [[ $word =~ $rex ]]; then
+    ble/syntax/completion-context/.add wordlist:-r:'(:{:((:[[' "$istat"
+  fi
+}
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_FARGX1]="next-identifier variable:w" # _ble_ctx_FARGX1 → (( でなければ 変数名
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_SARGX1]="next-identifier variable:w"
+function ble/syntax/completion-context/.check-prefix/ctx:next-identifier {
+  local source=$1 word=${text:istat:index-istat}
+  if [[ $word =~ $rex_param ]]; then
+    ble/syntax/completion-context/.add "$source" "$istat"
+  elif [[ $word =~ ^$_ble_syntax_bash_RexSpaces$ ]]; then
+    ble/syntax/completion-context/.add "$source" "$index"
+  else
+    ble/syntax/completion-context/.add none "$istat"
+  fi
+}
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_ARGX0]="next-word sabbrev"
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_CPATX0]="next-word sabbrev"
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_CMDXD0]="next-word wordlist:-rs:';:{:do'"
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_CMDXD]="next-word wordlist:-rs:'{:do'"
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_CMDXE]="next-word wordlist:-rs:'}:fi:done:esac:then:elif:else:do'"
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_CARGX2]="next-word wordlist:-rs:'in'"
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_CARGI2]="next-word wordlist:-rs:'in'"
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_FARGX2]="next-word wordlist:-rs:'in:do'"
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_FARGI2]="next-word wordlist:-rs:'in:do'"
+function ble/syntax/completion-context/.check-prefix/ctx:next-word {
+  local source=$1 word=${text:istat:index-istat} rex=$'^[^ \t]*$'
+  if [[ $word =~ ^$_ble_syntax_bash_RexSpaces$ ]]; then
+    ble/syntax/completion-context/.add "$source" "$index"
+  else
+    ble/syntax/completion-context/.add "$source" "$istat"
+  fi
+}
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_TARGX1]=time-argument
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_TARGI1]=time-argument
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_TARGX2]=time-argument
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_TARGI2]=time-argument
+function ble/syntax/completion-context/.check-prefix/ctx:time-argument {
+  ble/syntax/completion-context/.check/parameter-expansion
+  ble/syntax/completion-context/.add command "$istat"
+  if ((ctx==_ble_ctx_TARGX1)); then
+    local rex='^-p?$' words='-p'
+    ((_ble_bash>=50100)) &&
+      rex='^-[-p]?$' words='-p':'--'
+    [[ ${text:istat:index-istat} =~ $rex ]] &&
+      ble/syntax/completion-context/.add wordlist:--:"$words" "$istat"
+  elif ((ctx==_ble_ctx_TARGX2)); then
+    local rex='^--?$'
+    [[ ${text:istat:index-istat} =~ $rex ]] &&
+      ble/syntax/completion-context/.add wordlist:--:'--' "$istat"
+  fi
+}
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_QUOT]=quote
+function ble/syntax/completion-context/.check-prefix/ctx:quote {
+  ble/syntax/completion-context/.check/parameter-expansion
+  ble/syntax/completion-context/.check-prefix/ctx:quote/.check-container-word
+}
+function ble/syntax/completion-context/.check-prefix/ctx:quote/.check-container-word {
+  local nlen=${stat[3]}; ((nlen>=0)) || return 1
+  local inest=$((nlen<0?nlen:istat-nlen))
+  local nest; ble/string#split-words nest "${_ble_syntax_nest[inest]}"
+  [[ ${nest[0]} ]] || return 1
+  local wlen2=${nest[1]}; ((wlen2>=0)) || return 1
+  local wbeg2=$((wlen2<0?wlen2:inest-wlen2))
+  if ble/syntax:bash/simple-word/is-simple-or-open-simple "${text:wbeg2:index-wbeg2}"; then
+    local wt=${nest[2]}
+    [[ ${_ble_syntax_bash_command_EndWtype[wt]} ]] &&
+      wt=${_ble_syntax_bash_command_EndWtype[wt]}
+    if ((wt==_ble_ctx_CMDI)); then
+      ble/syntax/completion-context/.add command "$wbeg2"
+    elif ((wt==_ble_ctx_ARGI||wt==_ble_ctx_ARGVI||wt==_ble_ctx_ARGEI||wt==_ble_ctx_FARGI2||wt==_ble_ctx_CARGI2)); then
+      ble/syntax/completion-context/.add argument "$wbeg2"
+    elif ((wt==_ble_ctx_CPATI)); then # case pattern の内部
+      return
+    fi
+  fi
+}
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_RDRF]=redirection
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_RDRD2]=redirection
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_RDRD]=redirection
+function ble/syntax/completion-context/.check-prefix/ctx:redirection {
+  ble/syntax/completion-context/.check/parameter-expansion
+  local p=$((wlen>=0?wbeg:istat))
+  if ble/syntax:bash/simple-word/is-simple-or-open-simple "${text:p:index-p}"; then
+    if ((ctx==_ble_ctx_RDRF)); then
+      ble/syntax/completion-context/.add file "$p"
+    elif ((ctx==_ble_ctx_RDRD)); then
+      ble/syntax/completion-context/.add fd "$p"
+    elif ((ctx==_ble_ctx_RDRD2)); then
+      ble/syntax/completion-context/.add fd "$p"
+      ble/syntax/completion-context/.add file:no-fd "$p"
+    fi
+  fi
+}
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_RDRH]=here
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_RDRI]=here
+function ble/syntax/completion-context/.check-prefix/ctx:here {
+  local p=$((wlen>=0?wbeg:istat))
+  ble/syntax/completion-context/.add wordlist:EOF:END:HERE "$p"
+}
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_VRHS]=rhs
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_ARGVR]=rhs
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_ARGER]=rhs
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_VALR]=rhs
+function ble/syntax/completion-context/.check-prefix/ctx:rhs {
+  ble/syntax/completion-context/.check/parameter-expansion
+  if ((wlen>=0)); then
+    local p=$wbeg
+    local rex='^[a-zA-Z0-9_]+(\+?=|\[)'
+    ((ctx==_ble_ctx_VALR)) && rex='^(\[)'
+    if [[ ${text:p:index-p} =~ $rex ]]; then
+      if [[ ${BASH_REMATCH[1]} == '[' ]]; then
+        local p1=$((wbeg+${#BASH_REMATCH}-1))
+        if local ret; ble/syntax:bash/find-end-of-array-index "$p1" "$index"; then
+          local p2=$ret
+          case ${_ble_syntax_text:p2:index-p2} in
+          (']='*)  ((p=p2+2)) ;;
+          (']+='*) ((p=p2+3)) ;;
+          (']+')
+            ble/syntax/completion-context/.add wordlist:-rW:'+=' $((p2+1))
+            p= ;;
+          esac
+        fi
+      else
+        ((p+=${#BASH_REMATCH}))
+      fi
+    fi
+  else
+    local p=$istat
+  fi
+  if [[ $p ]] && ble/syntax:bash/simple-word/is-simple-or-open-simple "${text:p:index-p}"; then
+    ble/syntax/completion-context/.add rhs "$p"
+  fi
+}
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_PARAM]=param
+function ble/syntax/completion-context/.check-prefix/ctx:param {
+  local tail=${text:istat:index-istat}
+  if [[ $tail == : ]]; then
+    return 0
+  elif [[ $tail == '}'* ]]; then
+    local nlen=${stat[3]}
+    local inest=$((nlen<0?nlen:istat-nlen))
+    ((0<=inest&&inest<istat)) &&
+      ble/syntax/completion-context/.check-prefix "$inest"
+    return "$?"
+  else
+    return 1
+  fi
+}
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_EXPR]=expr
+function ble/syntax/completion-context/.check-prefix/ctx:expr {
+  local tail=${text:istat:index-istat} rex='[a-zA-Z_]+$'
+  if [[ $tail =~ $rex ]]; then
+    local p=$((index-${#BASH_REMATCH}))
+    ble/syntax/completion-context/.add variable:a "$p"
+    return 0
+  elif [[ $tail == ']'* ]]; then
+    local inest=... ntype
+    local nlen=${stat[3]}; ((nlen>=0)) || return 1
+    local inest=$((istat-nlen))
+    ble/syntax/parse/nest-type # ([in] inest; [out] ntype)
+    if [[ $ntype == [ad]'[' ]]; then
+      if [[ $tail == ']' ]]; then
+        ble/syntax/completion-context/.add wordlist:-rW:'=' $((istat+1))
+      elif ((_ble_bash>=30100)) && [[ $tail == ']+' ]]; then
+        ble/syntax/completion-context/.add wordlist:-rW:'+=' $((istat+1))
+      elif [[ $tail == ']=' || _ble_bash -ge 30100 && $tail == ']+=' ]]; then
+        ble/syntax/completion-context/.add rhs "$index"
+      fi
+    fi
+  fi
+}
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_BRACE1]=brace
+_ble_syntax_bash_complete_check_prefix[_ble_ctx_BRACE2]=brace
+function ble/syntax/completion-context/.check-prefix/ctx:brace {
+  local ctx1=$ctx istat1=$istat nlen1=${stat[3]}
+  ((nlen1>=0)) || return 1
+  local inest1=$((istat1-nlen1))
+  while :; do
+    local nest=${_ble_syntax_nest[inest1]}
+    [[ $nest ]] || return 1
+    ble/string#split-words nest "$nest"
+    ctx1=${nest[0]}
+    ((ctx1==_ble_ctx_BRACE1||ctx1==_ble_ctx_BRACE2)) || break
+    inest1=${nest[3]}
+    ((inest1>=0)) || return 1
+  done
+  for ((istat1=inest1;1;istat1--)); do
+    ((istat1>=0)) || return 1
+    [[ ${_ble_syntax_stat[istat1]} ]] && break
+  done
+  local stat1
+  ble/string#split-words stat1 "${_ble_syntax_stat[istat1]}"
+  local wlen=${stat1[1]}
+  local wbeg=$((wlen>=0?istat1-wlen:istat1))
+  ble/syntax/completion-context/.check/parameter-expansion
+  ble/syntax/completion-context/.add argument "$wbeg"
+}
+function ble/syntax/completion-context/.search-last-istat {
+  local index=$1 istat
+  for ((istat=index;istat>=0;istat--)); do
+    if [[ ${_ble_syntax_stat[istat]} ]]; then
+      ret=$istat
+      return 0
+    fi
+  done
+  ret=
+  return 1
+}
+function ble/syntax/completion-context/.check-prefix {
+  local rex_param='^[a-zA-Z_][a-zA-Z_0-9]*$'
+  local from=${1:-$((index-1))}
+  local ret
+  ble/syntax/completion-context/.search-last-istat "$from" || return 1
+  local istat=$ret stat
+  ble/string#split-words stat "${_ble_syntax_stat[istat]}"
+  [[ ${stat[0]} ]] || return 1
+  local ctx=${stat[0]} wlen=${stat[1]}
+  local wbeg=$((wlen<0?wlen:istat-wlen))
+  local name=${_ble_syntax_bash_complete_check_prefix[ctx]}
+  if [[ $name ]]; then
+    builtin eval "ble/syntax/completion-context/.check-prefix/ctx:$name"
+  fi
+}
+function ble/syntax/completion-context/.check-here {
+  ((${#sources[*]})) && return 0
+  local -a stat
+  ble/string#split-words stat "${_ble_syntax_stat[index]}"
+  if [[ ${stat[0]} ]]; then
+    local ctx=${stat[0]}
+    if ((ctx==_ble_ctx_CMDX||ctx==_ble_ctx_CMDXV||ctx==_ble_ctx_CMDX1||ctx==_ble_ctx_CMDXT)); then
+      if ! shopt -q no_empty_cmd_completion; then
+        ble/syntax/completion-context/.add command "$index"
+        ble/syntax/completion-context/.add variable:= "$index"
+      fi
+    elif ((ctx==_ble_ctx_CMDXC)); then
+      ble/syntax/completion-context/.add wordlist:-rs:'(:{:((:[[:for:select:case:if:while:until' "$index"
+    elif ((ctx==_ble_ctx_CMDXE)); then
+      ble/syntax/completion-context/.add wordlist:-rs:'}:fi:done:esac:then:elif:else:do' "$index"
+    elif ((ctx==_ble_ctx_CMDXD0)); then
+      ble/syntax/completion-context/.add wordlist:-rs:';:{:do' "$index"
+    elif ((ctx==_ble_ctx_CMDXD)); then
+      ble/syntax/completion-context/.add wordlist:-rs:'{:do' "$index"
+    elif ((ctx==_ble_ctx_ARGX0||ctx==_ble_ctx_CPATX0)); then
+      ble/syntax/completion-context/.add sabbrev "$index"
+    elif ((ctx==_ble_ctx_ARGX||ctx==_ble_ctx_CARGX1||ctx==_ble_ctx_FARGX3)); then
+      ble/syntax/completion-context/.add argument "$index"
+    elif ((ctx==_ble_ctx_FARGX1||ctx==_ble_ctx_SARGX1)); then
+      ble/syntax/completion-context/.add variable:w "$index"
+      ble/syntax/completion-context/.add sabbrev "$index"
+    elif ((ctx==_ble_ctx_ARGVX)); then
+      ble/syntax/completion-context/.add variable:= "$index"
+      ble/syntax/completion-context/.add option "$index"
+      ble/syntax/completion-context/.add sabbrev "$index"
+    elif ((ctx==_ble_ctx_ARGEX)); then
+      ble/syntax/completion-context/.add variable:= "$index"
+      ble/syntax/completion-context/.add command:D "$index"
+      ble/syntax/completion-context/.add file "$index"
+    elif ((ctx==_ble_ctx_CARGX2)); then
+      ble/syntax/completion-context/.add wordlist:-rs:'in' "$index"
+    elif ((ctx==_ble_ctx_FARGX2)); then
+      ble/syntax/completion-context/.add wordlist:-rs:'in:do' "$index"
+    elif ((ctx==_ble_ctx_TARGX1)); then
+      local words='-p'
+      ((_ble_bash>=50100)) && words='-p':'--'
+      ble/syntax/completion-context/.add command "$index"
+      ble/syntax/completion-context/.add wordlist:--:"$words" "$index"
+    elif ((ctx==_ble_ctx_TARGX2)); then
+      ble/syntax/completion-context/.add command "$index"
+      ble/syntax/completion-context/.add wordlist:--:'--' "$index"
+    elif ((ctx==_ble_ctx_COARGX)); then
+      ble/syntax/completion-context/.add variable:w "$index"
+      ble/syntax/completion-context/.add command "$index"
+    elif ((ctx==_ble_ctx_CONDX)); then
+      ble/syntax/completion-context/.add sabbrev "$index"
+      ble/syntax/completion-context/.add option "$index"
+      ble/syntax/completion-context/.add file "$index"
+    elif ((ctx==_ble_ctx_CPATI||ctx==_ble_ctx_RDRF||ctx==_ble_ctx_RDRS)); then
+      ble/syntax/completion-context/.add file "$index"
+    elif ((ctx==_ble_ctx_RDRD)); then
+      ble/syntax/completion-context/.add fd "$index"
+    elif ((ctx==_ble_ctx_RDRD2)); then
+      ble/syntax/completion-context/.add fd "$index"
+      ble/syntax/completion-context/.add file:no-fd "$index"
+    elif ((ctx==_ble_ctx_RDRH||ctx==_ble_ctx_RDRI)); then
+      ble/syntax/completion-context/.add wordlist:EOF:END:HERE "$index"
+    elif ((ctx==_ble_ctx_VRHS||ctx==_ble_ctx_ARGVR||ctx==_ble_ctx_ARGER||ctx==_ble_ctx_VALR)); then
+      ble/syntax/completion-context/.add rhs "$index"
+    fi
+  fi
+}
+function ble/syntax/completion-context/generate {
+  local text=$1 index=$2
+  sources=()
+  ((index<0&&(index=0)))
+  ble/syntax/completion-context/.check-prefix
+  ble/syntax/completion-context/.check-here
+}
+function ble/syntax:bash/extract-command/.register-word {
+  local wtxt=${_ble_syntax_text:wbegin:wlen}
+  if [[ ! $comp_cword ]] && ((wbegin<=EC_pos)); then
+    if ((EC_pos<=wbegin+wlen)); then
+      comp_cword=${#comp_words[@]}
+      comp_point=$((${#comp_line}+wbegin+wlen-EC_pos))
+      comp_line="$wtxt$comp_line"
+      ble/array#push comp_words "$wtxt"
+    else
+      comp_cword=${#comp_words[@]}
+      comp_point=${#comp_line}
+      comp_line="$wtxt $comp_line"
+      ble/array#push comp_words "" "$wtxt"
+    fi
+  else
+    comp_line="$wtxt$comp_line"
+    ble/array#push comp_words "$wtxt"
+  fi
+  [[ $EC_opts == *:treeinfo:* ]] &&
+    ble/array#push tree_words "$TE_i:$TE_nofs"
+}
+function ble/syntax:bash/extract-command/.construct-proc {
+  if [[ $wtype =~ ^[0-9]+$ ]]; then
+    if ((wtype==_ble_ctx_CMDI)); then
+      if ((EC_pos<wbegin)); then
+        comp_line= comp_point= comp_cword= comp_words=()
+      else
+        ble/syntax:bash/extract-command/.register-word
+        ble/syntax/tree-enumerate-break
+        EC_found=1
+        return 0
+      fi
+    elif ((wtype==_ble_ctx_ARGI||wtype==_ble_ctx_ARGVI||wtype==_ble_ctx_ARGEI||wtype==_ble_attr_VAR)); then
+      ble/syntax:bash/extract-command/.register-word
+      comp_line=" $comp_line"
+    fi
+  fi
+}
+function ble/syntax:bash/extract-command/.construct {
+  comp_line= comp_point= comp_cword= comp_words=()
+  if [[ $1 == nested ]]; then
+    ble/syntax/tree-enumerate-children \
+      ble/syntax:bash/extract-command/.construct-proc
+  else
+    ble/syntax/tree-enumerate \
+      ble/syntax:bash/extract-command/.construct-proc
+  fi
+  ble/array#reverse comp_words
+  ((comp_cword=${#comp_words[@]}-1-comp_cword,
+    comp_point=${#comp_line}-comp_point))
+  [[ $EC_opts == *:treeinfo:* ]] &&
+    ble/array#reverse tree_words
+}
+function ble/syntax:bash/extract-command/.scan {
+  ((EC_pos<wbegin)) && return 0
+  if ((wbegin+wlen<EC_pos)); then
+    ble/syntax/tree-enumerate-break
+  else
+    local EC_has_word=
+    ble/syntax/tree-enumerate-children \
+      ble/syntax:bash/extract-command/.scan
+    local has_word=$EC_has_word
+    ble/util/unlocal EC_has_word
+    if [[ $has_word && ! $EC_found ]]; then
+      ble/syntax:bash/extract-command/.construct nested
+      ble/syntax/tree-enumerate-break
+    fi
+  fi
+  if [[ $wtype =~ ^[0-9]+$ && ! $EC_has_word ]]; then
+    EC_has_word=$wtype
+    return 0
+  fi
+}
+function ble/syntax:bash/extract-command {
+  local EC_pos=$1 EC_opts=:$2:
+  local EC_found=
+  local EC_has_word=
+  ble/syntax/tree-enumerate \
+    ble/syntax:bash/extract-command/.scan
+  if [[ ! $EC_found && $EC_has_word ]]; then
+    ble/syntax:bash/extract-command/.construct
+  fi
+  [[ $EC_found ]]
+}
+function ble/syntax/tree#previous-sibling {
+  local i0=${1%%:*} nofs0=0 opts=:$2:
+  [[ $1 == *:* ]] && nofs0=${1#*:}
+  local node
+  ble/string#split-words node "${_ble_syntax_tree[i0-1]}"
+  ble-assert '((${#node[@]}>nofs0))' "Broken AST: tree-node info missing at $((i0-1))[$nofs0]" || return 1
+  local tplen=${node[nofs0+3]}
+  ((tplen>=0)) || return 1
+  local i=$((i0-tplen)) nofs=0
+  ret=$i:$nofs
+  if [[ $opts == *:wvars:* ]]; then
+    ble/string#split-words node "${_ble_syntax_tree[i-1]}"
+    ble-assert '((${#node[@]}>nofs))' "Broken AST: tree-node info missing at $((i-1))[$nofs]" || return 1
+    wtype=${node[nofs]}
+    wlen=${node[nofs+1]}
+    ((wbeg=i-wlen,wend=i))
+    wattr=${node[nofs+4]}
+  fi
+  return 0
+}
+function ble/syntax/tree#next-sibling {
+  local i0=${1%%:*} nofs0=0 opts=:$2:
+  [[ $1 == *:* ]] && nofs0=${1#*:}
+  ((nofs0)) && return 1
+  local iN=${#_ble_syntax_text} i nofs node
+  for ((i=i0+1;i<=iN;i++)); do
+    [[ ${_ble_syntax_tree[i-1]} ]] || continue
+    ble/string#split-words node "${_ble_syntax_tree[i-1]}"
+    nofs=${#node[@]}
+    while (((nofs-=_ble_syntax_TREE_WIDTH)>=0)); do
+      if ((i0==i-node[nofs+2])); then
+        return 1
+      elif ((i0==i-node[nofs+3])); then
+        ret=$i:$nofs
+        if [[ $opts == *:wvars:* ]]; then
+          wtype=${node[nofs]}
+          wlen=${node[nofs+1]}
+          ((wbeg=i-wlen,wend=i))
+          wattr=${node[nofs+4]}
+        fi
+        return 0
+      fi
+    done
+  done
+  return 1
+}
+function ble/syntax:bash/extract-command-by-noderef {
+  local i=${1%%:*} nofs=0 opts=:$2:
+  [[ $1 == *:* ]] && nofs=${1#*:}
+  comp_words=()
+  tree_words=()
+  comp_line=
+  comp_cword=0
+  comp_point=0
+  local ExprIsArgument='wtype==_ble_ctx_ARGI||wtype==_ble_ctx_ARGVI||wtype==_ble_ctx_ARGEI||wtype==_ble_attr_VAR'
+  local ret node wtype wlen wbeg wend wattr
+  ble/string#split-words node "${_ble_syntax_tree[i-1]}"
+  wtype=${node[nofs]} wlen=${node[nofs+1]}
+  [[ ! ${wtype//[0-9]} ]] && ((wtype==_ble_ctx_CMDI||ExprIsArgument)) || return 1
+  ble/array#push comp_words "${_ble_syntax_text:i-wlen:wlen}"
+  [[ $opts == *:treeinfo:* ]] &&
+    ble/array#push tree_words "$i:$nofs"
+  ret=$i:$nofs
+  while
+    { [[ ${wtype//[0-9]} ]] || ((wtype!=_ble_ctx_CMDI)); } &&
+      ble/syntax/tree#previous-sibling "$ret" wvars
+  do
+    [[ ! ${wtype//[0-9]} ]] || continue
+    if ((wtype==_ble_ctx_CMDI||ExprIsArgument)); then
+      ble/array#push comp_words "${_ble_syntax_text:wbeg:wlen}"
+      [[ $opts == *:treeinfo:* ]] &&
+        ble/array#push tree_words "$ret"
+    fi
+  done
+  ble/array#reverse comp_words
+  [[ $opts == *:treeinfo:* ]] &&
+    ble/array#reverse tree_words
+  ((comp_cword=${#comp_words[@]}-1))
+  ret=$i:$nofs
+  while ble/syntax/tree#next-sibling "$ret" wvars; do
+    [[ ! ${wtype//[0-9]} ]] || continue
+    ((wtype==_ble_ctx_CMDI)) && break
+    if ((ExprIsArgument)); then
+      ble/array#push comp_words "${_ble_syntax_text:wbeg:wlen}"
+      [[ $opts == *:treeinfo:* ]] &&
+        ble/array#push tree_words "$ret"
+    fi
+  done
+  local IFS=$_ble_term_IFS
+  comp_line="${comp_words[*]}"
+  local tmp="${comp_words[*]::comp_cword+1}"
+  comp_point=${#tmp}
+}
+_ble_syntax_attr2iface=()
+function ble/syntax/attr2iface/color_defface.onload {
+  function ble/syntax/attr2iface/.define {
+    ((_ble_syntax_attr2iface[$1]=_ble_faces__$2))
+  }
+  ble/syntax/attr2iface/.define _ble_ctx_ARGX     syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_ARGX0    syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_ARGI     syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_ARGQ     syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_ARGVX    syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_ARGVI    syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_ARGVR    syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_ARGEX    syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_ARGEI    syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_ARGER    syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_CMDX     syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_CMDX1    syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_CMDXT    syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_CMDXC    syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_CMDXE    syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_CMDXD    syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_CMDXD0   syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_CMDXV    syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_CMDI     syntax_command
+  ble/syntax/attr2iface/.define _ble_ctx_VRHS     syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_QUOT     syntax_quoted
+  ble/syntax/attr2iface/.define _ble_ctx_EXPR     syntax_expr
+  ble/syntax/attr2iface/.define _ble_attr_ERR     syntax_error
+  ble/syntax/attr2iface/.define _ble_attr_VAR     syntax_varname
+  ble/syntax/attr2iface/.define _ble_attr_QDEL    syntax_quotation
+  ble/syntax/attr2iface/.define _ble_attr_QESC    syntax_escape
+  ble/syntax/attr2iface/.define _ble_attr_DEF     syntax_default
+  ble/syntax/attr2iface/.define _ble_attr_DEL     syntax_delimiter
+  ble/syntax/attr2iface/.define _ble_ctx_PARAM    syntax_param_expansion
+  ble/syntax/attr2iface/.define _ble_ctx_PWORD    syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_PWORDE   syntax_error
+  ble/syntax/attr2iface/.define _ble_ctx_PWORDR   syntax_default
+  ble/syntax/attr2iface/.define _ble_attr_HISTX   syntax_history_expansion
+  ble/syntax/attr2iface/.define _ble_attr_FUNCDEF syntax_function_name
+  ble/syntax/attr2iface/.define _ble_ctx_VALX     syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_VALI     syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_VALR     syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_VALQ     syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_CONDX    syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_CONDI    syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_CONDQ    syntax_default
+  ble/syntax/attr2iface/.define _ble_attr_COMMENT syntax_comment
+  ble/syntax/attr2iface/.define _ble_ctx_CASE     syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_PATN     syntax_default
+  ble/syntax/attr2iface/.define _ble_attr_GLOB    syntax_glob
+  ble/syntax/attr2iface/.define _ble_ctx_BRAX     syntax_default
+  ble/syntax/attr2iface/.define _ble_attr_BRACE   syntax_brace
+  ble/syntax/attr2iface/.define _ble_ctx_BRACE1   syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_BRACE2   syntax_default
+  ble/syntax/attr2iface/.define _ble_attr_TILDE   syntax_tilde
+  ble/syntax/attr2iface/.define _ble_ctx_SARGX1   syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_FARGX1   syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_FARGX2   syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_FARGX3   syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_FARGI1   syntax_varname
+  ble/syntax/attr2iface/.define _ble_ctx_FARGI2   command_keyword
+  ble/syntax/attr2iface/.define _ble_ctx_FARGI3   syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_FARGQ3   syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_CARGX1   syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_CARGX2   syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_CARGI1   syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_CARGQ1   syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_CARGI2   command_keyword
+  ble/syntax/attr2iface/.define _ble_ctx_CPATX    syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_CPATI    syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_CPATQ    syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_CPATX0   syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_TARGX1   syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_TARGX2   syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_TARGI1   syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_TARGI2   syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_COARGX   syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_COARGI   syntax_command
+  ble/syntax/attr2iface/.define _ble_ctx_RDRF    syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_RDRD    syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_RDRD2   syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_RDRS    syntax_default
+  ble/syntax/attr2iface/.define _ble_ctx_RDRH    syntax_document_begin
+  ble/syntax/attr2iface/.define _ble_ctx_RDRI    syntax_document_begin
+  ble/syntax/attr2iface/.define _ble_ctx_HERE0   syntax_document
+  ble/syntax/attr2iface/.define _ble_ctx_HERE1   syntax_document
+  ble/syntax/attr2iface/.define _ble_attr_CMD_BOLD      command_builtin_dot
+  ble/syntax/attr2iface/.define _ble_attr_CMD_BUILTIN   command_builtin
+  ble/syntax/attr2iface/.define _ble_attr_CMD_ALIAS     command_alias
+  ble/syntax/attr2iface/.define _ble_attr_CMD_FUNCTION  command_function
+  ble/syntax/attr2iface/.define _ble_attr_CMD_FILE      command_file
+  ble/syntax/attr2iface/.define _ble_attr_CMD_JOBS      command_jobs
+  ble/syntax/attr2iface/.define _ble_attr_CMD_DIR       command_directory
+  ble/syntax/attr2iface/.define _ble_attr_KEYWORD       command_keyword
+  ble/syntax/attr2iface/.define _ble_attr_KEYWORD_BEGIN command_keyword
+  ble/syntax/attr2iface/.define _ble_attr_KEYWORD_END   command_keyword
+  ble/syntax/attr2iface/.define _ble_attr_KEYWORD_MID   command_keyword
+  ble/syntax/attr2iface/.define _ble_attr_FILE_DIR      filename_directory
+  ble/syntax/attr2iface/.define _ble_attr_FILE_STICKY   filename_directory_sticky
+  ble/syntax/attr2iface/.define _ble_attr_FILE_LINK     filename_link
+  ble/syntax/attr2iface/.define _ble_attr_FILE_ORPHAN   filename_orphan
+  ble/syntax/attr2iface/.define _ble_attr_FILE_FILE     filename_other
+  ble/syntax/attr2iface/.define _ble_attr_FILE_SETUID   filename_setuid
+  ble/syntax/attr2iface/.define _ble_attr_FILE_SETGID   filename_setgid
+  ble/syntax/attr2iface/.define _ble_attr_FILE_EXEC     filename_executable
+  ble/syntax/attr2iface/.define _ble_attr_FILE_WARN     filename_warning
+  ble/syntax/attr2iface/.define _ble_attr_FILE_FIFO     filename_pipe
+  ble/syntax/attr2iface/.define _ble_attr_FILE_SOCK     filename_socket
+  ble/syntax/attr2iface/.define _ble_attr_FILE_BLK      filename_block
+  ble/syntax/attr2iface/.define _ble_attr_FILE_CHR      filename_character
+  ble/syntax/attr2iface/.define _ble_attr_FILE_URL      filename_url
+  ble/syntax/attr2iface/.define _ble_attr_VAR_UNSET     varname_unset
+  ble/syntax/attr2iface/.define _ble_attr_VAR_EMPTY     varname_empty
+  ble/syntax/attr2iface/.define _ble_attr_VAR_NUMBER    varname_number
+  ble/syntax/attr2iface/.define _ble_attr_VAR_EXPR      varname_expr
+  ble/syntax/attr2iface/.define _ble_attr_VAR_ARRAY     varname_array
+  ble/syntax/attr2iface/.define _ble_attr_VAR_HASH      varname_hash
+  ble/syntax/attr2iface/.define _ble_attr_VAR_READONLY  varname_readonly
+  ble/syntax/attr2iface/.define _ble_attr_VAR_TRANSFORM varname_transform
+  ble/syntax/attr2iface/.define _ble_attr_VAR_EXPORT    varname_export
+}
+blehook/eval-after-load color_defface ble/syntax/attr2iface/color_defface.onload
+function ble/syntax/highlight/cmdtype1 {
+  type=$1
+  local cmd=$2
+  case "$type:$cmd" in
+  (builtin::|builtin:.)
+    ((type=_ble_attr_CMD_BOLD)) ;;
+  (builtin:*)
+    ((type=_ble_attr_CMD_BUILTIN)) ;;
+  (alias:*)
+    ((type=_ble_attr_CMD_ALIAS)) ;;
+  (function:*)
+    ((type=_ble_attr_CMD_FUNCTION)) ;;
+  (file:*)
+    ((type=_ble_attr_CMD_FILE)) ;;
+  (keyword:*)
+    ((type=_ble_attr_KEYWORD)) ;;
+  (*:%*)
+    ble/util/joblist.check
+    if jobs -- "$cmd" &>/dev/null; then
+      ((type=_ble_attr_CMD_JOBS))
+    else
+      ((type=_ble_attr_ERR))
+    fi ;;
+  (*)
+    if [[ -d $cmd ]] && shopt -q autocd &>/dev/null; then
+      ((type=_ble_attr_CMD_DIR))
+    else
+      ((type=_ble_attr_ERR))
+    fi ;;
+  esac
+}
+function ble/syntax/highlight/cmdtype/.jobs { local LC_ALL=C; jobs; }
+ble/function#suppress-stderr ble/syntax/highlight/cmdtype/.jobs
+function ble/syntax/highlight/cmdtype/.is-job-name {
+  ble/util/joblist.check
+  local value=$1 word=$2
+  if [[ $value == '%'* ]] && jobs -- "$value" &>/dev/null; then
+    return 0
+  fi
+  local quote=\'\"\\\`
+  if [[ ${auto_resume+set} && $word != *["$quote"]* ]]; then
+    if [[ $auto_resume == exact ]]; then
+      local jobs job ret
+      ble/util/assign-array jobs 'ble/syntax/highlight/cmdtype/.jobs'
+      for job in "${jobs[@]}"; do
+        ble/string#trim "${job#*' '}"
+        ble/string#trim "${ret#*' '}"
+        [[ $value == "$ret" ]] && return 0
+      done
+      return 1
+    elif [[ $auto_resume == substring ]]; then
+      jobs -- "%?$value" &>/dev/null; return "$?"
+    else
+      jobs -- "%$value" &>/dev/null; return "$?"
+    fi
+  fi
+  return 1
+}
+function ble/syntax/highlight/cmdtype/.impl {
+  local cmd=$1 _0=$2
+  local cmd_type; ble/util/type cmd_type "$cmd"
+  ble/syntax/highlight/cmdtype1 "$cmd_type" "$cmd"
+  if [[ $type == "$_ble_attr_CMD_ALIAS" && $cmd != "$_0" ]]; then
+    type=$(
+      builtin unalias "$cmd"
+      ble/util/type cmd_type "$cmd"
+      ble/syntax/highlight/cmdtype1 "$cmd_type" "$cmd"
+      printf %s "$type")
+  elif ble/syntax/highlight/cmdtype/.is-job-name "$cmd" "$_0"; then
+    ((type=_ble_attr_CMD_JOBS))
+  elif [[ $type == "$_ble_attr_KEYWORD" ]]; then
+    ble/syntax/highlight/cmdtype1 "${cmd_type[1]}" "$cmd"
+  fi
+}
+_ble_syntax_highlight_filetype_version=-1
+function ble/syntax/highlight/cmdtype {
+  local cmd=$1 _0=$2
+  if ((_ble_syntax_highlight_filetype_version!=_ble_edit_LINENO)); then
+    ble/gdict#clear _ble_syntax_highlight_filetype
+    ((_ble_syntax_highlight_filetype_version=_ble_edit_LINENO))
+  fi
+  if local ret; ble/gdict#get _ble_syntax_highlight_filetype "$_0"; then
+    type=$ret
+    return 0
+  fi
+  ble/syntax/highlight/cmdtype/.impl "$cmd" "$_0"
+  ble/gdict#set _ble_syntax_highlight_filetype "$_0" "$type"
+}
+function ble/syntax/highlight/filetype {
+  type=
+  local file=$1
+  if [[ ( $OSTYPE == cygwin || $OSTYPE == msys ) && $file == //* ]]; then
+    [[ $file == // ]] && ((type=_ble_attr_FILE_DIR))
+    [[ $type ]]; return "$?"
+  fi
+  if [[ -h $file ]]; then
+    if [[ -e $file ]]; then
+      ((type=_ble_attr_FILE_LINK))
+    else
+      ((type=_ble_attr_FILE_ORPHAN))
+    fi
+  elif [[ -e $file ]]; then
+    if [[ -d $file ]]; then
+      if [[ -k $file ]]; then
+        ((type=_ble_attr_FILE_STICKY))
+      elif [[ -h ${file%/} ]]; then
+        ((type=_ble_attr_FILE_LINK))
+      else
+        ((type=_ble_attr_FILE_DIR))
+      fi
+    elif [[ -f $file ]]; then
+      if [[ -u $file ]]; then
+        ((type=_ble_attr_FILE_SETUID))
+      elif [[ -g $file ]]; then
+        ((type=_ble_attr_FILE_SETGID))
+      elif [[ -x $file ]]; then
+        ((type=_ble_attr_FILE_EXEC))
+      else
+        ((type=_ble_attr_FILE_FILE))
+      fi
+    elif [[ -c $file ]]; then
+      ((type=_ble_attr_FILE_CHR))
+    elif [[ -p $file ]]; then
+      ((type=_ble_attr_FILE_FIFO))
+    elif [[ -S $file ]]; then
+      ((type=_ble_attr_FILE_SOCK))
+    elif [[ -b $file ]]; then
+      ((type=_ble_attr_FILE_BLK))
+    fi
+  elif local rex='^https?://[^ ^`"<>\{|}]+$'; [[ $file =~ $rex ]]; then
+    ((type=_ble_attr_FILE_URL))
+  fi
+  [[ $type ]]
+}
+function ble/syntax/highlight/ls_colors/.clear {
+  _ble_syntax_highlight_lscolors=()
+  ble/gdict#clear _ble_syntax_highlight_lscolors_ext
+}
+function ble/syntax/highlight/ls_colors/.register-extension {
+  local key=$1 value=$2
+  ble/gdict#set _ble_syntax_highlight_lscolors_ext "$key" "$value"
+}
+function ble/syntax/highlight/ls_colors/.read-extension {
+  ble/gdict#get _ble_syntax_highlight_lscolors_ext "$1"
+}
+function ble/syntax/highlight/ls_colors/.parse {
+  ble/syntax/highlight/ls_colors/.clear
+  local fields field
+  ble/string#split fields : "$1"
+  for field in "${fields[@]}"; do
+    [[ $field == *=* ]] || continue
+    local lhs=${field%%=*}
+    local ret; ble/color/sgrspec2g "${field#*=}"; local rhs=$ret
+    case $lhs in
+    ('di') _ble_syntax_highlight_lscolors[_ble_attr_FILE_DIR]=$rhs  ;;
+    ('st') _ble_syntax_highlight_lscolors[_ble_attr_FILE_STICKY]=$rhs  ;;
+    ('ln') _ble_syntax_highlight_lscolors[_ble_attr_FILE_LINK]=$rhs ;;
+    ('or') _ble_syntax_highlight_lscolors[_ble_attr_FILE_ORPHAN]=$rhs ;;
+    ('fi') _ble_syntax_highlight_lscolors[_ble_attr_FILE_FILE]=$rhs ;;
+    ('su') _ble_syntax_highlight_lscolors[_ble_attr_FILE_SETUID]=$rhs ;;
+    ('sg') _ble_syntax_highlight_lscolors[_ble_attr_FILE_SETGID]=$rhs ;;
+    ('ex') _ble_syntax_highlight_lscolors[_ble_attr_FILE_EXEC]=$rhs ;;
+    ('cd') _ble_syntax_highlight_lscolors[_ble_attr_FILE_CHR]=$rhs  ;;
+    ('pi') _ble_syntax_highlight_lscolors[_ble_attr_FILE_FIFO]=$rhs ;;
+    ('so') _ble_syntax_highlight_lscolors[_ble_attr_FILE_SOCK]=$rhs ;;
+    ('bd') _ble_syntax_highlight_lscolors[_ble_attr_FILE_BLK]=$rhs  ;;
+    (\*.*)
+      ble/syntax/highlight/ls_colors/.register-extension "${lhs:2}" "$rhs" ;;
+    esac
+  done
+}
+function ble/syntax/highlight/ls_colors {
+  local file=$1
+  if ((type==_ble_attr_FILE_FILE)); then
+    local ext=${file##*/} ret=
+    while [[ $ext == *.* ]]; do
+      ext=${ext#*.}
+      [[ $ext ]] || break
+      if ble/syntax/highlight/ls_colors/.read-extension "$ext"; then
+        type=g:$ret
+        return 0
+      fi
+    done
+  fi
+  local g=${_ble_syntax_highlight_lscolors[type]}
+  if [[ $g ]]; then
+    type=g:$g
+    return 0
+  fi
+  return 1
+}
+function ble/syntax/highlight/getg-from-filename {
+  local filename=$1 type=
+  ble/syntax/highlight/filetype "$filename"
+  if [[ $bleopt_filename_ls_colors ]]; then
+    if ble/syntax/highlight/ls_colors "$filename" && [[ $type == g:* ]]; then
+      local ret; ble/color/face2g filename_ls_colors; g=$ret
+      ((g|=${type:2}))
+      return 0
+    fi
+  fi
+  if [[ $type ]]; then
+    ble/syntax/attr2g "$type"
+  else
+    g=
+  fi
+}
+function bleopt/check:filename_ls_colors {
+  ble/syntax/highlight/ls_colors/.parse "$value"
+}
+bleopt -I filename_ls_colors
+_ble_syntax_progcolor_vars=(
+  node TE_i TE_nofs wtype wlen wbeg wend wattr)
+_ble_syntax_progcolor_wattr_vars=(
+  wattr_buff wattr_pos wattr_g)
+function ble/progcolor/load-word-data {
+  TE_i=${1%%:*} TE_nofs=${1#*:}
+  [[ $1 != *:* ]] && TE_nofs=0
+  ble/string#split-words node "${_ble_syntax_tree[TE_i-1]}"
+  wtype=${node[TE_nofs]}
+  wlen=${node[TE_nofs+1]}
+  wattr=${node[TE_nofs+4]}
+  wbeg=$((TE_i-wlen))
+  wend=$TE_i
+}
+function ble/progcolor/set-wattr {
+  ble/syntax/urange#update color_ "$wbeg" "$wend"
+  ble/syntax/wrange#update _ble_syntax_word_ "$TE_i"
+  node[TE_nofs+4]=$1
+  local IFS=$_ble_term_IFS
+  _ble_syntax_tree[TE_i-1]="${node[*]}"
+}
+function ble/progcolor/eval-word {
+  local iword=${1:-progcolor_iword} opts=$2
+  if [[ ${progcolor_stats[iword]+set} ]]; then
+    ret=${progcolor_wvals[iword]}
+    return "${progcolor_stats[iword]}"
+  fi
+  local wtxt=${comp_words[iword]}
+  local simple_flags simple_ibrace
+  if ! ble/syntax:bash/simple-word/reconstruct-incomplete-word "$wtxt"; then
+    ret=
+    progcolor_stats[iword]=2
+    progcolor_wvals[iword]=
+    return 2
+  fi
+  ble/syntax:bash/simple-word/eval "$ret" "$opts"; local ext=$?
+  ((ext==148)) && return 148
+  if ((ext!=0)); then
+    ret=
+    progcolor_stats[iword]=1
+    progcolor_wvals[iword]=
+    return 1
+  fi
+  progcolor_stats[iword]=0
+  progcolor_wvals[iword]=$ret
+  return 0
+}
+function ble/progcolor/load-cmdspec-opts {
+  if [[ $progcolor_cmdspec_opts ]]; then
+    cmdspec_opts=$progcolor_cmdspec_opts
+  else
+    ble/cmdspec/opts#load "${comp_words[0]}"
+    progcolor_cmdspec_opts=${cmdspec_opts:-:}
+  fi
+}
+function ble/progcolor/stop-option#init {
+  rexrej='^--$' rexreq= stopat=
+  local cmdspec_opts=$1
+  if [[ $cmdspec_opts ]]; then
+    if [[ :$cmdspec_opts: == *:no-options:* ]]; then
+      stopat=0
+      return 1
+    elif ble/opts#extract-first-optarg "$cmdspec_opts" stop-options-at && [[ $ret ]]; then
+      ((stopat=ret))
+      return 1
+    fi
+    local ret
+    if ble/opts#extract-first-optarg "$cmdspec_opts" stop-options-on && [[ $ret ]]; then
+      rexrej=$ret
+    elif [[ :$cmdspec_opts: == *:disable-double-hyphen:* ]]; then
+      rexrej=
+    fi
+    if ble/opts#extract-first-optarg "$cmdspec_opts" stop-options-unless && [[ $ret ]]; then
+      rexreq=$ret
+    elif [[ :$cmdspec_opts: == *:stop-options-postarg:* ]]; then
+      rexreq='^-.+'
+      ble/opts#has "$cmdspec_opts" plus-options && rexreq='^[-+].+'
+    fi
+  fi
+}
+function ble/progcolor/stop-option#test {
+  [[ $rexrej && $1 =~ $rexrej || $rexreq && ! ( $1 =~ $rexreq ) ]]
+}
+function ble/progcolor/is-option-context {
+  if [[ ${progcolor_optctx[1]} ]]; then
+    ((progcolor_optctx[1]<0?1:(progcolor_iword<=progcolor_optctx[1])))
+    return $?
+  fi
+  local rexrej rexreq stopat
+  if [[ ! ${progcolor_optctx[0]} ]]; then
+    progcolor_optctx[0]=1
+    local cmdspec_opts
+    ble/progcolor/load-cmdspec-opts
+    ble/progcolor/stop-option#init "$cmdspec_opts"
+    if [[ ! $rexrej$rexreq ]]; then
+      progcolor_optctx[1]=${stopat:--1}
+      ((progcolor_optctx[1]<0?1:(progcolor_iword<=progcolor_optctx[1])))
+      return $?
+    fi
+    progcolor_optctx[2]=$rexrej
+    progcolor_optctx[3]=$rexreq
+    progcolor_optctx[4]=$stopat
+  else
+    rexrej=${progcolor_optctx[2]}
+    rexreq=${progcolor_optctx[3]}
+    stopat=${progcolor_optctx[4]}
+  fi
+  [[ $stopat ]] && ((progcolor_iword>stopat)) && return 1
+  local iword
+  for ((iword=progcolor_optctx[0];iword<progcolor_iword;iword++)); do
+    ble/progcolor/eval-word "$iword" "$highlight_eval_opts"
+    if ble/progcolor/stop-option#test "$ret"; then
+      progcolor_optctx[1]=$iword
+      return 1
+    fi
+  done
+  progcolor_optctx[0]=$iword
+  return 0
+}
+function ble/progcolor/wattr#initialize {
+  wattr_buff=()
+  wattr_pos=$wbeg
+  wattr_g=d
+}
+function ble/progcolor/wattr#setg {
+  local pos=$1 g=$2
+  local len=$((pos-wattr_pos))
+  ((len>0)) && ble/array#push wattr_buff "$len:$wattr_g"
+  wattr_pos=$pos
+  wattr_g=$g
+}
+function ble/progcolor/wattr#setattr {
+  local pos=$1 attr=$2 g
+  ble/syntax/attr2g "$attr"
+  ble/progcolor/wattr#setg "$pos" "$g"
+}
+function ble/progcolor/wattr#finalize {
+  local wattr
+  if ((${#wattr_buff[@]})); then
+    local len=$((wend-wattr_pos))
+    ((len>0)) && ble/array#push wattr_buff \$:"$wattr_g"
+    wattr_pos=$wend
+    wattr_g=d
+    IFS=, builtin eval 'wattr="m${wattr_buff[*]}"'
+  else
+    wattr=$wattr_g
+  fi
+  ble/progcolor/set-wattr "$wattr"
+}
+function ble/progcolor/highlight-filename/.detect-separated-path {
+  local word=$1
+  ((wtype==_ble_ctx_ARGI||wtype==_ble_ctx_ARGEI||wtype==_ble_ctx_VALI||wtype==_ble_attr_VAR||wtype==_ble_ctx_RDRS)) || return 1
+  local detect_opts=url:$highlight_eval_opts
+  ((wtype==_ble_ctx_RDRS)) && detect_opts=$detect_opts:noglob
+  [[ $word == '~'* ]] && ((_ble_syntax_attr[p0]!=_ble_attr_TILDE)) && detect_opts=$detect_opts:notilde
+  ble/syntax:bash/simple-word/detect-separated-path "$word" :, "$detect_opts"
+}
+function ble/progcolor/highlight-filename/.pathspec.wattr {
+  local p=$p0 opts=$2
+  if [[ :$opts: != *:no-path-color:* ]]; then
+    local ipath npath=${#path[@]}
+    for ((ipath=0;ipath<npath-1;ipath++)); do
+      local epath=${path[ipath]} espec=${spec[ipath]}
+      local g=d
+      if ble/syntax/util/is-directory "$epath"; then
+        local type
+        ble/syntax/highlight/filetype "$epath" &&
+          ble/syntax/attr2g "$type"
+      elif ((wtype==_ble_ctx_CMDI)); then
+        ble/syntax/attr2g "$_ble_attr_ERR"
+      fi
+      ((wtype==_ble_ctx_CMDI&&(g&=~_ble_color_gflags_Underline)))
+      ble/progcolor/wattr#setg "$p" "$g"
+      ((p=p0+${#espec}))
+    done
+  fi
+  ble/progcolor/wattr#setg "$p" "$1"
+  [[ $1 != d ]] &&
+    ble/progcolor/wattr#setg "$p1" d
+  return 0
+}
+function ble/progcolor/highlight-filename/.pathspec-with-attr.wattr {
+  local g; ble/syntax/attr2g "$1"
+  ble/progcolor/highlight-filename/.pathspec.wattr "$g"
+  return 0
+}
+function ble/progcolor/highlight-filename/.pathspec-by-name.wattr {
+  local value=$1
+  local highlight_opts=
+  local type=; ble/syntax/highlight/filetype "$value"
+  ((type==_ble_attr_FILE_URL)) && highlight_opts=no-path-color
+  if ((wtype==_ble_ctx_RDRF||wtype==_ble_ctx_RDRD2)); then
+    if ((type==_ble_attr_FILE_DIR)); then
+      type=$_ble_attr_ERR
+    elif ((_ble_syntax_TREE_WIDTH<=TE_nofs)); then
+      local redirect_ntype=${node[TE_nofs-_ble_syntax_TREE_WIDTH]:1}
+      if [[ ( $redirect_ntype == *'>' || $redirect_ntype == '>'[\|\&] ) ]]; then
+        if [[ -e $value || -h $value ]]; then
+          if [[ -d $value || ! -w $value ]]; then
+            type=$_ble_attr_ERR
+          elif [[ ( $redirect_ntype == [\<\&]'>' || $redirect_ntype == '>' || $redirect_ntype == '>&' ) && -f $value ]]; then
+            if [[ -o noclobber ]]; then
+              type=$_ble_attr_ERR
+            else
+              type=$_ble_attr_FILE_WARN
+            fi
+          fi
+        elif [[ $value == */* && ! -w ${value%/*}/ || $value != */* && ! -w ./ ]]; then
+          type=$_ble_attr_ERR
+        fi
+      elif [[ $redirect_ntype == '<' && ! -r $value ]]; then
+        type=$_ble_attr_ERR
+      fi
+    fi
+  fi
+  local g=
+  if [[ $bleopt_filename_ls_colors ]]; then
+    if ble/syntax/highlight/ls_colors "$value" && [[ $type == g:* ]]; then
+      local ret; ble/color/face2g filename_ls_colors; g=$ret
+      type=g:$((${type:2}|g))
+    fi
+  fi
+  [[ $type && ! $g ]] && ble/syntax/attr2g "$type"
+  ble/progcolor/highlight-filename/.pathspec.wattr "${g:-d}" "$highlight_opts"
+  return 0
+}
+function ble/progcolor/highlight-filename/.single.wattr {
+  local p0=${1%%:*} p1=${1#*:}
+  local wtxt=${text:p0:p1-p0}
+  if ((wtype==_ble_ctx_CMDI)) && ble/alias#active "$wtxt"; then
+    ble/progcolor/wattr#setattr "$p0" "$_ble_attr_CMD_ALIAS"
+    return 0
+  fi
+  local path_opts=after-sep:$highlight_eval_opts
+  [[ $wtxt == '~'* ]] && ((_ble_syntax_attr[p0]!=_ble_attr_TILDE)) && path_opts=$path_opts:notilde
+  ((wtype==_ble_ctx_RDRS||wtype==_ble_attr_VAR||wtype==_ble_ctx_VALI&&wbeg<p0)) && path_opts=$path_opts:noglob
+  local ret path spec ext value count
+  ble/syntax:bash/simple-word/evaluate-path-spec "$wtxt" / "count:$path_opts"; ext=$? value=("${ret[@]}")
+  ((ext==148)) && return 148
+  if ((ext==142)); then
+    if [[ $ble_textarea_render_defer_running ]]; then
+      ble/progcolor/wattr#setg "$p0" d
+    else
+      return 148
+    fi
+  elif ((ext&&(wtype==_ble_ctx_CMDI||wtype==_ble_ctx_ARGI||wtype==_ble_ctx_ARGEI||wtype==_ble_ctx_RDRF||wtype==_ble_ctx_RDRS||wtype==_ble_ctx_RDRD||wtype==_ble_ctx_RDRD2||wtype==_ble_ctx_VALI))); then
+    ble/progcolor/highlight-filename/.pathspec-with-attr.wattr "$_ble_attr_ERR"
+  elif (((wtype==_ble_ctx_RDRF||wtype==_ble_ctx_RDRD||wtype==_ble_ctx_RDRD2)&&count>=2)); then
+    ble/progcolor/wattr#setattr "$p0" "$_ble_attr_ERR"
+  elif ((wtype==_ble_ctx_CMDI)); then
+    local attr=${_ble_syntax_attr[wbeg]}
+    if ((attr!=_ble_attr_KEYWORD&&attr!=_ble_attr_KEYWORD_BEGIN&&attr!=_ble_attr_KEYWORD_END&&attr!=_ble_attr_KEYWORD_MID&&attr!=_ble_attr_DEL)); then
+      local type=; ble/syntax/highlight/cmdtype "$value" "$wtxt"
+      if ((type==_ble_attr_CMD_FILE||type==_ble_attr_CMD_FILE||type==_ble_attr_ERR)); then
+        ble/progcolor/highlight-filename/.pathspec-with-attr.wattr "$type"
+      elif [[ $type ]]; then
+        ble/progcolor/wattr#setattr "$p0" "$type"
+      fi
+    fi
+  elif ((wtype==_ble_ctx_RDRD||wtype==_ble_ctx_RDRD2)); then
+    if local rex='^[0-9]+-?$|^-$'; [[ $value =~ $rex ]]; then
+      ble/progcolor/wattr#setattr "$p0" "$_ble_attr_DEL"
+    elif ((wtype==_ble_ctx_RDRD2)); then
+      ble/progcolor/highlight-filename/.pathspec-by-name.wattr "$value"
+    else
+      ble/progcolor/wattr#setattr "$p0" "$_ble_attr_ERR"
+    fi
+  elif ((wtype==_ble_ctx_ARGI||wtype==_ble_ctx_ARGEI||wtype==_ble_ctx_VALI||wtype==_ble_attr_VAR||wtype==_ble_ctx_RDRS||wtype==_ble_ctx_RDRF)); then
+    ble/progcolor/highlight-filename/.pathspec-by-name.wattr "$value"
+  fi
+}
+function ble/progcolor/highlight-filename.wattr {
+  local p0=$1 p1=$2
+  if ((p0<p1)) && [[ $bleopt_highlight_filename ]]; then
+    local wtxt=${text:p0:p1-p0}
+    local ret; ble/progcolor/highlight-filename/.detect-separated-path "$wtxt"; local ext=$?
+    ((ext==148)) && return 148
+    if ((ext==0)); then
+      local sep=$ret ranges i
+      ble/syntax:bash/simple-word/locate-filename "$wtxt" "$sep" "url:$highlight_eval_opts"
+      (($?==148)) && return 148; ranges=("${ret[@]}")
+      for ((i=0;i<${#ranges[@]};i+=2)); do
+        ble/progcolor/highlight-filename/.single.wattr $((p0+ranges[i])):$((p0+ranges[i+1]))
+        (($?==148)) && return 148
+      done
+    elif ble/syntax:bash/simple-word/is-simple "$wtxt"; then
+      ble/progcolor/highlight-filename/.single.wattr "$p0":"$p1"
+      (($?==148)) && return 148
+    fi
+  fi
+}
+function ble/progcolor/@wattr {
+  [[ $wtype =~ ^[0-9]+$ ]] || return 1
+  [[ $wattr == - ]] || return 1
+  local "${_ble_syntax_progcolor_wattr_vars[@]/%/=}" # WA #D1570 checked
+  ble/progcolor/wattr#initialize
+  "$@"; local ext=$?
+  if ((ext==148)); then
+    _ble_textarea_render_defer=1
+    ble/syntax/wrange#update _ble_syntax_word_defer_ "$wend"
+  else
+    ble/progcolor/wattr#finalize
+  fi
+  return "$ext"
+}
+function ble/progcolor/word:default/.is-option {
+  ((wtype==_ble_ctx_ARGI||wtype==_ble_ctx_ARGEI||wtype==_ble_ctx_ARGVI)) &&
+    ble/string#match "$1" '^(-[-_a-zA-Z0-9]*)=?' && # 高速な判定を先に済ませる
+    ble/progcolor/is-option-context &&
+    ble/string#match "$1" '^(-[-_a-zA-Z0-9]*)=?' # 再実行 for BASH_REMATCH
+}
+function ble/progcolor/word:default/impl.wattr {
+  if ((wtype==_ble_ctx_RDRH||wtype==_ble_ctx_RDRI||wtype==_ble_attr_FUNCDEF||wtype==_ble_attr_ERR)); then
+    ble/progcolor/wattr#setattr "$wbeg" "$wtype"
+  else
+    local p0=$wbeg p1=$wend wtxt=${text:wbeg:wlen}
+    if ((wtype==_ble_attr_VAR||wtype==_ble_ctx_VALI)); then
+      local ret
+      ble/syntax:bash/find-rhs "$wtype" "$wbeg" "$wlen" element-assignment && p0=$ret
+    elif ((wtype==_ble_ctx_ARGI||wtype==_ble_ctx_ARGEI||wtype==_ble_ctx_VALI)) && { local rex='^[_a-zA-Z][_a-zA-Z0-9]*='; [[ $wtxt =~ $rex ]]; }; then
+      ((p0+=${#BASH_REMATCH}))
+    elif ble/progcolor/word:default/.is-option "$wtxt"; then
+      local rematch=$BASH_REMATCH rematch1=${BASH_REMATCH[1]}
+      local ret; ble/color/face2g argument_option
+      ble/progcolor/wattr#setg "$p0" "$ret"
+      ble/progcolor/wattr#setg $((p0+${#rematch1})) d
+      ((p0+=${#rematch}))
+    fi
+    ble/progcolor/highlight-filename.wattr "$p0" "$p1"
+    (($?==148)) && return 148
+  fi
+  return 0
+}
+function ble/progcolor/word:default {
+  ble/progcolor/@wattr ble/progcolor/word:default/impl.wattr
+}
+function ble/progcolor/default {
+  local i "${_ble_syntax_progcolor_vars[@]/%/=}" # WA #D1570 checked
+  for ((i=1;i<${#comp_words[@]};i++)); do
+    local ref=${tree_words[i]}
+    [[ $ref ]] || continue
+    local progcolor_iword=$i
+    ble/progcolor/load-word-data "$ref"
+    ble/progcolor/word:default
+  done
+}
+function ble/progcolor/.compline-rewrite-command {
+  local ocmd=${comp_words[0]}
+  [[ $1 != "$ocmd" ]] || (($#>=2)) || return 1
+  local IFS=$_ble_term_IFS
+  local ins="$*"
+  comp_line=$ins${comp_line:${#ocmd}}
+  ((comp_point-=${#ocmd},comp_point<0&&(comp_point=0),comp_point+=${#ins}))
+  comp_words=("$@" "${comp_words[@]:1}")
+  ((comp_cword&&(comp_cword+=$#-1)))
+  ble/array#reserve-prototype $#
+  tree_words=("${tree_words[0]}" "${_ble_array_prototype[@]::$#-1}" "${tree_words[@]:1}")
+}
+function ble/progcolor {
+  local cmd=$1 opts=$2
+  local -a progcolor_stats=()
+  local -a progcolor_wvals=()
+  local progcolor_cmdspec_opts=
+  local -a progcolor_optctx=()
+  local -a alias_args=()
+  local checked=" " processed=
+  while :; do
+    if ble/is-function ble/cmdinfo/cmd:"$cmd"/chroma; then
+      ble/progcolor/.compline-rewrite-command "$cmd" "${alias_args[@]}"
+      ble/cmdinfo/cmd:"$cmd"/chroma "$opts"
+      processed=1
+      break
+    elif [[ $cmd == */?* ]] && ble/is-function ble/cmdinfo/cmd:"${cmd##*/}"/chroma; then
+      ble/progcolor/.compline-rewrite-command "${cmd##*/}" "${alias_args[@]}"
+      ble/cmdinfo/cmd:"${cmd##*/}"/chroma "$opts"
+      processed=1
+      break
+    fi
+    checked="$checked$cmd "
+    local ret
+    ble/alias#expand "$cmd"
+    ble/string#split-words ret "$ret"
+    [[ $checked == *" $ret "* ]] && break
+    cmd=$ret
+    ((${#ret[@]}>=2)) &&
+      alias_args=("${ret[@]:1}" "${alias_args[@]}")
+  done
+  [[ $processed ]] ||
+    ble/progcolor/default
+  if [[ ${tree_words[0]} ]]; then
+    local "${_ble_syntax_progcolor_vars[@]/%/=}" # WA #D1570 checked
+    ble/progcolor/load-word-data "${tree_words[0]}"
+    [[ $wattr == - ]] && ble/progcolor/word:default
+  fi
+}
+function ble/highlight/layer:syntax/touch-range {
+  ble/syntax/urange#update '' "$@"
+}
+function ble/highlight/layer:syntax/fill {
+  local _i _arr=$1 _i1=$2 _i2=$3 _v=$4
+  for ((_i=_i1;_i<_i2;_i++)); do
+    builtin eval "$_arr[_i]=\"\$_v\""
+  done
+}
+_ble_highlight_layer_syntax_VARNAMES=(
+  _ble_highlight_layer_syntax_buff
+  _ble_highlight_layer_syntax_active
+  _ble_highlight_layer_syntax1_table
+  _ble_highlight_layer_syntax2_table
+  _ble_highlight_layer_syntax3_list
+  _ble_highlight_layer_syntax3_table)
+function ble/highlight/layer:syntax/initialize-vars {
+  _ble_highlight_layer_syntax_buff=()
+  _ble_highlight_layer_syntax1_table=()
+  _ble_highlight_layer_syntax2_table=()
+  _ble_highlight_layer_syntax3_list=()
+  _ble_highlight_layer_syntax3_table=() # errors
+}
+ble/highlight/layer:syntax/initialize-vars
+function ble/highlight/layer:syntax/update-attribute-table {
+  ble/highlight/layer/update/shift _ble_highlight_layer_syntax1_table
+  if ((_ble_syntax_attr_umin>=0)); then
+    ble/highlight/layer:syntax/touch-range _ble_syntax_attr_umin _ble_syntax_attr_umax
+    local i g=0
+    ((_ble_syntax_attr_umin>0)) &&
+      ((g=_ble_highlight_layer_syntax1_table[_ble_syntax_attr_umin-1]))
+    for ((i=_ble_syntax_attr_umin;i<_ble_syntax_attr_umax;i++)); do
+      if ((${_ble_syntax_attr[i]})); then
+        ble/syntax/attr2g "${_ble_syntax_attr[i]}"
+      fi
+      _ble_highlight_layer_syntax1_table[i]=$g
+    done
+    _ble_syntax_attr_umin=-1 _ble_syntax_attr_umax=-1
+  fi
+}
+function ble/highlight/layer:syntax/word/.update-attributes/.proc {
+  [[ $wtype =~ ^[0-9]+$ ]] || return 1
+  [[ ${node[TE_nofs+4]} == - ]] || return 1
+  if ((wtype==_ble_ctx_CMDI||wtype==_ble_ctx_ARGI||wtype==_ble_ctx_ARGVI||wtype==_ble_ctx_ARGEI)); then
+    local comp_line comp_point comp_words comp_cword tree_words
+    if ble/syntax:bash/extract-command-by-noderef "$TE_i:$TE_nofs" treeinfo; then
+      local cmd=${comp_words[0]}
+      ble/progcolor "$cmd"
+      return 0
+    fi
+  fi
+  ble/progcolor/word:default
+}
+function ble/highlight/layer:syntax/word/.update-attributes {
+  ((_ble_syntax_word_umin>=0)) || return 1
+  if [[ ! $ble_textarea_render_defer_running ]]; then
+    local _ble_syntax_bash_simple_eval_timeout=$bleopt_highlight_timeout_sync
+    local _ble_syntax_bash_simple_eval_timeout_carry=
+    local highlight_eval_opts=cached:single:stopcheck:timeout-carry
+  else
+    local _ble_syntax_bash_simple_eval_timeout=$bleopt_highlight_timeout_async
+    local highlight_eval_opts=cached:single:stopcheck
+  fi
+  ble/syntax/tree-enumerate-in-range "$_ble_syntax_word_umin" "$_ble_syntax_word_umax" \
+    ble/highlight/layer:syntax/word/.update-attributes/.proc
+}
+function ble/highlight/layer:syntax/word/.apply-attribute {
+  local wbeg=$1 wend=$2 wattr=$3
+  ((wbeg<color_umin&&(wbeg=color_umin),
+    wend>color_umax&&(wend=color_umax),
+    wbeg<wend)) || return 1
+  if [[ $wattr =~ ^[0-9]+$ ]]; then
+    ble/array#fill-range _ble_highlight_layer_syntax2_table "$wbeg" "$wend" "$wattr"
+  elif [[ $wattr == m* ]]; then
+    local ranges; ble/string#split ranges , "${wattr:1}"
+    local i=$wbeg j range
+    for range in "${ranges[@]}"; do
+      local len=${range%%:*} sub_wattr=${range#*:}
+      if [[ $len == '$' ]]; then
+        j=$wend
+      else
+        ((j=i+len,j>wend&&(j=wend)))
+      fi
+      ble/highlight/layer:syntax/word/.apply-attribute "$i" "$j" "$sub_wattr"
+      (((i=j)<wend)) || break
+    done
+  elif [[ $wattr == d ]]; then
+    ble/array#fill-range _ble_highlight_layer_syntax2_table "$wbeg" "$wend" ''
+  fi
+}
+function ble/highlight/layer:syntax/word/.proc-childnode {
+  if [[ $wtype =~ ^[0-9]+$ ]]; then
+    local wbeg=$wbegin wend=$TE_i
+    ble/highlight/layer:syntax/word/.apply-attribute "$wbeg" "$wend" "$attr"
+  fi
+  ((tchild>=0)) && ble/syntax/tree-enumerate-children "$proc_children"
+}
+function ble/highlight/layer:syntax/update-word-table {
+  local color_umin=-1 color_umax=-1 iN=${#_ble_syntax_text}
+  ble/highlight/layer:syntax/word/.update-attributes
+  ble/highlight/layer/update/shift _ble_highlight_layer_syntax2_table
+  ble/syntax/wrange#update _ble_syntax_word_ "$_ble_syntax_vanishing_word_umin" "$_ble_syntax_vanishing_word_umax"
+  ble/syntax/wrange#update color_ "$_ble_syntax_vanishing_word_umin" "$_ble_syntax_vanishing_word_umax"
+  _ble_syntax_vanishing_word_umin=-1 _ble_syntax_vanishing_word_umax=-1
+  ble/highlight/layer:syntax/word/.apply-attribute 0 "$iN" d # clear word color
+  local TE_i
+  for ((TE_i=_ble_syntax_word_umax;TE_i>=_ble_syntax_word_umin;)); do
+    if ((TE_i>0)) && [[ ${_ble_syntax_tree[TE_i-1]} ]]; then
+      local -a node
+      ble/string#split-words node "${_ble_syntax_tree[TE_i-1]}"
+      local wlen=${node[1]}
+      local wbeg=$((TE_i-wlen)) wend=$TE_i
+      if [[ ${node[0]} =~ ^[0-9]+$ ]]; then
+        local attr=${node[4]}
+        ble/highlight/layer:syntax/word/.apply-attribute "$wbeg" "$wend" "$attr"
+      fi
+      local tclen=${node[2]}
+      if ((tclen>=0)); then
+        local tchild=$((TE_i-tclen))
+        local tree= TE_nofs=0 proc_children=ble/highlight/layer:syntax/word/.proc-childnode
+        ble/syntax/tree-enumerate-children "$proc_children"
+      fi
+      ((TE_i=wbeg))
+    else
+      ((TE_i--))
+    fi
+  done
+  ((color_umin>=0)) && ble/highlight/layer:syntax/touch-range "$color_umin" "$color_umax"
+  _ble_syntax_word_umin=-1 _ble_syntax_word_umax=-1
+}
+function ble/highlight/layer:syntax/update-error-table/set {
+  local i1=$1 i2=$2 g=$3
+  if ((i1<i2)); then
+    ble/highlight/layer:syntax/touch-range "$i1" "$i2"
+    ble/highlight/layer:syntax/fill _ble_highlight_layer_syntax3_table "$i1" "$i2" "$g"
+    _ble_highlight_layer_syntax3_list[${#_ble_highlight_layer_syntax3_list[@]}]="$i1 $i2"
+  fi
+}
+function ble/highlight/layer:syntax/update-error-table {
+  ble/highlight/layer/update/shift _ble_highlight_layer_syntax3_table
+  local j=0 jN=${#_ble_highlight_layer_syntax3_list[*]}
+  if ((jN)); then
+    for ((j=0;j<jN;j++)); do
+      local -a range
+      ble/string#split-words range "${_ble_highlight_layer_syntax3_list[j]}"
+      local a=${range[0]} b=${range[1]}
+      ((a>=DMAX0?(a+=DMAX-DMAX0):(a>=DMIN&&(a=DMIN)),
+        b>=DMAX0?(b+=DMAX-DMAX0):(b>=DMIN&&(b=DMIN))))
+      if ((a<b)); then
+        ble/highlight/layer:syntax/fill _ble_highlight_layer_syntax3_table "$a" "$b" ''
+        ble/highlight/layer:syntax/touch-range "$a" "$b"
+      fi
+    done
+    _ble_highlight_layer_syntax3_list=()
+  fi
+  if ((iN>0)) && [[ ${_ble_syntax_stat[iN]} ]]; then
+    local ret; ble/color/face2g syntax_error; local g=$ret
+    local -a stat
+    ble/string#split-words stat "${_ble_syntax_stat[iN]}"
+    local ctx=${stat[0]} nlen=${stat[3]} nparam=${stat[6]}
+    [[ $nparam == none ]] && nparam=
+    local i inest
+    if ((nlen>0)) || [[ $nparam ]]; then
+      ble/highlight/layer:syntax/update-error-table/set $((iN-1)) "$iN" "$g"
+      if ((nlen>0)); then
+        ((inest=iN-nlen))
+        while ((inest>=0)); do
+          local inest2
+          for((inest2=inest+1;inest2<iN;inest2++)); do
+            [[ ${_ble_syntax_attr[inest2]} ]] && break
+          done
+          ble/highlight/layer:syntax/update-error-table/set "$inest" "$inest2" "$g"
+          ((i=inest))
+          local wtype wbegin tchild tprev
+          ble/syntax/parse/nest-pop
+          ((inest>=i&&(inest=i-1)))
+        done
+      fi
+    fi
+    if ((ctx==_ble_ctx_CMDX1||ctx==_ble_ctx_CMDXC||ctx==_ble_ctx_FARGX1||ctx==_ble_ctx_SARGX1||ctx==_ble_ctx_FARGX2||ctx==_ble_ctx_CARGX1||ctx==_ble_ctx_CARGX2||ctx==_ble_ctx_COARGX)); then
+      ble/highlight/layer:syntax/update-error-table/set $((iN-1)) "$iN" "$g"
+    fi
+  fi
+}
+function ble/highlight/layer:syntax/update {
+  local text=$1 player=$2
+  local i iN=${#text}
+  local umin=-1 umax=-1
+  ((DMIN>=0)) && umin=$DMIN umax=$DMAX
+  if [[ ! $bleopt_highlight_syntax ]]; then
+    if [[ $_ble_highlight_layer_syntax_active ]]; then
+      _ble_highlight_layer_syntax_active=
+      PREV_UMIN=0 PREV_UMAX=${#1}
+    fi
+    return
+  fi
+  if [[ ! $_ble_highlight_layer_syntax_active ]]; then
+    _ble_highlight_layer_syntax_active=1
+    umin=0 umax=${#text}
+  fi
+  if [[ $bleopt_syntax_debug ]]; then
+    local debug_attr_umin=$_ble_syntax_attr_umin
+    local debug_attr_uend=$_ble_syntax_attr_umax
+  fi
+  ble/cmdspec/initialize # load chroma
+  ble/highlight/layer:syntax/update-attribute-table
+  ble/highlight/layer:syntax/update-word-table
+  ble/highlight/layer:syntax/update-error-table
+  if ((DMIN>=0)); then
+    ble/highlight/layer/update/shift _ble_highlight_layer_syntax_buff
+    if ((DMAX>0)); then
+      local g sgr ch ret
+      ble/highlight/layer:syntax/getg "$DMAX"
+      ble/color/g2sgr "$g"; sgr=$ret
+      ch=${_ble_highlight_layer_plain_buff[DMAX]}
+      _ble_highlight_layer_syntax_buff[DMAX]=$sgr$ch
+    fi
+  fi
+  local i j g gprev=0
+  if ((umin>0)); then
+    ble/highlight/layer:syntax/getg $((umin-1))
+    gprev=$g
+  fi
+  if ((umin>=0)); then
+    local ret
+    for ((i=umin;i<=umax;i++)); do
+      local ch=${_ble_highlight_layer_plain_buff[i]}
+      ble/highlight/layer:syntax/getg "$i"
+      [[ $g ]] || ble/highlight/layer/update/getg "$i"
+      if ((gprev!=g)); then
+        ble/color/g2sgr "$g"
+        ch=$ret$ch
+        ((gprev=g))
+      fi
+      _ble_highlight_layer_syntax_buff[i]=$ch
+    done
+  fi
+  PREV_UMIN=$umin PREV_UMAX=$umax
+  PREV_BUFF=_ble_highlight_layer_syntax_buff
+  if [[ $bleopt_syntax_debug ]]; then
+    local status buff= nl=$'\n'
+    _ble_syntax_attr_umin=$debug_attr_umin _ble_syntax_attr_umax=$debug_attr_uend ble/syntax/print-status -v status
+    local -a DRAW_BUFF=()
+    ble/syntax/print-layer-buffer.draw plain
+    ble/syntax/print-layer-buffer.draw syntax
+    ble/syntax/print-layer-buffer.draw disabled
+    ble/syntax/print-layer-buffer.draw region
+    ble/syntax/print-layer-buffer.draw overwrite
+    local ret; ble/canvas/sflush.draw
+    status=$status$ret
+    ble/edit/info/show ansi "$status"
+  fi
+}
+function ble/highlight/layer:syntax/getg {
+  [[ ! $bleopt_highlight_syntax ]] && return
+  local i=$1
+  if [[ ${_ble_highlight_layer_syntax3_table[i]} ]]; then
+    g=${_ble_highlight_layer_syntax3_table[i]}
+  elif [[ ${_ble_highlight_layer_syntax2_table[i]} ]]; then
+    g=${_ble_highlight_layer_syntax2_table[i]}
+  elif [[ ${_ble_highlight_layer_syntax1_table[i]} ]]; then
+    g=${_ble_highlight_layer_syntax1_table[i]}
+  fi
+}
+function ble/highlight/layer:syntax/textarea_render_defer.hook {
+  ble/syntax/wrange#update _ble_syntax_word_ "$_ble_syntax_word_defer_umin" "$_ble_syntax_word_defer_umax"
+  _ble_syntax_word_defer_umin=-1
+  _ble_syntax_word_defer_umax=-1
+}
+blehook textarea_render_defer+=ble/highlight/layer:syntax/textarea_render_defer.hook
+function ble/syntax/import { :; }
+blehook/invoke syntax_load
+ble/function#try ble/textarea#invalidate str
+return 0
diff --git a/.local/src/blesh/lib/core-test.sh b/.local/src/blesh/lib/core-test.sh
new file mode 100644
index 0000000..6adda33
--- /dev/null
+++ b/.local/src/blesh/lib/core-test.sh
@@ -0,0 +1,200 @@
+# this script is a part of blesh (https://github.com/akinomyoga/ble.sh) under BSD-3-Clause license
+function ble/test/getdir {
+  dir=$_ble_base_run/$$.test
+  [[ -d $dir ]] || ble/bin/mkdir -p "$dir"
+}
+_ble_test_dir=
+function ble/test/chdir {
+  local dir
+  ble/test/getdir
+  ble/util/getpid
+  _ble_test_dir=$dir/$BASHPID.d
+  [[ -d $_ble_test_dir ]] ||
+    ble/bin/mkdir -p "$_ble_test_dir"
+  cd "$_ble_test_dir"
+}
+function ble/test/rmdir {
+  [[ -d $_ble_test_dir ]] &&
+    ble/bin/rm -rf "$_ble_test_dir"
+  return 0
+}
+_ble_test_logfile_fd=
+function ble/test/log {
+  if [[ $_ble_test_logfile_fd ]]; then
+    ble/util/print "$1" >&$_ble_test_logfile_fd
+  fi
+  ble/util/print "$1"
+}
+function ble/test/log#open {
+  local file=$1
+  if ble/fd#alloc _ble_test_logfile_fd '>>$file'; then
+    local h10=----------
+    [[ -s $file ]] &&
+      ble/util/print "$h10$h10$h10$h10$h10$h10$h10" >&$_ble_test_logfile_fd
+    ble/util/print "[$(date +'%F %T %Z')] test: start logging" >&$_ble_test_logfile_fd
+  fi
+}
+function ble/test/log#close {
+  if [[ $_ble_test_logfile_fd ]]; then
+    ble/util/print "[$(date +'%F %T %Z')] test: end logging" >&$_ble_test_logfile_fd
+    ble/fd#close _ble_test_logfile_fd
+    _ble_test_logfile_fd=
+  fi
+}
+if ble/bin/.freeze-utility-path colored; then
+  function ble/test/diff.impl {
+    ble/bin/colored diff -u "$@"
+  }
+else
+  function ble/test/diff.impl {
+    diff -u "$@"
+  }
+fi
+function ble/test/diff {
+  local dir
+  ble/test/getdir
+  ble/util/getpid
+  local f1=$BASHPID.$1.expect
+  local f2=$BASHPID.$1.result
+  (
+    cd "$dir"
+    ble/util/print "$2" >| "$f1"
+    ble/util/print "$3" >| "$f2"
+    ble/util/assign ret 'ble/test/diff.impl "$f1" "$f2"'
+    ble/test/log "$ret"
+    >| "$f1" >| "$f2"
+  )
+}
+_ble_test_section_fd=
+_ble_test_section_file=
+_ble_test_section_title=section
+_ble_test_section_count=0
+function ble/test/start-section {
+  [[ $_ble_test_section_fd ]] && ble/test/end-section
+  _ble_test_section_title=$1
+  _ble_test_section_count=$2
+  local dir
+  ble/test/getdir
+  ble/util/getpid
+  _ble_test_section_file=$dir/$BASHPID
+  ble/fd#alloc _ble_test_section_fd '> "$_ble_test_section_file"'
+}
+function ble/test/end-section {
+  [[ $_ble_test_section_fd ]] || return 1
+  ble/fd#close _ble_test_section_fd
+  _ble_test_section_fd=
+  local ntest npass count=$_ble_test_section_count
+  local ntest nfail npass
+  builtin eval -- $(
+    ble/bin/awk '
+      BEGIN{test=0;fail=0;pass=0;}
+      /^test /{test++}
+      /^fail /{fail++}
+      /^pass /{pass++}
+      END{print "ntest="test" nfail="fail" npass="pass;}
+    ' "$_ble_test_section_file")
+  local sgr=$'\e[32m' sgr0=$'\e[m'
+  ((npass==ntest)) || sgr=$'\e[31m'
+  local ncrash=$((ntest-nfail-npass))
+  local nskip=$((count-ntest))
+  if ((ntest)); then
+    local percentage=$((npass*1000/ntest)) # Note: 切り捨て
+    ble/util/sprintf percentage '%6s' "$((percentage/10)).$((percentage%10))%" # "XXX.X%"
+  else
+    local percentage=---.-%
+  fi
+  ble/test/log "$sgr$percentage$sgr0 [section] $_ble_test_section_title: $sgr$npass/$ntest$sgr0 ($nfail fail, $ncrash crash, $nskip skip)"
+  ((npass==ntest))
+}
+function ble/test/section#incr {
+  local title=$1
+  [[ $_ble_test_section_fd ]] || return 1
+  ble/util/print "test $title" >&$_ble_test_section_fd
+}
+function ble/test/section#report {
+  local ext=$? title=$1
+  [[ $_ble_test_section_fd ]] || return 1
+  local code=fail; ((ext==0)) && code=pass
+  ble/util/print "$code $title" >&$_ble_test_section_fd
+}
+function ble/test/.read-arguments {
+  local _stdout _stderr _exit _ret
+  local qstdout qstderr qexit qret
+  local -a buff=()
+  while (($#)); do
+    local arg=$1; shift
+    case $arg in
+    ('#'*)
+      local ret; ble/string#trim "${arg#'#'}"
+      title=$ret ;;
+    (stdout[:=]*)
+      [[ $qstdout ]] && _stdout=$_stdout$'\n'
+      qstdout=1
+      _stdout=$_stdout${arg#*[:=]} ;;
+    (stderr[:=]*)
+      [[ $qstderr ]] && _stderr=$_stderr$'\n'
+      qstderr=1
+      _stderr=$_stderr${arg#*[:=]} ;;
+    (ret[:=]*)
+      qret=1
+      _ret=${arg#*[:=]} ;;
+    (exit[:=]*)
+      qexit=1
+      _exit=${arg#*[:=]} ;;
+    (code[:=]*)
+      ((${#buff[@]})) && ble/array#push buff $'\n'
+      ble/array#push buff "${arg#*[:=]}" ;;
+    (--depth=*)
+      caller_depth=${arg#*=} ;;
+    (--display-code=*)
+      display_code=${arg#*=} ;;
+    (*)
+      ((${#buff[@]})) && ble/array#push buff ' '
+      ble/array#push buff "$arg" ;;
+    esac
+  done
+  [[ $qstdout ]] && item_expect[0]=$_stdout
+  [[ $qstderr ]] && item_expect[1]=$_stderr
+  [[ $qexit   ]] && item_expect[2]=$_exit
+  [[ $qret    ]] && item_expect[3]=$_ret
+  ((${#item_expect[@]})) || item_expect[2]=0
+  IFS= builtin eval 'code="${buff[*]}"'
+}
+function ble/test {
+  local -a item_name=(stdout stderr exit ret)
+  local code title
+  local caller_depth=0 display_code=
+  local -a item_expect=()
+  ble/test/.read-arguments "$@"
+  local caller_lineno=${BASH_LINENO[caller_depth+0]}
+  local caller_source=${BASH_SOURCE[caller_depth+1]}
+  title="$caller_source:$caller_lineno${title+ ($title)}"
+  ble/test/section#incr "$title"
+  ble/util/assign stderr '
+    ble/util/assign stdout "$code" 2>&1'; exit=$?
+  local -a item_result=()
+  item_result[0]=$stdout
+  item_result[1]=$stderr
+  item_result[2]=$exit
+  item_result[3]=$ret
+  local i flag_error=
+  for i in "${!item_expect[@]}"; do
+    [[ ${item_result[i]} == "${item_expect[i]}" ]] && continue
+    if [[ ! $flag_error ]]; then
+      flag_error=1
+      ble/test/log $'\e[1m'"$title"$'\e[m: \e[91m'"${display_code:-$code}"$'\e[m'
+    fi
+    ble/test/diff "${item_name[i]}" "${item_expect[i]}" "${item_result[i]}"
+  done
+  if [[ $flag_error ]]; then
+    if [[ ! ${item_expect[1]+set} && $stderr ]]; then
+      ble/test/log "<STDERR>"
+      ble/test/log "$stderr"
+      ble/test/log "</STDERR>"
+    fi
+    ble/test/log
+  fi
+  [[ ! $flag_error ]]
+  ble/test/section#report "$title"
+  return 0
+}
diff --git a/.local/src/blesh/lib/init-bind.sh b/.local/src/blesh/lib/init-bind.sh
new file mode 100644
index 0000000..056654b
--- /dev/null
+++ b/.local/src/blesh/lib/init-bind.sh
@@ -0,0 +1,92 @@
+# this script is a part of blesh (https://github.com/akinomyoga/ble.sh) under BSD-3-Clause license
+function ble/init:bind/append {
+  local xarg="\"$1\":ble-decode/.hook $2; builtin eval -- \"\$_ble_decode_bind_hook\""
+  local rarg=$1 condition=$3${3:+' && '}
+  ble/util/print "${condition}builtin bind -x '${xarg//$q/$Q}'" >> "$fbind1"
+  ble/util/print "${condition}builtin bind -r '${rarg//$q/$Q}'" >> "$fbind2"
+}
+function ble/init:bind/append-macro {
+  local kseq1=$1 kseq2=$2 condition=$3${3:+' && '}
+  local sarg="\"$kseq1\":\"$kseq2\"" rarg=$kseq1
+  ble/util/print "${condition}builtin bind    '${sarg//$q/$Q}'" >> "$fbind1"
+  ble/util/print "${condition}builtin bind -r '${rarg//$q/$Q}'" >> "$fbind2"
+}
+function ble/init:bind/generate-binder {
+  local fbind1=$_ble_base_cache/decode.bind.$_ble_bash.$bleopt_input_encoding.bind
+  local fbind2=$_ble_base_cache/decode.bind.$_ble_bash.$bleopt_input_encoding.unbind
+  ble/edit/info/show text "ble.sh: updating binders..."
+  : >| "$fbind1"
+  : >| "$fbind2"
+  local q=\' Q="'\\''"
+  local altdqs24='\xC0\x98'
+  local altdqs27='\xC0\x9B'
+  local esc00=$((40300<=_ble_bash&&_ble_bash<50000))
+  local bind18XX=0
+  if ((40400<=_ble_bash&&_ble_bash<50000)); then
+    ble/util/print "[[ -o emacs ]] && builtin bind 'set keyseq-timeout 1'" >> "$fbind1"
+    fbind2=$fbind1 ble/init:bind/append '\C-x\C-x' 24 '[[ -o emacs ]]'
+  elif ((_ble_bash<40300)); then
+    bind18XX=1
+  fi
+  local esc1B=3
+  local esc1B5B=1 bindAllSeq=0
+  local esc1B1B=$((40100<=_ble_bash&&_ble_bash<40300))
+  local i
+  for i in {128..255} {0..127}; do
+    local ret; ble/decode/c2dqs "$i"
+    if ((i==0)); then
+      if ((esc00)); then
+        ble/init:bind/append-macro '\C-@' '\xC0\x80'
+      else
+        ble/init:bind/append "$ret" "$i"
+      fi
+    elif ((i==24)); then
+      if ((bind18XX)); then
+        ble/init:bind/append "$ret" "$i" '[[ ! -o emacs ]]'
+      else
+        ble/init:bind/append "$ret" "$i"
+      fi
+    elif ((i==27)); then
+      if ((esc1B==0)); then
+        ble/init:bind/append "$ret" "$i"
+      elif ((esc1B==2)); then
+        ble/init:bind/append-macro '\e' "$altdqs27"
+      elif ((esc1B==3)); then
+        ble/init:bind/append-macro '\e' '\xDF\xBF' # C-[
+      fi
+    else
+      ((i==28&&_ble_bash>=50000)) && ret='\x1C'
+      ble/init:bind/append "$ret" "$i"
+    fi
+    if ((bind18XX)); then
+      if ((i==24)); then
+        ble/init:bind/append-macro "\C-x$ret" "$altdqs24$altdqs24" '[[ -o emacs ]]'
+      else
+        ble/init:bind/append-macro "\C-x$ret" "$altdqs24$ret"      '[[ -o emacs ]]'
+      fi
+    fi
+    if ((esc1B==3)); then
+      ble/init:bind/append-macro '\e'"$ret" "$altdqs27$ret"
+    else
+      if ((esc1B==1)); then
+        if ((i==91&&esc1B5B)); then
+          ble/init:bind/append-macro '\e[' "$altdqs27["
+        else
+          ble/init:bind/append "\\e$ret" "27 $i"
+        fi
+      fi
+      if ((i==27&&esc1B1B)); then
+        ble/init:bind/append-macro '\e\e' '\e[^'
+        ble/util/print "ble-bind -k 'ESC [ ^' __esc__"      >> "$fbind1"
+        ble/util/print "ble-bind -f __esc__ '.CHARS 27 27'" >> "$fbind1"
+      fi
+    fi
+  done
+  if ((bindAllSeq)); then
+    ble/util/print 'source "$_ble_decode_bind_fbinder.bind"' >> "$fbind1"
+    ble/util/print 'source "$_ble_decode_bind_fbinder.unbind"' >> "$fbind2"
+  fi
+  ble/function#try ble/encoding:"$bleopt_input_encoding"/generate-binder
+  ble/edit/info/immediate-show text "ble.sh: updating binders... done"
+}
+ble/init:bind/generate-binder
diff --git a/.local/src/blesh/lib/init-cmap.sh b/.local/src/blesh/lib/init-cmap.sh
new file mode 100644
index 0000000..1a2b4ef
--- /dev/null
+++ b/.local/src/blesh/lib/init-cmap.sh
@@ -0,0 +1,186 @@
+# this script is a part of blesh (https://github.com/akinomyoga/ble.sh) under BSD-3-Clause license
+function ble/init:cmap/bind-single-csi {
+  ble-bind -k "ESC [ $1" "$2"
+  ble-bind -k "CSI $1" "$2"
+}
+function ble/init:cmap/bind-single-ss3 {
+  ble-bind -k "ESC O $1" "$2"
+  ble-bind -k "SS3 $1" "$2"
+}
+function ble/init:cmap/bind-keypad-key {
+  local Ft=$1 name=$2
+  (($3&4)) && ble-bind --csi "$Ft" "$name"
+  (($3&1)) && ble/init:cmap/bind-single-ss3 "$Ft" "$name"
+  (($3&2)) && ble-bind -k "ESC ? $Ft" "$name"
+}
+function ble/init:cmap/initialize {
+  ble/edit/info/immediate-show text "ble/lib/init-cmap.sh: updating key sequences..."
+  ble-decode-kbd/generate-keycode insert
+  ble-decode-kbd/generate-keycode home
+  ble-decode-kbd/generate-keycode prior
+  ble-decode-kbd/generate-keycode delete
+  ble-decode-kbd/generate-keycode end
+  ble-decode-kbd/generate-keycode next
+  ble-decode-kbd/generate-keycode find
+  ble-decode-kbd/generate-keycode select
+  local kend; ble/util/assign kend 'tput @7 2>/dev/null || tput kend 2>/dev/null'
+  if [[ $kend == $'\e[5~' ]]; then
+    ble-bind --csi '1~' insert
+    ble-bind --csi '2~' home
+    ble-bind --csi '3~' prior
+    ble-bind --csi '4~' delete
+    ble-bind --csi '5~' end
+    ble-bind --csi '6~' next
+  else
+    if [[ $kend == $'\e[F' && ( $TERM == xterm || $TERM == xterm-* || $TERM == kvt ) ]]; then
+      ble-bind --csi '1~' find
+      ble-bind --csi '4~' select
+    else
+      ble-bind --csi '1~' home
+      ble-bind --csi '4~' end
+    fi
+    ble-bind --csi '2~' insert
+    ble-bind --csi '3~' delete
+    ble-bind --csi '5~' prior
+    ble-bind --csi '6~' next
+  fi
+  ble-bind --csi '7~' home
+  ble-bind --csi '8~' end
+  local kdch1; ble/util/assign kdch1 'tput kD 2>/dev/null || tput kdch1 2>/dev/null'
+  [[ $kdch1 == $'\x7F' || $TERM == sun* ]] && ble-bind -k 'DEL' delete
+  ble-bind --csi '11~' f1
+  ble-bind --csi '12~' f2
+  ble-bind --csi '13~' f3
+  ble-bind --csi '14~' f4
+  ble-bind --csi '15~' f5
+  ble-bind --csi '17~' f6
+  ble-bind --csi '18~' f7
+  ble-bind --csi '19~' f8
+  ble-bind --csi '20~' f9
+  ble-bind --csi '21~' f10
+  ble-bind --csi '23~' f11
+  ble-bind --csi '24~' f12
+  ble-bind --csi '25~' f13
+  ble-bind --csi '26~' f14
+  ble-bind --csi '28~' f15
+  ble-bind --csi '29~' f16
+  ble-bind --csi '31~' f17
+  ble-bind --csi '32~' f18
+  ble-bind --csi '33~' f19
+  ble-bind --csi '34~' f20
+  ble-bind --csi '200~' paste_begin
+  ble-bind --csi '201~' paste_end
+  ble/init:cmap/bind-keypad-key 'SP' SP   3 # kpspace
+  ble/init:cmap/bind-keypad-key 'A' up    5
+  ble/init:cmap/bind-keypad-key 'B' down  5
+  ble/init:cmap/bind-keypad-key 'C' right 5
+  ble/init:cmap/bind-keypad-key 'D' left  5
+  ble/init:cmap/bind-keypad-key 'E' begin 5
+  ble/init:cmap/bind-keypad-key 'F' end   5
+  ble/init:cmap/bind-keypad-key 'H' home  5
+  ble/init:cmap/bind-keypad-key 'I' TAB   3 # kptab (Note: CSI I は xterm SM(?1004) focus と重複)
+  ble/init:cmap/bind-keypad-key 'M' RET   7 # kpent
+  ble/init:cmap/bind-keypad-key 'P' f1    5 # kpf1 # Note: 普通の f1-f4
+  ble/init:cmap/bind-keypad-key 'Q' f2    5 # kpf2 #   に対してこれらの
+  ble/init:cmap/bind-keypad-key 'R' f3    5 # kpf3 #   シーケンスを送る
+  ble/init:cmap/bind-keypad-key 'S' f4    5 # kpf4 #   端末もある。
+  ble/init:cmap/bind-keypad-key 'j' '*'   7 # kpmul
+  ble/init:cmap/bind-keypad-key 'k' '+'   7 # kpadd
+  ble/init:cmap/bind-keypad-key 'l' ','   7 # kpsep
+  ble/init:cmap/bind-keypad-key 'm' '-'   7 # kpsub
+  ble/init:cmap/bind-keypad-key 'n' '.'   7 # kpdec
+  ble/init:cmap/bind-keypad-key 'o' '/'   7 # kpdiv
+  ble/init:cmap/bind-keypad-key 'p' '0'   7 # kp0
+  ble/init:cmap/bind-keypad-key 'q' '1'   7 # kp1
+  ble/init:cmap/bind-keypad-key 'r' '2'   7 # kp2
+  ble/init:cmap/bind-keypad-key 's' '3'   7 # kp3
+  ble/init:cmap/bind-keypad-key 't' '4'   7 # kp4
+  ble/init:cmap/bind-keypad-key 'u' '5'   7 # kp5
+  ble/init:cmap/bind-keypad-key 'v' '6'   7 # kp6
+  ble/init:cmap/bind-keypad-key 'w' '7'   7 # kp7
+  ble/init:cmap/bind-keypad-key 'x' '8'   7 # kp8
+  ble/init:cmap/bind-keypad-key 'y' '9'   7 # kp9
+  ble/init:cmap/bind-keypad-key 'X' '='   7 # kpeq
+  ble/init:cmap/bind-keypad-key 'I' focus 4 # Note: 1 (= SS3) は TAB と重複するので設定しない
+  ble/init:cmap/bind-keypad-key 'O' blur  5
+  ble/init:cmap/bind-single-csi 'Z'     S-TAB
+  ble/init:cmap/bind-single-ss3 'a'     C-up
+  ble/init:cmap/bind-single-csi 'a'     S-up
+  ble/init:cmap/bind-single-ss3 'b'     C-down
+  ble/init:cmap/bind-single-csi 'b'     S-down
+  ble/init:cmap/bind-single-ss3 'c'     C-right
+  ble/init:cmap/bind-single-csi 'c'     S-right
+  ble/init:cmap/bind-single-ss3 'd'     C-left
+  ble/init:cmap/bind-single-csi 'd'     S-left
+  ble/init:cmap/bind-single-csi '2 $'   S-insert # ECMA-48 違反
+  ble/init:cmap/bind-single-csi '3 $'   S-delete # ECMA-48 違反
+  ble/init:cmap/bind-single-csi '5 $'   S-prior  # ECMA-48 違反
+  ble/init:cmap/bind-single-csi '6 $'   S-next   # ECMA-48 違反
+  ble/init:cmap/bind-single-csi '7 $'   S-home   # ECMA-48 違反
+  ble/init:cmap/bind-single-csi '8 $'   S-end    # ECMA-48 違反
+  ble/init:cmap/bind-single-csi '2 3 $' S-f11    # ECMA-48 違反
+  ble/init:cmap/bind-single-csi '2 4 $' S-f12    # ECMA-48 違反
+  ble/init:cmap/bind-single-csi '2 5 $' S-f13    # ECMA-48 違反
+  ble/init:cmap/bind-single-csi '2 6 $' S-f14    # ECMA-48 違反
+  ble/init:cmap/bind-single-csi '2 8 $' S-f15    # ECMA-48 違反
+  ble/init:cmap/bind-single-csi '2 9 $' S-f16    # ECMA-48 違反
+  ble/init:cmap/bind-single-csi '3 1 $' S-f17    # ECMA-48 違反
+  ble/init:cmap/bind-single-csi '3 2 $' S-f18    # ECMA-48 違反
+  ble/init:cmap/bind-single-csi '3 3 $' S-f19    # ECMA-48 違反
+  ble/init:cmap/bind-single-csi '3 4 $' S-f20    # ECMA-48 違反
+  ble/init:cmap/bind-single-csi '[ A' f1
+  ble/init:cmap/bind-single-csi '[ B' f2
+  ble/init:cmap/bind-single-csi '[ C' f3
+  ble/init:cmap/bind-single-csi '[ D' f4
+  ble/init:cmap/bind-single-csi '[ E' f5
+  ble/init:cmap/bind-single-csi '2 4 7 z' insert
+  ble/init:cmap/bind-single-csi '2 1 4 z' home
+  ble/init:cmap/bind-single-csi '2 2 0 z' end
+  ble/init:cmap/bind-single-csi '2 2 2 z' prior
+  ble/init:cmap/bind-single-csi '2 1 6 z' next
+  ble/init:cmap/bind-single-csi '2 2 4 z' f1
+  ble/init:cmap/bind-single-csi '2 2 5 z' f2
+  ble/init:cmap/bind-single-csi '2 2 6 z' f3
+  ble/init:cmap/bind-single-csi '2 2 7 z' f4
+  ble/init:cmap/bind-single-csi '2 2 8 z' f5
+  ble/init:cmap/bind-single-csi '2 2 9 z' f6
+  ble/init:cmap/bind-single-csi '2 3 0 z' f7
+  ble/init:cmap/bind-single-csi '2 3 1 z' f8
+  ble/init:cmap/bind-single-csi '2 3 2 z' f9
+  ble/init:cmap/bind-single-csi '2 3 3 z' f10
+  ble/init:cmap/bind-single-csi '2 3 4 z' f11
+  ble/init:cmap/bind-single-csi '2 3 5 z' f12
+  ble/init:cmap/bind-single-csi '1 z' find   # from xterm ctlseqs
+  ble/init:cmap/bind-single-csi '4 z' select # from xterm ctlseqs
+  ble/init:cmap/bind-single-csi '2 J' S-home
+  ble/init:cmap/bind-single-csi 'J' C-end
+  ble/init:cmap/bind-single-csi 'K' S-end
+  ble/init:cmap/bind-single-csi '4 l' S-insert
+  ble/init:cmap/bind-single-csi 'L'   C-insert
+  ble/init:cmap/bind-single-csi '4 h' insert
+  ble/init:cmap/bind-single-csi '2 K' S-delete
+  ble/init:cmap/bind-single-csi 'P'   delete
+  _ble_decode_csimap_kitty_u=(
+    [57358]=capslock [57359]=scrolllock [57360]=numlock [57361]=print [57362]=pause [57363]=menu
+    [57376]=f13 [57377]=f14 [57378]=f15 [57379]=f16 [57380]=f17 [57381]=f18 [57382]=f19 [57383]=f20
+    [57384]=f21 [57385]=f22 [57386]=f23 [57387]=f24 [57388]=f25 [57389]=f26 [57390]=f27 [57391]=f28
+    [57392]=f29 [57393]=f30 [57394]=f31 [57395]=f32 [57396]=f33 [57397]=f34 [57398]=f35
+    [57399]=0 [57400]=1 [57401]=2 [57402]=3 [57403]=4 [57404]=5 [57405]=6 [57406]=7 [57407]=8 [57408]=9
+    [57409]='.' [57410]='/' [57411]='*' [57412]='-' [57413]='+' [57414]=RET [57415]='=' [57416]=','
+    [57417]=left [57418]=right [57419]=up [57420]=down
+    [57421]=prior [57422]=next [57423]=home [57424]=end [57425]=insert [57426]=delete [57427]=begin
+    [57428]=media_play [57429]=media_pause [57430]=media_play_pause [57431]=media_reverse
+    [57432]=media_stop [57433]=media_fast_forward [57434]=media_rewind [57435]=media_track_next
+    [57436]=media_track_prev [57437]=media_record [57438]=lower_volume [57439]=raise_volume
+    [57440]=mute_volume
+    [57441]=lshift [57442]=lcontrol [57443]=lalter [57444]=lsuper [57445]=lhyper [57446]=lmeta
+    [57447]=rshift [57448]=rcontrol [57449]=ralter [57450]=rsuper [57451]=rhyper [57452]=rmeta
+    [57453]=iso_shift3 [57454]=iso_shift5
+  )
+  local keyname
+  for keyname in "${_ble_decode_csimap_kitty_u[@]}"; do
+    ble-decode-kbd/generate-keycode "$keyname"
+  done
+  ble/edit/info/immediate-show text "ble/lib/init-cmap.sh: updating key sequences... done"
+}
+ble/init:cmap/initialize
diff --git a/.local/src/blesh/lib/init-msys1.sh b/.local/src/blesh/lib/init-msys1.sh
new file mode 100644
index 0000000..596ef8f
--- /dev/null
+++ b/.local/src/blesh/lib/init-msys1.sh
@@ -0,0 +1,130 @@
+# this script is a part of blesh (https://github.com/akinomyoga/ble.sh) under BSD-3-Clause license
+function ble-edit/io:msys1/is-msys1 {
+  local cr; cr=$'\r'
+  [[ $OSTYPE == msys && ! $cr ]]
+}
+function ble-edit/io:msys1/get-winpid.proc {
+  /usr/bin/ps | /usr/bin/gawk -v pid="$1" '
+    BEGIN {
+      cygpid_len = 9;
+      winpid_len = 36;
+    }
+    NR == 1 {
+      line = $0;
+      if (!match(line, /.*\yPID\y/)) next;
+      cygpid_end = RLENGTH;
+      if (!match(line, /.*\yWINPID\y/)) next;
+      winpid_end = RLENGTH;
+      next;
+    }
+    function get_last_number(line, limit, _, head, i) {
+      head = substr(line, 1, limit);
+      if (i = match(head, /[0-9]+$/))
+        return substr(head, i, RLENGTH);
+      return -1;
+    }
+    {
+      cygpid = get_last_number($0, cygpid_end);
+      if (cygpid != pid) next;
+      print get_last_number($0, winpid_end);
+      exit
+    }
+  '
+}
+function ble-edit/io:msys1/compile-helper {
+  local helper=$1
+  [[ -x $helper && -s $helper && $helper -nt $_ble_base/lib/init-msys1.sh ]] && return 0
+  gcc -O2 -s -o "$helper" -xc - << EOF || return 1
+// For MSYS 1.0
+#include <stdio.h>
+#include <windows.h>
+#include <sys/stat.h>
+#include <signal.h>
+
+BOOL is_process_alive(HANDLE handle) {
+  DWORD result;
+  return GetExitCodeProcess(handle, &result) && result == STILL_ACTIVE;
+}
+
+BOOL is_file(const char* filename) {
+  struct stat st;
+  return stat(filename, &st) == 0 && S_ISREG(st.st_mode);
+}
+
+int main(int argc, char** argv) {
+  const char* winpid = argv[1];
+  const char* fname_buff = argv[2];
+  const char* fname_read = argv[3];
+
+  signal(SIGINT, SIG_IGN);
+  //signal(SIGQUIT, SIG_IGN);
+
+  int ppid = atoi(winpid);
+  if (!ppid) {
+    fprintf(stderr, "ble.sh (msys1): invalid process ID '%s'\n", winpid);
+    return 1;
+  }
+  HANDLE parent_process = OpenProcess(PROCESS_QUERY_INFORMATION, FALSE, ppid);
+  if (parent_process == NULL) {
+    fprintf(stderr, "ble.sh (msys1): failed to open the parent process '%s'\n", winpid);
+    return 1;
+  }
+
+  int exit_code = 0;
+  BOOL terminate = FALSE;
+  while (!terminate) {
+    unlink(fname_read);
+    if (rename(fname_buff, fname_read) != 0) {
+      perror("ble.sh (msys1)");
+      fprintf(stderr, "ble.sh (msys1): failed to move the file '%s' -> '%s'\n", fname_buff, fname_read);
+      terminate = TRUE;
+      exit_code = 1;
+      break;
+    }
+
+    FILE* f = fopen(fname_read, "r");
+    if (!f) {
+      fprintf(stderr, "ble.sh (msys1): failed to open the file '%s'\n", fname_read);
+      terminate = TRUE;
+      exit_code = 1;
+      break;
+    }
+
+    for (;;) {
+      if (!is_process_alive(parent_process)) {
+        terminate = TRUE;
+        break;
+      }
+      if (is_file(fname_buff)) break;
+
+      int count = 0;
+      char buff[4096];
+      while (count = fread(&buff, 1, sizeof buff, f))
+        fwrite(buff, 1, count, stdout);
+      fflush(stdout);
+      Sleep(20);
+    }
+    fclose(f);
+  }
+
+  CloseHandle(parent_process);
+  return exit_code;
+}
+EOF
+  [[ -x $helper ]]
+}
+function ble-edit/io:msys1/start-background {
+  local basename=$_ble_edit_io_fname2
+  local fname_buff=$basename.buff
+  ble-edit/io:msys1/is-msys1 || return 1
+  local helper=$_ble_base_cache/init-msys1-helper.exe
+  local helper2=$_ble_base_run/$$.init-msys1-helper.exe
+  ble-edit/io:msys1/compile-helper "$helper" &&
+    /usr/bin/cp "$helper" "$helper2" || return 1
+  local winpid
+  ble/util/assign winpid 'ble-edit/io:msys1/get-winpid.proc $$'
+  [[ $winpid ]] || return 1
+  : >| "$fname_buff"
+  ble/fd#alloc _ble_edit_io_fd2 '> "$fname_buff"'
+  "$helper2" "$winpid" "$fname_buff" "${fname_buff%.buff}.read" | ble-edit/io/check-ignoreeof-loop & disown
+} &>/dev/null
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
diff --git a/.local/src/blesh/lib/test-canvas.sh b/.local/src/blesh/lib/test-canvas.sh
new file mode 100644
index 0000000..6d329ea
--- /dev/null
+++ b/.local/src/blesh/lib/test-canvas.sh
@@ -0,0 +1,479 @@
+# this script is a part of blesh (https://github.com/akinomyoga/ble.sh) under BSD-3-Clause license
+ble-import lib/core-test
+_ble_test_canvas_contra=
+if [[ -x ext/contra ]]; then
+  _ble_test_canvas_contra=ext/contra
+elif [[ $(printf 'hello world' | contra test 5 2 2>/dev/null) == $' worl\nd    ' ]]; then
+  _ble_test_canvas_contra=contra
+fi
+function ble/test:canvas/trace.contra {
+  [[ $_ble_test_canvas_contra ]] || return 0 # skip
+  local w=${1%%:*} h=${1#*:} esc=$2 opts=$3 test_opts=$4
+  local expect=$(sed 's/\$$//')
+  local ret x=0 y=0 g=0 rex termw=$w termh=$h
+  rex=':x=([^:]+):'; [[ :$test_opts: =~ $rex ]] && ((x=BASH_REMATCH[1]))
+  rex=':y=([^:]+):'; [[ :$test_opts: =~ $rex ]] && ((y=BASH_REMATCH[1]))
+  rex=':termw=([^:]+):'; [[ :$test_opts: =~ $rex ]] && ((termw=BASH_REMATCH[1]))
+  rex=':termh=([^:]+):'; [[ :$test_opts: =~ $rex ]] && ((termh=BASH_REMATCH[1]))
+  local x0=$x y0=$y
+  LINES=$h COLUMNS=$w ble/canvas/trace "$esc" "$opts"
+  local out=$ret
+  ble/string#quote-word "$esc"; local q_esc=$ret
+  ble/string#quote-word "$opts"; local q_opts=$ret
+  ble/test --depth=1 --display-code="trace $q_esc $q_opts" \
+           '{ printf "\e['$((y0+1))';'$((x0+1))'H"; ble/util/put "$out";} | "$_ble_test_canvas_contra" test "$termw" "$termh"' \
+           stdout="$expect"
+}
+ble/test/start-section 'ble/canvas/trace (relative:confine:measure-bbox)' 17
+ble/test:canvas/trace.contra 10:10 'hello world this is a flow world' relative x=3:y=3:termw=20 << EOF
+                    $
+                    $
+                    $
+   hello w          $
+orld this           $
+is a flow           $
+world               $
+                    $
+                    $
+                    $
+EOF
+ble/test:canvas/trace.contra 20:1 '12345678901234567890hello' confine << EOF
+12345678901234567890$
+EOF
+ble/test:canvas/trace.contra 10:1 $'hello\nworld' confine << EOF
+helloworld$
+EOF
+ble/test:canvas/trace.contra 10:2 $'hello\nworld check' confine << EOF
+hello     $
+world chec$
+EOF
+ble/test:canvas/trace.contra 10:6 $'hello\e[B\e[4D123' measure-bbox x=3:y=2 << EOF
+          $
+          $
+   hello  $
+    123   $
+          $
+          $
+EOF
+[[ $_ble_test_canvas_contra ]] &&
+  ble/test 'echo "$x1-$x2:$y1-$y2"' stdout='3-8:2-4'
+ble/test:canvas/trace.contra 10:2 日本語 measure-bbox << EOF
+日本語    $
+          $
+EOF
+[[ $_ble_test_canvas_contra ]] &&
+  ble/test 'echo "$x1-$x2:$y1-$y2"' stdout='0-6:0-1'
+ble/test:canvas/trace.contra 10:2 $'hello\eDworld' measure-bbox << EOF
+hello     $
+     world$
+EOF
+[[ $_ble_test_canvas_contra ]] &&
+  ble/test 'echo "$x1-$x2:$y1-$y2"' stdout='0-10:0-2'
+ble/test:canvas/trace.contra 10:2 $'hello\eMworld' measure-bbox << EOF
+     world$
+hello     $
+EOF
+[[ $_ble_test_canvas_contra ]] &&
+  ble/test 'echo "$x1-$x2:$y1-$y2"' stdout='0-10:-1-1'
+(
+  LINES=10 COLUMNS=10 _ble_term_xenl=1
+  ble/test 'x=0 y=0; ble/canvas/trace "HelloWorld"; ret=$x,$y' ret=10,0
+  ble/test 'x=0 y=0; ble/canvas/trace "HelloWorldH"; ret=$x,$y' ret=1,1
+  ble/test 'x=0 y=0; ble/canvas/trace "HelloWorldHello"; ret=$x,$y' ret=5,1
+  ble/test 'x=0 y=0; ble/canvas/trace "HelloWorldHelloWorldHello"; ret=$x,$y' ret=5,2
+  ble/test 'x=0 y=0; ble/canvas/trace "HelloWorldHelloWorldHelloWorldHello"; ret=$x,$y' ret=5,3
+)
+ble/test/start-section 'ble/canvas/trace (cfuncs)' 18
+function ble/test:canvas/check-trace-1 {
+  local input=$1 ex=$2 ey=$3
+  ble/canvas/trace.draw "$input"
+  ble/test --depth=1 '((x==ex&&y==ey))'
+}
+function ble/test:canvas/check-trace {
+  local -a DRAW_BUFF=()
+  ble/canvas/put.draw "$_ble_term_clear"
+  local x=0 y=0
+  ble/test:canvas/check-trace-1 "abc" 3 0
+  ble/test:canvas/check-trace-1 $'\n\n\nn' 1 3
+  ble/test:canvas/check-trace-1 $'\e[3BB' 2 6
+  ble/test:canvas/check-trace-1 $'\e[2AA' 3 4
+  ble/test:canvas/check-trace-1 $'\e[20CC' 24 4
+  ble/test:canvas/check-trace-1 $'\e[8DD' 17 4
+  ble/test:canvas/check-trace-1 $'\e[9EE' 1 13
+  ble/test:canvas/check-trace-1 $'\e[6FF' 1 7
+  ble/test:canvas/check-trace-1 $'\e[28GG' 28 7
+  ble/test:canvas/check-trace-1 $'\e[II' 33 7
+  ble/test:canvas/check-trace-1 $'\e[3ZZ' 17 7
+  ble/test:canvas/check-trace-1 $'\eDD' 18 8
+  ble/test:canvas/check-trace-1 $'\eMM' 19 7
+  ble/test:canvas/check-trace-1 $'\e77\e[3;3Hexcur\e8\e[C8' 21 7
+  ble/test:canvas/check-trace-1 $'\eEE' 1 8
+  ble/test:canvas/check-trace-1 $'\e[10;24HH' 24 9
+  ble/test:canvas/check-trace-1 $'\e[1;94mb\e[m' 25 9
+  local expect=$(sed 's/\$$//' << EOF
+abc                                     $
+                                        $
+  excur                                 $
+n                                       $
+  A             D      C                $
+                                        $
+ B                                      $
+F               Z M78      G    I       $
+E                D                      $
+                       Hb               $
+                                        $
+                                        $
+                                        $
+E                                       $
+                                        $
+EOF
+)
+  [[ $_ble_test_canvas_contra ]] &&
+    ble/test --depth=1 \
+             'ble/canvas/flush.draw | $_ble_test_canvas_contra test 40 15' \
+             stdout="$expect"
+}
+ble/test:canvas/check-trace
+ble/test/start-section 'ble/canvas/trace (justify)' 24
+ble/test:canvas/trace.contra 30:1 'a b c' justify << EOF
+a             b              c$
+EOF
+ble/test:canvas/trace.contra 30:1 ' center ' justify << EOF
+            center            $
+EOF
+ble/test:canvas/trace.contra 30:1 ' right-aligned' justify << EOF
+                 right-aligned$
+EOF
+ble/test:canvas/trace.contra 30:1 'left-aligned' justify << EOF
+left-aligned                  $
+EOF
+ble/test:canvas/trace.contra 30:1 ' 日本語' justify << EOF
+                        日本語$
+EOF
+ble/test:canvas/trace.contra 30:1 'a b c d e f' justify << EOF
+a    b     c     d     e     f$
+EOF
+ble/test:canvas/trace.contra 30:2 $'hello center world\na b c d e f' justify << EOF
+hello       center       world$
+a    b     c     d     e     f$
+EOF
+ble/test:canvas/trace.contra 30:3 'A brown fox jumped over the lazy dog. A brown fox jumped over the lazy dog.' justify << EOF
+A brown fox jumped over the la$
+zy dog. A brown fox jumped ove$
+r      the      lazy      dog.$
+EOF
+ble/test:canvas/trace.contra 30:2 $'hello blesh world\rHELLO WORLD\nhello world HELLO BLESH WORLD' justify=$' \r' << EOF
+hello blesh  worldHELLO  WORLD$
+hello world HELLO BLESH  WORLD$
+EOF
+COLUMNS=10 LINES=10 x=3 y=2 ble/canvas/trace $'a b c\n' justify:measure-bbox
+ble/test 'echo "$x1,$y1:$x2,$y2"' stdout:'0,2:10,4'
+COLUMNS=10 LINES=10 x=3 y=2 ble/canvas/trace $' hello ' justify:measure-bbox
+ble/test 'echo "$x1,$y1:$x2,$y2"' stdout:'2,2:7,3'
+ble/test:canvas/trace.contra 30:1 $'\e[3Dhello\rblesh\rworld\e[1D' justify=$'\r' x=5 << EOF
+hello      blesh         world$
+EOF
+ble/test:canvas/trace.contra \
+  30:5 $'hello world\nfoo bar buzz\nA quick brown fox\nLorem ipsum\n1 1 2 3 5 8 13 21 34 55 89 144' \
+  justify:clip=2,1+24,5 << EOF
+o          bar                $
+    quick     brown           $
+rem                    i      $
+1 2 3 5 8 13 21 34 55 89      $
+                              $
+EOF
+ble/test:canvas/trace.contra 30:1 $'hello1 world long long word quick brown' justify:confine << EOF
+hello1 world long long word qu$
+EOF
+ble/test:canvas/trace.contra 30:1 $'hello2 world long long word quick brown' justify:truncate << EOF
+hello2 world long long word qu$
+EOF
+ble/test:canvas/trace.contra 60:2 $'-- INSERT --\r/home/murase\r2021-01-01 00:00:00' justify << EOF
+--           INSERT           2021-01-01            00:00:00$
+                                                            $
+EOF
+ble/test:canvas/trace.contra 30:3 $'hello\r\vquick check\v\rtest \e[2Afoo\r\vbar' justify:truncate << EOF
+hello                      foo$
+quick         check        bar$
+              test            $
+EOF
+ble/test:canvas/trace.contra 30:3 $'hello\n2021-01-01\nA' right:measure-bbox:measure-gbox << EOF
+                         hello$
+                    2021-01-01$
+                             A$
+EOF
+if [[ $_ble_test_canvas_contra ]]; then
+  ble/test 'echo "bbox:$x1,$y1-$x2,$y2"' stdout='bbox:0,0-30,3'
+  ble/test 'echo "gbox:$gx1,$gy1-$gx2,$gy2"' stdout='gbox:20,0-30,3'
+fi
+ble/test:canvas/trace.contra 30:3 $'hello\n2021-01-01\nA' center:measure-bbox:measure-gbox << EOF
+            hello             $
+          2021-01-01          $
+              A               $
+EOF
+if [[ $_ble_test_canvas_contra ]]; then
+  ble/test 'echo "bbox:$x1,$y1-$x2,$y2"' stdout='bbox:0,0-20,3'
+  ble/test 'echo "gbox:$gx1,$gy1-$gx2,$gy2"' stdout='gbox:10,0-20,3'
+fi
+ble/test:canvas/trace.contra 10:1 $'xyz\e[4Daxyz' relative:measure-bbox x=3 << EOF
+  axyz    $
+EOF
+if [[ $_ble_test_canvas_contra ]]; then
+  ble/test 'echo "bbox:$x1,$y1-$x2,$y2"' stdout='bbox:2,0-6,1'
+fi
+ble/test/start-section 'ble/canvas/trace-text' 11
+(
+  sgr0= sgr1=
+  lines=1 cols=10 _ble_term_xenl=1 x=0 y=0
+  ble/test 'ble/canvas/trace-text "Hello World";ret="$x,$y,$ret"' ret='10,0,Hello Worl'
+  lines=1 cols=10 _ble_term_xenl= x=0 y=0
+  ble/test 'ble/canvas/trace-text "Hello World";ret="$x,$y,$ret"' ret='9,0,Hello Wor'
+  lines=1 cols=10 _ble_term_xenl=1 x=3 y=0
+  ble/test 'ble/canvas/trace-text "Hello World";ret="$x,$y,$ret"' ret='10,0,Hello W'
+  lines=3 cols=10 _ble_term_xenl=1 x=3 y=0
+  ble/test 'ble/canvas/trace-text "Hello Bash World";ret="$x,$y,$ret"' ret='9,1,Hello Bash World'
+  lines=3 cols=10 _ble_term_xenl=1 x=3 y=0
+  ble/test 'ble/canvas/trace-text "これは日本語の文章";ret="$x,$y,$ret"' ret=$'2,2,これは\n日本語の文章'
+  lines=3 cols=10 _ble_term_xenl=1 x=3 y=0
+  ble/test 'ble/canvas/trace-text "これは日本語の文章" nonewline;ret="$x,$y,$ret"' ret='2,2,これは 日本語の文章'
+  lines=3 cols=10 _ble_term_xenl=1 x=0 y=0
+  ble/test 'ble/canvas/trace-text "これは日本";ret="$x,$y,$ret"' ret=$'0,1,これは日本\n'
+  lines=3 cols=10 _ble_term_xenl=0 x=0 y=0
+  ble/test 'ble/canvas/trace-text "これは日本";ret="$x,$y,$ret"' ret=$'0,1,これは日本'
+  lines=3 cols=10 _ble_term_xenl=1 x=0 y=0
+  ble/test 'ble/canvas/trace-text "これは日本" nonewline;ret="$x,$y,$ret"' ret=$'10,0,これは日本'
+  lines=3 cols=10 _ble_term_xenl=0 x=0 y=0
+  ble/test 'ble/canvas/trace-text "これは日本" nonewline;ret="$x,$y,$ret"' ret=$'0,1,これは日本'
+  lines=1 cols=12 _ble_term_xenl=1 x=0 y=0
+  ble/test $'ble/canvas/trace-text "あ\nい\nう" external-sgr;ret="$x,$y,$ret"' ret=$'10,0,あ^Jい^Jう'
+)
+ble/test/end-section
+ble/test/start-section 'ble/textmap#update' 5
+function ble/test:canvas/textmap {
+  local text=$1
+  x=0 y=0
+  _ble_textmap_length=
+  _ble_textmap_pos=()
+  _ble_textmap_glyph=()
+  _ble_textmap_ichg=()
+  _ble_textmap_dbeg=0
+  _ble_textmap_dend=${#text}
+  _ble_textmap_dend0=0
+  ble/textmap#update "$text"
+  [[ :$opts: == *:stderr:* ]] &&
+    declare -p _ble_textmap_pos >&2
+}
+(
+  ble/test:canvas/textmap $'hello\nworld\ncheck'
+  ble/test 'ble/textmap#getxy.out 5; ret=$x,$y' ret='5,0'
+  ble/test 'ble/textmap#getxy.out 6; ret=$x,$y' ret='0,1'
+  ble/test 'ble/textmap#getxy.out 11; ret=$x,$y' ret='5,1'
+  ble/test 'ble/textmap#getxy.out 12; ret=$x,$y' ret='0,2'
+  ble/test 'ble/textmap#getxy.out 17; ret=$x,$y' ret='5,2'
+)
+ble/test/start-section 'ble/unicode/GraphemeCluster/c2break' 72
+(
+  bleopt emoji_opts=ri:tpvs:epvs:zwj
+  ble/test 'ble/unicode/GraphemeCluster/c2break $((0x20))' ret="$_ble_unicode_GraphemeClusterBreak_Other"
+  ble/test 'ble/unicode/GraphemeCluster/c2break $((0x41))' ret="$_ble_unicode_GraphemeClusterBreak_Other"
+  ble/test 'ble/unicode/GraphemeCluster/c2break $((0x7E))' ret="$_ble_unicode_GraphemeClusterBreak_Other"
+  ble/test 'ble/unicode/GraphemeCluster/c2break $((0x00))' ret="$_ble_unicode_GraphemeClusterBreak_Control"
+  ble/test 'ble/unicode/GraphemeCluster/c2break $((0x0d))' ret="$_ble_unicode_GraphemeClusterBreak_Control"
+  ble/test 'ble/unicode/GraphemeCluster/c2break $((0x0a))' ret="$_ble_unicode_GraphemeClusterBreak_Control"
+  ble/test 'ble/unicode/GraphemeCluster/c2break $((0x1F))' ret="$_ble_unicode_GraphemeClusterBreak_Control"
+  ble/test 'ble/unicode/GraphemeCluster/c2break $((0x80))' ret="$_ble_unicode_GraphemeClusterBreak_Control"
+  ble/test 'ble/unicode/GraphemeCluster/c2break $((0x9F))' ret="$_ble_unicode_GraphemeClusterBreak_Control"
+  ble/test 'ble/unicode/GraphemeCluster/c2break $((0x0308))' ret="$_ble_unicode_GraphemeClusterBreak_Extend"
+  ble/test 'ble/unicode/GraphemeCluster/c2break $((0x200C))' ret="$_ble_unicode_GraphemeClusterBreak_Extend" # ZWNJ
+  ble/test 'ble/unicode/GraphemeCluster/c2break $((0x200D))' ret="$_ble_unicode_GraphemeClusterBreak_ZWJ"    # ZWJ
+  ble/test 'ble/unicode/GraphemeCluster/c2break $((0x0600))' ret="$_ble_unicode_GraphemeClusterBreak_Prepend"
+  ble/test 'ble/unicode/GraphemeCluster/c2break $((0x0605))' ret="$_ble_unicode_GraphemeClusterBreak_Prepend"
+  ble/test 'ble/unicode/GraphemeCluster/c2break $((0x06DD))' ret="$_ble_unicode_GraphemeClusterBreak_Prepend"
+  ble/test 'ble/unicode/GraphemeCluster/c2break $((0x110BD))' ret="$_ble_unicode_GraphemeClusterBreak_Prepend"
+  ble/test 'ble/unicode/GraphemeCluster/c2break $((0xE33))' ret="$_ble_unicode_GraphemeClusterBreak_SpacingMark" # THAI CHARACTER SARA AM
+  ble/test 'ble/unicode/GraphemeCluster/c2break $((0xEB3))' ret="$_ble_unicode_GraphemeClusterBreak_SpacingMark" # LAO VOWEL SIGN AM
+  ble/test 'ble/unicode/GraphemeCluster/c2break $((0x1100))' ret="$_ble_unicode_GraphemeClusterBreak_L"
+  ble/test 'ble/unicode/GraphemeCluster/c2break $((0x115F))' ret="$_ble_unicode_GraphemeClusterBreak_L"
+  ble/test 'ble/unicode/GraphemeCluster/c2break $((0xA960))' ret="$_ble_unicode_GraphemeClusterBreak_L"
+  ble/test 'ble/unicode/GraphemeCluster/c2break $((0xA97C))' ret="$_ble_unicode_GraphemeClusterBreak_L"
+  ble/test 'ble/unicode/GraphemeCluster/c2break $((0x1160))' ret="$_ble_unicode_GraphemeClusterBreak_V"
+  ble/test 'ble/unicode/GraphemeCluster/c2break $((0x11A2))' ret="$_ble_unicode_GraphemeClusterBreak_V"
+  ble/test 'ble/unicode/GraphemeCluster/c2break $((0xD7B0))' ret="$_ble_unicode_GraphemeClusterBreak_V"
+  ble/test 'ble/unicode/GraphemeCluster/c2break $((0xD7C6))' ret="$_ble_unicode_GraphemeClusterBreak_V"
+  ble/test 'ble/unicode/GraphemeCluster/c2break $((0x11A8))' ret="$_ble_unicode_GraphemeClusterBreak_T"
+  ble/test 'ble/unicode/GraphemeCluster/c2break $((0x11F9))' ret="$_ble_unicode_GraphemeClusterBreak_T"
+  ble/test 'ble/unicode/GraphemeCluster/c2break $((0xD7CB))' ret="$_ble_unicode_GraphemeClusterBreak_T"
+  ble/test 'ble/unicode/GraphemeCluster/c2break $((0xD7FB))' ret="$_ble_unicode_GraphemeClusterBreak_T"
+  ble/test 'ble/unicode/GraphemeCluster/c2break $((0xAC00))' ret="$_ble_unicode_GraphemeClusterBreak_LV"
+  ble/test 'ble/unicode/GraphemeCluster/c2break $((0xAC1C))' ret="$_ble_unicode_GraphemeClusterBreak_LV"
+  ble/test 'ble/unicode/GraphemeCluster/c2break $((0xAC38))' ret="$_ble_unicode_GraphemeClusterBreak_LV"
+  ble/test 'ble/unicode/GraphemeCluster/c2break $((0xAC01))' ret="$_ble_unicode_GraphemeClusterBreak_LVT"
+  ble/test 'ble/unicode/GraphemeCluster/c2break $((0xAC04))' ret="$_ble_unicode_GraphemeClusterBreak_LVT"
+  ble/test 'ble/unicode/GraphemeCluster/c2break $((0x1F1E6))' ret="$_ble_unicode_GraphemeClusterBreak_Regional_Indicator" # RI A
+  ble/test 'ble/unicode/GraphemeCluster/c2break $((0x1F1FF))' ret="$_ble_unicode_GraphemeClusterBreak_Regional_Indicator" # RI Z
+  ble/test 'ble/unicode/GraphemeCluster/c2break $((0x1F32B))' ret="$_ble_unicode_GraphemeClusterBreak_Pictographic"
+  if ((_ble_bash>=40200)); then
+    ble/test $'ble/unicode/GraphemeCluster/find-previous-boundary "\U1F1E6\U1F1FF\U1F1E6\U1F1FF" 1' ret="0"
+    ble/test $'ble/unicode/GraphemeCluster/find-previous-boundary "\U1F1E6\U1F1FF\U1F1E6\U1F1FF" 2' ret="0"
+    ble/test $'ble/unicode/GraphemeCluster/find-previous-boundary "\U1F1E6\U1F1FF\U1F1E6\U1F1FF" 3' ret="2"
+    ble/test $'ble/unicode/GraphemeCluster/find-previous-boundary "\U1F1E6\U1F1FF\U1F1E6\U1F1FF" 4' ret="2"
+    ble/test $'ble/unicode/GraphemeCluster/find-previous-boundary "\U1F1E6\U1F1FF\U1F1E6\U1F1FF" 5' ret="4"
+    ble/test $'ble/unicode/GraphemeCluster/find-previous-boundary "A\U1F1E6\U1F1FF\U1F1E6\U1F1FF\U1F1E6" 2' ret=1
+    ble/test $'ble/unicode/GraphemeCluster/find-previous-boundary "A\U1F1E6\U1F1FF\U1F1E6\U1F1FF\U1F1E6" 3' ret=1
+    ble/test $'ble/unicode/GraphemeCluster/find-previous-boundary "A\U1F1E6\U1F1FF\U1F1E6\U1F1FF\U1F1E6" 4' ret=3
+    ble/test $'ble/unicode/GraphemeCluster/find-previous-boundary "A\U1F1E6\U1F1FF\U1F1E6\U1F1FF\U1F1E6" 5' ret=3
+    ble/test $'ble/unicode/GraphemeCluster/find-previous-boundary "A\U1F1E6\U1F1FF\U1F1E6\U1F1FF\U1F1E6" 6' ret=5
+    ble/test $'ble/unicode/GraphemeCluster/find-previous-boundary "A\U1F1E6\U1F1FF\U1F1E6\U1F1FF\U1F1E6" 7' ret=6
+    ble/test $'ble/unicode/GraphemeCluster/find-previous-boundary "A\U1F1E6\U1F1FF\U1F1E6\U1F1FF\U1F1E6Z" 7' ret=6
+    ble/test $'ble/unicode/GraphemeCluster/find-previous-boundary "A\u600\u600\u600\u600\U1F1E6\U1F1FF" 7' ret=1
+    ble/test $'ble/unicode/GraphemeCluster/find-previous-boundary "A\u600\u600\u600\u600\U1F1E6\U1F1FF" 6' ret=1
+    ble/test $'bleopt_grapheme_cluster=legacy ble/unicode/GraphemeCluster/find-previous-boundary "A\u600\u600\u600\u600\U1F1E6\U1F1FF" 7' ret=5
+    ble/test $'bleopt_grapheme_cluster=legacy ble/unicode/GraphemeCluster/find-previous-boundary "A\u600\u600\u600\u600\U1F1E6\U1F1FF" 6' ret=5
+    ble/test $'ble/unicode/GraphemeCluster/find-previous-boundary "\U1F636\U200D\U1F32B\UFE0F" 1' ret=0
+    ble/test $'ble/unicode/GraphemeCluster/find-previous-boundary "\U1F636\U200D\U1F32B\UFE0F" 2' ret=0
+    ble/test $'ble/unicode/GraphemeCluster/find-previous-boundary "\U1F636\U200D\U1F32B\UFE0F" 3' ret=0
+    ble/test $'ble/unicode/GraphemeCluster/find-previous-boundary "\U1F636\U200D\U1F32B\UFE0F" 4' ret=0
+    ble/test $'ble/unicode/GraphemeCluster/find-previous-boundary "\U1F636\U200D\U1F32B\UFE0F" 5' ret=4
+    ble/test $'ble/unicode/GraphemeCluster/find-previous-boundary "a\U1F636\U200D\U1F32B\UFE0F" 2' ret=1
+    ble/test $'ble/unicode/GraphemeCluster/find-previous-boundary "a\U1F636\U200D\U1F32B\UFE0F" 3' ret=1
+    ble/test $'ble/unicode/GraphemeCluster/find-previous-boundary "a\U1F636\U200D\U1F32B\UFE0F" 4' ret=1
+    ble/test $'ble/unicode/GraphemeCluster/find-previous-boundary "a\U1F636\U200D\U1F32B\UFE0F" 5' ret=1
+    ble/test $'ble/unicode/GraphemeCluster/find-previous-boundary "a\U1F636\U200D\U1F32B\UFE0F" 6' ret=5
+    ble/test $'ble/unicode/GraphemeCluster/find-previous-boundary "a\U200D\U1F32B\UFE0F" 2' ret=0
+    ble/test $'ble/unicode/GraphemeCluster/find-previous-boundary "a\U200D\U1F32B\UFE0F" 3' ret=2
+    ble/test $'ble/unicode/GraphemeCluster/find-previous-boundary "a\U200D\U1F32B\UFE0F" 4' ret=2
+    ble/test $'ble/unicode/GraphemeCluster/find-previous-boundary "a\U200D\U1F32B\UFE0F" 5' ret=4
+    ble/test "ble/test:canvas/textmap \$'@@'                   stderr; ble/textmap#get-index-at -v ret 1 0" ret=1
+    ble/test "ble/test:canvas/textmap \$'@\u0308@'             stderr; ble/textmap#get-index-at -v ret 1 0" ret=2
+    ble/test "ble/test:canvas/textmap \$'@\u0308\u0308@'       stderr; ble/textmap#get-index-at -v ret 1 0" ret=3
+    ble/test "ble/test:canvas/textmap \$'@\u0308\u0308\u0308@' stderr; ble/textmap#get-index-at -v ret 1 0" ret=4
+  fi
+)
+ble/test/start-section 'ble/unicode/GraphemeCluster/c2break (GraphemeBreakTest.txt)' 3251
+(
+  bleopt emoji_opts=ri:tpvs:epvs:zwj
+  tests_cases=(
+    0,1,2:'\U0020\U0020' 0,0,2,3:'\U0020\U0308\U0020' 0,1,2:'\U0020\U000D' 0,0,2,3:'\U0020\U0308\U000D' 0,1,2:'\U0020\U000A' 0,0,2,3:'\U0020\U0308\U000A'
+    0,1,2:'\U0020\U0001' 0,0,2,3:'\U0020\U0308\U0001' 0,0,2:'\U0020\U034F' 0,0,0,3:'\U0020\U0308\U034F' 0,1,2:'\U0020\U1F1E6' 0,0,2,3:'\U0020\U0308\U1F1E6'
+    0,1,2:'\U0020\U0600' 0,0,2,3:'\U0020\U0308\U0600' 0,0,2:'\U0020\U0903' 0,0,0,3:'\U0020\U0308\U0903' 0,1,2:'\U0020\U1100' 0,0,2,3:'\U0020\U0308\U1100'
+    0,1,2:'\U0020\U1160' 0,0,2,3:'\U0020\U0308\U1160' 0,1,2:'\U0020\U11A8' 0,0,2,3:'\U0020\U0308\U11A8' 0,1,2:'\U0020\UAC00' 0,0,2,3:'\U0020\U0308\UAC00'
+    0,1,2:'\U0020\UAC01' 0,0,2,3:'\U0020\U0308\UAC01' 0,1,2:'\U0020\U231A' 0,0,2,3:'\U0020\U0308\U231A' 0,0,2:'\U0020\U0300' 0,0,0,3:'\U0020\U0308\U0300'
+    0,0,2:'\U0020\U200D' 0,0,0,3:'\U0020\U0308\U200D' 0,1,2:'\U0020\U0378' 0,0,2,3:'\U0020\U0308\U0378' 0,1,2:'\U000D\U0020' 0,1,2,3:'\U000D\U0308\U0020'
+    0,1,2:'\U000D\U000D' 0,1,2,3:'\U000D\U0308\U000D' 0,1,2:'\U000D\U000A' 0,1,2,3:'\U000D\U0308\U000A' 0,1,2:'\U000D\U0001' 0,1,2,3:'\U000D\U0308\U0001'
+    0,1,2:'\U000D\U034F' 0,1,1,3:'\U000D\U0308\U034F' 0,1,2:'\U000D\U1F1E6' 0,1,2,3:'\U000D\U0308\U1F1E6' 0,1,2:'\U000D\U0600' 0,1,2,3:'\U000D\U0308\U0600'
+    0,1,2:'\U000D\U0903' 0,1,1,3:'\U000D\U0308\U0903' 0,1,2:'\U000D\U1100' 0,1,2,3:'\U000D\U0308\U1100' 0,1,2:'\U000D\U1160' 0,1,2,3:'\U000D\U0308\U1160'
+    0,1,2:'\U000D\U11A8' 0,1,2,3:'\U000D\U0308\U11A8' 0,1,2:'\U000D\UAC00' 0,1,2,3:'\U000D\U0308\UAC00' 0,1,2:'\U000D\UAC01' 0,1,2,3:'\U000D\U0308\UAC01'
+    0,1,2:'\U000D\U231A' 0,1,2,3:'\U000D\U0308\U231A' 0,1,2:'\U000D\U0300' 0,1,1,3:'\U000D\U0308\U0300' 0,1,2:'\U000D\U200D' 0,1,1,3:'\U000D\U0308\U200D'
+    0,1,2:'\U000D\U0378' 0,1,2,3:'\U000D\U0308\U0378' 0,1,2:'\U000A\U0020' 0,1,2,3:'\U000A\U0308\U0020' 0,1,2:'\U000A\U000D' 0,1,2,3:'\U000A\U0308\U000D'
+    0,1,2:'\U000A\U000A' 0,1,2,3:'\U000A\U0308\U000A' 0,1,2:'\U000A\U0001' 0,1,2,3:'\U000A\U0308\U0001' 0,1,2:'\U000A\U034F' 0,1,1,3:'\U000A\U0308\U034F'
+    0,1,2:'\U000A\U1F1E6' 0,1,2,3:'\U000A\U0308\U1F1E6' 0,1,2:'\U000A\U0600' 0,1,2,3:'\U000A\U0308\U0600' 0,1,2:'\U000A\U0903' 0,1,1,3:'\U000A\U0308\U0903'
+    0,1,2:'\U000A\U1100' 0,1,2,3:'\U000A\U0308\U1100' 0,1,2:'\U000A\U1160' 0,1,2,3:'\U000A\U0308\U1160' 0,1,2:'\U000A\U11A8' 0,1,2,3:'\U000A\U0308\U11A8'
+    0,1,2:'\U000A\UAC00' 0,1,2,3:'\U000A\U0308\UAC00' 0,1,2:'\U000A\UAC01' 0,1,2,3:'\U000A\U0308\UAC01' 0,1,2:'\U000A\U231A' 0,1,2,3:'\U000A\U0308\U231A'
+    0,1,2:'\U000A\U0300' 0,1,1,3:'\U000A\U0308\U0300' 0,1,2:'\U000A\U200D' 0,1,1,3:'\U000A\U0308\U200D' 0,1,2:'\U000A\U0378' 0,1,2,3:'\U000A\U0308\U0378'
+    0,1,2:'\U0001\U0020' 0,1,2,3:'\U0001\U0308\U0020' 0,1,2:'\U0001\U000D' 0,1,2,3:'\U0001\U0308\U000D' 0,1,2:'\U0001\U000A' 0,1,2,3:'\U0001\U0308\U000A'
+    0,1,2:'\U0001\U0001' 0,1,2,3:'\U0001\U0308\U0001' 0,1,2:'\U0001\U034F' 0,1,1,3:'\U0001\U0308\U034F' 0,1,2:'\U0001\U1F1E6' 0,1,2,3:'\U0001\U0308\U1F1E6'
+    0,1,2:'\U0001\U0600' 0,1,2,3:'\U0001\U0308\U0600' 0,1,2:'\U0001\U0903' 0,1,1,3:'\U0001\U0308\U0903' 0,1,2:'\U0001\U1100' 0,1,2,3:'\U0001\U0308\U1100'
+    0,1,2:'\U0001\U1160' 0,1,2,3:'\U0001\U0308\U1160' 0,1,2:'\U0001\U11A8' 0,1,2,3:'\U0001\U0308\U11A8' 0,1,2:'\U0001\UAC00' 0,1,2,3:'\U0001\U0308\UAC00'
+    0,1,2:'\U0001\UAC01' 0,1,2,3:'\U0001\U0308\UAC01' 0,1,2:'\U0001\U231A' 0,1,2,3:'\U0001\U0308\U231A' 0,1,2:'\U0001\U0300' 0,1,1,3:'\U0001\U0308\U0300'
+    0,1,2:'\U0001\U200D' 0,1,1,3:'\U0001\U0308\U200D' 0,1,2:'\U0001\U0378' 0,1,2,3:'\U0001\U0308\U0378' 0,1,2:'\U034F\U0020' 0,0,2,3:'\U034F\U0308\U0020'
+    0,1,2:'\U034F\U000D' 0,0,2,3:'\U034F\U0308\U000D' 0,1,2:'\U034F\U000A' 0,0,2,3:'\U034F\U0308\U000A' 0,1,2:'\U034F\U0001' 0,0,2,3:'\U034F\U0308\U0001'
+    0,0,2:'\U034F\U034F' 0,0,0,3:'\U034F\U0308\U034F' 0,1,2:'\U034F\U1F1E6' 0,0,2,3:'\U034F\U0308\U1F1E6' 0,1,2:'\U034F\U0600' 0,0,2,3:'\U034F\U0308\U0600'
+    0,0,2:'\U034F\U0903' 0,0,0,3:'\U034F\U0308\U0903' 0,1,2:'\U034F\U1100' 0,0,2,3:'\U034F\U0308\U1100' 0,1,2:'\U034F\U1160' 0,0,2,3:'\U034F\U0308\U1160'
+    0,1,2:'\U034F\U11A8' 0,0,2,3:'\U034F\U0308\U11A8' 0,1,2:'\U034F\UAC00' 0,0,2,3:'\U034F\U0308\UAC00' 0,1,2:'\U034F\UAC01' 0,0,2,3:'\U034F\U0308\UAC01'
+    0,1,2:'\U034F\U231A' 0,0,2,3:'\U034F\U0308\U231A' 0,0,2:'\U034F\U0300' 0,0,0,3:'\U034F\U0308\U0300' 0,0,2:'\U034F\U200D' 0,0,0,3:'\U034F\U0308\U200D'
+    0,1,2:'\U034F\U0378' 0,0,2,3:'\U034F\U0308\U0378' 0,1,2:'\U1F1E6\U0020' 0,0,2,3:'\U1F1E6\U0308\U0020' 0,1,2:'\U1F1E6\U000D' 0,0,2,3:'\U1F1E6\U0308\U000D'
+    0,1,2:'\U1F1E6\U000A' 0,0,2,3:'\U1F1E6\U0308\U000A' 0,1,2:'\U1F1E6\U0001' 0,0,2,3:'\U1F1E6\U0308\U0001' 0,0,2:'\U1F1E6\U034F' 0,0,0,3:'\U1F1E6\U0308\U034F'
+    0,0,2:'\U1F1E6\U1F1E6' 0,0,2,3:'\U1F1E6\U0308\U1F1E6' 0,1,2:'\U1F1E6\U0600' 0,0,2,3:'\U1F1E6\U0308\U0600' 0,0,2:'\U1F1E6\U0903'
+    0,0,0,3:'\U1F1E6\U0308\U0903' 0,1,2:'\U1F1E6\U1100' 0,0,2,3:'\U1F1E6\U0308\U1100' 0,1,2:'\U1F1E6\U1160' 0,0,2,3:'\U1F1E6\U0308\U1160' 0,1,2:'\U1F1E6\U11A8'
+    0,0,2,3:'\U1F1E6\U0308\U11A8' 0,1,2:'\U1F1E6\UAC00' 0,0,2,3:'\U1F1E6\U0308\UAC00' 0,1,2:'\U1F1E6\UAC01' 0,0,2,3:'\U1F1E6\U0308\UAC01' 0,1,2:'\U1F1E6\U231A'
+    0,0,2,3:'\U1F1E6\U0308\U231A' 0,0,2:'\U1F1E6\U0300' 0,0,0,3:'\U1F1E6\U0308\U0300' 0,0,2:'\U1F1E6\U200D' 0,0,0,3:'\U1F1E6\U0308\U200D' 0,1,2:'\U1F1E6\U0378'
+    0,0,2,3:'\U1F1E6\U0308\U0378' 0,0,2:'\U0600\U0020' 0,0,2,3:'\U0600\U0308\U0020' 0,1,2:'\U0600\U000D' 0,0,2,3:'\U0600\U0308\U000D' 0,1,2:'\U0600\U000A'
+    0,0,2,3:'\U0600\U0308\U000A' 0,1,2:'\U0600\U0001' 0,0,2,3:'\U0600\U0308\U0001' 0,0,2:'\U0600\U034F' 0,0,0,3:'\U0600\U0308\U034F' 0,0,2:'\U0600\U1F1E6'
+    0,0,2,3:'\U0600\U0308\U1F1E6' 0,0,2:'\U0600\U0600' 0,0,2,3:'\U0600\U0308\U0600' 0,0,2:'\U0600\U0903' 0,0,0,3:'\U0600\U0308\U0903' 0,0,2:'\U0600\U1100'
+    0,0,2,3:'\U0600\U0308\U1100' 0,0,2:'\U0600\U1160' 0,0,2,3:'\U0600\U0308\U1160' 0,0,2:'\U0600\U11A8' 0,0,2,3:'\U0600\U0308\U11A8' 0,0,2:'\U0600\UAC00'
+    0,0,2,3:'\U0600\U0308\UAC00' 0,0,2:'\U0600\UAC01' 0,0,2,3:'\U0600\U0308\UAC01' 0,0,2:'\U0600\U231A' 0,0,2,3:'\U0600\U0308\U231A' 0,0,2:'\U0600\U0300'
+    0,0,0,3:'\U0600\U0308\U0300' 0,0,2:'\U0600\U200D' 0,0,0,3:'\U0600\U0308\U200D' 0,0,2:'\U0600\U0378' 0,0,2,3:'\U0600\U0308\U0378' 0,1,2:'\U0903\U0020'
+    0,0,2,3:'\U0903\U0308\U0020' 0,1,2:'\U0903\U000D' 0,0,2,3:'\U0903\U0308\U000D' 0,1,2:'\U0903\U000A' 0,0,2,3:'\U0903\U0308\U000A' 0,1,2:'\U0903\U0001'
+    0,0,2,3:'\U0903\U0308\U0001' 0,0,2:'\U0903\U034F' 0,0,0,3:'\U0903\U0308\U034F' 0,1,2:'\U0903\U1F1E6' 0,0,2,3:'\U0903\U0308\U1F1E6' 0,1,2:'\U0903\U0600'
+    0,0,2,3:'\U0903\U0308\U0600' 0,0,2:'\U0903\U0903' 0,0,0,3:'\U0903\U0308\U0903' 0,1,2:'\U0903\U1100' 0,0,2,3:'\U0903\U0308\U1100' 0,1,2:'\U0903\U1160'
+    0,0,2,3:'\U0903\U0308\U1160' 0,1,2:'\U0903\U11A8' 0,0,2,3:'\U0903\U0308\U11A8' 0,1,2:'\U0903\UAC00' 0,0,2,3:'\U0903\U0308\UAC00' 0,1,2:'\U0903\UAC01'
+    0,0,2,3:'\U0903\U0308\UAC01' 0,1,2:'\U0903\U231A' 0,0,2,3:'\U0903\U0308\U231A' 0,0,2:'\U0903\U0300' 0,0,0,3:'\U0903\U0308\U0300' 0,0,2:'\U0903\U200D'
+    0,0,0,3:'\U0903\U0308\U200D' 0,1,2:'\U0903\U0378' 0,0,2,3:'\U0903\U0308\U0378' 0,1,2:'\U1100\U0020' 0,0,2,3:'\U1100\U0308\U0020' 0,1,2:'\U1100\U000D'
+    0,0,2,3:'\U1100\U0308\U000D' 0,1,2:'\U1100\U000A' 0,0,2,3:'\U1100\U0308\U000A' 0,1,2:'\U1100\U0001' 0,0,2,3:'\U1100\U0308\U0001' 0,0,2:'\U1100\U034F'
+    0,0,0,3:'\U1100\U0308\U034F' 0,1,2:'\U1100\U1F1E6' 0,0,2,3:'\U1100\U0308\U1F1E6' 0,1,2:'\U1100\U0600' 0,0,2,3:'\U1100\U0308\U0600' 0,0,2:'\U1100\U0903'
+    0,0,0,3:'\U1100\U0308\U0903' 0,0,2:'\U1100\U1100' 0,0,2,3:'\U1100\U0308\U1100' 0,0,2:'\U1100\U1160' 0,0,2,3:'\U1100\U0308\U1160' 0,1,2:'\U1100\U11A8'
+    0,0,2,3:'\U1100\U0308\U11A8' 0,0,2:'\U1100\UAC00' 0,0,2,3:'\U1100\U0308\UAC00' 0,0,2:'\U1100\UAC01' 0,0,2,3:'\U1100\U0308\UAC01' 0,1,2:'\U1100\U231A'
+    0,0,2,3:'\U1100\U0308\U231A' 0,0,2:'\U1100\U0300' 0,0,0,3:'\U1100\U0308\U0300' 0,0,2:'\U1100\U200D' 0,0,0,3:'\U1100\U0308\U200D' 0,1,2:'\U1100\U0378'
+    0,0,2,3:'\U1100\U0308\U0378' 0,1,2:'\U1160\U0020' 0,0,2,3:'\U1160\U0308\U0020' 0,1,2:'\U1160\U000D' 0,0,2,3:'\U1160\U0308\U000D' 0,1,2:'\U1160\U000A'
+    0,0,2,3:'\U1160\U0308\U000A' 0,1,2:'\U1160\U0001' 0,0,2,3:'\U1160\U0308\U0001' 0,0,2:'\U1160\U034F' 0,0,0,3:'\U1160\U0308\U034F' 0,1,2:'\U1160\U1F1E6'
+    0,0,2,3:'\U1160\U0308\U1F1E6' 0,1,2:'\U1160\U0600' 0,0,2,3:'\U1160\U0308\U0600' 0,0,2:'\U1160\U0903' 0,0,0,3:'\U1160\U0308\U0903' 0,1,2:'\U1160\U1100'
+    0,0,2,3:'\U1160\U0308\U1100' 0,0,2:'\U1160\U1160' 0,0,2,3:'\U1160\U0308\U1160' 0,0,2:'\U1160\U11A8' 0,0,2,3:'\U1160\U0308\U11A8' 0,1,2:'\U1160\UAC00'
+    0,0,2,3:'\U1160\U0308\UAC00' 0,1,2:'\U1160\UAC01' 0,0,2,3:'\U1160\U0308\UAC01' 0,1,2:'\U1160\U231A' 0,0,2,3:'\U1160\U0308\U231A' 0,0,2:'\U1160\U0300'
+    0,0,0,3:'\U1160\U0308\U0300' 0,0,2:'\U1160\U200D' 0,0,0,3:'\U1160\U0308\U200D' 0,1,2:'\U1160\U0378' 0,0,2,3:'\U1160\U0308\U0378' 0,1,2:'\U11A8\U0020'
+    0,0,2,3:'\U11A8\U0308\U0020' 0,1,2:'\U11A8\U000D' 0,0,2,3:'\U11A8\U0308\U000D' 0,1,2:'\U11A8\U000A' 0,0,2,3:'\U11A8\U0308\U000A' 0,1,2:'\U11A8\U0001'
+    0,0,2,3:'\U11A8\U0308\U0001' 0,0,2:'\U11A8\U034F' 0,0,0,3:'\U11A8\U0308\U034F' 0,1,2:'\U11A8\U1F1E6' 0,0,2,3:'\U11A8\U0308\U1F1E6' 0,1,2:'\U11A8\U0600'
+    0,0,2,3:'\U11A8\U0308\U0600' 0,0,2:'\U11A8\U0903' 0,0,0,3:'\U11A8\U0308\U0903' 0,1,2:'\U11A8\U1100' 0,0,2,3:'\U11A8\U0308\U1100' 0,1,2:'\U11A8\U1160'
+    0,0,2,3:'\U11A8\U0308\U1160' 0,0,2:'\U11A8\U11A8' 0,0,2,3:'\U11A8\U0308\U11A8' 0,1,2:'\U11A8\UAC00' 0,0,2,3:'\U11A8\U0308\UAC00' 0,1,2:'\U11A8\UAC01'
+    0,0,2,3:'\U11A8\U0308\UAC01' 0,1,2:'\U11A8\U231A' 0,0,2,3:'\U11A8\U0308\U231A' 0,0,2:'\U11A8\U0300' 0,0,0,3:'\U11A8\U0308\U0300' 0,0,2:'\U11A8\U200D'
+    0,0,0,3:'\U11A8\U0308\U200D' 0,1,2:'\U11A8\U0378' 0,0,2,3:'\U11A8\U0308\U0378' 0,1,2:'\UAC00\U0020' 0,0,2,3:'\UAC00\U0308\U0020' 0,1,2:'\UAC00\U000D'
+    0,0,2,3:'\UAC00\U0308\U000D' 0,1,2:'\UAC00\U000A' 0,0,2,3:'\UAC00\U0308\U000A' 0,1,2:'\UAC00\U0001' 0,0,2,3:'\UAC00\U0308\U0001' 0,0,2:'\UAC00\U034F'
+    0,0,0,3:'\UAC00\U0308\U034F' 0,1,2:'\UAC00\U1F1E6' 0,0,2,3:'\UAC00\U0308\U1F1E6' 0,1,2:'\UAC00\U0600' 0,0,2,3:'\UAC00\U0308\U0600' 0,0,2:'\UAC00\U0903'
+    0,0,0,3:'\UAC00\U0308\U0903' 0,1,2:'\UAC00\U1100' 0,0,2,3:'\UAC00\U0308\U1100' 0,0,2:'\UAC00\U1160' 0,0,2,3:'\UAC00\U0308\U1160' 0,0,2:'\UAC00\U11A8'
+    0,0,2,3:'\UAC00\U0308\U11A8' 0,1,2:'\UAC00\UAC00' 0,0,2,3:'\UAC00\U0308\UAC00' 0,1,2:'\UAC00\UAC01' 0,0,2,3:'\UAC00\U0308\UAC01' 0,1,2:'\UAC00\U231A'
+    0,0,2,3:'\UAC00\U0308\U231A' 0,0,2:'\UAC00\U0300' 0,0,0,3:'\UAC00\U0308\U0300' 0,0,2:'\UAC00\U200D' 0,0,0,3:'\UAC00\U0308\U200D' 0,1,2:'\UAC00\U0378'
+    0,0,2,3:'\UAC00\U0308\U0378' 0,1,2:'\UAC01\U0020' 0,0,2,3:'\UAC01\U0308\U0020' 0,1,2:'\UAC01\U000D' 0,0,2,3:'\UAC01\U0308\U000D' 0,1,2:'\UAC01\U000A'
+    0,0,2,3:'\UAC01\U0308\U000A' 0,1,2:'\UAC01\U0001' 0,0,2,3:'\UAC01\U0308\U0001' 0,0,2:'\UAC01\U034F' 0,0,0,3:'\UAC01\U0308\U034F' 0,1,2:'\UAC01\U1F1E6'
+    0,0,2,3:'\UAC01\U0308\U1F1E6' 0,1,2:'\UAC01\U0600' 0,0,2,3:'\UAC01\U0308\U0600' 0,0,2:'\UAC01\U0903' 0,0,0,3:'\UAC01\U0308\U0903' 0,1,2:'\UAC01\U1100'
+    0,0,2,3:'\UAC01\U0308\U1100' 0,1,2:'\UAC01\U1160' 0,0,2,3:'\UAC01\U0308\U1160' 0,0,2:'\UAC01\U11A8' 0,0,2,3:'\UAC01\U0308\U11A8' 0,1,2:'\UAC01\UAC00'
+    0,0,2,3:'\UAC01\U0308\UAC00' 0,1,2:'\UAC01\UAC01' 0,0,2,3:'\UAC01\U0308\UAC01' 0,1,2:'\UAC01\U231A' 0,0,2,3:'\UAC01\U0308\U231A' 0,0,2:'\UAC01\U0300'
+    0,0,0,3:'\UAC01\U0308\U0300' 0,0,2:'\UAC01\U200D' 0,0,0,3:'\UAC01\U0308\U200D' 0,1,2:'\UAC01\U0378' 0,0,2,3:'\UAC01\U0308\U0378' 0,1,2:'\U231A\U0020'
+    0,0,2,3:'\U231A\U0308\U0020' 0,1,2:'\U231A\U000D' 0,0,2,3:'\U231A\U0308\U000D' 0,1,2:'\U231A\U000A' 0,0,2,3:'\U231A\U0308\U000A' 0,1,2:'\U231A\U0001'
+    0,0,2,3:'\U231A\U0308\U0001' 0,0,2:'\U231A\U034F' 0,0,0,3:'\U231A\U0308\U034F' 0,1,2:'\U231A\U1F1E6' 0,0,2,3:'\U231A\U0308\U1F1E6' 0,1,2:'\U231A\U0600'
+    0,0,2,3:'\U231A\U0308\U0600' 0,0,2:'\U231A\U0903' 0,0,0,3:'\U231A\U0308\U0903' 0,1,2:'\U231A\U1100' 0,0,2,3:'\U231A\U0308\U1100' 0,1,2:'\U231A\U1160'
+    0,0,2,3:'\U231A\U0308\U1160' 0,1,2:'\U231A\U11A8' 0,0,2,3:'\U231A\U0308\U11A8' 0,1,2:'\U231A\UAC00' 0,0,2,3:'\U231A\U0308\UAC00' 0,1,2:'\U231A\UAC01'
+    0,0,2,3:'\U231A\U0308\UAC01' 0,1,2:'\U231A\U231A' 0,0,2,3:'\U231A\U0308\U231A' 0,0,2:'\U231A\U0300' 0,0,0,3:'\U231A\U0308\U0300' 0,0,2:'\U231A\U200D'
+    0,0,0,3:'\U231A\U0308\U200D' 0,1,2:'\U231A\U0378' 0,0,2,3:'\U231A\U0308\U0378' 0,1,2:'\U0300\U0020' 0,0,2,3:'\U0300\U0308\U0020' 0,1,2:'\U0300\U000D'
+    0,0,2,3:'\U0300\U0308\U000D' 0,1,2:'\U0300\U000A' 0,0,2,3:'\U0300\U0308\U000A' 0,1,2:'\U0300\U0001' 0,0,2,3:'\U0300\U0308\U0001' 0,0,2:'\U0300\U034F'
+    0,0,0,3:'\U0300\U0308\U034F' 0,1,2:'\U0300\U1F1E6' 0,0,2,3:'\U0300\U0308\U1F1E6' 0,1,2:'\U0300\U0600' 0,0,2,3:'\U0300\U0308\U0600' 0,0,2:'\U0300\U0903'
+    0,0,0,3:'\U0300\U0308\U0903' 0,1,2:'\U0300\U1100' 0,0,2,3:'\U0300\U0308\U1100' 0,1,2:'\U0300\U1160' 0,0,2,3:'\U0300\U0308\U1160' 0,1,2:'\U0300\U11A8'
+    0,0,2,3:'\U0300\U0308\U11A8' 0,1,2:'\U0300\UAC00' 0,0,2,3:'\U0300\U0308\UAC00' 0,1,2:'\U0300\UAC01' 0,0,2,3:'\U0300\U0308\UAC01' 0,1,2:'\U0300\U231A'
+    0,0,2,3:'\U0300\U0308\U231A' 0,0,2:'\U0300\U0300' 0,0,0,3:'\U0300\U0308\U0300' 0,0,2:'\U0300\U200D' 0,0,0,3:'\U0300\U0308\U200D' 0,1,2:'\U0300\U0378'
+    0,0,2,3:'\U0300\U0308\U0378' 0,1,2:'\U200D\U0020' 0,0,2,3:'\U200D\U0308\U0020' 0,1,2:'\U200D\U000D' 0,0,2,3:'\U200D\U0308\U000D' 0,1,2:'\U200D\U000A'
+    0,0,2,3:'\U200D\U0308\U000A' 0,1,2:'\U200D\U0001' 0,0,2,3:'\U200D\U0308\U0001' 0,0,2:'\U200D\U034F' 0,0,0,3:'\U200D\U0308\U034F' 0,1,2:'\U200D\U1F1E6'
+    0,0,2,3:'\U200D\U0308\U1F1E6' 0,1,2:'\U200D\U0600' 0,0,2,3:'\U200D\U0308\U0600' 0,0,2:'\U200D\U0903' 0,0,0,3:'\U200D\U0308\U0903' 0,1,2:'\U200D\U1100'
+    0,0,2,3:'\U200D\U0308\U1100' 0,1,2:'\U200D\U1160' 0,0,2,3:'\U200D\U0308\U1160' 0,1,2:'\U200D\U11A8' 0,0,2,3:'\U200D\U0308\U11A8' 0,1,2:'\U200D\UAC00'
+    0,0,2,3:'\U200D\U0308\UAC00' 0,1,2:'\U200D\UAC01' 0,0,2,3:'\U200D\U0308\UAC01' 0,1,2:'\U200D\U231A' 0,0,2,3:'\U200D\U0308\U231A' 0,0,2:'\U200D\U0300'
+    0,0,0,3:'\U200D\U0308\U0300' 0,0,2:'\U200D\U200D' 0,0,0,3:'\U200D\U0308\U200D' 0,1,2:'\U200D\U0378' 0,0,2,3:'\U200D\U0308\U0378' 0,1,2:'\U0378\U0020'
+    0,0,2,3:'\U0378\U0308\U0020' 0,1,2:'\U0378\U000D' 0,0,2,3:'\U0378\U0308\U000D' 0,1,2:'\U0378\U000A' 0,0,2,3:'\U0378\U0308\U000A' 0,1,2:'\U0378\U0001'
+    0,0,2,3:'\U0378\U0308\U0001' 0,0,2:'\U0378\U034F' 0,0,0,3:'\U0378\U0308\U034F' 0,1,2:'\U0378\U1F1E6' 0,0,2,3:'\U0378\U0308\U1F1E6' 0,1,2:'\U0378\U0600'
+    0,0,2,3:'\U0378\U0308\U0600' 0,0,2:'\U0378\U0903' 0,0,0,3:'\U0378\U0308\U0903' 0,1,2:'\U0378\U1100' 0,0,2,3:'\U0378\U0308\U1100' 0,1,2:'\U0378\U1160'
+    0,0,2,3:'\U0378\U0308\U1160' 0,1,2:'\U0378\U11A8' 0,0,2,3:'\U0378\U0308\U11A8' 0,1,2:'\U0378\UAC00' 0,0,2,3:'\U0378\U0308\UAC00' 0,1,2:'\U0378\UAC01'
+    0,0,2,3:'\U0378\U0308\UAC01' 0,1,2:'\U0378\U231A' 0,0,2,3:'\U0378\U0308\U231A' 0,0,2:'\U0378\U0300' 0,0,0,3:'\U0378\U0308\U0300' 0,0,2:'\U0378\U200D'
+    0,0,0,3:'\U0378\U0308\U200D' 0,1,2:'\U0378\U0378' 0,0,2,3:'\U0378\U0308\U0378' 0,1,2,3,4,5:'\U000D\U000A\U0061\U000A\U0308' 0,0,2:'\U0061\U0308'
+    0,0,2,3:'\U0020\U200D\U0646' 0,0,2,3:'\U0646\U200D\U0020' 0,0,2:'\U1100\U1100' 0,0,2,3:'\UAC00\U11A8\U1100' 0,0,2,3:'\UAC01\U11A8\U1100'
+    0,0,2,3,4:'\U1F1E6\U1F1E7\U1F1E8\U0062' 0,1,1,3,4,5:'\U0061\U1F1E6\U1F1E7\U1F1E8\U0062' 0,1,1,1,4,5,6:'\U0061\U1F1E6\U1F1E7\U200D\U1F1E8\U0062'
+    0,1,1,3,3,5,6:'\U0061\U1F1E6\U200D\U1F1E7\U1F1E8\U0062' 0,1,1,3,3,5,6:'\U0061\U1F1E6\U1F1E7\U1F1E8\U1F1E9\U0062' 0,0,2:'\U0061\U200D'
+    0,0,2,3:'\U0061\U0308\U0062' 0,0,2,3:'\U0061\U0903\U0062' 0,1,1,3:'\U0061\U0600\U0062' 0,0,2,3:'\U1F476\U1F3FF\U1F476' 0,0,2,3:'\U0061\U1F3FF\U1F476'
+    0,0,2,2,2,5:'\U0061\U1F3FF\U1F476\U200D\U1F6D1' 0,0,0,0,0,0,6:'\U1F476\U1F3FF\U0308\U200D\U1F476\U1F3FF' 0,0,0,3:'\U1F6D1\U200D\U1F6D1'
+    0,0,2,3:'\U0061\U200D\U1F6D1' 0,0,0,3:'\U2701\U200D\U2701' 0,0,2,3:'\U0061\U200D\U2701'
+  )
+  function ble/test:canvas/GraphemeClusterBreak/find-previous-boundary {
+    local ans=${1%%:*} str=${1#*:}
+    ble/string#split ans , "$ans"
+    local i=0 b=0
+    for k in "${!ans[@]}"; do
+      ble/test "ble/unicode/GraphemeCluster/find-previous-boundary \$'$str' $((k+1))" ret=${ans[k]}
+      if ((ans[k]>b)); then
+        local ret= c= w= cs= extend=
+        ble/test "ble/unicode/GraphemeCluster/match \$'$str' $b && ((ret=b+1+extend))" ret=${ans[k]}
+        ((b=ans[k]))
+      fi
+    done
+  }
+  if ((_ble_bash>=40200)); then
+    for spec in "${tests_cases[@]}"; do
+      ble/test:canvas/GraphemeClusterBreak/find-previous-boundary "$spec"
+    done
+  fi
+)
+ble/test/end-section
diff --git a/.local/src/blesh/lib/test-complete.sh b/.local/src/blesh/lib/test-complete.sh
new file mode 100644
index 0000000..cd7c0e1
--- /dev/null
+++ b/.local/src/blesh/lib/test-complete.sh
@@ -0,0 +1,28 @@
+# this script is a part of blesh (https://github.com/akinomyoga/ble.sh) under BSD-3-Clause license
+ble-import lib/core-complete
+ble-import lib/core-test
+ble/test/start-section 'ble/complete' 7
+(
+  function _collect {
+    local text=${args[1]} p0=0 i out=
+    for ((i=0;i<${#ret[@]};i++)); do
+      ((p=ret[i]))
+      if ((i%2==0)); then
+        out=$out${text:p0:p-p0}'['
+      else
+        out=$out${text:p0:p-p0}']'
+      fi
+      p0=$p
+    done
+    ((p0<${#text})) && out=$out${text:p0}
+    ret=$out
+  }
+  ble/test 'args=(akf Makefile 0); ble/complete/candidates/filter:hsubseq/match "${args[@]}"; _collect' ret='M[ak]e[f]ile'
+  ble/test 'args=(akf Makefile 1); ble/complete/candidates/filter:hsubseq/match "${args[@]}"; _collect' ret='Makefile'
+  ble/test 'args=(Mkf Makefile 1); ble/complete/candidates/filter:hsubseq/match "${args[@]}"; _collect' ret='[M]a[k]e[f]ile'
+  ble/test 'args=(Maf Makefile 1); ble/complete/candidates/filter:hsubseq/match "${args[@]}"; _collect' ret='[Ma]ke[f]ile'
+  ble/test 'args=(Mak Makefile 1); ble/complete/candidates/filter:hsubseq/match "${args[@]}"; _collect' ret='[Mak]efile'
+  ble/test 'args=(ake Makefile 0); ble/complete/candidates/filter:hsubseq/match "${args[@]}"; _collect' ret='M[ake]file'
+  ble/test 'args=(afe Makefile 0); ble/complete/candidates/filter:hsubseq/match "${args[@]}"; _collect' ret='M[a]ke[f]il[e]'
+)
+ble/test/end-section
diff --git a/.local/src/blesh/lib/test-decode.sh b/.local/src/blesh/lib/test-decode.sh
new file mode 100644
index 0000000..712b218
--- /dev/null
+++ b/.local/src/blesh/lib/test-decode.sh
@@ -0,0 +1,39 @@
+# this script is a part of blesh (https://github.com/akinomyoga/ble.sh) under BSD-3-Clause license
+ble-import lib/core-test
+ble/test/start-section 'ble/decode' 33
+(
+  ble/test 'ble/builtin/bind/.parse-keyname tab    ; ret=${chars[0]}' ret=9
+  ble/test 'ble/builtin/bind/.parse-keyname TAB    ; ret=${chars[0]}' ret=9
+  ble/test 'ble/builtin/bind/.parse-keyname newline; ret=${chars[0]}' ret=10
+  ble/test 'ble/builtin/bind/.parse-keyname LFD    ; ret=${chars[0]}' ret=10
+  ble/test 'ble/builtin/bind/.parse-keyname Return ; ret=${chars[0]}' ret=13
+  ble/test 'ble/builtin/bind/.parse-keyname RET    ; ret=${chars[0]}' ret=13
+  ble/test 'ble/builtin/bind/.parse-keyname Space  ; ret=${chars[0]}' ret=32
+  ble/test 'ble/builtin/bind/.parse-keyname SPC    ; ret=${chars[0]}' ret=32
+  ble/test 'ble/builtin/bind/.parse-keyname Rubout ; ret=${chars[0]}' ret=127
+  ble/test 'ble/builtin/bind/.parse-keyname DEL   ; ret=${chars[0]}' ret=127
+  ble/test 'ble/builtin/bind/.parse-keyname Escape ; ret=${chars[0]}' ret=27
+  ble/test 'ble/builtin/bind/.parse-keyname ESC    ; ret=${chars[0]}' ret=27
+  ble/test 'ble/builtin/bind/.parse-keyname C-Space; ret=${chars[0]}' ret=0
+  ble/test 'ble/builtin/bind/.parse-keyname s      ; ret=${chars[0]}' ret=115
+  ble/test 'ble/builtin/bind/.parse-keyname S      ; ret=${chars[0]}' ret=83
+  ble/test "ble/builtin/bind/.parse-keyname '\C-x\C-y'     ; ret=\${chars[0]}" ret=25  # C-y
+  ble/test "ble/builtin/bind/.parse-keyname 'xyz'          ; ret=\${chars[0]}" ret=120 # x
+  ble/test "ble/builtin/bind/.parse-keyname '\a'           ; ret=\${chars[0]}" ret=92  # \ (backslash)
+  ble/test "ble/builtin/bind/.parse-keyname '\C-nop'       ; ret=\${chars[0]}" ret=14  # C-n
+  ble/test "ble/builtin/bind/.parse-keyname '\C-xC-y'      ; ret=\${chars[0]}" ret=25  # C-y
+  ble/test "ble/builtin/bind/.parse-keyname '\C-axC-b'     ; ret=\${chars[0]}" ret=2   # C-b
+  ble/test "ble/builtin/bind/.parse-keyname 'helloC-b'     ; ret=\${chars[0]}" ret=2   # C-b
+  ble/test "ble/builtin/bind/.parse-keyname 'helloC-x,TAB' ; ret=\${chars[0]}" ret=24  # C-x
+  ble/test "ble/builtin/bind/.parse-keyname 'C-xTAB'       ; ret=\${chars[0]}" ret=24  # C-x
+  ble/test "ble/builtin/bind/.parse-keyname 'TABC-x'       ; ret=\${chars[0]}" ret=24  # C-x
+  ble/test "ble/builtin/bind/.parse-keyname 'BC-'          ; ret=\${chars[0]}" ret=0   # C-@
+  ble/test "ble/builtin/bind/.parse-keyname 'C-M-a'        ; ret=\${chars[0]}" ret=129 # C-M-a
+  ble/test "ble/builtin/bind/.parse-keyname 'M-C-a'        ; ret=\${chars[0]}" ret=129 # C-M-a
+  ble/test "ble/builtin/bind/.parse-keyname 'C-aalpha-beta'; ret=\${chars[0]}" ret=2   # C-b
+  ble/test "ble/builtin/bind/.parse-keyname '\C-a\M-c'     ; ret=\${chars[0]}" ret=131 # C-M-c
+  ble/test "ble/builtin/bind/.parse-keyname 'panic-trim-c' ; ret=\${chars[0]}" ret=131 # C-M-c
+  ble/test "ble/builtin/bind/.parse-keyname 'C--'          ; ret=\${chars[0]}" ret=0   # C-@
+  ble/test "ble/builtin/bind/.parse-keyname 'C--x'         ; ret=\${chars[0]}" ret=24  # C-x
+)
+ble/test/end-section
diff --git a/.local/src/blesh/lib/test-edit.sh b/.local/src/blesh/lib/test-edit.sh
new file mode 100644
index 0000000..f9d8211
--- /dev/null
+++ b/.local/src/blesh/lib/test-edit.sh
@@ -0,0 +1,8 @@
+# this script is a part of blesh (https://github.com/akinomyoga/ble.sh) under BSD-3-Clause license
+ble-import lib/core-test
+ble/test/start-section 'ble/edit' 2
+(
+  ble/test "_ble_edit_str=$'echo\nhello\nworld' ble-edit/content/find-logical-eol 13 -1" exit=0 ret=10
+  ble/test "_ble_edit_str=$'echo\nhello\nworld' ble-edit/content/find-logical-bol 13 -1" exit=0 ret=5
+)
+ble/test/end-section
diff --git a/.local/src/blesh/lib/test-main.sh b/.local/src/blesh/lib/test-main.sh
new file mode 100644
index 0000000..dc6cb57
--- /dev/null
+++ b/.local/src/blesh/lib/test-main.sh
@@ -0,0 +1,79 @@
+# this script is a part of blesh (https://github.com/akinomyoga/ble.sh) under BSD-3-Clause license
+ble-import lib/core-test
+ble/test/start-section 'ble/main' 19
+(
+  ble/test ble/util/put a     stdout=a
+  ble/test ble/util/print a   stdout=a
+  ble/test 'ble/util/put "a b"'   stdout='a b'
+  ble/test 'ble/util/print "a b"' stdout='a b'
+  ble/test 'ble/util/put "a b"; ble/util/put "c d"' \
+           stdout='a bc d'
+  ble/test 'ble/util/print "a b"; ble/util/print "c d"' \
+           stdout='a b' \
+           stdout='c d'
+)
+(
+  function ble/test/dummy-1 { true; }
+  function ble/test/dummy-2 { true; }
+  function ble/test/dummy-3 { true; }
+  ble/test ble/bin#has ble/test/dummy-1
+  ble/test ble/bin#has ble/test/dummy-{1..3}
+  ble/test ble/bin#has ble/test/dummy-0 exit=1
+  ble/test ble/bin#has ble/test/dummy-{0..2} exit=1
+)
+(
+  ble/bin/.freeze-utility-path readlink ls
+  function ble/test:readlink.impl1 {
+    ret=$1
+    ble/util/readlink/.resolve-loop
+  }
+  function ble/test:readlink.impl2 {
+    ret=$1
+    ble/function#push ble/bin/readlink
+    ble/util/readlink/.resolve-loop
+    ble/function#pop ble/bin/readlink
+  }
+  ble/test/chdir
+  mkdir -p ab/cd/ef
+  touch ab/cd/ef/file.txt
+  ln -s ef/file.txt ab/cd/link1
+  ln -s ab link.d
+  ln -s link.d/cd/link1 f.txt
+  ble/test '
+    ble/util/readlink f.txt
+    [[ $ret != /* ]] && ret=${PWD%/}/$ret' \
+    ret="${PWD%/}/ab/cd/ef/file.txt"
+  ln -s loop1.sh loop0.sh
+  ln -s loop2.sh loop1.sh
+  ln -s loop3.sh loop2.sh
+  ln -s loop1.sh loop3.sh
+  for impl in impl1 impl2; do
+    ble/test "ble/test:readlink.$impl loop0.sh" ret='loop1.sh'
+  done
+  mkdir -p phys.dir
+  touch phys.dir/1.txt
+  ln -s ../../../phys.dir ab/cd/ef/phys.link
+  ln -s ab/cd/ef/phys.link phys.link
+  local pwd=$PWD xpath=
+  ble/test code:'
+    path=phys.link/1.txt
+    ble/util/readlink/.resolve-physical-directory
+    declare -p path PWD >&2
+    [[ $path == */phys.dir/1.txt && $PWD == "$pwd" ]]'
+  ble/test/rmdir
+)
+(
+  ble/test '[[ -d $_ble_base ]]'
+  ble/test '[[ -d $_ble_base_run ]]'
+  ble/test '[[ -d $_ble_base_cache ]]'
+)
+(
+  qnl="\$'\n'"
+  value=$'\nxxx is a function\nhello\nyyy is a function\n'
+  pattern=$'\n+([][{}:[:alnum:]]) is a function\n'
+  shopt -s extglob
+  ble/test '[[ ${value//$pattern/'"$qnl"'} == '"$qnl"'hello'"$qnl"' ]]'
+  shopt -u extglob
+  ble/test '[[ ${value//$pattern/'"$qnl"'} != '"$qnl"'hello'"$qnl"' ]]'
+)
+ble/test/end-section
diff --git a/.local/src/blesh/lib/test-syntax.sh b/.local/src/blesh/lib/test-syntax.sh
new file mode 100644
index 0000000..4e339a7
--- /dev/null
+++ b/.local/src/blesh/lib/test-syntax.sh
@@ -0,0 +1,39 @@
+# this script is a part of blesh (https://github.com/akinomyoga/ble.sh) under BSD-3-Clause license
+ble-import lib/core-syntax
+ble-import lib/core-test
+ble/test/start-section 'ble/syntax' 22
+(
+  _func=ble/syntax:bash/simple-word/evaluate-last-brace-expansion
+  _collect='ret=$simple_ibrace/$ret'
+  ble/test "$_func 'a{b,c}x'    ; $_collect" ret='6:2/acx'
+  ble/test "$_func 'a{b,{c,d}x' ; $_collect" ret='9:2/adx'
+  ble/test "$_func 'a{b,{c,d}}x'; $_collect" ret='10:2/adx'
+  ble/test "$_func 'a{{c,dx'    ; $_collect" ret='5:1/adx'
+  ble/test "$_func 'a{b{c,dx'   ; $_collect" ret='6:2/abdx'
+  ble/test "$_func 'a{b,c}{d}x' ; $_collect" ret='7:2/acd}x'
+)
+(
+  _func=ble/syntax:bash/simple-word/reconstruct-incomplete-word
+  _collect='ret=$?:$simple_flags:[$simple_ibrace]:$ret'
+  ble/test "$_func 'hello-word'           ; $_collect" ret='0::[0:0]:hello-word'
+  ble/test "$_func 'hello word'           ; $_collect" ret='1::[0:0]:hello'
+  ble/test "$_func 'hello-word\"a'        ; $_collect" ret='0:D:[0:0]:hello-word"a"'
+  ble/test "$_func 'a{b,c}x'              ; $_collect" ret='0::[6:2]:acx'
+  ble/test "$_func 'a{b,{c,d}x'           ; $_collect" ret='0::[9:2]:adx'
+  ble/test "$_func 'a{b,{c,d}}x'          ; $_collect" ret='0::[10:2]:adx'
+  ble/test "$_func 'a{{c,dx'              ; $_collect" ret='0::[5:1]:adx'
+  ble/test "$_func 'a{b{c,dx'             ; $_collect" ret='0::[6:2]:abdx'
+  ble/test "$_func 'a{b,c}{d}x'           ; $_collect" ret='0::[7:2]:acd}x'
+  ble/test "$_func 'a{b,c}x\"hello, world'; $_collect" ret='0:D:[6:2]:acx"hello, world"'
+  ble/test "$_func 'a{b,{c,d}x'\''a'      ; $_collect" ret='0:S:[9:2]:adx'\''a'\'
+  ble/test "$_func 'a{b,{c,d}}x\$'\''\e[m'; $_collect" ret='0:E:[10:2]:adx$'\''\e[m'\'
+  ble/test "$_func 'a{{c,dx\$\"aa'        ; $_collect" ret='0:I:[5:1]:adx$"aa"'
+)
+(
+  _func=ble/syntax:bash/simple-word/evaluate-path-spec
+  _collect='ret="${spec[*]} >>> ${path[*]}"'
+  ble/test "$_func '~/a/b/c'            ; $_collect" ret="~ ~/a ~/a/b ~/a/b/c >>> $HOME $HOME/a $HOME/a/b $HOME/a/b/c"
+  ble/test "$_func '~/a/b/c' / after-sep; $_collect" ret="~/ ~/a/ ~/a/b/ ~/a/b/c >>> $HOME/ $HOME/a/ $HOME/a/b/ $HOME/a/b/c"
+  ble/test "$_func '/x/y/z' / after-sep ; $_collect" ret="/ /x/ /x/y/ /x/y/z >>> / /x/ /x/y/ /x/y/z"
+)
+ble/test/end-section
diff --git a/.local/src/blesh/lib/test-util.sh b/.local/src/blesh/lib/test-util.sh
new file mode 100644
index 0000000..4ec1155
--- /dev/null
+++ b/.local/src/blesh/lib/test-util.sh
@@ -0,0 +1,1555 @@
+# this script is a part of blesh (https://github.com/akinomyoga/ble.sh) under BSD-3-Clause license
+ble-import lib/core-test
+ble/test/start-section 'ble/util' 1198
+(
+  ble/test 'bleopt a=1' \
+           exit=2
+  ble/test 'bleopt a' \
+           stdout= exit=2
+  ble/test 'bleopt a:=2'
+  ble/test 'bleopt a' \
+           stdout="bleopt a=2"
+  ble/test '[[ $bleopt_a == 2 ]]'
+  ble/test "bleopt | grep 'bleopt a='" \
+           stdout="bleopt a=2"
+  ble/test 'bleopt a=3'
+  ble/test 'bleopt a' \
+           stdout="bleopt a=3"
+  function bleopt/check:a { value=123; }
+  ble/test 'bleopt a=4 && bleopt a'
+  stdout="bleopt a=123"
+  function bleopt/check:a { false; }
+  ble/test 'bleopt a=5' \
+           exit=1
+  ble/test 'bleopt a' \
+           stdout="bleopt a=123"
+  ble/test bleopt f:=10 g:=11
+  ble/test bleopt f g \
+           stdout="bleopt f=10${_ble_term_nl}bleopt g=11"
+  ble/test bleopt f=12 g=13
+  ble/test bleopt f g \
+           stdout="bleopt f=12${_ble_term_nl}bleopt g=13"
+  ble/test bleopt/declare -v b 6
+  ble/test bleopt b stdout="bleopt b=6"
+  ble/test bleopt/declare -n c 7
+  ble/test bleopt c stdout="bleopt c=7"
+  ble/test bleopt d:= e:=
+  ble/test bleopt/declare -v d 8
+  ble/test bleopt/declare -n e 9
+  ble/test bleopt d stdout="bleopt d="
+  ble/test bleopt e stdout="bleopt e=9"
+)
+ble/test ble/util/setexit 0   exit=0
+ble/test ble/util/setexit 1   exit=1
+ble/test ble/util/setexit 9   exit=9
+ble/test ble/util/setexit 128 exit=128
+ble/test ble/util/setexit 255 exit=255
+(
+  a=1
+  function f1 {
+    echo g:$a
+    local a=2
+    echo l:$a
+    ble/util/unlocal a
+    echo g:$a
+    a=3
+  }
+  ble/test 'f1; echo g:$a' \
+           stdout=g:1 \
+           stdout=l:2 \
+           stdout=g:1 \
+           stdout=g:3
+  function f2 {
+    echo f1:$a@f2
+    local a=3
+    echo f2:$a@f2
+    ble/util/unlocal a
+    echo f1:$a@f2
+    a=$a+
+  }
+  function f1 {
+    echo g:$a@f1
+    local a=2
+    echo f1:$a@f1
+    f2
+    echo f1:$a@f1
+    ble/util/unlocal a
+    echo g:$a@f1
+    a=$a+
+  }
+  ble/test 'a=1; f1; echo g:$a@g' \
+           stdout=g:1@f1 \
+           stdout=f1:2@f1 \
+           stdout=f1:2@f2 \
+           stdout=f2:3@f2 \
+           stdout=f1:2@f2 \
+           stdout=f1:2+@f1 \
+           stdout=g:1@f1 \
+           stdout=g:1+@g
+)
+(
+  function f1 {
+    local a=1 b=2
+    local result=$((a+b))
+    local "$1" && ble/util/upvar "$1" "$result"
+  }
+  ble/test 'f1 x; ret=$x' ret=3
+  ble/test 'f1 a; ret=$a' ret=3
+  ble/test 'f1 result; ret=$result' ret=3
+  function f2 {
+    local a=1
+    local -a b=(2)
+    local -a result=($((a+b[0])) y z)
+    local "$1" && ble/util/uparr "$1" "${result[@]}"
+  }
+  ble/test 'f2 x; ret="(${x[*]})"' ret='(3 y z)'
+  ble/test 'f2 a; ret="(${a[*]})"' ret='(3 y z)'
+  ble/test 'f2 b; ret="(${b[*]})"' ret='(3 y z)'
+  ble/test 'f2 result; ret="(${result[*]})"' ret='(3 y z)'
+)
+(
+  VARNAMES=(name x y count data)
+  function print-status {
+    echo "name=$name x=$x y=$y count=$count data=(${data[*]})"
+  }
+  function f1 {
+    local "${VARNAMES[@]/%/=}" # WA #D1570 checked
+    name=1 x=2 y=3 count=4 data=(aa bb cc dd)
+    print-status
+    ble/util/save-vars save1_ "${VARNAMES[@]}"
+    name=one x= y=A count=1 data=(Q)
+    print-status
+    ble/util/save-vars save2_ "${VARNAMES[@]}"
+    ble/util/restore-vars save1_ "${VARNAMES[@]}"
+    print-status
+    ble/util/restore-vars save2_ "${VARNAMES[@]}"
+    print-status
+  }
+  ble/test f1 \
+           stdout='name=1 x=2 y=3 count=4 data=(aa bb cc dd)' \
+           stdout='name=one x= y=A count=1 data=(Q)' \
+           stdout='name=1 x=2 y=3 count=4 data=(aa bb cc dd)' \
+           stdout='name=one x= y=A count=1 data=(Q)'
+)
+(
+  declare v=1
+  declare -i i=1
+  export x=2
+  readonly r=3
+  declare -a a=()
+  if ((_ble_bash>=40000)); then
+    declare -A A=()
+    declare -u u=a
+    declare -l l=B
+    declare -c c=c
+  fi
+  if ((_ble_bash>=40300)); then
+    declare -n n=r
+  fi
+  ble/test 'ble/variable#get-attr v; ret=$attr' ret=
+  ble/test 'ble/variable#get-attr i; ret=$attr' ret=i
+  ble/test 'ble/variable#get-attr x; ret=$attr' ret=x
+  ble/test 'ble/variable#get-attr r; ret=$attr' ret=r
+  ble/test 'ble/variable#get-attr a; ret=$attr' ret=a
+  if ((_ble_bash>=40000)); then
+    ble/test 'ble/variable#get-attr u; ret=$attr' ret=u
+    ble/test 'ble/variable#get-attr l; ret=$attr' ret=l
+    ble/test 'ble/variable#get-attr c; ret=$attr' ret=c
+    ble/test 'ble/variable#get-attr A; ret=$attr' ret=A
+  fi
+  ble/test 'ble/variable#has-attr i i'
+  ble/test 'ble/variable#has-attr x x'
+  ble/test 'ble/variable#has-attr r r'
+  ble/test 'ble/variable#has-attr a a'
+  ble/test 'ble/variable#has-attr v i' exit=1
+  ble/test 'ble/variable#has-attr v x' exit=1
+  ble/test 'ble/variable#has-attr v r' exit=1
+  ble/test 'ble/variable#has-attr v a' exit=1
+  if ((_ble_bash>=40000)); then
+    ble/test 'ble/variable#has-attr u u'
+    ble/test 'ble/variable#has-attr l l'
+    ble/test 'ble/variable#has-attr c c'
+    ble/test 'ble/variable#has-attr A A'
+    ble/test 'ble/variable#has-attr v u' exit=1
+    ble/test 'ble/variable#has-attr v l' exit=1
+    ble/test 'ble/variable#has-attr v c' exit=1
+    ble/test 'ble/variable#has-attr v A' exit=1
+  fi
+  ble/test 'ble/is-inttype i'
+  ble/test 'ble/is-inttype v' exit=1
+  ble/test 'ble/is-readonly r'
+  ble/test 'ble/is-readonly v' exit=1
+  if ((_ble_bash>=40000)); then
+    ble/test 'ble/is-transformed u'
+    ble/test 'ble/is-transformed l'
+    ble/test 'ble/is-transformed c'
+    ble/test 'ble/is-transformed v' exit=1
+  fi
+)
+function is-global() (readonly "$1"; ! local "$1" 2>/dev/null)
+(
+  v1=1 v2=2
+  ((_ble_bash>=40200)) &&
+    declare -g v1u v2u
+  function f1 {
+    local v2=22 v3=33
+    local v2u v3u
+    f2
+  }
+  function f2 {
+    local v4=444 v4u
+    ble/test 'is-global v0'
+    ble/test 'is-global v1'
+    ble/test 'is-global v2' exit=1
+    ble/test 'is-global v3' exit=1
+    ble/test 'is-global v4' exit=1
+    ble/test 'ble/variable#is-global v0'
+    ble/test 'ble/variable#is-global v1'
+    ble/test 'ble/variable#is-global v2' exit=1
+    ble/test 'ble/variable#is-global v3' exit=1
+    ble/test 'ble/variable#is-global v4' exit=1
+    ble/test 'ble/variable#is-global v0u'
+    if ((_ble_bash>=40200)); then
+      ble/test 'ble/variable#is-global v1u'
+      ble/test 'ble/variable#is-global v2u' exit=1
+    fi
+    ble/test 'ble/variable#is-global v3u' exit=1
+    ble/test 'ble/variable#is-global v4u' exit=1
+  }
+  f1
+)
+(
+  _ble_array_prototype=()
+  ble/test 'echo ${#_ble_array_prototype[@]}' stdout=0
+  ble/array#reserve-prototype 10
+  ble/test 'echo ${#_ble_array_prototype[@]}' stdout=10
+  ble/test 'x=("${_ble_array_prototype[@]::10}"); echo ${#x[@]}' stdout=10
+  ble/array#reserve-prototype 3
+  ble/test 'echo ${#_ble_array_prototype[@]}' stdout=10
+  ble/test 'x=("${_ble_array_prototype[@]::3}"); echo ${#x[@]}' stdout=3
+)
+(
+  declare -a a=()
+  declare b=
+  ble/test 'ble/is-array a'
+  ble/test 'ble/is-array b' exit=1
+  ble/test 'ble/is-array c' exit=1
+  if ((_ble_bash>=40000)); then
+    declare -A A=()
+    ble/test 'ble/is-array A' exit=1
+    ble/test 'ble/is-assoc a' exit=1
+    ble/test 'ble/is-assoc A'
+    ble/test 'ble/is-assoc b' exit=1
+    ble/test 'ble/is-assoc c' exit=1
+  fi
+)
+(
+  ble/test 'ble/array#set a; echo "${#a[@]}:(${a[*]})"' stdout='0:()'
+  ble/test 'ble/array#set a Q; echo "${#a[@]}:(${a[*]})"' stdout='1:(Q)'
+  ble/test 'ble/array#set a 1 2 3; echo "${#a[@]}:(${a[*]})"' stdout='3:(1 2 3)'
+  ble/test 'ble/array#set a; echo "${#a[@]}:(${a[*]})"' stdout='0:()'
+)
+(
+  declare -a a=()
+  ble/array#push a
+  ble/test 'echo "${#a[@]}:(${a[*]})"' stdout='0:()'
+  ble/array#push a A
+  ble/test 'echo "${#a[@]}:(${a[*]})"' stdout='1:(A)'
+  ble/array#push a B C
+  ble/test 'echo "${#a[@]}:(${a[*]})"' stdout='3:(A B C)'
+  ble/array#push a
+  ble/test 'echo "${#a[@]}:(${a[*]})"' stdout='3:(A B C)'
+)
+(
+  function result { echo "$ret:${#arr[*]}:(${arr[*]})"; }
+  ble/test 'arr=()     ; ble/array#pop arr; result' stdout=':0:()'
+  ble/test 'arr=(1)    ; ble/array#pop arr; result' stdout='1:0:()'
+  ble/test 'arr=(1 2)  ; ble/array#pop arr; result' stdout='2:1:(1)'
+  ble/test 'arr=(0 0 0); ble/array#pop arr; result' stdout='0:2:(0 0)'
+  ble/test 'arr=(1 2 3); ble/array#pop arr; result' stdout='3:2:(1 2)'
+  ble/test 'arr=(" a a " " b b " " c c "); ble/array#pop arr; result' \
+           stdout=' c c :2:( a a   b b )'
+)
+(
+  function status { echo "${#a[@]}:(${a[*]})"; }
+  a=()
+  ble/array#unshift a
+  ble/test status stdout='0:()'
+  ble/array#unshift a A
+  ble/test status stdout='1:(A)'
+  ble/array#unshift a
+  ble/test status stdout='1:(A)'
+  ble/array#unshift a B
+  ble/test status stdout='2:(B A)'
+  ble/array#unshift a C D E
+  ble/test status stdout='5:(C D E B A)'
+  a=()
+  ble/array#unshift a A B
+  ble/test status stdout='2:(A B)'
+)
+(
+  function status { echo "${#a[@]}:(${a[*]})"; }
+  a=(); ble/array#reverse a
+  ble/test status stdout='0:()'
+  a=(1); ble/array#reverse a
+  ble/test status stdout='1:(1)'
+  a=(xy zw); ble/array#reverse a
+  ble/test status stdout='2:(zw xy)'
+  a=(a 3 x); ble/array#reverse a
+  ble/test status stdout='3:(x 3 a)'
+  a=({1..10}) b=({10..1}); ble/array#reverse a
+  ble/test status stdout="10:(${b[*]})"
+  a=({1..9}) b=({9..1}); ble/array#reverse a
+  ble/test status stdout="9:(${b[*]})"
+)
+(
+  function status { echo "${#a[@]}:(${a[*]})"; }
+  a=(); ble/array#insert-at a 0 A B C
+  ble/test status stdout='3:(A B C)'
+  a=(); ble/array#insert-at a 1 A B C
+  ble/test status stdout='3:(A B C)'
+  a=(x y z); ble/array#insert-at a 0 A
+  ble/test status stdout='4:(A x y z)'
+  a=(x y z); ble/array#insert-at a 1 A
+  ble/test status stdout='4:(x A y z)'
+  a=(x y z); ble/array#insert-at a 3 A
+  ble/test status stdout='4:(x y z A)'
+  a=(x y z); ble/array#insert-at a 0 A B C
+  ble/test status stdout='6:(A B C x y z)'
+  a=(x y z); ble/array#insert-at a 1 A B C
+  ble/test status stdout='6:(x A B C y z)'
+  a=(x y z); ble/array#insert-at a 3 A B C
+  ble/test status stdout='6:(x y z A B C)'
+  a=(x y z); ble/array#insert-at a 0
+  ble/test status stdout='3:(x y z)'
+  a=(x y z); ble/array#insert-at a 1
+  ble/test status stdout='3:(x y z)'
+  a=(x y z); ble/array#insert-at a 3
+  ble/test status stdout='3:(x y z)'
+)
+(
+  function status { echo "${#a[@]}:(${a[*]})"; }
+  a=(hello world hello world)
+  ble/array#insert-after a hello 1 2 3
+  ble/test status stdout='7:(hello 1 2 3 world hello world)'
+  a=(heart world hello world)
+  ble/array#insert-after a hello 1 2 3
+  ble/test status stdout='7:(heart world hello 1 2 3 world)'
+  a=(hello world hello world)
+  ble/test 'ble/array#insert-after a check 1 2 3' exit=1
+  ble/test status stdout='4:(hello world hello world)'
+)
+(
+  function status { echo "${#a[@]}:(${a[*]})"; }
+  a=(hello world this)
+  ble/array#insert-before a this with check
+  ble/test status stdout='5:(hello world with check this)'
+  a=(hello world this)
+  ble/test 'ble/array#insert-before a haystack kick check' exit=1
+  ble/test status stdout='3:(hello world this)'
+)
+(
+  function status { echo "${#a[@]}:(${a[*]})"; }
+  a=(xxx yyy xxx yyy yyy xxx fdsa fdsa)
+  ble/array#remove a xxx
+  ble/test status stdout='5:(yyy yyy yyy fdsa fdsa)'
+  a=(aa aa aa aa aa)
+  ble/array#remove a bb
+  ble/test status stdout='5:(aa aa aa aa aa)'
+  ble/array#remove a aa
+  ble/test status stdout='0:()'
+  ble/array#remove a cc
+  ble/test status stdout='0:()'
+)
+(
+  a=(hello world this hello world)
+  ble/test 'ble/array#index a hello' ret=0
+  a=(world hep this hello world)
+  ble/test 'ble/array#index a hello' ret=3
+  a=(hello world this hello world)
+  ble/test 'ble/array#index a check' ret=-1
+)
+(
+  a=(hello world this hello world)
+  ble/test 'ble/array#last-index a hello' ret=3
+  a=(world hep this hello world)
+  ble/test 'ble/array#last-index a hello' ret=3
+  a=(hello world this hello world)
+  ble/test 'ble/array#last-index a check' ret=-1
+)
+(
+  function status { echo "${#a[@]}:(${a[*]})"; }
+  a=()
+  ble/test 'ble/array#remove-at a 0; status' stdout='0:()'
+  ble/test 'ble/array#remove-at a 10; status' stdout='0:()'
+  a=(x y z)
+  ble/test 'ble/array#remove-at a 4; status' stdout='3:(x y z)'
+  ble/test 'ble/array#remove-at a 3; status' stdout='3:(x y z)'
+  ble/test 'ble/array#remove-at a 1; status' stdout='2:(x z)'
+  ble/test 'ble/array#remove-at a 0; status' stdout='1:(z)'
+  ble/test 'ble/array#remove-at a 0; status' stdout='0:()'
+  a=({a..z}) a1=({a..y}) a2=({b..y}) a3=({b..h} {j..y})
+  ble/test 'ble/array#remove-at a 25; status' stdout="25:(${a1[*]})"
+  ble/test 'ble/array#remove-at a 0; status' stdout="24:(${a2[*]})"
+  ble/test 'ble/array#remove-at a 7; status' stdout="23:(${a3[*]})"
+)
+(
+  _ble_string_prototype='        '
+  ble/test 'echo ${#_ble_string_prototype}' stdout=8
+  ble/string#reserve-prototype 10
+  ble/test 'echo ${#_ble_string_prototype}' stdout=16
+  ble/test 'x=${_ble_string_prototype::10}; echo ${#x}' stdout=10
+  ble/string#reserve-prototype 3
+  ble/test 'echo ${#_ble_string_prototype}' stdout=16
+  ble/test 'x=${_ble_string_prototype::3}; echo ${#x}' stdout=3
+  ble/string#reserve-prototype 77
+  ble/test 'echo ${#_ble_string_prototype}' stdout=128
+  ble/test 'x=${_ble_string_prototype::77}; echo ${#x}' stdout=77
+)
+(
+  ble/test 'ble/string#repeat' ret=
+  ble/test 'ble/string#repeat ""' ret=
+  ble/test 'ble/string#repeat a' ret=
+  ble/test 'ble/string#repeat abc' ret=
+  ble/test 'ble/string#repeat "" ""' ret=
+  ble/test 'ble/string#repeat a ""' ret=
+  ble/test 'ble/string#repeat abc ""' ret=
+  ble/test 'ble/string#repeat "" 0' ret=
+  ble/test 'ble/string#repeat a 0' ret=
+  ble/test 'ble/string#repeat abc 0' ret=
+  ble/test 'ble/string#repeat "" 1' ret=
+  ble/test 'ble/string#repeat "" 10' ret=
+  ble/test 'ble/string#repeat a 1' ret=a
+  ble/test 'ble/string#repeat a 2' ret=aa
+  ble/test 'ble/string#repeat a 5' ret=aaaaa
+  ble/test 'ble/string#repeat abc 1' ret=abc
+  ble/test 'ble/string#repeat abc 2' ret=abcabc
+  ble/test 'ble/string#repeat abc 5' ret=abcabcabcabcabc
+  ble/test 'ble/string#repeat ";&|<>" 5' ret=';&|<>;&|<>;&|<>;&|<>;&|<>'
+)
+(
+  ble/test 'ble/string#common-prefix' ret=
+  ble/test 'ble/string#common-prefix ""' ret=
+  ble/test 'ble/string#common-prefix a' ret=
+  ble/test 'ble/string#common-prefix "" ""' ret=
+  ble/test 'ble/string#common-prefix a ""' ret=
+  ble/test 'ble/string#common-prefix a b' ret=
+  ble/test 'ble/string#common-prefix a a' ret=a
+  ble/test 'ble/string#common-prefix abc abc' ret=abc
+  ble/test 'ble/string#common-prefix abc aaa' ret=a
+  ble/test 'ble/string#common-prefix abc ccc' ret=
+  ble/test 'ble/string#common-prefix abc xyz' ret=
+)
+(
+  ble/test 'ble/string#common-suffix' ret=
+  ble/test 'ble/string#common-suffix ""' ret=
+  ble/test 'ble/string#common-suffix a' ret=
+  ble/test 'ble/string#common-suffix "" ""' ret=
+  ble/test 'ble/string#common-suffix a ""' ret=
+  ble/test 'ble/string#common-suffix a b' ret=
+  ble/test 'ble/string#common-suffix a a' ret=a
+  ble/test 'ble/string#common-suffix abc abc' ret=abc
+  ble/test 'ble/string#common-suffix abc aaa' ret=
+  ble/test 'ble/string#common-suffix abc ccc' ret=c
+  ble/test 'ble/string#common-suffix abc xyz' ret=
+)
+(
+  function status { echo "${#a[@]}:(""${a[*]}"")"; }
+  nl=$'\n'
+  ble/test 'ble/string#split a , ""  ; status' stdout='1:()'
+  ble/test 'ble/string#split a , "1"  ; status' stdout='1:(1)'
+  ble/test 'ble/string#split a , ","  ; status' stdout='2:( )'
+  ble/test 'ble/string#split a , "1,"  ; status' stdout='2:(1 )'
+  ble/test 'ble/string#split a , ",2"  ; status' stdout='2:( 2)'
+  ble/test 'ble/string#split a , "1,,3"  ; status' stdout='3:(1  3)'
+  ble/test 'ble/string#split a , "1,2,3"  ; status' stdout='3:(1 2 3)'
+  ble/test 'ble/string#split a " " "1 2 3"; status' stdout='3:(1 2 3)'
+  ble/test 'ble/string#split a " " "1	2	3"; status' stdout='1:(1	2	3)'
+  ble/test 'ble/string#split a " " "1'"$nl"'2'"$nl"'3"; status' stdout="1:(1${nl}2${nl}3)"
+)
+(
+  function status { echo "${#a[@]}:(${a[*]})"; }
+  nl=$'\n' ht=$'\t'
+  ble/test 'ble/string#split-words a ""  ; status' stdout='0:()'
+  ble/test 'ble/string#split-words a "1"  ; status' stdout='1:(1)'
+  ble/test 'ble/string#split-words a " "  ; status' stdout='0:()'
+  ble/test 'ble/string#split-words a "1 "  ; status' stdout='1:(1)'
+  ble/test 'ble/string#split-words a " 2"  ; status' stdout='1:(2)'
+  ble/test 'ble/string#split-words a "1  3"  ; status' stdout='2:(1 3)'
+  ble/test 'ble/string#split-words a "1 2 3"; status' stdout='3:(1 2 3)'
+  ble/test 'ble/string#split-words a "  1'"$ht"'2'"$ht"'3  "; status' stdout='3:(1 2 3)'
+  ble/test 'ble/string#split-words a "  1'"$nl"'2'"$nl"'3  "; status' stdout='3:(1 2 3)'
+)
+(
+  function status { echo "${#a[@]}:(""${a[*]}"")"; }
+  nl=$'\n' ht=$'\t'
+  ble/test 'ble/string#split-lines a ""  ; status' stdout='1:()'
+  ble/test 'ble/string#split-lines a "1"  ; status' stdout='1:(1)'
+  ble/test 'ble/string#split-lines a "'"$nl"'"  ; status' stdout='2:( )'
+  ble/test 'ble/string#split-lines a "1'"$nl"'"  ; status' stdout='2:(1 )'
+  ble/test 'ble/string#split-lines a "'"$nl"'2"  ; status' stdout='2:( 2)'
+  ble/test 'ble/string#split-lines a "1'"$nl$nl"'3"  ; status' stdout='3:(1  3)'
+  ble/test 'ble/string#split-lines a "1'"$nl"'2'"$nl"'3"; status' stdout='3:(1 2 3)'
+  ble/test 'ble/string#split-lines a "1'"$ht"'2'"$ht"'3"; status' stdout="1:(1${ht}2${ht}3)"
+  ble/test 'ble/string#split-lines a "1 2 3"; status' stdout="1:(1 2 3)"
+)
+(
+  ble/test 'ble/string#count-char hello a' ret=0
+  ble/test 'ble/string#count-char hello あ' ret=0
+  ble/test 'ble/string#count-char hello e' ret=1
+  ble/test 'ble/string#count-char hello l' ret=2
+  ble/test 'ble/string#count-char hello olh' ret=4
+  ble/test 'ble/string#count-char hello hello' ret=5
+  ble/test 'ble/string#count-char "" a' ret=0
+  ble/test 'ble/string#count-char "" ab' ret=0
+)
+(
+  ble/test 'ble/string#count-string hello a' ret=0
+  ble/test 'ble/string#count-string hello あ' ret=0
+  ble/test 'ble/string#count-string hello ee' ret=0
+  ble/test 'ble/string#count-string hello e' ret=1
+  ble/test 'ble/string#count-string hello l' ret=2
+  ble/test 'ble/string#count-string hello ll' ret=1
+  ble/test 'ble/string#count-string hello hello' ret=1
+  ble/test 'ble/string#count-string "" a' ret=0
+  ble/test 'ble/string#count-string "" ab' ret=0
+  ble/test 'ble/string#count-string ababababa aba' ret=2
+)
+(
+  ble/test 'ble/string#index-of hello a' ret=-1
+  ble/test 'ble/string#index-of hello あ' ret=-1
+  ble/test 'ble/string#index-of hello ee' ret=-1
+  ble/test 'ble/string#index-of hello e' ret=1
+  ble/test 'ble/string#index-of hello l' ret=2
+  ble/test 'ble/string#index-of hello ll' ret=2
+  ble/test 'ble/string#index-of hello hello' ret=0
+  ble/test 'ble/string#index-of "" a' ret=-1
+  ble/test 'ble/string#index-of "" ab' ret=-1
+  ble/test 'ble/string#index-of ababababa aba' ret=0
+)
+(
+  ble/test 'ble/string#last-index-of hello a' ret=-1
+  ble/test 'ble/string#last-index-of hello あ' ret=-1
+  ble/test 'ble/string#last-index-of hello ee' ret=-1
+  ble/test 'ble/string#last-index-of hello e' ret=1
+  ble/test 'ble/string#last-index-of hello l' ret=3
+  ble/test 'ble/string#last-index-of hello ll' ret=2
+  ble/test 'ble/string#last-index-of hello hello' ret=0
+  ble/test 'ble/string#last-index-of "" a' ret=-1
+  ble/test 'ble/string#last-index-of "" ab' ret=-1
+  ble/test 'ble/string#last-index-of ababababa aba' ret=6
+)
+(
+  ble/test 'ble/string#toggle-case' ret=
+  ble/test 'ble/string#tolower    ' ret=
+  ble/test 'ble/string#toupper    ' ret=
+  ble/test 'ble/string#capitalize ' ret=
+  ble/test 'ble/string#toggle-case ""' ret=
+  ble/test 'ble/string#tolower     ""' ret=
+  ble/test 'ble/string#toupper     ""' ret=
+  ble/test 'ble/string#capitalize  ""' ret=
+  ble/test 'ble/string#toggle-case a' ret=A
+  ble/test 'ble/string#tolower     a' ret=a
+  ble/test 'ble/string#toupper     a' ret=A
+  ble/test 'ble/string#capitalize  a' ret=A
+  ble/test 'ble/string#toggle-case あ' ret=あ
+  ble/test 'ble/string#tolower     あ' ret=あ
+  ble/test 'ble/string#toupper     あ' ret=あ
+  ble/test 'ble/string#capitalize  あ' ret=あ
+  ble/test 'ble/string#toggle-case +' ret=+
+  ble/test 'ble/string#tolower     +' ret=+
+  ble/test 'ble/string#toupper     +' ret=+
+  ble/test 'ble/string#capitalize  +' ret=+
+  ble/test 'ble/string#toggle-case abc' ret=ABC
+  ble/test 'ble/string#tolower     abc' ret=abc
+  ble/test 'ble/string#toupper     abc' ret=ABC
+  ble/test 'ble/string#capitalize  abc' ret=Abc
+  ble/test 'ble/string#toggle-case ABC' ret=abc
+  ble/test 'ble/string#tolower     ABC' ret=abc
+  ble/test 'ble/string#toupper     ABC' ret=ABC
+  ble/test 'ble/string#capitalize  ABC' ret=Abc
+  ble/test 'ble/string#toggle-case aBc' ret=AbC
+  ble/test 'ble/string#tolower     aBc' ret=abc
+  ble/test 'ble/string#toupper     aBc' ret=ABC
+  ble/test 'ble/string#capitalize  aBc' ret=Abc
+  ble/test 'ble/string#toggle-case +aBc' ret=+AbC
+  ble/test 'ble/string#tolower     +aBc' ret=+abc
+  ble/test 'ble/string#toupper     +aBc' ret=+ABC
+  ble/test 'ble/string#capitalize  +aBc' ret=+Abc
+  ble/test 'ble/string#capitalize  "hello world"' ret='Hello World'
+  LC_ALL=en_US.utf8
+  ble/test 'ble/string#toggle-case +aBc' ret=+AbC
+  ble/test 'ble/string#tolower     +aBc' ret=+abc
+  ble/test 'ble/string#toupper     +aBc' ret=+ABC
+  ble/test 'ble/string#capitalize  +aBc' ret=+Abc
+  ble/test 'ble/string#capitalize  "hello world"' ret='Hello World'
+)
+(
+  ble/test 'ble/string#trim ' ret=
+  ble/test 'ble/string#ltrim' ret=
+  ble/test 'ble/string#rtrim' ret=
+  ble/test 'ble/string#trim  ""' ret=
+  ble/test 'ble/string#ltrim ""' ret=
+  ble/test 'ble/string#rtrim ""' ret=
+  ble/test 'ble/string#trim  "a"' ret=a
+  ble/test 'ble/string#ltrim "a"' ret=a
+  ble/test 'ble/string#rtrim "a"' ret=a
+  ble/test 'ble/string#trim  " a "' ret=a
+  ble/test 'ble/string#ltrim " a "' ret='a '
+  ble/test 'ble/string#rtrim " a "' ret=' a'
+  ble/test 'ble/string#trim  " a b "' ret='a b'
+  ble/test 'ble/string#ltrim " a b "' ret='a b '
+  ble/test 'ble/string#rtrim " a b "' ret=' a b'
+  ble/test 'ble/string#trim  "abc"' ret='abc'
+  ble/test 'ble/string#ltrim "abc"' ret='abc'
+  ble/test 'ble/string#rtrim "abc"' ret='abc'
+  ble/test 'ble/string#trim  "  abc  "' ret='abc'
+  ble/test 'ble/string#ltrim "  abc  "' ret='abc  '
+  ble/test 'ble/string#rtrim "  abc  "' ret='  abc'
+  for pad in $' \t\n \t\n' $'\t\t\t' $'\n\n\n'; do
+    ble/test 'ble/string#trim  "'"$pad"'abc'"$pad"'"' ret='abc'
+    ble/test 'ble/string#ltrim "'"$pad"'abc'"$pad"'"' ret="abc${pad}"
+    ble/test 'ble/string#rtrim "'"$pad"'abc'"$pad"'"' ret="${pad}abc"
+  done
+)
+(
+  ble/test 'ble/string#escape-characters hello' ret=hello
+  ble/test 'ble/string#escape-characters hello ""' ret=hello
+  ble/test 'ble/string#escape-characters hello xyz' ret=hello
+  ble/test 'ble/string#escape-characters hello el' ret='h\e\l\lo'
+  ble/test 'ble/string#escape-characters hello hl XY' ret='\Xe\Y\Yo'
+  ble/test 'ble/string#escape-for-sed-regex      "A\.[*?+|^\$(){}/"' \
+           ret='A\\\.\[\*?+|\^\$(){}\/'
+  ble/test 'ble/string#escape-for-awk-regex      "A\.[*?+|^\$(){}/"' \
+           ret='A\\\.\[\*\?\+\|\^\$\(\)\{\}\/'
+  ble/test 'ble/string#escape-for-extended-regex "A\.[*?+|^\$(){}/"' \
+           ret='A\\\.\[\*\?\+\|\^\$\(\)\{\}/'
+  ble/test 'ble/string#escape-for-bash-glob "A\*?[("' ret='A\\\*\?\[\('
+  ble/test 'ble/string#escape-for-bash-single-quote "A'\''B"' ret="A'\''B"
+  ble/test 'ble/string#escape-for-bash-double-quote "hello \$ \` \\ ! world"' ret='hello \$ \` \\ "\!" world'
+  input=A$'\\\a\b\e\f\n\r\t\v'\'B output=A'\\\a\b\e\f\n\r\t\v\'\'B
+  ble/test 'ble/string#escape-for-bash-escape-string "$input"' ret="$output"
+  ble/test 'ble/string#escape-for-bash-specialchars "[hello] (world) {this,is} <test>"' \
+           ret='\[hello\]\ \(world\)\ {this,is}\ \<test\>'
+  ble/test 'ble/string#escape-for-bash-specialchars "[hello] (world) {this,is} <test>" b' \
+           ret='\[hello\]\ \(world\)\ \{this\,is\}\ \<test\>'
+  ble/test 'ble/string#escape-for-bash-specialchars "a=b:c:d" c' \
+           ret='a\=b\:c\:d'
+  ble/test $'ble/string#escape-for-bash-specialchars "a\tb\tc"' \
+           ret=$'a\\\tb\\\tc'
+)
+(
+  ble/test 'ble/string#quote-command' ret=
+  ble/test 'ble/string#quote-command echo' ret='echo'
+  ble/test 'ble/string#quote-command echo hello world' ret="echo 'hello' 'world'"
+  ble/test 'ble/string#quote-command echo "hello world"' ret="echo 'hello world'"
+  ble/test 'ble/string#quote-command echo "'\''test'\''"' ret="echo ''\''test'\'''"
+  ble/test 'ble/string#quote-command echo "" "" ""' ret="echo '' '' ''"
+  ble/test 'ble/string#quote-command echo a{1..4}' ret="echo 'a1' 'a2' 'a3' 'a4'"
+  ble/test 'ble/util/print-quoted-command' stdout=
+  ble/test 'ble/util/print-quoted-command echo' stdout='echo'
+  ble/test 'ble/util/print-quoted-command echo hello world' stdout="echo 'hello' 'world'"
+  ble/test 'ble/util/print-quoted-command echo "hello world"' stdout="echo 'hello world'"
+  ble/test 'ble/util/print-quoted-command echo "'\''test'\''"' stdout="echo ''\''test'\'''"
+  ble/test 'ble/util/print-quoted-command echo "" "" ""' stdout="echo '' '' ''"
+  ble/test 'ble/util/print-quoted-command echo a{1..4}' stdout="echo 'a1' 'a2' 'a3' 'a4'"
+)
+(
+  ble/test 'ble/string#quote-word' ret=
+  ble/test 'ble/string#quote-word echo' ret='echo'
+  ble/test 'ble/string#quote-word "hello world"' ret="'hello world'"
+  ble/test 'ble/string#quote-word "'\''test'\''"' ret="\'test\'"
+  ble/test 'ble/string#quote-word "a'\''b'\''c"' ret="a\'b\'c"
+)
+(
+  ble/test 'ble/string#create-unicode-progress-bar  0 24 3' ret='   '
+  ble/test 'ble/string#create-unicode-progress-bar  1 24 3' ret='▏  '
+  ble/test 'ble/string#create-unicode-progress-bar  2 24 3' ret='▎  '
+  ble/test 'ble/string#create-unicode-progress-bar  3 24 3' ret='▍  '
+  ble/test 'ble/string#create-unicode-progress-bar  4 24 3' ret='▌  '
+  ble/test 'ble/string#create-unicode-progress-bar  5 24 3' ret='▋  '
+  ble/test 'ble/string#create-unicode-progress-bar  6 24 3' ret='▊  '
+  ble/test 'ble/string#create-unicode-progress-bar  7 24 3' ret='▉  '
+  ble/test 'ble/string#create-unicode-progress-bar  8 24 3' ret='█  '
+  ble/test 'ble/string#create-unicode-progress-bar  9 24 3' ret='█▏ '
+  ble/test 'ble/string#create-unicode-progress-bar 15 24 3' ret='█▉ '
+  ble/test 'ble/string#create-unicode-progress-bar 16 24 3' ret='██ '
+  ble/test 'ble/string#create-unicode-progress-bar 17 24 3' ret='██▏'
+  ble/test 'ble/string#create-unicode-progress-bar 24 24 3' ret='███'
+  ble/test 'ble/string#create-unicode-progress-bar  0 24 4 unlimited' ret=$'█   '
+  ble/test 'ble/string#create-unicode-progress-bar  1 24 4 unlimited' ret=$'\e[7m▏\e[27m▏  '
+  ble/test 'ble/string#create-unicode-progress-bar  2 24 4 unlimited' ret=$'\e[7m▎\e[27m▎  '
+  ble/test 'ble/string#create-unicode-progress-bar  3 24 4 unlimited' ret=$'\e[7m▍\e[27m▍  '
+  ble/test 'ble/string#create-unicode-progress-bar  4 24 4 unlimited' ret=$'\e[7m▌\e[27m▌  '
+  ble/test 'ble/string#create-unicode-progress-bar  5 24 4 unlimited' ret=$'\e[7m▋\e[27m▋  '
+  ble/test 'ble/string#create-unicode-progress-bar  6 24 4 unlimited' ret=$'\e[7m▊\e[27m▊  '
+  ble/test 'ble/string#create-unicode-progress-bar  7 24 4 unlimited' ret=$'\e[7m▉\e[27m▉  '
+  ble/test 'ble/string#create-unicode-progress-bar  8 24 4 unlimited' ret=$' █  '
+  ble/test 'ble/string#create-unicode-progress-bar  9 24 4 unlimited' ret=$' \e[7m▏\e[27m▏ '
+  ble/test 'ble/string#create-unicode-progress-bar 15 24 4 unlimited' ret=$' \e[7m▉\e[27m▉ '
+  ble/test 'ble/string#create-unicode-progress-bar 16 24 4 unlimited' ret=$'  █ '
+  ble/test 'ble/string#create-unicode-progress-bar 17 24 4 unlimited' ret=$'  \e[7m▏\e[27m▏'
+  ble/test 'ble/string#create-unicode-progress-bar 24 24 4 unlimited' ret=$'█   '
+)
+(
+  ble/test 'ble/util/strlen' ret=0
+  ble/test 'ble/util/strlen ""' ret=0
+  ble/test 'ble/util/strlen a' ret=1
+  ble/test 'ble/util/strlen abc' ret=3
+  ble/test 'ble/util/strlen α' ret=2
+  ble/test 'ble/util/strlen αβγ' ret=6
+  ble/test 'ble/util/strlen あ' ret=3
+  ble/test 'ble/util/strlen あいう' ret=9
+  ble/test 'ble/util/strlen aα' ret=3
+  ble/test 'ble/util/strlen aαあ' ret=6
+  LC_ALL=en_US.utf8
+  ble/test 'ble/util/strlen a' ret=1
+  ble/test 'ble/util/strlen α' ret=2
+  ble/test 'ble/util/strlen あ' ret=3
+)
+(
+  ble/test 'ble/util/substr' ret=
+  ble/test 'ble/util/substr ""' ret=
+  ble/test 'ble/util/substr a' ret=
+  ble/test 'ble/util/substr "" 0' ret=
+  ble/test 'ble/util/substr "" 1' ret=
+  ble/test 'ble/util/substr a 0' ret=
+  ble/test 'ble/util/substr a 1' ret=
+  ble/test 'ble/util/substr a 2' ret=
+  ble/test 'ble/util/substr "" 0 0' ret=
+  ble/test 'ble/util/substr "" 0 1' ret=
+  ble/test 'ble/util/substr "" 1 1' ret=
+  ble/test 'ble/util/substr a 0 0' ret=
+  ble/test 'ble/util/substr a 1 0' ret=
+  ble/test 'ble/util/substr a 0 1' ret=a
+  ble/test 'ble/util/substr a 1 1' ret=
+  ble/test 'ble/util/substr abc 1 0' ret=
+  ble/test 'ble/util/substr abc 1 1' ret=b
+  ble/test 'ble/util/substr abc 1 2' ret=bc
+  ble/test 'ble/util/substr abc 0 0' ret=
+  ble/test 'ble/util/substr abc 0 1' ret=a
+  ble/test 'ble/util/substr abc 0 3' ret=abc
+  ble/test 'ble/util/substr abc 0 4' ret=abc
+  ble/test 'ble/util/substr abc 3 0' ret=
+  ble/test 'ble/util/substr abc 3 1' ret=
+  ble/test 'ble/util/substr abc 4 0' ret=
+  ble/test 'ble/util/substr abc 4 1' ret=
+  ble/test 'ble/util/substr あいう 0 3' ret=あ
+  ble/test 'ble/util/substr あいう 3 6' ret=いう
+  ble/test 'ble/util/substr あいう 0 1' ret=$'\xe3'
+  ble/test 'ble/util/substr あいう 1 2' ret=$'\x81\x82'
+  ble/test 'ble/util/substr あいう 1 4' ret=$'\x81\x82\xe3\x81'
+  ble/test 'ble/util/substr あいう 7 5' ret=$'\x81\x86'
+)
+(
+  for cmd in ble/path#{remove,remove-glob}; do
+    ble/test code:'ret=; '$cmd' ret' ret=
+    ble/test code:'ret=; '$cmd' ret ""' ret=
+    ble/test code:'ret=a; '$cmd' ret ""' ret=a
+    ble/test code:'ret=a; '$cmd' ret a' ret=
+    ble/test code:'ret=a; '$cmd' ret b' ret=a
+    ble/test code:'ret=a:a:a; '$cmd' ret a' ret=
+    ble/test code:'ret=aa; '$cmd' ret a' ret=aa
+    ble/test code:'ret=xyz:abc; '$cmd' ret ""' ret=xyz:abc
+    ble/test code:'ret=xyz:abc; '$cmd' ret xyz' ret=abc
+    ble/test code:'ret=xyz:abc; '$cmd' ret abc' ret=xyz
+    ble/test code:'ret=xyz:abc:tuv; '$cmd' ret xyz' ret=abc:tuv
+    ble/test code:'ret=xyz:abc:tuv; '$cmd' ret abc' ret=xyz:tuv
+    ble/test code:'ret=xyz:abc:tuv; '$cmd' ret tuv' ret=xyz:abc
+    ble/test code:'ret=xyz:xyz; '$cmd' ret xyz' ret=
+    ble/test code:'ret=xyz:abc:xyz; '$cmd' ret xyz' ret=abc
+    ble/test code:'ret=xyz:abc:xyz; '$cmd' ret abc' ret=xyz:xyz
+    ble/test code:'ret=xyz:xyz:xyz; '$cmd' ret xyz' ret=
+  done
+  ble/test code:'ret=a; ble/path#remove ret \?' ret=a
+  ble/test code:'ret=aa; ble/path#remove ret \?' ret=aa
+  ble/test code:'ret=a:b; ble/path#remove ret \?' ret=a:b
+  ble/test code:'ret=a:b:c; ble/path#remove ret \?' ret=a:b:c
+  ble/test code:'ret=aa:b:cc; ble/path#remove ret \?' ret=aa:b:cc
+  ble/test code:'ret=stdX:stdY:usrZ; ble/path#remove ret "std[a-zX-Z]"' ret=stdX:stdY:usrZ
+  ble/test code:'ret=stdX:usrZ:stdY; ble/path#remove ret "std[a-zX-Z]"' ret=stdX:usrZ:stdY
+  ble/test code:'ret=usrZ:stdX:stdY; ble/path#remove ret "std[a-zX-Z]"' ret=usrZ:stdX:stdY
+  ble/test code:'ret=a; ble/path#remove-glob ret \?' ret=
+  ble/test code:'ret=aa; ble/path#remove-glob ret \?' ret=aa
+  ble/test code:'ret=a:b; ble/path#remove-glob ret \?' ret=
+  ble/test code:'ret=a:b:c; ble/path#remove-glob ret \?' ret=
+  ble/test code:'ret=aa:b:cc; ble/path#remove-glob ret \?' ret=aa:cc
+  ble/test code:'ret=stdX:stdY:usrZ; ble/path#remove-glob ret "std[a-zX-Z]"' ret=usrZ
+  ble/test code:'ret=stdX:usrZ:stdY; ble/path#remove-glob ret "std[a-zX-Z]"' ret=usrZ
+  ble/test code:'ret=usrZ:stdX:stdY; ble/path#remove-glob ret "std[a-zX-Z]"' ret=usrZ
+)
+(
+  ble/test code:'ret=; ble/path#append ret a' ret=a
+  ble/test code:'ret=a; ble/path#append ret a' ret=a:a
+  ble/test code:'ret=a; ble/path#append ret b' ret=a:b
+  ble/test code:'ret=a:b; ble/path#append ret cd' ret=a:b:cd
+  ble/test code:'ret=; ble/path#prepend ret a' ret=a
+  ble/test code:'ret=a; ble/path#prepend ret a' ret=a:a
+  ble/test code:'ret=a; ble/path#prepend ret b' ret=b:a
+  ble/test code:'ret=a:b; ble/path#prepend ret cd' ret=cd:a:b
+  ble/test code:'ret=a:b:c; ble/path#contains ret a'
+  ble/test code:'ret=a:b:c; ble/path#contains ret b'
+  ble/test code:'ret=a:b:c; ble/path#contains ret c'
+  ble/test code:'ret=a:b:c; ! ble/path#contains ret x'
+  ble/test code:'ret=a:b:c; ! ble/path#contains ret aa'
+  ble/test code:'ret=a:b:c; ! ble/path#contains ret bb'
+  ble/test code:'ret=a:b:c; ! ble/path#contains ret cc'
+  ble/test code:'ret=a:b:c; ! ble/path#contains ret "?"'
+  ble/test code:'ret=a:b:c; ! ble/path#contains ret "*"'
+  ble/test code:'ret=abc:def; ble/path#contains ret abc'
+  ble/test code:'ret=abc:def; ble/path#contains ret def'
+  ble/test code:'ret=abc:def; ! ble/path#contains ret a'
+  ble/test code:'ret=abc:def; ! ble/path#contains ret ab'
+  ble/test code:'ret=abc:def; ! ble/path#contains ret abcdef'
+  ble/test code:'ret=abc:def; ! ble/path#contains ret "???"'
+  ble/test code:'ret=xyz; ble/path#contains ret xyz'
+  ble/test code:'ret=xyz; ! ble/path#contains ret xyz:xyz'
+  ble/test code:'ret=xyz; ! ble/path#contains ret "???"'
+)
+(
+  builtin eval -- "${_ble_util_dict_declare//NAME/dict1}"
+  builtin eval -- "${_ble_util_gdict_declare//NAME/dict2}"
+  builtin eval -- "${_ble_util_adict_declare//NAME/dict3}"
+  index=1
+  for Dict in ble/{,g,a}dict; do
+    dict=dict$((index++))
+    ret=unchanged
+    ble/test '! '$Dict'#has '$dict' banana' ret=unchanged
+    ble/test '! '$Dict'#has '$dict' ""' ret=unchanged
+    $Dict#set $dict apple red
+    $Dict#set $dict banana yellow
+    $Dict#set $dict orange orange
+    $Dict#set $dict melon green
+    ret=unchanged
+    ble/test $Dict'#has '$dict' banana' ret=unchanged # 先頭
+    ble/test $Dict'#has '$dict' apple'  ret=unchanged # 中
+    ble/test $Dict'#has '$dict' melon'  ret=unchanged # 末尾
+    ble/test '! '$Dict'#has '$dict' pear' ret=unchanged # 存在しない項目
+    ble/test $Dict'#get '$dict' banana' ret=yellow   # 先頭
+    ble/test $Dict'#get '$dict' apple'  ret=red      # 中
+    ble/test $Dict'#get '$dict' melon'  ret=green    # 末尾
+    ble/test '! '$Dict'#get '$dict' pear' ret=         # 存在しない項目
+    ble/test '! '$Dict'#has '$dict' ""' # 末尾空要素で引けるか
+    ble/test '! '$Dict'#get '$dict' ""' # 末尾空要素で引けるか
+    $Dict#set $dict '' transparent
+    ble/test $Dict'#has '$dict' ""' # 末尾空要素で引けるか
+    ble/test $Dict'#get '$dict' ""' ret=transparent # 末尾空要素で引けるか
+    $Dict#set $dict 'alpha beta' pink
+    ble/test $Dict'#has '$dict' ""' # 中央空要素で引けるか
+    ble/test $Dict'#has '$dict' "alpha beta"' # 空白を含む見出し
+    ble/test $Dict'#get '$dict' ""' ret=transparent # 中央空要素で引けるか
+    ble/test $Dict'#get '$dict' "alpha beta"' ret=pink # 空白を含む見出し
+    $Dict#set $dict ' apple ' ' red '
+    ble/test $Dict'#has '$dict' " apple "' # 空白で trim されないか
+    ble/test $Dict'#has '$dict' apple' # 既存項目を破壊していないか
+    ble/test $Dict'#get '$dict' " apple "' ret=' red ' # 空白で trim されないか
+    ble/test $Dict'#get '$dict' apple' ret=red # 既存項目を破壊していないか
+    ble/test '! '$Dict'#has '$dict' "${_ble_term_FS}"' # 単一FS
+    ble/test '! '$Dict'#has '$dict' ":"' # 単一コロン
+    ble/test '! '$Dict'#has '$dict' "apple${_ble_term_FS}banana"' # FSを含む見出し
+    ble/test '! '$Dict'#has '$dict' apple:banana' # コロンを含む見出し
+    ble/test '! '$Dict'#get '$dict' "${_ble_term_FS}"' ret= # 単一FS
+    ble/test '! '$Dict'#get '$dict' ":"' ret= # 単一コロン
+    ble/test '! '$Dict'#get '$dict' "apple${_ble_term_FS}banana"' ret= # FSを含む見出し
+    ble/test '! '$Dict'#get '$dict' apple:banana' ret= # コロンを含む見出し
+    $Dict#set $dict "${_ble_term_FS}" Empty
+    $Dict#set $dict ":" Colon
+    $Dict#set $dict "apple${_ble_term_FS}banana" RedYellow
+    $Dict#set $dict "apple:banana" __red_yellow__
+    ble/test $Dict'#has '$dict' "${_ble_term_FS}"' # 単一FS
+    ble/test $Dict'#has '$dict' ":"' # 単一コロン
+    ble/test $Dict'#has '$dict' "apple${_ble_term_FS}banana"' # FSを含む見出し
+    ble/test $Dict'#has '$dict' apple:banana' # コロンを含む見出し
+    ble/test $Dict'#get '$dict' "${_ble_term_FS}"' ret=Empty # 単一FS
+    ble/test $Dict'#get '$dict' ":"' ret=Colon # 単一コロン
+    ble/test $Dict'#get '$dict' "apple${_ble_term_FS}banana"' ret=RedYellow # FSを含む見出し
+    ble/test $Dict'#get '$dict' apple:banana' ret=__red_yellow__ # コロンを含む見出し
+    $Dict#unset $dict banana
+    $Dict#unset $dict apple
+    $Dict#unset $dict melon
+    ble/test '! '$Dict'#has '$dict' banana'
+    ble/test '! '$Dict'#has '$dict' apple'
+    ble/test '! '$Dict'#has '$dict' melon'
+    $Dict#unset $dict ""
+    $Dict#unset $dict "alpha beta"
+    $Dict#unset $dict " apple "
+    ble/test '! '$Dict'#has '$dict' ""' # 中央空要素で引けるか
+    ble/test '! '$Dict'#has '$dict' "alpha beta"' # 空白を含む見出し
+    ble/test '! '$Dict'#has '$dict' " apple "' # 空白で trim されないか
+    $Dict#unset $dict "${_ble_term_FS}"
+    $Dict#unset $dict ":"
+    $Dict#unset $dict "apple${_ble_term_FS}banana"
+    $Dict#unset $dict apple:banana
+    ble/test '! '$Dict'#has '$dict' "${_ble_term_FS}"' # 単一FS
+    ble/test '! '$Dict'#has '$dict' ":"' # 単一コロン
+    ble/test '! '$Dict'#has '$dict' "apple${_ble_term_FS}banana"' # FSを含む見出し
+    ble/test '! '$Dict'#has '$dict' apple:banana' # コロンを含む見出し
+  done
+)
+(
+  blehook/declare FOO
+  ble/test 'blehook --color=never FOO' stdout='blehook FOO='
+  ble/test 'blehook/has-hook FOO' exit=1
+  blehook FOO+='echo hello'
+  ble/test 'blehook --color=never FOO' \
+           stdout="blehook FOO+='echo hello'"
+  ble/test 'blehook/has-hook FOO'
+  blehook FOO+='echo world'
+  ble/test 'blehook --color=never FOO' \
+           stdout="blehook FOO+='echo hello'" \
+           stdout="blehook FOO+='echo world'"
+  ble/test 'blehook/has-hook FOO'
+  blehook FOO-='echo hello'
+  ble/test 'blehook --color=never FOO' \
+           stdout="blehook FOO+='echo world'"
+  ble/test 'blehook/has-hook FOO'
+  blehook FOO-='echo world'
+  ble/test 'blehook --color=never FOO' \
+           stdout='blehook FOO='
+  ble/test 'blehook/has-hook FOO' exit=1
+  blehook FOO+='echo hello'
+  blehook FOO+='echo world'
+  blehook FOO='echo empty'
+  ble/test 'blehook --color=never FOO' \
+           stdout="blehook FOO+='echo empty'"
+  ble/test 'blehook/has-hook FOO'
+  blehook FOO+='echo hello'
+  blehook FOO+='echo world'
+  blehook FOO=
+  ble/test 'blehook --color=never FOO' \
+           stdout='blehook FOO='
+  ble/test 'blehook/has-hook FOO' exit=1
+  blehook FOO+='echo hello'
+  blehook FOO+='echo world'
+  blehook FOO!='echo hello'
+  ble/test 'blehook --color=never FOO' \
+           stdout="blehook FOO+='echo hello'${_ble_term_nl}blehook FOO+='echo world'"
+  blehook FOO-+='echo hello'
+  ble/test 'blehook --color=never FOO' \
+           stdout="blehook FOO+='echo world'${_ble_term_nl}blehook FOO+='echo hello'"
+  blehook FOO+-='echo hello'
+  ble/test 'blehook --color=never FOO' \
+           stdout="blehook FOO+='echo hello'${_ble_term_nl}blehook FOO+='echo world'"
+  blehook FOO=
+  blehook FOO+='echo hello'
+  blehook FOO+='echo empty'
+  blehook FOO+='echo world'
+  ble/test 'blehook/invoke FOO' \
+           stdout=hello \
+           stdout=empty \
+           stdout=world
+  blehook FOO='echo A$?'
+  blehook FOO+='echo B$?'
+  blehook FOO+='echo C$?'
+  ble/test 'ble/util/setexit 123; blehook/invoke FOO' \
+           stdout=A123 \
+           stdout=B123 \
+           stdout=C123
+  blehook/declare bar_load
+  blehook bar_load='echo bar_load'
+  ble/test 'blehook/eval-after-load bar "echo yes"' stdout=
+  ble/test 'blehook/invoke bar_load' \
+           stdout=bar_load \
+           stdout=yes
+  ble/test 'blehook/eval-after-load bar "echo next"' stdout=next
+  function func { ret="[$1]"; }
+  blehook FOO=func
+  ble/test 'blehook/invoke FOO xQAHbcpMFyFyQ' ret='[xQAHbcpMFyFyQ]'
+)
+(
+  ble/builtin/trap 'echo TRAPEXIT1' 0
+  ble/test 'ble/builtin/trap/invoke 0' stdout=TRAPEXIT1
+  ble/test 'ble/builtin/trap/invoke EXIT' stdout=TRAPEXIT1
+  ble/builtin/trap 0
+  ble/test 'ble/builtin/trap/invoke 0' stdout=
+  ble/builtin/trap 'echo TRAPEXIT2' EXIT
+  ble/test 'ble/builtin/trap/invoke 0' stdout=TRAPEXIT2
+  ble/test 'ble/builtin/trap/invoke EXIT' stdout=TRAPEXIT2
+  ble/builtin/trap EXIT
+  ble/test 'ble/builtin/trap/invoke 0' stdout=
+  ble/builtin/trap 'echo TRAPHUP1' 1
+  ble/test 'ble/builtin/trap/invoke 1' stdout=TRAPHUP1
+  ble/test 'ble/builtin/trap/invoke HUP' stdout=TRAPHUP1
+  ble/test 'ble/builtin/trap/invoke SIGHUP' stdout=TRAPHUP1
+  ble/builtin/trap 1
+  ble/test 'ble/builtin/trap/invoke 1' stdout=
+  ble/builtin/trap 'echo TRAPHUP2' HUP
+  ble/test 'ble/builtin/trap/invoke 1' stdout=TRAPHUP2
+  ble/test 'ble/builtin/trap/invoke HUP' stdout=TRAPHUP2
+  ble/test 'ble/builtin/trap/invoke SIGHUP' stdout=TRAPHUP2
+  ble/builtin/trap HUP
+  ble/test 'ble/builtin/trap/invoke HUP' stdout=
+  ble/builtin/trap 'echo TRAPHUP3' SIGHUP
+  ble/test 'ble/builtin/trap/invoke 1' stdout=TRAPHUP3
+  ble/test 'ble/builtin/trap/invoke HUP' stdout=TRAPHUP3
+  ble/test 'ble/builtin/trap/invoke SIGHUP' stdout=TRAPHUP3
+  ble/builtin/trap SIGHUP
+  ble/test 'ble/builtin/trap/invoke HUP' stdout=
+  ble/builtin/trap/.register 9999 CUSTOM
+  ble/builtin/trap/reserve CUSTOM
+  ble/builtin/trap 'echo custom trap' CUSTOM
+  ble/test 'ble/builtin/trap/invoke CUSTOM' stdout='custom trap'
+  function ble/builtin/trap:CUSTOM { echo "__set_handler__ ($2) $1"; }
+  ble/test 'ble/builtin/trap "echo hello world" CUSTOM' \
+           stdout='__set_handler__ (CUSTOM) echo hello world'
+  ble/test 'ble/builtin/trap/invoke CUSTOM' stdout='hello world'
+)
+(
+  ble/test 'ble/util/readfile ret <(echo hello)' \
+           ret=hello$'\n'
+  ble/test 'ble/util/readfile ret <(echo hello; echo world)' \
+           ret=hello$'\n'world$'\n'
+  ble/test 'ble/util/readfile ret <(echo hello; echo -n world)' \
+           ret=hello$'\n'world
+  ble/test 'ble/util/readfile ret <(:)' ret=
+  function status { echo "${#a[*]}:(""${a[*]}"")"; }
+  ble/test "ble/util/mapfile a < <(echo hello); status" stdout='1:(hello)'
+  ble/test "ble/util/mapfile a < <(echo -n hello); status" stdout='1:(hello)'
+  ble/test "ble/util/mapfile a < <(echo hello; echo world); status" stdout='2:(hello world)'
+  ble/test "ble/util/mapfile a < <(echo hello; echo -n world); status" stdout='2:(hello world)'
+  ble/test "ble/util/mapfile a < <(printf '%s\n' h1 h2 h3 h4); status" stdout='4:(h1 h2 h3 h4)'
+  ble/test "ble/util/mapfile a < <(:); status" stdout='0:()'
+  ble/test "ble/util/mapfile a < <(echo); status" stdout='1:()'
+  ble/test "ble/util/mapfile a < <(echo;echo); status" stdout='2:( )'
+  ble/test "ble/util/mapfile a < <(echo a;echo;echo b); status" stdout='3:(a  b)'
+  nl=$'\n'
+  ble/test 'ble/util/assign ret ""' ret=
+  ble/test 'ble/util/assign ret ":"' ret=
+  ble/test 'ble/util/assign ret "echo"' ret=
+  ble/test 'ble/util/assign ret "echo hello"' ret=hello
+  ble/test 'ble/util/assign ret "seq 5"' ret="1${nl}2${nl}3${nl}4${nl}5"
+  function f1 { echo stdout; echo stderr >&2; }
+  function nested-assign {
+    ble/util/assign err 'ble/util/assign out f1 2>&1'
+    echo "out=$out err=$err"
+  }
+  ble/test nested-assign stdout='out=stdout err=stderr'
+  ble/test 'ble/util/assign-array a :; status' stdout='0:()'
+  ble/test 'ble/util/assign-array a echo; status' stdout='1:()'
+  ble/test 'ble/util/assign-array a "echo hello"; status' stdout='1:(hello)'
+  ble/test 'ble/util/assign-array a "seq 5"; status' stdout='5:(1 2 3 4 5)'
+  ble/test 'ble/util/assign-array a "echo; echo; echo"; status' stdout='3:(  )'
+  ble/test 'ble/util/assign-array a "echo 1; echo; echo 2"; status' stdout='3:(1  2)'
+)
+(
+  x=($'\177' $'\1' $'\2' $'\32' ' ' $'\a' $'\b' $'\t' $'\n' $'\v' $'\f' $'\r' a \" \' \$ \! \` \~)
+  x[0]=$'\177'
+  x[1]=$'\1'
+  ble/test "ble/util/writearray -d '' x | sha256sum | awk '{print \$1}'" stdout=$(printf '%s\0' "${x[@]}" | sha256sum | awk '{print $1}')
+)
+(
+  var=variable
+  alias ali=fun
+  function fun { echo yes "$*"; }
+  function ble/fun { echo yes "$*"; return 99; }
+  function ble/fun:type { echo yes "$*"; return 100; }
+  function ble/fun#meth { echo yes "$*"; return 101; }
+  ble/test 'ble/is-function' exit=1
+  ble/test 'ble/is-function ""' exit=1
+  ble/test 'ble/is-function fun'
+  ble/test 'ble/is-function ble/fun'
+  ble/test 'ble/is-function ble/fun:type'
+  ble/test 'ble/is-function ble/fun#meth'
+  ble/test 'ble/is-function fun1' exit=1
+  ble/test 'ble/is-function ble/fun1' exit=1
+  ble/test 'ble/is-function ble/fun1:type' exit=1
+  ble/test 'ble/is-function ble/fun1#meth' exit=1
+  ble/test 'ble/is-function ali' exit=1
+  ble/test 'ble/is-function var' exit=1
+  ble/test 'ble/is-function compgen' exit=1
+  ble/test 'ble/is-function declare' exit=1
+  ble/test 'ble/is-function mkfifo' exit=1
+  function compgen { :; }
+  function declare { :; }
+  function mkfifo { :; }
+  ble/test 'ble/is-function compgen'
+  ble/test 'ble/is-function declare'
+  ble/test 'ble/is-function mkfifo'
+  ble/test 'ble/function#try fun 1 2 3' stdout='yes 1 2 3'
+  ble/test 'ble/function#try ble/fun 1 2 3' stdout='yes 1 2 3' exit=99
+  ble/test 'ble/function#try ble/fun:type 1 2 3' stdout='yes 1 2 3' exit=100
+  ble/test 'ble/function#try ble/fun#meth 1 2 3' stdout='yes 1 2 3' exit=101
+  ble/test 'ble/function#try fun1 1 2 3' stdout= exit=127
+  ble/test 'ble/function#try ble/fun1 1 2 3' stdout= exit=127
+  ble/test 'ble/function#try ble/fun1:type 1 2 3' stdout= exit=127
+  ble/test 'ble/function#try ble/fun1#meth 1 2 3' stdout= exit=127
+)
+(
+  function f1 { echo original $*; }
+  ble/test f1 stdout='original'
+  ble/function#advice before f1 'echo pre'
+  ble/test f1 stdout={pre,original}
+  ble/function#advice after f1 'echo post'
+  ble/test f1 stdout={pre,original,post}
+  ble/function#advice before f1 'echo A'
+  ble/test f1 stdout={A,original,post}
+  ble/function#advice after f1 'echo B'
+  ble/test f1 stdout={A,original,B}
+  ble/function#advice around f1 'echo [; ble/function#advice/do; echo ]'
+  ble/test f1 stdout={A,[,original,],B}
+  ble/function#advice around f1 '
+    ADVICE_WORDS[1]=quick
+    echo [; ble/function#advice/do; echo ]
+    ADVICE_EXIT=99'
+  ble/test f1 stdout={A,[,'original quick',],B} exit=99
+  ble/function#advice remove f1
+  ble/test f1 stdout='original' exit=0
+  ble/test 'f1 1' stdout='original 1' exit=0
+)
+(
+  ble/test 'echo 1 2 3' stdout='1 2 3'
+  ble/test 'ble/is-function echo' exit=1
+  ble/function#push echo 'builtin echo "[$*]"'
+  ble/test 'ble/is-function echo'
+  ble/test 'echo 1 2 3' stdout='[1 2 3]'
+  ble/function#push echo 'builtin echo "($*)"'
+  ble/test 'echo 1 2 3' stdout='(1 2 3)'
+  ble/function#push echo 'builtin echo A; ble/function#push/call-top "$@"; builtin echo Z'
+  ble/test 'echo 1 2 3' stdout={A,'(1 2 3)',Z}
+  ble/function#push echo 'builtin echo [; ble/function#push/call-top "$@"; builtin echo ]'
+  ble/test 'echo 1 2 3' stdout={[,A,'(1 2 3)',Z,]}
+  ble/test 'ble/function#pop echo'
+  ble/test 'echo 1 2 3' stdout={A,'(1 2 3)',Z}
+  ble/function#pop echo
+  ble/test 'echo 1 2 3' stdout='(1 2 3)'
+  ble/function#pop echo
+  ble/test 'echo 1 2 3' stdout='[1 2 3]'
+  ble/test 'ble/is-function echo'
+  ble/test 'ble/function#pop echo'
+  ble/test 'ble/is-function echo' exit=1
+  ble/test 'echo 1 2 3' stdout='1 2 3'
+  ble/test 'ble/function#pop echo' exit=1
+  ble/test 'echo 1 2 3' stdout='1 2 3'
+)
+(
+  ble/test 'ble/util/set ret hello' ret='hello'
+  ble/test 'ble/util/set ret "hello world"' ret='hello world'
+  ble/test 'ble/util/set ret ""' ret=''
+  ble/test 'ble/util/set ret " "' ret=' '
+  ble/test 'ble/util/set ret " a"' ret=' a'
+  ble/test 'ble/util/set ret "a "' ret='a '
+  ble/test 'ble/util/set ret $'\''\n'\''' ret=$'\n'
+  ble/test 'ble/util/set ret A$'\''\n'\''' ret=A$'\n'
+  ble/test 'ble/util/set ret A$'\''\n'\''B' ret=A$'\n'B
+)
+(
+  ble/test 'ble/util/sprintf ret "[%s]" 1 2 3' ret='[1][2][3]'
+  ble/test 'ble/util/sprintf ret "[%5s]" 1' ret='[    1]'
+  ble/test 'ble/util/sprintf ret "[%.2s]" 12345' ret='[12]'
+  ble/test 'ble/util/sprintf ret "[%d,%d]" 1 3' ret='[1,3]'
+  ble/test 'ble/util/sprintf ret "[%x]" 27' ret='[1b]'
+  ble/test 'ble/util/sprintf ret "[%#.2g]" 27' ret='[27.]'
+  ble/test 'ble/util/sprintf ret "[%#.2f]" 27' ret='[27.00]'
+)
+(
+  shopt -s expand_aliases
+  alias aaa=fun
+  function fun { :; }
+  function ble/fun { :; }
+  function ble/fun:type { :; }
+  function ble/fun#meth { :; }
+  ble/test 'ble/util/type ret aaa' ret=alias
+  ble/test 'ble/util/type ret fun' ret=function
+  ble/test 'ble/util/type ret alias' ret=builtin
+  ble/test 'ble/util/type ret mkfifo' ret=file
+  ble/test 'ble/util/type ret for' ret=keyword
+  ble/test 'ble/util/type ret ble/fun' ret=function
+  ble/test 'ble/util/type ret ble/fun:type' ret=function
+  ble/test 'ble/util/type ret ble/fun#meth' ret=function
+  ble/test 'ble/util/type ret fun1' ret=
+  ble/test 'ble/util/type ret ble/fun1' ret=
+  ble/test 'ble/util/type ret ble/fun1:type' ret=
+  ble/test 'ble/util/type ret ble/fun1#meth' ret=
+)
+(
+  shopt -s expand_aliases
+  alias aaa1='aaa2 world'
+  ble/test 'ble/alias#expand aaa1' ret='aaa2 world'
+  alias aaa2='aaa3 hello'
+  ble/test 'ble/alias#expand aaa2' ret='aaa3 hello'
+  ble/test 'ble/alias#expand aaa1' ret='aaa2 world'
+  alias aaa3='aaa4'
+  ble/test 'ble/alias#expand aaa3' ret='aaa4'
+  ble/test 'ble/alias#expand aaa2' ret='aaa3 hello'
+  ble/test 'ble/alias#expand aaa1' ret='aaa2 world'
+  alias aaa4='echo'
+  ble/test 'ble/alias#expand aaa4' ret='echo'
+  ble/test 'ble/alias#expand aaa3' ret='aaa4'
+  ble/test 'ble/alias#expand aaa2' ret='aaa3 hello'
+  ble/test 'ble/alias#expand aaa1' ret='aaa2 world'
+)
+if ((_ble_bash>=40000)); then
+  (
+    ble/test 'echo 1 | { sleep 0.01; ble/util/is-stdin-ready; }'
+    ble/test 'sleep 0.01 | ble/util/is-stdin-ready' exit=1
+    ble/test 'ble/util/is-stdin-ready <<< a'
+    ble/test 'ble/util/is-stdin-ready <<< ""'
+    ble/test ': | { sleep 0.01; ble/util/is-stdin-ready; }'
+    ble/test 'ble/util/is-stdin-ready < /dev/null'
+  )
+fi
+ble/test ble/util/is-running-in-subshell exit=1
+( ble/test ble/util/is-running-in-subshell )
+(
+  ble/test/chdir
+  function getpid {
+    sh -c 'echo -n $PPID' >| a.txt
+    ble/util/readfile ppid a.txt
+  }
+  dummy=modification_to_environment.1
+  ble/util/getpid
+  ble/test '[[ $BASHPID != $$ ]]'
+  getpid
+  ble/test code:'ret=$BASHPID' ret="$ppid"
+  pid1=$BASHPID
+  (
+    dummy=modification_to_environment.2
+    ble/util/getpid
+    ble/test '[[ $BASHPID != $$ && $BASHPID != $pid1 ]]'
+    getpid
+    ble/test '[[ $BASHPID == $ppid ]]'
+  )
+  ble/test/rmdir
+)
+(
+  ble/test 'ble/fd#is-open 1'
+  ble/test 'ble/fd#is-open 2'
+  exec 9>&-
+  ble/test 'ble/fd#is-open 9' exit=1
+  exec 9>/dev/null
+  ble/test 'ble/fd#is-open 9'
+  exec 9>&-
+  ble/test 'ble/fd#is-open 9' exit=1
+)
+(
+  ble/test/chdir
+  ble/fd#alloc fd '> a.txt'
+  echo hello >&$fd
+  echo world >&$fd
+  if ((_ble_bash/100!=301)); then
+    ble/test 'ble/fd#close fd; echo test >&$fd' exit=1
+    ble/test 'cat a.txt' stdout={hello,world}
+  fi
+  ble/test/rmdir
+)
+(
+  xv1=''
+  xv2a='a' xv2b='ab'
+  xv3a=' ' xv3b='a b'
+  xv4a=$'\n' xv4b=$'a\nb'
+  xv5a=$'\r' xv5b=$'a\rb'
+  xv6a=$'\x01' xv6b=a$'\x01'b
+  xv7a=$'\x02' xv7b=a$'\x02'b
+  xv8a=$'\x7F' xv8b=a$'\x7F'b
+  eval -- "$(
+    for name in v1 v{2..8}{a,b}; do
+      eval "$name=\$x$name"
+    done
+    ble/util/declare-print-definitions vn v1 v{2..8}{a,b} 2>/dev/null)"
+  ble/test '[[ ! ${vn+set} ]]'
+  for name in v1 v{2..8}{a,b}; do
+    ble/test "declare -p $name x$name | cat -A >&2; [[ \$$name == \$x$name ]]"
+  done
+  function status { eval 'ret="${#'$1'[*]}:(""${'$1'[*]}"")"'; }
+  xa0=() sa0='0:()'
+  xa1=('') sa1='1:()'
+  for k in {2..8}; do
+    eval "xa$k=(); xa$k[0]=\"\$xv${k}a\"; xa$k[1]=\"\$xv${k}b\""
+    eval "sa$k=\"2:(\$xv${k}a \$xv${k}b)\""
+  done
+  eval -- "$(
+    for name in a0 a1 a{2..8}; do
+      eval "$name=(\"\${x$name[@]}\")"
+    done
+    ble/util/declare-print-definitions a0 a1 a{2..8} 2>/dev/null)"
+  for name in a0 a1 a{2..8}; do
+    stdout_var=s$name
+    ble/test "status $name" ret="${!stdout_var}"
+  done
+)
+(
+  function status { builtin eval 'echo "${#'$1'[*]}:(""${'$1'[*]}"")"'; }
+  v1=123 v2=(1 2 3) v3=bbb v4=ccc
+  function f2 {
+    local v3=x v4=y
+    builtin eval -- "$(ble/util/print-global-definitions v{0..4})"
+    ble/test '[[ ! ${v0+set} ]]'
+    ble/test 'status v1' stdout='1:(123)'
+    ble/test 'status v2' stdout='3:(1 2 3)'
+    ble/test 'status v3' stdout='1:(bbb)'
+    ble/test 'status v4' stdout='1:(ccc)'
+  }
+  function f1 {
+    local v0=1 v1=2 v2=3 v4=5
+    f2
+    ble/test 'status v1' stdout='1:(2)'
+    ble/test 'status v2' stdout='1:(3)'
+  }
+  f1
+  value="hello 'world'"
+  ble/test 'ble/util/print-global-definitions value' stdout="declare value='hello '\''world'\'''"
+)
+(
+  ble/test 'ble/util/has-glob-pattern "a*"'
+  ble/test 'ble/util/has-glob-pattern "a*b"'
+  ble/test 'ble/util/has-glob-pattern "?"'
+  ble/test 'ble/util/has-glob-pattern "a?"'
+  ble/test 'ble/util/has-glob-pattern "a?b"'
+  ble/test 'ble/util/has-glob-pattern "a?b*c"'
+  ble/test 'ble/util/has-glob-pattern "a[a-c]d"'
+  ble/test 'ble/util/has-glob-pattern "a[!a-c]d"'
+  ble/test 'ble/util/has-glob-pattern "*.txt"'
+  ble/test 'ble/util/has-glob-pattern "*.*"'
+  ble/test 'ble/util/has-glob-pattern ""'    exit=1
+  ble/test 'ble/util/has-glob-pattern "a"'   exit=1
+  ble/test 'ble/util/has-glob-pattern "abc"' exit=1
+  ble/test 'ble/util/has-glob-pattern "/"'   exit=1
+  ble/test 'ble/util/has-glob-pattern "a/c"' exit=1
+  ble/test 'ble/util/has-glob-pattern "a:b"' exit=1
+  ble/test 'ble/util/has-glob-pattern "a=b"' exit=1
+  ble/test 'ble/util/has-glob-pattern "\[xyz\]"' exit=1
+)
+ble/util/msleep/.calibrate-loop &>/dev/null
+ble/util/msleep/.calibrate-loop &>/dev/null
+ble/util/msleep/.calibrate-loop &>/dev/null
+(
+  ble/test 'ble-measure -q "ble/util/msleep 100"; echo "$ret usec" >&2; ((msec=ret/1000,90<=msec&&msec<=110))'
+  ble/test 'ble-measure -q "ble/util/sleep 0.1"; echo "$ret usec" >&2; ((msec=ret/1000,90<=msec&&msec<=110))'
+)
+(
+  time=0
+  ble/function#push ble/util/msleep '((time+=$1));echo $time'
+  ble/test "ble/util/conditional-sync 'sleep 10' '((time<1000))' 100" \
+           stdout={1..10}00
+  ble/test "ble/util/conditional-sync 'sleep 10' '((time<1000))' 100 progressive-weight" \
+           stdout={1,3,7,15,31,63,{1..10}27}
+  ble/function#pop ble/util/msleep
+)
+(
+  ble/test ":| ble/util/cat | cat -A"   stdout=
+  ble/test "printf a | ble/util/cat | cat -A"   stdout=a
+  ble/test "printf '\0' | ble/util/cat | cat -A"   stdout=^@
+  ble/test "printf 'hello\nworld\n'| ble/util/cat | cat -A" stdout={hello\$,world\$}
+  ble/test "printf 'hello\nworld'| ble/util/cat | cat -A"   stdout={hello\$,world}
+  ble/test "printf 'hello\0world\0'| ble/util/cat | cat -A" stdout=hello^@world^@
+  ble/test "printf 'hello\0world'| ble/util/cat | cat -A"   stdout=hello^@world
+)
+(
+  bleopt_pager=xxx PAGER=yyy
+  ble/test 'ble/util/get-pager ret' ret=xxx
+  bleopt_pager=xxx PAGER=
+  ble/test 'ble/util/get-pager ret' ret=xxx
+  bleopt_pager= PAGER=yyy
+  ble/test 'ble/util/get-pager ret' ret=yyy
+  bleopt_pager= PAGER=
+  ble/test 'ble/util/get-pager ret' ret=less
+)
+(
+  bleopt_pager=cat
+  ble/test 'ble/util/pager <<< hello' stdout=hello
+)
+(
+  ble/util/buffer.clear
+  ble/test 'ble/util/buffer.flush' stdout=
+  ble/util/buffer hello
+  ble/util/buffer world
+  ble/test 'ble/util/buffer.flush' stdout=helloworld
+  ble/test 'ble/util/buffer.flush' stdout=
+  ble/util/buffer.print hello
+  ble/util/buffer.print world
+  ble/test 'ble/util/buffer.flush' stdout={hello,world}
+  ble/test 'ble/util/buffer.flush' stdout=
+  ble/util/buffer.print hello
+  ble/util/buffer.print world
+  ble/util/buffer.clear
+  ble/test 'ble/util/buffer.flush' stdout=
+)
+(
+  ubeg=3 uend=10 uend0=5
+  beg=0 end=5 end0=3
+  ble/dirty-range#load --prefix=u
+  ble/test 'echo "$beg:$end:$end0"' stdout=3:10:5
+  ubeg=3 uend=10 uend0=5
+  ble/dirty-range#clear --prefix=u
+  ble/test 'echo "$ubeg:$uend:$uend0"' stdout=-1:-1:-1
+  ble/dirty-range#update --prefix=u 0 5 2
+  ble/test 'echo "$ubeg:$uend:$uend0"' stdout=0:5:2
+  ble/dirty-range#update --prefix=u 10 10 12
+  ble/test 'echo "$ubeg:$uend:$uend0"' stdout=0:10:9
+  ble/dirty-range#clear --prefix=u
+  ble/dirty-range#update --prefix=u 2 2 3
+  ble/dirty-range#update --prefix=u 2 2 3
+  ble/test 'echo "$ubeg:$uend:$uend0"' stdout=2:2:4
+  ble/dirty-range#clear --prefix=u
+  ble/dirty-range#update --prefix=u 1 5 3
+  ble/dirty-range#update --prefix=u 7 11 9
+  ble/test 'echo "$ubeg:$uend:$uend0"' stdout=1:11:7
+  ble/dirty-range#clear --prefix=u
+  ble/dirty-range#update --prefix=u 1 7 5
+  ble/dirty-range#update --prefix=u 4 15 11
+  ble/test 'echo "$ubeg:$uend:$uend0"' stdout=1:15:9
+  ble/dirty-range#clear --prefix=u
+  ble/dirty-range#update --prefix=u 1 7 5
+  ble/dirty-range#update --prefix=u 3 4 5
+  ble/test 'echo "$ubeg:$uend:$uend0"' stdout=1:6:5
+  ble/dirty-range#clear --prefix=u
+  ble/dirty-range#update --prefix=u 4 8 6
+  ble/dirty-range#update --prefix=u 2 8 10
+  ble/test 'echo "$ubeg:$uend:$uend0"' stdout=2:8:8
+  ble/dirty-range#clear --prefix=u
+  ble/dirty-range#update --prefix=u 6 12 8
+  ble/dirty-range#update --prefix=u 3 7 8
+  ble/test 'echo "$ubeg:$uend:$uend0"' stdout=3:11:8
+  ble/dirty-range#clear --prefix=u
+  ble/dirty-range#update --prefix=u 10 13 11
+  ble/dirty-range#update --prefix=u 3 7 8
+  ble/test 'echo "$ubeg:$uend:$uend0"' stdout=3:12:11
+)
+(
+  ble/test $'ble/util/s2c "\n"' ret=10
+  ble/test 'ble/util/c2s 10' ret=$'\n'
+  ble/test $'ble/util/s2c "\x1b"' ret=27
+  ble/test 'ble/util/c2s 27' ret=$'\x1b'
+  ble/test $'ble/util/s2c "\x1F"' ret=31
+  ble/test 'ble/util/c2s 31' ret=$'\x1F'
+  c=$'\x7F' ble/test 'ble/util/s2c $c' ret=127 # bash-3.0 bug WA
+  ble/test 'ble/util/c2s 127' ret=$'\x7F'
+  ble/test 'ble/util/s2c " "' ret=32
+  ble/test 'ble/util/c2s 32' ret=' '
+  ble/test 'ble/util/s2c a' ret=97
+  ble/test 'ble/util/c2s 97' ret=a
+  ble/test 'ble/util/s2c μ' ret=956
+  ble/test 'ble/util/c2s 956' ret=μ
+  ble/test 'ble/util/s2c あ' ret=12354
+  ble/test 'ble/util/c2s 12354' ret=あ
+  ble/test 'ble/util/s2c' ret=0
+  ble/test 'ble/util/s2c abc' ret=97
+  ble/test 'ble/util/s2c μν' ret=956
+  ble/test 'ble/util/s2c あいう' ret=12354
+  ble/test 'ble/util/c2s.cached 32' ret=' '
+  ble/test 'ble/util/c2s.cached 97' ret=a
+  ble/test 'ble/util/c2s.cached 956' ret=μ
+  ble/test 'ble/util/c2s.cached 12354' ret=あ
+  LANG=C
+  ble/test 'ble/util/c2s 97' ret=a
+  ble/test 'ble/util/c2s 956; [[ $ret != μ ]]'
+  ble/test 'ble/util/c2s 12354; [[ $ret != あ ]]'
+)
+(
+  ble/test 'ble/util/c2bc 97' ret=1
+  ble/test 'ble/util/c2bc 956' ret=2
+  ble/test 'ble/util/c2bc 12354' ret=3
+  ble/test 'ble/util/c2bc 0' ret=1
+  ble/test 'ble/util/c2bc 127' ret=1
+  ble/test 'ble/util/c2bc 128' ret=2
+  ble/test 'ble/util/c2bc 2047' ret=2
+  ble/test 'ble/util/c2bc 2048' ret=3
+  ble/test 'ble/util/c2bc 65535' ret=3
+  ble/test 'ble/util/c2bc 65536' ret=4
+)
+(
+  ble/test 'ble/util/s2chars AaBbCc; ret="${ret[*]}"' ret='65 97 66 98 67 99'
+  ble/test 'ble/util/chars2s 65 97 66 98 67 99' ret=AaBbCc
+  ble/test 'ble/util/s2chars あいう; ret="${ret[*]}"' ret='12354 12356 12358'
+  ble/test 'ble/util/chars2s 12354 12356 12358' ret=あいう
+  ble/test 'ble/util/s2chars; ret="${ret[*]}"' ret=
+  ble/test 'ble/util/s2chars 0; ret="${ret[*]}"' ret=48
+  ble/test 'ble/util/s2chars a; ret="${ret[*]}"' ret=97
+  ble/test 'ble/util/s2chars μ; ret="${ret[*]}"' ret=956
+  ble/test 'ble/util/s2chars あ; ret="${ret[*]}"' ret=12354
+  ble/test 'ble/util/chars2s' ret=
+  ble/test 'ble/util/chars2s 48' ret=0
+  ble/test 'ble/util/chars2s 97' ret=a
+  ble/test 'ble/util/chars2s 956' ret=μ
+  ble/test 'ble/util/chars2s 12354' ret=あ
+)
+(
+  check1() {
+    local char=$1 keyseq=$2
+    ble/test "ble/util/c2keyseq $char" ret="$keyseq"
+    ble/test "ble/util/chars2keyseq $char" ret="$keyseq"
+    ble/test "ble/util/keyseq2chars '$keyseq'; ret=\"\${ret[*]}\"" ret="${3:-$char}"
+    ble/test "ble/util/chars2keyseq 98 $char 99" ret="b${keyseq}c"
+    ble/test "ble/util/keyseq2chars 'b${keyseq}c'; ret=\"\${ret[*]}\"" ret="98 ${3:-$char} 99"
+  }
+  check1 '7'   '\a' 
+  check1 '8'   '\b' 
+  check1 '9'   '\t' 
+  check1 '10'  '\n' 
+  check1 '11'  '\v' 
+  check1 '12'  '\f' 
+  check1 '13'  '\r' 
+  check1 '27'  '\e' 
+  check1 '127' '\d'
+  check1 '92'  '\\'   
+  check1 '28'  '\x1c' # workaround bashbug \C-\, \C-\\
+  check1 '156' '\x9c' # workaround bashbug \C-\, \C-\\
+  check1 '0'   '\C-@'
+  check1 '1'   '\C-a'
+  check1 '26'  '\C-z'
+  check1 '29'  '\C-]'
+  check1 '30'  '\C-^'
+  check1 '31'  '\C-_'
+  check1 '128' '\M-\C-@' '27 0'
+  check1 '64'    '@'
+  check1 '97'    'a'
+  check1 '956'   'μ'
+  check1 '12354' 'あ'
+  ble/test ble/util/c2keyseq ret='\C-@'
+  ble/test ble/util/chars2keyseq ret=
+  ble/test ble/util/keyseq2chars ret=
+)
+(
+  function pack { ret="${bytes[*]}"; }
+  ble/test 'ble/encoding:UTF-8/b2c    ' ret=0
+  ble/test 'ble/encoding:UTF-8/b2c  97' ret=97
+  ble/test 'ble/encoding:UTF-8/b2c  97  98  99 99' ret=97
+  ble/test 'ble/encoding:UTF-8/b2c 206 188  99 99' ret=956
+  ble/test 'ble/encoding:UTF-8/b2c 227 129 130 99' ret=12354
+  ble/test 'ble/encoding:UTF-8/c2b 97   ; pack' ret=97
+  ble/test 'ble/encoding:UTF-8/c2b 956  ; pack' ret='206 188'
+  ble/test 'ble/encoding:UTF-8/c2b 12354; pack' ret='227 129 130'
+  ble/test 'ble/encoding:UTF-8/c2b     ; pack' ret=0
+  ble/test 'ble/encoding:UTF-8/c2b 0   ; pack' ret=0
+  ble/test 'ble/encoding:UTF-8/c2b 127 ; pack' ret=127
+  ble/test 'ble/encoding:UTF-8/c2b 128 ; pack' ret='194 128'
+  ble/test 'ble/encoding:UTF-8/c2b 2047; pack' ret='223 191'
+  ble/test 'ble/encoding:UTF-8/c2b 2048; pack' ret='224 160 128'
+)
+(
+  function pack { ret="${bytes[*]}"; }
+  ble/test 'ble/encoding:C/b2c    ' ret=0
+  ble/test 'ble/encoding:C/b2c  97' ret=97
+  ble/test 'ble/encoding:C/b2c  97  98  99 99' ret=97
+  ble/test 'ble/encoding:C/b2c 206 188  99 99' ret=206
+  ble/test 'ble/encoding:C/b2c 227 129 130 99' ret=227
+  ble/test 'ble/encoding:C/b2c 97    ' ret=97
+  ble/test 'ble/encoding:C/b2c 956   ' ret=188
+  ble/test 'ble/encoding:C/b2c 12354 ' ret=66
+  ble/test 'ble/encoding:C/c2b     ; pack' ret=0
+  ble/test 'ble/encoding:C/c2b 0   ; pack' ret=0
+  ble/test 'ble/encoding:C/c2b 127 ; pack' ret=127
+  ble/test 'ble/encoding:C/c2b 128 ; pack' ret=128
+  ble/test 'ble/encoding:C/c2b 2047; pack' ret=255
+  ble/test 'ble/encoding:C/c2b 2048; pack' ret=0
+)
+(
+  clear-locale() { LC_ALL= LANG= LC_CTYPE=; }
+  for lang in {C,en_US,ja{_JP,}}.{UTF-8,utf8} ja_JP.{utf8,UTF-8}@cjk{wide,narrow,single}; do
+    clear-locale
+    ble/test "LANG=$lang; ble/util/is-unicode-output"
+    clear-locale
+    ble/test "LANG=C LC_CTYPE=$lang; ble/util/is-unicode-output"
+    clear-locale
+    ble/test "LC_CTYPE=C LANG=C LC_ALL=$lang; ble/util/is-unicode-output"
+  done
+  for lang in '' C POSIX UTF-8 utf8 ja_JP.eucJP; do
+    clear-locale
+    ble/test "LANG=$lang; ble/util/is-unicode-output" exit=1
+    clear-locale
+    ble/test "LANG=C LC_CTYPE=$lang; ble/util/is-unicode-output" exit=1
+    clear-locale
+    ble/test "LC_CTYPE=C LANG=C LC_ALL=$lang; ble/util/is-unicode-output" exit=1
+  done
+)
+ble/test/end-section
diff --git a/.local/src/blesh/lib/vim-airline.sh b/.local/src/blesh/lib/vim-airline.sh
new file mode 100644
index 0000000..b4d8b6e
--- /dev/null
+++ b/.local/src/blesh/lib/vim-airline.sh
@@ -0,0 +1,306 @@
+# this script is a part of blesh (https://github.com/akinomyoga/ble.sh) under BSD-3-Clause license
+ble-import keymap/vi
+ble-import prompt-git
+bleopt/declare -n vim_airline_theme dark
+function bleopt/check:vim_airline_theme {
+  local init=ble/lib/vim-airline/theme:"$value"/initialize
+  if ! ble/is-function "$init"; then
+    local ret
+    if ! ble/util/import/search "airline/$value"; then
+      ble/util/print "ble/lib/vim-airline: theme '$value' not found." >&2
+      return 1
+    fi
+    ble/util/import "$ret"
+    ble/is-function "$init" || return 1
+  fi
+  "$init"
+  return 0
+}
+bleopt/declare -v vim_airline_section_a '\e[1m\q{lib/vim-airline/mode}'
+bleopt/declare -v vim_airline_section_b '\q{lib/vim-airline/gitstatus}'
+bleopt/declare -v vim_airline_section_c '\w'
+bleopt/declare -v vim_airline_section_x 'bash'
+bleopt/declare -v vim_airline_section_y '$_ble_util_locale_encoding[unix]'
+bleopt/declare -v vim_airline_section_z ' \q{history-percentile} \e[1m!\q{history-index}/\!\e[22m \q{position}'
+bleopt/declare -v vim_airline_left_sep      $'\uE0B0'
+bleopt/declare -v vim_airline_left_alt_sep  $'\uE0B1'
+bleopt/declare -v vim_airline_right_sep     $'\uE0B2'
+bleopt/declare -v vim_airline_right_alt_sep $'\uE0B3'
+bleopt/declare -v vim_airline_symbol_branch $'\uE0A0'
+bleopt/declare -v vim_airline_symbol_dirty  $'\u26A1'
+function bleopt/check:vim_airline_left_sep      { ble/prompt/unit#clear _ble_prompt_status; }
+function bleopt/check:vim_airline_left_alt_sep  { ble/prompt/unit#clear _ble_prompt_status; }
+function bleopt/check:vim_airline_right_sep     { ble/prompt/unit#clear _ble_prompt_status; }
+function bleopt/check:vim_airline_right_alt_sep { ble/prompt/unit#clear _ble_prompt_status; }
+builtin eval -- "${_ble_util_gdict_declare//NAME/_ble_lib_vim_airline_mode_map_default}"
+ble/gdict#set _ble_lib_vim_airline_mode_map_default 'i'  'INSERT'
+ble/gdict#set _ble_lib_vim_airline_mode_map_default 'n'  'NORMAL'
+ble/gdict#set _ble_lib_vim_airline_mode_map_default 'in' '(INSERT)'
+ble/gdict#set _ble_lib_vim_airline_mode_map_default 'o'  'OP PENDING'
+ble/gdict#set _ble_lib_vim_airline_mode_map_default 'R'  'REPLACE'
+ble/gdict#set _ble_lib_vim_airline_mode_map_default '' 'V REPLACE'
+ble/gdict#set _ble_lib_vim_airline_mode_map_default 'v'  'VISUAL'
+ble/gdict#set _ble_lib_vim_airline_mode_map_default 'V'  'V-LINE'
+ble/gdict#set _ble_lib_vim_airline_mode_map_default '' 'V-BLOCK'
+ble/gdict#set _ble_lib_vim_airline_mode_map_default 's'  'SELECT'
+ble/gdict#set _ble_lib_vim_airline_mode_map_default 'S'  'S-LINE'
+ble/gdict#set _ble_lib_vim_airline_mode_map_default '' 'S-BLOCK'
+ble/gdict#set _ble_lib_vim_airline_mode_map_default '?'  '------'
+ble/gdict#set _ble_lib_vim_airline_mode_map_default 'c'  'COMMAND'
+builtin eval -- "${_ble_util_gdict_declare//NAME/_ble_lib_vim_airline_mode_map_atomic}"
+ble/gdict#set _ble_lib_vim_airline_mode_map_atomic 'i'  'I'
+ble/gdict#set _ble_lib_vim_airline_mode_map_atomic 'n'  'N'
+ble/gdict#set _ble_lib_vim_airline_mode_map_atomic 'R'  'R'
+ble/gdict#set _ble_lib_vim_airline_mode_map_atomic 'v'  'V'
+ble/gdict#set _ble_lib_vim_airline_mode_map_atomic 'V'  'V-L'
+ble/gdict#set _ble_lib_vim_airline_mode_map_atomic '' 'V-B'
+ble/gdict#set _ble_lib_vim_airline_mode_map_atomic 's'  'S'
+ble/gdict#set _ble_lib_vim_airline_mode_map_atomic 'S'  'S-L'
+ble/gdict#set _ble_lib_vim_airline_mode_map_atomic '' 'S-B'
+ble/gdict#set _ble_lib_vim_airline_mode_map_atomic '?'  '--'
+ble/gdict#set _ble_lib_vim_airline_mode_map_atomic 'c'  'C'
+builtin eval -- "${_ble_util_gdict_declare//NAME/_ble_lib_vim_airline_mode_map}"
+ble/gdict#cp _ble_lib_vim_airline_mode_map_default _ble_lib_vim_airline_mode_map
+function ble/lib/vim-airline/initialize-faces {
+  ble/color/defface vim_airline_a       fg=17,bg=45
+  ble/color/defface vim_airline_b       fg=231,bg=27
+  ble/color/defface vim_airline_c       fg=231,bg=18
+  ble/color/defface vim_airline_error   fg=16,bg=88   # fg=#000000,bg=#990000
+  ble/color/defface vim_airline_term    fg=158,bg=234 # fg=#9cffd3,bg=#202020
+  ble/color/defface vim_airline_warning fg=16,bg=166  # fg=#000000,bg=#df5f00
+  local section map
+  for section in a b c error term warning; do
+    for map in _normal _insert _visual _commandline _inactive; do
+      ble/color/defface "vim_airline_$section$map" ref:"vim_airline_$section"
+    done
+    ble/color/defface "vim_airline_${section}_replace" ref:"vim_airline_${section}_insert"
+  done
+  local map
+  for map in '' _normal _insert _replace _visual _commandline _inactive; do
+    ble/color/defface "vim_airline_x$map" ref:"vim_airline_c$map"
+    ble/color/defface "vim_airline_y$map" ref:"vim_airline_b$map"
+    ble/color/defface "vim_airline_z$map" ref:"vim_airline_a$map"
+  done
+  local name
+  for name in {a,b,c,x,y,z,error,term,warning}{,_normal,_insert,_replace,_visual,_commandline,_inactive}; do
+    ble/color/defface "vim_airline_${name}_modified" ref:"vim_airline_$name"
+  done
+}
+ble/lib/vim-airline/initialize-faces
+function ble/lib/vim-airline/convert-theme/.to-color256 {
+  local R=$((16#${1:1:2}))
+  local G=$((16#${1:3:2}))
+  local B=$((16#${1:5:2}))
+  ble/color/convert-rgb24-to-color256 "$R" "$G" "$B"
+}
+function ble/lib/vim-airline/convert-theme/.setface {
+  local gspec=
+  local ret
+  ble/lib/vim-airline/convert-theme/.to-color256 "$2"; local fg=$ret
+  ble/lib/vim-airline/convert-theme/.to-color256 "$3"; local bg=$ret
+  printf 'ble/color/setface vim_airline_%-13s %-13s # %s\n' "$1" "fg=$fg,bg=$bg" "fg=$2,bg=$3"
+}
+function ble/lib/vim-airline/convert-theme {
+  local file=$1
+  sed -n 's/let s:airline_\([a-zA-Z_0-9]\{1,\}\)[^[:alnum:]]\{1,\}\(\#[0-9a-fA-F]\{6\}\)[^[:alnum:]]\{1,\}\(\#[0-9a-fA-F]\{6\}\).*/\1 \2 \3/p' "$file" |
+    while builtin read -r face fg bg; do
+      ble/lib/vim-airline/convert-theme/.setface "$face" "$fg" "$bg"
+    done
+}
+ble/color/setface vim_airline_a_normal      fg=17,bg=190  # fg=#00005f,bg=#dfff00
+ble/color/setface vim_airline_b_normal      fg=231,bg=238 # fg=#ffffff,bg=#444444
+ble/color/setface vim_airline_c_normal      fg=158,bg=234 # fg=#9cffd3,bg=#202020
+ble/color/setface vim_airline_a_insert      fg=17,bg=45   # fg=#00005f,bg=#00dfff
+ble/color/setface vim_airline_b_insert      fg=231,bg=27  # fg=#ffffff,bg=#005fff
+ble/color/setface vim_airline_c_insert      fg=231,bg=18  # fg=#ffffff,bg=#000080
+ble/color/setface vim_airline_a_visual      fg=16,bg=214  # fg=#000000,bg=#ffaf00
+ble/color/setface vim_airline_b_visual      fg=16,bg=202  # fg=#000000,bg=#ff5f00
+ble/color/setface vim_airline_c_visual      fg=231,bg=52  # fg=#ffffff,bg=#5f0000
+ble/color/setface vim_airline_a_inactive    fg=239,bg=234 # fg=#4e4e4e,bg=#1c1c1c
+ble/color/setface vim_airline_b_inactive    fg=239,bg=235 # fg=#4e4e4e,bg=#262626
+ble/color/setface vim_airline_c_inactive    fg=239,bg=236 # fg=#4e4e4e,bg=#303030
+ble/color/setface vim_airline_a_commandline fg=17,bg=40   # fg=#00005f,bg=#00d700
+ble/color/setface vim_airline_b_commandline fg=231,bg=238 # fg=#ffffff,bg=#444444
+ble/color/setface vim_airline_c_commandline fg=158,bg=234 # fg=#9cffd3,bg=#202020
+_ble_lib_vim_airline_mode_data=()
+_ble_lib_vim_airline_keymap=
+_ble_lib_vim_airline_mode=
+_ble_lib_vim_airline_rawmode=
+function ble/prompt/unit:_ble_lib_vim_airline_mode/update {
+  local keymap mode m
+  ble/keymap:vi/script/get-vi-keymap
+  ble/keymap:vi/script/get-mode
+  case $mode in
+  (i*)          m='insert' ;;
+  ([R]*)      m='replace' ;;
+  (*[vVsS]) m='visual' ;;
+  (*c)          m='commandline' ;;
+  (*n)          m='normal' ;;
+  (*)           m='inactive' ;;
+  esac
+  ble/prompt/unit/add-hash '$_ble_edit_str'
+  ble/prompt/unit/add-hash '$_ble_history_INDEX'
+  local entry
+  ble/history/get-entry "$_ble_history_INDEX"
+  [[ $_ble_edit_str != "$entry" ]] && m=${m}_modified
+  ble/prompt/unit/assign _ble_lib_vim_airline_keymap  "$keymap"
+  ble/prompt/unit/assign _ble_lib_vim_airline_mode    "$m"
+  ble/prompt/unit/assign _ble_lib_vim_airline_rawmode "$mode"
+  [[ $prompt_unit_changed ]]
+}
+function ble/prompt/backslash:lib/vim-airline/mode/.resolve {
+  local raw=$1
+  if ble/gdict#has _ble_lib_vim_airline_mode_map "$raw"; then
+    ble/gdict#get _ble_lib_vim_airline_mode_map "$raw"
+  else
+    case $raw in
+    (o)              ble/prompt/backslash:lib/vim-airline/mode/.resolve "$_ble_lib_vim_airline_rawmode" ;;
+    ([iR]?*)       ble/prompt/backslash:lib/vim-airline/mode/.resolve "${raw::1}" ;;
+    (*?[ncvVsS]) ble/prompt/backslash:lib/vim-airline/mode/.resolve "${raw:${#raw}-1}" ;;
+    ()             ble/prompt/backslash:lib/vim-airline/mode/.resolve R ;;
+    (R)              ble/prompt/backslash:lib/vim-airline/mode/.resolve i ;;
+    ([S])          ble/prompt/backslash:lib/vim-airline/mode/.resolve s ;;
+    ([Vs])         ble/prompt/backslash:lib/vim-airline/mode/.resolve v ;;
+    ([ivnc])
+      ret=
+      case $_ble_lib_vim_airline_rawmode in
+      (i*) ret=$bleopt_keymap_vi_mode_name_insert ;;
+      (R*) ret=$bleopt_keymap_vi_mode_name_replace ;;
+      (*) ret=$bleopt_keymap_vi_mode_name_vreplace ;;
+      esac
+      [[ $_ble_lib_vim_airline_rawmode == [iR]?* ]] &&
+        ble/string#tolower "($insert) "
+      case $_ble_lib_vim_airline_rawmode in
+      (*n)
+        if [[ ! $ret ]]; then
+          local rex='[[:alnum:]](.*[[:alnum:]])?'
+          [[ $bleopt_keymap_vi_mode_string_nmap =~ $rex ]]
+          ret=${BASH_REMATCH[0]:-NORMAL}
+        fi ;;
+      (*v)  ret="${ret}${ret:+ }$bleopt_keymap_vi_mode_name_visual" ;;
+      (*V)  ret="${ret}${ret:+ }$bleopt_keymap_vi_mode_name_visual $bleopt_keymap_vi_mode_name_line" ;;
+      (*) ret="${ret}${ret:+ }$bleopt_keymap_vi_mode_name_visual $bleopt_keymap_vi_mode_name_block" ;;
+      (*s)  ret="${ret}${ret:+ }$bleopt_keymap_vi_mode_name_select" ;;
+      (*S)  ret="${ret}${ret:+ }$bleopt_keymap_vi_mode_name_select $bleopt_keymap_vi_mode_name_line" ;;
+      (*) ret="${ret}${ret:+ }$bleopt_keymap_vi_mode_name_select $bleopt_keymap_vi_mode_name_block" ;;
+      (*c)  ret="${ret}${ret:+ }COMMAND" ;;
+      esac
+      [[ $ret ]] ||
+        ble/prompt/backslash:lib/vim-airline/mode/.resolve '?' ;;
+    (*) ret='?__' ;;
+    esac
+  fi
+}
+function ble/prompt/backslash:lib/vim-airline/mode {
+  local ret
+  if [[ $_ble_lib_vim_airline_keymap == vi_omap ]]; then
+    ble/prompt/backslash:lib/vim-airline/mode/.resolve o
+  else
+    ble/prompt/backslash:lib/vim-airline/mode/.resolve "$_ble_lib_vim_airline_rawmode"
+  fi
+  [[ $ret ]] && ble/prompt/print "$ret"
+}
+function ble/prompt/backslash:lib/vim-airline/gitstatus {
+  local "${_ble_contrib_prompt_git_vars[@]/%/=}" # WA #D1570 checked
+  if ble/contrib/prompt-git/initialize; then
+    local hash branch
+    ble/contrib/prompt-git/get-head-information
+    if [[ $branch ]]; then
+      ble/prompt/print "$bleopt_vim_airline_symbol_branch$branch"
+    elif [[ $hash ]]; then
+      ble/prompt/print "$bleopt_vim_airline_symbol_branch${hash::7}"
+    else
+      ble/prompt/print '$bleopt_vim_airline_symbol_branch???????'
+    fi
+    ble/contrib/prompt-git/is-dirty &&
+      ble/prompt/print "$bleopt_vim_airline_symbol_dirty"
+  fi
+}
+function ble/prompt/unit:{vim-airline-section}/update {
+  local section=$1
+  local ref_ps=bleopt_vim_airline_section_$section
+  local face=vim_airline_${section}_$_ble_lib_vim_airline_mode
+  local prefix=_ble_lib_vim_airline_section_$section
+  ble/prompt/unit/add-hash '$_ble_lib_vim_airline_mode_data'
+  ble/prompt/unit/add-hash "\$$ref_ps"
+  local trace_opts=confine:relative:noscrc:face0="$face":ansi:measure-bbox:measure-gbox
+  local prompt_rows=1 prompt_cols=$cols # Note: cols は \q{lib/vim-airline} で設定される
+  ble/prompt/unit:{section}/update "$prefix" "${!ref_ps}" "$trace_opts"
+}
+function ble/prompt/unit:_ble_lib_vim_airline_section_a/update { ble/prompt/unit:{vim-airline-section}/update a; }
+function ble/prompt/unit:_ble_lib_vim_airline_section_b/update { ble/prompt/unit:{vim-airline-section}/update b; }
+function ble/prompt/unit:_ble_lib_vim_airline_section_c/update { ble/prompt/unit:{vim-airline-section}/update c; }
+function ble/prompt/unit:_ble_lib_vim_airline_section_x/update { ble/prompt/unit:{vim-airline-section}/update x; }
+function ble/prompt/unit:_ble_lib_vim_airline_section_y/update { ble/prompt/unit:{vim-airline-section}/update y; }
+function ble/prompt/unit:_ble_lib_vim_airline_section_z/update { ble/prompt/unit:{vim-airline-section}/update z; }
+function ble/lib/vim-airline/.print-section {
+  local section=$1
+  local ret g0 bg
+  ble/color/face2g "vim_airline_${section}_$_ble_lib_vim_airline_mode"; g0=$ret
+  ble/color/g#compute-bg "$g0"; bg=$ret
+  if [[ $prev_g0 ]]; then
+    local sep=bleopt_vim_airline gsep
+    if [[ $prev_section == [ab] ]]; then
+      sep=${sep}_left
+    else
+      sep=${sep}_right
+    fi
+    if [[ $prev_bg == $bg ]]; then
+      sep=${sep}_alt_sep
+      if [[ $prev_section == [ab] ]]; then
+        gsep=$prev_g0
+      else
+        gsep=$g0
+      fi
+      ((gsep&=~_ble_color_gflags_DecorationMask|_ble_color_gflags_Revert|_ble_color_gflags_Invisible))
+    else
+      sep=${sep}_sep gsep=0
+      if [[ $sep == *_right_sep ]]; then
+        ble/color/g#setfg gsep "$bg"
+        ble/color/g#setbg gsep "$prev_bg"
+      else
+        ble/color/g#setfg gsep "$prev_bg"
+        ble/color/g#setbg gsep "$bg"
+      fi
+    fi
+    ble/color/g2sgr-ansi "$gsep"
+    ble/prompt/print "$ret${!sep}"
+  fi
+  local ref_show=_ble_lib_vim_airline_section_${section}_show
+  if [[ ${!ref_show} ]]; then
+    ble/prompt/unit:{section}/get "_ble_lib_vim_airline_section_$section"; local esc=$ret
+    ble/color/g2sgr-ansi "$g0"
+    ble/prompt/print "$ret $esc$ret "
+  fi
+  [[ $section == c ]] && ble/prompt/print $'\r'
+  prev_g0=$g0
+  prev_bg=$bg
+  prev_section=$section
+}
+function ble/prompt/backslash:lib/vim-airline {
+  local "${_ble_contrib_prompt_git_vars[@]/%/=}" # WA #D1570 checked
+  ble/prompt/unit#update _ble_lib_vim_airline_mode
+  local ret bg=0
+  ble/color/face2g "vim_airline_c_$_ble_lib_vim_airline_mode"
+  ble/color/g#getbg "$ret"
+  ble/color/g#setbg bg "$ret"
+  ble/color/setface prompt_status_line "g:$bg"
+  local cols=$COLUMNS; ((_ble_term_xenl||cols--))
+  local unit rest_cols=$((cols-4))
+  for unit in _ble_lib_vim_airline_section_{a,c,z,b,y,x}; do
+    ble/prompt/unit#update "$unit"
+    local gx1=${unit}_gbox[0]; gx1=${!gx1}
+    local x2=${unit}_bbox[2]; x2=${!x2}
+    local show=
+    [[ $gx1 ]] && ((x2+2<=rest_cols)) && ((show=1,rest_cols-=x2+2))
+    builtin eval -- "${unit}_show=\$show"
+  done
+  local section prev_section= prev_g0= prev_bg=
+  for section in a b c x y z; do
+    ble/lib/vim-airline/.print-section "$section"
+  done
+}
+bleopt -I vim_airline_@
+bleopt keymap_vi_mode_show=
+bleopt prompt_status_line='\q{lib/vim-airline}'
+bleopt prompt_status_align=$'justify=\r'
diff --git a/.local/src/blesh/lib/vim-arpeggio.sh b/.local/src/blesh/lib/vim-arpeggio.sh
new file mode 100644
index 0000000..cb59766
--- /dev/null
+++ b/.local/src/blesh/lib/vim-arpeggio.sh
@@ -0,0 +1,48 @@
+# this script is a part of blesh (https://github.com/akinomyoga/ble.sh) under BSD-3-Clause license
+source "$_ble_base/keymap/vi.sh"
+bleopt/declare -v vim_arpeggio_timeoutlen 40
+function ble/lib/vim-arpeggio.sh/bind/.usage {
+  ble/util/print "usage: ble/lib/vim-arpeggio.sh/bind [-m KEYMAP] -[fxcs@] KEYS COMMAND"
+  ble/util/print "  KEYS has the form of {mods}{X}{Y}. {mods} are modifiers of the form"
+  ble/util/print "  /([CSMAsH]-)*/ and {X} and {Y} are alphabets which specify simultaneous"
+  ble/util/print "  keys."
+}
+function ble/lib/vim-arpeggio.sh/bind {
+  local -a opts=()
+  if [[ $1 == -m ]]; then
+    if [[ ! $2 ]]; then
+      ble/util/print "vim-arpeggio.sh: invalid option argument for \`-m'." >&2
+      ble/lib/vim-arpeggio.sh/bind/.usage >&2
+      return 1
+    fi
+    ble/array#push opts -m "$2"
+    shift 2
+  fi
+  local type=$1 keys=$2 cmd=$3
+  if [[ $type == --help ]]; then
+    ble/lib/vim-arpeggio.sh/bind/.usage
+    return 0
+  elif [[ $type != -[fxcs@] ]]; then
+    ble/util/print "vim-arpeggio.sh: invalid bind type." >&2
+    ble/lib/vim-arpeggio.sh/bind/.usage >&2
+    return 1
+  fi
+  local mods=
+  if local rex='^(([CSMAsH]-)+)..'; [[ $keys =~ $rex ]]; then
+    mods=${BASH_REMATCH[1]}
+    keys=${keys:${#mods}}
+  fi
+  local timeout=$((bleopt_vim_arpeggio_timeoutlen))
+  ((timeout<0)) && timeout=
+  if ((${#keys}==2)); then
+    local k1=$mods${keys::1} k2=$mods${keys:1:1}
+    ble-bind "${opts[@]}" "$type" "$k1 $k2" "$cmd"
+    ble-bind "${opts[@]}" "$type" "$k2 $k1" "$cmd"
+    ble-bind "${opts[@]}" -T "$k1" "$timeout"
+    ble-bind "${opts[@]}" -T "$k2" "$timeout"
+  else
+    ble/util/print "vim-arpeggio.sh: sorry only 2-key bindings are supported now." >&2
+    ble/lib/vim-arpeggio.sh/bind/.usage >&2
+    return 1
+  fi
+}
diff --git a/.local/src/blesh/lib/vim-surround.sh b/.local/src/blesh/lib/vim-surround.sh
new file mode 100644
index 0000000..fc5002c
--- /dev/null
+++ b/.local/src/blesh/lib/vim-surround.sh
@@ -0,0 +1,551 @@
+# this script is a part of blesh (https://github.com/akinomyoga/ble.sh) under BSD-3-Clause license
+source "$_ble_base/keymap/vi.sh"
+bleopt/declare -n vim_surround_45 $'$(\r)' # ysiw-
+bleopt/declare -n vim_surround_61 $'$((\r))' # ysiw=
+bleopt/declare -n vim_surround_q \" # ysiwQ
+bleopt/declare -n vim_surround_Q \' # ysiwq
+bleopt/declare -v vim_surround_omap_bind 1
+function ble/lib/vim-surround.sh/get-char-from-key {
+  local key=$1
+  if ! ble-decode-key/ischar "$key"; then
+    local flag=$((key&_ble_decode_MaskFlag)) code=$((key&_ble_decode_MaskChar))
+    if ((flag==_ble_decode_Ctrl&&63<=code&&code<128&&(code&0x1F)!=0)); then
+      ((key=code==63?127:code&0x1F))
+    else
+      return 1
+    fi
+  fi
+  ble/util/c2s "$key"
+  return 0
+}
+function ble/lib/vim-surround.sh/async-inputtarget.hook {
+  local mode=$1 hook=${@:2:$#-2} key=${@:$#} ret
+  if ! ble/lib/vim-surround.sh/get-char-from-key "$key"; then
+    ble/widget/vi-command/bell
+    return 1
+  fi
+  local c=$ret
+  if [[ :$mode: == *:digit:* && $c == [0-9] ]]; then
+    _ble_edit_arg=$_ble_edit_arg$c
+    _ble_decode_key__hook="ble/lib/vim-surround.sh/async-inputtarget.hook digit $hook"
+    return 147
+  elif [[ :$mode: == *:init:* && $c == ' ' ]]; then
+    _ble_decode_key__hook="ble/lib/vim-surround.sh/async-inputtarget.hook space $hook"
+    return 147
+  fi
+  if [[ $c == [$'\e\003'] ]]; then # C-[, C-c
+    ble/widget/vi-command/bell
+    return 1
+  else
+    [[ $c == \' ]] && c="'\''"
+    [[ $mode == space ]] && c=' '$c
+    builtin eval -- "$hook '$c'"
+  fi
+}
+function ble/lib/vim-surround.sh/async-inputtarget {
+  local IFS=$_ble_term_IFS
+  _ble_decode_key__hook="ble/lib/vim-surround.sh/async-inputtarget.hook init:digit $*"
+  return 147
+}
+function ble/lib/vim-surround.sh/async-inputtarget-noarg {
+  local IFS=$_ble_term_IFS
+  _ble_decode_key__hook="ble/lib/vim-surround.sh/async-inputtarget.hook init $*"
+  return 147
+}
+_ble_lib_vim_surround_previous_tag=html
+function ble/lib/vim-surround.sh/load-template {
+  local ins=$1
+  if [[ ${ins//[0-9]} && ! ${ins//[_0-9a-zA-Z]} ]]; then
+    local optname=bleopt_vim_surround_$ins
+    template=${!optname}
+    [[ $template ]] && return 0
+  fi
+  local ret; ble/util/s2c "$ins"
+  local optname=bleopt_vim_surround_$ret
+  template=${!optname}
+  [[ $template ]] && return 0
+  case "$ins" in
+  (['<tT']*)
+    local tag=${ins:1}; tag=${tag//$'\r'/' '}
+    if [[ ! $tag ]]; then
+      tag=$_ble_lib_vim_surround_previous_tag
+    else
+      tag=${tag%'>'}
+      _ble_lib_vim_surround_previous_tag=$tag
+    fi
+    local end_tag=${tag%%["$_ble_term_IFS"]*}
+    template="<$tag>"$'\r'"</$end_tag>" ;;
+  ('(') template=$'( \r )' ;;
+  ('[') template=$'[ \r ]' ;;
+  ('{') template=$'{ \r }' ;;
+  (['b)']) template=$'(\r)' ;;
+  (['r]']) template=$'[\r]' ;;
+  (['B}']) template=$'{\r}' ;;
+  (['a>']) template=$'<\r>' ;;
+  ([a-zA-Z]) return 1 ;;
+  (*) template=$ins ;;
+  esac
+} &>/dev/null
+function ble/lib/vim-surround.sh/surround {
+  local text=$1 ins=$2 opts=$3
+  local instype=
+  [[ $ins == $'\x1D' ]] && ins='}' instype=indent # C-], C-}
+  local has_space=
+  [[ $ins == ' '?* ]] && ins=${ins:1} has_space=1
+  local template=
+  ble/lib/vim-surround.sh/load-template "$ins" || return 1
+  local prefix= suffix=
+  if [[ $template == *$'\r'* ]]; then
+    prefix=${template%%$'\r'*}
+    suffix=${template#*$'\r'}
+  else
+    prefix=$template
+    suffix=$template
+  fi
+  if [[ $prefix == *' ' && $suffix == ' '* ]]; then
+    prefix=${prefix::${#prefix}-1}
+    suffix=${suffix:1}
+    has_space=1
+  fi
+  if [[ $instype == indent || :$opts: == *:linewise:* ]]; then
+    ble-edit/content/find-logical-bol "$beg"; local bol=$ret
+    ble-edit/content/find-non-space "$bol"; local nol=$ret
+    local indent=
+    if [[ $instype == indent ]] || ((bol<nol)); then
+      indent=${_ble_edit_str:bol:nol-bol}
+    elif [[ $has_space ]]; then
+      indent=' '
+    fi
+    text=$indent$text
+    if [[ $instype == indent || :$opts: == *:indent:* ]]; then
+      ble/keymap:vi/string#increase-indent "$text" "$bleopt_indent_offset"; text=$ret
+    fi
+    text=$'\n'$text$'\n'$indent
+  elif [[ $has_space ]]; then
+    text=' '$text' '
+  fi
+  ret=$prefix$text$suffix
+}
+function ble/lib/vim-surround.sh/async-read-tagname {
+  ble/keymap:vi/async-commandline-mode "$1"
+  _ble_edit_PS1='<'
+  _ble_keymap_vi_cmap_before_command=ble/lib/vim-surround.sh/async-read-tagname/.before-command.hook
+  return 147
+}
+function ble/lib/vim-surround.sh/async-read-tagname/.before-command.hook {
+  if [[ ${KEYS[0]} == 62 ]]; then # '>'
+    ble/widget/self-insert
+    ble/widget/vi_cmap/accept
+    ble/decode/widget/suppress-widget
+  fi
+}
+_ble_lib_vim_surround_ys_type= # ys | yS | vS | vgS
+_ble_lib_vim_surround_ys_args=()
+_ble_lib_vim_surround_ys_ranges=()
+function ble/highlight/layer:region/mark:vi_surround/get-selection {
+  local type=$_ble_lib_vim_surround_ys_type
+  local context=${_ble_lib_vim_surround_ys_args[2]}
+  if [[ $context == block ]]; then
+    local -a sub_ranges
+    sub_ranges=("${_ble_lib_vim_surround_ys_ranges[@]}")
+    selection=()
+    local sub
+    for sub in "${sub_ranges[@]}"; do
+      ble/string#split sub : "$sub"
+      ((sub[0]<sub[1])) || continue
+      ble/array#push selection "${sub[0]}" "${sub[1]}"
+    done
+  else
+    selection=("${_ble_lib_vim_surround_ys_args[@]::2}")
+    if [[ $context == char && ( $type == yS || $type == ySS || $type == vgS ) ]]; then
+      local ret
+      ble-edit/content/find-logical-bol "${selection[0]}"; selection[0]=$ret
+      ble-edit/content/find-logical-eol "${selection[1]}"; selection[1]=$ret
+    fi
+  fi
+}
+function ble/highlight/layer:region/mark:vi_surround/get-face {
+  face=region_target
+}
+function ble/lib/vim-surround.sh/operator.impl {
+  _ble_lib_vim_surround_ys_type=$1; shift
+  _ble_lib_vim_surround_ys_args=("$@")
+  [[ $3 == block ]] && _ble_lib_vim_surround_ys_ranges=("${sub_ranges[@]}")
+  _ble_edit_mark_active=vi_surround
+  ble/lib/vim-surround.sh/async-inputtarget-noarg ble/widget/vim-surround.sh/ysurround.hook1
+  ble/lib/vim-surround.sh/ysurround.repeat/entry
+  return 147
+}
+function ble/keymap:vi/operator:yS { ble/lib/vim-surround.sh/operator.impl yS "$@"; }
+function ble/keymap:vi/operator:ys { ble/lib/vim-surround.sh/operator.impl ys "$@"; }
+function ble/keymap:vi/operator:ySS { ble/lib/vim-surround.sh/operator.impl ySS "$@"; }
+function ble/keymap:vi/operator:yss { ble/lib/vim-surround.sh/operator.impl yss "$@"; }
+function ble/keymap:vi/operator:vS { ble/lib/vim-surround.sh/operator.impl vS "$@"; }
+function ble/keymap:vi/operator:vgS { ble/lib/vim-surround.sh/operator.impl vgS "$@"; }
+function ble/widget/vim-surround.sh/ysurround.hook1 {
+  local ins=$1
+  if local rex='^ ?[<tT]$'; [[ $ins =~ $rex ]]; then
+    ble/lib/vim-surround.sh/async-read-tagname "ble/widget/vim-surround.sh/ysurround.hook2 '$ins'"
+  else
+    ble/widget/vim-surround.sh/ysurround.core "$ins"
+  fi
+}
+function ble/widget/vim-surround.sh/ysurround.hook2 {
+  local ins=$1 tagName=$2
+  ble/widget/vim-surround.sh/ysurround.core "$ins$tagName"
+}
+function ble/widget/vim-surround.sh/ysurround.core {
+  local ins=$1
+  _ble_edit_mark_active= # mark:vi_surround を解除
+  local ret
+  local type=$_ble_lib_vim_surround_ys_type
+  local beg=${_ble_lib_vim_surround_ys_args[0]}
+  local end=${_ble_lib_vim_surround_ys_args[1]}
+  local context=${_ble_lib_vim_surround_ys_args[2]}
+  local sub_ranges; sub_ranges=("${_ble_lib_vim_surround_ys_ranges[@]}")
+  _ble_lib_vim_surround_ys_type=
+  _ble_lib_vim_surround_ys_args=()
+  _ble_lib_vim_surround_ys_ranges=()
+  if [[ $context == block ]]; then
+    local isub=${#sub_ranges[@]} sub
+    local smin= smax= slpad= srpad=
+    while ((isub--)); do
+      local sub=${sub_ranges[isub]}
+      local stext=${sub#*:*:*:*:*:}
+      ble/string#split sub : "${sub::${#sub}-${#stext}}"
+      smin=${sub[0]} smax=${sub[1]}
+      slpad=${sub[2]} srpad=${sub[3]}
+      if ! ble/lib/vim-surround.sh/surround "$stext" "$ins"; then
+        ble/widget/vi-command/bell
+        return 1
+      fi
+      stext=$ret
+      ((slpad)) && { ble/string#repeat ' ' "$slpad"; stext=$ret$stext; }
+      ((srpad)) && { ble/string#repeat ' ' "$srpad"; stext=$stext$ret; }
+      ble/widget/.replace-range "$smin" "$smax" "$stext"
+    done
+  else
+    local text=${_ble_edit_str:beg:end-beg}
+    if [[ $type == ys ]]; then
+      if local rex=$'[ \t\n]+$'; [[ $text =~ $rex ]]; then
+        ((end-=${#BASH_REMATCH}))
+        text=${_ble_edit_str:beg:end-beg}
+      fi
+    fi
+    local opts=
+    if [[ $type == yS || $type == ySS || $context == char && $type == vgS ]]; then
+      opts=linewise:indent
+    elif [[ $context == line ]]; then
+      opts=linewise
+    fi
+    if ! ble/lib/vim-surround.sh/surround "$text" "$ins" "$opts"; then
+      ble/widget/vi-command/bell
+      return 1
+    fi
+    local text=$ret
+    ble/widget/.replace-range "$beg" "$end" "$text"
+  fi
+  _ble_edit_ind=$beg
+  if [[ $context == line ]]; then
+    ble/widget/vi-command/first-non-space
+  else
+    ble/keymap:vi/adjust-command-mode
+  fi
+  ble/keymap:vi/mark/end-edit-area
+  ble/lib/vim-surround.sh/ysurround.repeat/record "$type" "$ins"
+  return 0
+}
+function ble/widget/vim-surround.sh/ysurround-current-line {
+  ble/widget/vi_nmap/linewise-operator yss
+}
+function ble/widget/vim-surround.sh/ySurround-current-line {
+  ble/widget/vi_nmap/linewise-operator ySS
+}
+function ble/widget/vim-surround.sh/vsurround { # vS
+  ble/widget/vi-command/operator vS
+}
+function ble/widget/vim-surround.sh/vgsurround { # vgS
+  [[ $_ble_decode_keymap == vi_xmap ]] &&
+    ble/keymap:vi/xmap/add-eol-extension # 末尾拡張
+  ble/widget/vi-command/operator vgS
+}
+_ble_lib_vim_surround_ys_repeat=()
+function ble/lib/vim-surround.sh/ysurround.repeat/entry {
+  local -a _ble_keymap_vi_repeat _ble_keymap_vi_repeat_irepeat
+  ble/keymap:vi/repeat/record-normal
+  _ble_lib_vim_surround_ys_repeat=("${_ble_keymap_vi_repeat[@]}")
+}
+function ble/lib/vim-surround.sh/ysurround.repeat/record {
+  ble/keymap:vi/repeat/record-special && return 0
+  local type=$1 ins=$2
+  _ble_keymap_vi_repeat=("${_ble_lib_vim_surround_ys_repeat[@]}")
+  _ble_keymap_vi_repeat_irepeat=()
+  _ble_keymap_vi_repeat[10]=$type
+  _ble_keymap_vi_repeat[11]=$ins
+  case $type in
+  (vS|vgS)
+    _ble_keymap_vi_repeat[2]='ble/widget/vi-command/operator ysurround.repeat'
+    _ble_keymap_vi_repeat[4]= ;;
+  (yss|ySS)
+    _ble_keymap_vi_repeat[2]='ble/widget/vi_nmap/linewise-operator ysurround.repeat'
+    _ble_keymap_vi_repeat[4]= ;;
+  (*)
+    _ble_keymap_vi_repeat[4]=ysurround.repeat
+  esac
+}
+function ble/keymap:vi/operator:ysurround.repeat {
+  _ble_lib_vim_surround_ys_type=${_ble_keymap_vi_repeat[10]}
+  _ble_lib_vim_surround_ys_args=("$@")
+  [[ $3 == block ]] && _ble_lib_vim_surround_ys_ranges=("${sub_ranges[@]}")
+  local ins=${_ble_keymap_vi_repeat[11]}
+  ble/widget/vim-surround.sh/ysurround.core "$ins"
+}
+function ble/keymap:vi/operator:surround.record { :; }
+function ble/keymap:vi/operator:surround {
+  local beg=$1 end=$2 context=$3
+  local content=$surround_content ins=$surround_ins trims=$surround_trim
+  local ret
+  if [[ $trims ]]; then
+    ble/string#trim "$content"; content=$ret
+  fi
+  local opts=; [[ $surround_type == cS ]] && opts=linewise
+  if ! ble/lib/vim-surround.sh/surround "$content" "$ins" "$opts"; then
+    ble/widget/vi-command/bell
+    return 0
+  fi
+  content=$ret
+  ble/widget/.replace-range "$beg" "$end" "$content"
+  return 0
+}
+function ble/keymap:vi/operator:surround-extract-region {
+  surround_beg=$beg surround_end=$end
+  return 147 # 強制中断する為
+}
+_ble_lib_vim_surround_cs=()
+function ble/widget/vim-surround.sh/nmap/csurround.initialize {
+  _ble_lib_vim_surround_cs=("${@:1:3}")
+  return 0
+}
+function ble/widget/vim-surround.sh/nmap/csurround.set-delimiter {
+  local type=${_ble_lib_vim_surround_cs[0]}
+  local arg=${_ble_lib_vim_surround_cs[1]}
+  local reg=${_ble_lib_vim_surround_cs[2]}
+  _ble_lib_vim_surround_cs[3]=$1
+  local trim=
+  [[ $del == ' '?* ]] && trim=1 del=${del:1}
+  if [[ $del == a ]]; then
+    del='>'
+  elif [[ $del == r ]]; then
+    del=']'
+  elif [[ $del == T ]]; then
+    del='t' trim=1
+  fi
+  local obj1= obj2=
+  case "$del" in
+  ([wWps])      obj1=i$del obj2=i$del ;;
+  ([\'\"\`])    obj1=i$del obj2=a$del arg=1 ;;
+  (['bB)}>]t']) obj1=i$del obj2=a$del ;;
+  (['({<['])    obj1=i$del obj2=a$del trim=1 ;;
+  ([a-zA-Z])    obj1=i$del obj2=a$del ;;
+  esac
+  local beg end
+  if [[ $obj1 && $obj2 ]]; then
+    local surround_beg=$_ble_edit_ind surround_end=$_ble_edit_ind
+    ble/keymap:vi/text-object.impl "$arg" surround-extract-region '' "$obj2"
+    beg=$surround_beg end=$surround_end
+  elif [[ $del == / ]]; then
+    local rex='(/\*([^/]|/[^*])*/?){1,'$arg'}$'
+    [[ ${_ble_edit_str::_ble_edit_ind+2} =~ $rex ]] || return 1
+    beg=$((_ble_edit_ind+2-${#BASH_REMATCH}))
+    ble/string#index-of "${_ble_edit_str:beg+2}" '*/' || return 1
+    end=$((beg+ret+4))
+  elif [[ $del ]]; then
+    local ret
+    ble-edit/content/find-logical-bol; local bol=$ret
+    ble-edit/content/find-logical-eol; local eol=$ret
+    local line=${_ble_edit_str:bol:eol-bol}
+    local ind=$((_ble_edit_ind-bol))
+    if ble/string#last-index-of "${line::ind}" "$del"; then
+      beg=$ret
+    elif local base=$((ind-(2*${#del}-1))); ((base>=0||(base=0)))
+         ble/string#index-of "${line:base:ind+${#del}-base}" "$del"; then
+      beg=$((base+ret))
+    else
+      return 1
+    fi
+    ble/string#index-of "${line:beg+${#del}}" "$del" || return 1
+    end=$((beg+2*${#del}+ret))
+    ((beg+=bol,end+=bol))
+  fi
+  _ble_lib_vim_surround_cs[11]=$del
+  _ble_lib_vim_surround_cs[12]=$obj1
+  _ble_lib_vim_surround_cs[13]=$obj2
+  _ble_lib_vim_surround_cs[14]=$beg
+  _ble_lib_vim_surround_cs[15]=$end
+  _ble_lib_vim_surround_cs[16]=$arg
+  _ble_lib_vim_surround_cs[17]=$trim
+}
+function ble/widget/vim-surround.sh/nmap/csurround.replace {
+  local ins=$1
+  local type=${_ble_lib_vim_surround_cs[0]}
+  local arg=${_ble_lib_vim_surround_cs[1]}
+  local reg=${_ble_lib_vim_surround_cs[2]}
+  local del=${_ble_lib_vim_surround_cs[3]}
+  local del2=${_ble_lib_vim_surround_cs[11]}
+  local obj1=${_ble_lib_vim_surround_cs[12]}
+  local obj2=${_ble_lib_vim_surround_cs[13]}
+  local beg=${_ble_lib_vim_surround_cs[14]}
+  local end=${_ble_lib_vim_surround_cs[15]}
+  local arg2=${_ble_lib_vim_surround_cs[16]}
+  local surround_ins=$ins
+  local surround_type=$type
+  local surround_trim=${_ble_lib_vim_surround_cs[17]}
+  if [[ $obj1 && $obj2 ]]; then
+    local ind=$_ble_edit_ind
+    local _ble_edit_kill_ring _ble_edit_kill_type
+    ble/keymap:vi/text-object.impl "$arg2" y '' "$obj1"; local ext=$?
+    _ble_edit_ind=$ind
+    ((ext!=0)) && return 1
+    local surround_content=$_ble_edit_kill_ring
+    ble/keymap:vi/text-object.impl "$arg2" surround '' "$obj2" || return 1
+  elif [[ $del2 == / ]]; then
+    local surround_content=${_ble_edit_str:beg+2:end-beg-4}
+    ble/keymap:vi/call-operator surround "$beg" "$end" char '' ''
+    _ble_edit_ind=$beg
+  elif [[ $del2 ]]; then
+    local surround_content=${_ble_edit_str:beg+${#del2}:end-beg-2*${#del2}}
+    ble/keymap:vi/call-operator surround "$beg" "$end" char '' ''
+    _ble_edit_ind=$beg
+  else
+    ble/widget/vi-command/bell
+    return 1
+  fi
+  ble/widget/vim-surround.sh/nmap/csurround.record "$type" "$arg" "$reg" "$del" "$ins"
+  ble/keymap:vi/adjust-command-mode
+  return 0
+}
+function ble/widget/vim-surround.sh/nmap/csurround.record {
+  [[ $_ble_keymap_vi_mark_suppress_edit ]] && return 0
+  local type=$1 arg=$2 reg=$3 del=$4 ins=$5
+  local WIDGET=ble/widget/vim-surround.sh/nmap/csurround.repeat ARG=$arg FLAG= REG=$reg
+  ble/keymap:vi/repeat/record
+  if [[ $_ble_decode_keymap == vi_imap ]]; then
+    _ble_keymap_vi_repeat_insert[10]=$type
+    _ble_keymap_vi_repeat_insert[11]=$del
+    _ble_keymap_vi_repeat_insert[12]=$ins
+  else
+    _ble_keymap_vi_repeat[10]=$type
+    _ble_keymap_vi_repeat[11]=$del
+    _ble_keymap_vi_repeat[12]=$ins
+  fi
+}
+function ble/widget/vim-surround.sh/nmap/csurround.repeat {
+  local ARG FLAG REG; ble/keymap:vi/get-arg 1
+  local type=${_ble_keymap_vi_repeat[10]}
+  local del=${_ble_keymap_vi_repeat[11]}
+  local ins=${_ble_keymap_vi_repeat[12]}
+  ble/widget/vim-surround.sh/nmap/csurround.initialize "$type" "$ARG" "$REG" &&
+    ble/widget/vim-surround.sh/nmap/csurround.set-delimiter "$del" &&
+    ble/widget/vim-surround.sh/nmap/csurround.replace "$ins" && return 0
+  ble/widget/vi-command/bell
+  return 1
+}
+function ble/widget/vim-surround.sh/nmap/dsurround {
+  local ARG FLAG REG; ble/keymap:vi/get-arg 1
+  ble/widget/vim-surround.sh/nmap/csurround.initialize ds "$ARG" "$REG"
+  ble/lib/vim-surround.sh/async-inputtarget ble/widget/vim-surround.sh/nmap/dsurround.hook
+}
+function ble/widget/vim-surround.sh/nmap/dsurround.hook {
+  local del=$1
+  ble/widget/vim-surround.sh/nmap/csurround.set-delimiter "$del" &&
+    ble/widget/vim-surround.sh/nmap/csurround.replace '' && return 0
+  ble/widget/vi-command/bell
+  return 1
+}
+function ble/highlight/layer:region/mark:vi_csurround/get-selection {
+  local beg=${_ble_lib_vim_surround_cs[14]}
+  local end=${_ble_lib_vim_surround_cs[15]}
+  selection=("$beg" "$end")
+}
+function ble/highlight/layer:region/mark:vi_csurround/get-face {
+  face=region_target
+}
+function ble/widget/vim-surround.sh/nmap/csurround {
+  ble/widget/vim-surround.sh/nmap/csurround.impl cs
+}
+function ble/widget/vim-surround.sh/nmap/cSurround {
+  ble/widget/vim-surround.sh/nmap/csurround.impl cS
+}
+function ble/widget/vim-surround.sh/nmap/csurround.impl {
+  local ARG FLAG REG; ble/keymap:vi/get-arg 1
+  local type=$1
+  ble/widget/vim-surround.sh/nmap/csurround.initialize "$type" "$ARG" "$REG"
+  ble/lib/vim-surround.sh/async-inputtarget ble/widget/vim-surround.sh/nmap/csurround.hook1
+}
+function ble/widget/vim-surround.sh/nmap/csurround.hook1 {
+  local del=$1
+  if [[ $del ]] && ble/widget/vim-surround.sh/nmap/csurround.set-delimiter "$del"; then
+    _ble_edit_mark_active=vi_csurround
+    ble/lib/vim-surround.sh/async-inputtarget-noarg ble/widget/vim-surround.sh/nmap/csurround.hook2
+    return "$?"
+  fi
+  _ble_lib_vim_surround_cs=()
+  ble/widget/vi-command/bell
+  return 1
+}
+function ble/widget/vim-surround.sh/nmap/csurround.hook2 {
+  local ins=$1
+  if local rex='^ ?[<tT]$'; [[ $ins =~ $rex ]]; then
+    ble/lib/vim-surround.sh/async-read-tagname "ble/widget/vim-surround.sh/nmap/csurround.hook3 '$ins'"
+  else
+    ble/widget/vim-surround.sh/nmap/csurround.hook3 "$ins"
+  fi
+}
+function ble/widget/vim-surround.sh/nmap/csurround.hook3 {
+  local ins=$1 tagName=$2
+  _ble_edit_mark_active= # clear mark:vi_csurround
+  ble/widget/vim-surround.sh/nmap/csurround.replace "$ins$tagName" && return 0
+  ble/widget/vi-command/bell
+  return 1
+}
+function ble/widget/vim-surround.sh/omap {
+  local ret n=${#KEYS[@]}
+  if ! ble/keymap:vi/k2c "${KEYS[n?n-1:0]}"; then
+    ble/widget/.bell
+    return 1
+  fi
+  ble/util/c2s "$ret"; local s=$ret
+  local opfunc=${_ble_keymap_vi_opfunc%%:*}$s
+  local opflags=${_ble_keymap_vi_opfunc#*:}
+  case "$opfunc" in
+  (y[sS])
+    local ARG FLAG REG; ble/keymap:vi/get-arg 1
+    _ble_edit_arg=$ARG
+    _ble_keymap_vi_reg=$REG
+    ble/decode/keymap/pop
+    ble/widget/vi-command/operator "$opfunc:$opflags" ;;
+  (yss)
+    ble/widget/vi_nmap/linewise-operator "yss:$opflags" ;;
+  (yS[sS])
+    ble/widget/vi_nmap/linewise-operator "ySS:$opflags" ;;
+  (ds) ble/widget/vim-surround.sh/nmap/dsurround ;;
+  (cs) ble/widget/vim-surround.sh/nmap/csurround ;;
+  (cS) ble/widget/vim-surround.sh/nmap/cSurround ;;
+  (*) ble/widget/.bell ;;
+  esac
+}
+ble-bind -m vi_xmap -f 'S'   vim-surround.sh/vsurround
+ble-bind -m vi_xmap -f 'g S' vim-surround.sh/vgsurround
+if [[ $bleopt_vim_surround_omap_bind ]]; then
+  ble-bind -m vi_omap -f s 'vim-surround.sh/omap'
+  ble-bind -m vi_omap -f S 'vim-surround.sh/omap'
+else
+  ble-bind -m vi_nmap -f 'y s'   'vi-command/operator ys'
+  ble-bind -m vi_nmap -f 'y s s' 'vim-surround.sh/ysurround-current-line'
+  ble-bind -m vi_nmap -f 'y S'   'vi-command/operator yS'
+  ble-bind -m vi_nmap -f 'y S s' 'vim-surround.sh/ySurround-current-line'
+  ble-bind -m vi_nmap -f 'y S S' 'vim-surround.sh/ySurround-current-line'
+  ble-bind -m vi_nmap -f 'd s' 'vim-surround.sh/nmap/dsurround'
+  ble-bind -m vi_nmap -f 'c s' 'vim-surround.sh/nmap/csurround'
+  ble-bind -m vi_nmap -f 'c S' 'vim-surround.sh/nmap/cSurround'
+fi