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
|
# Copyright (c) 2017 The NetBSD Foundation, Inc.
# All rights reserved.
#
# This code is derived from software contributed to The NetBSD Foundation
# by Johnny C. Lam.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
# 1. Redistributions of source code must retain the above copyright
# notice, this list of conditions and the following disclaimer.
# 2. Redistributions in binary form must reproduce the above copyright
# notice, this list of conditions and the following disclaimer in the
# documentation and/or other materials provided with the distribution.
#
# THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
# ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
# TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
# PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
# BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE.
#
# NAME
# load.subr -- load task modules
#
# SYNOPSIS
# task_load [-s <suffix>] <module> ...
#
# DESCRIPTION
# The task_load function sources the module file for each specified
# module.
#
# The module file is searched under ${TASK_MODULE_DIR} with a basename
# of <module><suffix>, where the default suffix is ".subr".
#
# The module file should define and set a global guard variable
# __task_<module>__ to "yes". This guard variable is checked by the
# task_load function to determine whether the module has been
# previously loaded.
#
# RETURN VALUES
# Returns 0 on success, and >0 if an error occurs.
#
# ENVIRONMENT
# The following variables are used if they are set:
#
# TASK_MODULE_DIR
# The path to the directory containing the task modules.
#
if [ -z "$__task_load__" ]; then
__task_load__="yes"
task_load()
{
: ${TASK_MODULE_DIR:=.}
local suffix=".subr"
local arg
local OPTIND=1
while getopts ":s:" arg "$@"; do
case $arg in
s) suffix=${OPTARG} ;;
*) return 127 ;;
esac
done
shift $(( ${OPTIND} - 1 ))
[ $# -gt 0 ] || return 127
local save_IFS
local guard path init_fn
local module
for module; do
save_IFS=$IFS; IFS=/
set -o noglob; set -- $1; set +o noglob
IFS=$save_IFS
guard="__task"
path=${TASK_MODULE_DIR}
for component; do
case $component in
"") : "skip empty path components" ;;
*) guard="${guard}_$component"
path="$path/$component" ;;
esac
done
init_fn="${guard}_init__"
guard="${guard}__"
path="$path$suffix"
if eval test -z "\$$guard"; then
if [ -f "$path" ]; then
. "$path"
if eval test -n "\$$init_fn"; then
if eval "\$$init_fn"; then
: "successful initialization"
else
echo 1>&2 "Error: initializing $module failed"
fi
fi
else
echo 1>&2 "Error: Loading $module failed: $path"
return 1
fi
fi
done
return 0
}
fi # __task_load__
|