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
|
#!/bin/sh
#
# Use module for shoop. Expands the OBJECT class with a method named use,
# that can import shoop modules, and prevents multiple definitions from
# happenning. It searches in the path defined in $THIS . usepath.
#
# Example: OBJECT . use serialize destroy
#
# LGPL copyright 2000 by Adam Heath <doogie@debian.org>
## This module defines a convience method for importing shoop modules.
## When passed the basename of a module(minus any path and .sh
## extension), it will look for the first match in $SHOOPPATH.
##
## There is also '_USE . findmodule <path> <module>' convience method,
## which looks thru the path trying to find <module>.sh.
##
## If '_USE . recorduse' is set, then all top-level modules will get
## recorded, and '_USE . showdeps' will print out a table of
## module/path values.
OBJECT . usepath = $SHOOPPATH:. > /dev/null
OBJECT . new _USE
_USE . recorduse =q 1
_USE . findmodule :p '
local oIFS="$IFS" IFS=: usepath
usepath="$1"; shift
for B in $usepath;do
IFS="$oIFS"
if [ -e $B/$1.sh ]; then
echo $B/$1.sh
break
fi
done
'
_USE . showdeps :p '
local A usepath="$($THIS . usepath)" module
for A in $(_USE . _record_ 2>/dev/null); do
module=$(_USE . findmodule "$usepath" $A)
if [ -z "$module" ]; then
echo "$A disappeared!" 1>&2
else
echo "$A: $module"
fi
done
'
IFS=" " OBJECT . use :p '
local A B usepath="$($THIS . usepath)" module recorduse
recorduse="$(_USE . recorduse 2>/dev/null)"
_USE . recorduse =q 0
for A in "$@"; do
if [ -z "$(_USE . _used_$A 2>/dev/null)" ]; then
module=$(_USE . findmodule "$usepath" $A)
if [ "$module" ]; then
. $module
_USE . _used_ .=q " $A"
_USE . _used_$A =q 1
if [ "$recorduse" ]; then
_USE . _record_ .=q " $A"
fi
fi
fi
done
return
'
_shoopuse_use=1
|
