diff options
author | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-15 05:54:39 +0000 |
---|---|---|
committer | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-15 05:54:39 +0000 |
commit | 267c6f2ac71f92999e969232431ba04678e7437e (patch) | |
tree | 358c9467650e1d0a1d7227a21dac2e3d08b622b2 /i18npool/source/calendar | |
parent | Initial commit. (diff) | |
download | libreoffice-267c6f2ac71f92999e969232431ba04678e7437e.tar.xz libreoffice-267c6f2ac71f92999e969232431ba04678e7437e.zip |
Adding upstream version 4:24.2.0.upstream/4%24.2.0
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'i18npool/source/calendar')
-rw-r--r-- | i18npool/source/calendar/calendarImpl.cxx | 370 | ||||
-rw-r--r-- | i18npool/source/calendar/calendar_gregorian.cxx | 1082 | ||||
-rw-r--r-- | i18npool/source/calendar/calendar_hijri.cxx | 317 | ||||
-rw-r--r-- | i18npool/source/calendar/calendar_jewish.cxx | 316 |
4 files changed, 2085 insertions, 0 deletions
diff --git a/i18npool/source/calendar/calendarImpl.cxx b/i18npool/source/calendar/calendarImpl.cxx new file mode 100644 index 0000000000..4e364696cf --- /dev/null +++ b/i18npool/source/calendar/calendarImpl.cxx @@ -0,0 +1,370 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/* + * This file is part of the LibreOffice project. + * + * This Source Code Form is subject to the terms of the Mozilla Public + * License, v. 2.0. If a copy of the MPL was not distributed with this + * file, You can obtain one at http://mozilla.org/MPL/2.0/. + * + * This file incorporates work covered by the following license notice: + * + * Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed + * with this work for additional information regarding copyright + * ownership. The ASF licenses this file to you under the Apache + * License, Version 2.0 (the "License"); you may not use this file + * except in compliance with the License. You may obtain a copy of + * the License at http://www.apache.org/licenses/LICENSE-2.0 . + */ + +#include <calendarImpl.hxx> +#include <calendar_gregorian.hxx> +#include <localedata.hxx> +#include <comphelper/processfactory.hxx> +#include <cppuhelper/supportsservice.hxx> + +#include <com/sun/star/uno/XComponentContext.hpp> + +using namespace ::com::sun::star::uno; +using namespace ::com::sun::star::i18n; + +namespace i18npool { + +CalendarImpl::CalendarImpl() : m_xContext(comphelper::getProcessComponentContext()) +{ +} + +CalendarImpl::CalendarImpl(const Reference< XComponentContext > &rxContext) : m_xContext(rxContext) +{ + if (!m_xContext.is()) + throw RuntimeException("CalendarImpl::CalendarImpl: empty m_xContext"); +} + +CalendarImpl::~CalendarImpl() +{ +} + +void SAL_CALL +CalendarImpl::loadDefaultCalendarTZ( const css::lang::Locale& rLocale, const OUString& rTimeZone ) +{ + const Sequence< Calendar2 > xC = LocaleDataImpl::get()->getAllCalendars2(rLocale); + auto pCal = std::find_if(xC.begin(), xC.end(), [](const Calendar2& rCal) { return rCal.Default; }); + if (pCal == xC.end()) + throw RuntimeException("CalendarImpl::loadDefaultCalendarTZ: no default calendar found for this locale"); + loadCalendarTZ(pCal->Name, rLocale, rTimeZone); +} + +void SAL_CALL +CalendarImpl::loadCalendarTZ( const OUString& uniqueID, const css::lang::Locale& rLocale, const OUString& rTimeZone ) +{ + Reference < XCalendar4 > xOldCalendar( xCalendar ); // backup + const OUString aCacheID( uniqueID + "_" + rTimeZone); + bool bTimeZone = true; + sal_Int32 i; + + for (i = 0; i < sal::static_int_cast<sal_Int32>(lookupTable.size()); i++) { + lookupTableItem &listItem = lookupTable[i]; + if (aCacheID == listItem.m_aCacheID) { + xCalendar = listItem.xCalendar; + break; + } + } + + if (i >= sal::static_int_cast<sal_Int32>(lookupTable.size())) { + Reference < XInterface > xI = m_xContext->getServiceManager()->createInstanceWithContext( + "com.sun.star.i18n.Calendar_" + uniqueID, m_xContext); + + if ( ! xI.is() ) { + // check if the calendar is defined in localedata, load gregorian calendar service. + const Sequence< Calendar2 > xC = LocaleDataImpl::get()->getAllCalendars2(rLocale); + if (std::any_of(xC.begin(), xC.end(), [&uniqueID](const Calendar2& rCal) { return uniqueID == rCal.Name; })) + xI = m_xContext->getServiceManager()->createInstanceWithContext("com.sun.star.i18n.Calendar_gregorian", m_xContext); + } + + if ( !xI.is() ) + throw RuntimeException("CalendarImpl::loadCalendarTZ: no calendar found for this locale"); + xCalendar.set(xI, UNO_QUERY); + + if (!rTimeZone.isEmpty()) + { + /* XXX NOTE: currently (2019-06-19) calendar implementations derive + * from Calendar_gregorian, even Hijri and Jewish. If that should + * change in future this should be adapted. */ + Calendar_gregorian* pCal = dynamic_cast<Calendar_gregorian*>(xCalendar.get()); + bTimeZone = (pCal && pCal->setTimeZone(rTimeZone)); + } + + lookupTable.emplace_back( aCacheID, xCalendar ); + } + + if ( !xCalendar.is() ) + { + xCalendar = xOldCalendar; + throw RuntimeException("CalendarImpl::loadCalendarTZ: no calendar found for this locale, should use old one?"); + } + + try + { + xCalendar->loadCalendar(uniqueID, rLocale); + } + catch ( Exception& ) + { // restore previous calendar and re-throw + xCalendar = xOldCalendar; + throw; + } + + if (!bTimeZone) + // The calendar is usable but is not in the expected time zone. + throw RuntimeException("CalendarImpl::loadCalendarTZ: the calendar is usable but is not in the expected time zone"); +} + +Calendar2 SAL_CALL +CalendarImpl::getLoadedCalendar2() +{ + if (!xCalendar.is()) + throw RuntimeException("CalendarImpl::getLoadedCalendar2: no calendar"); + return xCalendar->getLoadedCalendar2(); +} + +::css::i18n::Calendar SAL_CALL +CalendarImpl::getLoadedCalendar() +{ + if (!xCalendar.is()) + throw RuntimeException("CalendarImpl::getLoadedCalendar: no calendar"); + return xCalendar->getLoadedCalendar(); +} + +Sequence< OUString > SAL_CALL +CalendarImpl::getAllCalendars( const css::lang::Locale& rLocale ) +{ + const Sequence< Calendar2 > xC = LocaleDataImpl::get()->getAllCalendars2(rLocale); + Sequence< OUString > xSeq( xC.getLength() ); + std::transform(xC.begin(), xC.end(), xSeq.getArray(), + [](const Calendar2& rCal) { return rCal.Name; }); + return xSeq; +} + +void SAL_CALL +CalendarImpl::setDateTime( double fTimeInDays ) +{ + if (!xCalendar.is()) + throw RuntimeException("CalendarImpl::setDateTime: no calendar"); + xCalendar->setDateTime( fTimeInDays ); +} + +double SAL_CALL +CalendarImpl::getDateTime() +{ + if (!xCalendar.is()) + throw RuntimeException("CalendarImpl::getDateTime: no calendar"); + return xCalendar->getDateTime(); +} + +void SAL_CALL +CalendarImpl::setLocalDateTime( double fTimeInDays ) +{ + if (!xCalendar.is()) + throw RuntimeException("CalendarImpl::setLocalDateTime: no calendar"); + xCalendar->setLocalDateTime( fTimeInDays ); +} + +double SAL_CALL +CalendarImpl::getLocalDateTime() +{ + if (!xCalendar.is()) + throw RuntimeException("CalendarImpl::getLocalDateTime: no calendar"); + return xCalendar->getLocalDateTime(); +} + +void SAL_CALL CalendarImpl::loadDefaultCalendar( const css::lang::Locale& rLocale ) +{ + loadDefaultCalendarTZ( rLocale, OUString()); +} + +void SAL_CALL CalendarImpl::loadCalendar( const OUString& uniqueID, const css::lang::Locale& rLocale ) +{ + loadCalendarTZ( uniqueID, rLocale, OUString()); +} + +OUString SAL_CALL +CalendarImpl::getUniqueID() +{ + if (!xCalendar.is()) + throw RuntimeException("CalendarImpl::getUniqueID: no calendar"); + return xCalendar->getUniqueID(); +} + +void SAL_CALL +CalendarImpl::setValue( sal_Int16 fieldIndex, sal_Int16 value ) +{ + if (!xCalendar.is()) + throw RuntimeException("CalendarImpl::setValue: no calendar"); + xCalendar->setValue( fieldIndex, value ); +} + +sal_Int16 SAL_CALL +CalendarImpl::getValue( sal_Int16 fieldIndex ) +{ + if (!xCalendar.is()) + throw RuntimeException("CalendarImpl::getValue: no calendar"); + return xCalendar->getValue( fieldIndex ); +} + +void SAL_CALL +CalendarImpl::addValue( sal_Int16 fieldIndex, sal_Int32 amount ) +{ + if (!xCalendar.is()) + throw RuntimeException("CalendarImpl::addValue: no calendar"); + xCalendar->addValue( fieldIndex, amount); +} + +sal_Int16 SAL_CALL +CalendarImpl::getFirstDayOfWeek() +{ + if (!xCalendar.is()) + throw RuntimeException("CalendarImpl::getFirstDayOfWeek: no calendar"); + return xCalendar->getFirstDayOfWeek(); +} + +void SAL_CALL +CalendarImpl::setFirstDayOfWeek( sal_Int16 day ) +{ + if (!xCalendar.is()) + throw RuntimeException("CalendarImpl::setFirstDayOfWeek: no calendar"); + xCalendar->setFirstDayOfWeek(day); +} + +void SAL_CALL +CalendarImpl::setMinimumNumberOfDaysForFirstWeek( sal_Int16 days ) +{ + if (!xCalendar.is()) + throw RuntimeException("CalendarImpl::setMinimumNumberOfDaysForFirstWeek: no calendar"); + xCalendar->setMinimumNumberOfDaysForFirstWeek(days); +} + +sal_Int16 SAL_CALL +CalendarImpl::getMinimumNumberOfDaysForFirstWeek() +{ + if (!xCalendar.is()) + throw RuntimeException("CalendarImpl::getMinimumNumberOfDaysForFirstWeek: no calendar"); + return xCalendar->getMinimumNumberOfDaysForFirstWeek(); +} + + +OUString SAL_CALL +CalendarImpl::getDisplayName( sal_Int16 displayIndex, sal_Int16 idx, sal_Int16 nameType ) +{ + if (!xCalendar.is()) + throw RuntimeException("CalendarImpl::getDisplayName: no calendar"); + return xCalendar->getDisplayName( displayIndex, idx, nameType ); +} + +sal_Int16 SAL_CALL +CalendarImpl::getNumberOfMonthsInYear() +{ + if (!xCalendar.is()) + throw RuntimeException("CalendarImpl::setDisplayName: no calendar"); + return xCalendar->getNumberOfMonthsInYear(); +} + + +sal_Int16 SAL_CALL +CalendarImpl::getNumberOfDaysInWeek() +{ + if (!xCalendar.is()) + throw RuntimeException("CalendarImpl::getNumberOfDaysInWeek: no calendar"); + return xCalendar->getNumberOfDaysInWeek(); +} + + +Sequence< CalendarItem > SAL_CALL +CalendarImpl::getDays() +{ + if (!xCalendar.is()) + throw RuntimeException("CalendarImpl::setNumberOfDaysInWeek: no calendar"); + return xCalendar->getDays(); +} + + +Sequence< CalendarItem > SAL_CALL +CalendarImpl::getMonths() +{ + if (!xCalendar.is()) + throw RuntimeException("CalendarImpl::getMonths: no calendar"); + return xCalendar->getMonths(); +} + + +Sequence< CalendarItem2 > SAL_CALL +CalendarImpl::getDays2() +{ + if (!xCalendar.is()) + throw RuntimeException("CalendarImpl::getDays2: no calendar"); + return xCalendar->getDays2(); +} + + +Sequence< CalendarItem2 > SAL_CALL +CalendarImpl::getMonths2() +{ + if (!xCalendar.is()) + throw RuntimeException("CalendarImpl::getMonths2: no calendar"); + return xCalendar->getMonths2(); +} + + +Sequence< CalendarItem2 > SAL_CALL +CalendarImpl::getGenitiveMonths2() +{ + if (!xCalendar.is()) + throw RuntimeException("CalendarImpl::getGenitiveMonths2: no calendar"); + return xCalendar->getGenitiveMonths2(); +} + + +Sequence< CalendarItem2 > SAL_CALL +CalendarImpl::getPartitiveMonths2() +{ + if (!xCalendar.is()) + throw RuntimeException("CalendarImpl::getPartitiveMonths2: no calendar"); + return xCalendar->getPartitiveMonths2(); +} + + +sal_Bool SAL_CALL +CalendarImpl::isValid() +{ + if (!xCalendar.is()) + throw RuntimeException("CalendarImpl::isValid: no calendar"); + return xCalendar->isValid(); +} + +OUString SAL_CALL +CalendarImpl::getDisplayString( sal_Int32 nCalendarDisplayCode, sal_Int16 nNativeNumberMode ) +{ + if (!xCalendar.is()) + throw RuntimeException("CalendarImpl::getDisplayString: no calendar"); + return xCalendar->getDisplayString(nCalendarDisplayCode, nNativeNumberMode); +} + +OUString SAL_CALL +CalendarImpl::getImplementationName() +{ + return "com.sun.star.i18n.CalendarImpl"; +} + +sal_Bool SAL_CALL +CalendarImpl::supportsService(const OUString& rServiceName) +{ + return cppu::supportsService(this, rServiceName); +} + +Sequence< OUString > SAL_CALL +CalendarImpl::getSupportedServiceNames() +{ + return { "com.sun.star.i18n.LocaleCalendar", "com.sun.star.i18n.LocaleCalendar2" }; +} + +} + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/i18npool/source/calendar/calendar_gregorian.cxx b/i18npool/source/calendar/calendar_gregorian.cxx new file mode 100644 index 0000000000..0dbe964e5b --- /dev/null +++ b/i18npool/source/calendar/calendar_gregorian.cxx @@ -0,0 +1,1082 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/* + * This file is part of the LibreOffice project. + * + * This Source Code Form is subject to the terms of the Mozilla Public + * License, v. 2.0. If a copy of the MPL was not distributed with this + * file, You can obtain one at http://mozilla.org/MPL/2.0/. + * + * This file incorporates work covered by the following license notice: + * + * Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed + * with this work for additional information regarding copyright + * ownership. The ASF licenses this file to you under the Apache + * License, Version 2.0 (the "License"); you may not use this file + * except in compliance with the License. You may obtain a copy of + * the License at http://www.apache.org/licenses/LICENSE-2.0 . + */ + +#include <algorithm> + +#include <calendar_gregorian.hxx> +#include <localedata.hxx> +#include <nativenumbersupplier.hxx> +#include <com/sun/star/i18n/CalendarDisplayCode.hpp> +#include <com/sun/star/i18n/CalendarDisplayIndex.hpp> +#include <com/sun/star/i18n/NativeNumberMode.hpp> +#include <com/sun/star/i18n/reservedWords.hpp> +#include <cppuhelper/supportsservice.hxx> +#include <o3tl/sprintf.hxx> +#include <rtl/math.hxx> +#include <sal/log.hxx> + +#include <stdio.h> +#include <string.h> + +#define erDUMP_ICU_CALENDAR 0 +#define erDUMP_I18N_CALENDAR 0 +#if erDUMP_ICU_CALENDAR || erDUMP_I18N_CALENDAR +// If both are used, DUMP_ICU_CAL_MSG() must be used before DUMP_I18N_CAL_MSG() +// to obtain internally set values from ICU, else Calendar::get() calls in +// DUMP_I18N_CAL_MSG() recalculate! + +// These pieces of macro are shamelessly borrowed from icu's olsontz.cpp, the +// double parens'ed approach to pass multiple parameters as one macro parameter +// is appealing. +static void debug_cal_loc(const char *f, int32_t l) +{ + fprintf(stderr, "%s:%d: ", f, l); +} +# include <stdarg.h> +static void debug_cal_msg(const char *pat, ...) +{ + va_list ap; + va_start(ap, pat); + vfprintf(stderr, pat, ap); + va_end(ap); +} + +#if erDUMP_ICU_CALENDAR +// Make icu with +// DEFS = -DU_DEBUG_CALSVC -DUCAL_DEBUG_DUMP +// in workdir/UnpackedTarball/icu/source/icudefs.mk +// May need some patches to fix unmaintained things there. +extern void ucal_dump( const icu::Calendar & ); +static void debug_icu_cal_dump( const ::icu::Calendar & r ) +{ + ucal_dump(r); + fflush(stderr); + // set a breakpoint here to pause display between dumps +} +// must use double parens, i.e.: DUMP_ICU_CAL_MSG(("four is: %d",4)); +#define DUMP_ICU_CAL_MSG(x) {debug_cal_loc(__FILE__,__LINE__);debug_cal_msg x;debug_icu_cal_dump(*body);} +#else // erDUMP_ICU_CALENDAR +#define DUMP_ICU_CAL_MSG(x) +#endif // erDUMP_ICU_CALENDAR + +#if erDUMP_I18N_CALENDAR +static void debug_cal_millis_to_time( long nMillis, long & h, long & m, long & s, long & f ) +{ + int sign = (nMillis < 0 ? -1 : 1); + nMillis = ::std::abs(nMillis); + h = sign * nMillis / (60 * 60 * 1000); + nMillis -= sign * h * (60 * 60 * 1000); + m = nMillis / (60 * 1000); + nMillis -= m * (60 * 1000); + s = nMillis / (1000); + nMillis -= s * (1000); + f = nMillis; +} +static void debug_i18n_cal_dump( const ::icu::Calendar & r ) +{ + UErrorCode status; + long nMillis, h, m, s, f; + fprintf( stderr, " %04ld", (long)r.get( UCAL_YEAR, status = U_ZERO_ERROR)); + fprintf( stderr, "-%02ld", (long)r.get( UCAL_MONTH, status = U_ZERO_ERROR)+1); + fprintf( stderr, "-%02ld", (long)r.get( UCAL_DATE, status = U_ZERO_ERROR)); + fprintf( stderr, " %02ld", (long)r.get( UCAL_HOUR_OF_DAY, status = U_ZERO_ERROR)); + fprintf( stderr, ":%02ld", (long)r.get( UCAL_MINUTE, status = U_ZERO_ERROR)); + fprintf( stderr, ":%02ld", (long)r.get( UCAL_SECOND, status = U_ZERO_ERROR)); + fprintf( stderr, " zone: %ld", (long)(nMillis = r.get( UCAL_ZONE_OFFSET, status = U_ZERO_ERROR))); + fprintf( stderr, " (%f min)", (double)nMillis / 60000); + debug_cal_millis_to_time( nMillis, h, m, s, f); + fprintf( stderr, " (%ld:%02ld:%02ld.%ld)", h, m, s, f); + fprintf( stderr, " DST: %ld", (long)(nMillis = r.get( UCAL_DST_OFFSET, status = U_ZERO_ERROR))); + fprintf( stderr, " (%f min)", (double)nMillis / 60000); + debug_cal_millis_to_time( nMillis, h, m, s, f); + fprintf( stderr, " (%ld:%02ld:%02ld.%ld)", h, m, s, f); + fprintf( stderr, "\n"); + fflush(stderr); +} +// must use double parens, i.e.: DUMP_I18N_CAL_MSG(("four is: %d",4)); +#define DUMP_I18N_CAL_MSG(x) {debug_cal_loc(__FILE__,__LINE__);debug_cal_msg x;debug_i18n_cal_dump(*body);} +#else // erDUMP_I18N_CALENDAR +#define DUMP_I18N_CAL_MSG(x) +#endif // erDUMP_I18N_CALENDAR + +#else // erDUMP_ICU_CALENDAR || erDUMP_I18N_CALENDAR +#define DUMP_ICU_CAL_MSG(x) +#define DUMP_I18N_CAL_MSG(x) +#endif // erDUMP_ICU_CALENDAR || erDUMP_I18N_CALENDAR + + +using namespace ::com::sun::star::uno; +using namespace ::com::sun::star::i18n; +using namespace ::com::sun::star::lang; + + +namespace i18npool { + +// Cast positive int32 values to signed int16, needed for +// fieldValue[CalendarFieldIndex::YEAR] where absolute value of an era year may +// be 32768 that with static_cast<sal_Int16> becomes -32768, which we also +// do here but indicating places in a controlled way to map back. +static inline sal_Int16 cast32To16( sal_Int32 a ) +{ + // More than uint16 can't be handled, should not occur. + assert(a >= 0 && a < static_cast<sal_Int32>(SAL_MAX_INT16) - static_cast<sal_Int32>(SAL_MIN_INT16)); + return static_cast<sal_Int16>(a); +} +// And back. +static inline sal_Int32 cast16To32( sal_Int16 i ) +{ + return static_cast<sal_Int32>(static_cast<sal_uInt16>(i)); +} + +Calendar_gregorian::Calendar_gregorian() + : mxNatNum(new NativeNumberSupplierService) +{ + init(nullptr); +} +Calendar_gregorian::Calendar_gregorian(const Era *_earArray) + : mxNatNum(new NativeNumberSupplierService) +{ + init(_earArray); +} +void +Calendar_gregorian::init(const Era *_eraArray) +{ + cCalendar = "com.sun.star.i18n.Calendar_gregorian"; + + fieldSet = 0; + + // #i102356# With icu::Calendar::createInstance(UErrorCode) in a Thai + // th_TH system locale we accidentally used a Buddhist calendar. Though + // the ICU documentation says that should be the case only for + // th_TH_TRADITIONAL (and ja_JP_TRADITIONAL Gengou), a plain th_TH + // already triggers that behavior, ja_JP does not. Strange enough, + // passing a th_TH locale to the calendar creation doesn't trigger + // this. + // See also http://userguide.icu-project.org/datetime/calendar + + // Whatever ICU offers as the default calendar for a locale, ensure we + // have a Gregorian calendar as requested. + + /* XXX: with the current implementation the aLocale member variable is + * not set prior to loading a calendar from locale data. This + * creates an empty (root) locale for ICU, but at least the correct + * calendar is used. The language part must not be NULL (respectively + * not all, language and country and variant), otherwise the current + * default locale would be used again and the calendar keyword ignored. + * */ + icu::Locale aIcuLocale( "", nullptr, nullptr, "calendar=gregorian"); + + /* XXX: not specifying a timezone when creating a calendar assigns the + * system's timezone with all DST quirks, invalid times when switching + * to/from DST and so on. The XCalendar* interfaces are defined to support + * local time and UTC time so we can not override that here. + */ + UErrorCode status = U_ZERO_ERROR; + body.reset( icu::Calendar::createInstance( aIcuLocale, status) ); + if (!body || !U_SUCCESS(status)) throw RuntimeException(); + eraArray=_eraArray; +} + +Calendar_gregorian::~Calendar_gregorian() +{ +} + +Calendar_hanja::Calendar_hanja() +{ + cCalendar = "com.sun.star.i18n.Calendar_hanja"; +} + +OUString SAL_CALL +Calendar_hanja::getDisplayName( sal_Int16 displayIndex, sal_Int16 idx, sal_Int16 nameType ) +{ + if ( displayIndex == CalendarDisplayIndex::AM_PM ) { + // Am/Pm string for Korean Hanja calendar will refer to Japanese locale + css::lang::Locale jaLocale("ja", OUString(), OUString()); + if (idx == 0) return LocaleDataImpl::get()->getLocaleItem(jaLocale).timeAM; + else if (idx == 1) return LocaleDataImpl::get()->getLocaleItem(jaLocale).timePM; + else throw RuntimeException(); + } + else + return Calendar_gregorian::getDisplayName( displayIndex, idx, nameType ); +} + + +Calendar_hanja_yoil::Calendar_hanja_yoil() +{ + cCalendar = "com.sun.star.i18n.Calendar_hanja_yoil"; +} + +OUString SAL_CALL +Calendar_hanja_yoil::getDisplayName( sal_Int16 displayIndex, sal_Int16 idx, sal_Int16 nameType ) +{ + if ( displayIndex == CalendarDisplayIndex::AM_PM ) { + // Am/Pm string for Korean Hanja calendar will refer to Japanese locale + css::lang::Locale jaLocale("ja", OUString(), OUString()); + if (idx == 0) return LocaleDataImpl::get()->getLocaleItem(jaLocale).timeAM; + else if (idx == 1) return LocaleDataImpl::get()->getLocaleItem(jaLocale).timePM; + else throw RuntimeException(); + } + else + return Calendar_gregorian::getDisplayName( displayIndex, idx, nameType ); +} + + +const Era gengou_eraArray[] = { + {1868, 1, 1, 0}, // Meiji + {1912, 7, 30, 0}, // Taisho + {1926, 12, 25, 0}, // Showa + {1989, 1, 8, 0}, // Heisei + {2019, 5, 1, 0}, // Reiwa + {0, 0, 0, 0} +}; +Calendar_gengou::Calendar_gengou() : Calendar_gregorian(gengou_eraArray) +{ + cCalendar = "com.sun.star.i18n.Calendar_gengou"; +} + +const Era ROC_eraArray[] = { + {1912, 1, 1, kDisplayEraForcedLongYear}, // #i116701# + {0, 0, 0, 0} +}; +Calendar_ROC::Calendar_ROC() : Calendar_gregorian(ROC_eraArray) +{ + cCalendar = "com.sun.star.i18n.Calendar_ROC"; +} + +/** +* The start year of the Korean traditional calendar (Dan-gi) is the inaugural +* year of Dan-gun (BC 2333). +*/ +const Era dangi_eraArray[] = { + {-2332, 1, 1, 0}, + {0, 0, 0, 0} +}; +Calendar_dangi::Calendar_dangi() : Calendar_gregorian(dangi_eraArray) +{ + cCalendar = "com.sun.star.i18n.Calendar_dangi"; +} + +const Era buddhist_eraArray[] = { + {-542, 1, 1, 0}, + {0, 0, 0, 0} +}; +Calendar_buddhist::Calendar_buddhist() : Calendar_gregorian(buddhist_eraArray) +{ + cCalendar = "com.sun.star.i18n.Calendar_buddhist"; +} + +void SAL_CALL +Calendar_gregorian::loadCalendar( const OUString& uniqueID, const css::lang::Locale& rLocale ) +{ + // init. fieldValue[] + getValue(); + + aLocale = rLocale; + const Sequence< Calendar2 > xC = LocaleDataImpl::get()->getAllCalendars2(rLocale); + for (const auto& rCal : xC) + { + if (uniqueID == rCal.Name) + { + aCalendar = rCal; + // setup minimalDaysInFirstWeek + setMinimumNumberOfDaysForFirstWeek( + aCalendar.MinimumNumberOfDaysForFirstWeek); + // setup first day of week + for (sal_Int16 day = sal::static_int_cast<sal_Int16>( + aCalendar.Days.getLength()-1); day>=0; day--) + { + if (aCalendar.StartOfWeek == aCalendar.Days[day].ID) + { + setFirstDayOfWeek( day); + return; + } + } + } + } + // Calendar is not for the locale + throw RuntimeException(); +} + + +css::i18n::Calendar2 SAL_CALL +Calendar_gregorian::getLoadedCalendar2() +{ + return aCalendar; +} + +css::i18n::Calendar SAL_CALL +Calendar_gregorian::getLoadedCalendar() +{ + return LocaleDataImpl::downcastCalendar( aCalendar); +} + +OUString SAL_CALL +Calendar_gregorian::getUniqueID() +{ + return aCalendar.Name; +} + +void SAL_CALL +Calendar_gregorian::setDateTime( double fTimeInDays ) +{ + // ICU handles dates in milliseconds as double values and uses floor() + // to obtain integer values, which may yield a date decremented by one + // for odd (historical) timezone values where the computed value due to + // rounding errors has a fractional part in milliseconds. Ensure we + // pass a value without fraction here. If not, that may lead to + // fdo#44286 or fdo#52619 and the like, e.g. when passing + // -2136315212000.000244 instead of -2136315212000.000000 + double fM = fTimeInDays * U_MILLIS_PER_DAY; + double fR = rtl::math::round( fM ); + SAL_INFO_IF( fM != fR, "i18npool", + "Calendar_gregorian::setDateTime: " << std::fixed << fM << " rounded to " << fR); + UErrorCode status = U_ZERO_ERROR; + body->setTime( fR, status); + if ( !U_SUCCESS(status) ) throw RuntimeException(); + getValue(); +} + +double SAL_CALL +Calendar_gregorian::getDateTime() +{ + if (fieldSet) { + setValue(); + getValue(); + } + UErrorCode status = U_ZERO_ERROR; + double fR = body->getTime(status); + if ( !U_SUCCESS(status) ) throw RuntimeException(); + return fR / U_MILLIS_PER_DAY; +} + +void SAL_CALL +Calendar_gregorian::setLocalDateTime( double fTimeInDays ) +{ + // See setDateTime() for why the rounding. + double fM = fTimeInDays * U_MILLIS_PER_DAY; + double fR = rtl::math::round( fM ); + SAL_INFO_IF( fM != fR, "i18npool", + "Calendar_gregorian::setLocalDateTime: " << std::fixed << fM << " rounded to " << fR); + int32_t nZoneOffset, nDSTOffset; + UErrorCode status = U_ZERO_ERROR; + body->getTimeZone().getOffset( fR, true, nZoneOffset, nDSTOffset, status ); + + if ( !U_SUCCESS(status) ) throw RuntimeException(); + status = U_ZERO_ERROR; + body->setTime( fR - (nZoneOffset + nDSTOffset), status ); + if ( !U_SUCCESS(status) ) throw RuntimeException(); + getValue(); +} + +double SAL_CALL +Calendar_gregorian::getLocalDateTime() +{ + if (fieldSet) { + setValue(); + getValue(); + } + UErrorCode status = U_ZERO_ERROR; + double fTime = body->getTime( status ); + if ( !U_SUCCESS(status) ) throw RuntimeException(); + status = U_ZERO_ERROR; + int32_t nZoneOffset = body->get( UCAL_ZONE_OFFSET, status ); + if ( !U_SUCCESS(status) ) throw RuntimeException(); + status = U_ZERO_ERROR; + int32_t nDSTOffset = body->get( UCAL_DST_OFFSET, status ); + if ( !U_SUCCESS(status) ) throw RuntimeException(); + return (fTime + (nZoneOffset + nDSTOffset)) / U_MILLIS_PER_DAY; +} + +bool Calendar_gregorian::setTimeZone( const OUString& rTimeZone ) +{ + if (fieldSet) + { + setValue(); + getValue(); + } + const icu::UnicodeString aID( reinterpret_cast<const UChar*>(rTimeZone.getStr()), rTimeZone.getLength()); + const std::unique_ptr<const icu::TimeZone> pTZ( icu::TimeZone::createTimeZone(aID)); + if (!pTZ) + return false; + + body->setTimeZone(*pTZ); + return true; +} + +// map field value from gregorian calendar to other calendar, it can be overwritten by derived class. +// By using eraArray, it can take care Japanese and Taiwan ROC calendar. +void Calendar_gregorian::mapFromGregorian() +{ + if (!eraArray) + return; + + sal_Int16 e, m, d; + sal_Int32 y; + + e = fieldValue[CalendarFieldIndex::ERA]; + y = cast16To32(fieldValue[CalendarFieldIndex::YEAR]); + m = fieldValue[CalendarFieldIndex::MONTH] + 1; + d = fieldValue[CalendarFieldIndex::DAY_OF_MONTH]; + + // since the year is reversed for first era, it is reversed again here for Era compare. + if (e == 0) + y = 1 - y; + + for (e = 0; eraArray[e].year; e++) + if ((y != eraArray[e].year) ? y < eraArray[e].year : + (m != eraArray[e].month) ? m < eraArray[e].month : d < eraArray[e].day) + break; + + fieldValue[CalendarFieldIndex::ERA] = e; + fieldValue[CalendarFieldIndex::YEAR] = + cast32To16( (e == 0) ? (eraArray[0].year - y) : (y - eraArray[e-1].year + 1) ); +} + +#define FIELDS ((1 << CalendarFieldIndex::ERA) | (1 << CalendarFieldIndex::YEAR)) +// map field value from other calendar to gregorian calendar, it can be overwritten by derived class. +// By using eraArray, it can take care Japanese and Taiwan ROC calendar. +void Calendar_gregorian::mapToGregorian() +{ + if (!eraArray || !(fieldSet & FIELDS)) + return; + + sal_Int16 e = fieldValue[CalendarFieldIndex::ERA]; + sal_Int32 y; + if (e == 0) + y = eraArray[0].year - cast16To32(fieldValue[CalendarFieldIndex::YEAR]); + else + y = eraArray[e-1].year + cast16To32(fieldValue[CalendarFieldIndex::YEAR] - 1); + + fieldSetValue[CalendarFieldIndex::ERA] = y <= 0 ? 0 : 1; + fieldSetValue[CalendarFieldIndex::YEAR] = cast32To16(y <= 0 ? 1 - y : y); + fieldSet |= FIELDS; +} + +/// @throws RuntimeException +static UCalendarDateFields fieldNameConverter(sal_Int16 fieldIndex) +{ + UCalendarDateFields f; + + switch (fieldIndex) { + case CalendarFieldIndex::AM_PM: f = UCAL_AM_PM; break; + case CalendarFieldIndex::DAY_OF_MONTH: f = UCAL_DATE; break; + case CalendarFieldIndex::DAY_OF_WEEK: f = UCAL_DAY_OF_WEEK; break; + case CalendarFieldIndex::DAY_OF_YEAR: f = UCAL_DAY_OF_YEAR; break; + case CalendarFieldIndex::DST_OFFSET: f = UCAL_DST_OFFSET; break; + case CalendarFieldIndex::ZONE_OFFSET: f = UCAL_ZONE_OFFSET; break; + case CalendarFieldIndex::HOUR: f = UCAL_HOUR_OF_DAY; break; + case CalendarFieldIndex::MINUTE: f = UCAL_MINUTE; break; + case CalendarFieldIndex::SECOND: f = UCAL_SECOND; break; + case CalendarFieldIndex::MILLISECOND: f = UCAL_MILLISECOND; break; + case CalendarFieldIndex::WEEK_OF_MONTH: f = UCAL_WEEK_OF_MONTH; break; + case CalendarFieldIndex::WEEK_OF_YEAR: f = UCAL_WEEK_OF_YEAR; break; + case CalendarFieldIndex::YEAR: f = UCAL_YEAR; break; + case CalendarFieldIndex::MONTH: f = UCAL_MONTH; break; + case CalendarFieldIndex::ERA: f = UCAL_ERA; break; + default: throw RuntimeException(); + } + return f; +} + +void SAL_CALL +Calendar_gregorian::setValue( sal_Int16 fieldIndex, sal_Int16 value ) +{ + if (fieldIndex < 0 || FIELD_INDEX_COUNT <= fieldIndex) + throw RuntimeException(); + fieldSet |= (1 << fieldIndex); + fieldValue[fieldIndex] = value; +} + +bool Calendar_gregorian::getCombinedOffset( sal_Int32 & o_nOffset, + sal_Int16 nParentFieldIndex, sal_Int16 nChildFieldIndex ) const +{ + o_nOffset = 0; + bool bFieldsSet = false; + if (fieldSet & (1 << nParentFieldIndex)) + { + bFieldsSet = true; + o_nOffset = static_cast<sal_Int32>( fieldValue[nParentFieldIndex]) * 60000; + } + if (fieldSet & (1 << nChildFieldIndex)) + { + bFieldsSet = true; + if (o_nOffset < 0) + o_nOffset -= static_cast<sal_uInt16>( fieldValue[nChildFieldIndex]); + else + o_nOffset += static_cast<sal_uInt16>( fieldValue[nChildFieldIndex]); + } + return bFieldsSet; +} + +bool Calendar_gregorian::getZoneOffset( sal_Int32 & o_nOffset ) const +{ + return getCombinedOffset( o_nOffset, CalendarFieldIndex::ZONE_OFFSET, + CalendarFieldIndex::ZONE_OFFSET_SECOND_MILLIS); +} + +bool Calendar_gregorian::getDSTOffset( sal_Int32 & o_nOffset ) const +{ + return getCombinedOffset( o_nOffset, CalendarFieldIndex::DST_OFFSET, + CalendarFieldIndex::DST_OFFSET_SECOND_MILLIS); +} + +void Calendar_gregorian::submitFields() +{ + for (sal_Int16 fieldIndex = 0; fieldIndex < FIELD_INDEX_COUNT; fieldIndex++) + { + if (fieldSet & (1 << fieldIndex)) + { + switch (fieldIndex) + { + default: + body->set(fieldNameConverter(fieldIndex), fieldSetValue[fieldIndex]); + break; + case CalendarFieldIndex::ZONE_OFFSET: + case CalendarFieldIndex::DST_OFFSET: + case CalendarFieldIndex::ZONE_OFFSET_SECOND_MILLIS: + case CalendarFieldIndex::DST_OFFSET_SECOND_MILLIS: + break; // nothing, extra handling + } + } + } + sal_Int32 nZoneOffset, nDSTOffset; + if (getZoneOffset( nZoneOffset)) + body->set( fieldNameConverter( CalendarFieldIndex::ZONE_OFFSET), nZoneOffset); + if (getDSTOffset( nDSTOffset)) + body->set( fieldNameConverter( CalendarFieldIndex::DST_OFFSET), nDSTOffset); +} + +void Calendar_gregorian::setValue() +{ + // Copy fields before calling submitFields() directly or indirectly below. + memcpy(fieldSetValue, fieldValue, sizeof(fieldSetValue)); + // Possibly setup ERA and YEAR in fieldSetValue. + mapToGregorian(); + + DUMP_ICU_CAL_MSG(("%s\n","setValue() before submission")); + DUMP_I18N_CAL_MSG(("%s\n","setValue() before submission")); + + submitFields(); + + DUMP_ICU_CAL_MSG(("%s\n","setValue() after submission")); + DUMP_I18N_CAL_MSG(("%s\n","setValue() after submission")); + +#if erDUMP_ICU_CALENDAR || erDUMP_I18N_CALENDAR + { + // force icu::Calendar to recalculate + UErrorCode status; + sal_Int32 nTmp = body->get( UCAL_DATE, status = U_ZERO_ERROR); + DUMP_ICU_CAL_MSG(("%s: %d\n","setValue() result day",nTmp)); + DUMP_I18N_CAL_MSG(("%s: %d\n","setValue() result day",nTmp)); + } +#endif +} + +void Calendar_gregorian::getValue() +{ + DUMP_ICU_CAL_MSG(("%s\n","getValue()")); + DUMP_I18N_CAL_MSG(("%s\n","getValue()")); + for (sal_Int16 fieldIndex = 0; fieldIndex < FIELD_INDEX_COUNT; fieldIndex++) + { + if (fieldIndex == CalendarFieldIndex::ZONE_OFFSET_SECOND_MILLIS || + fieldIndex == CalendarFieldIndex::DST_OFFSET_SECOND_MILLIS) + continue; // not ICU fields + + UErrorCode status = U_ZERO_ERROR; + sal_Int32 value = body->get( fieldNameConverter( + fieldIndex), status); + if ( !U_SUCCESS(status) ) throw RuntimeException(); + + // Convert millisecond to minute for ZONE and DST and set remainder in + // second field. + if (fieldIndex == CalendarFieldIndex::ZONE_OFFSET) + { + sal_Int32 nMinutes = value / 60000; + sal_Int16 nMillis = static_cast<sal_Int16>( static_cast<sal_uInt16>( + abs( value - nMinutes * 60000))); + fieldValue[CalendarFieldIndex::ZONE_OFFSET] = static_cast<sal_Int16>( nMinutes); + fieldValue[CalendarFieldIndex::ZONE_OFFSET_SECOND_MILLIS] = nMillis; + } + else if (fieldIndex == CalendarFieldIndex::DST_OFFSET) + { + sal_Int32 nMinutes = value / 60000; + sal_Int16 nMillis = static_cast<sal_Int16>( static_cast<sal_uInt16>( + abs( value - nMinutes * 60000))); + fieldValue[CalendarFieldIndex::DST_OFFSET] = static_cast<sal_Int16>( nMinutes); + fieldValue[CalendarFieldIndex::DST_OFFSET_SECOND_MILLIS] = nMillis; + } + else + fieldValue[fieldIndex] = static_cast<sal_Int16>(value); + + // offset 1 since the value for week start day SunDay is different between Calendar and Weekdays. + if ( fieldIndex == CalendarFieldIndex::DAY_OF_WEEK ) + fieldValue[fieldIndex]--; // UCAL_SUNDAY:/* == 1 */ ==> Weekdays::SUNDAY /* ==0 */ + } + mapFromGregorian(); + fieldSet = 0; +} + +sal_Int16 SAL_CALL +Calendar_gregorian::getValue( sal_Int16 fieldIndex ) +{ + if (fieldIndex < 0 || FIELD_INDEX_COUNT <= fieldIndex) + throw RuntimeException(); + + if (fieldSet) { + setValue(); + getValue(); + } + + return fieldValue[fieldIndex]; +} + +void SAL_CALL +Calendar_gregorian::addValue( sal_Int16 fieldIndex, sal_Int32 value ) +{ + // since ZONE and DST could not be add, we don't need to convert value here + UErrorCode status = U_ZERO_ERROR; + body->add(fieldNameConverter(fieldIndex), value, status); + if ( !U_SUCCESS(status) ) throw RuntimeException(); + getValue(); +} + +sal_Bool SAL_CALL +Calendar_gregorian::isValid() +{ + if (fieldSet) { + sal_Int32 tmp = fieldSet; + setValue(); + memcpy(fieldSetValue, fieldValue, sizeof(fieldSetValue)); + getValue(); + for ( sal_Int16 fieldIndex = 0; fieldIndex < FIELD_INDEX_COUNT; fieldIndex++ ) { + // compare only with fields that are set and reset fieldSet[] + if (tmp & (1 << fieldIndex)) { + if (fieldSetValue[fieldIndex] != fieldValue[fieldIndex]) + return false; + } + } + } + return true; +} + +// NativeNumberMode has different meaning between Number and Calendar for Asian locales. +// Here is the mapping table +// calendar(q/y/m/d) zh_CN zh_TW ja ko +// NatNum1 NatNum1/1/7/7 NatNum1/1/7/7 NatNum1/1/4/4 NatNum1/1/7/7 +// NatNum2 NatNum2/2/8/8 NatNum2/2/8/8 NatNum2/2/5/5 NatNum2/2/8/8 +// NatNum3 NatNum3/3/3/3 NatNum3/3/3/3 NatNum3/3/3/3 NatNum3/3/3/3 +// NatNum4 NatNum9/9/11/11 + +static sal_Int16 NatNumForCalendar(const css::lang::Locale& aLocale, + sal_Int32 nCalendarDisplayCode, sal_Int16 nNativeNumberMode, sal_Int32 value ) +{ + bool isShort = ((nCalendarDisplayCode == CalendarDisplayCode::SHORT_YEAR || + nCalendarDisplayCode == CalendarDisplayCode::LONG_YEAR) && value >= 100) || + nCalendarDisplayCode == CalendarDisplayCode::SHORT_QUARTER || + nCalendarDisplayCode == CalendarDisplayCode::LONG_QUARTER; + bool isChinese = aLocale.Language == "zh"; + bool isJapanese = aLocale.Language == "ja"; + bool isKorean = aLocale.Language == "ko"; + + if (isChinese || isJapanese || isKorean) { + switch (nNativeNumberMode) { + case NativeNumberMode::NATNUM1: + if (!isShort) + nNativeNumberMode = isJapanese ? NativeNumberMode::NATNUM4 : NativeNumberMode::NATNUM7; + break; + case NativeNumberMode::NATNUM2: + if (!isShort) + nNativeNumberMode = isJapanese ? NativeNumberMode::NATNUM5 : NativeNumberMode::NATNUM8; + break; + case NativeNumberMode::NATNUM3: + break; + case NativeNumberMode::NATNUM4: + if (isKorean) + return isShort ? NativeNumberMode::NATNUM9 : NativeNumberMode::NATNUM11; + [[fallthrough]]; + default: return 0; + } + } + return nNativeNumberMode; +} + +static sal_Int32 DisplayCode2FieldIndex(sal_Int32 nCalendarDisplayCode) +{ + switch( nCalendarDisplayCode ) { + case CalendarDisplayCode::SHORT_DAY: + case CalendarDisplayCode::LONG_DAY: + return CalendarFieldIndex::DAY_OF_MONTH; + case CalendarDisplayCode::SHORT_DAY_NAME: + case CalendarDisplayCode::LONG_DAY_NAME: + case CalendarDisplayCode::NARROW_DAY_NAME: + return CalendarFieldIndex::DAY_OF_WEEK; + case CalendarDisplayCode::SHORT_QUARTER: + case CalendarDisplayCode::LONG_QUARTER: + case CalendarDisplayCode::SHORT_MONTH: + case CalendarDisplayCode::LONG_MONTH: + case CalendarDisplayCode::SHORT_MONTH_NAME: + case CalendarDisplayCode::LONG_MONTH_NAME: + case CalendarDisplayCode::NARROW_MONTH_NAME: + case CalendarDisplayCode::SHORT_GENITIVE_MONTH_NAME: + case CalendarDisplayCode::LONG_GENITIVE_MONTH_NAME: + case CalendarDisplayCode::NARROW_GENITIVE_MONTH_NAME: + case CalendarDisplayCode::SHORT_PARTITIVE_MONTH_NAME: + case CalendarDisplayCode::LONG_PARTITIVE_MONTH_NAME: + case CalendarDisplayCode::NARROW_PARTITIVE_MONTH_NAME: + return CalendarFieldIndex::MONTH; + case CalendarDisplayCode::SHORT_YEAR: + case CalendarDisplayCode::LONG_YEAR: + return CalendarFieldIndex::YEAR; + case CalendarDisplayCode::SHORT_ERA: + case CalendarDisplayCode::LONG_ERA: + return CalendarFieldIndex::ERA; + case CalendarDisplayCode::SHORT_YEAR_AND_ERA: + case CalendarDisplayCode::LONG_YEAR_AND_ERA: + return CalendarFieldIndex::YEAR; + default: + return 0; + } +} + +sal_Int16 SAL_CALL +Calendar_gregorian::getFirstDayOfWeek() +{ + // UCAL_SUNDAY == 1, Weekdays::SUNDAY == 0 => offset -1 + // Check for underflow just in case we're called "out of sync". + return ::std::max( sal::static_int_cast<sal_Int16>(0), + sal::static_int_cast<sal_Int16>( static_cast<sal_Int16>( + body->getFirstDayOfWeek()) - 1)); +} + +void SAL_CALL +Calendar_gregorian::setFirstDayOfWeek( sal_Int16 day ) +{ + // Weekdays::SUNDAY == 0, UCAL_SUNDAY == 1 => offset +1 + body->setFirstDayOfWeek( static_cast<UCalendarDaysOfWeek>( day + 1)); +} + +void SAL_CALL +Calendar_gregorian::setMinimumNumberOfDaysForFirstWeek( sal_Int16 days ) +{ + aCalendar.MinimumNumberOfDaysForFirstWeek = days; + body->setMinimalDaysInFirstWeek( static_cast<uint8_t>( days)); +} + +sal_Int16 SAL_CALL +Calendar_gregorian::getMinimumNumberOfDaysForFirstWeek() +{ + return aCalendar.MinimumNumberOfDaysForFirstWeek; +} + +sal_Int16 SAL_CALL +Calendar_gregorian::getNumberOfMonthsInYear() +{ + return static_cast<sal_Int16>(aCalendar.Months.getLength()); +} + + +sal_Int16 SAL_CALL +Calendar_gregorian::getNumberOfDaysInWeek() +{ + return static_cast<sal_Int16>(aCalendar.Days.getLength()); +} + + +Sequence< CalendarItem > SAL_CALL +Calendar_gregorian::getDays() +{ + return LocaleDataImpl::downcastCalendarItems( aCalendar.Days); +} + + +Sequence< CalendarItem > SAL_CALL +Calendar_gregorian::getMonths() +{ + return LocaleDataImpl::downcastCalendarItems( aCalendar.Months); +} + + +Sequence< CalendarItem2 > SAL_CALL +Calendar_gregorian::getDays2() +{ + return aCalendar.Days; +} + + +Sequence< CalendarItem2 > SAL_CALL +Calendar_gregorian::getMonths2() +{ + return aCalendar.Months; +} + + +Sequence< CalendarItem2 > SAL_CALL +Calendar_gregorian::getGenitiveMonths2() +{ + return aCalendar.GenitiveMonths; +} + + +Sequence< CalendarItem2 > SAL_CALL +Calendar_gregorian::getPartitiveMonths2() +{ + return aCalendar.PartitiveMonths; +} + + +OUString SAL_CALL +Calendar_gregorian::getDisplayName( sal_Int16 displayIndex, sal_Int16 idx, sal_Int16 nameType ) +{ + OUString aStr; + + switch( displayIndex ) { + case CalendarDisplayIndex::AM_PM:/* ==0 */ + if (idx == 0) aStr = LocaleDataImpl::get()->getLocaleItem(aLocale).timeAM; + else if (idx == 1) aStr = LocaleDataImpl::get()->getLocaleItem(aLocale).timePM; + else throw RuntimeException(); + break; + case CalendarDisplayIndex::DAY: + if( idx >= aCalendar.Days.getLength() ) throw RuntimeException(); + if (nameType == 0) aStr = aCalendar.Days[idx].AbbrevName; + else if (nameType == 1) aStr = aCalendar.Days[idx].FullName; + else if (nameType == 2) aStr = aCalendar.Days[idx].NarrowName; + else throw RuntimeException(); + break; + case CalendarDisplayIndex::MONTH: + if( idx >= aCalendar.Months.getLength() ) throw RuntimeException(); + if (nameType == 0) aStr = aCalendar.Months[idx].AbbrevName; + else if (nameType == 1) aStr = aCalendar.Months[idx].FullName; + else if (nameType == 2) aStr = aCalendar.Months[idx].NarrowName; + else throw RuntimeException(); + break; + case CalendarDisplayIndex::GENITIVE_MONTH: + if( idx >= aCalendar.GenitiveMonths.getLength() ) throw RuntimeException(); + if (nameType == 0) aStr = aCalendar.GenitiveMonths[idx].AbbrevName; + else if (nameType == 1) aStr = aCalendar.GenitiveMonths[idx].FullName; + else if (nameType == 2) aStr = aCalendar.GenitiveMonths[idx].NarrowName; + else throw RuntimeException(); + break; + case CalendarDisplayIndex::PARTITIVE_MONTH: + if( idx >= aCalendar.PartitiveMonths.getLength() ) throw RuntimeException(); + if (nameType == 0) aStr = aCalendar.PartitiveMonths[idx].AbbrevName; + else if (nameType == 1) aStr = aCalendar.PartitiveMonths[idx].FullName; + else if (nameType == 2) aStr = aCalendar.PartitiveMonths[idx].NarrowName; + else throw RuntimeException(); + break; + case CalendarDisplayIndex::ERA: + if( idx >= aCalendar.Eras.getLength() ) throw RuntimeException(); + if (nameType == 0) aStr = aCalendar.Eras[idx].AbbrevName; + else if (nameType == 1) aStr = aCalendar.Eras[idx].FullName; + else throw RuntimeException(); + break; + case CalendarDisplayIndex::YEAR: + break; + default: + throw RuntimeException(); + } + return aStr; +} + +// Methods in XExtendedCalendar +OUString SAL_CALL +Calendar_gregorian::getDisplayString( sal_Int32 nCalendarDisplayCode, sal_Int16 nNativeNumberMode ) +{ + return getDisplayStringImpl( nCalendarDisplayCode, nNativeNumberMode, false); +} + +OUString +Calendar_gregorian::getDisplayStringImpl( sal_Int32 nCalendarDisplayCode, sal_Int16 nNativeNumberMode, bool bEraMode ) +{ + sal_Int32 value = cast16To32( getValue( sal::static_int_cast<sal_Int16>( + DisplayCode2FieldIndex(nCalendarDisplayCode)))); + OUString aOUStr; + + if (nCalendarDisplayCode == CalendarDisplayCode::SHORT_QUARTER || + nCalendarDisplayCode == CalendarDisplayCode::LONG_QUARTER) { + Sequence< OUString> xR = LocaleDataImpl::get()->getReservedWord(aLocale); + sal_Int16 quarter = value / 3; + // Since this base class method may be called by derived calendar + // classes where a year consists of more than 12 months we need a check + // to not run out of bounds of reserved quarter words. Perhaps a more + // clean way (instead of dividing by 3) would be to first get the + // number of months, divide by 4 and then use that result to divide the + // actual month value. + if ( quarter > 3 ) + quarter = 3; + quarter = sal::static_int_cast<sal_Int16>( quarter + + ((nCalendarDisplayCode == CalendarDisplayCode::SHORT_QUARTER) ? + reservedWords::QUARTER1_ABBREVIATION : reservedWords::QUARTER1_WORD) ); + aOUStr = xR[quarter]; + } else { + // The "#100211# - checked" comments serve for detection of "use of + // sprintf is safe here" conditions. An sprintf encountered without + // having that comment triggers alarm ;-) + switch( nCalendarDisplayCode ) { + case CalendarDisplayCode::SHORT_MONTH: + value += 1; // month is zero based + [[fallthrough]]; + case CalendarDisplayCode::SHORT_DAY: + aOUStr = OUString::number(value); + break; + case CalendarDisplayCode::LONG_YEAR: + if ( aCalendar.Name == "gengou" ) + { + char aStr[12]; // "-2147483648" and \0 + o3tl::sprintf(aStr, "%02" SAL_PRIdINT32, value); // #100211# - checked + aOUStr = OUString::createFromAscii(aStr); + } + else + aOUStr = OUString::number(value); + break; + case CalendarDisplayCode::LONG_MONTH: + { + value += 1; // month is zero based + char aStr[12]; // "-2147483648" and \0 + o3tl::sprintf(aStr, "%02" SAL_PRIdINT32, value); // #100211# - checked + aOUStr = OUString::createFromAscii(aStr); + break; + } + case CalendarDisplayCode::SHORT_YEAR: + // Take last 2 digits, or only one if value<10, for example, + // in case of the Gengou calendar. For combined era+year always + // the full year is displayed, without leading 0. + // Workaround for non-combined calls in certain calendars is + // the kDisplayEraForcedLongYear flag, but this also could get + // called for YY not only E format codes, no differentiation + // possible here; the good news is that usually the Gregorian + // calendar is the default and hence YY calls for Gregorian and + // E for the other calendar and currently (2013-02-28) ROC is + // the only calendar using this. + // See i#116701 and fdo#60915 + if (value < 100 || bEraMode || (eraArray && (eraArray[0].flags & kDisplayEraForcedLongYear))) + aOUStr = OUString::number(value); + else + { + char aStr[12]; // "-2147483648" and \0 + o3tl::sprintf(aStr, "%02" SAL_PRIdINT32, value % 100); // #100211# - checked + aOUStr = OUString::createFromAscii(aStr); + } + break; + case CalendarDisplayCode::LONG_DAY: + { + char aStr[12]; // "-2147483648" and \0 + o3tl::sprintf(aStr, "%02" SAL_PRIdINT32, value); // #100211# - checked + aOUStr = OUString::createFromAscii(aStr); + break; + } + + case CalendarDisplayCode::SHORT_DAY_NAME: + return getDisplayName(CalendarDisplayIndex::DAY, value, 0); + case CalendarDisplayCode::LONG_DAY_NAME: + return getDisplayName(CalendarDisplayIndex::DAY, value, 1); + case CalendarDisplayCode::NARROW_DAY_NAME: + return getDisplayName(CalendarDisplayIndex::DAY, value, 2); + case CalendarDisplayCode::SHORT_MONTH_NAME: + return getDisplayName(CalendarDisplayIndex::MONTH, value, 0); + case CalendarDisplayCode::LONG_MONTH_NAME: + return getDisplayName(CalendarDisplayIndex::MONTH, value, 1); + case CalendarDisplayCode::NARROW_MONTH_NAME: + return getDisplayName(CalendarDisplayIndex::MONTH, value, 2); + case CalendarDisplayCode::SHORT_GENITIVE_MONTH_NAME: + return getDisplayName(CalendarDisplayIndex::GENITIVE_MONTH, value, 0); + case CalendarDisplayCode::LONG_GENITIVE_MONTH_NAME: + return getDisplayName(CalendarDisplayIndex::GENITIVE_MONTH, value, 1); + case CalendarDisplayCode::NARROW_GENITIVE_MONTH_NAME: + return getDisplayName(CalendarDisplayIndex::GENITIVE_MONTH, value, 2); + case CalendarDisplayCode::SHORT_PARTITIVE_MONTH_NAME: + return getDisplayName(CalendarDisplayIndex::PARTITIVE_MONTH, value, 0); + case CalendarDisplayCode::LONG_PARTITIVE_MONTH_NAME: + return getDisplayName(CalendarDisplayIndex::PARTITIVE_MONTH, value, 1); + case CalendarDisplayCode::NARROW_PARTITIVE_MONTH_NAME: + return getDisplayName(CalendarDisplayIndex::PARTITIVE_MONTH, value, 2); + case CalendarDisplayCode::SHORT_ERA: + return getDisplayName(CalendarDisplayIndex::ERA, value, 0); + case CalendarDisplayCode::LONG_ERA: + return getDisplayName(CalendarDisplayIndex::ERA, value, 1); + + case CalendarDisplayCode::SHORT_YEAR_AND_ERA: + return getDisplayStringImpl( CalendarDisplayCode::SHORT_ERA, nNativeNumberMode, true ) + + getDisplayStringImpl( CalendarDisplayCode::SHORT_YEAR, nNativeNumberMode, true ); + + case CalendarDisplayCode::LONG_YEAR_AND_ERA: + return getDisplayStringImpl( CalendarDisplayCode::LONG_ERA, nNativeNumberMode, true ) + + getDisplayStringImpl( CalendarDisplayCode::LONG_YEAR, nNativeNumberMode, true ); + + default: + throw RuntimeException(); + } + } + // NatNum12 used only for selected parts + if (nNativeNumberMode > 0 && nNativeNumberMode != 12) { + // For Japanese calendar, first year calls GAN, see bug 111668 for detail. + if (eraArray == gengou_eraArray && value == 1 + && (nCalendarDisplayCode == CalendarDisplayCode::SHORT_YEAR || + nCalendarDisplayCode == CalendarDisplayCode::LONG_YEAR) + && (nNativeNumberMode == NativeNumberMode::NATNUM1 || + nNativeNumberMode == NativeNumberMode::NATNUM2)) { + static sal_Unicode gan = 0x5143; + return OUString(&gan, 1); + } + sal_Int16 nNatNum = NatNumForCalendar(aLocale, nCalendarDisplayCode, nNativeNumberMode, value); + if (nNatNum > 0) + return mxNatNum->getNativeNumberString(aOUStr, aLocale, nNatNum); + } + return aOUStr; +} + +// Methods in XExtendedCalendar +OUString SAL_CALL +Calendar_buddhist::getDisplayString( sal_Int32 nCalendarDisplayCode, sal_Int16 nNativeNumberMode ) +{ + // make year and era in different order for year before and after 0. + if ((nCalendarDisplayCode == CalendarDisplayCode::LONG_YEAR_AND_ERA || + nCalendarDisplayCode == CalendarDisplayCode::SHORT_YEAR_AND_ERA) && + getValue(CalendarFieldIndex::ERA) == 0) { + if (nCalendarDisplayCode == CalendarDisplayCode::LONG_YEAR_AND_ERA) + return getDisplayStringImpl( CalendarDisplayCode::SHORT_YEAR, nNativeNumberMode, true ) + + getDisplayStringImpl( CalendarDisplayCode::SHORT_ERA, nNativeNumberMode, true ); + else + return getDisplayStringImpl( CalendarDisplayCode::LONG_YEAR, nNativeNumberMode, true ) + + getDisplayStringImpl( CalendarDisplayCode::LONG_ERA, nNativeNumberMode, true ); + } + return Calendar_gregorian::getDisplayString(nCalendarDisplayCode, nNativeNumberMode); +} + +OUString SAL_CALL +Calendar_gregorian::getImplementationName() +{ + return OUString::createFromAscii(cCalendar); +} + +sal_Bool SAL_CALL +Calendar_gregorian::supportsService(const OUString& rServiceName) +{ + return cppu::supportsService(this, rServiceName); +} + +Sequence< OUString > SAL_CALL +Calendar_gregorian::getSupportedServiceNames() +{ + Sequence< OUString > aRet { OUString::createFromAscii(cCalendar) }; + return aRet; +} + +} + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/i18npool/source/calendar/calendar_hijri.cxx b/i18npool/source/calendar/calendar_hijri.cxx new file mode 100644 index 0000000000..ed64c80db6 --- /dev/null +++ b/i18npool/source/calendar/calendar_hijri.cxx @@ -0,0 +1,317 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/* + * This file is part of the LibreOffice project. + * + * This Source Code Form is subject to the terms of the Mozilla Public + * License, v. 2.0. If a copy of the MPL was not distributed with this + * file, You can obtain one at http://mozilla.org/MPL/2.0/. + * + * This file incorporates work covered by the following license notice: + * + * Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed + * with this work for additional information regarding copyright + * ownership. The ASF licenses this file to you under the Apache + * License, Version 2.0 (the "License"); you may not use this file + * except in compliance with the License. You may obtain a copy of + * the License at http://www.apache.org/licenses/LICENSE-2.0 . + */ + +#include <sal/config.h> +#include <i18nutil/calendar.hxx> +#include <cmath> +#include <stdlib.h> + +#include <calendar_hijri.hxx> +#include <tools/long.hxx> +#include <basegfx/numeric/ftools.hxx> + +using namespace ::com::sun::star::uno; +using namespace ::com::sun::star::lang; +using namespace ::com::sun::star::i18n; + +namespace i18npool { + +// Synodic Period (mean time between 2 successive new moon: 29d, 12 hr, 44min, 3sec +constexpr double SynPeriod = 29.53058868; + +// Julian day on Jan 1, 1900 +constexpr double jd1900 = 2415020.75933; + +// Reference point: March 26, 2001 == 1422 Hijri == 1252 Synodial month from 1900 +constexpr sal_Int32 SynRef = 1252; +constexpr sal_Int32 GregRef = 1422; + +Calendar_hijri::Calendar_hijri() +{ + cCalendar = "com.sun.star.i18n.Calendar_hijri"; +} + +#define FIELDS ((1 << CalendarFieldIndex::ERA) | (1 << CalendarFieldIndex::YEAR) | (1 << CalendarFieldIndex::MONTH) | (1 << CalendarFieldIndex::DAY_OF_MONTH)) + +// map field value from hijri calendar to gregorian calendar +void Calendar_hijri::mapToGregorian() +{ + if (!(fieldSet & FIELDS)) + return; + + sal_Int32 day = static_cast<sal_Int32>(fieldSetValue[CalendarFieldIndex::DAY_OF_MONTH]); + sal_Int32 month = static_cast<sal_Int32>(fieldSetValue[CalendarFieldIndex::MONTH]) + 1; + sal_Int32 year = static_cast<sal_Int32>(fieldSetValue[CalendarFieldIndex::YEAR]); + if (fieldSetValue[CalendarFieldIndex::ERA] == 0) + year *= -1; + + ToGregorian(&day, &month, &year); + + fieldSetValue[CalendarFieldIndex::ERA] = year <= 0 ? 0 : 1; + fieldSetValue[CalendarFieldIndex::MONTH] = sal::static_int_cast<sal_Int16>(month - 1); + fieldSetValue[CalendarFieldIndex::DAY_OF_MONTH] = static_cast<sal_Int16>(day); + fieldSetValue[CalendarFieldIndex::YEAR] = static_cast<sal_Int16>(abs(year)); + fieldSet |= FIELDS; +} + +// map field value from gregorian calendar to hijri calendar +void Calendar_hijri::mapFromGregorian() +{ + sal_Int32 month, day, year; + + day = static_cast<sal_Int32>(fieldValue[CalendarFieldIndex::DAY_OF_MONTH]); + month = static_cast<sal_Int32>(fieldValue[CalendarFieldIndex::MONTH]) + 1; + year = static_cast<sal_Int32>(fieldValue[CalendarFieldIndex::YEAR]); + if (fieldValue[CalendarFieldIndex::ERA] == 0) + year *= -1; + + // Get Hijri date + getHijri(&day, &month, &year); + + fieldValue[CalendarFieldIndex::DAY_OF_MONTH] = static_cast<sal_Int16>(day); + fieldValue[CalendarFieldIndex::MONTH] = sal::static_int_cast<sal_Int16>(month - 1); + fieldValue[CalendarFieldIndex::YEAR] = static_cast<sal_Int16>(abs(year)); + fieldValue[CalendarFieldIndex::ERA] = static_cast<sal_Int16>(year) < 1 ? 0 : 1; +} + + +// This function returns the Julian date/time of the Nth new moon since +// January 1900. The synodic month is passed as parameter. + +// Adapted from "Astronomical Formulae for Calculators" by +// Jean Meeus, Third Edition, Willmann-Bell, 1985. + +double +Calendar_hijri::NewMoon(sal_Int32 n) +{ + double jd, t, t2, t3, k, ma, sa, tf, xtra; + k = n; + t = k/1236.85; // Time in Julian centuries from 1900 January 0.5 + t2 = t * t; + t3 = t2 * t; + + // Mean time of phase + jd = jd1900 + + SynPeriod * k + - 0.0001178 * t2 + - 0.000000155 * t3 + + 0.00033 * sin(basegfx::deg2rad(166.56 + 132.87 * t - 0.009173 * t2)); + + // Sun's mean anomaly in radian + sa = basegfx::deg2rad(359.2242 + + 29.10535608 * k + - 0.0000333 * t2 + - 0.00000347 * t3); + + // Moon's mean anomaly + ma = basegfx::deg2rad(306.0253 + + 385.81691806 * k + + 0.0107306 * t2 + + 0.00001236 * t3); + + // Moon's argument of latitude + tf = 2.0 * basegfx::deg2rad(21.2964 + + 390.67050646 * k + - 0.0016528 * t2 + - 0.00000239 * t3); + + // should reduce to interval between 0 to 1.0 before calculating further + // Corrections for New Moon + xtra = (0.1734 - 0.000393 * t) * sin(sa) + + 0.0021 * sin(sa * 2) + - 0.4068 * sin(ma) + + 0.0161 * sin(2 * ma) + - 0.0004 * sin(3 * ma) + + 0.0104 * sin(tf) + - 0.0051 * sin(sa + ma) + - 0.0074 * sin(sa - ma) + + 0.0004 * sin(tf + sa) + - 0.0004 * sin(tf - sa) + - 0.0006 * sin(tf + ma) + + 0.0010 * sin(tf - ma) + + 0.0005 * sin(sa + 2 * ma); + + // convert from Ephemeris Time (ET) to (approximate) Universal Time (UT) + jd += xtra - (0.41 + 1.2053 * t + 0.4992 * t2)/1440; + + return jd; +} + +// Get Hijri Date +void +Calendar_hijri::getHijri(sal_Int32 *day, sal_Int32 *month, sal_Int32 *year) +{ + double prevday; + sal_Int32 syndiff; + sal_Int32 newsyn; + double newjd; + sal_Int32 synmonth; + + // Get Julian Day from Gregorian + sal_Int32 const julday = getJulianDay(*day, *month, *year); + + // obtain approx. of how many Synodic months since the beginning of the year 1900 + synmonth = static_cast<sal_Int32>(0.5 + (julday - jd1900)/SynPeriod); + + newsyn = synmonth; + prevday = julday - 0.5; + + do { + newjd = NewMoon(newsyn); + + // Decrement syntonic months + newsyn--; + } while (newjd > prevday); + newsyn++; + + // difference from reference point + syndiff = newsyn - SynRef; + + // Round up the day + *day = static_cast<sal_Int32>(julday - newjd + 0.5); + *month = (syndiff % 12) + 1; + + // currently not supported + //dayOfYear = (sal_Int32)(month * SynPeriod + day); + *year = GregRef + static_cast<sal_Int32>(syndiff / 12); + + // If month negative, consider it previous year + if (syndiff != 0 && *month <= 0) { + *month += 12; + (*year)--; + } + + // If Before Hijri subtract 1 + if (*year <= 0) (*year)--; +} + +void +Calendar_hijri::ToGregorian(sal_Int32 *day, sal_Int32 *month, sal_Int32 *year) +{ + sal_Int32 nmonth; + double jday; + + if ( *year < 0 ) (*year)++; + + // Number of month from reference point + nmonth = *month + *year * 12 - (GregRef * 12 + 1); + + // Add Synodic Reference point + nmonth += SynRef; + + // Get Julian days add time too + jday = NewMoon(nmonth) + *day; + + // Round-up + jday = std::trunc(jday + 0.5); + + // Use algorithm from "Numerical Recipes in C" + getGregorianDay(static_cast<sal_Int32>(jday), day, month, year); + + // Julian -> Gregorian only works for non-negative year + if ( *year <= 0 ) { + *day = -1; + *month = -1; + *year = -1; + } +} + +/* this algorithm is taken from "Numerical Recipes in C", 2nd ed, pp 14-15. */ +/* this algorithm only valid for non-negative gregorian year */ +void +Calendar_hijri::getGregorianDay(sal_Int32 lJulianDay, sal_Int32 *pnDay, sal_Int32 *pnMonth, sal_Int32 *pnYear) +{ + /* working variables */ + tools::Long lFactorA, lFactorB, lFactorC, lFactorD, lFactorE; + + constexpr sal_Int32 GREGORIAN_CROSSOVER = 2299161; + + /* test whether to adjust for the Gregorian calendar crossover */ + if (lJulianDay >= GREGORIAN_CROSSOVER) { + /* calculate a small adjustment */ + tools::Long lAdjust = static_cast<tools::Long>((static_cast<float>(lJulianDay - 1867216) - 0.25) / 36524.25); + + lFactorA = lJulianDay + 1 + lAdjust - static_cast<tools::Long>(0.25 * lAdjust); + + } else { + /* no adjustment needed */ + lFactorA = lJulianDay; + } + + lFactorB = lFactorA + 1524; + lFactorC = static_cast<tools::Long>(6680.0 + (static_cast<float>(lFactorB - 2439870) - 122.1) / 365.25); + lFactorD = static_cast<tools::Long>(365 * lFactorC + (0.25 * lFactorC)); + lFactorE = static_cast<tools::Long>((lFactorB - lFactorD) / i18nutil::monthDaysWithoutJanFeb); + + /* now, pull out the day number */ + *pnDay = lFactorB - lFactorD - static_cast<tools::Long>(i18nutil::monthDaysWithoutJanFeb * lFactorE); + + /* ...and the month, adjusting it if necessary */ + *pnMonth = lFactorE - 1; + if (*pnMonth > 12) + (*pnMonth) -= 12; + + /* ...and similarly for the year */ + *pnYear = lFactorC - 4715; + if (*pnMonth > 2) + (*pnYear)--; + + // Negative year adjustments + if (*pnYear <= 0) + (*pnYear)--; +} + +sal_Int32 +Calendar_hijri::getJulianDay(sal_Int32 day, sal_Int32 month, sal_Int32 year) +{ + double jy, jm; + + if( year == 0 ) { + return -1; + } + + if( year == 1582 && month == 10 && day > 4 && day < 15 ) { + return -1; + } + + if( month > 2 ) { + jy = year; + jm = month + 1; + } else { + jy = year - 1; + jm = month + 13; + } + + sal_Int32 intgr = static_cast<sal_Int32>(static_cast<sal_Int32>(365.25 * jy) + static_cast<sal_Int32>(i18nutil::monthDaysWithoutJanFeb * jm) + day + 1720995 ); + + //check for switch to Gregorian calendar + double const gregcal = 15 + 31 * ( 10 + 12 * 1582 ); + + if( day + 31 * (month + 12 * year) >= gregcal ) { + double ja; + ja = std::trunc(0.01 * jy); + intgr += static_cast<sal_Int32>(2 - ja + std::trunc(0.25 * ja)); + } + + return intgr; +} + +} + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/i18npool/source/calendar/calendar_jewish.cxx b/i18npool/source/calendar/calendar_jewish.cxx new file mode 100644 index 0000000000..19b55eaf87 --- /dev/null +++ b/i18npool/source/calendar/calendar_jewish.cxx @@ -0,0 +1,316 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/* + * This file is part of the LibreOffice project. + * + * This Source Code Form is subject to the terms of the Mozilla Public + * License, v. 2.0. If a copy of the MPL was not distributed with this + * file, You can obtain one at http://mozilla.org/MPL/2.0/. + * + * This file incorporates work covered by the following license notice: + * + * Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed + * with this work for additional information regarding copyright + * ownership. The ASF licenses this file to you under the Apache + * License, Version 2.0 (the "License"); you may not use this file + * except in compliance with the License. You may obtain a copy of + * the License at http://www.apache.org/licenses/LICENSE-2.0 . + */ + + +#include <calendar_jewish.hxx> +#include <nativenumbersupplier.hxx> + +#include <com/sun/star/i18n/CalendarDisplayCode.hpp> +#include <com/sun/star/i18n/NativeNumberMode.hpp> + +using namespace ::com::sun::star::uno; +using namespace ::com::sun::star::i18n; +using namespace ::com::sun::star::lang; + +namespace i18npool { + +// not used +//static UErrorCode status; // status is shared in all calls to Calendar, it has to be reset for each call. + +Calendar_jewish::Calendar_jewish() +{ + cCalendar = "com.sun.star.i18n.Calendar_jewish"; +} + +// The following C++ code is translated from the Lisp code in +// ``Calendrical Calculations'' by Nachum Dershowitz and Edward M. Reingold, +// Software---Practice & Experience, vol. 20, no. 9 (September, 1990), +// pp. 899--928. + +// This code is in the public domain, but any use of it +// should acknowledge its source. +// https://web.archive.org/web/20010222054702/http://www.ntu.edu.sg/home/ayxyan/date1.txt + +// Hebrew dates + +const int HebrewEpoch = -1373429; // Absolute date of start of Hebrew calendar + +// True if year is an Hebrew leap year +static bool HebrewLeapYear(sal_Int32 year) { + return ((((7 * year) + 1) % 19) < 7); +} + +// Last month of Hebrew year. +static sal_Int32 LastMonthOfHebrewYear(sal_Int32 year) { + return (HebrewLeapYear(year)) ? 13 : 12; +} + +// Number of days elapsed from the Sunday prior to the start of the +// Hebrew calendar to the mean conjunction of Tishri of Hebrew year. +static sal_Int32 HebrewCalendarElapsedDays(sal_Int32 year) { + sal_Int32 MonthsElapsed = + (235 * ((year - 1) / 19)) // Months in complete cycles so far. + + (12 * ((year - 1) % 19)) // Regular months in this cycle. + + (7 * ((year - 1) % 19) + 1) / 19; // Leap months this cycle + sal_Int32 PartsElapsed = 204 + 793 * (MonthsElapsed % 1080); + int HoursElapsed = + 5 + 12 * MonthsElapsed + 793 * (MonthsElapsed / 1080) + + PartsElapsed / 1080; + sal_Int32 ConjunctionDay = 1 + 29 * MonthsElapsed + HoursElapsed / 24; + sal_Int32 ConjunctionParts = 1080 * (HoursElapsed % 24) + PartsElapsed % 1080; + sal_Int32 AlternativeDay; + + if ((ConjunctionParts >= 19440) // If new moon is at or after midday, + || (((ConjunctionDay % 7) == 2) // ...or is on a Tuesday... + && (ConjunctionParts >= 9924) // at 9 hours, 204 parts or later... + && !(HebrewLeapYear(year))) // ...of a common year, + || (((ConjunctionDay % 7) == 1) // ...or is on a Monday at... + && (ConjunctionParts >= 16789) // 15 hours, 589 parts or later... + && (HebrewLeapYear(year - 1))))// at the end of a leap year + // Then postpone Rosh HaShanah one day + AlternativeDay = ConjunctionDay + 1; + else + AlternativeDay = ConjunctionDay; + + if (((AlternativeDay % 7) == 0)// If Rosh HaShanah would occur on Sunday, + || ((AlternativeDay % 7) == 3) // or Wednesday, + || ((AlternativeDay % 7) == 5)) // or Friday + // Then postpone it one (more) day + return (1+ AlternativeDay); + else + return AlternativeDay; +} + +// Number of days in Hebrew year. +static sal_Int32 DaysInHebrewYear(sal_Int32 year) { + return ((HebrewCalendarElapsedDays(year + 1)) - + (HebrewCalendarElapsedDays(year))); +} + +// True if Heshvan is long in Hebrew year. +static bool LongHeshvan(sal_Int32 year) { + return ((DaysInHebrewYear(year) % 10) == 5); +} + +// True if Kislev is short in Hebrew year. +static bool ShortKislev(sal_Int32 year) { + return ((DaysInHebrewYear(year) % 10) == 3); +} + +// Last day of month in Hebrew year. +static sal_Int32 LastDayOfHebrewMonth(sal_Int32 month, sal_Int32 year) { + if ((month == 2) + || (month == 4) + || (month == 6) + || ((month == 8) && !(LongHeshvan(year))) + || ((month == 9) && ShortKislev(year)) + || (month == 10) + || ((month == 12) && !(HebrewLeapYear(year))) + || (month == 13)) + return 29; + else + return 30; +} + +namespace { + +class HebrewDate { +private: + sal_Int32 year; // 1... + sal_Int32 month; // 1..LastMonthOfHebrewYear(year) + sal_Int32 day; // 1..LastDayOfHebrewMonth(month, year) + +public: + HebrewDate(sal_Int32 m, sal_Int32 d, sal_Int32 y) : year(y), month(m), day(d) { } + + explicit HebrewDate(sal_Int32 d) { // Computes the Hebrew date from the absolute date. + + if (d == 730119) // 1999-12-31 : a very common date used in calc + { + year = 5760; + month = 10; + day = 22; + return; + } + + year = (d + HebrewEpoch) / 366; // Approximation from below. + // Search forward for year from the approximation. + while (d >= HebrewDate(7,1,year + 1).GetAbsoluteDate()) + year++; + // Search forward for month from either Tishri or Nisan. + if (d < HebrewDate(1, 1, year).GetAbsoluteDate()) + month = 7; // Start at Tishri + else + month = 1; // Start at Nisan + while (d > HebrewDate(month, (LastDayOfHebrewMonth(month,year)), year).GetAbsoluteDate()) + month++; + // Calculate the day by subtraction. + day = d - HebrewDate(month, 1, year).GetAbsoluteDate() + 1; + } + + int GetAbsoluteDate() const { // Computes the absolute date of Hebrew date. + sal_Int32 DayInYear = day; // Days so far this month. + if (month < 7) { // Before Tishri, so add days in prior months + // this year before and after Nisan. + sal_Int32 m = 7; + while (m <= (LastMonthOfHebrewYear(year))) { + DayInYear = DayInYear + LastDayOfHebrewMonth(m, year); + m++; + }; + m = 1; + while (m < month) { + DayInYear = DayInYear + LastDayOfHebrewMonth(m, year); + m++; + } + } + else { // Add days in prior months this year + sal_Int32 m = 7; + while (m < month) { + DayInYear = DayInYear + LastDayOfHebrewMonth(m, year); + m++; + } + } + return (DayInYear + + (HebrewCalendarElapsedDays(year)// Days in prior years. + + HebrewEpoch)); // Days elapsed before absolute date 1. + } + + sal_Int32 GetMonth() const { return month; } + sal_Int32 GetDay() const { return day; } + sal_Int32 GetYear() const { return year; } + +}; + +} + +// Gregorian dates + +static int LastDayOfGregorianMonth(int month, int year) { +// Compute the last date of the month for the Gregorian calendar. + + switch (month) { + case 2: + if ((((year % 4) == 0) && ((year % 100) != 0)) + || ((year % 400) == 0)) + return 29; + else + return 28; + case 4: + case 6: + case 9: + case 11: return 30; + default: return 31; + } +} + +namespace { + +class GregorianDate { +private: + int year; // 1... + int month; // 1 == January, ..., 12 == December + int day; // 1..LastDayOfGregorianMonth(month, year) + +public: + GregorianDate(int m, int d, int y) { month = m; day = d; year = y; } + + explicit GregorianDate(int d) { // Computes the Gregorian date from the absolute date. + // Search forward year by year from approximate year + year = d/366; + while (d >= GregorianDate(1,1,year+1).GetAbsoluteDate()) + year++; + // Search forward month by month from January + month = 1; + while (d > GregorianDate(month, LastDayOfGregorianMonth(month,year), year).GetAbsoluteDate()) + month++; + day = d - GregorianDate(month,1,year).GetAbsoluteDate() + 1; + } + + int GetAbsoluteDate() const { // Computes the absolute date from the Gregorian date. + int N = day; // days this month + for (int m = month - 1; m > 0; m--) // days in prior months this year + N = N + LastDayOfGregorianMonth(m, year); + return + (N // days this year + + 365 * (year - 1) // days in previous years ignoring leap days + + (year - 1)/4 // Julian leap days before this year... + - (year - 1)/100 // ...minus prior century years... + + (year - 1)/400); // ...plus prior years divisible by 400 + } + + int GetMonth() const { return month; } + int GetDay() const { return day; } + int GetYear() const { return year; } + +}; + +} + +// map field value from gregorian calendar to other calendar, it can be overwritten by derived class. +void Calendar_jewish::mapFromGregorian() +{ + int y = fieldValue[CalendarFieldIndex::YEAR]; + if (fieldValue[CalendarFieldIndex::ERA] == 0) + y = 1 - y; + GregorianDate Temp(fieldValue[CalendarFieldIndex::MONTH] + 1, fieldValue[CalendarFieldIndex::DAY_OF_MONTH], y); + HebrewDate hd(Temp.GetAbsoluteDate()); + + fieldValue[CalendarFieldIndex::ERA] = hd.GetYear() <= 0 ? 0 : 1; + fieldValue[CalendarFieldIndex::MONTH] = sal::static_int_cast<sal_Int16>( hd.GetMonth() - 1 ); + fieldValue[CalendarFieldIndex::DAY_OF_MONTH] = static_cast<sal_Int16>(hd.GetDay()); + fieldValue[CalendarFieldIndex::YEAR] = static_cast<sal_Int16>(hd.GetYear() <= 0 ? 1 - hd.GetYear() : hd.GetYear()); +} + +#define FIELDS ((1 << CalendarFieldIndex::ERA) | (1 << CalendarFieldIndex::YEAR) | (1 << CalendarFieldIndex::MONTH) | (1 << CalendarFieldIndex::DAY_OF_MONTH)) +// map field value from other calendar to gregorian calendar, it should be implemented. +void Calendar_jewish::mapToGregorian() +{ + if (!(fieldSet & FIELDS)) + return; + + sal_Int16 y = fieldSetValue[CalendarFieldIndex::YEAR]; + if (fieldSetValue[CalendarFieldIndex::ERA] == 0) + y = 1 - y; + HebrewDate Temp(fieldSetValue[CalendarFieldIndex::MONTH] + 1, fieldSetValue[CalendarFieldIndex::DAY_OF_MONTH], y); + GregorianDate gd(Temp.GetAbsoluteDate()); + + fieldSetValue[CalendarFieldIndex::ERA] = gd.GetYear() <= 0 ? 0 : 1; + fieldSetValue[CalendarFieldIndex::MONTH] = sal::static_int_cast<sal_Int16>( gd.GetMonth() - 1 ); + fieldSetValue[CalendarFieldIndex::DAY_OF_MONTH] = static_cast<sal_Int16>(gd.GetDay()); + fieldSetValue[CalendarFieldIndex::YEAR] = static_cast<sal_Int16>(gd.GetYear() <= 0 ? 1 - gd.GetYear() : gd.GetYear()); + fieldSet |= FIELDS; +} + +// Methods in XExtendedCalendar +OUString SAL_CALL +Calendar_jewish::getDisplayString( sal_Int32 nCalendarDisplayCode, sal_Int16 /*nNativeNumberMode*/ ) +{ + const sal_Int16 nNativeNumberMode = NativeNumberMode::NATNUM2; // make Hebrew number for Jewish calendar + + if (nCalendarDisplayCode == CalendarDisplayCode::SHORT_YEAR) { + sal_Int32 value = getValue(CalendarFieldIndex::YEAR) % 1000; // take last 3 digits + return mxNatNum->getNativeNumberString(OUString::number(value), aLocale, nNativeNumberMode ); + } + else + return Calendar_gregorian::getDisplayString(nCalendarDisplayCode, nNativeNumberMode ); +} + +} + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ |