;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:27 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/calendar/cal-coptic.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(require 'calendar)
#@50 Array of the month names in the Coptic calendar.
(defvar calendar-coptic-month-name-array ["Tut" "Babah" "Hatur" "Kiyahk" "Tubah" "Amshir" "Baramhat" "Barmundah" "Bashans" "Baunah" "Abib" "Misra" "al-Nasi"] (#$ . 582))
(autoload 'calendar-julian-to-absolute "cal-julian")
#@73 Absolute date of start of Coptic calendar = August 29, 284 AD (Julian).
(defvar calendar-coptic-epoch 103605 (#$ . 860))
#@31 Used in some message strings.
(defvar calendar-coptic-name "Coptic" (#$ . 987))
#@53 True if YEAR is a leap year on the Coptic calendar.
(defalias 'calendar-coptic-leap-year-p #[(year) "\301\302T\303\"!\207" [year zerop mod 4] 4 (#$ . 1073)])
#@173 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 'calendar-coptic-last-day-of-month #[(month year) "\302W\203\303\207\304	!\203\305\207\306\207" [month year 13 30 calendar-coptic-leap-year-p 6 5] 2 (#$ . 1239)])
#@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-coptic-to-absolute #[(date) "\211@)\211\211A@*\3068)\307
S\nS\310_\n\311\245\fS\312_%+\207" [date x year day month calendar-coptic-epoch 2 + 365 4 30] 7 (#$ . 1596)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias calendar-absolute-from-coptic calendar-coptic-to-absolute nil make-obsolete "23.1"] 4)
#@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\203\306\211\211E\207	Z\307\245\211\211\306\310\311\211\fTE!Y\203+T\fT\202*\\\311\306\310\312
\"
E!V\203OTT\2024*T\f\310\f\311
E!SZ
\f

E,\207" [date calendar-coptic-epoch approx sum y year 0 366 calendar-coptic-to-absolute 1 calendar-coptic-last-day-of-month m month day] 7 (#$ . 2112)])
#@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) "\306\206\307 \211\3108)\311\312\n!\203\313\314!\202p
\n\315V\203\231\nS\316\211\211@)\211\211A@*\3108)
S\317_\\\310V\203\205\320\321_\\\322\245Z\n\211\315W\203f\323\n!S\312\n\321\246!\205|\312\n\324\246!?\206|\312\n\325\246!)\203\205T-	\326_	\321\245	\324\245[	\325\245%\202p
\323\nT!\327\211\211@)\211\211A@*\3108)
S\317_\\\310V\203\375\320\321_\\\322\245Z\n\211\315W\203\336\323\n!S\312\n\321\246!\205\364\312\n\324\246!?\206\364\312\n\325\246!)\203\375T-	\326_	\321\245	\324\245[	\325\245\330\211\330@)\211\211A@*\3108)
S\317_\\\310V\203k
\320\321_\\\322\245Z\n\211\315W\203L
\323\n!S\312\n\321\246!\205b
\312\n\324\246!?\206b
\312\n\325\246!)\203k
T-&+!\211\3108) \211@)! \331W\203\217
\332\202\267
\"!SH\333\211\211A@*!\311\333!!\333 !#$\334\335%\332#-+\207" [date offset-years year month x day calendar-coptic-from-absolute calendar-current-date 2 nil zerop error "There was no year zero" 0 + 31 23 4 10 abs 100 400 365 - (12 31 -1) 1 "" number-to-string mapconcat eval day-of-year coptic-date y m calendar-coptic-month-name-array dayname monthname calendar-date-display-form] 12 (#$ . 2715)])
#@59 Show the Coptic calendar equivalent of the selected date.
(defalias 'calendar-coptic-print-date #[nil "\302\303\304!!\211\305\230\203\306\307	\"\202\306\310	#)\207" [f calendar-coptic-name calendar-coptic-date-string calendar-cursor-to-date t "" message "Date is pre-%s calendar" "%s date: %s"] 5 (#$ . 4159) nil])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias calendar-print-coptic-date calendar-coptic-print-date nil make-obsolete "23.1"] 4)
#@91 Interactively read the arguments for a Coptic date command.
Reads a year, month, and day.
(defalias 'calendar-coptic-read-date #[nil "\306 \307\310\311	\"\312\313\314\211\315\n8)\316\317\f!\203\"\320\321!\202~
\f\322V\203\241\fS\323\n\211\211@)\n\211\211*A@*+\n\315\n8)+
S\324_\\,
\315V\203\215,\325
\326_\\\327\245Z,\f\211\322W\203n\330\f!S\317\f\326\246!\205\204\317\f\331\246!?\206\204\317\f\332\246!)\203\215,T,,-\333_\326\245\331\245[\332\245%\202~
\330\fT!\334\n\211\211@)\n\211\211*A@*+\n\315\n8)+
S\324_\\,
\315V\203
,\325
\326_\\\327\245Z,\f\211\322W\203\351\330\f!S\317\f\326\246!\205\377\317\f\331\246!?\206\377\317\f\332\246!)\203
,T,,-\333_\326\245\331\245[\332\245\335\211\335@)\n\211\211*A@*+\n\315\n8)+
S\324_\\,
\315V\203y
,\325
\326_\\\327\245Z,\f\211\322W\203Z
\330\f!S\317\f\326\246!\205p
\317\f\331\246!?\206p
\317\f\332\246!)\203y
,T,,-&+!\315\n8)!#\336-\337\340\310\341	\"\342\343\344.\316\"\"\316\336$\345.\346\"\336#A\347
\f\"/\307\310\350	/#\351\"+
+\fE.C\207" [today calendar-coptic-name date offset-years year month calendar-current-date calendar-read format "%s calendar year (>0): " #[(x) "\301V\207" [x 0] 2] number-to-string calendar-coptic-from-absolute 2 nil zerop error "There was no year zero" 0 + 31 23 4 10 abs 100 400 365 - (12 31 -1) t assoc-string completing-read "%s calendar month name: " mapcar list append calendar-make-alist 1 calendar-coptic-last-day-of-month "%s calendar day (1-%d): " #[(x) "\302W\205		X\207" [x last 0] 2] x day day-of-year completion-ignore-case calendar-coptic-month-name-array last] 16 (#$ . 4635)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias coptic-prompt-for-date calendar-coptic-read-date nil make-obsolete "23.1"] 4)
#@71 Move cursor to Coptic date DATE.
Echo Coptic date unless NOECHO is t.
(defalias 'calendar-coptic-goto-date #[(date &optional noecho) "\302\303\304!!!\210	\206\305 \207" [date noecho calendar-goto-date calendar-gregorian-from-absolute calendar-coptic-to-absolute calendar-coptic-print-date] 4 (#$ . 6450) (calendar-coptic-read-date)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias calendar-goto-coptic-date calendar-coptic-goto-date nil make-obsolete "23.1"] 4)
#@49 Coptic calendar equivalent of date diary entry.
(defalias 'diary-coptic-date #[nil "\303!\211\304\230\203\305\306\n\"\202\305\307\n	#)\207" [date f calendar-coptic-name calendar-coptic-date-string "" format "Date is pre-%s calendar" "%s date: %s"] 5 (#$ . 6940)])
#@52 Array of the month names in the Ethiopic calendar.
(defconst calendar-ethiopic-month-name-array ["Maskaram" "Teqemt" "Khedar" "Takhsas" "Ter" "Yakatit" "Magabit" "Miyazya" "Genbot" "Sane" "Hamle" "Nahas" "Paguem"] (#$ . 7216))
#@75 Absolute date of start of Ethiopic calendar = August 29, 8 C.E. (Julian).
(defconst calendar-ethiopic-epoch 2796 (#$ . 7449))
#@31 Used in some message strings.
(defconst calendar-ethiopic-name "Ethiopic" (#$ . 7581))
#@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-ethiopic-to-absolute #[(date) "\303\n!)\207" [calendar-ethiopic-epoch calendar-coptic-epoch date calendar-coptic-to-absolute] 2 (#$ . 7675)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias calendar-absolute-from-ethiopic calendar-ethiopic-to-absolute nil make-obsolete "23.1"] 4)
#@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) "\303\n!)\207" [calendar-ethiopic-epoch calendar-coptic-epoch date calendar-coptic-from-absolute] 2 (#$ . 8162)])
#@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\306!+\207" [calendar-ethiopic-epoch calendar-ethiopic-name calendar-ethiopic-month-name-array calendar-coptic-month-name-array calendar-coptic-name calendar-coptic-epoch calendar-coptic-date-string date] 3 (#$ . 8554)])
#@61 Show the Ethiopic calendar equivalent of the selected date.
(defalias 'calendar-ethiopic-print-date #[nil "	\n\306\307!+\207" [calendar-ethiopic-epoch calendar-ethiopic-name calendar-ethiopic-month-name-array calendar-coptic-month-name-array calendar-coptic-name calendar-coptic-epoch call-interactively calendar-coptic-print-date] 3 (#$ . 9000) nil])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias calendar-print-ethiopic-date calendar-ethiopic-print-date nil make-obsolete "23.1"] 4)
#@75 Move cursor to Ethiopic date DATE.
Echo Ethiopic date unless NOECHO is t.
(defalias 'calendar-ethiopic-goto-date #[(date &optional noecho) "\302\303\304!!!\210	\206\305 \207" [date noecho calendar-goto-date calendar-gregorian-from-absolute calendar-ethiopic-to-absolute calendar-ethiopic-print-date] 4 (#$ . 9515) (byte-code "	\n\306 +\207" [calendar-ethiopic-epoch calendar-ethiopic-name calendar-ethiopic-month-name-array calendar-coptic-month-name-array calendar-coptic-name calendar-coptic-epoch calendar-coptic-read-date] 3)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias calendar-goto-ethiopic-date calendar-ethiopic-goto-date nil make-obsolete "23.1"] 4)
#@51 Ethiopic calendar equivalent of date diary entry.
(defalias 'diary-ethiopic-date #[nil "	\n\306 +\207" [calendar-ethiopic-epoch calendar-ethiopic-name calendar-ethiopic-month-name-array calendar-coptic-month-name-array calendar-coptic-name calendar-coptic-epoch diary-coptic-date] 3 (#$ . 10211)])
(provide 'cal-coptic)