You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
85 lines
2.0 KiB
C
85 lines
2.0 KiB
C
#define _GNU_SOURCE
|
|
#define __deprecated__
|
|
#include "scan.h"
|
|
#include "byte.h"
|
|
#include "case.h"
|
|
#include <time.h>
|
|
#include <stdlib.h>
|
|
|
|
#ifdef sgi
|
|
extern char** environ;
|
|
#endif
|
|
|
|
/* "2014-05-27T19:22:16Z" */
|
|
size_t scan_iso8601(const char* in,struct timespec* t) {
|
|
struct tm x;
|
|
const char* c;
|
|
unsigned long tmp;
|
|
size_t i;
|
|
if (!(c=in)) return 0;
|
|
if ((i=scan_ulong(c,&tmp))<4 || c[i]!='-') return 0;
|
|
c+=i+1; x.tm_year=(int)(tmp-1900);
|
|
if (scan_ulong(c,&tmp)!=2 || c[2]!='-') return 0;
|
|
c+=3; x.tm_mon=(int)(tmp-1);
|
|
if (scan_ulong(c,&tmp)!=2 || c[2]!='T') return 0;
|
|
c+=3; x.tm_mday=(int)tmp;
|
|
if (scan_ulong(c,&tmp)!=2 || c[2]!=':') return 0;
|
|
c+=3; x.tm_hour=(int)tmp;
|
|
if (scan_ulong(c,&tmp)!=2 || c[2]!=':') return 0;
|
|
c+=3; x.tm_min=(int)tmp;
|
|
if (scan_ulong(c,&tmp)!=2) return 0;
|
|
c+=2; x.tm_sec=(int)tmp;
|
|
if (*c=='.') {
|
|
++c;
|
|
i=scan_ulong(c,&tmp);
|
|
c+=i;
|
|
if (i<1 || i>9)
|
|
t->tv_nsec=0;
|
|
else {
|
|
while (i<9) {
|
|
++i;
|
|
tmp*=10;
|
|
}
|
|
t->tv_nsec=tmp;
|
|
}
|
|
}
|
|
|
|
#ifdef __MINGW32__
|
|
x.tm_wday=x.tm_yday=x.tm_isdst=0;
|
|
#else
|
|
x.tm_wday=x.tm_yday=x.tm_isdst=x.tm_gmtoff=0;
|
|
#endif
|
|
#if defined(__dietlibc__) || defined(__GLIBC__)
|
|
t->tv_sec=timegm(&x);
|
|
#elif defined(__MINGW32__)
|
|
t->tv_sec=mktime(&x);
|
|
#else
|
|
{
|
|
#ifdef sgi
|
|
char** old=environ;
|
|
char** newenv={0};
|
|
environ=newenv;
|
|
t->tv_sec=mktime(&x);
|
|
environ=old;
|
|
#else
|
|
char* old=getenv("TZ");
|
|
unsetenv("TZ");
|
|
t->tv_sec=mktime(&x);
|
|
if (old) setenv("TZ",old,1);
|
|
#endif
|
|
}
|
|
#endif
|
|
|
|
if (*c=='+' || *c=='-') {
|
|
int signum = (*c=='-') - (*c=='+');
|
|
++c;
|
|
if (scan_ulong(c,&tmp)!=4) return 0;
|
|
c+=4;
|
|
t->tv_sec+=signum*60*(int)(tmp/100)*60+(int)(tmp%100);
|
|
} else if (*c=='Z')
|
|
++c;
|
|
else
|
|
return 0;
|
|
return (size_t)(c-in);
|
|
}
|