-
-
Notifications
You must be signed in to change notification settings - Fork 76
/
util.bgproc.sh
466 lines (427 loc) · 16.9 KB
/
util.bgproc.sh
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
# -*- mode: sh; mode: sh-bash -*-
## @fn ble/util/bgproc#open prefix command [opts]
## Start a session for a background process. The session can be closed by
## calling "ble/util/bgproc#close PREFIX". The background process is usually
## started on the start of the session and terminated on closing the session.
## In addition, if requested, the background process can be stopped and
## started any time in the session. If the background process is stopped
## when it is needed, it is automatically restarted. If "timeout=TIMEOUT" is
## specified in OPTS, the background process is automatically stopped where
## there is no access for the time duration specified by TIMEOUT.
##
## @param[in] prefix
## This names the identifier of the bgproc. This is actually used as the
## prefix of the array names used to store the information of the created
## bgproc, so the value needs to be a valid variable name.
##
## When the bgproc is successfully created, the following array elements
## are set, (where PREFIX in the variable name is replaced by the value of
## prefix).
##
## @var PREFIX_bgproc[0] ... fd_response
## @var PREFIX_bgproc[1] ... fd_request
## @var PREFIX_bgproc[2] ... command
## @var PREFIX_bgproc[3] ... opts
## @var PREFIX_bgproc[4] ... bgpid
## @var PREFIX_bgproc_fname[0] ... fname_response
## @var PREFIX_bgproc_fname[1] ... fname_request
## @var PREFIX_bgproc_fname[2] ... fname_run_pid
##
## To send strings to stdin of the background process, one can write to the
## file descriptor ${PREFIX_bgproc[1]}. To read strings coming from stdout
## of the background process, one can read from the file descriptor
## ${PREFIX_bgproc[0]}.
##
## When any of "timeout=TIMEOUT", "deferred", and "restart" are specified
## to OPTS, one should call "ble/util/bgproc#use PREFIX" just before
## directly accesssing the file descriptors ${PREFIX_bgproc[0]} and
## ${PREFIX_bgproc[1]} to ensure that the background process is running.
## Or, one can use a shorthand "ble/util/bgproc#post PREFIX STRING" to
## ensure the background process and write STRING to it. Immediately after
## "ble/util/bgproc#post PREFIX STRING", one do not need to call
## "ble/util/bgproc#use PREFIX" to read from ${PREFIX_bgproc[0]}.
##
## @param[in] command
## The command to execute.
##
## Note: If the command wants to access the variable names "bgproc" and
## "bgproc_fname" defined outside the command, please save the values in
## other names of variables before calling "ble/util/bgproc#open" and
## access those alternative variables from inside the command. The
## variable names "bgproc" and "bgproc_fname" are hidden by the local
## variables used by ble/util/bgproc itself.
##
## @param[in,opt] opts
## A colon-separated list of options. The following options can be
## specified.
##
## deferred
## When this option is specified, the background process is initially not
## started. It will be started when it is first required.
##
## restart
## When this option is specified, if the background process died
## unexpectedly, the background process will be restarted when it becomes
## necessary.
##
## Note: Even if this option is unspecified, the background process that
## was intensiontally stopped will be always restarted when it becomes
## necessary. This option only affects the case that the background
## process exited or died outside the management of bgproc.
##
## timeout=TIMEOUT
## When this option is specified, the background process is stopped when
## there are no access to the background process for the time duration
## specified by TIMEOUT. The unit of TIMEOUT is millisecond.
##
## owner-close-on-unload
## This option suppresses the automatic call of "ble/util/bgproc#close"
## from the "unload" blehook. This option is useful when another
## "unload" blehook needs to access to this bgproc. When this option is
## specified, another "unload" blehook needs to manually call
## "ble/util/bgproc#close" for this bgproc. If "ble/util/bgproc#close"
## is not called, the background process may be forcibly terminated by
## the final cleaup stage of ble.sh session.
##
## no-close-on-unload
## This option suppresses the automatic call of "ble/util/bgproc#close"
## and any cleanups of the background process, so that the background
## process survives after Bash terminates or ble.sh has been unloaded.
##
## Note: Nevertheless, file descriptors at the side of the parent shell
## will be closed on the termination of the parent shell, which can cause
## SIGPIPE write error or EOF read error in the background process.
##
## kill-timeout=TIMEOUT
## This option specifies the timeout after the attempt of stopping the
## background process in unit of millisecond. The default is 10000 (10
## seconds). If the background process does not terminate within the
## timeout after closing the file descriptors at the side of the parent
## shell, the background process will receive SIGTERM. If it does not
## terminate even after sending SIGTERM, it will then receive SIGKILL
## after additional 10 seconds.
##
## @exit 0 if the background process is successfully started or "deferred" is
## specified to OPTS. 2 if an invalid prefix value is specified. 3 if the
## system does not support named pipes. 1 if the background process failed
## to be started.
##
## @fn ble/util/bgproc/onstart:PREFIX
## When this function is defined, this function is called after the new
## background process is created.
##
## @fn ble/util/bgproc/onstop:PREFIX
## When this function is defined, this function is called before the
## background process is stopped.
##
## The application can send an intruction to terminate the background process
## in this hook (in case that the background process does not automatically
## end on the close of the file descriptors, or the file descriptors can be
## shared with other background subshells). Note that the background process
## will receive SIGTERM or SIGKILL if it does not terminate within the
## timeout specified by kill-timeout=TIMEOUT.
##
## @fn ble/util/bgproc/onclose:PREFIX
## When this function is defined, this function is called before the bgproc
## session is closed.
##
## @fn ble/util/bgproc/ontimeout:PREFIX
## When this function is defined, this function is called before the timeout
## specified by "timeout=TIMEOUT" in OPTS. If this function exits with
## non-zero status, the timeout is canceled.
##
function ble/util/bgproc#open {
if ! ble/string#match "$1" '^[_a-zA-Z][_a-zA-Z0-9]*$'; then
ble/util/print "$FUNCNAME: $1: invalid prefix value." >&2
return 2
fi
# If there is an existing bgproc on the same prefix, close it first.
ble/util/bgproc#close "$1"
local -a bgproc=()
bgproc[0]=
bgproc[1]=
bgproc[2]=$2
bgproc[3]=${3-}
local -a bgproc_fname=()
bgproc_fname[0]=$_ble_base_run/$$.util.bgproc.$1.response.pipe
bgproc_fname[1]=$_ble_base_run/$$.util.bgproc.$1.request.pipe
bgproc_fname[2]=$_ble_base_run/$$.util.bgproc.$1.pid
ble/util/save-vars "${1}_" bgproc bgproc_fname
[[ :${bgproc[3]}: == *:deferred:* ]] || ble/util/bgproc#start "$1"; local ext=$?
if ((ext!=0)); then
builtin eval -- "${1}_bgproc=() ${1}_bgproc_fname=()"
fi
return "$ext"
}
## @fn ble/util/bgproc#alive prefix
## Test if the bgproc session is active.
##
## @param[in] prefix
## The name to identify the bgproc.
##
function ble/util/bgproc#opened {
local bgpid_ref=${1}_bgproc[0]
[[ ${!bgpid_ref+set} ]] || return 2
}
## @fn ble/util/bgproc/.alive
## @var[in] bgproc
function ble/util/bgproc/.alive {
[[ ${bgproc[4]-} ]] && kill -0 "${bgproc[4]}" 2>/dev/null
}
## @fn ble/util/bgproc/.exec
## @var[in] bgproc
function ble/util/bgproc/.exec {
# Note: We need to specify the redirections for ${bgproc[0]} and ${bgproc[1]}
# on "builtin eval" because of a bash-3.0 bug. In Bash 3.0, the redirections
# are not properly set up if one uses a function definition of the form
# "function fname { } redirections".
builtin eval -- "${bgproc[2]}" <&"${bgproc[1]}" >&"${bgproc[0]}"
}
## @fn ble/util/bgproc/.mkfifo
## @var[in] bgproc_fname
function ble/util/bgproc/.mkfifo {
local -a pipe_remove=() pipe_create=()
local i
for i in 0 1; do
[[ -p ${bgproc_fname[i]} ]] && continue
ble/array#push pipe_create "${bgproc_fname[i]}"
if [[ -e ${bgproc_fname[i]} || -h ${bgproc_fname[i]} ]]; then
ble/array#push pipe_remove "${bgproc_fname[i]}"
fi
done
((${#pipe_remove[@]}==0)) || ble/bin/rm -f "${pipe_remove[@]}" 2>/dev/null
((${#pipe_create[@]}==0)) || ble/bin/mkfifo "${pipe_create[@]}" 2>/dev/null
}
## @fn ble/util/bgproc#start prefix
## Start the background process. This runs the command specified to
## "ble/util/bgproc#open".
##
## @param[in] prefix
## The name to identify the bgproc.
##
## @exit 0 if the background process is successfully started or was already
## running. 2 if the PREFIX does not corresponds to an existing bgproc. 3
## if the system does not support the named pipes. 1 if the background
## process failed to be started.
##
function ble/util/bgproc#start {
local bgproc bgproc_fname
ble/util/restore-vars "${1}_" bgproc bgproc_fname
if ((!${#bgproc[@]})); then
ble/util/print "$FUNCNAME: $1: not an existing bgproc name." >&2
return 2
fi
if ble/util/bgproc/.alive; then
# The background process is already running
return 0
fi
[[ ! ${bgproc[0]-} ]] || ble/fd#close 'bgproc[0]'
[[ ! ${bgproc[1]-} ]] || ble/fd#close 'bgproc[1]'
# Note: mkfifo may fail in MSYS-1
local _ble_local_ext=0
if ble/util/bgproc/.mkfifo &&
ble/fd#alloc 'bgproc[0]' '<> "${bgproc_fname[0]}"' &&
ble/fd#alloc 'bgproc[1]' '<> "${bgproc_fname[1]}"'
then
# Note: We want to assign a new process group to the background process
# without affecting the job table of the main shell so use the subshell
# `(...)'. The process group is later used to kill the process tree in
# stopping the background process. Note that the command substitutions
# $(...) do not create a new process group even if we specify `set -m' so
# cannot be used for the present purpose.
ble/util/assign 'bgproc[4]' '(set -m; ble/util/bgproc/.exec __ble_suppress_joblist__ >/dev/null & ble/util/print "$!")'
if ble/util/bgproc/.alive; then
[[ :${bgproc[3]}: == *:no-close-on-unload:* ]] ||
ble/util/print "-${bgproc[4]}" >| "${bgproc_fname[2]}"
[[ :${bgproc[3]}: == *:no-close-on-unload:* || :${bgproc[3]}: == *:owner-close-on-unload:* ]] ||
blehook unload!="ble/util/bgproc#close $1"
ble/util/bgproc#keepalive "$1"
else
builtin unset -v 'bgproc[4]'
_ble_local_ext=1
fi
else
_ble_local_ext=3
fi
if ((_ble_local_ext!=0)); then
[[ ! ${bgproc[0]-} ]] || ble/fd#close 'bgproc[0]'
[[ ! ${bgproc[1]-} ]] || ble/fd#close 'bgproc[1]'
bgproc[0]=
bgproc[1]=
builtin unset -v 'bgproc[4]'
fi
ble/util/save-vars "${1}_" bgproc bgproc_fname
if ((_ble_local_ext==0)); then
ble/function#try ble/util/bgproc/onstart:"$1"
fi
return "$_ble_local_ext"
}
function ble/util/bgproc#stop/.wait {
local pid=$1 msec=$2
while
kill -0 "$pid" 2>/dev/null || return 0
((msec>0))
do
ble/util/msleep "$((msec>1000?1000:msec))"
((msec-=1000))
done
return 1
}
function ble/util/bgproc#stop/.kill {
local pid=$1 i close_timeout=$2
ble/util/bgproc#stop/.wait "$pid" "$close_timeout" && return 0
kill -- "$pid"
ble/util/bgproc#stop/.wait "$pid" 10000 && return 0
kill -9 "$pid"
}
## @fn ble/util/bgproc#stop prefix
## Stop the background process.
##
## @param[in] prefix
## The name to identify the bgproc.
##
function ble/util/bgproc#stop {
local prefix=$1
ble/util/bgproc#keepalive/.cancel-timeout "$prefix"
local bgproc bgproc_fname
ble/util/restore-vars "${prefix}_" bgproc bgproc_fname
if ((!${#bgproc[@]})); then
ble/util/print "$FUNCNAME: $prefix: not an existing bgproc name." >&2
return 2
fi
[[ ${bgproc[4]-} ]] || return 1
if ble/is-function ble/util/bgproc/onstop:"$prefix" && ble/util/bgproc/.alive; then
ble/util/bgproc/onstop:"$prefix"
fi
ble/fd#close 'bgproc[0]'
ble/fd#close 'bgproc[1]'
>| "${bgproc_fname[2]}"
# When the background process is active, kill the process after waiting for
# the time specified by kill-timeout.
if ble/util/bgproc/.alive; then
local ret close_timeout=10000
if ble/opts#extract-last-optarg "${bgproc[3]}" kill-timeout; then
close_timeout=$ret
fi
(ble/util/bgproc#stop/.kill "-${bgproc[4]}" "$close_timeout" </dev/null &>/dev/null & disown)
fi
builtin eval -- "${prefix}_bgproc[0]="
builtin eval -- "${prefix}_bgproc[1]="
builtin unset -v "${prefix}_bgproc[4]"
return 0
}
## @fn ble/util/bgproc#alive prefix
## Test if the background process is currently running.
##
## @param[in] prefix
## The name to identify the bgproc.
##
function ble/util/bgproc#alive {
local bgpid_ref=${1}_bgproc[4]
[[ ${!bgpid_ref-} ]] || return 2
kill -0 "${!bgpid_ref}" 2>/dev/null
}
function ble/util/bgproc#keepalive/.timeout {
local prefix=$1
# Call ble/util/bgproc/ontimeout:PREFIX if any
if ble/is-function ble/util/bgproc/ontimeout:"$prefix"; then
if ! ble/util/bgproc/ontimeout:"$prefix"; then
ble/util/bgproc#keepalive "$prefix"
return 0
fi
fi
ble/util/bgproc#stop "$prefix"
}
function ble/util/bgproc#keepalive/.cancel-timeout {
local prefix=$1
ble/function#try ble/util/idle.cancel "ble/util/bgproc#keepalive/.timeout $prefix"
}
## @fn ble/util/bgproc#keepalive prefix
## Rest the timeout to stop the background process.
##
## @param[in] prefix
## The name to identify the bgproc.
##
function ble/util/bgproc#keepalive {
local prefix=$1 bgproc
ble/util/restore-vars "${prefix}_" bgproc
((${#bgproc[@]})) || return 2
ble/util/bgproc/.alive || return 1
ble/util/bgproc#keepalive/.cancel-timeout "$prefix"
local ret
ble/opts#extract-last-optarg "${bgproc[3]}" timeout || return 0; local bgproc_timeout=$ret
if ((bgproc_timeout>0)); then
local timeout_proc="ble/util/bgproc#keepalive/.timeout $1"
ble/function#try ble/util/idle.push --sleep="$bgproc_timeout" "$timeout_proc"
fi
return 0
}
_ble_util_bgproc_onclose_processing=
## @fn ble/util/bgproc#close prefix
## Close the bgproc session.
##
## @param[in] prefix
## The name to identify the bgproc.
##
function ble/util/bgproc#close {
# If the bgproc does not exist, do nothing.
ble/util/bgproc#opened "$1" || return 2
local prefix=${1}
blehook unload-="ble/util/bgproc#close $prefix"
ble/util/bgproc#keepalive/.cancel-timeout "$prefix"
# When the callback function "ble/util/bgproc/onclose:PREFIX" is defined, we
# call the function before starting the closing process. However, we skip
# this if the present call of "ble/util/bgproc#close" is already from inside
# the callback, we skip it to avoid the infinite recursion.
if ble/is-function ble/util/bgproc/onclose:"$prefix"; then
if [[ :${_ble_util_bgproc_onclose_processing-}: != *:"$prefix":* ]]; then
local _ble_util_bgproc_onclose_processing=${_ble_util_bgproc_onclose_processing-}:$prefix
ble/util/bgproc/onclose:"$prefix"
fi
fi
ble/util/bgproc#stop "$prefix"
builtin eval -- "${prefix}_bgproc=() ${prefix}_bgproc_fname=()"
}
## @fn ble/util/bgproc#use prefix
## Ensure the file descriptors to be ready for uses. When the background
## process is temporarily stopped, this will restart the background process.
## When the background process was terminated unexpectedly and "restart" is
## specified to the bgproc's OPTS, this will also restart the background
## process.
##
## @param[in] prefix
## The name to identify the bgproc.
##
## @exit 0 if the background process is ready. 2 if the specified PREFIX
## does not correspond to an existing bgproc. 3 if the system does not seem
## to support named pipes. 1 if the background process was stopped and
## failed to restart it.
##
function ble/util/bgproc#use {
local bgproc
ble/util/restore-vars "${1}_" bgproc
if ((!${#bgproc[@]})); then
ble/util/print "$FUNCNAME: $1: not an existing bgproc name." >&2
return 2
fi
if [[ ! ${bgproc[4]-} ]]; then
# The background process has been stopped intenstionally. We automatically
# restart the background process in this case.
ble/util/bgproc#start "$1" || return "$?"
elif ! kill -0 "${bgproc[4]-}"; then
# The background process died unexpectedly
if [[ :${bgproc[3]-}: == *:restart:* ]]; then
ble/util/bgproc#start "$1" || return "$?"
else
return 1
fi
else
ble/util/bgproc#keepalive "$1"
return 0
fi
}
function ble/util/bgproc#post {
ble/util/bgproc#use "$1" || return "$?"
local fd1_ref=${1}_bgproc[1]
ble/util/print "$2" >&"${!fd1_ref}"
}