Addapt VMS scripts to the newer disk layout system ODS-5, which allows more than...

diff --git a/apps/makeapps.com b/apps/makeapps.com
index 7e9d0ac8d6d02062b1f11c29fa05820e2daafb7a..fe55369843e7e5b76bcdf687e60680731907e41a 100644 (file)
--- a/apps/makeapps.com
+++ b/apps/makeapps.com
@@ -1133,6 +1133,7 @@ $!
 $! Save directory information
 $!
 $ __HERE = F$PARSE(F$PARSE("A.;",F$ENVIRONMENT("PROCEDURE"))-"A.;","[]A.;") - "A.;"
+$ __HERE = F$EDIT(__HERE,"UPCASE")
 $ __TOP = __HERE - "APPS]"
 $ __INCLUDE = __TOP + "INCLUDE.OPENSSL]"
 $!

diff --git a/crypto/crypto-lib.com b/crypto/crypto-lib.com
index 70b98f2779d706a02b20568e1dba2e4bbcc54492..0c77fd476375ae529fef50d8bb62aed65245aff2 100644 (file)
--- a/crypto/crypto-lib.com
+++ b/crypto/crypto-lib.com
@@ -1456,6 +1456,7 @@ $!
 $! Save directory information
 $!
 $ __HERE = F$PARSE(F$PARSE("A.;",F$ENVIRONMENT("PROCEDURE"))-"A.;","[]A.;") - "A.;"
+$ __HERE = F$EDIT(__HERE,"UPCASE")
 $ __TOP = __HERE - "CRYPTO]"
 $ __INCLUDE = __TOP + "INCLUDE.OPENSSL]"
 $!

diff --git a/makevms.com b/makevms.com
index 2577537449dda4e5db5821c89084dba390c2cadc..da6a1faa509134da586683993d7020cf33531c3b 100755 (executable)
--- a/makevms.com
+++ b/makevms.com
@@ -196,8 +196,14 @@ $   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
+$     ! For ODS-5
+$     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
 $!

diff --git a/ssl/ssl-lib.com b/ssl/ssl-lib.com
index 0a8581898cbb13cb9fed8e284adf7278eeeae14e..436510dd67dd097ef5fd70784ea046150451c625 100644 (file)
--- a/ssl/ssl-lib.com
+++ b/ssl/ssl-lib.com
@@ -1197,6 +1197,7 @@ $!
 $! Save directory information
 $!
 $ __HERE = F$PARSE(F$PARSE("A.;",F$ENVIRONMENT("PROCEDURE"))-"A.;","[]A.;") - "A.;"
+$ __HERE = F$EDIT(__HERE,"UPCASE")
 $ __TOP = __HERE - "SSL]"
 $ __INCLUDE = __TOP + "INCLUDE.OPENSSL]"
 $!

diff --git a/test/maketests.com b/test/maketests.com
index 135e0bfeb986fc524418c23453641782cf226e78..3d1b208ddcff33cfec8170d31e17817a8faf556e 100644 (file)
--- a/test/maketests.com
+++ b/test/maketests.com
@@ -1050,6 +1050,7 @@ $!
 $! Save directory information
 $!
 $ __HERE = F$PARSE(F$PARSE("A.;",F$ENVIRONMENT("PROCEDURE"))-"A.;","[]A.;") - "A.;"
+$ __HERE = F$EDIT(__HERE,"UPCASE")
 $ __TOP = __HERE - "TEST]"
 $ __INCLUDE = __TOP + "INCLUDE.OPENSSL]"
 $!