source/i18n/indiancal.cpp

   1 // Copyright (C) 2016 and later: Unicode, Inc. and others.
   2 // License & terms of use: http://www.unicode.org/copyright.html
   3 /*
   4  * Copyright (C) 2003-2014, International Business Machines Corporation
   5  * and others. All Rights Reserved.
   6  ******************************************************************************
   7  *
   8  * File INDIANCAL.CPP
   9  *****************************************************************************
  10  */
  11
  12 #include "indiancal.h"
  13 #include <stdlib.h>
  14 #if !UCONFIG_NO_FORMATTING
  15
  16 #include "mutex.h"
  17 #include <float.h>
  18 #include "gregoimp.h" // Math
  19 #include "astro.h" // CalendarAstronomer
  20 #include "uhash.h"
  21
  22 // Debugging
  23 #ifdef U_DEBUG_INDIANCAL
  24 #include <stdio.h>
  25 #include <stdarg.h>
  26
  27 #endif
  28
  29 U_NAMESPACE_BEGIN
  30
  31 // Implementation of the IndianCalendar class
  32
  33 //-------------------------------------------------------------------------
  34 // Constructors...
  35 //-------------------------------------------------------------------------
  36
  37
  38 Calendar* IndianCalendar::clone() const {
  39   return new IndianCalendar(*this);
  40 }
  41
  42 IndianCalendar::IndianCalendar(const Locale& aLocale, UErrorCode& success)
  43   :   Calendar(TimeZone::createDefault(), aLocale, success)
  44 {
  45   setTimeInMillis(getNow(), success); // Call this again now that the vtable is set up properly.
  46 }
  47
  48 IndianCalendar::IndianCalendar(const IndianCalendar& other) : Calendar(other) {
  49 }
  50
  51 IndianCalendar::~IndianCalendar()
  52 {
  53 }
  54 const char *IndianCalendar::getType() const {
  55    return "indian";
  56 }
  57
  58 static const int32_t LIMITS[UCAL_FIELD_COUNT][4] = {
  59     // Minimum  Greatest     Least   Maximum
  60     //           Minimum   Maximum
  61     {        0,        0,        0,        0}, // ERA
  62     { -5000000, -5000000,  5000000,  5000000}, // YEAR
  63     {        0,        0,       11,       11}, // MONTH
  64     {        1,        1,       52,       53}, // WEEK_OF_YEAR
  65     {/*N/A*/-1,/*N/A*/-1,/*N/A*/-1,/*N/A*/-1}, // WEEK_OF_MONTH
  66     {        1,        1,       30,       31}, // DAY_OF_MONTH
  67     {        1,        1,      365,      366}, // DAY_OF_YEAR
  68     {/*N/A*/-1,/*N/A*/-1,/*N/A*/-1,/*N/A*/-1}, // DAY_OF_WEEK
  69     {       -1,       -1,        5,        5}, // DAY_OF_WEEK_IN_MONTH
  70     {/*N/A*/-1,/*N/A*/-1,/*N/A*/-1,/*N/A*/-1}, // AM_PM
  71     {/*N/A*/-1,/*N/A*/-1,/*N/A*/-1,/*N/A*/-1}, // HOUR
  72     {/*N/A*/-1,/*N/A*/-1,/*N/A*/-1,/*N/A*/-1}, // HOUR_OF_DAY
  73     {/*N/A*/-1,/*N/A*/-1,/*N/A*/-1,/*N/A*/-1}, // MINUTE
  74     {/*N/A*/-1,/*N/A*/-1,/*N/A*/-1,/*N/A*/-1}, // SECOND
  75     {/*N/A*/-1,/*N/A*/-1,/*N/A*/-1,/*N/A*/-1}, // MILLISECOND
  76     {/*N/A*/-1,/*N/A*/-1,/*N/A*/-1,/*N/A*/-1}, // ZONE_OFFSET
  77     {/*N/A*/-1,/*N/A*/-1,/*N/A*/-1,/*N/A*/-1}, // DST_OFFSET
  78     { -5000000, -5000000,  5000000,  5000000}, // YEAR_WOY
  79     {/*N/A*/-1,/*N/A*/-1,/*N/A*/-1,/*N/A*/-1}, // DOW_LOCAL
  80     { -5000000, -5000000,  5000000,  5000000}, // EXTENDED_YEAR
  81     {/*N/A*/-1,/*N/A*/-1,/*N/A*/-1,/*N/A*/-1}, // JULIAN_DAY
  82     {/*N/A*/-1,/*N/A*/-1,/*N/A*/-1,/*N/A*/-1}, // MILLISECONDS_IN_DAY
  83     {/*N/A*/-1,/*N/A*/-1,/*N/A*/-1,/*N/A*/-1}, // IS_LEAP_MONTH
  84 };
  85
  86 static const double JULIAN_EPOCH = 1721425.5;
  87 static const int32_t INDIAN_ERA_START  = 78;
  88 static const int32_t INDIAN_YEAR_START = 80;
  89
  90 int32_t IndianCalendar::handleGetLimit(UCalendarDateFields field, ELimitType limitType) const {
  91   return LIMITS[field][limitType];
  92 }
  93
  94 /*
  95  * Determine whether the given gregorian year is a Leap year
  96  */
  97 static UBool isGregorianLeap(int32_t year)
  98 {
  99     return ((year % 4) == 0) && (!(((year % 100) == 0) && ((year % 400) != 0)));
 100 }
 101
 102 //----------------------------------------------------------------------
 103 // Calendar framework
 104 //----------------------------------------------------------------------
 105
 106 /*
 107  * Return the length (in days) of the given month.
 108  *
 109  * @param eyear  The year in Saka Era
 110  * @param month  The month(0-based) in Indian calendar
 111  */
 112 int32_t IndianCalendar::handleGetMonthLength(int32_t eyear, int32_t month) const {
 113    if (month < 0 || month > 11) {
 114       eyear += ClockMath::floorDivide(month, 12, month);
 115    }
 116
 117    if (isGregorianLeap(eyear + INDIAN_ERA_START) && month == 0) {
 118        return 31;
 119    }
 120
 121    if (month >= 1 && month <= 5) {
 122        return 31;
 123    }
 124
 125    return 30;
 126 }
 127
 128 /*
 129  * Return the number of days in the given Indian year
 130  *
 131  * @param eyear The year in Saka Era.
 132  */
 133 int32_t IndianCalendar::handleGetYearLength(int32_t eyear) const {
 134     return isGregorianLeap(eyear + INDIAN_ERA_START) ? 366 : 365;
 135 }
 136 /*
 137  * Returns the Julian Day corresponding to gregorian date
 138  *
 139  * @param year The Gregorian year
 140  * @param month The month in Gregorian Year
 141  * @param date The date in Gregorian day in month
 142  */
 143 static double gregorianToJD(int32_t year, int32_t month, int32_t date) {
 144    double julianDay = (JULIAN_EPOCH - 1) +
 145       (365 * (year - 1)) +
 146       uprv_floor((year - 1) / 4) +
 147       (-uprv_floor((year - 1) / 100)) +
 148       uprv_floor((year - 1) / 400) +
 149       uprv_floor((((367 * month) - 362) / 12) +
 150             ((month <= 2) ? 0 :
 151              (isGregorianLeap(year) ? -1 : -2)
 152             ) +
 153             date);
 154
 155    return julianDay;
 156 }
 157
 158 /*
 159  * Returns the Gregorian Date corresponding to a given Julian Day
 160  * @param jd The Julian Day
 161  */
 162 static int32_t* jdToGregorian(double jd, int32_t gregorianDate[3]) {
 163    double wjd, depoch, quadricent, dqc, cent, dcent, quad, dquad, yindex, yearday, leapadj;
 164    int32_t year, month, day;
 165    wjd = uprv_floor(jd - 0.5) + 0.5;
 166    depoch = wjd - JULIAN_EPOCH;
 167    quadricent = uprv_floor(depoch / 146097);
 168    dqc = (int32_t)uprv_floor(depoch) % 146097;
 169    cent = uprv_floor(dqc / 36524);
 170    dcent = (int32_t)uprv_floor(dqc) % 36524;
 171    quad = uprv_floor(dcent / 1461);
 172    dquad = (int32_t)uprv_floor(dcent) % 1461;
 173    yindex = uprv_floor(dquad / 365);
 174    year = (int32_t)((quadricent * 400) + (cent * 100) + (quad * 4) + yindex);
 175    if (!((cent == 4) || (yindex == 4))) {
 176       year++;
 177    }
 178    yearday = wjd - gregorianToJD(year, 1, 1);
 179    leapadj = ((wjd < gregorianToJD(year, 3, 1)) ? 0
 180          :
 181          (isGregorianLeap(year) ? 1 : 2)
 182          );
 183    month = (int32_t)uprv_floor((((yearday + leapadj) * 12) + 373) / 367);
 184    day = (int32_t)(wjd - gregorianToJD(year, month, 1)) + 1;
 185
 186    gregorianDate[0] = year;
 187    gregorianDate[1] = month;
 188    gregorianDate[2] = day;
 189
 190    return gregorianDate;
 191 }
 192
 193
 194 //-------------------------------------------------------------------------
 195 // Functions for converting from field values to milliseconds....
 196 //-------------------------------------------------------------------------
 197 static double IndianToJD(int32_t year, int32_t month, int32_t date) {
 198    int32_t leapMonth, gyear, m;
 199    double start, jd;
 200
 201    gyear = year + INDIAN_ERA_START;
 202
 203
 204    if(isGregorianLeap(gyear)) {
 205       leapMonth = 31;
 206       start = gregorianToJD(gyear, 3, 21);
 207    }
 208    else {
 209       leapMonth = 30;
 210       start = gregorianToJD(gyear, 3, 22);
 211    }
 212
 213    if (month == 1) {
 214       jd = start + (date - 1);
 215    } else {
 216       jd = start + leapMonth;
 217       m = month - 2;
 218
 219       //m = Math.min(m, 5);
 220       if (m > 5) {
 221           m = 5;
 222       }
 223
 224       jd += m * 31;
 225
 226       if (month >= 8) {
 227          m = month - 7;
 228          jd += m * 30;
 229       }
 230       jd += date - 1;
 231    }
 232
 233    return jd;
 234 }
 235
 236 /*
 237  * Return JD of start of given month/year of Indian Calendar
 238  * @param eyear The year in Indian Calendar measured from Saka Era (78 AD).
 239  * @param month The month in Indian calendar
 240  */
 241 int32_t IndianCalendar::handleComputeMonthStart(int32_t eyear, int32_t month, UBool /* useMonth */ ) const {
 242
 243    //month is 0 based; converting it to 1-based
 244    int32_t imonth;
 245
 246     // If the month is out of range, adjust it into range, and adjust the extended eyar accordingly
 247    if (month < 0 || month > 11) {
 248       eyear += (int32_t)ClockMath::floorDivide(month, 12, month);
 249    }
 250
 251    if(month == 12){
 252        imonth = 1;
 253    } else {
 254        imonth = month + 1;
 255    }
 256
 257    double jd = IndianToJD(eyear ,imonth, 1);
 258
 259    return (int32_t)jd;
 260 }
 261
 262 //-------------------------------------------------------------------------
 263 // Functions for converting from milliseconds to field values
 264 //-------------------------------------------------------------------------
 265
 266 int32_t IndianCalendar::handleGetExtendedYear() {
 267     int32_t year;
 268
 269     if (newerField(UCAL_EXTENDED_YEAR, UCAL_YEAR) == UCAL_EXTENDED_YEAR) {
 270         year = internalGet(UCAL_EXTENDED_YEAR, 1); // Default to year 1
 271     } else {
 272         year = internalGet(UCAL_YEAR, 1); // Default to year 1
 273     }
 274
 275     return year;
 276 }
 277
 278 /*
 279  * Override Calendar to compute several fields specific to the Indian
 280  * calendar system.  These are:
 281  *
 282  * <ul><li>ERA
 283  * <li>YEAR
 284  * <li>MONTH
 285  * <li>DAY_OF_MONTH
 286  * <li>EXTENDED_YEAR</ul>
 287  *
 288  * The DAY_OF_WEEK and DOW_LOCAL fields are already set when this
 289  * method is called. The getGregorianXxx() methods return Gregorian
 290  * calendar equivalents for the given Julian day.
 291  */
 292 void IndianCalendar::handleComputeFields(int32_t julianDay, UErrorCode&  /* status */) {
 293     double jdAtStartOfGregYear;
 294     int32_t leapMonth, IndianYear, yday, IndianMonth, IndianDayOfMonth, mday;
 295     int32_t gregorianYear;      // Stores gregorian date corresponding to Julian day;
 296     int32_t gd[3];
 297
 298     gregorianYear = jdToGregorian(julianDay, gd)[0];          // Gregorian date for Julian day
 299     IndianYear = gregorianYear - INDIAN_ERA_START;            // Year in Saka era
 300     jdAtStartOfGregYear = gregorianToJD(gregorianYear, 1, 1); // JD at start of Gregorian year
 301     yday = (int32_t)(julianDay - jdAtStartOfGregYear);        // Day number in Gregorian year (starting from 0)
 302
 303     if (yday < INDIAN_YEAR_START) {
 304         // Day is at the end of the preceding Saka year
 305         IndianYear -= 1;
 306         leapMonth = isGregorianLeap(gregorianYear - 1) ? 31 : 30; // Days in leapMonth this year, previous Gregorian year
 307         yday += leapMonth + (31 * 5) + (30 * 3) + 10;
 308     } else {
 309         leapMonth = isGregorianLeap(gregorianYear) ? 31 : 30; // Days in leapMonth this year
 310         yday -= INDIAN_YEAR_START;
 311     }
 312
 313     if (yday < leapMonth) {
 314         IndianMonth = 0;
 315         IndianDayOfMonth = yday + 1;
 316     } else {
 317         mday = yday - leapMonth;
 318         if (mday < (31 * 5)) {
 319             IndianMonth = (int32_t)uprv_floor(mday / 31) + 1;
 320             IndianDayOfMonth = (mday % 31) + 1;
 321         } else {
 322             mday -= 31 * 5;
 323             IndianMonth = (int32_t)uprv_floor(mday / 30) + 6;
 324             IndianDayOfMonth = (mday % 30) + 1;
 325         }
 326    }
 327
 328    internalSet(UCAL_ERA, 0);
 329    internalSet(UCAL_EXTENDED_YEAR, IndianYear);
 330    internalSet(UCAL_YEAR, IndianYear);
 331    internalSet(UCAL_MONTH, IndianMonth);
 332    internalSet(UCAL_DAY_OF_MONTH, IndianDayOfMonth);
 333    internalSet(UCAL_DAY_OF_YEAR, yday + 1); // yday is 0-based
 334 }
 335
 336 UBool
 337 IndianCalendar::inDaylightTime(UErrorCode& status) const
 338 {
 339     // copied from GregorianCalendar
 340     if (U_FAILURE(status) || !getTimeZone().useDaylightTime()) {
 341         return FALSE;
 342     }
 343
 344     // Force an update of the state of the Calendar.
 345     ((IndianCalendar*)this)->complete(status); // cast away const
 346
 347     return (UBool)(U_SUCCESS(status) ? (internalGet(UCAL_DST_OFFSET) != 0) : FALSE);
 348 }
 349
 350 // default century
 351 const UDate     IndianCalendar::fgSystemDefaultCentury          = DBL_MIN;
 352 const int32_t   IndianCalendar::fgSystemDefaultCenturyYear      = -1;
 353
 354 UDate           IndianCalendar::fgSystemDefaultCenturyStart     = DBL_MIN;
 355 int32_t         IndianCalendar::fgSystemDefaultCenturyStartYear = -1;
 356
 357
 358 UBool IndianCalendar::haveDefaultCentury() const
 359 {
 360     return TRUE;
 361 }
 362
 363 UDate IndianCalendar::defaultCenturyStart() const
 364 {
 365     return internalGetDefaultCenturyStart();
 366 }
 367
 368 int32_t IndianCalendar::defaultCenturyStartYear() const
 369 {
 370     return internalGetDefaultCenturyStartYear();
 371 }
 372
 373 UDate
 374 IndianCalendar::internalGetDefaultCenturyStart() const
 375 {
 376     // lazy-evaluate systemDefaultCenturyStart
 377     UBool needsUpdate;
 378     {
 379         Mutex m;
 380         needsUpdate = (fgSystemDefaultCenturyStart == fgSystemDefaultCentury);
 381     }
 382
 383     if (needsUpdate) {
 384         initializeSystemDefaultCentury();
 385     }
 386
 387     // use defaultCenturyStart unless it's the flag value;
 388     // then use systemDefaultCenturyStart
 389
 390     return fgSystemDefaultCenturyStart;
 391 }
 392
 393 int32_t
 394 IndianCalendar::internalGetDefaultCenturyStartYear() const
 395 {
 396     // lazy-evaluate systemDefaultCenturyStartYear
 397     UBool needsUpdate;
 398     {
 399         Mutex m;
 400
 401         needsUpdate = (fgSystemDefaultCenturyStart == fgSystemDefaultCentury);
 402     }
 403
 404     if (needsUpdate) {
 405         initializeSystemDefaultCentury();
 406     }
 407
 408     // use defaultCenturyStart unless it's the flag value;
 409     // then use systemDefaultCenturyStartYear
 410
 411     return    fgSystemDefaultCenturyStartYear;
 412 }
 413
 414 void
 415 IndianCalendar::initializeSystemDefaultCentury()
 416 {
 417     // initialize systemDefaultCentury and systemDefaultCenturyYear based
 418     // on the current time.  They'll be set to 80 years before
 419     // the current time.
 420     // No point in locking as it should be idempotent.
 421     if (fgSystemDefaultCenturyStart == fgSystemDefaultCentury) {
 422         UErrorCode status = U_ZERO_ERROR;
 423
 424         IndianCalendar calendar(Locale("@calendar=Indian"),status);
 425         if (U_SUCCESS(status)) {
 426             calendar.setTime(Calendar::getNow(), status);
 427             calendar.add(UCAL_YEAR, -80, status);
 428
 429             UDate    newStart = calendar.getTime(status);
 430             int32_t  newYear  = calendar.get(UCAL_YEAR, status);
 431
 432             {
 433                 Mutex m;
 434
 435                 fgSystemDefaultCenturyStart = newStart;
 436                 fgSystemDefaultCenturyStartYear = newYear;
 437             }
 438         }
 439
 440         // We have no recourse upon failure unless we want to propagate the failure
 441         // out.
 442     }
 443 }
 444
 445 UOBJECT_DEFINE_RTTI_IMPLEMENTATION(IndianCalendar)
 446
 447 U_NAMESPACE_END
 448
 449 #endif
 450