1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
|
<?php
// Classes for Gedcom Date/Calendar functionality.
//
// Definitions for the French Republican calendar
//
// NOTE: Since different calendars start their days at different times, (civil
// midnight, solar midnight, sunset, sunrise, etc.), we convert on the basis of
// midday.
//
// webtrees: Web based Family History software
// Copyright (C) 2014 Greg Roach
//
// 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, write to the Free Software
// Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
if (!defined('WT_WEBTREES')) {
header('HTTP/1.0 403 Forbidden');
exit;
}
class WT_Date_French extends WT_Date_Calendar {
const CALENDAR_ESCAPE = '@#DFRENCH R@';
const MONTHS_IN_YEAR = 13;
const CAL_START_JD = 2375840; // 22 SEP 1792 = 01 VEND 0001
const CAL_END_JD = 2380687; // 31 DEC 1805 = 10 NIVO 0014
const DAYS_IN_WEEK = 10; // A metric week of 10 unimaginatively named days.
static $MONTH_ABBREV = array(
''=>0, 'VEND'=>1, 'BRUM'=>2, 'FRIM'=>3, 'NIVO'=>4, 'PLUV'=>5, 'VENT'=>6, 'GERM'=>7, 'FLOR'=>8, 'PRAI'=>9, 'MESS'=>10, 'THER'=>11, 'FRUC'=>12, 'COMP'=>13
);
static function calendarName() {
return /* I18N: The French calendar */ WT_I18N::translate('French');
}
static function NUM_TO_MONTH_NOMINATIVE($n, $leap_year) {
switch ($n) {
case 1: return WT_I18N::translate_c('NOMINATIVE', 'Vendémiaire');
case 2: return WT_I18N::translate_c('NOMINATIVE', 'Brumaire');
case 3: return WT_I18N::translate_c('NOMINATIVE', 'Frimaire');
case 4: return WT_I18N::translate_c('NOMINATIVE', 'Nivôse');
case 5: return WT_I18N::translate_c('NOMINATIVE', 'Pluviôse');
case 6: return WT_I18N::translate_c('NOMINATIVE', 'Ventôse');
case 7: return WT_I18N::translate_c('NOMINATIVE', 'Germinal');
case 8: return WT_I18N::translate_c('NOMINATIVE', 'Floréal');
case 9: return WT_I18N::translate_c('NOMINATIVE', 'Prairial');
case 10: return WT_I18N::translate_c('NOMINATIVE', 'Messidor');
case 11: return WT_I18N::translate_c('NOMINATIVE', 'Thermidor');
case 12: return WT_I18N::translate_c('NOMINATIVE', 'Fructidor');
case 13: return WT_I18N::translate_c('NOMINATIVE', 'jours complémentaires');
}
}
static function NUM_TO_MONTH_GENITIVE($n, $leap_year) {
switch ($n) {
case 1: return WT_I18N::translate_c('GENITIVE', 'Vendémiaire');
case 2: return WT_I18N::translate_c('GENITIVE', 'Brumaire');
case 3: return WT_I18N::translate_c('GENITIVE', 'Frimaire');
case 4: return WT_I18N::translate_c('GENITIVE', 'Nivôse');
case 5: return WT_I18N::translate_c('GENITIVE', 'Pluviôse');
case 6: return WT_I18N::translate_c('GENITIVE', 'Ventôse');
case 7: return WT_I18N::translate_c('GENITIVE', 'Germinal');
case 8: return WT_I18N::translate_c('GENITIVE', 'Floréal');
case 9: return WT_I18N::translate_c('GENITIVE', 'Prairial');
case 10: return WT_I18N::translate_c('GENITIVE', 'Messidor');
case 11: return WT_I18N::translate_c('GENITIVE', 'Thermidor');
case 12: return WT_I18N::translate_c('GENITIVE', 'Fructidor');
case 13: return WT_I18N::translate_c('GENITIVE', 'jours complémentaires');
}
}
static function NUM_TO_MONTH_LOCATIVE($n, $leap_year) {
switch ($n) {
case 1: return WT_I18N::translate_c('LOCATIVE', 'Vendémiaire');
case 2: return WT_I18N::translate_c('LOCATIVE', 'Brumaire');
case 3: return WT_I18N::translate_c('LOCATIVE', 'Frimaire');
case 4: return WT_I18N::translate_c('LOCATIVE', 'Nivôse');
case 5: return WT_I18N::translate_c('LOCATIVE', 'Pluviôse');
case 6: return WT_I18N::translate_c('LOCATIVE', 'Ventôse');
case 7: return WT_I18N::translate_c('LOCATIVE', 'Germinal');
case 8: return WT_I18N::translate_c('LOCATIVE', 'Floréal');
case 9: return WT_I18N::translate_c('LOCATIVE', 'Prairial');
case 10: return WT_I18N::translate_c('LOCATIVE', 'Messidor');
case 11: return WT_I18N::translate_c('LOCATIVE', 'Thermidor');
case 12: return WT_I18N::translate_c('LOCATIVE', 'Fructidor');
case 13: return WT_I18N::translate_c('LOCATIVE', 'jours complémentaires');
}
}
static function NUM_TO_MONTH_INSTRUMENTAL($n, $leap_year) {
switch ($n) {
case 1: return WT_I18N::translate_c('INSTRUMENTAL', 'Vendémiaire');
case 2: return WT_I18N::translate_c('INSTRUMENTAL', 'Brumaire');
case 3: return WT_I18N::translate_c('INSTRUMENTAL', 'Frimaire');
case 4: return WT_I18N::translate_c('INSTRUMENTAL', 'Nivôse');
case 5: return WT_I18N::translate_c('INSTRUMENTAL', 'Pluviôse');
case 6: return WT_I18N::translate_c('INSTRUMENTAL', 'Ventôse');
case 7: return WT_I18N::translate_c('INSTRUMENTAL', 'Germinal');
case 8: return WT_I18N::translate_c('INSTRUMENTAL', 'Floréal');
case 9: return WT_I18N::translate_c('INSTRUMENTAL', 'Prairial');
case 10: return WT_I18N::translate_c('INSTRUMENTAL', 'Messidor');
case 11: return WT_I18N::translate_c('INSTRUMENTAL', 'Thermidor');
case 12: return WT_I18N::translate_c('INSTRUMENTAL', 'Fructidor');
case 13: return WT_I18N::translate_c('INSTRUMENTAL', 'jours complémentaires');
}
}
static function NUM_TO_SHORT_MONTH($n, $leap_year) {
// TODO: Do these have short names?
return self::NUM_TO_MONTH_NOMINATIVE($n, $leap_year);
}
static function LONG_DAYS_OF_WEEK($n) {
switch ($n) {
case 0: return WT_I18N::translate('Primidi');
case 1: return WT_I18N::translate('Duodi');
case 2: return WT_I18N::translate('Tridi');
case 3: return WT_I18N::translate('Quartidi');
case 4: return WT_I18N::translate('Quintidi');
case 5: return WT_I18N::translate('Sextidi');
case 6: return WT_I18N::translate('Septidi');
case 7: return WT_I18N::translate('Octidi');
case 8: return WT_I18N::translate('Nonidi');
case 9: return WT_I18N::translate('Decidi');
}
}
static function SHORT_DAYS_OF_WEEK($n) {
// TODO: Do these have short names?
return self::LONG_DAYS_OF_WEEK($n);
}
// Leap years were based on astronomical observations. Only years 3, 7 and 11
// were ever observed. Moves to a gregorian-like (fixed) system were proposed
// but never implemented. These functions are valid over the range years 1-14.
function IsLeapYear() {
return $this->y%4==3;
}
static function YMDtoJD($y, $m, $d) {
return 2375444+$d+$m*30+$y*365+(int)($y/4);
}
static function JDtoYMD($j) {
$y=(int)(($j-2375109)*4/1461)-1;
$m=(int)(($j-2375475-$y*365-(int)($y/4))/30)+1;
$d=$j-2375444-$m*30-$y*365-(int)($y/4);
return array($y, $m, $d);
}
// Years were written using roman numerals
protected function FormatLongYear() {
return $this->NumToRoman($this->y);
}
}
|
