]>
Commit | Line | Data |
---|---|---|
ccc6cda3 JA |
1 | # source.bash |
2 | # Author: Noah Friedman <friedman@prep.ai.mit.edu> | |
3 | # Created: 1992-05-17 | |
4 | # Last modified: 1993-09-29 | |
5 | # Public domain | |
6 | ||
7 | # Commentary: | |
8 | # Code: | |
9 | ||
10 | #:docstring source: | |
11 | # Usage: source file ... | |
12 | # | |
13 | # Source forces file arguments to be considered in the current directory | |
14 | # only, unless there is an absolute path starting with `/'. I think it's | |
15 | # bad that the builtin "source" searches PATH, because PATH normally | |
16 | # contains directories with binary files that aren't useful for bash to | |
17 | # read and most people don't put "." first in their path. | |
18 | # | |
19 | # This "source" is capable of reading more than one file at a time. Return | |
20 | # value is number of failed source attempts. | |
21 | #:end docstring: | |
22 | ||
23 | # This function is not hygienic, but there's not much we can do about | |
24 | # variable name conflicts here. | |
25 | ||
26 | ###;;;autoload | |
27 | function source () | |
28 | { | |
29 | local -i _source_failure_count=0 | |
30 | local _source_file | |
31 | ||
32 | for _source_file ; do | |
33 | # Check first part of each filename. If it's not `/', `./', or | |
34 | # `../' then prepend "./" to the path to force the builtin `source' | |
35 | # not to go searching through PATH to find the file. | |
36 | case "${_source_file}" in | |
37 | /*|./*|../* ) ;; | |
38 | * ) _source_file="./${_source_file}" ;; | |
39 | esac | |
40 | ||
41 | builtin source "${_source_file}" || | |
42 | _source_failure_count="_source_failure_count + 1" | |
43 | ||
44 | done | |
45 | ||
46 | return ${_source_failure_count} | |
47 | } | |
48 | ||
49 | #:docstring .: | |
50 | # See "source" | |
51 | #:end docstring: | |
52 | ||
53 | # So that `.' will call function definition of `source' instead of builtin | |
54 | ||
55 | ###;;;autoload | |
56 | function . () | |
57 | { | |
58 | source "$@" | |
59 | } | |
60 | ||
61 | provide source | |
62 | ||
63 | # source.bash ends here |