;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:29 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/calendar/cal-persia.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)
#@46 Names of the months in the Persian calendar.
(defconst calendar-persian-month-name-array ["Farvardin" "Ordibehest" "Xordad" "Tir" "Mordad" "Sahrivar" "Mehr" "Aban" "Azar" "Dey" "Bahman" "Esfand"] (#$ . 582))
(autoload 'calendar-julian-to-absolute "cal-julian")
#@73 Absolute date of start of Persian calendar = March 19, 622 AD (Julian).
(defconst calendar-persian-epoch 226896 (#$ . 849))
#@54 True if YEAR is a leap year on the Persian calendar.
(defalias 'calendar-persian-leap-year-p #[(year) "\301\211\211\302X\203\303\\\202\304\\\305\"\306\"\307_\305\"\307W\207" [year mod 0 2346 2347 2820 768 683] 5 (#$ . 979)])
#@57 Return last day of MONTH, YEAR on the Persian calendar.
(defalias 'calendar-persian-last-day-of-month #[(month year) "\302W\203\303\207\304W\204\305	!\203\306\207\307\207" [month year 7 31 12 calendar-persian-leap-year-p 30 29] 2 (#$ . 1217)])
#@159 Compute absolute date from Persian date DATE.
The absolute date is the number of days elapsed since the (imaginary)
Gregorian date Sunday, December 31, 1 BC.
(defalias 'calendar-persian-to-absolute #[(date) "\211@)\211\211A@*\3068)\n\307W\2030\310\f\311\n\312\"TE!\313\n\312\"\314_\\\202~\315
S\nS\316_\313\n\317\\\312\"\320_\313\311\n\317\\\312\"\321\"\322_\313\311\211\n\317\\\312\"\321\"\320_\312\"\323\324\307\211\fW\203x\325\n\"\\T\211\202`*&+\207" [date x year day month calendar-persian-epoch 2 0 calendar-persian-to-absolute mod 2820 floor 1029983 + 365 2345 683 768 186 -568 1 calendar-persian-last-day-of-month sum m] 12 (#$ . 1476)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias calendar-absolute-from-persian calendar-persian-to-absolute nil make-obsolete "23.1"] 4)
#@50 Persian year corresponding to the absolute DATE.
(defalias 'calendar-persian-year-from-absolute #[(date) "\306\307\211\310E!Z\311	\312\"\313	\312\"\311\314\"\313\314\"\311
\315\"\313
\315\"\316\307\311\316\317_\320_\317#\312\"#*\316\n\320_\f\321_\322U\203RS\202T\310$\211\307W\203dS\202f.\207" [date d0 n2820 d1 n768 d2 calendar-persian-to-absolute 1 -2345 floor 1029983 mod 280506 366 + 2137 2820 768 1029617 b a n1 year] 9 (#$ . 2316)])
#@217 Compute the Persian 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-persian-from-absolute #[(date) "\306!\307\310\311\312	\"	E!V\203\nTT\202\n*T\311\f\307	E!SZ\f
	E+\207" [date year sum m month day calendar-persian-year-from-absolute 1 0 calendar-persian-to-absolute calendar-persian-last-day-of-month] 6 (#$ . 2798)])
#@58 String of Persian date of Gregorian DATE, default today.
(defalias 'calendar-persian-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@) ! SH\"\331\211\211A@*!\331!\331 !\311#\332\333$\334#.\207" [date offset-years year month x day calendar-persian-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) number-to-string mapconcat eval "" day-of-year persian-date y m calendar-persian-month-name-array monthname dayname calendar-date-display-form] 12 (#$ . 3308)])
#@60 Show the Persian calendar equivalent of the selected date.
(defalias 'calendar-persian-print-date #[nil "\300\301\302\303\304!!\"\207" [message "Persian date: %s" calendar-persian-date-string calendar-cursor-to-date t] 5 (#$ . 4637) nil])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias calendar-print-persian-date calendar-persian-print-date nil make-obsolete "23.1"] 4)
#@92 Interactively read the arguments for a Persian date command.
Reads a year, month, and day.
(defalias 'calendar-persian-read-date #[nil "\306\307\310\311\312\313 \211\3148)\315\316\n!\203\317\320!\202p
\n\321V\203\231\nS\322\211\211@)\211\211A@*\3148)
S\323_\\*\314V\203\205*\324\325_\\\326\245Z*\n\211\321W\203f\327\n!S\316\n\325\246!\205|\316\n\330\246!?\206|\316\n\331\246!)\203\205*T**-	\332_	\325\245	\330\245[	\331\245%\202p
\327\nT!\333\211\211@)\211\211A@*\3148)
S\323_\\*\314V\203\375*\324\325_\\\326\245Z*\n\211\321W\203\336\327\n!S\316\n\325\246!\205\364\316\n\330\246!?\206\364\316\n\331\246!)\203\375*T**-	\332_	\325\245	\330\245[	\331\245\334\211\334@)\211\211A@*\3148)
S\323_\\*\314V\203k
*\324\325_\\\326\245Z*\n\211\321W\203L
\327\n!S\316\n\325\246!\205b
\316\n\330\246!?\206b
\316\n\331\246!)\203k
*T**-&+!\3148)!#\335+\336\337\340\341\342\343,\315\"\"\315\335$\344,\345\"\"A\346\n\"-\306\347\350-\"\351\"
\nE-C\207" [date offset-years year month x day calendar-read "Persian calendar year (not 0): " #[(x) "\301!?\207" [x zerop] 2] number-to-string calendar-persian-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) t assoc completing-read "Persian calendar month name: " mapcar list append calendar-make-alist 1 calendar-persian-last-day-of-month format "Persian calendar day (1-%d): " #[(x) "\302W\205		X\207" [x last 0] 2] day-of-year completion-ignore-case calendar-persian-month-name-array last] 16 (#$ . 5033)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias persian-prompt-for-date calendar-persian-read-date nil make-obsolete "23.1"] 4)
#@79 Move cursor to Persian date DATE.
Echo Persian date unless NOECHO is non-nil.
(defalias 'calendar-persian-goto-date #[(date &optional noecho) "\302\303\304!!!\210	\206\305 \207" [date noecho calendar-goto-date calendar-gregorian-from-absolute calendar-persian-to-absolute calendar-persian-print-date] 4 (#$ . 6799) (calendar-persian-read-date)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias calendar-goto-persian-date calendar-persian-goto-date nil make-obsolete "23.1"] 4)
#@50 Persian calendar equivalent of date diary entry.
(defalias 'diary-persian-date #[nil "\301\302\303!\"\207" [date format "Persian date: %s" calendar-persian-date-string] 4 (#$ . 7303)])
(provide 'cal-persia)