;ELC ;;; compiled by jwz@thalidomide on Sun Jan 2 02:56:39 1994 ;;; from file /th/jwz/emacs19/lisp/calendar/cal-mayan.el ;;; emacs version 19.9 Lucid (beta10). ;;; bytecomp version 2.22; 22-dec-93. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (require 'calendar) (fset 'mayan-adjusted-mod #[(m n) " S\n\"T" [mod m n] 3 "\ Non-negative remainder of M/N with N instead of 0."]) (defconst calendar-mayan-days-before-absolute-zero 1137140 "\ Number of days of the Mayan calendar epoch before absolute day 0. According to the Goodman-Martinez-Thompson correlation. This correlation is not universally accepted, as it still a subject of astro-archeological research. Using 1232041 will give you the correlation used by Spinden.") (defconst calendar-mayan-haab-at-epoch '(8 . 18) "\ Mayan haab date at the epoch.") (byte-code "‡" [["Pop" "Uo" "Zip" "Zotz" "Tzec" "Xul" "Yaxkin" "Mol" "Chen" "Yax" "Zac" "Ceh" "Mac" "Kankin" "Muan" "Pax" "Kayab" "Cumku"] calendar-mayan-haab-month-name-array nil] 1) (defconst calendar-mayan-tzolkin-at-epoch '(4 . 20) "\ Mayan tzolkin date at the epoch.") (byte-code "‡" [["Imix" "Ik" "Akbal" "Kan" "Chicchan" "Cimi" "Manik" "Lamat" "Muluc" "Oc" "Chuen" "Eb" "Ben" "Ix" "Men" "Cib" "Caban" "Etznab" "Cauac" "Ahau"] calendar-mayan-tzolkin-names-array nil] 1) (fset 'calendar-mayan-long-count-from-absolute #[(date) " \\å\næƥ Ʀȥ Ȧʥ ʦ    . " [date calendar-mayan-days-before-absolute-zero long-count 144000 baktun remainder 7200 katun 360 tun 20 uinal kin] 6 "\ Compute the Mayan long count corresponding to the absolute DATE."]) (fset 'calendar-mayan-long-count-to-string #[(mayan-long-count) " B\"" [apply format "%s.%s.%s.%s.%s" mayan-long-count] 4 "\ Convert MAYAN-LONG-COUNT into traditional written form."]) (fset 'calendar-string-to-mayan-long-count #[(str) " Gȏ !+" [nil str 0 cc c rlc condition (byte-code " W \"@ @\" @B A)\\GU\"ɇ" [cc c read-from-string str datum signal invalid-read-syntax rlc 5 nil] 4) ((invalid-read-syntax)) reverse] 3 "\ Given STR, a string of format \"%d.%d.%d.%d.%d\", return list of nums."]) (fset 'calendar-mayan-haab-from-absolute #[(date) " \\ @ AS_\\\\ŦĦĥT,B" [date calendar-mayan-days-before-absolute-zero long-count calendar-mayan-haab-at-epoch 20 365 day-of-haab day month] 5 "\ Convert absolute DATE into a Mayan haab date (a pair)."]) (fset 'calendar-mayan-haab-difference #[(date1 date2) " A\nAZ_ @\n@Z\\\"" [mod date2 date1 20 365] 4 "\ Number of days from Mayan haab DATE1 to next occurrence of haab date DATE2."]) (fset 'calendar-mayan-haab-on-or-before #[(haab-date date) "! \"ZŦZ" [date calendar-mayan-haab-difference calendar-mayan-haab-from-absolute 0 haab-date 365] 5 "\ Absolute date of latest HAAB-DATE on or before absolute DATE."]) (fset 'calendar-next-haab-date #[(haab-date &optional noecho) " AA@S @ A@ AA@S_\\\nV\n_\\ΥZ\n̦UЦUѦU\nT\n\n, _ ̥ Х[ ѥ\\\\\\\\)\\\"!! " [calendar-goto-date calendar-gregorian-from-absolute calendar-mayan-haab-on-or-before haab-date calendar-cursor-to-date prior-years month day year 31 day-of-year 2 4 23 10 0 100 400 365 noecho calendar-print-mayan-date] 10 "\ Move cursor to next instance of Mayan HAAB-DATE. Echo Mayan date if NOECHO is t." (byte-code " C" [calendar-read-mayan-haab-date] 1)]) (fset 'calendar-previous-haab-date #[(haab-date &optional noecho) " AA@S @ A@ AA@S_\\\nV\n_\\ΥZ\n̦UЦUѦU\nT\n\n, _ ̥ Х[ ѥ\\\\\\\\)S\"!! " [calendar-goto-date calendar-gregorian-from-absolute calendar-mayan-haab-on-or-before haab-date calendar-cursor-to-date prior-years month day year 31 day-of-year 2 4 23 10 0 100 400 365 noecho calendar-print-mayan-date] 10 "\ Move cursor to previous instance of Mayan HAAB-DATE. Echo Mayan date if NOECHO is t." (byte-code " C" [calendar-read-mayan-haab-date] 1)]) (fset 'calendar-mayan-haab-to-string #[(haab) "A@U \" \nSH#*" [haab day month 19 format "%d Uayeb" "%d %s" calendar-mayan-haab-month-name-array] 6 "\ Convert Mayan haab date (a pair) into its traditional written form."]) (fset 'calendar-mayan-tzolkin-from-absolute #[(date) " \\\n @\\\"\n A\\\"+B" [date calendar-mayan-days-before-absolute-zero long-count mayan-adjusted-mod calendar-mayan-tzolkin-at-epoch 13 day 20 name] 3 "\ Convert absolute DATE into a Mayan tzolkin date (a pair)."]) (fset 'calendar-mayan-tzolkin-difference #[(date1 date2) "@ @ZA AZ \nZ_\"_\\\"*" [date2 date1 name-difference number-difference mod 3 20 13 260] 5 "\ Number of days from Mayan tzolkin DATE1 to next occurrence of tzolkin DATE2."]) (fset 'calendar-mayan-tzolkin-on-or-before #[(tzolkin-date date) "! \"ZŦZ" [date calendar-mayan-tzolkin-difference calendar-mayan-tzolkin-from-absolute 0 tzolkin-date 260] 5 "\ Absolute date of latest TZOLKIN-DATE on or before absolute DATE."]) (fset 'calendar-next-tzolkin-date #[(tzolkin-date &optional noecho) " AA@S @ A@ AA@S_\\\nV\n_\\ΥZ\n̦UЦUѦU\nT\n\n, _ ̥ Х[ ѥ\\\\\\\\)\\\"!! " [calendar-goto-date calendar-gregorian-from-absolute calendar-mayan-tzolkin-on-or-before tzolkin-date calendar-cursor-to-date prior-years month day year 31 day-of-year 2 4 23 10 0 100 400 365 260 noecho calendar-print-mayan-date] 10 "\ Move cursor to next instance of Mayan TZOLKIN-DATE. Echo Mayan date if NOECHO is t." (byte-code " C" [calendar-read-mayan-tzolkin-date] 1)]) (fset 'calendar-previous-tzolkin-date #[(tzolkin-date &optional noecho) " AA@S @ A@ AA@S_\\\nV\n_\\ΥZ\n̦UЦUѦU\nT\n\n, _ ̥ Х[ ѥ\\\\\\\\)S\"!! " [calendar-goto-date calendar-gregorian-from-absolute calendar-mayan-tzolkin-on-or-before tzolkin-date calendar-cursor-to-date prior-years month day year 31 day-of-year 2 4 23 10 0 100 400 365 noecho calendar-print-mayan-date] 10 "\ Move cursor to previous instance of Mayan TZOLKIN-DATE. Echo Mayan date if NOECHO is t." (byte-code " C" [calendar-read-mayan-tzolkin-date] 1)]) (fset 'calendar-mayan-tzolkin-to-string #[(tzolkin) "\n@ \nASH#" [format "%d %s" tzolkin calendar-mayan-tzolkin-names-array] 5 "\ Convert Mayan tzolkin date (a pair) into its traditional written form."]) (fset 'calendar-mayan-tzolkin-haab-on-or-before #[(tzolkin-date haab-date date) "! \"!\" Z ʦU   _\\Z\"Z+" [calendar-mayan-haab-difference calendar-mayan-haab-from-absolute 0 haab-date haab-difference calendar-mayan-tzolkin-difference calendar-mayan-tzolkin-from-absolute tzolkin-date tzolkin-difference difference 5 date mod 365 18980] 7 "\ Absolute date that is Mayan TZOLKIN-DATE and HAAB-DATE. Latest such date on or before DATE. Returns nil if such a tzolkin-haab combination is impossible."]) (fset 'calendar-read-mayan-haab-date #[nil "\" W\"\n\n\"$!\n#\"A ,B" [t completion-ignore-case calendar-read "Haab kin (0-19): " (lambda (x) (and (>= x 0) (< x 20))) haab-day append calendar-mayan-haab-month-name-array 5 ("Uayeb") haab-month-list assoc capitalize completing-read "Haab uinal: " mapcar list nil calendar-make-alist 1 haab-month] 7 "\ Prompt for a Mayan haab date"]) (fset 'calendar-read-mayan-tzolkin-date #[nil "\"\"  \"$! #\"A ,B" [t completion-ignore-case calendar-read "Tzolkin kin (1-13): " (lambda (x) (and (> x 0) (< x 14))) tzolkin-count append calendar-mayan-tzolkin-names-array nil tzolkin-name-list assoc capitalize completing-read "Tzolkin uinal: " mapcar list calendar-make-alist 1 tzolkin-name] 7 "\ Prompt for a Mayan tzolkin date"]) (fset 'calendar-next-calendar-round-date #[(tzolkin-date haab-date &optional noecho) " \n AA@S @ A@ AA@ S_\\ V _\\ͥZ ˦UϦUЦU T  , _ ˥ ϥ[ Х\\\\\\\\)\\# !\n!#!! )" [calendar-mayan-tzolkin-haab-on-or-before tzolkin-date haab-date calendar-cursor-to-date prior-years month day year 31 day-of-year 2 4 23 10 0 100 400 365 18980 date error "%s, %s does not exist in the Mayan calendar round" calendar-mayan-tzolkin-to-string calendar-mayan-haab-to-string calendar-goto-date calendar-gregorian-from-absolute noecho calendar-print-mayan-date] 10 "\ Move cursor to next instance of Mayan HAAB-DATE TZOKLIN-DATE combination. Echo Mayan date if NOECHO is t." (byte-code " D" [calendar-read-mayan-tzolkin-date calendar-read-mayan-haab-date] 2)]) (fset 'calendar-previous-calendar-round-date #[(tzolkin-date haab-date &optional noecho) " \n AA@S @ A@ AA@ S_\\ V _\\ͥZ ˦UϦUЦU T  , _ ˥ ϥ[ Х\\\\\\\\)S# !\n!#!! )" [calendar-mayan-tzolkin-haab-on-or-before tzolkin-date haab-date calendar-cursor-to-date prior-years month day year 31 day-of-year 2 4 23 10 0 100 400 365 date error "%s, %s does not exist in the Mayan calendar round" calendar-mayan-tzolkin-to-string calendar-mayan-haab-to-string calendar-goto-date calendar-gregorian-from-absolute noecho calendar-print-mayan-date] 10 "\ Move to previous instance of Mayan TZOKLIN-DATE HAAB-DATE combination. Echo Mayan date if NOECHO is t." (byte-code " D" [calendar-read-mayan-tzolkin-date calendar-read-mayan-haab-date] 2)]) (fset 'calendar-absolute-from-mayan-long-count #[(c) "@_A@_8_8_8[\\\\\\\\\\" [c 144000 7200 2 360 3 20 4 calendar-mayan-days-before-absolute-zero] 6 "\ Compute the absolute date corresponding to the Mayan Long Count C. Long count is a list (baktun katun tun uinal kin)"]) (fset 'calendar-print-mayan-date #[nil " !AA@S !@ !A@ !AA@ S_\\ V _\\̥ZʦUΦUϦUT, _ ʥ Υ[ ϥ\\\\\\\\)!!!!!!$," [calendar-cursor-to-date error "Cursor is not on a date!" prior-years month day year 31 day-of-year 2 4 23 10 0 100 400 365 d calendar-mayan-tzolkin-from-absolute tzolkin calendar-mayan-haab-from-absolute haab calendar-mayan-long-count-from-absolute long-count message "Mayan date: Long count = %s; tzolkin = %s; haab = %s" calendar-mayan-long-count-to-string calendar-mayan-tzolkin-to-string calendar-mayan-haab-to-string] 6 "\ Show the Mayan long count, tzolkin, and haab equivalents of date." nil]) (fset 'calendar-goto-mayan-long-count-date #[(date &optional noecho) " !!! " [calendar-goto-date calendar-gregorian-from-absolute calendar-absolute-from-mayan-long-count date noecho calendar-print-mayan-date] 4 "\ Move cursor to Mayan long count DATE. Echo Mayan date unless NOECHO is t." (byte-code " AA@S @ A@\n AA@ \n S_\\  V  _\\ѥZ  ϦU ӦU ԦU T  ,_ϥӥ[ԥ\\\\\\\\)!!\"!!) )C" [nil lc calendar-string-to-mayan-long-count read-string "Mayan long count (baktun.katun.tun.uinal.kin): " calendar-mayan-long-count-to-string calendar-mayan-long-count-from-absolute calendar-current-date prior-years month day year 31 day-of-year 2 4 23 10 0 100 400 365 datum calendar-mayan-long-count-common-era] 11)]) (fset 'calendar-mayan-long-count-common-era #[(lc) "! @\n@U A\nAp ? @\n@V)" [calendar-mayan-long-count-from-absolute 1 base lc] 3 "\ T if long count represents date in the Common Era."]) (fset 'diary-mayan-date #[nil "AA@S@A@AA@ \nS_\\\nV\n_\\ʥZ ȦU ̦U ͦUT, _ ȥ ̥[ ͥ\\\\\\\\)!!!!!!$," [date prior-years month day year 31 day-of-year 2 4 23 10 0 100 400 365 d calendar-mayan-tzolkin-from-absolute tzolkin calendar-mayan-haab-from-absolute haab calendar-mayan-long-count-from-absolute long-count format "Mayan date: Long count = %s; tzolkin = %s; haab = %s" calendar-mayan-long-count-to-string calendar-mayan-tzolkin-to-string calendar-mayan-haab-to-string] 6 "\ Show the Mayan long count, haab, and tzolkin dates as a diary entry."]) (provide 'cal-mayan)