Commit 668ba7d6 authored by Richard Levitte's avatar Richard Levitte
Browse files

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.
parent c7cb16a8

crypto/rand/randfile.c

+30 −1
Original line number Diff line number Diff line
@@ -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);