r18867 - gnucash/trunk/src/core-utils - Add implementation of Gregorian - Jalali converter code.
Christian Stimming
cstim at code.gnucash.org
Sun Mar 7 08:51:54 EST 2010
Author: cstim
Date: 2010-03-07 08:51:54 -0500 (Sun, 07 Mar 2010)
New Revision: 18867
Trac: http://svn.gnucash.org/trac/changeset/18867
Added:
gnucash/trunk/src/core-utils/gnc-jalali.c
gnucash/trunk/src/core-utils/gnc-jalali.h
Modified:
gnucash/trunk/src/core-utils/CMakeLists.txt
gnucash/trunk/src/core-utils/Makefile.am
Log:
Add implementation of Gregorian - Jalali converter code.
Copied from http://www.farsiweb.ir/wiki/Iranian_calendar
Modified: gnucash/trunk/src/core-utils/CMakeLists.txt
===================================================================
--- gnucash/trunk/src/core-utils/CMakeLists.txt 2010-03-07 13:36:11 UTC (rev 18866)
+++ gnucash/trunk/src/core-utils/CMakeLists.txt 2010-03-07 13:51:54 UTC (rev 18867)
@@ -24,6 +24,7 @@
gnc-gdate-utils.c
gnc-gkeyfile-utils.c
gnc-glib-utils.c
+ gnc-jalali.c
gnc-main.c
gnc-path.c
gnc-uri-utils.c
@@ -51,6 +52,7 @@
gnc-gdate-utils.h
gnc-gkeyfile-utils.h
gnc-glib-utils.h
+ gnc-jalali.h
gnc-main.h
gnc-path.h
gnc-uri-utils.h
Modified: gnucash/trunk/src/core-utils/Makefile.am
===================================================================
--- gnucash/trunk/src/core-utils/Makefile.am 2010-03-07 13:36:11 UTC (rev 18866)
+++ gnucash/trunk/src/core-utils/Makefile.am 2010-03-07 13:51:54 UTC (rev 18867)
@@ -4,12 +4,13 @@
libgnc_core_utils_la_SOURCES = \
binreloc.c \
- gnc-main.c \
gnc-filepath-utils.c \
gnc-gconf-utils.c \
gnc-gdate-utils.c \
gnc-gkeyfile-utils.c \
gnc-glib-utils.c \
+ gnc-jalali.c \
+ gnc-main.c \
gnc-path.c \
gnc-uri-utils.c \
swig-core-utils.c
@@ -29,6 +30,7 @@
gnc-gdate-utils.h \
gnc-gkeyfile-utils.h \
gnc-glib-utils.h \
+ gnc-jalali.h \
gnc-path.h \
gnc-uri-utils.h
Added: gnucash/trunk/src/core-utils/gnc-jalali.c
===================================================================
--- gnucash/trunk/src/core-utils/gnc-jalali.c (rev 0)
+++ gnucash/trunk/src/core-utils/gnc-jalali.c 2010-03-07 13:51:54 UTC (rev 18867)
@@ -0,0 +1,199 @@
+/* This file is part of:
+ * Jalali, a Gregorian to Jalali and inverse date convertor
+ * Copyright (C) 2001 Roozbeh Pournader <roozbeh at sharif.edu>
+ * Copyright (C) 2001 Mohammad Toossi <mohammad at bamdad.org>
+ *
+ * This program is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+ *
+ * This program 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
+ * Lesser General Public License for more details.
+ *
+ * You can receive a copy of GNU Lesser General Public License at the
+ * World Wide Web address <http://www.gnu.org/licenses/lgpl.html>.
+ *
+ * For licensing issues, contact The FarsiWeb Project Group,
+ * Computing Center, Sharif University of Technology,
+ * PO Box 11365-8515, Tehran, Iran, or contact us the
+ * email address <FWPG at sharif.edu>.
+ */
+
+/* Changes:
+ *
+ * 2005-Sep-06:
+ * General cleanup --Behdad Esfahbod
+ *
+ * 2001-Sep-21:
+ * Fixed a bug with "30 Esfand" dates, reported by Mahmoud Ghandi
+ *
+ * 2001-Sep-20:
+ * First LGPL release, with both sides of conversions
+ */
+
+
+/* Copied from http://www.farsiweb.ir/wiki/Iranian_calendar */
+
+#include "gnc-jalali.h"
+
+
+/* implementation */
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <time.h>
+#include <glib.h>
+
+int g_days_in_month[12] = {31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31};
+int j_days_in_month[12] = {31, 31, 31, 31, 31, 31, 30, 30, 30, 30, 30, 29};
+const char *j_month_name[12] =
+{
+ "Farvardin", "Ordibehesht", "Khordad",
+ "Tir", "Mordad", "Shahrivar",
+ "Mehr", "Aban", "Azar",
+ "Dey", "Bahman", "Esfand"
+};
+
+int gnc_jalali_days_in_month(int month_index)
+{
+ g_assert(month_index < 12);
+ return j_days_in_month[month_index];
+}
+
+const char* gnc_jalali_month_name(int month_index)
+{
+ g_assert(month_index < 12);
+ return j_month_name[month_index];
+}
+
+void gnc_gregorian_to_jalali(int *j_y, int *j_m, int *j_d,
+ int g_y, int g_m, int g_d)
+{
+ int gy, gm, gd;
+ int jy, jm, jd;
+ long g_day_no, j_day_no;
+ int j_np;
+
+ int i;
+
+ gy = g_y - 1600;
+ gm = g_m - 1;
+ gd = g_d - 1;
+
+ g_day_no = 365 * gy + (gy + 3) / 4 - (gy + 99) / 100 + (gy + 399) / 400;
+ for (i = 0; i < gm; ++i)
+ g_day_no += g_days_in_month[i];
+ if (gm > 1 && ((gy % 4 == 0 && gy % 100 != 0) || (gy % 400 == 0)))
+ /* leap and after Feb */
+ ++g_day_no;
+ g_day_no += gd;
+
+ j_day_no = g_day_no - 79;
+
+ j_np = j_day_no / 12053;
+ j_day_no %= 12053;
+
+ jy = 979 + 33 * j_np + 4 * (j_day_no / 1461);
+ j_day_no %= 1461;
+
+ if (j_day_no >= 366)
+ {
+ jy += (j_day_no - 1) / 365;
+ j_day_no = (j_day_no - 1) % 365;
+ }
+
+ for (i = 0; i < 11 && j_day_no >= j_days_in_month[i]; ++i)
+ {
+ j_day_no -= j_days_in_month[i];
+ }
+ jm = i + 1;
+ jd = j_day_no + 1;
+ *j_y = jy;
+ *j_m = jm;
+ *j_d = jd;
+}
+
+void gnc_jalali_to_gregorian(int *g_y, int *g_m, int *g_d,
+ int j_y, int j_m, int j_d)
+{
+ int gy, gm, gd;
+ int jy, jm, jd;
+ long g_day_no, j_day_no;
+ int leap;
+
+ int i;
+
+ jy = j_y - 979;
+ jm = j_m - 1;
+ jd = j_d - 1;
+
+ j_day_no = 365 * jy + (jy / 33) * 8 + (jy % 33 + 3) / 4;
+ for (i = 0; i < jm; ++i)
+ j_day_no += j_days_in_month[i];
+
+ j_day_no += jd;
+
+ g_day_no = j_day_no + 79;
+
+ gy = 1600 + 400 * (g_day_no / 146097); /* 146097 = 365*400 + 400/4 - 400/100 + 400/400 */
+ g_day_no = g_day_no % 146097;
+
+ leap = 1;
+ if (g_day_no >= 36525) /* 36525 = 365*100 + 100/4 */
+ {
+ g_day_no--;
+ gy += 100 * (g_day_no / 36524); /* 36524 = 365*100 + 100/4 - 100/100 */
+ g_day_no = g_day_no % 36524;
+
+ if (g_day_no >= 365)
+ g_day_no++;
+ else
+ leap = 0;
+ }
+
+ gy += 4 * (g_day_no / 1461); /* 1461 = 365*4 + 4/4 */
+ g_day_no %= 1461;
+
+ if (g_day_no >= 366)
+ {
+ leap = 0;
+
+ g_day_no--;
+ gy += g_day_no / 365;
+ g_day_no = g_day_no % 365;
+ }
+
+ for (i = 0; g_day_no >= g_days_in_month[i] + (i == 1 && leap); i++)
+ g_day_no -= g_days_in_month[i] + (i == 1 && leap);
+ gm = i + 1;
+ gd = g_day_no + 1;
+
+ *g_y = gy;
+ *g_m = gm;
+ *g_d = gd;
+}
+
+#if 0
+int
+main(void)
+{
+ int y, m, d;
+ time_t bin_time;
+ struct tm *br_time;
+
+ time(&bin_time);
+ br_time = localtime(&bin_time);
+
+ gregorian_to_jalali(&y, &m, &d,
+ 1900 + br_time->tm_year,
+ 1 + br_time->tm_mon,
+ br_time->tm_mday);
+
+ printf("Current Jalali date: %d %s %d\n", d, j_month_name[m-1], y);
+
+ return 0;
+}
+#endif
Added: gnucash/trunk/src/core-utils/gnc-jalali.h
===================================================================
--- gnucash/trunk/src/core-utils/gnc-jalali.h (rev 0)
+++ gnucash/trunk/src/core-utils/gnc-jalali.h 2010-03-07 13:51:54 UTC (rev 18867)
@@ -0,0 +1,46 @@
+/*
+ * jalali.h
+ * Copyright (C) 2010 Christian Stimming
+ *
+ * This program is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU General Public License as
+ * published by the Free Software Foundation; either version 2 of
+ * the License, or (at your option) any later version.
+ *
+ * This program 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 General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, contact:
+ *
+ * Free Software Foundation Voice: +1-617-542-5942
+ * 51 Franklin Street, Fifth Floor Fax: +1-617-542-2652
+ * Boston, MA 02110-1301, USA gnu at gnu.org
+ */
+
+#ifndef GNC_JALALI_H
+#define GNC_JALALI_H
+
+/** Convert gregorian year/month/day (arguments 4-6) to jalali
+ * year/month/day (arguments 1-3) */
+void gnc_gregorian_to_jalali(/* output */ int *j_y, int *j_m, int *j_d,
+ /* input */ int g_y, int g_m, int g_d);
+
+/** Convert jalali year/month/day (arguments 4-6) to gregorian
+ * year/month/day (arguments 1-3) */
+void gnc_jalali_to_gregorian(/* output */ int *g_y, int *g_m, int *g_d,
+ /* input */ int j_y, int j_m, int j_d);
+
+/** Returns the number of days in month in the Jalali calendar, which
+ * is different from the Gregorian one. Argument month_index is 0 for
+ * the first month. */
+int gnc_jalali_days_in_month(int month_index);
+
+/** Returns the month name of the Jalali calendar. Argument
+ * month_index is 0 for the first month. */
+const char* gnc_jalali_month_name(int month_index);
+
+
+#endif
More information about the gnucash-changes
mailing list