wbrawner/openssl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Addapt VMS scripts to the newer disk layout system ODS-5, which allows more than one period and mixed size characters in file names

Browse source
This commit is contained in:
Richard Levitte 2001-10-29 13:06:29 +00:00
parent 70bed0ca2d
commit d6945e10b5
5 changed files with 12 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
apps/makeapps.com
View file

@ -1133,6 +1133,7 @@ $!
$! Save directory information $! Save directory information
$! $!
$ __HERE = F$PARSE(F$PARSE("A.;",F$ENVIRONMENT("PROCEDURE"))-"A.;","[]A.;") - "A.;" $ __HERE = F$PARSE(F$PARSE("A.;",F$ENVIRONMENT("PROCEDURE"))-"A.;","[]A.;") - "A.;"
$ __HERE = F$EDIT(__HERE,"UPCASE")
$ __TOP = __HERE - "APPS]" $ __TOP = __HERE - "APPS]"
$ __INCLUDE = __TOP + "INCLUDE.OPENSSL]" $ __INCLUDE = __TOP + "INCLUDE.OPENSSL]"
$! $!

1
crypto/crypto-lib.com
View file

@ -1456,6 +1456,7 @@ $!
$! Save directory information $! Save directory information
$! $!
$ __HERE = F$PARSE(F$PARSE("A.;",F$ENVIRONMENT("PROCEDURE"))-"A.;","[]A.;") - "A.;" $ __HERE = F$PARSE(F$PARSE("A.;",F$ENVIRONMENT("PROCEDURE"))-"A.;","[]A.;") - "A.;"
$ __HERE = F$EDIT(__HERE,"UPCASE")
$ __TOP = __HERE - "CRYPTO]" $ __TOP = __HERE - "CRYPTO]"
$ __INCLUDE = __TOP + "INCLUDE.OPENSSL]" $ __INCLUDE = __TOP + "INCLUDE.OPENSSL]"
$! $!

10
makevms.com
View file

@ -196,8 +196,14 @@ $ IF F$SEARCH("[.CRYPTO]OPENSSLCONF_H.IN") .NES. ""
$ THEN $ THEN
$ TYPE [.CRYPTO]OPENSSLCONF_H.IN /OUTPUT=H_FILE: $ TYPE [.CRYPTO]OPENSSLCONF_H.IN /OUTPUT=H_FILE:
$ ELSE $ ELSE
$ WRITE SYS$ERROR "Couldn't find a [.CRYPTO]OPENSSLCONF.H_IN. Exiting!" $ ! For ODS-5
$ EXIT 0 $ IF F$SEARCH("[.CRYPTO]OPENSSLCONF.H.IN") .NES. ""
$ THEN
$ TYPE [.CRYPTO]OPENSSLCONF.H.IN /OUTPUT=H_FILE:
$ ELSE
$ WRITE SYS$ERROR "Couldn't find a [.CRYPTO]OPENSSLCONF.H_IN. Exiting!"
$ EXIT 0
$ ENDIF
$ ENDIF $ ENDIF
$ ENDIF $ ENDIF
$! $!

1
ssl/ssl-lib.com
View file

@ -1197,6 +1197,7 @@ $!
$! Save directory information $! Save directory information
$! $!
$ __HERE = F$PARSE(F$PARSE("A.;",F$ENVIRONMENT("PROCEDURE"))-"A.;","[]A.;") - "A.;" $ __HERE = F$PARSE(F$PARSE("A.;",F$ENVIRONMENT("PROCEDURE"))-"A.;","[]A.;") - "A.;"
$ __HERE = F$EDIT(__HERE,"UPCASE")
$ __TOP = __HERE - "SSL]" $ __TOP = __HERE - "SSL]"
$ __INCLUDE = __TOP + "INCLUDE.OPENSSL]" $ __INCLUDE = __TOP + "INCLUDE.OPENSSL]"
$! $!

1
test/maketests.com
View file

@ -1050,6 +1050,7 @@ $!
$! Save directory information $! Save directory information
$! $!
$ __HERE = F$PARSE(F$PARSE("A.;",F$ENVIRONMENT("PROCEDURE"))-"A.;","[]A.;") - "A.;" $ __HERE = F$PARSE(F$PARSE("A.;",F$ENVIRONMENT("PROCEDURE"))-"A.;","[]A.;") - "A.;"
$ __HERE = F$EDIT(__HERE,"UPCASE")
$ __TOP = __HERE - "TEST]" $ __TOP = __HERE - "TEST]"
$ __INCLUDE = __TOP + "INCLUDE.OPENSSL]" $ __INCLUDE = __TOP + "INCLUDE.OPENSSL]"
$! $!