In some environments, we need to defined sslroot locally.
This commit is contained in:
parent
00d1ecb1da
commit
1472f1427e
@ -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
|
||||||
|
Loading…
x
Reference in New Issue
Block a user