From: Arpadffy Zoltan <[email protected]>
> I have been forced to do it on more old fashioned way in order to get
> this work
>
> $ ROOT =3D F$PARSE(__here,"[]A.;0",,,"SYNTAX_ONLY,NO_CONCEAL") -
> "A.;0"
> $ ROOT_DEV =3D F$PARSE(ROOT,,,"DEVICE","SYNTAX_ONLY")
> $ ROOT_DIR =3D F$PARSE(ROOT,,,"DIRECTORY","SYNTAX_ONLY") -
> - ".][000000" - "[000000." - "][" - "[" - "]" -
> ".TEST"
> $ ROOT =3D ROOT_DEV + "[" + ROOT_DIR
> $ DEFINE/NOLOG SSLROOT 'ROOT'.APPS.] /TRANS=3DCONC
Using '- ".TEST"' like that will fail on an ODS5 file system where
the directory is named "test", not "TEST". Better to use something like
this:
ROOT_DIR = F$PARSE(ROOT,,,"DIRECTORY","SYNTAX_ONLY") - -
".][000000" - "[000000." - "][" - "["
set default "''ROOT_DEV'[''ROOT_DIR'"
set default [-.apps]
Then use f$environment( "DEFAULT") to get the actual dev:[dir] string,
and add the dot to that. "SET DEFAULT [-]" is safe on any file system.
------------------------------------------------------------------------
Steven M. Schweda s...@antinode-info
382 South Warwick Street (+1) 651-699-9818
Saint Paul MN 55105-2547
______________________________________________________________________
OpenSSL Project http://www.openssl.org
Development Mailing List [email protected]
Automated List Manager [email protected]
