269 lines
10 KiB
C++
269 lines
10 KiB
C++
/*
|
|
**********************************************************************
|
|
* Copyright (c) 2003-2004, International Business Machines
|
|
* Corporation and others. All Rights Reserved.
|
|
**********************************************************************
|
|
* Author: Alan Liu
|
|
* Created: September 2 2003
|
|
* Since: ICU 2.8
|
|
**********************************************************************
|
|
*/
|
|
#include "gregoimp.h"
|
|
|
|
#if !UCONFIG_NO_FORMATTING
|
|
|
|
#include "unicode/ucal.h"
|
|
#include "uresimp.h"
|
|
#include "cstring.h"
|
|
#include "uassert.h"
|
|
|
|
int32_t Math::floorDivide(int32_t numerator, int32_t denominator) {
|
|
return (numerator >= 0) ?
|
|
numerator / denominator : ((numerator + 1) / denominator) - 1;
|
|
}
|
|
|
|
int32_t Math::floorDivide(double numerator, int32_t denominator,
|
|
int32_t& remainder) {
|
|
double quotient;
|
|
quotient = uprv_floor(numerator / denominator);
|
|
remainder = (int32_t) (numerator - (quotient * denominator));
|
|
return (int32_t) quotient;
|
|
}
|
|
|
|
double Math::floorDivide(double dividend, double divisor,
|
|
double& remainder) {
|
|
// Only designed to work for positive divisors
|
|
U_ASSERT(divisor > 0);
|
|
double quotient = floorDivide(dividend, divisor);
|
|
remainder = dividend - (quotient * divisor);
|
|
// N.B. For certain large dividends, on certain platforms, there
|
|
// is a bug such that the quotient is off by one. If you doubt
|
|
// this to be true, set a breakpoint below and run cintltst.
|
|
if (remainder < 0 || remainder >= divisor) {
|
|
// E.g. 6.7317038241449352e+022 / 86400000.0 is wrong on my
|
|
// machine (too high by one). 4.1792057231752762e+024 /
|
|
// 86400000.0 is wrong the other way (too low).
|
|
double q = quotient;
|
|
quotient += (remainder < 0) ? -1 : +1;
|
|
if (q == quotient) {
|
|
// For quotients > ~2^53, we won't be able to add or
|
|
// subtract one, since the LSB of the mantissa will be >
|
|
// 2^0; that is, the exponent (base 2) will be larger than
|
|
// the length, in bits, of the mantissa. In that case, we
|
|
// can't give a correct answer, so we set the remainder to
|
|
// zero. This has the desired effect of making extreme
|
|
// values give back an approximate answer rather than
|
|
// crashing. For example, UDate values above a ~10^25
|
|
// might all have a time of midnight.
|
|
remainder = 0;
|
|
} else {
|
|
remainder = dividend - (quotient * divisor);
|
|
}
|
|
}
|
|
U_ASSERT(0 <= remainder && remainder < divisor);
|
|
return quotient;
|
|
}
|
|
|
|
const int32_t JULIAN_1_CE = 1721426; // January 1, 1 CE Gregorian
|
|
const int32_t JULIAN_1970_CE = 2440588; // January 1, 1970 CE Gregorian
|
|
|
|
const int16_t Grego::DAYS_BEFORE[24] =
|
|
{0,31,59,90,120,151,181,212,243,273,304,334,
|
|
0,31,60,91,121,152,182,213,244,274,305,335};
|
|
|
|
const int8_t Grego::MONTH_LENGTH[24] =
|
|
{31,28,31,30,31,30,31,31,30,31,30,31,
|
|
31,29,31,30,31,30,31,31,30,31,30,31};
|
|
|
|
double Grego::fieldsToDay(int32_t year, int32_t month, int32_t dom) {
|
|
|
|
int32_t y = year - 1;
|
|
|
|
double julian = 365 * y + Math::floorDivide(y, 4) + (JULIAN_1_CE - 3) + // Julian cal
|
|
Math::floorDivide(y, 400) - Math::floorDivide(y, 100) + 2 + // => Gregorian cal
|
|
DAYS_BEFORE[month + (isLeapYear(year) ? 12 : 0)] + dom; // => month/dom
|
|
|
|
return julian - JULIAN_1970_CE; // JD => epoch day
|
|
}
|
|
|
|
void Grego::dayToFields(double day, int32_t& year, int32_t& month,
|
|
int32_t& dom, int32_t& dow, int32_t& doy) {
|
|
|
|
// Convert from 1970 CE epoch to 1 CE epoch (Gregorian calendar)
|
|
day += JULIAN_1970_CE - JULIAN_1_CE;
|
|
|
|
// Convert from the day number to the multiple radix
|
|
// representation. We use 400-year, 100-year, and 4-year cycles.
|
|
// For example, the 4-year cycle has 4 years + 1 leap day; giving
|
|
// 1461 == 365*4 + 1 days.
|
|
int32_t n400 = Math::floorDivide(day, 146097, doy); // 400-year cycle length
|
|
int32_t n100 = Math::floorDivide(doy, 36524, doy); // 100-year cycle length
|
|
int32_t n4 = Math::floorDivide(doy, 1461, doy); // 4-year cycle length
|
|
int32_t n1 = Math::floorDivide(doy, 365, doy);
|
|
year = 400*n400 + 100*n100 + 4*n4 + n1;
|
|
if (n100 == 4 || n1 == 4) {
|
|
doy = 365; // Dec 31 at end of 4- or 400-year cycle
|
|
} else {
|
|
++year;
|
|
}
|
|
|
|
UBool isLeap = isLeapYear(year);
|
|
|
|
// Gregorian day zero is a Monday.
|
|
dow = (int32_t) uprv_fmod(day + 1, 7);
|
|
dow += (dow < 0) ? (UCAL_SUNDAY + 7) : UCAL_SUNDAY;
|
|
|
|
// Common Julian/Gregorian calculation
|
|
int32_t correction = 0;
|
|
int32_t march1 = isLeap ? 60 : 59; // zero-based DOY for March 1
|
|
if (doy >= march1) {
|
|
correction = isLeap ? 1 : 2;
|
|
}
|
|
month = (12 * (doy + correction) + 6) / 367; // zero-based month
|
|
dom = doy - DAYS_BEFORE[month + (isLeap ? 12 : 0)] + 1; // one-based DOM
|
|
doy++; // one-based doy
|
|
}
|
|
|
|
/* ---- CalendarData ------ */
|
|
|
|
#define U_CALENDAR_KEY "calendar"
|
|
#define U_GREGORIAN_KEY "gregorian"
|
|
#define U_FORMAT_KEY "format"
|
|
#define U_DEFAULT_KEY "default"
|
|
#define U_CALENDAR_DATA ((char*)0)
|
|
|
|
|
|
#if defined( U_DEBUG_CALDATA)
|
|
#include <stdio.h>
|
|
#endif
|
|
|
|
// CalendarData::CalendarData(const Locale& loc, UErrorCode& status)
|
|
// : fFillin(NULL), fBundle(NULL), fFallback(NULL) {
|
|
// initData(loc.getBaseName(), (char*) "???", status);
|
|
// }
|
|
|
|
CalendarData::CalendarData(const Locale& loc, const char *type, UErrorCode& status)
|
|
: fFillin(NULL), fOtherFillin(NULL), fBundle(NULL), fFallback(NULL) {
|
|
initData(loc.getBaseName(), type, status);
|
|
}
|
|
|
|
void CalendarData::initData(const char *locale, const char *type, UErrorCode& status) {
|
|
fOtherFillin = ures_open(U_CALENDAR_DATA, locale, &status);
|
|
fFillin = ures_getByKey(fOtherFillin, U_CALENDAR_KEY, fFillin, &status);
|
|
|
|
if((type != NULL) &&
|
|
(*type != '\0') &&
|
|
(uprv_strcmp(type, U_GREGORIAN_KEY)))
|
|
{
|
|
fBundle = ures_getByKeyWithFallback(fFillin, type, NULL, &status);
|
|
fFallback = ures_getByKeyWithFallback(fFillin, U_GREGORIAN_KEY, NULL, &status);
|
|
|
|
#if defined (U_DEBUG_CALDATA)
|
|
fprintf(stderr, "%p: CalendarData(%s, %s, %s) -> main(%p, %s)=%s, fallback(%p, %s)=%s\n",
|
|
this, locale, type, u_errorName(status), fBundle, type, fBundle?ures_getLocale(fBundle, &status):"",
|
|
fFallback, U_GREGORIAN_KEY, fFallback?ures_getLocale(fFallback, &status):"");
|
|
#endif
|
|
|
|
} else {
|
|
fBundle = ures_getByKeyWithFallback(fFillin, U_GREGORIAN_KEY, NULL, &status);
|
|
#if defined (U_DEBUG_CALDATA)
|
|
fprintf(stderr, "%p: CalendarData(%s, %s, %s) -> main(%p, %s)=%s, fallback = NULL\n",
|
|
this, locale, type, u_errorName(status), fBundle, U_GREGORIAN_KEY, fBundle?ures_getLocale(fBundle, &status):"" );
|
|
#endif
|
|
}
|
|
}
|
|
|
|
CalendarData::~CalendarData() {
|
|
ures_close(fFillin);
|
|
ures_close(fBundle);
|
|
ures_close(fFallback);
|
|
ures_close(fOtherFillin);
|
|
}
|
|
|
|
UResourceBundle*
|
|
CalendarData::getByKey(const char *key, UErrorCode& status) {
|
|
if(U_FAILURE(status)) {
|
|
return NULL;
|
|
}
|
|
|
|
if(fBundle) {
|
|
fFillin = ures_getByKeyWithFallback(fBundle, key, fFillin, &status);
|
|
#if defined (U_DEBUG_CALDATA)
|
|
fprintf(stderr, "%p: get %s -> %s - from MAIN %s\n",this, key, u_errorName(status), ures_getLocale(fFillin, &status));
|
|
#endif
|
|
}
|
|
if(fFallback && (status == U_MISSING_RESOURCE_ERROR)) {
|
|
status = U_ZERO_ERROR; // retry with fallback (gregorian)
|
|
fFillin = ures_getByKeyWithFallback(fFallback, key, fFillin, &status);
|
|
#if defined (U_DEBUG_CALDATA)
|
|
fprintf(stderr, "%p: get %s -> %s - from FALLBACK %s\n",this, key, u_errorName(status), ures_getLocale(fFillin, &status));
|
|
#endif
|
|
}
|
|
return fFillin;
|
|
}
|
|
|
|
UResourceBundle* CalendarData::getByKey2(const char *key, const char *subKey, UErrorCode& status) {
|
|
if(U_FAILURE(status)) {
|
|
return NULL;
|
|
}
|
|
|
|
if(fBundle) {
|
|
#if defined (U_DEBUG_CALDATA)
|
|
fprintf(stderr, "%p: //\n");
|
|
#endif
|
|
fFillin = ures_getByKeyWithFallback(fBundle, key, fFillin, &status);
|
|
fOtherFillin = ures_getByKeyWithFallback(fFillin, U_FORMAT_KEY, fOtherFillin, &status);
|
|
fFillin = ures_getByKeyWithFallback(fOtherFillin, subKey, fFillin, &status);
|
|
#if defined (U_DEBUG_CALDATA)
|
|
fprintf(stderr, "%p: get %s/format/%s -> %s - from MAIN %s\n", this, key, subKey, u_errorName(status), ures_getLocale(fFillin, &status));
|
|
#endif
|
|
}
|
|
if(fFallback && (status == U_MISSING_RESOURCE_ERROR)) {
|
|
status = U_ZERO_ERROR; // retry with fallback (gregorian)
|
|
fFillin = ures_getByKeyWithFallback(fFallback, key, fFillin, &status);
|
|
fOtherFillin = ures_getByKeyWithFallback(fFillin, U_FORMAT_KEY, fOtherFillin, &status);
|
|
fFillin = ures_getByKeyWithFallback(fOtherFillin, subKey, fFillin, &status);
|
|
#if defined (U_DEBUG_CALDATA)
|
|
fprintf(stderr, "%p: get %s/format/%s -> %s - from FALLBACK %s\n",this, key, subKey, u_errorName(status), ures_getLocale(fFillin,&status));
|
|
#endif
|
|
}
|
|
|
|
//// handling of 'default' keyword on failure: Commented out for 3.0.
|
|
// if((status == U_MISSING_RESOURCE_ERROR) &&
|
|
// uprv_strcmp(subKey,U_DEFAULT_KEY)) { // avoid recursion
|
|
// #if defined (U_DEBUG_CALDATA)
|
|
// fprintf(stderr, "%p: - attempting fallback -\n", this);
|
|
// fflush(stderr);
|
|
// #endif
|
|
// UErrorCode subStatus = U_ZERO_ERROR;
|
|
// int32_t len;
|
|
// char kwBuf[128] = "";
|
|
// const UChar *kw;
|
|
// /* fFillin = */ getByKey2(key, U_DEFAULT_KEY, subStatus);
|
|
// kw = ures_getString(fFillin, &len, &subStatus);
|
|
// if(len>126) { // too big
|
|
// len = 0;
|
|
// }
|
|
// if(U_SUCCESS(subStatus) && (len>0)) {
|
|
// u_UCharsToChars(kw, kwBuf, len+1);
|
|
// if(*kwBuf && uprv_strcmp(kwBuf,subKey)) {
|
|
// #if defined (U_DEBUG_CALDATA)
|
|
// fprintf(stderr, "%p: trying %s/format/default -> \"%s\"\n",this, key, kwBuf);
|
|
// #endif
|
|
// // now try again with the default
|
|
// status = U_ZERO_ERROR;
|
|
// /* fFillin = */ getByKey2(key, kwBuf, status);
|
|
// }
|
|
// #if defined (U_DEBUG_CALDATA)
|
|
// } else {
|
|
// fprintf(stderr, "%p: could not load %s/format/default - fail out (%s)\n",this, key, kwBuf, u_errorName(status));
|
|
// #endif
|
|
// }
|
|
// }
|
|
|
|
return fFillin;
|
|
}
|
|
|
|
#endif
|
|
//eof
|