You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
tdelibs/tdecore/kcalendarsystemjalali.cpp

561 lines
13 KiB

/*
Copyright (C) 2002-2003 Arash Bijanzadeh and FarsiKDE Project <www.farsikde.org>
Contact: Arash Bijanzadeh <a.bijanzadeh@linuxiran.org>
This program is part of FarsiKDE
FarsiKDE is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
FarsiKDE is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public License
along with this library; see the file COPYING.LIB. If not, write to
the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301, USA.
*/
#include <tqdatetime.h>
#include <tqstring.h>
#include <tqstringlist.h>
#include <math.h>
#include <tdeglobal.h>
#include <tdelocale.h>
#include <kdebug.h>
#include <stdio.h>
#include "kcalendarsystemjalali.h"
static const int gMonthDay[2][13]={
{0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31},
{0, 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31},
};
static const int jMonthDay[2][13] = {
{0, 31, 31, 31, 31, 31, 31, 30, 30, 30, 30, 30, 29},
{0, 31, 31, 31, 31, 31, 31, 30, 30, 30, 30, 30, 30},
};
typedef struct {
int day;
int mon;
int year;
} SDATE;
// converting funcs from
static int Ceil(float number)
{
int ret;
if(number>0)
number += 0.5;
ret =(int) number;
return ret;
}
static long jalali_jdn(int year, int month, int day)
{
const long PERSIAN_EPOCH = 1948321; /* The JDN of 1 Farvardin 1*/
int epbase;
long epyear;
long mdays;
long jdn;
epbase = year - 474;
epyear = 474 + (epbase % 2820);
if (month <= 7)
mdays = (month - 1) * 31;
else
mdays = (month - 1) * 30 + 6;
jdn = day + mdays ;
jdn += (((epyear * 682) - 110) / 2816) ;
jdn += (epyear - 1) * 365;
jdn += (epbase / 2820) * 1029983 ;
jdn += (PERSIAN_EPOCH - 1);
return jdn;
}
static SDATE jdn_jalali(long jdn)
{
static SDATE ret;
int day, month, year;
int iYear, iMonth, iDay;
int depoch;
int cycle;
int cyear;
int ycycle;
int aux1, aux2;
int yday;
day = 1;
month = 1;
year = 475;
depoch = jdn - jalali_jdn(year,month, day);
cycle = (int) (depoch / 1029983);
cyear = depoch % 1029983;
if( cyear == 1029982)
ycycle = 2820;
else{
aux1 = cyear / 366;
aux2 = cyear % 366;
ycycle = (((2134 * aux1) + (2816 * aux2) + 2815) / 1028522) + aux1 + 1;
}
iYear = ycycle + (2820 * cycle) + 474;
if (iYear <= 0)
iYear = iYear - 1;
year = iYear;
yday = (jdn - jalali_jdn(year, month, day)) + 1;
if(yday <= 186 )
iMonth = Ceil((yday-1) / 31);
else
iMonth = Ceil((yday - 7) / 30);
iMonth++;
month = iMonth;
iDay = (jdn - jalali_jdn(year, month, day)) + 1;
ret.day = iDay;
ret.mon = iMonth;
ret.year = iYear;
return ret;
}
static long civil_jdn(int year, int month, int day)
{
long jdn = ((1461 * (year + 4800 + ((month - 14) / 12))) / 4)
+ ((367 * (month - 2 - 12 * (((month - 14) / 12)))) / 12)
- ((3 * (((year + 4900 + ((month - 14) / 12)) / 100))) / 4)
+ day - 32075;
return jdn;
}
static SDATE jdn_civil(long jdn)
{
long l, n, i, j;
static SDATE ret;
int iday, imonth, iyear;
l = jdn + 68569;
n = ((4 * l) / 146097);
l = l - ((146097 * n + 3) / 4);
i = ((4000 * (l + 1)) / 1461001);
l = l - ((1461 * i) / 4) + 31;
j = ((80 * l) / 2447);
iday = l - ((2447 * j) / 80);
l = (j / 11);
imonth = j + 2 - 12 * l;
iyear = 100 * (n - 49) + i + l;
ret.day = iday;
ret.mon = imonth;
ret.year = iyear;
return (ret);
}
static SDATE *jalaliToGregorian(int y,int m,int d)
{
static SDATE sd;
long jday = jalali_jdn(y,m,d);
sd= jdn_civil(jday);
return (&sd);
}
static SDATE *gregorianToJalali(int y,int m, int d)
{
static SDATE sd;
long jdn = civil_jdn(y,m,d);//TQDate::gregorianToJulian(y, m, d);
sd = jdn_jalali(jdn);
return(&sd);
}
static void gregorianToJalali(const TQDate & date, int * pYear, int * pMonth,
int * pDay)
{
SDATE *sd;
sd = gregorianToJalali(date.year(), date.month(), date.day());
if (pYear)
*pYear = sd->year;
if (pMonth)
*pMonth = sd->mon;
if (pDay)
*pDay = sd->day;
}
// End of converting functions
static int isJalaliLeap(int year)
{
int tmp;
tmp = year % 33;
if (tmp == 1 || tmp == 5||tmp==9||tmp==13||tmp==17||tmp==22||tmp==26||tmp==30)
return 1;
else
return 0;
}
static int hndays(int m,int y)
{
return jMonthDay[isJalaliLeap(y)][m];
}
KCalendarSystemJalali::KCalendarSystemJalali(const TDELocale * locale)
: KCalendarSystem(locale)
{
}
KCalendarSystemJalali::~KCalendarSystemJalali()
{
}
int KCalendarSystemJalali::year(const TQDate& date) const
{
kdDebug(5400) << "Jalali year..." << endl;
int y;
gregorianToJalali(date, &y, 0, 0);
return y;
}
int KCalendarSystemJalali::month (const TQDate& date) const
{
kdDebug(5400) << "Jalali month..." << endl;
int m;
gregorianToJalali(date, 0 , &m, 0);
return m;
}
int KCalendarSystemJalali::day(const TQDate& date) const
{
kdDebug(5400) << "Jalali day..." << endl;
int d;
gregorianToJalali(date, 0, 0, &d);
return d;
}
int KCalendarSystemJalali::dayOfWeek(const TQDate& date) const
{
//same same I think?!
return date.dayOfWeek();
}
//NOT TESTED YET
int KCalendarSystemJalali::dayOfYear(const TQDate & date) const
{
TQDate first;
setYMD(first, year(date), 1, 1);
return first.daysTo(date) + 1;
}
//MAY BE BUGGY
bool KCalendarSystemJalali::setYMD(TQDate & date, int y, int m, int d) const
{
// range checks
if ( y < minValidYear() || y > maxValidYear() )
return false;
if ( m < 1 || m > 12 )
return false;
if ( d < 1 || d > hndays(m, y) )
return false;
SDATE *gd =jalaliToGregorian( y, m, d);
return date.setYMD(gd->year, gd->mon, gd->day);
}
TQDate KCalendarSystemJalali::addYears( const TQDate & date, int nyears ) const
{
TQDate result = date;
int y = year(date) + nyears;
setYMD( result, y, month(date), day(date) );
return result;
}
TQDate KCalendarSystemJalali::addMonths( const TQDate & date, int nmonths ) const
{
TQDate result = date;
int m = month(date);
int y = year(date);
if ( nmonths < 0 )
{
m += 12;
y -= 1;
}
--m; // this only works if we start counting at zero
m += nmonths;
y += m / 12;
m %= 12;
++m;
setYMD( result, y, m, day(date) );
return result;
}
TQDate KCalendarSystemJalali::addDays( const TQDate & date, int ndays ) const
{
return date.addDays( ndays );
}
int KCalendarSystemJalali::monthsInYear( const TQDate & date ) const
{
Q_UNUSED( date )
return 12;
}
int KCalendarSystemJalali::daysInYear(const TQDate & date) const
{
Q_UNUSED(date);
int result;
//SDATE *sd = gregorianToJalali(year(date),month(date),day(date));
//if (isJalaliLeap(sd->year))
result=366;
//else
// result=365;
return result;
}
int KCalendarSystemJalali::daysInMonth(const TQDate & date) const
{
SDATE *sd = gregorianToJalali(date.year(),date.month(),date.day());
return hndays(sd->mon,sd->year);
}
int KCalendarSystemJalali::weeksInYear(int year) const
{
Q_UNUSED(year);
// couldn't understand it!
return 52;
}
int KCalendarSystemJalali::weekNumber(const TQDate& date, int * yearNum) const
{
TQDate firstDayWeek1, lastDayOfYear;
int y = year(date);
int week;
int weekDay1, dayOfWeek1InYear;
// let's guess 1st day of 1st week
setYMD(firstDayWeek1, y, 1, 1);
weekDay1 = dayOfWeek(firstDayWeek1);
// iso 8601: week 1 is the first containing thursday and week starts on
// monday
if (weekDay1 > 4 /*Thursday*/)
firstDayWeek1 = addDays(firstDayWeek1 , 7 - weekDay1 + 1); // next monday
dayOfWeek1InYear = dayOfYear(firstDayWeek1);
if ( dayOfYear(date) < dayOfWeek1InYear ) // our date in prev year's week
{
if ( yearNum )
*yearNum = y - 1;
return weeksInYear(y - 1);
}
// let' check if its last week belongs to next year
setYMD(lastDayOfYear, y, 12, hndays(12, y));
if ( (dayOfYear(date) >= daysInYear(date) - dayOfWeek(lastDayOfYear) + 1)
// our date is in last week
&& dayOfWeek(lastDayOfYear) < 4) // 1st week in next year has thursday
{
if ( yearNum )
*yearNum = y + 1;
week = 1;
}
else
week = firstDayWeek1.daysTo(date) / 7 + 1;
return week;
}
TQString KCalendarSystemJalali::monthName(int month, int year, bool shortName)
const
{
Q_UNUSED(year);
if (shortName)
switch ( month )
{
case 1:
return locale()->translate("Far");
case 2:
return locale()->translate("Ord");
case 3:
return locale()->translate("Kho");
case 4:
return locale()->translate("Tir");
case 5:
return locale()->translate("Mor");
case 6:
return locale()->translate("Sha");
case 7:
return locale()->translate("Meh");
case 8:
return locale()->translate("Aba");
case 9:
return locale()->translate("Aza");
case 10:
return locale()->translate("Dei");
case 11:
return locale()->translate("Bah");
case 12:
return locale()->translate("Esf");
}
else
switch ( month )
{
case 1:
return locale()->translate("Farvardin");
case 2:
return locale()->translate("Ordibehesht");
case 3:
return locale()->translate("Khordad");
case 4:
return locale()->translate("Tir");
case 5:
return locale()->translate("Mordad");
case 6:
return locale()->translate("Shahrivar");
case 7:
return locale()->translate("Mehr");
case 8:
return locale()->translate("Aban");
case 9:
return locale()->translate("Azar");
case 10:
return locale()->translate("Dei");
case 11:
return locale()->translate("Bahman");
case 12:
return locale()->translate("Esfand");
}
return TQString::null;
}
TQString KCalendarSystemJalali::monthName(const TQDate& date, bool shortName)
const
{
int mon;
gregorianToJalali(date,0,&mon,0);
//SDATE *sd = gregorianToJalali(date.year(),date.month(),date.day());
return (monthName(mon, 0, shortName));
}
TQString KCalendarSystemJalali::monthNamePossessive(const TQDate& date,
bool shortName ) const
{
return monthName(date,shortName);
}
TQString KCalendarSystemJalali::monthNamePossessive(int month, int year,
bool shortName ) const
{
return monthName(month,year,shortName);
}
TQString KCalendarSystemJalali::weekDayName(int day, bool shortName) const
{
if ( shortName )
switch (day)
{
case 1:
return locale()->translate("2sh");
case 2:
return locale()->translate("3sh");
case 3:
return locale()->translate("4sh");
case 4:
return locale()->translate("5sh");
case 5:
return locale()->translate("Jom");
case 6:
return locale()->translate("shn");
case 7:
return locale()->translate("1sh");
}
else
switch ( day )
{
case 1:
return locale()->translate("Do shanbe");
case 2:
return locale()->translate("Se shanbe");
case 3:
return locale()->translate("Chahar shanbe");
case 4:
return locale()->translate("Panj shanbe");
case 5:
return locale()->translate("Jumee");
case 6:
return locale()->translate("Shanbe");
case 7:
return locale()->translate("Yek-shanbe");
}
return TQString::null;
}
TQString KCalendarSystemJalali::weekDayName(const TQDate &date,bool shortName)
const
{
return weekDayName(dayOfWeek(date), shortName);
}
// Min valid year that may be converted to QDate
int KCalendarSystemJalali::minValidYear() const
{
TQDate date(1753, 1, 1);
return year(date);
}
// Max valid year that may be converted to QDate
int KCalendarSystemJalali::maxValidYear() const
{
/*
TQDate date(8000, 1, 1);
SDATE *sd = toJalali(date);
return sd->year;
*/
return 10000;
}
int KCalendarSystemJalali::weekDayOfPray() const
{
return 5; // friday
}
TQString KCalendarSystemJalali::calendarName() const
{
return TQString::fromLatin1("jalali");
}
bool KCalendarSystemJalali::isLunar() const
{
return false;
}
bool KCalendarSystemJalali::isLunisolar() const
{
return false;
}
bool KCalendarSystemJalali::isSolar() const
{
return true;
}