;ELC ;;; compiled by kwzh@churchy.gnu.ai.mit.edu on Thu Feb 15 20:09:41 1996 ;;; from file /gd/gnu/emacs/19.0/lisp/cal-coptic.el ;;; emacs version 19.30.91.1. ;;; bytecomp version FSF 2.10 ;;; 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.29"))) (error "`cal-coptic.el' was compiled for Emacs 19.29 or later")) (byte-code "ÀÁ!ˆÂÃ!„\fÄà BÀ‡" [require cal-julian boundp coptic-calendar-month-name-array ["Tut" "Babah" "Hatur" "Kiyahk" "Tubah" "Amshir" "Baramhat" "Barmundah" "Bashans" "Baunah" "Abib" "Misra" "al-Nasi"] current-load-list] 2) #@75 Absolute date of start of Coptic calendar = August 29, 284 A.D. (Julian). (defvar coptic-calendar-epoch (calendar-absolute-from-julian (quote (8 29 284))) (#$ . 715)) (byte-code "ÀÁ\nBÁ‡" ["Coptic" coptic-name current-load-list] 2) #@53 True if YEAR is a leap year on the Coptic calendar. (defalias 'coptic-calendar-leap-year-p #[(year) "À TÂ\"ÃU‡" [mod year 4 0] 3 (#$ . 955)]) #@174 Return last day of MONTH, YEAR on the Coptic calendar. The 13th month is not really a month, but the 5 (6 in leap years) day period of Nisi (Kebus) at the end of the year. (defalias 'coptic-calendar-last-day-of-month #[(month year) "ÁWƒ‡Ã\f!ƒŇƇ" [month 13 30 coptic-calendar-leap-year-p year 6 5] 2 (#$ . 1104)]) #@158 Compute absolute date from Coptic date DATE. The absolute date is the number of days elapsed since the (imaginary) Gregorian date Sunday, December 31, 1 BC. (defalias 'calendar-absolute-from-coptic #[(date) "‰@)‰A@)‰AA@)\fS SÅ_\\ Æ¥\\ SÇ_\\\n\\+‡" [date year day month coptic-calendar-epoch 365 4 30] 4 (#$ . 1433)]) #@216 Compute the Coptic equivalent for absolute date DATE. The result is a list of the form (MONTH DAY YEAR). The absolute date is the number of days elapsed since the imaginary Gregorian date Sunday, December 31, 1 BC. (defalias 'calendar-coptic-from-absolute #[(date) " Wƒ ‰‰E‡ ZÃ¥‰‰ÂÇȉTE!Yƒ0 È\\T‚ *\\ ÈÂ\nÇ\nË\n \" E!VƒX È\\\nT\n‚: *T\fÇ\fÈ E!SZ \f  E,‡" [date coptic-calendar-epoch 0 366 approx sum y calendar-absolute-from-coptic 1 year m coptic-calendar-last-day-of-month month day] 7 (#$ . 1766)]) #@146 String of Coptic date of Gregorian DATE. Returns the empty string if DATE is pre-Coptic calendar. Defaults to today's date if DATE is not given. (defalias 'calendar-coptic-date-string #[(&optional date) "À † ‰‰AA@)S ‰‰@) ‰A@) ‰AA@) \fSÇ_\\\fÉVƒh\fÊ_Ë\\Ì¥Z‰ʦÍU…_ΦÍU?†_ϦÍU)ƒhT- Ð_\\ Ê¥\\ Î¥[\\ Ï¥\\*!‰‰AA@)‰@)ÔWƒœÕ‚ÃSH׉A@)!Ø×!×!ÛÜÕ#-+‡" [calendar-coptic-from-absolute date calendar-current-date prior-years month day year 31 day-of-year 2 4 23 10 0 100 400 365 coptic-date y m 1 "" coptic-calendar-month-name-array int-to-string nil dayname monthname mapconcat eval calendar-date-display-form] 7 (#$ . 2315)]) #@59 Show the Coptic calendar equivalent of the selected date. (defalias 'calendar-print-coptic-date #[nil "ÀÁÂ!!‰ĘƒÅÆ\"‚Å !)‡" [calendar-coptic-date-string calendar-cursor-to-date t f "" message "Date is pre-%s calendar" coptic-name] 4 (#$ . 3006) nil]) #@71 Move cursor to Coptic date DATE. Echo Coptic date unless NOECHO is t. (defalias 'calendar-goto-coptic-date #[(date &optional noecho) "ÀÁ !!!ˆ\f†Å ‡" [calendar-goto-date calendar-gregorian-from-absolute calendar-absolute-from-coptic date noecho calendar-print-coptic-date] 4 (#$ . 3270) (coptic-prompt-for-date)]) #@24 Ask for a Coptic date. (defalias 'coptic-prompt-for-date #[nil "À ÂÃÄ \"ÆÇÈ ‰ ‰ AA@)S\n ‰ ‰ @)  ‰ A@)\f ‰ AA@) \f SÎ_\\ ÐVƒ} Ñ_Ò\\Ó¥Z ‰ ѦÔU…t Õ¦ÔU?†t Ö¦ÔU)ƒ}T-\n×_\\\nÑ¥\\\nÕ¥[\\\nÖ¥\\*!‰ AA@)!# ØÚÛÜÃÝ \"Þßà!â\"\"âØ$!ã!äÛ#\"A å  \"&ÂÃç &#è\"\f \f E.C‡" [calendar-current-date today calendar-read format "%s calendar year (>0): " coptic-name (lambda (x) (> x 0)) int-to-string calendar-coptic-from-absolute date prior-years month day year 31 day-of-year 2 4 23 10 0 100 400 365 t completion-ignore-case assoc capitalize completing-read "%s calendar month name: " mapcar list append coptic-calendar-month-name-array nil calendar-make-alist 1 coptic-calendar-last-day-of-month last "%s calendar day (1-%d): " (lambda (x) (and (< 0 x) (<= x last)))] 11 (#$ . 3592)]) #@49 Coptic calendar equivalent of date diary entry. (defalias 'diary-coptic-date #[nil "ÀÁÂ!!‰ĘƒÅÆ\"‚ )‡" [calendar-coptic-date-string calendar-cursor-to-date t f "" format "Date is pre-%s calendar" coptic-name] 4 (#$ . 4420)]) (byte-code "ÀÁ\nBÁ‡" [["Maskaram" "Teqemt" "Khedar" "Takhsas" "Ter" "Yakatit" "Magabit" "Miyazya" "Genbot" "Sane" "Hamle" "Nahas" "Paguem"] ethiopic-calendar-month-name-array current-load-list] 2) #@75 Absolute date of start of Ethiopic calendar = August 29, 7 C.E. (Julian). (defconst ethiopic-calendar-epoch 2430 (#$ . 4857)) (byte-code "ÀÁ\nBÁ‡" ["Ethiopic" ethiopic-name current-load-list] 2) #@160 Compute absolute date from Ethiopic date DATE. The absolute date is the number of days elapsed since the (imaginary) Gregorian date Sunday, December 31, 1 BC. (defalias 'calendar-absolute-from-ethiopic #[(date) " !)‡" [ethiopic-calendar-epoch coptic-calendar-epoch calendar-absolute-from-coptic date] 2 (#$ . 5061)]) #@218 Compute the Ethiopic equivalent for absolute date DATE. The result is a list of the form (MONTH DAY YEAR). The absolute date is the number of days elapsed since the imaginary Gregorian date Sunday, December 31, 1 BC. (defalias 'calendar-ethiopic-from-absolute #[(date) " !)‡" [ethiopic-calendar-epoch coptic-calendar-epoch calendar-coptic-from-absolute date] 2 (#$ . 5388)]) #@150 String of Ethiopic date of Gregorian DATE. Returns the empty string if DATE is pre-Ethiopic calendar. Defaults to today's date if DATE is not given. (defalias 'calendar-ethiopic-date-string #[(&optional date) " \nÆ!+‡" [ethiopic-calendar-epoch ethiopic-name ethiopic-calendar-month-name-array coptic-calendar-month-name-array coptic-name coptic-calendar-epoch calendar-coptic-date-string date] 3 (#$ . 5773)]) #@61 Show the Ethiopic calendar equivalent of the selected date. (defalias 'calendar-print-ethiopic-date #[nil " \nÆÇ!+‡" [ethiopic-calendar-epoch ethiopic-name ethiopic-calendar-month-name-array coptic-calendar-month-name-array coptic-name coptic-calendar-epoch call-interactively calendar-print-coptic-date] 3 (#$ . 6195) nil]) #@75 Move cursor to Ethiopic date DATE. Echo Ethiopic date unless NOECHO is t. (defalias 'calendar-goto-ethiopic-date #[(date &optional noecho) "ÀÁ !!!ˆ\f†Å ‡" [calendar-goto-date calendar-gregorian-from-absolute calendar-absolute-from-ethiopic date noecho calendar-print-ethiopic-date] 4 (#$ . 6530) (byte-code " \nÆ +‡" [ethiopic-calendar-epoch ethiopic-name ethiopic-calendar-month-name-array coptic-calendar-month-name-array coptic-name coptic-calendar-epoch coptic-prompt-for-date] 3)]) #@51 Ethiopic calendar equivalent of date diary entry. (defalias 'diary-ethiopic-date #[nil " \nÆ +‡" [ethiopic-calendar-epoch ethiopic-name ethiopic-calendar-month-name-array coptic-calendar-month-name-array coptic-name coptic-calendar-epoch diary-coptic-date] 3 (#$ . 7030)]) (provide (quote cal-coptic))