diff options
Diffstat (limited to '.local/src/blesh/lib')
22 files changed, 0 insertions, 16257 deletions
diff --git a/.local/src/blesh/lib/core-cmdspec.sh b/.local/src/blesh/lib/core-cmdspec.sh deleted file mode 100644 index 9da62a8..0000000 --- a/.local/src/blesh/lib/core-cmdspec.sh +++ /dev/null @@ -1,66 +0,0 @@ -# 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 deleted file mode 100644 index 9d7c4c1..0000000 --- a/.local/src/blesh/lib/core-complete.sh +++ /dev/null @@ -1,6327 +0,0 @@ -# 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 deleted file mode 100644 index e0dbffd..0000000 --- a/.local/src/blesh/lib/core-decode.emacs-rlfunc.txt +++ /dev/null @@ -1,170 +0,0 @@ -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 deleted file mode 100644 index 8b4dfac..0000000 --- a/.local/src/blesh/lib/core-decode.vi_imap-rlfunc.txt +++ /dev/null @@ -1,169 +0,0 @@ -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 deleted file mode 100644 index a3db96d..0000000 --- a/.local/src/blesh/lib/core-decode.vi_nmap-rlfunc.txt +++ /dev/null @@ -1,170 +0,0 @@ -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 deleted file mode 100644 index 6588f87..0000000 --- a/.local/src/blesh/lib/core-edit.ignoreeof-messages.txt +++ /dev/null @@ -1,32 +0,0 @@ -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 “[1mexit[0m” 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 deleted file mode 100644 index bd566f9..0000000 --- a/.local/src/blesh/lib/core-syntax.sh +++ /dev/null @@ -1,5355 +0,0 @@ -# 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 deleted file mode 100644 index 6adda33..0000000 --- a/.local/src/blesh/lib/core-test.sh +++ /dev/null @@ -1,200 +0,0 @@ -# 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 deleted file mode 100644 index 056654b..0000000 --- a/.local/src/blesh/lib/init-bind.sh +++ /dev/null @@ -1,92 +0,0 @@ -# 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 deleted file mode 100644 index 1a2b4ef..0000000 --- a/.local/src/blesh/lib/init-cmap.sh +++ /dev/null @@ -1,186 +0,0 @@ -# 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 deleted file mode 100644 index 596ef8f..0000000 --- a/.local/src/blesh/lib/init-msys1.sh +++ /dev/null @@ -1,130 +0,0 @@ -# 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 deleted file mode 100644 index cd9647b..0000000 --- a/.local/src/blesh/lib/init-term.sh +++ /dev/null @@ -1,228 +0,0 @@ -# this script is a part of blesh (https://github.com/akinomyoga/ble.sh) under BSD-3-Clause license -_ble_term_tput= -function ble/init:term/tput { return 1; } -if ble/bin/.freeze-utility-path tput; then - ble/bin/tput cuu 1 &>/dev/null && _ble_term_tput=${_ble_term_tput}i - ble/bin/tput UP 1 &>/dev/null && _ble_term_tput=${_ble_term_tput}c - if [[ $_ble_term_tput ]]; then - function ble/init:term/tput { - local type=$_ble_term_tput - if [[ $1 == -c ]]; then # termcap 優先 - shift - [[ $type == ic ]] && type=c - fi - if [[ $type != c ]]; then - ble/bin/tput "${1%%:*}" "${@:2}" 2>/dev/null - else - ble/bin/tput "${1#*:}" "${@:2}" 2>/dev/null - fi - } - fi -fi -function ble/init:term/register-varname { - local name=$1 - varnames[${#varnames[@]}]=$name -} -function ble/init:term/define-cap { - local IFS=$_ble_term_IFS - local name=$1 def=$2 - shift 2 - ble/util/assign "$name" "ble/init:term/tput $* || ble/util/put \"\$def\"" - ble/init:term/register-varname "$name" -} -function ble/init:term/define-cap.2 { - local IFS=$_ble_term_IFS - local name=$1 def=$2 - shift 2 - ble/util/assign "$name" "ble/util/put x; ble/init:term/tput $* || ble/util/put \"\$def\"; ble/util/put x" - builtin eval "$name=\${$name#x}; $name=\${$name%x}" - ble/init:term/register-varname "$name" -} -_ble_term_sgr_term2ansi=() -ble/init:term/register-varname _ble_term_sgr_term2ansi -_ble_term_rex_sgr=$'\e''\[([0-9;:]+)m' -function ble/init:term/define-sgr-param { - local name=$1 seq=$2 ansi=$3 - if [[ $seq =~ $_ble_term_rex_sgr ]]; then - local rematch1=${BASH_REMATCH[1]} - builtin eval "$name=\$rematch1" - if [[ $ansi ]]; then - local rex='^[0-9]+$' - [[ $rematch1 =~ $rex ]] && - [[ ! ${_ble_term_sgr_term2ansi[rematch1]} ]] && - _ble_term_sgr_term2ansi[rematch1]=$ansi - fi - else - builtin eval "$name=" - fi - if [[ $name =~ ^[a-zA-Z_][a-zA-Z_0-9]*$ ]]; then - ble/init:term/register-varname "$name" - fi -} -function ble/init:term/initialize { - local -a varnames=() - _ble_term_xenl=1 - [[ $_ble_term_tput ]] && - ! ble/init:term/tput xenl:xn &>/dev/null && - _ble_term_xenl= - [[ $TERM == sun* ]] && _ble_term_xenl= - ble/init:term/register-varname _ble_term_xenl - _ble_term_bce= - [[ $_ble_term_tput ]] && - ble/init:term/tput bce:ut &>/dev/null && - _ble_term_bce=1 - ble/init:term/register-varname _ble_term_bce - _ble_term_it=8 - if [[ $_ble_term_tput ]]; then - ble/util/assign _ble_term_it 'ble/init:term/tput it:it' - _ble_term_it=${_ble_term_it:-8} - fi - ble/init:term/register-varname _ble_term_it - ble/init:term/define-cap.2 _ble_term_ind $'\n' ind:sf # $'\eD' - ble/init:term/define-cap _ble_term_ri '' ri:sr # $'\eM' - ble/init:term/define-cap _ble_term_cr $'\r' cr:cr - if [[ $OSTYPE == msys && ! $_ble_term_CR ]]; then # msys-1.0 - [[ $_ble_term_cr ]] || _ble_term_cr=$'\e[G' - if [[ $TERM == cygwin ]]; then - [[ $_ble_term_ind == $'\eD' ]] && _ble_term_ind=$'\n' - _ble_term_xenl= - fi - fi - ble/init:term/define-cap _ble_term_cuu $'\e[%dA' cuu:UP 123 - ble/init:term/define-cap _ble_term_cud $'\e[%dB' cud:DO 123 - ble/init:term/define-cap _ble_term_cuf $'\e[%dC' cuf:RI 123 - ble/init:term/define-cap _ble_term_cub $'\e[%dD' cub:LE 123 - _ble_term_cuu=${_ble_term_cuu//123/%d} - _ble_term_cud=${_ble_term_cud//123/%d} - _ble_term_cuf=${_ble_term_cuf//123/%d} - _ble_term_cub=${_ble_term_cub//123/%d} - _ble_term_ri_or_cuu1=${_ble_term_ri:-${_ble_term_cuu//'%d'/1}} - ble/init:term/register-varname _ble_term_ri_or_cuu1 - ble/init:term/define-cap _ble_term_cup $'\e[13;35H' cup:cm 12 34 - _ble_term_cup=${_ble_term_cup//13/%l} - _ble_term_cup=${_ble_term_cup//35/%c} - _ble_term_cup=${_ble_term_cup//12/%y} - _ble_term_cup=${_ble_term_cup//34/%x} - ble/init:term/define-cap _ble_term_hpa "$_ble_term_cr${_ble_term_cuf//'%d'/123}" hpa:ch 123 - _ble_term_hpa=${_ble_term_hpa//123/%x} - _ble_term_hpa=${_ble_term_hpa//124/%c} - ble/init:term/define-cap _ble_term_vpa "${_ble_term_cuu//'%d'/199}${_ble_term_cud//'%d'/123}" vpa:cv 123 - _ble_term_vpa=${_ble_term_vpa//123/%y} - _ble_term_vpa=${_ble_term_vpa//124/%l} - ble/init:term/define-cap _ble_term_clear $'\e[H\e[2J' clear:cl - ble/init:term/define-cap _ble_term_il $'\e[%dL' il:AL 123 - ble/init:term/define-cap _ble_term_dl $'\e[%dM' -c dl:DL 123 - _ble_term_il=${_ble_term_il//123/%d} - _ble_term_dl=${_ble_term_dl//123/%d} - ble/init:term/define-cap _ble_term_el $'\e[K' el:ce - ble/init:term/define-cap _ble_term_el1 $'\e[1K' el1:cb - if [[ $_ble_term_el == $'\e[K' && $_ble_term_el1 == $'\e[1K' ]]; then - _ble_term_el2=$'\e[2K' - else - _ble_term_el2=$_ble_term_el1$_ble_term_el - fi - ble/init:term/register-varname _ble_term_el2 - ble/init:term/define-cap _ble_term_ed $'\e[J' -c ed:cd - ble/init:term/define-cap _ble_term_ich '' ich:IC 123 # CSI @ - ble/init:term/define-cap _ble_term_dch '' dch:DC 123 # CSI P - ble/init:term/define-cap _ble_term_ech '' ech:ec 123 # CSI X - _ble_term_ich=${_ble_term_ich//123/%d} - _ble_term_dch=${_ble_term_dch//123/%d} - _ble_term_ech=${_ble_term_ech//123/%d} - ble/init:term/define-cap _ble_term_sc $'\e7' sc:sc # \e[s - ble/init:term/define-cap _ble_term_rc $'\e8' rc:rc # \e[u - [[ $TERM == minix ]] && _ble_term_sc= _ble_term_rc= - ble/init:term/define-cap _ble_term_Ss '' Ss:Ss 123 # DECSCUSR - _ble_term_Ss=${_ble_term_Ss//123/@1} - ble/init:term/define-cap _ble_term_cvvis $'\e[?25h' cvvis:vs - ble/init:term/define-cap _ble_term_civis $'\e[?25l' civis:vi - [[ $TERM == minix ]] && _ble_term_cvvis= _ble_term_civis= - [[ $_ble_term_cvvis == $'\e[?12;25h' || $_ble_term_cvvis == $'\e[?25;12h' ]] && - _ble_term_cvvis=$'\e[?25h' - [[ $_ble_term_cvvis == $'\e[34l'* && $_ble_term_civis != *$'\e[34h'* ]] && - _ble_term_civis=$_ble_term_civis$'\e[34h' - [[ $_ble_term_civis == $'\e[?25l'* && $_ble_term_cvvis != *$'\e[?25h'* ]] && - _ble_term_cvvis=$_ble_term_cvvis$'\e[?25h' - ble/init:term/define-cap _ble_term_smcup '' smcup:ti # \e[?1049h - ble/init:term/define-cap _ble_term_rmcup '' rmcup:te # \e[?1049l - ble/init:term/define-cap _ble_term_tsl '' tsl:ts - ble/init:term/define-cap _ble_term_fsl '' fsl:fs - ble/init:term/define-cap _ble_term_dsl '' dsl:ds - [[ ! $_ble_term_dsl && $_ble_term_fsl ]] && - _ble_term_dsl=$_ble_term_tsl$_ble_term_fsl - ble/init:term/define-cap _ble_term_sgr0 $'\e[m' sgr0:me - ble/init:term/define-cap _ble_term_bold $'\e[1m' bold:md - ble/init:term/define-cap _ble_term_blink $'\e[5m' blink:mb - ble/init:term/define-cap _ble_term_rev $'\e[7m' rev:mr - ble/init:term/define-cap _ble_term_invis $'\e[8m' invis:mk - ble/init:term/define-sgr-param _ble_term_sgr_bold "$_ble_term_bold" 1 - ble/init:term/define-sgr-param _ble_term_sgr_blink "$_ble_term_blink" 5 - ble/init:term/define-sgr-param _ble_term_sgr_rev "$_ble_term_rev" 7 - ble/init:term/define-sgr-param _ble_term_sgr_invis "$_ble_term_invis" 8 - ble/init:term/define-cap _ble_term_sitm $'\e[3m' sitm:ZH - ble/init:term/define-cap _ble_term_ritm $'\e[23m' ritm:ZR - ble/init:term/define-cap _ble_term_smul $'\e[4m' smul:us - ble/init:term/define-cap _ble_term_rmul $'\e[24m' rmul:ue - ble/init:term/define-cap _ble_term_smso $'\e[7m' smso:so - ble/init:term/define-cap _ble_term_rmso $'\e[27m' rmso:se - ble/init:term/define-sgr-param _ble_term_sgr_sitm "$_ble_term_sitm" 3 - ble/init:term/define-sgr-param _ble_term_sgr_ritm "$_ble_term_ritm" 23 - ble/init:term/define-sgr-param _ble_term_sgr_smul "$_ble_term_smul" 4 - ble/init:term/define-sgr-param _ble_term_sgr_rmul "$_ble_term_rmul" 24 - ble/init:term/define-sgr-param _ble_term_sgr_smso "$_ble_term_smso" 7 - ble/init:term/define-sgr-param _ble_term_sgr_rmso "$_ble_term_rmso" 27 - ble/init:term/register-varname _ble_term_sgr_rev_reset - if [[ $_ble_term_sgr_smso && $_ble_term_sgr_smso == "$_ble_term_sgr_rev" ]]; then - _ble_term_sgr_rev_reset=$_ble_term_sgr_rmso - else - _ble_term_sgr_rev_reset= - fi - ble/init:term/define-cap _ble_term_colors 256 colors:Co - local i - _ble_term_setaf=() - _ble_term_setab=() - _ble_term_sgr_af=() - _ble_term_sgr_ab=() - for ((i=0;i<16;i++)); do - local i1=$((i%8)) af= ab= - if [[ $TERM == *-direct ]]; then - if ((i<8)); then - af=$'\e[3'$i'm' - ab=$'\e[4'$i'm' - else - af=$'\e[38;5;'$i'm' - ab=$'\e[48;5;'$i'm' - fi - else - if ((i<_ble_term_colors)); then - local j1 - ((j1=(i1==3?6: - (i1==6?3: - (i1==1?4: - (i1==4?1:i1)))))) - local j=$((i-i1+j1)) - ble/util/assign af 'ble/init:term/tput setaf:AF "$i" 2>/dev/null' - [[ $af ]] || ble/util/assign af 'ble/init:term/tput setf:Sf "$j" 2>/dev/null' - ble/util/assign ab 'ble/init:term/tput setab:AB "$i" 2>/dev/null' - [[ $ab ]] || ble/util/assign ab 'ble/init:term/tput setb:Sb "$j" 2>/dev/null' - fi - fi - [[ $af ]] || af=$'\e[3'$i1'm' - [[ $ab ]] || ab=$'\e[4'$i1'm' - _ble_term_setaf[i]=$af - _ble_term_setab[i]=$ab - local ansi_sgr_af=3$i1 ansi_sgr_ab=4$i1 - ((i>=8)) && ansi_sgr_af=9$i1 ansi_sgr_ab=10$i1 - ble/init:term/define-sgr-param "_ble_term_sgr_af[i]" "$af" "$ansi_sgr_af" - ble/init:term/define-sgr-param "_ble_term_sgr_ab[i]" "$ab" "$ansi_sgr_ab" - done - ble/init:term/register-varname "_ble_term_setaf" - ble/init:term/register-varname "_ble_term_setab" - ble/init:term/register-varname "_ble_term_sgr_af" - ble/init:term/register-varname "_ble_term_sgr_ab" - ble/util/declare-print-definitions "${varnames[@]}" >| "$_ble_base_cache/term.$TERM" -} -ble/util/put "ble/term.sh: updating tput cache for TERM=$TERM... " >&2 -ble/init:term/initialize -ble/util/print $'\r'"ble/term.sh: updating tput cache for TERM=$TERM... done" >&2 -return 0 diff --git a/.local/src/blesh/lib/test-canvas.sh b/.local/src/blesh/lib/test-canvas.sh deleted file mode 100644 index 6d329ea..0000000 --- a/.local/src/blesh/lib/test-canvas.sh +++ /dev/null @@ -1,479 +0,0 @@ -# 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 deleted file mode 100644 index cd7c0e1..0000000 --- a/.local/src/blesh/lib/test-complete.sh +++ /dev/null @@ -1,28 +0,0 @@ -# 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 deleted file mode 100644 index 712b218..0000000 --- a/.local/src/blesh/lib/test-decode.sh +++ /dev/null @@ -1,39 +0,0 @@ -# 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 deleted file mode 100644 index f9d8211..0000000 --- a/.local/src/blesh/lib/test-edit.sh +++ /dev/null @@ -1,8 +0,0 @@ -# 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 deleted file mode 100644 index dc6cb57..0000000 --- a/.local/src/blesh/lib/test-main.sh +++ /dev/null @@ -1,79 +0,0 @@ -# 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 deleted file mode 100644 index 4e339a7..0000000 --- a/.local/src/blesh/lib/test-syntax.sh +++ /dev/null @@ -1,39 +0,0 @@ -# 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 deleted file mode 100644 index 4ec1155..0000000 --- a/.local/src/blesh/lib/test-util.sh +++ /dev/null @@ -1,1555 +0,0 @@ -# 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 deleted file mode 100644 index b4d8b6e..0000000 --- a/.local/src/blesh/lib/vim-airline.sh +++ /dev/null @@ -1,306 +0,0 @@ -# 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 deleted file mode 100644 index cb59766..0000000 --- a/.local/src/blesh/lib/vim-arpeggio.sh +++ /dev/null @@ -1,48 +0,0 @@ -# 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 deleted file mode 100644 index fc5002c..0000000 --- a/.local/src/blesh/lib/vim-surround.sh +++ /dev/null @@ -1,551 +0,0 @@ -# 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 |