Update perl asm scripts include paths for perlasm.

[openssl.git] / crypto / asn1 / a_utctm.c

diff --git a/crypto/asn1/a_utctm.c b/crypto/asn1/a_utctm.c
index 7cb646429a02bd690ceeaf95a30ce7ca83c69d00..2d15ff3c14e0d78e82b794ff8395360398e17c77 100644 (file)
--- a/crypto/asn1/a_utctm.c
+++ b/crypto/asn1/a_utctm.c
@@ -58,12 +58,8 @@
 
 #include <stdio.h>
 #include <time.h>
-#ifdef VMS
-#include <descrip.h>
-#include <lnmdef.h>
-#include <starlet.h>
-#endif
 #include "cryptlib.h"
+#include "o_time.h"
 #include <openssl/asn1.h>
 
 #if 0
@@ -118,8 +114,8 @@ err:
 
 int ASN1_UTCTIME_check(ASN1_UTCTIME *d)
        {
-       static int min[8]={ 0, 1, 1, 0, 0, 0, 0, 0};
-       static int max[8]={99,12,31,23,59,59,12,59};
+       static const int min[8]={ 0, 1, 1, 0, 0, 0, 0, 0};
+       static const int max[8]={99,12,31,23,59,59,12,59};
        char *a;
        int n,i,l,o;
 
@@ -166,7 +162,7 @@ err:
        return(0);
        }
 
-int ASN1_UTCTIME_set_string(ASN1_UTCTIME *s, char *str)
+int ASN1_UTCTIME_set_string(ASN1_UTCTIME *s, const char *str)
        {
        ASN1_UTCTIME t;
 
@@ -177,8 +173,9 @@ int ASN1_UTCTIME_set_string(ASN1_UTCTIME *s, char *str)
                {
                if (s != NULL)
                        {
-                       ASN1_STRING_set((ASN1_STRING *)s,
-                               (unsigned char *)str,t.length);
+                       if (!ASN1_STRING_set((ASN1_STRING *)s,
+                               (unsigned char *)str,t.length))
+                               return 0;
                        s->type = V_ASN1_UTCTIME;
                        }
                return(1);
@@ -191,71 +188,34 @@ ASN1_UTCTIME *ASN1_UTCTIME_set(ASN1_UTCTIME *s, time_t t)
        {
        char *p;
        struct tm *ts;
-#if defined(THREADS) && !defined(WIN32) && !defined(__CYGWIN32__)
-
        struct tm data;
-#endif
+       size_t len = 20;
 
        if (s == NULL)
                s=M_ASN1_UTCTIME_new();
        if (s == NULL)
                return(NULL);
 
-#if defined(THREADS) && !defined(WIN32) && !defined(__CYGWIN32__)
-       gmtime_r(&t,&data); /* should return &data, but doesn't on some systems, so we don't even look at the return value */
-       ts=&data;
-#else
-       ts=gmtime(&t);
-#endif
-#ifdef VMS
+       ts=OPENSSL_gmtime(&t, &data);
        if (ts == NULL)
-               {
-               static $DESCRIPTOR(tabnam,"LNM$DCL_LOGICAL");
-               static $DESCRIPTOR(lognam,"SYS$TIMEZONE_DIFFERENTIAL");
-               char result[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;
-
-               /* Get the value for SYS$TIMEZONE_DIFFERENTIAL */
-               itemlist[0].buflen = sizeof(result);
-               itemlist[0].bufaddr = result;
-               itemlist[0].reslen = &reslen;
-               status = sys$trnlnm(0, &tabnam, &lognam, 0, itemlist);
-               if (!(status & 1))
-                       return NULL;
-               result[reslen] = '\0';
-
-               /* Get the numerical value of the equivalence string */
-               status = atoi(result);
-
-               /* and use it to move time to GMT */
-               t -= status;
-
-               /* then convert the result to the time structure */
-               ts=(struct tm *)localtime(&t);
-               }
-#endif
+               return(NULL);
+
        p=(char *)s->data;
-       if ((p == NULL) || (s->length < 14))
+       if ((p == NULL) || ((size_t)s->length < len))
                {
-               p=OPENSSL_malloc(20);
-               if (p == NULL) return(NULL);
+               p=OPENSSL_malloc(len);
+               if (p == NULL)
+                       {
+                       ASN1err(ASN1_F_ASN1_UTCTIME_SET,ERR_R_MALLOC_FAILURE);
+                       return(NULL);
+                       }
                if (s->data != NULL)
                        OPENSSL_free(s->data);
                s->data=(unsigned char *)p;
                }
 
-       sprintf(p,"%02d%02d%02d%02d%02d%02dZ",ts->tm_year%100,
-               ts->tm_mon+1,ts->tm_mday,ts->tm_hour,ts->tm_min,ts->tm_sec);
+       BIO_snprintf(p,len,"%02d%02d%02d%02d%02d%02dZ",ts->tm_year%100,
+                    ts->tm_mon+1,ts->tm_mday,ts->tm_hour,ts->tm_min,ts->tm_sec);
        s->length=strlen(p);
        s->type=V_ASN1_UTCTIME;
 #ifdef CHARSET_EBCDIC_not
@@ -268,6 +228,7 @@ ASN1_UTCTIME *ASN1_UTCTIME_set(ASN1_UTCTIME *s, time_t t)
 int ASN1_UTCTIME_cmp_time_t(const ASN1_UTCTIME *s, time_t t)
        {
        struct tm *tm;
+       struct tm data;
        int offset;
        int year;
 
@@ -284,11 +245,7 @@ int ASN1_UTCTIME_cmp_time_t(const ASN1_UTCTIME *s, time_t t)
 
        t -= offset*60; /* FIXME: may overflow in extreme cases */
 
-#if defined(THREADS) && !defined(WIN32) && !defined(__CYGWIN32__)
-       { struct tm data; gmtime_r(&t, &data); tm = &data; }
-#else
-       tm = gmtime(&t);
-#endif
+       tm = OPENSSL_gmtime(&t, &data);
        
 #define return_cmp(a,b) if ((a)<(b)) return -1; else if ((a)>(b)) return 1
        year = g2(s->data);