ftruncate() and fileno() are not supported on all versions of OpenVMS

(they don't really exist before version 7), so that solution was toast.
Instead, let's do it the way it's done on Unix, but then remove older
versions of the file.

That new mechanism *may* fail for some unixly formated file spec,
although I wouldn't worry too much about it.

diff --git a/crypto/rand/randfile.c b/crypto/rand/randfile.c
index 69cb5f4a05a90e1bc24f998b34ee3f155d7688f4..658a8d6b65f06050151105d9003be9cbf0a6d723 100644 (file)
--- a/crypto/rand/randfile.c
+++ b/crypto/rand/randfile.c
@@ -63,6 +63,9 @@
 
 #include "openssl/e_os.h"
 
+#ifdef VMS
+#include <unixio.h>
+#endif
 #ifndef NO_SYS_TYPES_H
 # include <sys/types.h>
 #endif
@@ -71,8 +74,8 @@
 #else
 # include <sys/stat.h>
 #endif
-#include OPENSSL_UNISTD
 
+#include <openssl/crypto.h>
 #include <openssl/rand.h>
 
 #undef BUFSIZE
@@ -135,9 +138,15 @@ int RAND_write_file(const char *file)
        /* Under VMS, fopen(file, "wb") will create a new version of the
           same file.  This is not good, so let's try updating an existing
           one, and create file only if it doesn't already exist. */
+       /* At the same time, if we just update a file, we also need to
+          truncate it, and unfortunately, ftruncate() and truncate() do
+          not exist everywhere.  All that remains is to delete old versions
+          of the random data file (done at the end). */
+#if 0
        out=fopen(file,"rb+");
        if (out == NULL && errno != ENOENT)
                goto err;
+#endif
 #endif
 
        if (out == NULL)
@@ -175,8 +184,28 @@ int RAND_write_file(const char *file)
 #ifdef VMS
        /* We may have updated an existing file using mode "rb+",
         * now remove any old extra bytes */
+#if 0
        if (ret > 0)
                ftruncate(fileno(out), ret);
+#else
+       /* Try to delete older versions of the file, until there aren't
+          any */
+       {
+       char *tmpf;
+
+       tmpf = Malloc(strlen(file) + 4);  /* to add ";-1" and a nul */
+       if (tmpf)
+               {
+               strcpy(tmpf, file);
+               strcat(tmpf, ";-1");
+               while(delete(tmpf) == 0)
+                       ;
+               rename(file,";1"); /* Make sure it's version 1, or we
+                                     will reach the limit (32767) at
+                                     some point... */
+               }
+       }
+#endif
 #endif
 
        fclose(out);