diff options
Diffstat (limited to 'src/lib/libcrypto/util')
-rw-r--r-- | src/lib/libcrypto/util/deltree.com | 34 | ||||
-rwxr-xr-x | src/lib/libcrypto/util/shlib_wrap.sh | 6 |
2 files changed, 38 insertions, 2 deletions
diff --git a/src/lib/libcrypto/util/deltree.com b/src/lib/libcrypto/util/deltree.com new file mode 100644 index 0000000000..9f36b1a5e9 --- /dev/null +++ b/src/lib/libcrypto/util/deltree.com | |||
@@ -0,0 +1,34 @@ | |||
1 | $! DELTREE.COM | ||
2 | $ | ||
3 | $ call deltree 'p1' | ||
4 | $ exit $status | ||
5 | $ | ||
6 | $ deltree: subroutine ! P1 is a name of a directory | ||
7 | $ on control_y then goto dt_STOP | ||
8 | $ on warning then goto dt_exit | ||
9 | $ _dt_def = f$trnlnm("SYS$DISK")+f$directory() | ||
10 | $ if f$parse(p1) .eqs. "" then exit | ||
11 | $ set default 'f$parse(p1,,,"DEVICE")''f$parse(p1,,,"DIRECTORY")' | ||
12 | $ p1 = f$parse(p1,,,"NAME") + f$parse(p1,,,"TYPE") | ||
13 | $ _fp = f$parse(".DIR",p1) | ||
14 | $ dt_loop: | ||
15 | $ _f = f$search(_fp) | ||
16 | $ if _f .eqs. "" then goto dt_loopend | ||
17 | $ call deltree [.'f$parse(_f,,,"NAME")']*.* | ||
18 | $ goto dt_loop | ||
19 | $ dt_loopend: | ||
20 | $ _fp = f$parse(p1,".;*") | ||
21 | $ if f$search(_fp) .eqs. "" then goto dt_exit | ||
22 | $ set noon | ||
23 | $ set file/prot=(S:RWED,O:RWED,G:RWED,W:RWED) '_fp' | ||
24 | $ set on | ||
25 | $ delete/nolog '_fp' | ||
26 | $ dt_exit: | ||
27 | $ set default '_dt_def' | ||
28 | $ goto dt_end | ||
29 | $ dt_STOP: | ||
30 | $ set default '_dt_def' | ||
31 | $ stop/id="" | ||
32 | $ exit | ||
33 | $ dt_end: | ||
34 | $ endsubroutine | ||
diff --git a/src/lib/libcrypto/util/shlib_wrap.sh b/src/lib/libcrypto/util/shlib_wrap.sh index a2f62d696f..9416d593d2 100755 --- a/src/lib/libcrypto/util/shlib_wrap.sh +++ b/src/lib/libcrypto/util/shlib_wrap.sh | |||
@@ -80,7 +80,7 @@ if [ -f "$LIBCRYPTOSO" -a -z "$preload_var" ]; then | |||
80 | # it into a script makes it possible to do so on multi-ABI | 80 | # it into a script makes it possible to do so on multi-ABI |
81 | # platforms. | 81 | # platforms. |
82 | case "$SYSNAME" in | 82 | case "$SYSNAME" in |
83 | *BSD) LD_PRELOAD="$LIBCRYPTOSO:$LIBSSLSO" ;; # *BSD | 83 | *BSD|QNX) LD_PRELOAD="$LIBCRYPTOSO:$LIBSSLSO" ;; # *BSD, QNX |
84 | *) LD_PRELOAD="$LIBCRYPTOSO $LIBSSLSO" ;; # SunOS, Linux, ELF HP-UX | 84 | *) LD_PRELOAD="$LIBCRYPTOSO $LIBSSLSO" ;; # SunOS, Linux, ELF HP-UX |
85 | esac | 85 | esac |
86 | _RLD_LIST="$LIBCRYPTOSO:$LIBSSLSO:DEFAULT" # Tru64, o32 IRIX | 86 | _RLD_LIST="$LIBCRYPTOSO:$LIBSSLSO:DEFAULT" # Tru64, o32 IRIX |
@@ -88,4 +88,6 @@ if [ -f "$LIBCRYPTOSO" -a -z "$preload_var" ]; then | |||
88 | export LD_PRELOAD _RLD_LIST DYLD_INSERT_LIBRARIES | 88 | export LD_PRELOAD _RLD_LIST DYLD_INSERT_LIBRARIES |
89 | fi | 89 | fi |
90 | 90 | ||
91 | exec "$@" | 91 | cmd="$1${EXE_EXT}" |
92 | shift | ||
93 | exec "$cmd" "$@" | ||