In some environments, we need to defined sslroot locally.

This commit is contained in:
Richard Levitte 2010-02-22 07:05:50 +00:00
parent 00d1ecb1da
commit 1472f1427e

View File

@ -12,6 +12,9 @@ $ if __arch .eqs. "" then __arch := UNK
$ texe_dir := sys$disk:[-.'__arch'.exe.test] $ texe_dir := sys$disk:[-.'__arch'.exe.test]
$ exe_dir := sys$disk:[-.'__arch'.exe.apps] $ exe_dir := sys$disk:[-.'__arch'.exe.apps]
$ $
$ sslroot = f$parse("sys$disk:[-.apps];",,,,"syntax_only") - "].;"+ ".]"
$ define /translation_attributes = concealed sslroot 'sslroot'
$
$ set default '__here' $ set default '__here'
$ $
$ on control_y then goto exit $ on control_y then goto exit
@ -270,4 +273,5 @@ $
$ $
$ exit: $ exit:
$ set default '__save_default' $ set default '__save_default'
$ deassign sslroot
$ exit $ exit