/* crypto/o_time.c -*- mode:C; c-file-style: "eay" -*- */

 /* Written by Richard Levitte (richard@levitte.org) for the OpenSSL

  * project 2001.

  */

 /* ====================================================================

  * Copyright (c) 2001 The OpenSSL Project.  All rights reserved.

  *

  * Redistribution and use in source and binary forms, with or without

  * modification, are permitted provided that the following conditions

  * are met:

  *

  * 1. Redistributions of source code must retain the above copyright

  *    notice, this list of conditions and the following disclaimer. 

  *

  * 2. Redistributions in binary form must reproduce the above copyright

  *    notice, this list of conditions and the following disclaimer in

  *    the documentation and/or other materials provided with the

  *    distribution.

  *

  * 3. All advertising materials mentioning features or use of this

  *    software must display the following acknowledgment:

  *    "This product includes software developed by the OpenSSL Project

  *    for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)"

  *

  * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to

  *    endorse or promote products derived from this software without

  *    prior written permission. For written permission, please contact

  *    licensing@OpenSSL.org.

  *

  * 5. Products derived from this software may not be called "OpenSSL"

  *    nor may "OpenSSL" appear in their names without prior written

  *    permission of the OpenSSL Project.

  *

  * 6. Redistributions of any form whatsoever must retain the following

  *    acknowledgment:

  *    "This product includes software developed by the OpenSSL Project

  *    for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)"

  *

  * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY

  * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE

  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR

  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE OpenSSL PROJECT OR

  * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,

  * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT

  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;

  * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)

  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,

  * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)

  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED

  * OF THE POSSIBILITY OF SUCH DAMAGE.

  * ====================================================================

  *

  * This product includes cryptographic software written by Eric Young

  * (eay@cryptsoft.com).  This product includes software written by Tim

  * Hudson (tjh@cryptsoft.com).

  *

  */

 #include <openssl/e_os2.h>

 #include <string.h>

 #include "o_time.h"

 #ifdef OPENSSL_SYS_VMS

 # include <libdtdef.h>

 # include <lib$routines.h>

 # include <lnmdef.h>

 # include <starlet.h>

 # include <descrip.h>

 # include <stdlib.h>

 #endif

 EXPORT_C struct tm *OPENSSL_gmtime(const time_t *timer, struct tm *result)

 	{

 	struct tm *ts = NULL;

 #if defined(OPENSSL_THREADS) && !defined(OPENSSL_SYS_WIN32) && !defined(OPENSSL_SYS_OS2) && !defined(__CYGWIN32__) && (!defined(OPENSSL_SYS_VMS) || defined(gmtime_r)) && !defined(OPENSSL_SYS_MACOSX) && !defined(OPENSSL_SYS_SUNOS)

 	/* should return &data, but doesn't on some systems,

 	   so we don't even look at the return value */

 	gmtime_r(timer,result);

 	ts = result;

 #elif !defined(OPENSSL_SYS_VMS)

 	ts = gmtime(timer);

 	if (ts == NULL)

 		return NULL;

 	memcpy(result, ts, sizeof(struct tm));

 	ts = result;

 #endif

 #ifdef OPENSSL_SYS_VMS

 	if (ts == NULL)

 		{

 		static $DESCRIPTOR(tabnam,"LNM$DCL_LOGICAL");

 		static $DESCRIPTOR(lognam,"SYS$TIMEZONE_DIFFERENTIAL");

 		char logvalue[256];

 		unsigned int reslen = 0;

 		struct {

 			short buflen;

 			short code;

 			void *bufaddr;

 			unsigned int *reslen;

 		} itemlist[] = {

 			{ 0, LNM$_STRING, 0, 0 },

 			{ 0, 0, 0, 0 },

 		};

 		int status;

 		time_t t;

 		/* Get the value for SYS$TIMEZONE_DIFFERENTIAL */

 		itemlist[0].buflen = sizeof(logvalue);

 		itemlist[0].bufaddr = logvalue;

 		itemlist[0].reslen = &reslen;

 		status = sys$trnlnm(0, &tabnam, &lognam, 0, itemlist);

 		if (!(status & 1))

 			return NULL;

 		logvalue[reslen] = '\0';

 		t = *timer;

 /* The following is extracted from the DEC C header time.h */

 /*

 **  Beginning in OpenVMS Version 7.0 mktime, time, ctime, strftime

 **  have two implementations.  One implementation is provided

 **  for compatibility and deals with time in terms of local time,

 **  the other __utc_* deals with time in terms of UTC.

 */

 /* We use the same conditions as in said time.h to check if we should

    assume that t contains local time (and should therefore be adjusted)

    or UTC (and should therefore be left untouched). */

 #if __CRTL_VER < 70000000 || defined _VMS_V6_SOURCE

 		/* Get the numerical value of the equivalence string */

 		status = atoi(logvalue);

 		/* and use it to move time to GMT */

 		t -= status;

 #endif

 		/* then convert the result to the time structure */

 		/* Since there was no gmtime_r() to do this stuff for us,

 		   we have to do it the hard way. */

 		{

 		/* The VMS epoch is the astronomical Smithsonian date,

 		   if I remember correctly, which is November 17, 1858.

 		   Furthermore, time is measure in thenths of microseconds

 		   and stored in quadwords (64 bit integers).  unix_epoch

 		   below is January 1st 1970 expressed as a VMS time.  The

 		   following code was used to get this number:

 		   #include <stdio.h>

 		   #include <stdlib.h>

 		   #include <lib$routines.h>

 		   #include <starlet.h>

 		   main()

 		   {

 		     unsigned long systime[2];

 		     unsigned short epoch_values[7] =

 		       { 1970, 1, 1, 0, 0, 0, 0 };

 		     lib$cvt_vectim(epoch_values, systime);

 		     printf("%u %u", systime[0], systime[1]);

 		   }

 		*/

 		unsigned long unix_epoch[2] = { 1273708544, 8164711 };

 		unsigned long deltatime[2];

 		unsigned long systime[2];

 		struct vms_vectime

 			{

 			short year, month, day, hour, minute, second,

 				centi_second;

 			} time_values;

 		long operation;

 		/* Turn the number of seconds since January 1st 1970 to

 		   an internal delta time.

 		   Note that lib$cvt_to_internal_time() will assume

 		   that t is signed, and will therefore break on 32-bit

 		   systems some time in 2038.

 		*/

 		operation = LIB$K_DELTA_SECONDS;

 		status = lib$cvt_to_internal_time(&operation,

 			&t, deltatime);

 		/* Add the delta time with the Unix epoch and we have

 		   the current UTC time in internal format */

 		status = lib$add_times(unix_epoch, deltatime, systime);

 		/* Turn the internal time into a time vector */

 		status = sys$numtim(&time_values, systime);

 		/* Fill in the struct tm with the result */

 		result->tm_sec = time_values.second;

 		result->tm_min = time_values.minute;

 		result->tm_hour = time_values.hour;

 		result->tm_mday = time_values.day;

 		result->tm_mon = time_values.month - 1;

 		result->tm_year = time_values.year - 1900;

 		operation = LIB$K_DAY_OF_WEEK;

 		status = lib$cvt_from_internal_time(&operation,

 			&result->tm_wday, systime);

 		result->tm_wday %= 7;

 		operation = LIB$K_DAY_OF_YEAR;

 		status = lib$cvt_from_internal_time(&operation,

 			&result->tm_yday, systime);

 		result->tm_yday--;

 		result->tm_isdst = 0; /* There's no way to know... */

 		ts = result;

 		}

 		}

 #endif

 	return ts;

 	}