14a83f5d7SGreg Roach<?php 24a83f5d7SGreg Roach/** 34a83f5d7SGreg Roach * webtrees: online genealogy 44a83f5d7SGreg Roach * Copyright (C) 2018 webtrees development team 54a83f5d7SGreg Roach * This program is free software: you can redistribute it and/or modify 64a83f5d7SGreg Roach * it under the terms of the GNU General Public License as published by 74a83f5d7SGreg Roach * the Free Software Foundation, either version 3 of the License, or 84a83f5d7SGreg Roach * (at your option) any later version. 94a83f5d7SGreg Roach * This program is distributed in the hope that it will be useful, 104a83f5d7SGreg Roach * but WITHOUT ANY WARRANTY; without even the implied warranty of 114a83f5d7SGreg Roach * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 124a83f5d7SGreg Roach * GNU General Public License for more details. 134a83f5d7SGreg Roach * You should have received a copy of the GNU General Public License 144a83f5d7SGreg Roach * along with this program. If not, see <http://www.gnu.org/licenses/>. 154a83f5d7SGreg Roach */ 164a83f5d7SGreg Roachdeclare(strict_types=1); 174a83f5d7SGreg Roach 184a83f5d7SGreg Roachnamespace Fisharebest\Webtrees\Date; 194a83f5d7SGreg Roach 204a83f5d7SGreg Roachuse Fisharebest\ExtCalendar\CalendarInterface; 214a83f5d7SGreg Roachuse Fisharebest\ExtCalendar\JewishCalendar; 224a83f5d7SGreg Roachuse Fisharebest\Webtrees\DebugBar; 234a83f5d7SGreg Roachuse Fisharebest\Webtrees\I18N; 2449d5f1d7SGreg Roachuse Fisharebest\Webtrees\Tree; 254a83f5d7SGreg Roach 264a83f5d7SGreg Roach/** 274a83f5d7SGreg Roach * Classes for Gedcom Date/Calendar functionality. 284a83f5d7SGreg Roach * 294a83f5d7SGreg Roach * CalendarDate is a base class for classes such as GregorianDate, etc. 304a83f5d7SGreg Roach * + All supported calendars have non-zero days/months/years. 314a83f5d7SGreg Roach * + We store dates as both Y/M/D and Julian Days. 324a83f5d7SGreg Roach * + For imprecise dates such as "JAN 2000" we store the start/end julian day. 334a83f5d7SGreg Roach * 344a83f5d7SGreg Roach * NOTE: Since different calendars start their days at different times, (civil 354a83f5d7SGreg Roach * midnight, solar midnight, sunset, sunrise, etc.), we convert on the basis of 364a83f5d7SGreg Roach * midday. 374a83f5d7SGreg Roach */ 387bb2eb25SGreg Roachabstract class AbstractCalendarDate 394a83f5d7SGreg Roach{ 404a83f5d7SGreg Roach // GEDCOM calendar escape 414a83f5d7SGreg Roach const ESCAPE = '@#DUNKNOWN@'; 424a83f5d7SGreg Roach 434a83f5d7SGreg Roach // Convert GEDCOM month names to month numbers. 444a83f5d7SGreg Roach const MONTH_ABBREVIATIONS = []; 454a83f5d7SGreg Roach 464a83f5d7SGreg Roach /** @var CalendarInterface The calendar system used to represent this date */ 474a83f5d7SGreg Roach protected $calendar; 484a83f5d7SGreg Roach 494a83f5d7SGreg Roach /** @var int Year number */ 504a83f5d7SGreg Roach public $year; 514a83f5d7SGreg Roach 524a83f5d7SGreg Roach /** @var int Month number */ 534a83f5d7SGreg Roach public $month; 544a83f5d7SGreg Roach 554a83f5d7SGreg Roach /** @var int Day number */ 564a83f5d7SGreg Roach public $day; 574a83f5d7SGreg Roach 584a83f5d7SGreg Roach /** @var int Earliest Julian day number (start of month/year for imprecise dates) */ 594a83f5d7SGreg Roach private $minimum_julian_day; 604a83f5d7SGreg Roach 614a83f5d7SGreg Roach /** @var int Latest Julian day number (end of month/year for imprecise dates) */ 624a83f5d7SGreg Roach private $maximum_julian_day; 634a83f5d7SGreg Roach 644a83f5d7SGreg Roach /** 654a83f5d7SGreg Roach * Create a date from either: 664a83f5d7SGreg Roach * a Julian day number 674a83f5d7SGreg Roach * day/month/year strings from a GEDCOM date 684a83f5d7SGreg Roach * another CalendarDate object 694a83f5d7SGreg Roach * 704a83f5d7SGreg Roach * @param array|int|AbstractCalendarDate $date 714a83f5d7SGreg Roach */ 724a83f5d7SGreg Roach protected function __construct($date) 734a83f5d7SGreg Roach { 744a83f5d7SGreg Roach // Construct from an integer (a julian day number) 754a83f5d7SGreg Roach if (is_int($date)) { 764a83f5d7SGreg Roach $this->minimum_julian_day = $date; 774a83f5d7SGreg Roach $this->maximum_julian_day = $date; 784a83f5d7SGreg Roach list($this->year, $this->month, $this->day) = $this->calendar->jdToYmd($date); 794a83f5d7SGreg Roach 804a83f5d7SGreg Roach return; 814a83f5d7SGreg Roach } 824a83f5d7SGreg Roach 834a83f5d7SGreg Roach // Construct from an array (of three gedcom-style strings: "1900", "FEB", "4") 844a83f5d7SGreg Roach if (is_array($date)) { 854a83f5d7SGreg Roach $this->day = (int) $date[2]; 864a83f5d7SGreg Roach if (array_key_exists($date[1], static::MONTH_ABBREVIATIONS)) { 874a83f5d7SGreg Roach $this->month = static::MONTH_ABBREVIATIONS[$date[1]]; 884a83f5d7SGreg Roach } else { 894a83f5d7SGreg Roach $this->month = 0; 904a83f5d7SGreg Roach $this->day = 0; 914a83f5d7SGreg Roach } 924a83f5d7SGreg Roach $this->year = $this->extractYear($date[0]); 934a83f5d7SGreg Roach 944a83f5d7SGreg Roach // Our simple lookup table above does not take into account Adar and leap-years. 954a83f5d7SGreg Roach if ($this->month === 6 && $this->calendar instanceof JewishCalendar && !$this->calendar->isLeapYear($this->year)) { 964a83f5d7SGreg Roach $this->month = 7; 974a83f5d7SGreg Roach } 984a83f5d7SGreg Roach 994a83f5d7SGreg Roach $this->setJdFromYmd(); 1004a83f5d7SGreg Roach 1014a83f5d7SGreg Roach return; 1024a83f5d7SGreg Roach } 1034a83f5d7SGreg Roach 1044a83f5d7SGreg Roach // Contruct from a CalendarDate 1054a83f5d7SGreg Roach $this->minimum_julian_day = $date->minimum_julian_day; 1064a83f5d7SGreg Roach $this->maximum_julian_day = $date->maximum_julian_day; 1074a83f5d7SGreg Roach 1084a83f5d7SGreg Roach // Construct from an equivalent xxxxDate object 1094a83f5d7SGreg Roach if (get_class($this) == get_class($date)) { 1104a83f5d7SGreg Roach $this->year = $date->year; 1114a83f5d7SGreg Roach $this->month = $date->month; 1124a83f5d7SGreg Roach $this->day = $date->day; 1134a83f5d7SGreg Roach 1144a83f5d7SGreg Roach return; 1154a83f5d7SGreg Roach } 1164a83f5d7SGreg Roach 1174a83f5d7SGreg Roach // Not all dates can be converted 1184a83f5d7SGreg Roach if (!$this->inValidRange()) { 1194a83f5d7SGreg Roach $this->year = 0; 1204a83f5d7SGreg Roach $this->month = 0; 1214a83f5d7SGreg Roach $this->day = 0; 1224a83f5d7SGreg Roach 1234a83f5d7SGreg Roach return; 1244a83f5d7SGreg Roach } 1254a83f5d7SGreg Roach 1264a83f5d7SGreg Roach // ...else construct an inequivalent xxxxDate object 1274a83f5d7SGreg Roach if ($date->year == 0) { 1284a83f5d7SGreg Roach // Incomplete date - convert on basis of anniversary in current year 1294a83f5d7SGreg Roach $today = $date->calendar->jdToYmd(unixtojd()); 1304a83f5d7SGreg Roach $jd = $date->calendar->ymdToJd($today[0], $date->month, $date->day == 0 ? $today[2] : $date->day); 1314a83f5d7SGreg Roach } else { 1324a83f5d7SGreg Roach // Complete date 1334a83f5d7SGreg Roach $jd = intdiv($date->maximum_julian_day + $date->minimum_julian_day, 2); 1344a83f5d7SGreg Roach } 1354a83f5d7SGreg Roach list($this->year, $this->month, $this->day) = $this->calendar->jdToYmd($jd); 1364a83f5d7SGreg Roach // New date has same precision as original date 1374a83f5d7SGreg Roach if ($date->year == 0) { 1384a83f5d7SGreg Roach $this->year = 0; 1394a83f5d7SGreg Roach } 1404a83f5d7SGreg Roach if ($date->month == 0) { 1414a83f5d7SGreg Roach $this->month = 0; 1424a83f5d7SGreg Roach } 1434a83f5d7SGreg Roach if ($date->day == 0) { 1444a83f5d7SGreg Roach $this->day = 0; 1454a83f5d7SGreg Roach } 1464a83f5d7SGreg Roach $this->setJdFromYmd(); 1474a83f5d7SGreg Roach } 1484a83f5d7SGreg Roach 1494a83f5d7SGreg Roach /** 1504a83f5d7SGreg Roach * @return CalendarInterface 1514a83f5d7SGreg Roach */ 1524a83f5d7SGreg Roach public function calendar(): CalendarInterface 1534a83f5d7SGreg Roach { 1544a83f5d7SGreg Roach return $this->calendar(); 1554a83f5d7SGreg Roach } 1564a83f5d7SGreg Roach 1574a83f5d7SGreg Roach /** 1584a83f5d7SGreg Roach * @return int 1594a83f5d7SGreg Roach */ 1604a83f5d7SGreg Roach public function maximumJulianDay(): int 1614a83f5d7SGreg Roach { 1624a83f5d7SGreg Roach return $this->maximum_julian_day; 1634a83f5d7SGreg Roach } 1644a83f5d7SGreg Roach 1654a83f5d7SGreg Roach /** 1664a83f5d7SGreg Roach * @return int 1674a83f5d7SGreg Roach */ 1684a83f5d7SGreg Roach public function year(): int 1694a83f5d7SGreg Roach { 1704a83f5d7SGreg Roach return $this->year; 1714a83f5d7SGreg Roach } 1724a83f5d7SGreg Roach 1734a83f5d7SGreg Roach /** 1744a83f5d7SGreg Roach * @return int 1754a83f5d7SGreg Roach */ 1764a83f5d7SGreg Roach public function month(): int 1774a83f5d7SGreg Roach { 1784a83f5d7SGreg Roach return $this->month; 1794a83f5d7SGreg Roach } 1804a83f5d7SGreg Roach 1814a83f5d7SGreg Roach /** 1824a83f5d7SGreg Roach * @return int 1834a83f5d7SGreg Roach */ 1844a83f5d7SGreg Roach public function day(): int 1854a83f5d7SGreg Roach { 1864a83f5d7SGreg Roach return $this->day; 1874a83f5d7SGreg Roach } 1884a83f5d7SGreg Roach 1894a83f5d7SGreg Roach /** 1904a83f5d7SGreg Roach * @return int 1914a83f5d7SGreg Roach */ 1924a83f5d7SGreg Roach public function minimumJulianDay(): int 1934a83f5d7SGreg Roach { 1944a83f5d7SGreg Roach return $this->minimum_julian_day; 1954a83f5d7SGreg Roach } 1964a83f5d7SGreg Roach 1974a83f5d7SGreg Roach /** 1984a83f5d7SGreg Roach * Is the current year a leap year? 1994a83f5d7SGreg Roach * 2004a83f5d7SGreg Roach * @return bool 2014a83f5d7SGreg Roach */ 2024a83f5d7SGreg Roach public function isLeapYear(): bool 2034a83f5d7SGreg Roach { 2044a83f5d7SGreg Roach return $this->calendar->isLeapYear($this->year); 2054a83f5d7SGreg Roach } 2064a83f5d7SGreg Roach 2074a83f5d7SGreg Roach /** 2084a83f5d7SGreg Roach * Set the object’s Julian day number from a potentially incomplete year/month/day 2094a83f5d7SGreg Roach * 2104a83f5d7SGreg Roach * @return void 2114a83f5d7SGreg Roach */ 2124a83f5d7SGreg Roach public function setJdFromYmd() 2134a83f5d7SGreg Roach { 2144a83f5d7SGreg Roach if ($this->year == 0) { 2154a83f5d7SGreg Roach $this->minimum_julian_day = 0; 2164a83f5d7SGreg Roach $this->maximum_julian_day = 0; 2174a83f5d7SGreg Roach } elseif ($this->month == 0) { 2184a83f5d7SGreg Roach $this->minimum_julian_day = $this->calendar->ymdToJd($this->year, 1, 1); 2194a83f5d7SGreg Roach $this->maximum_julian_day = $this->calendar->ymdToJd($this->nextYear($this->year), 1, 1) - 1; 2204a83f5d7SGreg Roach } elseif ($this->day == 0) { 2214a83f5d7SGreg Roach list($ny, $nm) = $this->nextMonth(); 2224a83f5d7SGreg Roach $this->minimum_julian_day = $this->calendar->ymdToJd($this->year, $this->month, 1); 2234a83f5d7SGreg Roach $this->maximum_julian_day = $this->calendar->ymdToJd($ny, $nm, 1) - 1; 2244a83f5d7SGreg Roach } else { 2254a83f5d7SGreg Roach $this->minimum_julian_day = $this->calendar->ymdToJd($this->year, $this->month, $this->day); 2264a83f5d7SGreg Roach $this->maximum_julian_day = $this->minimum_julian_day; 2274a83f5d7SGreg Roach } 2284a83f5d7SGreg Roach } 2294a83f5d7SGreg Roach 2304a83f5d7SGreg Roach /** 2314a83f5d7SGreg Roach * Full day of the week 2324a83f5d7SGreg Roach * 2334a83f5d7SGreg Roach * @param int $day_number 2344a83f5d7SGreg Roach * 2354a83f5d7SGreg Roach * @return string 2364a83f5d7SGreg Roach */ 2374a83f5d7SGreg Roach public function dayNames(int $day_number): string 2384a83f5d7SGreg Roach { 2394a83f5d7SGreg Roach static $translated_day_names; 2404a83f5d7SGreg Roach 2414a83f5d7SGreg Roach if ($translated_day_names === null) { 2424a83f5d7SGreg Roach $translated_day_names = [ 2434a83f5d7SGreg Roach 0 => I18N::translate('Monday'), 2444a83f5d7SGreg Roach 1 => I18N::translate('Tuesday'), 2454a83f5d7SGreg Roach 2 => I18N::translate('Wednesday'), 2464a83f5d7SGreg Roach 3 => I18N::translate('Thursday'), 2474a83f5d7SGreg Roach 4 => I18N::translate('Friday'), 2484a83f5d7SGreg Roach 5 => I18N::translate('Saturday'), 2494a83f5d7SGreg Roach 6 => I18N::translate('Sunday'), 2504a83f5d7SGreg Roach ]; 2514a83f5d7SGreg Roach } 2524a83f5d7SGreg Roach 2534a83f5d7SGreg Roach return $translated_day_names[$day_number]; 2544a83f5d7SGreg Roach } 2554a83f5d7SGreg Roach 2564a83f5d7SGreg Roach /** 2574a83f5d7SGreg Roach * Abbreviated day of the week 2584a83f5d7SGreg Roach * 2594a83f5d7SGreg Roach * @param int $day_number 2604a83f5d7SGreg Roach * 2614a83f5d7SGreg Roach * @return string 2624a83f5d7SGreg Roach */ 2634a83f5d7SGreg Roach protected function dayNamesAbbreviated(int $day_number): string 2644a83f5d7SGreg Roach { 2654a83f5d7SGreg Roach static $translated_day_names; 2664a83f5d7SGreg Roach 2674a83f5d7SGreg Roach if ($translated_day_names === null) { 2684a83f5d7SGreg Roach $translated_day_names = [ 2694a83f5d7SGreg Roach /* I18N: abbreviation for Monday */ 2704a83f5d7SGreg Roach 0 => I18N::translate('Mon'), 2714a83f5d7SGreg Roach /* I18N: abbreviation for Tuesday */ 2724a83f5d7SGreg Roach 1 => I18N::translate('Tue'), 2734a83f5d7SGreg Roach /* I18N: abbreviation for Wednesday */ 2744a83f5d7SGreg Roach 2 => I18N::translate('Wed'), 2754a83f5d7SGreg Roach /* I18N: abbreviation for Thursday */ 2764a83f5d7SGreg Roach 3 => I18N::translate('Thu'), 2774a83f5d7SGreg Roach /* I18N: abbreviation for Friday */ 2784a83f5d7SGreg Roach 4 => I18N::translate('Fri'), 2794a83f5d7SGreg Roach /* I18N: abbreviation for Saturday */ 2804a83f5d7SGreg Roach 5 => I18N::translate('Sat'), 2814a83f5d7SGreg Roach /* I18N: abbreviation for Sunday */ 2824a83f5d7SGreg Roach 6 => I18N::translate('Sun'), 2834a83f5d7SGreg Roach ]; 2844a83f5d7SGreg Roach } 2854a83f5d7SGreg Roach 2864a83f5d7SGreg Roach return $translated_day_names[$day_number]; 2874a83f5d7SGreg Roach } 2884a83f5d7SGreg Roach 2894a83f5d7SGreg Roach /** 2904a83f5d7SGreg Roach * Most years are 1 more than the previous, but not always (e.g. 1BC->1AD) 2914a83f5d7SGreg Roach * 2924a83f5d7SGreg Roach * @param int $year 2934a83f5d7SGreg Roach * 2944a83f5d7SGreg Roach * @return int 2954a83f5d7SGreg Roach */ 2964a83f5d7SGreg Roach protected function nextYear(int $year): int 2974a83f5d7SGreg Roach { 2984a83f5d7SGreg Roach return $year + 1; 2994a83f5d7SGreg Roach } 3004a83f5d7SGreg Roach 3014a83f5d7SGreg Roach /** 3024a83f5d7SGreg Roach * Calendars that use suffixes, etc. (e.g. “B.C.”) or OS/NS notation should redefine this. 3034a83f5d7SGreg Roach * 3044a83f5d7SGreg Roach * @param string $year 3054a83f5d7SGreg Roach * 3064a83f5d7SGreg Roach * @return int 3074a83f5d7SGreg Roach */ 3084a83f5d7SGreg Roach protected function extractYear(string $year): int 3094a83f5d7SGreg Roach { 3104a83f5d7SGreg Roach return (int) $year; 3114a83f5d7SGreg Roach } 3124a83f5d7SGreg Roach 3134a83f5d7SGreg Roach /** 3144a83f5d7SGreg Roach * Compare two dates, for sorting 3154a83f5d7SGreg Roach * 3164a83f5d7SGreg Roach * @param AbstractCalendarDate $d1 3174a83f5d7SGreg Roach * @param AbstractCalendarDate $d2 3184a83f5d7SGreg Roach * 3194a83f5d7SGreg Roach * @return int 3204a83f5d7SGreg Roach */ 3214a83f5d7SGreg Roach public static function compare(AbstractCalendarDate $d1, AbstractCalendarDate $d2): int 3224a83f5d7SGreg Roach { 3234a83f5d7SGreg Roach if ($d1->maximum_julian_day < $d2->minimum_julian_day) { 3244a83f5d7SGreg Roach return -1; 3254a83f5d7SGreg Roach } 3264a83f5d7SGreg Roach 3274a83f5d7SGreg Roach if ($d2->maximum_julian_day < $d1->minimum_julian_day) { 3284a83f5d7SGreg Roach return 1; 3294a83f5d7SGreg Roach } 3304a83f5d7SGreg Roach 3314a83f5d7SGreg Roach return 0; 3324a83f5d7SGreg Roach } 3334a83f5d7SGreg Roach 3344a83f5d7SGreg Roach /** 3354a83f5d7SGreg Roach * Calculate the years/months/days between this date and another date. 3364a83f5d7SGreg Roach * Results assume you add the days first, then the months. 3374a83f5d7SGreg Roach * 4 February -> 3 July is 27 days (3 March) and 4 months. 3384a83f5d7SGreg Roach * It is not 4 months (4 June) and 29 days. 3394a83f5d7SGreg Roach * 3404a83f5d7SGreg Roach * @param AbstractCalendarDate $date 3414a83f5d7SGreg Roach * 3424a83f5d7SGreg Roach * @return int[] Age in years/months/days 3434a83f5d7SGreg Roach */ 3444a83f5d7SGreg Roach public function ageDifference(AbstractCalendarDate $date): array 3454a83f5d7SGreg Roach { 3464a83f5d7SGreg Roach // Incomplete dates 3474a83f5d7SGreg Roach if ($this->year === 0 || $date->year === 0) { 3484a83f5d7SGreg Roach return [-1, -1, -1]; 3494a83f5d7SGreg Roach } 3504a83f5d7SGreg Roach 3514a83f5d7SGreg Roach // Overlapping dates 3524a83f5d7SGreg Roach if (self::compare($this, $date) === 0) { 3534a83f5d7SGreg Roach return [0, 0, 0]; 3544a83f5d7SGreg Roach } 3554a83f5d7SGreg Roach 3564a83f5d7SGreg Roach // Perform all calculations using the calendar of the first date 3574a83f5d7SGreg Roach list($year1, $month1, $day1) = $this->calendar->jdToYmd($this->minimum_julian_day); 3584a83f5d7SGreg Roach list($year2, $month2, $day2) = $this->calendar->jdToYmd($date->minimum_julian_day); 3594a83f5d7SGreg Roach 3604a83f5d7SGreg Roach $years = $year2 - $year1; 3614a83f5d7SGreg Roach $months = $month2 - $month1; 3624a83f5d7SGreg Roach $days = $day2 - $day1; 3634a83f5d7SGreg Roach 3644a83f5d7SGreg Roach if ($days < 0) { 3654a83f5d7SGreg Roach $days += $this->calendar->daysInMonth($year1, $month1); 3664a83f5d7SGreg Roach $months--; 3674a83f5d7SGreg Roach } 3684a83f5d7SGreg Roach 3694a83f5d7SGreg Roach if ($months < 0) { 3704a83f5d7SGreg Roach $months += $this->calendar->monthsInYear($year2); 3714a83f5d7SGreg Roach $years--; 3724a83f5d7SGreg Roach } 3734a83f5d7SGreg Roach 3744a83f5d7SGreg Roach return [$years, $months, $days]; 3754a83f5d7SGreg Roach } 3764a83f5d7SGreg Roach 3774a83f5d7SGreg Roach /** 3784a83f5d7SGreg Roach * How long between an event and a given julian day 3794a83f5d7SGreg Roach * Return result as a number of years. 3804a83f5d7SGreg Roach * 3814a83f5d7SGreg Roach * @param int $jd date for calculation 3824a83f5d7SGreg Roach * 3834a83f5d7SGreg Roach * @return int 3844a83f5d7SGreg Roach */ 3854a83f5d7SGreg Roach public function getAge(int $jd): int 3864a83f5d7SGreg Roach { 3874a83f5d7SGreg Roach if ($this->year == 0 || $jd == 0) { 3884a83f5d7SGreg Roach return 0; 3894a83f5d7SGreg Roach } 3904a83f5d7SGreg Roach if ($this->minimum_julian_day < $jd && $this->maximum_julian_day > $jd) { 3914a83f5d7SGreg Roach return 0; 3924a83f5d7SGreg Roach } 3934a83f5d7SGreg Roach if ($this->minimum_julian_day == $jd) { 3944a83f5d7SGreg Roach return 0; 3954a83f5d7SGreg Roach } 3964a83f5d7SGreg Roach list($y, $m, $d) = $this->calendar->jdToYmd($jd); 3974a83f5d7SGreg Roach $dy = $y - $this->year; 3984a83f5d7SGreg Roach $dm = $m - max($this->month, 1); 3994a83f5d7SGreg Roach $dd = $d - max($this->day, 1); 4004a83f5d7SGreg Roach if ($dd < 0) { 4014a83f5d7SGreg Roach $dm--; 4024a83f5d7SGreg Roach } 4034a83f5d7SGreg Roach if ($dm < 0) { 4044a83f5d7SGreg Roach $dy--; 4054a83f5d7SGreg Roach } 4064a83f5d7SGreg Roach 4074a83f5d7SGreg Roach // Not a full age? Then just the years 4084a83f5d7SGreg Roach return $dy; 4094a83f5d7SGreg Roach } 4104a83f5d7SGreg Roach 4114a83f5d7SGreg Roach /** 4124a83f5d7SGreg Roach * How long between an event and a given julian day 4134a83f5d7SGreg Roach * Return result as a gedcom-style age string. 4144a83f5d7SGreg Roach * 4154a83f5d7SGreg Roach * @param int $jd date for calculation 4164a83f5d7SGreg Roach * 4174a83f5d7SGreg Roach * @return string 4184a83f5d7SGreg Roach */ 4194a83f5d7SGreg Roach public function getAgeFull(int $jd): string 4204a83f5d7SGreg Roach { 4214a83f5d7SGreg Roach if ($this->year == 0 || $jd == 0) { 4224a83f5d7SGreg Roach return ''; 4234a83f5d7SGreg Roach } 4244a83f5d7SGreg Roach if ($this->minimum_julian_day < $jd && $this->maximum_julian_day > $jd) { 4254a83f5d7SGreg Roach return ''; 4264a83f5d7SGreg Roach } 4274a83f5d7SGreg Roach if ($this->minimum_julian_day == $jd) { 4284a83f5d7SGreg Roach return ''; 4294a83f5d7SGreg Roach } 4304a83f5d7SGreg Roach if ($jd < $this->minimum_julian_day) { 4314a83f5d7SGreg Roach return '<i class="icon-warning"></i>'; 4324a83f5d7SGreg Roach } 4334a83f5d7SGreg Roach list($y, $m, $d) = $this->calendar->jdToYmd($jd); 4344a83f5d7SGreg Roach $dy = $y - $this->year; 4354a83f5d7SGreg Roach $dm = $m - max($this->month, 1); 4364a83f5d7SGreg Roach $dd = $d - max($this->day, 1); 4374a83f5d7SGreg Roach if ($dd < 0) { 4384a83f5d7SGreg Roach $dm--; 4394a83f5d7SGreg Roach } 4404a83f5d7SGreg Roach if ($dm < 0) { 4414a83f5d7SGreg Roach $dm += $this->calendar->monthsInYear(); 4424a83f5d7SGreg Roach $dy--; 4434a83f5d7SGreg Roach } 4444a83f5d7SGreg Roach // Age in years? 4454a83f5d7SGreg Roach if ($dy > 1) { 4464a83f5d7SGreg Roach return $dy . 'y'; 4474a83f5d7SGreg Roach } 4484a83f5d7SGreg Roach $dm += $dy * $this->calendar->monthsInYear(); 4494a83f5d7SGreg Roach // Age in months? 4504a83f5d7SGreg Roach if ($dm > 1) { 4514a83f5d7SGreg Roach return $dm . 'm'; 4524a83f5d7SGreg Roach } 4534a83f5d7SGreg Roach 4544a83f5d7SGreg Roach // Age in days? 4554a83f5d7SGreg Roach return ($jd - $this->minimum_julian_day) . 'd'; 4564a83f5d7SGreg Roach } 4574a83f5d7SGreg Roach 4584a83f5d7SGreg Roach /** 4594a83f5d7SGreg Roach * Convert a date from one calendar to another. 4604a83f5d7SGreg Roach * 4614a83f5d7SGreg Roach * @param string $calendar 4624a83f5d7SGreg Roach * 4634a83f5d7SGreg Roach * @return AbstractCalendarDate 4644a83f5d7SGreg Roach */ 4654a83f5d7SGreg Roach public function convertToCalendar(string $calendar): AbstractCalendarDate 4664a83f5d7SGreg Roach { 4674a83f5d7SGreg Roach switch ($calendar) { 4684a83f5d7SGreg Roach case 'gregorian': 4694a83f5d7SGreg Roach return new GregorianDate($this); 4704a83f5d7SGreg Roach case 'julian': 4714a83f5d7SGreg Roach return new JulianDate($this); 4724a83f5d7SGreg Roach case 'jewish': 4734a83f5d7SGreg Roach return new JewishDate($this); 4744a83f5d7SGreg Roach case 'french': 4754a83f5d7SGreg Roach return new FrenchDate($this); 4764a83f5d7SGreg Roach case 'hijri': 4774a83f5d7SGreg Roach return new HijriDate($this); 4784a83f5d7SGreg Roach case 'jalali': 4794a83f5d7SGreg Roach return new JalaliDate($this); 4804a83f5d7SGreg Roach default: 4814a83f5d7SGreg Roach return $this; 4824a83f5d7SGreg Roach } 4834a83f5d7SGreg Roach } 4844a83f5d7SGreg Roach 4854a83f5d7SGreg Roach /** 4864a83f5d7SGreg Roach * Is this date within the valid range of the calendar 4874a83f5d7SGreg Roach * 4884a83f5d7SGreg Roach * @return bool 4894a83f5d7SGreg Roach */ 4904a83f5d7SGreg Roach public function inValidRange(): bool 4914a83f5d7SGreg Roach { 4924a83f5d7SGreg Roach return $this->minimum_julian_day >= $this->calendar->jdStart() && $this->maximum_julian_day <= $this->calendar->jdEnd(); 4934a83f5d7SGreg Roach } 4944a83f5d7SGreg Roach 4954a83f5d7SGreg Roach /** 4964a83f5d7SGreg Roach * How many months in a year 4974a83f5d7SGreg Roach * 4984a83f5d7SGreg Roach * @return int 4994a83f5d7SGreg Roach */ 5004a83f5d7SGreg Roach public function monthsInYear(): int 5014a83f5d7SGreg Roach { 5024a83f5d7SGreg Roach return $this->calendar->monthsInYear(); 5034a83f5d7SGreg Roach } 5044a83f5d7SGreg Roach 5054a83f5d7SGreg Roach /** 5064a83f5d7SGreg Roach * How many days in the current month 5074a83f5d7SGreg Roach * 5084a83f5d7SGreg Roach * @return int 5094a83f5d7SGreg Roach */ 5104a83f5d7SGreg Roach public function daysInMonth(): int 5114a83f5d7SGreg Roach { 5124a83f5d7SGreg Roach try { 5134a83f5d7SGreg Roach return $this->calendar->daysInMonth($this->year, $this->month); 5144a83f5d7SGreg Roach } catch (\InvalidArgumentException $ex) { 5154a83f5d7SGreg Roach DebugBar::addThrowable($ex); 5164a83f5d7SGreg Roach 5174a83f5d7SGreg Roach // calendar.php calls this with "DD MMM" dates, for which we cannot calculate 5184a83f5d7SGreg Roach // the length of a month. Should we validate this before calling this function? 5194a83f5d7SGreg Roach return 0; 5204a83f5d7SGreg Roach } 5214a83f5d7SGreg Roach } 5224a83f5d7SGreg Roach 5234a83f5d7SGreg Roach /** 5244a83f5d7SGreg Roach * How many days in the current week 5254a83f5d7SGreg Roach * 5264a83f5d7SGreg Roach * @return int 5274a83f5d7SGreg Roach */ 5284a83f5d7SGreg Roach public function daysInWeek(): int 5294a83f5d7SGreg Roach { 5304a83f5d7SGreg Roach return $this->calendar->daysInWeek(); 5314a83f5d7SGreg Roach } 5324a83f5d7SGreg Roach 5334a83f5d7SGreg Roach /** 5344a83f5d7SGreg Roach * Format a date, using similar codes to the PHP date() function. 5354a83f5d7SGreg Roach * 5364a83f5d7SGreg Roach * @param string $format See http://php.net/date 5374a83f5d7SGreg Roach * @param string $qualifier GEDCOM qualifier, so we can choose the right case for the month name. 5384a83f5d7SGreg Roach * 5394a83f5d7SGreg Roach * @return string 5404a83f5d7SGreg Roach */ 5414a83f5d7SGreg Roach public function format(string $format, string $qualifier = ''): string 5424a83f5d7SGreg Roach { 5434a83f5d7SGreg Roach // Don’t show exact details for inexact dates 5444a83f5d7SGreg Roach if (!$this->day) { 5454a83f5d7SGreg Roach // The comma is for US "M D, Y" dates 5464a83f5d7SGreg Roach $format = preg_replace('/%[djlDNSwz][,]?/', '', $format); 5474a83f5d7SGreg Roach } 5484a83f5d7SGreg Roach if (!$this->month) { 5494a83f5d7SGreg Roach $format = str_replace([ 5504a83f5d7SGreg Roach '%F', 5514a83f5d7SGreg Roach '%m', 5524a83f5d7SGreg Roach '%M', 5534a83f5d7SGreg Roach '%n', 5544a83f5d7SGreg Roach '%t', 5554a83f5d7SGreg Roach ], '', $format); 5564a83f5d7SGreg Roach } 5574a83f5d7SGreg Roach if (!$this->year) { 5584a83f5d7SGreg Roach $format = str_replace([ 5594a83f5d7SGreg Roach '%t', 5604a83f5d7SGreg Roach '%L', 5614a83f5d7SGreg Roach '%G', 5624a83f5d7SGreg Roach '%y', 5634a83f5d7SGreg Roach '%Y', 5644a83f5d7SGreg Roach ], '', $format); 5654a83f5d7SGreg Roach } 5664a83f5d7SGreg Roach // If we’ve trimmed the format, also trim the punctuation 5674a83f5d7SGreg Roach if (!$this->day || !$this->month || !$this->year) { 5684a83f5d7SGreg Roach $format = trim($format, ',. ;/-'); 5694a83f5d7SGreg Roach } 5704a83f5d7SGreg Roach if ($this->day && preg_match('/%[djlDNSwz]/', $format)) { 5714a83f5d7SGreg Roach // If we have a day-number *and* we are being asked to display it, then genitive 5724a83f5d7SGreg Roach $case = 'GENITIVE'; 5734a83f5d7SGreg Roach } else { 5744a83f5d7SGreg Roach switch ($qualifier) { 5754a83f5d7SGreg Roach case 'TO': 5764a83f5d7SGreg Roach case 'ABT': 5774a83f5d7SGreg Roach case 'FROM': 5784a83f5d7SGreg Roach $case = 'GENITIVE'; 5794a83f5d7SGreg Roach break; 5804a83f5d7SGreg Roach case 'AFT': 5814a83f5d7SGreg Roach $case = 'LOCATIVE'; 5824a83f5d7SGreg Roach break; 5834a83f5d7SGreg Roach case 'BEF': 5844a83f5d7SGreg Roach case 'BET': 5854a83f5d7SGreg Roach case 'AND': 5864a83f5d7SGreg Roach $case = 'INSTRUMENTAL'; 5874a83f5d7SGreg Roach break; 5884a83f5d7SGreg Roach case '': 5894a83f5d7SGreg Roach case 'INT': 5904a83f5d7SGreg Roach case 'EST': 5914a83f5d7SGreg Roach case 'CAL': 5924a83f5d7SGreg Roach default: // There shouldn't be any other options... 5934a83f5d7SGreg Roach $case = 'NOMINATIVE'; 5944a83f5d7SGreg Roach break; 5954a83f5d7SGreg Roach } 5964a83f5d7SGreg Roach } 5974a83f5d7SGreg Roach // Build up the formatted date, character at a time 5984a83f5d7SGreg Roach preg_match_all('/%[^%]/', $format, $matches); 5994a83f5d7SGreg Roach foreach ($matches[0] as $match) { 6004a83f5d7SGreg Roach switch ($match) { 6014a83f5d7SGreg Roach case '%d': 6024a83f5d7SGreg Roach $format = str_replace($match, $this->formatDayZeros(), $format); 6034a83f5d7SGreg Roach break; 6044a83f5d7SGreg Roach case '%j': 6054a83f5d7SGreg Roach $format = str_replace($match, $this->formatDay(), $format); 6064a83f5d7SGreg Roach break; 6074a83f5d7SGreg Roach case '%l': 6084a83f5d7SGreg Roach $format = str_replace($match, $this->formatLongWeekday(), $format); 6094a83f5d7SGreg Roach break; 6104a83f5d7SGreg Roach case '%D': 6114a83f5d7SGreg Roach $format = str_replace($match, $this->formatShortWeekday(), $format); 6124a83f5d7SGreg Roach break; 6134a83f5d7SGreg Roach case '%N': 6144a83f5d7SGreg Roach $format = str_replace($match, $this->formatIsoWeekday(), $format); 6154a83f5d7SGreg Roach break; 6164a83f5d7SGreg Roach case '%w': 6174a83f5d7SGreg Roach $format = str_replace($match, $this->formatNumericWeekday(), $format); 6184a83f5d7SGreg Roach break; 6194a83f5d7SGreg Roach case '%z': 6204a83f5d7SGreg Roach $format = str_replace($match, $this->formatDayOfYear(), $format); 6214a83f5d7SGreg Roach break; 6224a83f5d7SGreg Roach case '%F': 6234a83f5d7SGreg Roach $format = str_replace($match, $this->formatLongMonth($case), $format); 6244a83f5d7SGreg Roach break; 6254a83f5d7SGreg Roach case '%m': 6264a83f5d7SGreg Roach $format = str_replace($match, $this->formatMonthZeros(), $format); 6274a83f5d7SGreg Roach break; 6284a83f5d7SGreg Roach case '%M': 6294a83f5d7SGreg Roach $format = str_replace($match, $this->formatShortMonth(), $format); 6304a83f5d7SGreg Roach break; 6314a83f5d7SGreg Roach case '%n': 6324a83f5d7SGreg Roach $format = str_replace($match, $this->formatMonth(), $format); 6334a83f5d7SGreg Roach break; 6344a83f5d7SGreg Roach case '%t': 6354a83f5d7SGreg Roach $format = str_replace($match, (string) $this->daysInMonth(), $format); 6364a83f5d7SGreg Roach break; 6374a83f5d7SGreg Roach case '%L': 6384a83f5d7SGreg Roach $format = str_replace($match, $this->isLeapYear() ? '1' : '0', $format); 6394a83f5d7SGreg Roach break; 6404a83f5d7SGreg Roach case '%Y': 6414a83f5d7SGreg Roach $format = str_replace($match, $this->formatLongYear(), $format); 6424a83f5d7SGreg Roach break; 6434a83f5d7SGreg Roach case '%y': 6444a83f5d7SGreg Roach $format = str_replace($match, $this->formatShortYear(), $format); 6454a83f5d7SGreg Roach break; 6464a83f5d7SGreg Roach // These 4 extensions are useful for re-formatting gedcom dates. 6474a83f5d7SGreg Roach case '%@': 6484a83f5d7SGreg Roach $format = str_replace($match, $this->formatGedcomCalendarEscape(), $format); 6494a83f5d7SGreg Roach break; 6504a83f5d7SGreg Roach case '%A': 6514a83f5d7SGreg Roach $format = str_replace($match, $this->formatGedcomDay(), $format); 6524a83f5d7SGreg Roach break; 6534a83f5d7SGreg Roach case '%O': 6544a83f5d7SGreg Roach $format = str_replace($match, $this->formatGedcomMonth(), $format); 6554a83f5d7SGreg Roach break; 6564a83f5d7SGreg Roach case '%E': 6574a83f5d7SGreg Roach $format = str_replace($match, $this->formatGedcomYear(), $format); 6584a83f5d7SGreg Roach break; 6594a83f5d7SGreg Roach } 6604a83f5d7SGreg Roach } 6614a83f5d7SGreg Roach 6624a83f5d7SGreg Roach return $format; 6634a83f5d7SGreg Roach } 6644a83f5d7SGreg Roach 6654a83f5d7SGreg Roach /** 6664a83f5d7SGreg Roach * Generate the %d format for a date. 6674a83f5d7SGreg Roach * 6684a83f5d7SGreg Roach * @return string 6694a83f5d7SGreg Roach */ 6704a83f5d7SGreg Roach protected function formatDayZeros(): string 6714a83f5d7SGreg Roach { 6724a83f5d7SGreg Roach if ($this->day > 9) { 6734a83f5d7SGreg Roach return I18N::digits($this->day); 6744a83f5d7SGreg Roach } 6754a83f5d7SGreg Roach 6764a83f5d7SGreg Roach return I18N::digits('0' . $this->day); 6774a83f5d7SGreg Roach } 6784a83f5d7SGreg Roach 6794a83f5d7SGreg Roach /** 6804a83f5d7SGreg Roach * Generate the %j format for a date. 6814a83f5d7SGreg Roach * 6824a83f5d7SGreg Roach * @return string 6834a83f5d7SGreg Roach */ 6844a83f5d7SGreg Roach protected function formatDay(): string 6854a83f5d7SGreg Roach { 6864a83f5d7SGreg Roach return I18N::digits($this->day); 6874a83f5d7SGreg Roach } 6884a83f5d7SGreg Roach 6894a83f5d7SGreg Roach /** 6904a83f5d7SGreg Roach * Generate the %l format for a date. 6914a83f5d7SGreg Roach * 6924a83f5d7SGreg Roach * @return string 6934a83f5d7SGreg Roach */ 6944a83f5d7SGreg Roach protected function formatLongWeekday(): string 6954a83f5d7SGreg Roach { 6964a83f5d7SGreg Roach return $this->dayNames($this->minimum_julian_day % $this->calendar->daysInWeek()); 6974a83f5d7SGreg Roach } 6984a83f5d7SGreg Roach 6994a83f5d7SGreg Roach /** 7004a83f5d7SGreg Roach * Generate the %D format for a date. 7014a83f5d7SGreg Roach * 7024a83f5d7SGreg Roach * @return string 7034a83f5d7SGreg Roach */ 7044a83f5d7SGreg Roach protected function formatShortWeekday(): string 7054a83f5d7SGreg Roach { 7064a83f5d7SGreg Roach return $this->dayNamesAbbreviated($this->minimum_julian_day % $this->calendar->daysInWeek()); 7074a83f5d7SGreg Roach } 7084a83f5d7SGreg Roach 7094a83f5d7SGreg Roach /** 7104a83f5d7SGreg Roach * Generate the %N format for a date. 7114a83f5d7SGreg Roach * 7124a83f5d7SGreg Roach * @return string 7134a83f5d7SGreg Roach */ 7144a83f5d7SGreg Roach protected function formatIsoWeekday(): string 7154a83f5d7SGreg Roach { 7164a83f5d7SGreg Roach return I18N::digits($this->minimum_julian_day % 7 + 1); 7174a83f5d7SGreg Roach } 7184a83f5d7SGreg Roach 7194a83f5d7SGreg Roach /** 7204a83f5d7SGreg Roach * Generate the %w format for a date. 7214a83f5d7SGreg Roach * 7224a83f5d7SGreg Roach * @return string 7234a83f5d7SGreg Roach */ 7244a83f5d7SGreg Roach protected function formatNumericWeekday(): string 7254a83f5d7SGreg Roach { 7264a83f5d7SGreg Roach return I18N::digits(($this->minimum_julian_day + 1) % $this->calendar->daysInWeek()); 7274a83f5d7SGreg Roach } 7284a83f5d7SGreg Roach 7294a83f5d7SGreg Roach /** 7304a83f5d7SGreg Roach * Generate the %z format for a date. 7314a83f5d7SGreg Roach * 7324a83f5d7SGreg Roach * @return string 7334a83f5d7SGreg Roach */ 7344a83f5d7SGreg Roach protected function formatDayOfYear(): string 7354a83f5d7SGreg Roach { 7364a83f5d7SGreg Roach return I18N::digits($this->minimum_julian_day - $this->calendar->ymdToJd($this->year, 1, 1)); 7374a83f5d7SGreg Roach } 7384a83f5d7SGreg Roach 7394a83f5d7SGreg Roach /** 7404a83f5d7SGreg Roach * Generate the %n format for a date. 7414a83f5d7SGreg Roach * 7424a83f5d7SGreg Roach * @return string 7434a83f5d7SGreg Roach */ 7444a83f5d7SGreg Roach protected function formatMonth(): string 7454a83f5d7SGreg Roach { 7464a83f5d7SGreg Roach return I18N::digits($this->month); 7474a83f5d7SGreg Roach } 7484a83f5d7SGreg Roach 7494a83f5d7SGreg Roach /** 7504a83f5d7SGreg Roach * Generate the %m format for a date. 7514a83f5d7SGreg Roach * 7524a83f5d7SGreg Roach * @return string 7534a83f5d7SGreg Roach */ 7544a83f5d7SGreg Roach protected function formatMonthZeros(): string 7554a83f5d7SGreg Roach { 7564a83f5d7SGreg Roach if ($this->month > 9) { 7574a83f5d7SGreg Roach return I18N::digits($this->month); 7584a83f5d7SGreg Roach } 7594a83f5d7SGreg Roach 7604a83f5d7SGreg Roach return I18N::digits('0' . $this->month); 7614a83f5d7SGreg Roach } 7624a83f5d7SGreg Roach 7634a83f5d7SGreg Roach /** 7644a83f5d7SGreg Roach * Generate the %F format for a date. 7654a83f5d7SGreg Roach * 7664a83f5d7SGreg Roach * @param string $case Which grammatical case shall we use 7674a83f5d7SGreg Roach * 7684a83f5d7SGreg Roach * @return string 7694a83f5d7SGreg Roach */ 7704a83f5d7SGreg Roach protected function formatLongMonth($case = 'NOMINATIVE'): string 7714a83f5d7SGreg Roach { 7724a83f5d7SGreg Roach switch ($case) { 7734a83f5d7SGreg Roach case 'GENITIVE': 7744a83f5d7SGreg Roach return $this->monthNameGenitiveCase($this->month, $this->isLeapYear()); 7754a83f5d7SGreg Roach case 'NOMINATIVE': 7764a83f5d7SGreg Roach return $this->monthNameNominativeCase($this->month, $this->isLeapYear()); 7774a83f5d7SGreg Roach case 'LOCATIVE': 7784a83f5d7SGreg Roach return $this->monthNameLocativeCase($this->month, $this->isLeapYear()); 7794a83f5d7SGreg Roach case 'INSTRUMENTAL': 7804a83f5d7SGreg Roach return $this->monthNameInstrumentalCase($this->month, $this->isLeapYear()); 7814a83f5d7SGreg Roach default: 7824a83f5d7SGreg Roach throw new \InvalidArgumentException($case); 7834a83f5d7SGreg Roach } 7844a83f5d7SGreg Roach } 7854a83f5d7SGreg Roach 7864a83f5d7SGreg Roach /** 7877bb2eb25SGreg Roach * Full month name in genitive case. 7887bb2eb25SGreg Roach * 7897bb2eb25SGreg Roach * @param int $month 7907bb2eb25SGreg Roach * @param bool $leap_year Some calendars use leap months 7917bb2eb25SGreg Roach * 7927bb2eb25SGreg Roach * @return string 7937bb2eb25SGreg Roach */ 7947bb2eb25SGreg Roach abstract protected function monthNameGenitiveCase(int $month, bool $leap_year): string; 7957bb2eb25SGreg Roach 7967bb2eb25SGreg Roach /** 7977bb2eb25SGreg Roach * Full month name in nominative case. 7987bb2eb25SGreg Roach * 7997bb2eb25SGreg Roach * @param int $month 8007bb2eb25SGreg Roach * @param bool $leap_year Some calendars use leap months 8017bb2eb25SGreg Roach * 8027bb2eb25SGreg Roach * @return string 8037bb2eb25SGreg Roach */ 8047bb2eb25SGreg Roach abstract protected function monthNameNominativeCase(int $month, bool $leap_year): string; 8057bb2eb25SGreg Roach 8067bb2eb25SGreg Roach /** 8077bb2eb25SGreg Roach * Full month name in locative case. 8087bb2eb25SGreg Roach * 8097bb2eb25SGreg Roach * @param int $month 8107bb2eb25SGreg Roach * @param bool $leap_year Some calendars use leap months 8117bb2eb25SGreg Roach * 8127bb2eb25SGreg Roach * @return string 8137bb2eb25SGreg Roach */ 8147bb2eb25SGreg Roach abstract protected function monthNameLocativeCase(int $month, bool $leap_year): string; 8157bb2eb25SGreg Roach 8167bb2eb25SGreg Roach /** 8177bb2eb25SGreg Roach * Full month name in instrumental case. 8187bb2eb25SGreg Roach * 8197bb2eb25SGreg Roach * @param int $month 8207bb2eb25SGreg Roach * @param bool $leap_year Some calendars use leap months 8217bb2eb25SGreg Roach * 8227bb2eb25SGreg Roach * @return string 8237bb2eb25SGreg Roach */ 8247bb2eb25SGreg Roach abstract protected function monthNameInstrumentalCase(int $month, bool $leap_year): string; 8257bb2eb25SGreg Roach 8267bb2eb25SGreg Roach /** 8277bb2eb25SGreg Roach * Abbreviated month name 8287bb2eb25SGreg Roach * 8297bb2eb25SGreg Roach * @param int $month 8307bb2eb25SGreg Roach * @param bool $leap_year Some calendars use leap months 8317bb2eb25SGreg Roach * 8327bb2eb25SGreg Roach * @return string 8337bb2eb25SGreg Roach */ 8347bb2eb25SGreg Roach abstract protected function monthNameAbbreviated(int $month, bool $leap_year): string; 8357bb2eb25SGreg Roach 8367bb2eb25SGreg Roach /** 8374a83f5d7SGreg Roach * Generate the %M format for a date. 8384a83f5d7SGreg Roach * 8394a83f5d7SGreg Roach * @return string 8404a83f5d7SGreg Roach */ 8414a83f5d7SGreg Roach protected function formatShortMonth(): string 8424a83f5d7SGreg Roach { 8434a83f5d7SGreg Roach return $this->monthNameAbbreviated($this->month, $this->isLeapYear()); 8444a83f5d7SGreg Roach } 8454a83f5d7SGreg Roach 8464a83f5d7SGreg Roach /** 8474a83f5d7SGreg Roach * Generate the %y format for a date. 8484a83f5d7SGreg Roach * NOTE Short year is NOT a 2-digit year. It is for calendars such as hebrew 8494a83f5d7SGreg Roach * which have a 3-digit form of 4-digit years. 8504a83f5d7SGreg Roach * 8514a83f5d7SGreg Roach * @return string 8524a83f5d7SGreg Roach */ 8534a83f5d7SGreg Roach protected function formatShortYear(): string 8544a83f5d7SGreg Roach { 8554a83f5d7SGreg Roach return $this->formatLongYear(); 8564a83f5d7SGreg Roach } 8574a83f5d7SGreg Roach 8584a83f5d7SGreg Roach /** 8594a83f5d7SGreg Roach * Generate the %A format for a date. 8604a83f5d7SGreg Roach * 8614a83f5d7SGreg Roach * @return string 8624a83f5d7SGreg Roach */ 8634a83f5d7SGreg Roach protected function formatGedcomDay(): string 8644a83f5d7SGreg Roach { 8654a83f5d7SGreg Roach if ($this->day == 0) { 8664a83f5d7SGreg Roach return ''; 8674a83f5d7SGreg Roach } 8684a83f5d7SGreg Roach 8694a83f5d7SGreg Roach return sprintf('%02d', $this->day); 8704a83f5d7SGreg Roach } 8714a83f5d7SGreg Roach 8724a83f5d7SGreg Roach /** 8734a83f5d7SGreg Roach * Generate the %O format for a date. 8744a83f5d7SGreg Roach * 8754a83f5d7SGreg Roach * @return string 8764a83f5d7SGreg Roach */ 8774a83f5d7SGreg Roach protected function formatGedcomMonth(): string 8784a83f5d7SGreg Roach { 8794a83f5d7SGreg Roach // Our simple lookup table doesn't work correctly for Adar on leap years 8804a83f5d7SGreg Roach if ($this->month == 7 && $this->calendar instanceof JewishCalendar && !$this->calendar->isLeapYear($this->year)) { 8814a83f5d7SGreg Roach return 'ADR'; 8824a83f5d7SGreg Roach } 8834a83f5d7SGreg Roach 8844a83f5d7SGreg Roach return array_search($this->month, static::MONTH_ABBREVIATIONS); 8854a83f5d7SGreg Roach } 8864a83f5d7SGreg Roach 8874a83f5d7SGreg Roach /** 8884a83f5d7SGreg Roach * Generate the %E format for a date. 8894a83f5d7SGreg Roach * 8904a83f5d7SGreg Roach * @return string 8914a83f5d7SGreg Roach */ 8924a83f5d7SGreg Roach protected function formatGedcomYear(): string 8934a83f5d7SGreg Roach { 8944a83f5d7SGreg Roach if ($this->year == 0) { 8954a83f5d7SGreg Roach return ''; 8964a83f5d7SGreg Roach } 8974a83f5d7SGreg Roach 8984a83f5d7SGreg Roach return sprintf('%04d', $this->year); 8994a83f5d7SGreg Roach } 9004a83f5d7SGreg Roach 9014a83f5d7SGreg Roach /** 9024a83f5d7SGreg Roach * Generate the %@ format for a calendar escape. 9034a83f5d7SGreg Roach * 9044a83f5d7SGreg Roach * @return string 9054a83f5d7SGreg Roach */ 9064a83f5d7SGreg Roach protected function formatGedcomCalendarEscape(): string 9074a83f5d7SGreg Roach { 9084a83f5d7SGreg Roach return static::ESCAPE; 9094a83f5d7SGreg Roach } 9104a83f5d7SGreg Roach 9114a83f5d7SGreg Roach /** 9124a83f5d7SGreg Roach * Generate the %Y format for a date. 9134a83f5d7SGreg Roach * 9144a83f5d7SGreg Roach * @return string 9154a83f5d7SGreg Roach */ 9164a83f5d7SGreg Roach protected function formatLongYear(): string 9174a83f5d7SGreg Roach { 9184a83f5d7SGreg Roach return I18N::digits($this->year); 9194a83f5d7SGreg Roach } 9204a83f5d7SGreg Roach 9214a83f5d7SGreg Roach /** 9224a83f5d7SGreg Roach * Which months follows this one? Calendars with leap-months should provide their own implementation. 9234a83f5d7SGreg Roach * 9244a83f5d7SGreg Roach * @return int[] 9254a83f5d7SGreg Roach */ 9264a83f5d7SGreg Roach protected function nextMonth(): array 9274a83f5d7SGreg Roach { 9284a83f5d7SGreg Roach return [ 9294a83f5d7SGreg Roach $this->month === $this->calendar->monthsInYear() ? $this->nextYear($this->year) : $this->year, 9304a83f5d7SGreg Roach ($this->month % $this->calendar->monthsInYear()) + 1, 9314a83f5d7SGreg Roach ]; 9324a83f5d7SGreg Roach } 9334a83f5d7SGreg Roach 9344a83f5d7SGreg Roach /** 9354a83f5d7SGreg Roach * Get today’s date in the current calendar. 9364a83f5d7SGreg Roach * 9374a83f5d7SGreg Roach * @return int[] 9384a83f5d7SGreg Roach */ 9394a83f5d7SGreg Roach public function todayYmd(): array 9404a83f5d7SGreg Roach { 9414a83f5d7SGreg Roach return $this->calendar->jdToYmd(unixtojd()); 9424a83f5d7SGreg Roach } 9434a83f5d7SGreg Roach 9444a83f5d7SGreg Roach /** 9454a83f5d7SGreg Roach * Convert to today’s date. 9464a83f5d7SGreg Roach * 9474a83f5d7SGreg Roach * @return AbstractCalendarDate 9484a83f5d7SGreg Roach */ 9494a83f5d7SGreg Roach public function today(): AbstractCalendarDate 9504a83f5d7SGreg Roach { 9514a83f5d7SGreg Roach $tmp = clone $this; 9524a83f5d7SGreg Roach $ymd = $tmp->todayYmd(); 9534a83f5d7SGreg Roach $tmp->year = $ymd[0]; 9544a83f5d7SGreg Roach $tmp->month = $ymd[1]; 9554a83f5d7SGreg Roach $tmp->day = $ymd[2]; 9564a83f5d7SGreg Roach $tmp->setJdFromYmd(); 9574a83f5d7SGreg Roach 9584a83f5d7SGreg Roach return $tmp; 9594a83f5d7SGreg Roach } 9604a83f5d7SGreg Roach 9614a83f5d7SGreg Roach /** 9624a83f5d7SGreg Roach * Create a URL that links this date to the WT calendar 9634a83f5d7SGreg Roach * 9644a83f5d7SGreg Roach * @param string $date_format 96549d5f1d7SGreg Roach * @param Tree $tree 9664a83f5d7SGreg Roach * 9674a83f5d7SGreg Roach * @return string 9684a83f5d7SGreg Roach */ 96949d5f1d7SGreg Roach public function calendarUrl(string $date_format, Tree $tree): string 9704a83f5d7SGreg Roach { 9714a83f5d7SGreg Roach if (strpbrk($date_format, 'dDj') && $this->day) { 9724a83f5d7SGreg Roach // If the format includes a day, and the date also includes a day, then use the day view 9734a83f5d7SGreg Roach $view = 'day'; 9744a83f5d7SGreg Roach } elseif (strpbrk($date_format, 'FMmn') && $this->month) { 9754a83f5d7SGreg Roach // If the format includes a month, and the date also includes a month, then use the month view 9764a83f5d7SGreg Roach $view = 'month'; 9774a83f5d7SGreg Roach } else { 9784a83f5d7SGreg Roach // Use the year view 9794a83f5d7SGreg Roach $view = 'year'; 9804a83f5d7SGreg Roach } 9814a83f5d7SGreg Roach 9824a83f5d7SGreg Roach return route('calendar', [ 9834a83f5d7SGreg Roach 'cal' => $this->calendar->gedcomCalendarEscape(), 9844a83f5d7SGreg Roach 'year' => $this->formatGedcomYear(), 9854a83f5d7SGreg Roach 'month' => $this->formatGedcomMonth(), 9864a83f5d7SGreg Roach 'day' => $this->formatGedcomDay(), 9874a83f5d7SGreg Roach 'view' => $view, 988*aa6f03bbSGreg Roach 'ged' => $tree->name(), 9894a83f5d7SGreg Roach ]); 9904a83f5d7SGreg Roach } 9914a83f5d7SGreg Roach} 992