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.
232 lines
7.7 KiB
232 lines
7.7 KiB
<?php
|
|
|
|
// (c) Copyright by authors of the Tiki Wiki CMS Groupware Project
|
|
//
|
|
// All Rights Reserved. See copyright.txt for details and a complete list of authors.
|
|
// Licensed under the GNU LESSER GENERAL PUBLIC LICENSE. See license.txt for details.
|
|
// $Id$
|
|
|
|
class MCalendar
|
|
{
|
|
|
|
// GMT correlation initiated on August 11, 3114 BC (Gregorian).
|
|
// For another popular GMT correlation initiated on August 13, 3114 BC
|
|
// set MCalendar->StartLongCount = 584285 before calling function MCalendar->Maya()
|
|
var $StartLongCount = 584283;
|
|
var $LongCount = [
|
|
"Baktun" => 13,
|
|
"Katun" => 0,
|
|
"Tun" => 0,
|
|
"Winal" => 0,
|
|
"Kin" => 0
|
|
];
|
|
var $LongKin;
|
|
var $Tzolkin = [
|
|
"Kin13" => 0,
|
|
"Kin20" => 0
|
|
];
|
|
var $TzolkinNames = [
|
|
"AHAU", "IMIX", "IK", "AKBAL", "KAN",
|
|
"CHICCHAN", "CIMI", "MANIK", "LAMAT",
|
|
"MULUC", "OC", "CHUEN", "EB", "BEN",
|
|
"IX", "MEN", "CIB", "CABAN", "ETZNAB",
|
|
"CAUAC"
|
|
];
|
|
var $Haab = [
|
|
"Winal" => 0,
|
|
"Kin" => 0
|
|
];
|
|
var $HaabNames = [
|
|
"POP", "WO", "SIP", "SOTZ",
|
|
"SEK", "XUL", "YAXKIN", "MOL",
|
|
"CHEN", "YAX", "SAC", "KEH", "MAK",
|
|
"KANKIN", "MUWAN", "PAX", "KAYAB",
|
|
"KUMKU", "WAYEB"
|
|
];
|
|
var $Gregorian = [
|
|
"Year" => 2008,
|
|
"Month" => 11,
|
|
"Day" => 25
|
|
];
|
|
var $Julian = 0;
|
|
|
|
|
|
function setLongKin()
|
|
{
|
|
$this->LongKin = $this->LongCount["Baktun"] * 144000
|
|
+ $this->LongCount["Katun"] * 7200
|
|
+ $this->LongCount["Tun"] * 360
|
|
+ $this->LongCount["Winal"] * 20
|
|
+ $this->LongCount["Kin"];
|
|
return $this->LongKin;
|
|
}
|
|
|
|
|
|
function setJulian()
|
|
{
|
|
|
|
$Year = $this->Gregorian["Year"];
|
|
$Month = $this->Gregorian["Month"];
|
|
$Day = $this->Gregorian["Day"];
|
|
|
|
if ($Month < 3) {
|
|
$Month += 12;
|
|
$Year -= 1;
|
|
};
|
|
|
|
$a = floor($Year / 100);
|
|
$b = 2 - $a + floor($a / 4);
|
|
$j = floor(365.25 * ($Year + 4716)) + floor(30.6001 * ($Month + 1)) + $Day + $b - 1524;
|
|
|
|
$this->Julian = $j;
|
|
return $this->Julian;
|
|
}
|
|
|
|
|
|
function Maya()
|
|
{
|
|
|
|
$this->setJulian();
|
|
|
|
$days = $this->Julian - $this->StartLongCount;
|
|
$xdays = $days;
|
|
|
|
$baktun = floor($xdays / 144000);
|
|
$this->LongCount["Baktun"] = $baktun;
|
|
|
|
$xdays -= $baktun * 144000;
|
|
|
|
$katun = floor($xdays / 7200);
|
|
$this->LongCount["Katun"] = $katun;
|
|
|
|
$xdays -= $katun * 7200;
|
|
|
|
$tun = floor($xdays / 360);
|
|
$this->LongCount["Tun"] = $tun;
|
|
|
|
$xdays -= $tun * 360;
|
|
|
|
$winal = floor($xdays / 20);
|
|
$this->LongCount["Winal"] = $winal;
|
|
|
|
$kin = $xdays - ($winal * 20);
|
|
$this->LongCount["Kin"] = $kin;
|
|
|
|
$xdays = $days - (260 * (floor($days / 260)));
|
|
$tzolradical = 4 + $xdays - (13 * (floor(($xdays + 3) / 13)));
|
|
$this->Tzolkin["Kin13"] = $tzolradical;
|
|
|
|
$tzolkin = $xdays - (20 * (floor(($xdays) / 20)));
|
|
$this->Tzolkin["Kin20"] = $tzolkin;
|
|
|
|
$xdays = $days + 348 - (365 * (floor(($days + 348) / 365)));
|
|
$haabkin = $xdays - (20 * (floor($xdays / 20)));
|
|
$this->Haab["Kin"] = $haabkin;
|
|
|
|
|
|
if ($xdays > 360) {
|
|
$this->Haab["Winal"] = 18;
|
|
}
|
|
|
|
$haabwinal = floor($xdays / 20);
|
|
$this->Haab["Winal"] = $haabwinal;
|
|
|
|
$this->setLongKin();
|
|
}
|
|
}
|
|
|
|
function wikiplugin_mcalendar_info()
|
|
{
|
|
return [
|
|
'name' => tra('Mayan Calendars'),
|
|
'documentation' => 'PluginMCalendarInfo',
|
|
'description' => tra('Convert a Gregorian date to a Mayan calendar date'),
|
|
'prefs' => ['wikiplugin_mcalendar'],
|
|
'iconname' => 'calendar',
|
|
'introduced' => 4,
|
|
'params' => [
|
|
'template' => [
|
|
'required' => false,
|
|
'name' => tra('Template'),
|
|
'since' => '4.0',
|
|
'description' => tra('You must use the variable substitution.')
|
|
. '<br />'
|
|
. tra('LongCount: ')
|
|
. '~np~<code>%baktun%</code>, <code>%katun%</code>, <code>%tun%</code>, <code>%winal%</code>, <code>%kin%</code>~/np~'
|
|
. '<br />'
|
|
. tra('Tzolkin: ')
|
|
. '~np~<code>%tzolkin13%</code>, <code>%tzolkin20%</code>, <code>%tzolkin20name%</code>~/np~'
|
|
. '<br />'
|
|
. tra('Haab: ')
|
|
. '~np~<code>%haabkin%</code>, <code>%haabwinal%</code>, <code>%haabwinalname%</code>~/np~'
|
|
. '<br />'
|
|
. tra('Misc: ')
|
|
. '~np~<code>%longkin%</code>, <code>%julianday%</code>~/np~'
|
|
. '<br /><br />'
|
|
. tra('Example: template ')
|
|
. '~np~<code>"%baktun%.%katun%.%tun%.%winal%.%kin%, %tzolkin13% %tzolkin20name%, %haabkin% %haabwinalname%"</code>~/np~'
|
|
. tr('for %022.05.2009%1 will return 12.19.16.6.11, 8 CHUEN, 9 SIP.', '<code>', '</code>')
|
|
. '<br /><br />'
|
|
. tra('Default template: ')
|
|
. '~np~<code>%baktun%.%katun%.%tun%.%winal%.%kin% %tzolkin13% %tzolkin20name% %haabkin% %haabwinalname%</code>~/np~',
|
|
],
|
|
'grdate' => [
|
|
'required' => false,
|
|
'name' => tra('Gregorian date'),
|
|
'description' => tr(
|
|
'Gregorian date for convert. Format: %0DD.MM.YYYY%1. Default: Today\'s date',
|
|
'<code>',
|
|
'</code>'
|
|
),
|
|
'since' => '4.0',
|
|
],
|
|
],
|
|
];
|
|
}
|
|
|
|
function wikiplugin_mcalendar($data, $params)
|
|
{
|
|
global $tikilib;
|
|
|
|
extract($params, EXTR_SKIP);
|
|
|
|
$out = '';
|
|
|
|
if (! isset($template)) {
|
|
$template = '%baktun%.%katun%.%tun%.%winal%.%kin% %tzolkin13% %tzolkin20name% %haabkin% %haabwinalname%';
|
|
}
|
|
|
|
$template = strtolower($template);
|
|
|
|
$today = $grdate;
|
|
// Set default date to Today.
|
|
if (! isset($grdate)) {
|
|
$today = date('d.m.Y');
|
|
}
|
|
|
|
// If date is not in DD.MM.YYYY format display error message
|
|
if (! preg_match('/\d{1,2}\.\d{1,2}\.\d{4}/', $today)) {
|
|
$error = "<span class='attention'>" . $today . tra(" is not a valid date format. should be dd.mm.yyyy") . "</span>";
|
|
return $error;
|
|
}
|
|
|
|
$MCal = new MCalendar();
|
|
list($MCal->Gregorian["Day"], $MCal->Gregorian["Month"], $MCal->Gregorian["Year"]) = explode(".", $today);
|
|
|
|
$MCal->Maya();
|
|
|
|
$vars = ['%baktun%', '%katun%', '%tun%', '%winal%', '%kin%',
|
|
'%tzolkin13%', '%tzolkin20%', '%tzolkin20name%',
|
|
'%haabkin%', '%haabwinal%', '%haabwinalname%',
|
|
'%longkin%', '%julianday%'];
|
|
|
|
$values = [$MCal->LongCount["Baktun"], $MCal->LongCount["Katun"],
|
|
$MCal->LongCount["Tun"], $MCal->LongCount["Winal"], $MCal->LongCount["Kin"],
|
|
$MCal->Tzolkin["Kin13"], $MCal->Tzolkin["Kin20"], $MCal->TzolkinNames[$MCal->Tzolkin["Kin20"]],
|
|
$MCal->Haab["Kin"], $MCal->Haab["Winal"], $MCal->HaabNames[$MCal->Haab["Winal"]],
|
|
$MCal->LongKin, $MCal->Julian];
|
|
|
|
$out = str_replace($vars, $values, $template);
|
|
|
|
return $out;
|
|
}
|