ede/etimedate/Fl_Date_Time.cpp
2007-03-15 01:06:18 +00:00

736 lines
19 KiB
C++

/***************************************************************************
Fl_Date_Time.cpp - description
-------------------
begin : Tue Dec 14 1999
copyright : (C) 1999 by Alexey Parshin
email : alexeyp@m7.tts-sf.com
***************************************************************************/
/***************************************************************************
* *
* This program is free software; you can redistribute it and/or modify *
* it under the terms of the GNU General Public License as published by *
* the Free Software Foundation; either version 2 of the License, or *
* (at your option) any later version. *
* *
***************************************************************************/
//
// Ported to FLTK2 by Vedran Ljubovic <vljubovic@smartnet.ba>, 2005.
//#include <config.h>
//#include <edeconfig.h>
/*#include <efltk/Fl_Date_Time.h>
#include <efltk/Fl_Util.h>*/
#include "Fl_Date_Time.h"
// For NLS stuff
//#include "../core/fl_internal.h"
#include "../edelib2/NLS.h"
#include <string.h>
#include <stdio.h>
#include <time.h>
#include <ctype.h>
#include <stdlib.h>
#ifndef _WIN32
# include <sys/time.h>
#else
# include <windows.h>
#endif
static const char *dayname[] = {
"Sunday", "Monday", "Tuesday", "Wednesday",
"Thursday", "Friday", "Saturday"
};
static const char *mname[] = {
"January", "February", "March", "April", "May", "June",
"July", "August", "September", "October", "November", "December"
};
static const short _monthDays[2][12] = {
{31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31},
{31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31} //Leap year
};
static const short _monthDaySums[2][12] = {
{0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334},
{0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335} //Leap year
};
#define DateDelta 693594
char Fl_Date_Time::dateInputFormat[32];
char Fl_Date_Time::timeInputFormat[32];
char Fl_Date_Time::dateFormat[32];
char Fl_Date_Time::datePartsOrder[4];
char Fl_Date_Time::timeFormat[32];
bool Fl_Date_Time::time24Mode;
char Fl_Date_Time::dateSeparator;
char Fl_Date_Time::timeSeparator;
double Fl_Date_Time::dateTimeOffset;
static void upperCase(char *dest, const char *src, int dest_len) {
int i = 0;
int len = strlen(src);
if(len>dest_len) len=dest_len; //No buffer overflow.
for (; i < len; i++)
dest[i] = (char)toupper( src[i] );
dest[i] = '\0';
}
static int trimRight(char *s) {
int len = strlen(s);
while( (len--) >= 0) {
if( (unsigned char)s[len] > 32 ) {
len++;
s[len] = '\0';
break;
}
}
return len;
}
static char parseDateOrTime(char *format,char *dt) {
char separator[] = " ";
// Cut-off trailing non-digit characters
int len = strlen(dt);
char *ptr = dt + len - 1;
while (!isdigit(*ptr)) ptr--;
*(ptr+1) = 0;
// find a separator char
ptr = dt;
while (isalnum(*ptr) || *ptr == ' ') ptr++;
separator[0] = *ptr;
ptr = strtok(dt,separator);
strcpy(format,"");
const char *pattern;
while (ptr) {
int number = atoi(ptr);
switch (number) {
case 10: pattern = "HH"; // hour (12-hour mode)
Fl_Date_Time::time24Mode = false;
break;
case 22: pattern = "HH"; // hour (24-hour mode)
Fl_Date_Time::time24Mode = true;
break;
case 48: pattern = "NN"; // minute
break;
case 59: pattern = "SS"; // second
break;
case 17: pattern = "DD"; // day
strcat(Fl_Date_Time::datePartsOrder,"D");
break;
case 6: pattern = "MM"; // month
strcat(Fl_Date_Time::datePartsOrder,"M");
break;
case 2000:
case 0: pattern = "YYYY"; // year
strcat(Fl_Date_Time::datePartsOrder,"Y");
break;
default: pattern = NULL; break;
}
if (pattern) {
strcat(format,pattern);
strcat(format,separator);
}
ptr = strtok(NULL,separator);
}
len = strlen(format);
if (len)
format[len-1] = 0;
return separator[0];
}
class Fl_Date_Time_Format {
public:
Fl_Date_Time_Format();
};
static void buildDateInputFormat() {
Fl_Date_Time::dateInputFormat[0] = 0;
char separator[] = { Fl_Date_Time::dateSeparator, 0 };
for (int i = 0; i < 3; i++)
switch (Fl_Date_Time::datePartsOrder[i]) {
case 'D': strcat(Fl_Date_Time::dateInputFormat,"39\\");
strcat(Fl_Date_Time::dateInputFormat,separator);
break;
case 'M': strcat(Fl_Date_Time::dateInputFormat,"19\\");
strcat(Fl_Date_Time::dateInputFormat,separator);
break;
case 'Y': strcat(Fl_Date_Time::dateInputFormat,"2999\\");
strcat(Fl_Date_Time::dateInputFormat,separator);
break;
}
int len = strlen(Fl_Date_Time::dateInputFormat);
if (len)
Fl_Date_Time::dateInputFormat[len-2] = 0;
}
static void buildTimeInputFormat() {
if (Fl_Date_Time::time24Mode)
strcpy(Fl_Date_Time::timeInputFormat,"29\\:59");
else strcpy(Fl_Date_Time::timeInputFormat,"19\\:59T\\M");
}
Fl_Date_Time_Format::Fl_Date_Time_Format() {
char dateBuffer[32];
char timeBuffer[32];
// make a special date and time - today :)
struct tm t;
t.tm_year = 100; // since 1900, -> 2000
t.tm_mon = 5; // June (January=0)
t.tm_mday = 17;
t.tm_hour = 22;
t.tm_min = 48;
t.tm_sec = 59;
t.tm_wday = 0; // Sunday
// Build local data and time
strftime(timeBuffer,32,"%X",&t);
strftime(dateBuffer,32,"%x",&t);
// Build local date and time formats
Fl_Date_Time::datePartsOrder[0] = 0;
Fl_Date_Time::time24Mode = false; // to be determined below
Fl_Date_Time::dateSeparator = parseDateOrTime(Fl_Date_Time::dateFormat,dateBuffer);
Fl_Date_Time::timeSeparator = parseDateOrTime(Fl_Date_Time::timeFormat,timeBuffer);
if (!Fl_Date_Time::time24Mode)
strcat(Fl_Date_Time::timeFormat,"AM");
buildDateInputFormat();
buildTimeInputFormat();
}
// This is the only instance to Fl_Date_Time_Format.
static Fl_Date_Time_Format dateFormat;
bool Fl_Date_Time::is_leap_year(const short year) {
return ((year&3) == 0 && year%100 != 0 || year%400 == 0);
}
void Fl_Date_Time::encode_date(double &dt,short year,short month,short day) {
if (year == 0 && month == 0 && day == 0) {
dt = 0;
return;
}
if (month < 1 || month > 12) {
dt = 0;
return;
}
int yearKind = is_leap_year(year);
if (day < 1 || day > _monthDays[yearKind][month-1]) {
dt = 0;
return;
}
if (year <= 0 || year > 9999) {
dt = 0;
return;
}
day += _monthDaySums[yearKind][month-1];
int i = year - 1;
dt = i * 365 + i / 4 - i / 100 + i / 400 + day - DateDelta;
}
void Fl_Date_Time::encode_date(double &dt,const char *dat) {
char bdat[64];
short datePart[7], partNumber = 0;
char *ptr = NULL;
int i;
memset(datePart,0,sizeof(datePart));
upperCase(bdat, dat, sizeof(bdat));
if (strcmp(bdat,"TODAY") == 0) {
dt = Date(); // Sets the current date
return;
} else {
int len = strlen(bdat);
for(i = 0; i <= len && partNumber < 7; i++) {
char c = bdat[i];
if (c == dateSeparator || c == timeSeparator || c == ' ' || c == 0) {
if (c == timeSeparator && partNumber < 3) partNumber = 3;
if (ptr) { // end of token
bdat[i] = 0;
datePart[partNumber] = (short)atoi(ptr);
partNumber++;
ptr = NULL;
}
} else {
if (!isdigit(c)) {
dt = 0;
return;
}
if (!ptr) ptr = bdat + i;
}
}
if (partNumber < 3) { // Not enough date parts
dt = 0;
return;
}
short month=0, day=0, year=0;
for(i = 0; i < 3; i++)
switch (datePartsOrder[i]) {
case 'M': month = datePart[i]; break;
case 'D': day = datePart[i]; break;
case 'Y': year = datePart[i]; break;
}
if (year < 100) {
if (year < 35) year = short(year + 2000);
else year = short(year + 1900);
}
double dd;
encode_date(dd,year,month,day);
if (partNumber > 3) { // Time part included into string
double d;
encode_time(d,datePart[3],datePart[4],datePart[5],datePart[6]);
dd += d;
}
dt = dd;
}
}
void Fl_Date_Time::encode_time(double& dt,short h,short m,short s,short ms) {
dt = (h + ((m + (s + ms / 100.0) / 60.0) / 60.0)) / 24.0;
}
void Fl_Date_Time::encode_time(double& dt,const char *tim) {
char bdat[32];
short timePart[4] = { 0, 0, 0, 0},
partNumber = 0;
char *ptr = NULL;
bool afternoon = false;
upperCase(bdat, tim, sizeof(bdat));
if (!trimRight(bdat)) {
dt = 0;
return;
}
if (strcmp(bdat,"TIME") == 0) {
dt = Time(); // Sets the current date
return;
} else {
char *p = strstr(bdat,"AM");
if (p) {
*p = 0;
} else {
p = strstr(bdat,"PM");
if (p) {
*p = 0;
afternoon = true;
}
}
trimRight(bdat);
int len = strlen(bdat);
for (int i = 0; i <= len && partNumber < 4; i++) {
char c = bdat[i];
if (c == timeSeparator || c == ' ' || c == '.' || c == 0) {
if (ptr) { // end of token
bdat[i] = 0;
timePart[partNumber] = (short) atoi(ptr);
partNumber++;
ptr = NULL;
}
} else {
if (!isdigit(c)) {
dt = 0;
return;
}
if (!ptr) ptr = bdat + i;
}
}
if (afternoon && timePart[0] != 12)
timePart[0] = short(timePart[0] + 12);
encode_time(dt,timePart[0],timePart[1],timePart[2],timePart[3]);
}
}
const int S1 = 24 * 60 * 60; // seconds in 1 day
void Fl_Date_Time::decode_time(const double dt,short& h,short& m,short& s,short& ms) {
double t = dt - (int) dt;
int secs = int(t * S1 + 0.5);
h = short(secs / 3600);
secs = secs % 3600;
m = short(secs / 60);
secs = secs % 60;
s = short(secs);
ms = 0;
}
const int D1 = 365; // Days in 1 year
const int D4 = D1 * 4 + 1; // Days in 4 years
const int D100 = D4 * 25 - 1; // Days in 100 years
const int D400 = D100 * 4 + 1; // Days in 400 years
static void DivMod(int op1, int op2, int& div, int& mod) {
div = op1 / op2;
mod = op1 % op2;
}
void Fl_Date_Time::decode_date(const double dat, short& year, short& month, short& day) {
int Y, M, D, I;
int T = (int) dat + DateDelta;
T--;
Y = 1;
while (T >= D400) {
T -= D400;
Y += 400;
}
DivMod(T, D100, I, D);
if (I == 4) {
I--;
D += D100;
}
Y += I * 100;
DivMod(D, D4, I, D);
Y += I * 4;
DivMod(D, D1, I, D);
if (I == 4) {
I--;
D += D1;
}
Y += I;
year = Y;
//year = short (Y + 1900);
int leapYear = is_leap_year(short(year));
for (M = 0;;M++) {
I = _monthDays[leapYear][M];
if (D < I)
break;
D -= I;
}
month = short (M + 1);
day = short (D + 1);
}
//----------------------------------------------------------------
// Constructors
//----------------------------------------------------------------
Fl_Date_Time::Fl_Date_Time (short year,short month,short day,short hour,short minute,short second) {
double t;
int i;
// NLS stuff
for (i=0; i<7;i++) dayname[i]=_(dayname[i]);
for (i=0; i<12;i++) mname[i]=_(mname[i]);
encode_date(m_dateTime,year,month,day);
encode_time(t,hour,minute,second);
m_dateTime += t;
}
Fl_Date_Time::Fl_Date_Time (const char * dat) {
int i;
// NLS stuff
for (i=0; i<7;i++) dayname[i]=_(dayname[i]);
for (i=0; i<12;i++) mname[i]=_(mname[i]);
char* s1 = strdup(dat);//( Fl_String(dat).trim() );
// TODO: s1.trim()
char* s2;
if (!*dat) {
m_dateTime = 0;
return;
}
s1 = strtok(s1, " ");
char* p = strtok(NULL, " ");
if (p != NULL) {
s2 = strdup(p+1);
if (strlen(s2)>21) s2[21] = '\0';
// TODO: s2.trim()
// s1[p] = '\0'; - strtok() already did that
}
if ( strchr(s1,dateSeparator) ) {
encode_date(m_dateTime, s1);
if ( strchr(s2,timeSeparator) ) {
double dt;
encode_time(dt, s2);
m_dateTime += dt;
}
}
else encode_time(m_dateTime, s1);
}
Fl_Date_Time::Fl_Date_Time (const Fl_Date_Time &dt) {
int i;
// NLS stuff
for (i=0; i<7;i++) dayname[i]=_(dayname[i]);
for (i=0; i<12;i++) mname[i]=_(mname[i]);
m_dateTime = dt.m_dateTime;
}
Fl_Date_Time::Fl_Date_Time (const double dt) {
int i;
// NLS stuff
for (i=0; i<7;i++) dayname[i]=_(dayname[i]);
for (i=0; i<12;i++) mname[i]=_(mname[i]);
m_dateTime = dt;
}
//----------------------------------------------------------------
// Assignments
//----------------------------------------------------------------
void Fl_Date_Time::operator = (const Fl_Date_Time &dt) {
m_dateTime = dt.m_dateTime;
}
void Fl_Date_Time::operator = (const char * dat) {
encode_date(m_dateTime, dat);
}
//----------------------------------------------------------------
// Conversion operations
//----------------------------------------------------------------
// Fl_Date_Time::operator int (void) { return (int) dateTime; }
Fl_Date_Time::operator double (void) const { return m_dateTime; }
//----------------------------------------------------------------
// Date Arithmetic
//----------------------------------------------------------------
Fl_Date_Time Fl_Date_Time::operator + (int i) {
return Fl_Date_Time(m_dateTime + i);
}
Fl_Date_Time Fl_Date_Time::operator - (int i) {
return Fl_Date_Time(m_dateTime - i);
}
Fl_Date_Time Fl_Date_Time::operator + (Fl_Date_Time& dt) {
return Fl_Date_Time(m_dateTime + dt.m_dateTime);
}
Fl_Date_Time Fl_Date_Time::operator - (Fl_Date_Time& dt) {
return Fl_Date_Time(m_dateTime - dt.m_dateTime);
}
Fl_Date_Time& Fl_Date_Time::operator += (int i) {
m_dateTime += i;
return *this;
}
Fl_Date_Time& Fl_Date_Time::operator -= (int i) {
m_dateTime -= i;
return *this;
}
Fl_Date_Time& Fl_Date_Time::operator += (Fl_Date_Time& dt) {
m_dateTime += dt.m_dateTime;
return *this;
}
Fl_Date_Time& Fl_Date_Time::operator -= (Fl_Date_Time& dt) {
m_dateTime -= dt.m_dateTime;
return *this;
}
Fl_Date_Time& Fl_Date_Time::operator ++() {
m_dateTime += 1;
return *this;
}
Fl_Date_Time &Fl_Date_Time::operator ++(int) {
m_dateTime += 1;
return *this;
}
Fl_Date_Time &Fl_Date_Time::operator --() {
m_dateTime -= 1;
return *this;
}
Fl_Date_Time &Fl_Date_Time::operator --(int) {
m_dateTime -= 1;
return *this;
}
//----------------------------------------------------------------
// Format routine
//----------------------------------------------------------------
void Fl_Date_Time::format_date (char *str) const {
char *ptr = str;
short month, day, year;
if (m_dateTime == 0) {
*str = 0;
return;
}
decode_date(m_dateTime,year,month,day);
for (int i = 0; i < 3; i++) {
switch (datePartsOrder[i]) {
case 'M': sprintf(ptr,"%02i%c",month,dateSeparator);
break;
case 'D': sprintf(ptr,"%02i%c",day,dateSeparator);
break;
case 'Y': sprintf(ptr,"%04i%c",year,dateSeparator);
break;
}
ptr += strlen(ptr);
}
*(ptr-1) = 0;
}
void Fl_Date_Time::format_time (char *str,bool ampm) const {
short h,m,s,ms;
if (m_dateTime == 0) {
*str = 0;
return;
}
decode_time(m_dateTime,h,m,s,ms);
if (ampm) {
char format[] = "%02i%c%02iAM";
if (h > 11) format[10] = 'P';
sprintf(str,format,h%12,timeSeparator,m);
}
else sprintf(str,"%02i%c%02i%c%02i",h,timeSeparator,m,timeSeparator,s);
}
//----------------------------------------------------------------
// Miscellaneous Routines
//----------------------------------------------------------------
short Fl_Date_Time::day_of_year( void ) const {
Fl_Date_Time temp( 1, 1, year() );
return (short) (m_dateTime - temp.m_dateTime);
}
Fl_Date_Time Fl_Date_Time::convert(const long tt) {
struct tm *t = localtime((time_t*)&tt);
double dat,tim;
encode_date(dat,short(t->tm_year+1900),short(t->tm_mon+1),short(t->tm_mday));
encode_time(tim,short(t->tm_hour),short(t->tm_min),short(t->tm_sec),short(0));
return dat + tim;
}
#ifdef _WIN32
#define FILETIME_1970 0x019db1ded53e8000
const BYTE DWLEN = sizeof(DWORD) * 8;
/* Code ripped from some xntp implementation on http://src.openresources.com. */
long get_usec()
{
FILETIME ft;
__int64 msec;
GetSystemTimeAsFileTime(&ft);
msec = (__int64) ft.dwHighDateTime << DWLEN | ft.dwLowDateTime;
msec = (msec - FILETIME_1970) / 10;
return (long) (msec % 1000000);
}
#endif
// Get the current system time
Fl_Date_Time Fl_Date_Time::System() {
time_t tt;
time(&tt);
double datetime = convert(tt);
#ifndef _WIN32
timeval tp;
gettimeofday(&tp,0L);
double mcsec = tp.tv_usec / 1000000.0 / (3600 * 24);
#else
// This works now!
double mcsec = get_usec() / 1000000.0 / (3600 * 24);
#endif
return datetime + mcsec;
}
// Get the current system time with optional synchronization offset
Fl_Date_Time Fl_Date_Time::Now() {
return (double)Fl_Date_Time::System() + Fl_Date_Time::dateTimeOffset;
}
// Set the synchronization offset
void Fl_Date_Time::Now(Fl_Date_Time dt) {
Fl_Date_Time::dateTimeOffset = (double)dt - (double)Fl_Date_Time::System();
}
Fl_Date_Time Fl_Date_Time::Date() {
double dat = Now();
return double(int(dat));
}
Fl_Date_Time Fl_Date_Time::Time() {
double dat = Now();
return dat - int(dat);
}
short Fl_Date_Time::days_in_month() const {
short y, m, d;
decode_date(m_dateTime,y,m,d);
return _monthDays[is_leap_year(y)][m-1];
}
unsigned Fl_Date_Time::date() const {
return unsigned(m_dateTime);
}
short Fl_Date_Time::day() const {
short y, m, d;
decode_date(m_dateTime,y,m,d);
return d;
}
short Fl_Date_Time::month() const {
short y, m, d;
decode_date(m_dateTime,y,m,d);
return m;
}
short Fl_Date_Time::year() const {
short y, m, d;
decode_date(m_dateTime,y,m,d);
return y;
}
short Fl_Date_Time::day_of_week (void) const {
return short((int(m_dateTime) - 1) % 7 + 1);
}
char* Fl_Date_Time::day_name (void) const {
return strdup(dayname[day_of_week() - 1]);
}
char* Fl_Date_Time::month_name() const {
return strdup(mname[month()-1]);
}
char* Fl_Date_Time::date_string() const {
char buffer[32];
format_date(buffer);
return strdup(buffer);
}
char* Fl_Date_Time::time_string() const {
char buffer[32];
format_time(buffer,!time24Mode);
return strdup(buffer);
}
void Fl_Date_Time::decode_date(short *y,short *m,short *d) const {
decode_date(m_dateTime,*y,*m,*d);
}
void Fl_Date_Time::decode_time(short *h,short *m,short *s,short *ms) const {
decode_time(m_dateTime,*h,*m,*s,*ms);
}