-
-
Notifications
You must be signed in to change notification settings - Fork 76
/
ble.pp
2257 lines (2045 loc) · 73.7 KB
/
ble.pp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
#!/bin/bash
#%$> out/ble.sh
#%[release = 0]
#%[measure_load_time = 0]
#%[debug_keylogger = 1]
#%#----------------------------------------------------------------------------
#%if measure_load_time
_ble_debug_measure_fork_count=$(echo $BASHPID)
TIMEFORMAT='[Elapsed %Rs; CPU U:%Us S:%Ss (%P%%)]'
function ble/debug/measure-set-timeformat {
local title=$1 opts=$2
local new=$(echo $BASHPID)
local fork=$(((new-_ble_debug_measure_fork_count-1)&0xFFFF))
_ble_debug_measure_fork_count=$new
TIMEFORMAT="[Elapsed %Rs; CPU U:%Us S:%Ss (%P%%)] $title"
[[ :$opts: != *:nofork:* ]] &&
TIMEFORMAT=$TIMEFORMAT" ($fork forks)"
}
#%end
#%define inc
#%%[guard_name = "@_included".replace("[^_a-zA-Z0-9]", "_")]
#%%expand
#%%%if $"guard_name" != 1
#%%%%[$"guard_name" = 1]
###############################################################################
# Included from @.sh
#%%%%if measure_load_time
time {
#%%%%%include @.sh
ble/debug/measure-set-timeformat '@.sh'
}
#%%%%else
#%%%%%include @.sh
#%%%%end
#%%%end
#%%end.i
#%end
#%#----------------------------------------------------------------------------
# ble.sh -- Bash Line Editor (https://github.com/akinomyoga/ble.sh)
#
# Bash configuration designed to be sourced in interactive bash sessions.
#
# Copyright: 2013, 2015-2019, Koichi Murase <myoga.murase@gmail.com>
#
#%if measure_load_time
echo "ble.sh: $EPOCHREALTIME load start" >&2
time {
echo "ble.sh: $EPOCHREALTIME parsed" >&2
# load_time (2015-12-03)
# core 12ms
# decode 10ms
# color 2ms
# edit 9ms
# syntax 5ms
# ble-initialize 14ms
time {
#%end
#------------------------------------------------------------------------------
# check --help or --version
{
#%$ echo "_ble_init_version=$FULLVER+$(git show -s --format=%h)"
_ble_init_exit=
_ble_init_command=
for _ble_init_arg; do
case $_ble_init_arg in
--version)
_ble_init_exit=0
echo "ble.sh (Bash Line Editor), version $_ble_init_version" ;;
--help)
_ble_init_exit=0
printf '%s\n' \
"# ble.sh (Bash Line Editor), version $_ble_init_version" \
'usage: source ble.sh [OPTION...]' \
'' \
'OPTION' \
'' \
' --help' \
' Show this help and exit' \
' --version' \
' Show version and exit' \
' --test' \
' Run test and exit' \
' --update' \
' Update ble.sh and exit' \
' --clear-cache' \
' Clear ble.sh cache and exit' \
'' \
' --rcfile=BLERC' \
' --init-file=BLERC' \
' Specify the ble init file. The default is ~/.blerc.' \
'' \
' --norc' \
' Do not load the ble init file.' \
'' \
' --attach=ATTACH' \
' --noattach' \
' The option "--attach" selects the strategy of "ble-attach" from the' \
' list: ATTACH = "attach" | "prompt" | "none". The default strategy is' \
' "prompt". The option "--noattach" is a synonym for "--attach=none".' \
'' \
' --noinputrc' \
' Do not read inputrc settings for ble.sh' \
'' \
' --keep-rlvars' \
' Do not change readline settings for ble.sh' \
'' \
' -o BLEOPT=VALUE' \
' Set a value for the specified bleopt option.' \
' --debug-bash-output' \
' Internal settings for debugging' \
'' ;;
--test | --update | --clear-cache | --lib) _ble_init_command=1 ;;
esac
done
if [ -n "$_ble_init_exit" ]; then
unset _ble_init_version
unset _ble_init_arg
unset _ble_init_exit
unset _ble_init_command
return 0 2>/dev/null || exit 0
fi
} 2>/dev/null # set -x 対策 #D0930
#------------------------------------------------------------------------------
# check shell
if [ -z "${BASH_VERSION-}" ]; then
echo "ble.sh: This shell is not Bash. Please use this script with Bash." >&3
return 1 2>/dev/null || exit 1
fi 3>&2 >/dev/null 2>&1 # set -x 対策 #D0930
if [ -z "${BASH_VERSINFO-}" ] || [ "${BASH_VERSINFO-0}" -lt 3 ]; then
echo "ble.sh: Bash with a version under 3.0 is not supported." >&3
return 1 2>/dev/null || exit 1
fi 3>&2 >/dev/null 2>&1 # set -x 対策 #D0930
if [[ ! $_ble_init_command ]]; then
if [[ ${BASH_EXECUTION_STRING+set} ]]; then
# builtin echo "ble.sh: ble.sh will not be activated for Bash started with '-c' option." >&3
return 1 2>/dev/null || builtin exit 1
fi
if ((BASH_SUBSHELL)); then
builtin echo "ble.sh: ble.sh cannot be loaded into a subshell." >&3
return 1 2>/dev/null || builtin exit 1
elif [[ $- != *i* ]]; then
case " ${BASH_SOURCE[*]##*/} " in
(*' .bashrc '* | *' .bash_profile '* | *' .profile '* | *' bashrc '* | *' profile '*) false ;;
esac &&
builtin echo "ble.sh: This is not an interactive session." >&3 || ((1))
return 1 2>/dev/null || builtin exit 1
elif ! [[ -t 4 && -t 5 ]] && ! ((1)) >/dev/tty; then
builtin echo "ble.sh: cannot find a controlling TTY/PTY in this session." >&3
return 1 2>/dev/null || builtin exit 1
fi
fi 3>&2 4<&0 5>&1 &>/dev/null # set -x 対策 #D0930
{
## @var _ble_bash_POSIXLY_CORRECT_adjusted
## 現在 POSIXLY_CORRECT 状態を待避した状態かどうかを保持します。
## @var _ble_bash_POSIXLY_CORRECT_set
## 待避した POSIXLY_CORRECT の設定・非設定状態を保持します。
## @var _ble_bash_POSIXLY_CORRECT_set
## 待避した POSIXLY_CORRECT の値を保持します。
_ble_bash_POSIXLY_CORRECT_adjusted=1
_ble_bash_POSIXLY_CORRECT_set=${POSIXLY_CORRECT+set}
_ble_bash_POSIXLY_CORRECT=${POSIXLY_CORRECT-}
POSIXLY_CORRECT=y
# 暫定対策 expand_aliases (ble/base/adjust-bash-options を呼び出す迄の暫定)
_ble_bash_expand_aliases=
\shopt -q expand_aliases &&
_ble_bash_expand_aliases=1 &&
\shopt -u expand_aliases || ((1))
# 対策 FUNCNEST
_ble_bash_FUNCNEST_adjusted=
_ble_bash_FUNCNEST=
_ble_bash_FUNCNEST_set=
_ble_bash_FUNCNEST_adjust='
if [[ ! $_ble_bash_FUNCNEST_adjusted ]]; then
_ble_bash_FUNCNEST_adjusted=1
_ble_bash_FUNCNEST_set=${FUNCNEST+set}
_ble_bash_FUNCNEST=${FUNCNEST-}
builtin unset -v FUNCNEST
fi 2>/dev/null'
_ble_bash_FUNCNEST_restore='
if [[ $_ble_bash_FUNCNEST_adjusted ]]; then
_ble_bash_FUNCNEST_adjusted=
if [[ $_ble_bash_FUNCNEST_set ]]; then
FUNCNEST=$_ble_bash_FUNCNEST
else
builtin unset -v FUNCNEST
fi
fi 2>/dev/null'
\builtin eval -- "$_ble_bash_FUNCNEST_adjust"
\builtin unset -v POSIXLY_CORRECT
} 2>/dev/null
function ble/base/workaround-POSIXLY_CORRECT {
# This function will be overwritten by ble-decode
true
}
function ble/base/unset-POSIXLY_CORRECT {
if [[ ${POSIXLY_CORRECT+set} ]]; then
builtin unset -v POSIXLY_CORRECT
ble/base/workaround-POSIXLY_CORRECT
fi
}
function ble/base/adjust-POSIXLY_CORRECT {
if [[ $_ble_bash_POSIXLY_CORRECT_adjusted ]]; then return 0; fi # Note: set -e 対策
_ble_bash_POSIXLY_CORRECT_adjusted=1
_ble_bash_POSIXLY_CORRECT_set=${POSIXLY_CORRECT+set}
_ble_bash_POSIXLY_CORRECT=${POSIXLY_CORRECT-}
if [[ $_ble_bash_POSIXLY_CORRECT_set ]]; then
builtin unset -v POSIXLY_CORRECT
fi
# ユーザが触ったかもしれないので何れにしても workaround を呼び出す。
ble/base/workaround-POSIXLY_CORRECT
}
function ble/base/restore-POSIXLY_CORRECT {
if [[ ! $_ble_bash_POSIXLY_CORRECT_adjusted ]]; then return 0; fi # Note: set -e の為 || は駄目
_ble_bash_POSIXLY_CORRECT_adjusted=
if [[ $_ble_bash_POSIXLY_CORRECT_set ]]; then
POSIXLY_CORRECT=$_ble_bash_POSIXLY_CORRECT
else
ble/base/unset-POSIXLY_CORRECT
fi
}
function ble/base/is-POSIXLY_CORRECT {
if [[ $_ble_bash_POSIXLY_CORRECT_adjusted ]]; then
[[ $_ble_bash_POSIXLY_CORRECT_set ]]
else
[[ ${POSIXLY_CORRECT+set} ]]
fi
}
{
_ble_bash_builtins_adjusted=
_ble_bash_builtins_save=
} 2>/dev/null # set -x 対策
function ble/base/adjust-builtin-wrappers/.assign {
if [[ ${_ble_util_assign_base-} ]]; then
local _ble_local_tmpfile; ble/util/assign/.mktmp
builtin eval -- "$1" >| "$_ble_local_tmpfile"
IFS= builtin read -r -d '' defs < "$_ble_local_tmpfile"
ble/util/assign/.rmtmp
else
defs=$(builtin eval -- "$1")
fi || ((1))
}
function ble/base/adjust-builtin-wrappers-1 {
# Note: 何故か local POSIXLY_CORRECT の効果が
# builtin unset -v POSIXLY_CORRECT しても残存するので関数に入れる。
# Note: set -o posix にしても read, type, builtin, local 等は上書き
# された儘なので難しい。unset -f builtin さえすれば色々動く様になる
# ので builtin は unset -f builtin してしまう。
unset -f builtin
builtin local POSIXLY_CORRECT=y builtins1 keywords1
builtins1=(builtin unset enable unalias return break continue declare local typeset readonly eval exec set)
keywords1=(if then elif else case esac while until for select do done '{' '}' '[[' function)
if [[ ! $_ble_bash_builtins_adjusted ]]; then
_ble_bash_builtins_adjusted=1
builtin local defs
ble/base/adjust-builtin-wrappers/.assign '
\builtin declare -f "${builtins1[@]}" || ((1))
\builtin alias "${builtins1[@]}" "${keywords1[@]}" || ((1))' # set -e 対策
_ble_bash_builtins_save=$defs
fi
builtin unset -f "${builtins1[@]}"
builtin unalias "${builtins1[@]}" "${keywords1[@]}" || ((1)) # set -e 対策
ble/base/unset-POSIXLY_CORRECT
} 2>/dev/null
function ble/base/adjust-builtin-wrappers-2 {
# Workaround (bash-3.0..4.3) #D0722
#
# builtin unset -v POSIXLY_CORRECT でないと unset -f : できないが、
# bash-3.0 -- 4.3 のバグで、local POSIXLY_CORRECT の時、
# builtin unset -v POSIXLY_CORRECT しても POSIXLY_CORRECT が有効であると判断されるので、
# "unset -f :" (非POSIX関数名) は別関数で adjust-POSIXLY_CORRECT の後で実行することにする。
# function :, alias : の保存
local defs
ble/base/adjust-builtin-wrappers/.assign 'LC_ALL= LC_MESSAGES=C builtin type :; alias :' || ((1)) # set -e 対策
defs=${defs#$': is a function\n'}
_ble_bash_builtins_save=$_ble_bash_builtins_save$'\n'$defs
builtin unset -f :
builtin unalias : || ((1)) # set -e 対策
} 2>/dev/null
function ble/base/restore-builtin-wrappers {
if [[ $_ble_bash_builtins_adjusted ]]; then
_ble_bash_builtins_adjusted=
builtin eval -- "$_ble_bash_builtins_save"
fi
}
{
ble/base/adjust-builtin-wrappers-1
ble/base/adjust-builtin-wrappers-2
# 対策 expand_aliases (暫定) 終了
if [[ $_ble_bash_expand_aliases ]]; then
shopt -s expand_aliases
fi
} 2>/dev/null # set -x 対策
# From src/util.sh
function ble/variable#copy-state {
local src=$1 dst=$2
if [[ ${!src+set} ]]; then
builtin eval -- "$dst=\${$src}"
else
builtin unset -v "$dst[0]" 2>/dev/null || builtin unset -v "$dst"
fi
}
# BASH_XTRACEFD は書き換えると勝手に元々設定されていた fd を閉じてしまうので、
# 元々の fd を dup しておくなど特別な配慮が必要。
{
_ble_bash_xtrace=()
_ble_bash_xtrace_debug_enabled=
_ble_bash_xtrace_debug_filename=
_ble_bash_xtrace_debug_fd=
_ble_bash_XTRACEFD=
_ble_bash_XTRACEFD_set=
_ble_bash_XTRACEFD_dup=
_ble_bash_PS4=
} 2>/dev/null # set -x 対策
# From src/util.sh (ble/fd#is-open and ble/fd#alloc/.nextfd)
function ble/base/xtrace/.fdcheck { builtin : >&"$1"; } 2>/dev/null
function ble/base/xtrace/.fdnext {
local __init=${_ble_util_openat_nextfd:=${bleopt_openat_base:-30}}
for (($1=__init;$1<__init+1024;$1++)); do ble/base/xtrace/.fdcheck "${!1}" || break; done
(($1<__init+1024)) || { (($1=__init,_ble_util_openat_nextfd++)); builtin eval "exec ${!1}>&-"; } || ((1))
}
function ble/base/xtrace/.log {
local bash=${_ble_bash:-$((BASH_VERSINFO[0]*10000+BASH_VERSINFO[1]*100+BASH_VERSINFO[2]))}
local open=---- close=----
if ((bash>=40200)); then
builtin printf '%s [%(%F %T %Z)T] %s %s\n' "$open" -1 "$1" "$close"
else
builtin printf '%s [%s] %s %s\n' "$open" "$(date 2>/dev/null)" "$1" "$close"
fi >&"${BASH_XTRACEFD:-2}"
}
function ble/base/xtrace/adjust {
local level=${#_ble_bash_xtrace[@]} IFS=$' \t\n'
if [[ $- == *x* ]]; then
_ble_bash_xtrace[level]=1
else
_ble_bash_xtrace[level]=
fi
set +x
((level==0)) || return 0
_ble_bash_xtrace_debug_enabled=
if [[ ${bleopt_debug_xtrace:-/dev/null} == /dev/null ]]; then
if [[ $_ble_bash_xtrace_debug_fd ]]; then
builtin eval "exec $_ble_bash_xtrace_debug_fd>&-" || return 0
_ble_bash_xtrace_debug_filename=
_ble_bash_xtrace_debug_fd=
fi
else
if [[ $_ble_bash_xtrace_debug_filename != "$bleopt_debug_xtrace" ]]; then
_ble_bash_xtrace_debug_filename=$bleopt_debug_xtrace
[[ $_ble_bash_xtrace_debug_fd ]] || ble/base/xtrace/.fdnext _ble_bash_xtrace_debug_fd
builtin eval "exec $_ble_bash_xtrace_debug_fd>>\"$bleopt_debug_xtrace\"" || return 0
fi
_ble_bash_XTRACEFD=${BASH_XTRACEFD-}
_ble_bash_XTRACEFD_set=${BASH_XTRACEFD+set}
if [[ ${BASH_XTRACEFD-} =~ ^[0-9]+$ ]] && ble/base/xtrace/.fdcheck "$BASH_XTRACEFD"; then
ble/base/xtrace/.fdnext _ble_bash_XTRACEFD_dup
builtin eval "exec $_ble_bash_XTRACEFD_dup>&$BASH_XTRACEFD" || return 0
builtin eval "exec $BASH_XTRACEFD>&$_ble_bash_xtrace_debug_fd" || return 0
else
_ble_bash_XTRACEFD_dup=
local newfd; ble/base/xtrace/.fdnext newfd
builtin eval "exec $newfd>&$_ble_bash_xtrace_debug_fd" || return 0
BASH_XTRACEFD=$newfd
fi
ble/variable#copy-state PS4 _ble_base_PS4
PS4=${bleopt_debug_xtrace_ps4:-'+ '}
_ble_bash_xtrace_debug_enabled=1
ble/base/xtrace/.log "$FUNCNAME"
set -x
fi
}
function ble/base/xtrace/restore {
local level=$((${#_ble_bash_xtrace[@]}-1)) IFS=$' \t\n'
((level>=0)) || return 0
if [[ ${_ble_bash_xtrace[level]-} ]]; then
set -x
else
set +x
fi
builtin unset -v '_ble_bash_xtrace[level]'
((level==0)) || return 0
if [[ $_ble_bash_xtrace_debug_enabled ]]; then
ble/base/xtrace/.log "$FUNCNAME"
_ble_bash_xtrace_debug_enabled=
# Note: ユーザーの BASH_XTRACEFD にごみが混入しない様にする為、
# BASH_XTRACEFD を書き換える前に先に PS4 を戻す。
ble/variable#copy-state _ble_base_PS4 PS4
if [[ $_ble_bash_XTRACEFD_dup ]]; then
# BASH_XTRACEFD の fd を元の出力先に繋ぎ直す
builtin eval "exec $BASH_XTRACEFD>&$_ble_bash_XTRACEFD_dup" &&
builtin eval "exec $_ble_bash_XTRACEFD_dup>&-" || ((1))
else
# BASH_XTRACEFD の fd は新しく割り当てた fd なので値上書きで閉じて良い
if [[ $_ble_bash_XTRACEFD_set ]]; then
BASH_XTRACEFD=$_ble_bash_XTRACEFD
else
builtin unset -v BASH_XTRACEFD
fi
fi
fi
}
function ble/base/.adjust-bash-options {
builtin eval -- "$1=\$-"
set +evukT -B
ble/base/xtrace/adjust
[[ $2 == shopt ]] || local shopt
if ((_ble_bash>=40100)); then
shopt=$BASHOPTS
else
# Note: nocasematch は bash-3.1 以上
shopt=
shopt -q extdebug 2>/dev/null && shopt=$shopt:extdebug
shopt -q nocasematch 2>/dev/null && shopt=$shopt:nocasematch
fi
[[ $2 == shopt ]] || builtin eval -- "$2=\$shopt"
shopt -u extdebug
shopt -u nocasematch 2>/dev/null
return 0
} 2>/dev/null # set -x 対策
## @fn ble/base/.restore-bash-options var_set var_shopt
## @param[out] var_set var_shopt
function ble/base/.restore-bash-options {
local set=${!1} shopt=${!2}
[[ :$shopt: == *:nocasematch:* ]] && shopt -s nocasematch
[[ :$shopt: == *:extdebug:* ]] && shopt -s extdebug
ble/base/xtrace/restore
[[ $set == *B* ]] || set +B
[[ $set == *T* ]] && set -T
[[ $set == *k* ]] && set -k
[[ $set == *u* ]] && set -u
[[ $set == *v* ]] && set -v
[[ $set == *e* ]] && set -e # set -e は最後
return 0
} 2>/dev/null # set -x 対策
{
: "${_ble_bash_options_adjusted=}"
_ble_bash_set=$-
_ble_bash_shopt=${BASHOPTS-}
} 2>/dev/null # set -x 対策
function ble/base/adjust-bash-options {
[[ $_ble_bash_options_adjusted ]] && return 1 || ((1)) # set -e 対策
_ble_bash_options_adjusted=1
ble/base/.adjust-bash-options _ble_bash_set _ble_bash_shopt
# Note: expand_aliases はユーザー設定を復元する為に記録する
_ble_bash_expand_aliases=
shopt -q expand_aliases 2>/dev/null &&
_ble_bash_expand_aliases=1
# locale 待避
# Note #D1854: ble/widget/display-shell-version で此処で待避した変数を参照す
# る事に注意する。此処に新しい変数を追加する時は display-shell-version の方
# にも処理スキップを追加する必要がある。
ble/variable#copy-state LC_ALL _ble_bash_LC_ALL
if [[ ${LC_ALL-} ]]; then
ble/variable#copy-state LC_CTYPE _ble_bash_LC_CTYPE
ble/variable#copy-state LC_MESSAGES _ble_bash_LC_MESSAGES
ble/variable#copy-state LC_NUMERIC _ble_bash_LC_NUMERIC
ble/variable#copy-state LC_TIME _ble_bash_LC_TIME
ble/variable#copy-state LANG _ble_bash_LANG
[[ ${LC_CTYPE-} ]] && LC_CTYPE=$LC_ALL
[[ ${LC_MESSAGES-} ]] && LC_MESSAGES=$LC_ALL
[[ ${LC_NUMERIC-} ]] && LC_NUMERIC=$LC_ALL
[[ ${LC_TIME-} ]] && LC_TIME=$LC_ALL
LANG=$LC_ALL
LC_ALL=
fi
ble/variable#copy-state LC_COLLATE _ble_bash_LC_COLLATE
LC_COLLATE=C
# TMOUT 確認 #D1630 WA readonly TMOUT
if local TMOUT= 2>/dev/null; then # #D1630 WA
_ble_bash_tmout_wa=()
else
_ble_bash_tmout_wa=(-t 2147483647)
fi
} 2>/dev/null # set -x 対策 #D0930 / locale 変更
function ble/base/restore-bash-options {
[[ $_ble_bash_options_adjusted ]] || return 1
_ble_bash_options_adjusted=
# locale 復元
ble/variable#copy-state _ble_bash_LC_COLLATE LC_COLLATE
if [[ $_ble_bash_LC_ALL ]]; then
ble/variable#copy-state _ble_bash_LC_CTYPE LC_CTYPE
ble/variable#copy-state _ble_bash_LC_MESSAGES LC_MESSAGES
ble/variable#copy-state _ble_bash_LC_NUMERIC LC_NUMERIC
ble/variable#copy-state _ble_bash_LC_TIME LC_TIME
ble/variable#copy-state _ble_bash_LANG LANG
fi
ble/variable#copy-state _ble_bash_LC_ALL LC_ALL
[[ $_ble_bash_nocasematch ]] && shopt -s nocasematch
ble/base/.restore-bash-options _ble_bash_set _ble_bash_shopt
} 2>/dev/null # set -x 対策 #D0930 / locale 変更
function ble/base/recover-bash-options {
# bind -x が終わる度に設定が復元されてしまうので毎回設定し直す #D1526 #D1574
if [[ $_ble_bash_expand_aliases ]]; then
shopt -s expand_aliases
else
shopt -u expand_aliases
fi
}
{ ble/base/adjust-bash-options; } &>/dev/null # set -x 対策 #D0930
builtin bind &>/dev/null # force to load .inputrc
# WA #D1534 workaround for msys2 .inputrc
if [[ $OSTYPE == msys* ]]; then
[[ $(builtin bind -m emacs -p 2>/dev/null | grep '"\\C-?"') == '"\C-?": backward-kill-line' ]] &&
builtin bind -m emacs '"\C-?": backward-delete-char' 2>/dev/null
fi
if [[ ! -o emacs && ! -o vi && ! $_ble_init_command ]]; then
builtin echo "ble.sh: ble.sh is not intended to be used with the line-editing mode disabled (--noediting)." >&2
ble/base/restore-bash-options
ble/base/restore-builtin-wrappers
ble/base/restore-POSIXLY_CORRECT
builtin eval -- "$_ble_bash_FUNCNEST_restore"
return 1 2>/dev/null || builtin exit 1
fi
if shopt -q restricted_shell; then
builtin echo "ble.sh: ble.sh is not intended to be used in restricted shells (--restricted)." >&2
ble/base/restore-bash-options
ble/base/restore-builtin-wrappers
ble/base/restore-POSIXLY_CORRECT
builtin eval -- "$_ble_bash_FUNCNEST_restore"
return 1 2>/dev/null || builtin exit 1
fi
#--------------------------------------
# save IFS / BASH_REMATCH
function ble/init/adjust-IFS {
_ble_init_original_IFS_set=${IFS+set}
_ble_init_original_IFS=$IFS
IFS=$' \t\n'
}
function ble/init/restore-IFS {
if [[ $_ble_init_original_IFS_set ]]; then
IFS=$_ble_init_original_IFS
else
builtin unset -v IFS
fi
builtin unset -v _ble_init_original_IFS_set
builtin unset -v _ble_init_original_IFS
}
if ((_ble_bash>=50100)); then
_ble_bash_BASH_REMATCH_level=0
_ble_bash_BASH_REMATCH=()
function ble/base/adjust-BASH_REMATCH {
((_ble_bash_BASH_REMATCH_level++==0)) || return 0
_ble_bash_BASH_REMATCH=("${BASH_REMATCH[@]}")
}
function ble/base/restore-BASH_REMATCH {
((_ble_bash_BASH_REMATCH_level>0&&
--_ble_bash_BASH_REMATCH_level==0)) || return 0
BASH_REMATCH=("${_ble_bash_BASH_REMATCH[@]}")
}
else
_ble_bash_BASH_REMATCH_level=0
_ble_bash_BASH_REMATCH=()
_ble_bash_BASH_REMATCH_rex=none
## @fn ble/base/adjust-BASH_REMATCH/increase delta
## @param[in] delta
## @var[in,out] i rex
function ble/base/adjust-BASH_REMATCH/increase {
local delta=$1
((delta)) || return 1
((i+=delta))
if ((delta==1)); then
rex=$rex.
else
rex=$rex.{$delta}
fi
}
function ble/base/adjust-BASH_REMATCH/is-updated {
local i n=${#_ble_bash_BASH_REMATCH[@]}
((n!=${#BASH_REMATCH[@]})) && return 0
for ((i=0;i<n;i++)); do
[[ ${_ble_bash_BASH_REMATCH[i]} != "${BASH_REMATCH[i]}" ]] && return 0
done
return 1
}
# This is a simplified version of ble/string#index-of text sub
function ble/base/adjust-BASH_REMATCH/.find-substr {
local t=${1#*"$2"}
((ret=${#1}-${#t}-${#2},ret<0&&(ret=-1),ret>=0))
}
function ble/base/adjust-BASH_REMATCH {
((_ble_bash_BASH_REMATCH_level++==0)) || return 0
ble/base/adjust-BASH_REMATCH/is-updated || return 1
local size=${#BASH_REMATCH[@]}
if ((size==0)); then
_ble_bash_BASH_REMATCH=()
_ble_bash_BASH_REMATCH_rex=none
return 0
fi
local rex= i=0
local text=$BASH_REMATCH sub ret isub
local -a rparens=()
local isub rex i=0 count=0
for ((isub=1;isub<size;isub++)); do
local sub=${BASH_REMATCH[isub]}
# 既存の子一致の孫一致になるか確認
while ((count>=1)); do
local end=${rparens[count-1]}
if ble/base/adjust-BASH_REMATCH/.find-substr "${text:i:end-i}" "$sub"; then
ble/base/adjust-BASH_REMATCH/increase "$ret"
((rparens[count++]=i+${#sub}))
rex=$rex'('
break
else
ble/base/adjust-BASH_REMATCH/increase "$((end-i))"
rex=$rex')'
builtin unset -v 'rparens[--count]'
fi
done
((count>0)) && continue
# 新しい子一致
if ble/base/adjust-BASH_REMATCH/.find-substr "${text:i}" "$sub"; then
ble/base/adjust-BASH_REMATCH/increase "$ret"
((rparens[count++]=i+${#sub}))
rex=$rex'('
else
break # 復元失敗
fi
done
while ((count>=1)); do
local end=${rparens[count-1]}
ble/base/adjust-BASH_REMATCH/increase "$((end-i))"
rex=$rex')'
builtin unset -v 'rparens[--count]'
done
ble/base/adjust-BASH_REMATCH/increase "$((${#text}-i))"
_ble_bash_BASH_REMATCH=("${BASH_REMATCH[@]}")
_ble_bash_BASH_REMATCH_rex=$rex
}
function ble/base/restore-BASH_REMATCH {
((_ble_bash_BASH_REMATCH_level>0&&
--_ble_bash_BASH_REMATCH_level==0)) || return 0
[[ $_ble_bash_BASH_REMATCH =~ $_ble_bash_BASH_REMATCH_rex ]]
}
fi
ble/init/adjust-IFS
ble/base/adjust-BASH_REMATCH
## @fn ble/init/clean-up [opts]
function ble/init/clean-up {
local ext=$? opts=$1 # preserve exit status
# 一時グローバル変数消去
builtin unset -v _ble_init_version
builtin unset -v _ble_init_arg
builtin unset -v _ble_init_exit
builtin unset -v _ble_init_command
builtin unset -v _ble_init_attached
# 状態復元
ble/base/restore-BASH_REMATCH
ble/init/restore-IFS
if [[ :$opts: != *:check-attach:* && ! $_ble_attached ]]; then
ble/base/restore-bash-options
ble/base/restore-POSIXLY_CORRECT
ble/base/restore-builtin-wrappers
builtin eval -- "$_ble_bash_FUNCNEST_restore"
fi
return "$ext"
}
#------------------------------------------------------------------------------
# read arguments
function ble/util/put { builtin printf '%s' "$1"; }
function ble/util/print { builtin printf '%s\n' "$1"; }
function ble/util/print-lines { builtin printf '%s\n' "$@"; }
_ble_base_arguments_opts=
_ble_base_arguments_attach=
_ble_base_arguments_rcfile=
## @fn ble/base/read-blesh-arguments args
## @var[out] _ble_base_arguments_opts
## @var[out] _ble_base_arguments_attach
## @var[out] _ble_base_arguments_rcfile
function ble/base/read-blesh-arguments {
local opts=
local opt_attach=prompt
_ble_init_command= # 再解析
while (($#)); do
local arg=$1; shift
case $arg in
(--noattach|noattach)
opt_attach=none ;;
(--attach=*) opt_attach=${arg#*=} ;;
(--attach)
if (($#)); then
opt_attach=$1; shift
else
opt_attach=attach
opts=$opts:E
ble/util/print "ble.sh ($arg): an option argument is missing." >&2
fi ;;
(--noinputrc)
opts=$opts:noinputrc ;;
(--rcfile=*|--init-file=*|--rcfile|--init-file)
if [[ $arg != *=* ]]; then
local rcfile=$1; shift
else
local rcfile=${arg#*=}
fi
_ble_base_arguments_rcfile=${rcfile:-/dev/null}
if [[ ! $rcfile || ! -e $rcfile ]]; then
ble/util/print "ble.sh ($arg): '$rcfile' does not exist." >&2
opts=$opts:E
elif [[ ! -r $rcfile ]]; then
ble/util/print "ble.sh ($arg): '$rcfile' is not readable." >&2
opts=$opts:E
fi ;;
(--norc)
_ble_base_arguments_rcfile=/dev/null ;;
(--keep-rlvars)
opts=$opts:keep-rlvars ;;
(--debug-bash-output)
bleopt_internal_suppress_bash_output= ;;
(--test | --update | --clear-cache | --lib)
if [[ $_ble_init_command ]]; then
ble/util/print "ble.sh ($arg): the option '--$_ble_init_command' has already been specified." >&2
opts=$opts:E
else
_ble_init_command=${arg#--}
fi ;;
(--*)
ble/util/print "ble.sh: unrecognized long option '$arg'" >&2
opts=$opts:E ;;
(-?*)
local i c
for ((i=1;i<${#arg};i++)); do
c=${arg:i:1}
case -$c in
(-o)
if ((i+1<${#arg})); then
local oarg=${arg:i+1}
i=${#arg}
elif (($#)); then
local oarg=$1; shift
else
opts=$opts:E
i=${#arg}
continue
fi
local rex='^[_a-zA-Z][_a-zA-Z0-9]*='
if [[ $oarg =~ $rex ]]; then
builtin eval -- "bleopt_${oarg%%=*}=\${oarg#*=}"
else
ble/util/print "ble.sh: unrecognized option '-o $oarg'" >&2
opts=$opts:E
fi ;;
(-*)
ble/util/print "ble.sh: unrecognized option '-$c'" >&2
opts=$opts:E ;;
esac
done
;;
(*)
ble/util/print "ble.sh: unrecognized argument '$arg'" >&2
opts=$opts:E ;;
esac
done
_ble_base_arguments_opts=$opts
_ble_base_arguments_attach=$opt_attach
[[ :$opts: != *:E:* ]]
}
if ! ble/base/read-blesh-arguments "$@"; then
builtin echo "ble.sh: cancel initialization." >&2
ble/init/clean-up 2>/dev/null # set -x 対策 #D0930
return 2 2>/dev/null || builtin exit 2
fi
if [[ ${_ble_base-} ]]; then
[[ $_ble_init_command ]] && _ble_init_attached=$_ble_attached
if ! ble/base/unload-for-reload; then
builtin echo "ble.sh: an old version of ble.sh seems to be already loaded." >&2
ble/init/clean-up 2>/dev/null # set -x 対策 #D0930
return 1 2>/dev/null || builtin exit 1
fi
fi
#------------------------------------------------------------------------------
# Initialize version information
# DEBUG version の Bash では遅いという通知
case ${BASH_VERSINFO[4]} in
(alp*|bet*|dev*|rc*|releng*|maint*)
ble/util/print-lines \
"ble.sh may become very slow because this is a debug version of Bash" \
" (version '$BASH_VERSION', release status: '${BASH_VERSINFO[4]}')." \
" We recommend using ble.sh with a release version of Bash." >&2 ;;
esac
_ble_bash=$((BASH_VERSINFO[0]*10000+BASH_VERSINFO[1]*100+BASH_VERSINFO[2]))
_ble_bash_loaded_in_function=0
local _ble_local_test 2>/dev/null && _ble_bash_loaded_in_function=1
_ble_version=0
BLE_VERSION=$_ble_init_version
function ble/base/initialize-version-information {
local version=$BLE_VERSION
local hash=
if [[ $version == *+* ]]; then
hash=${version#*+}
version=${version%%+*}
fi
local status=release
if [[ $version == *-* ]]; then
status=${version#*-}
version=${version%%-*}
fi
local major=${version%%.*}; version=${version#*.}
local minor=${version%%.*}; version=${version#*.}
local patch=${version%%.*}
BLE_VERSINFO=("$major" "$minor" "$patch" "$hash" "$status" noarch)
((_ble_version=major*10000+minor*100+patch))
}
ble/base/initialize-version-information
#------------------------------------------------------------------------------
# check environment
# will be overwritten by src/util.sh
function ble/util/assign { builtin eval "$1=\$(builtin eval -- \"\$2\")"; }
# ble/bin
## @fn ble/bin/.default-utility-path commands...
## 取り敢えず ble/bin/* からコマンドを呼び出せる様にします。
function ble/bin/.default-utility-path {
local cmd
for cmd; do
builtin eval "function ble/bin/$cmd { command $cmd \"\$@\"; }"
done
}
## @fn ble/bin/.freeze-utility-path [-n] commands...
## PATH が破壊された後でも ble が動作を続けられる様に、
## 現在の PATH で基本コマンドのパスを固定して ble/bin/* から使える様にする。
##
## 実装に ble/util/assign を使用しているので ble-core 初期化後に実行する必要がある。
##
function ble/bin/.freeze-utility-path {
local cmd path q=\' Q="'\''" fail= flags=
for cmd; do
if [[ $cmd == -n ]]; then
flags=n$flags
continue
fi
[[ $flags == *n* ]] && ble/bin#has "ble/bin/$cmd" && continue
ble/bin#has "ble/bin/.frozen:$cmd" && continue
if ble/util/assign path "builtin type -P -- $cmd 2>/dev/null" && [[ $path ]]; then
builtin eval "function ble/bin/$cmd { '${path//$q/$Q}' \"\$@\"; }"
else
fail=1
fi
done
((!fail))
}
if ((_ble_bash>=40000)); then
function ble/bin#has { type -t "$@" &>/dev/null; }
else
function ble/bin#has {
local cmd
for cmd; do type -t "$cmd" || return 1; done &>/dev/null
return 0
}
fi
# POSIX utilities
_ble_init_posix_command_list=(sed date rm mkdir mkfifo sleep stty tty sort awk chmod grep cat wc mv sh od cp ps)
function ble/init/check-environment {
if ! ble/bin#has "${_ble_init_posix_command_list[@]}"; then
local cmd commandMissing=
for cmd in "${_ble_init_posix_command_list[@]}"; do
if ! type "$cmd" &>/dev/null; then
commandMissing="$commandMissing\`$cmd', "
fi
done
ble/util/print "ble.sh: insane environment: The command(s), ${commandMissing}not found. Check your environment variable PATH." >&2
# try to fix PATH
local default_path=$(command -p getconf PATH 2>/dev/null)
[[ $default_path ]] || return 1
local original_path=$PATH
export PATH=${default_path}${PATH:+:}${PATH}
[[ :$PATH: == *:/bin:* ]] || PATH=/bin${PATH:+:}$PATH
[[ :$PATH: == *:/usr/bin:* ]] || PATH=/usr/bin${PATH:+:}$PATH
if ! ble/bin#has "${_ble_init_posix_command_list[@]}"; then
PATH=$original_path
return 1
fi
ble/util/print "ble.sh: modified PATH=${PATH::${#PATH}-${#original_path}}\$PATH" >&2
fi
if [[ ! $USER ]]; then
ble/util/print "ble.sh: insane environment: \$USER is empty." >&2
if type id &>/dev/null; then
export USER=$(id -un)
ble/util/print "ble.sh: modified USER=$USER" >&2
fi
fi
# 暫定的な ble/bin/$cmd 設定
ble/bin/.default-utility-path "${_ble_init_posix_command_list[@]}"
return 0
}
if ! ble/init/check-environment; then
ble/util/print "ble.sh: failed to adjust the environment. canceling the load of ble.sh." 1>&2
builtin unset -v _ble_bash BLE_VERSION BLE_VERSINFO
ble/init/clean-up 2>/dev/null # set -x 対策 #D0930
return 1
fi
# Note: src/util.sh で ble/util/assign を定義した後に呼び出される。
_ble_bin_awk_type=
function ble/bin/awk/.instantiate {
local path q=\' Q="'\''" ext=1
if ble/util/assign path "builtin type -P -- nawk 2>/dev/null" && [[ $path ]]; then
builtin eval "function ble/bin/nawk { '${path//$q/$Q}' -v AWKTYPE=nawk \"\$@\"; }"
if [[ ! $_ble_bin_awk_type ]]; then
_ble_bin_awk_type=nawk
builtin eval "function ble/bin/awk { '${path//$q/$Q}' -v AWKTYPE=nawk \"\$@\"; }" && ext=0
fi
fi
if ble/util/assign path "builtin type -P -- mawk 2>/dev/null" && [[ $path ]]; then
builtin eval "function ble/bin/mawk { '${path//$q/$Q}' -v AWKTYPE=mawk \"\$@\"; }"
if [[ ! $_ble_bin_awk_type ]]; then
_ble_bin_awk_type=mawk
builtin eval "function ble/bin/awk { '${path//$q/$Q}' -v AWKTYPE=mawk \"\$@\"; }" && ext=0
fi
fi
if ble/util/assign path "builtin type -P -- gawk 2>/dev/null" && [[ $path ]]; then
builtin eval "function ble/bin/gawk { '${path//$q/$Q}' -v AWKTYPE=gawk \"\$@\"; }"