;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:28 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/calendar/cal-julian.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)
#@135 The number of days elapsed between the Gregorian date 12/31/1 BC and DATE.
The Gregorian date Sunday, December 31, 1 BC is imaginary.
(defalias 'calendar-julian-to-absolute #[(date) "\211@)\3068)\307\211\211@)\211\211A@*\3068)\f\nS\310_\\\n\306V\203g
\311\n\312_\\\313\245Z	\211\314W\203J\315	!S\316	\312\246!\205`\316	\317\246!?\206`\316	\320\246!)\203g
T
-\316	\317\246!\203\203\316	\320\246!\204\203\n\306V\203\203\321\202\204\314	S\322_	S\312\245\323%*\207" [date year month x day day-of-year 2 + 31 23 4 10 0 abs zerop 100 400 1 365 -2] 7 (#$ . 583)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias calendar-absolute-from-julian calendar-julian-to-absolute nil make-obsolete "23.1"] 4)
#@185 Compute the Julian (month day year) corresponding to the absolute DATE.
The absolute date is the number of days elapsed since the (imaginary)
Gregorian date Sunday, December 31, 1 BC.
(defalias 'calendar-julian-from-absolute #[(date) "\306\\\307\245\211\211\310\311\312\211TE!Y\203 \nTT\202\n*\\\312\310\311
\211\306U\203=\313\f\314\246!\203=\315\202A\316
SH\fE!V\203Q\nT
T\202(\n*T\311\312\fE!SZ\fE,\207" [date approx sum y year m 2 366 0 calendar-julian-to-absolute 1 zerop 4 29 [31 28 31 30 31 30 31 31 30 31 30 31] month day] 7 (#$ . 1333)])
#@142 String of Julian date of Gregorian DATE.
Defaults to today's date if DATE is not given.
Driven by the variable `calendar-date-display-form'.
(defalias 'calendar-julian-date-string #[(&optional date) "\306\307\206\310 \211\3118)\312\313\n!\203\314\315!\202q
\n\316V\203\232\nS\317\211\211@)\211\211A@*\3118)
S\320_\\\311V\203\206\321\322_\\\323\245Z\n\211\316W\203g\324\n!S\313\n\322\246!\205}\313\n\325\246!?\206}\313\n\326\246!)\203\206T-	\327_	\322\245	\325\245[	\326\245%\202q
\324\nT!\330\211\211@)\211\211A@*\3118)
S\320_\\\311V\203\376\321\322_\\\323\245Z\n\211\316W\203\337\324\n!S\313\n\322\246!\205\365\313\n\325\246!?\206\365\313\n\326\246!)\203\376T-	\327_	\322\245	\325\245[	\326\245\331\211\331@)\211\211A@*\3118)
S\320_\\\311V\203l
\321\322_\\\323\245Z\n\211\316W\203M
\324\n!S\313\n\322\246!\205c
\313\n\325\246!?\206c
\313\n\326\246!)\203l
T-&+!\312\332#\207" [date offset-years year month x day calendar-date-string calendar-julian-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 day-of-year] 13 (#$ . 1920)])
#@67 Show the Julian calendar equivalent of the date under the cursor.
(defalias 'calendar-julian-print-date #[nil "\300\301\302\303\304!!\"\207" [message "Julian date: %s" calendar-julian-date-string calendar-cursor-to-date t] 5 (#$ . 3140) nil])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias calendar-print-julian-date calendar-julian-print-date nil make-obsolete "23.1"] 4)
#@72 Move cursor to Julian DATE; echo Julian date unless NOECHO is non-nil.
(defalias 'calendar-julian-goto-date #[(date &optional noecho) "\302\303\304!!!\210	\206\305 \207" [date noecho calendar-goto-date calendar-gregorian-from-absolute calendar-julian-to-absolute calendar-julian-print-date] 4 (#$ . 3538) (let* ((today (calendar-current-date)) (year (calendar-read "Julian calendar year (>0): " #'(lambda (x) (> x 0)) (number-to-string (calendar-extract-year (calendar-julian-from-absolute (calendar-absolute-from-gregorian today)))))) (month-array calendar-month-name-array) (completion-ignore-case t) (month (cdr (assoc-string (completing-read "Julian calendar month name: " (mapcar 'list (append month-array nil)) nil t) (calendar-make-alist month-array 1) t))) (last (if (and (zerop (% year 4)) (= month 2)) 29 (aref [31 28 31 30 31 30 31 31 30 31 30 31] (1- month)))) (day (calendar-read (format "Julian calendar day (%d-%d): " (if (and (= year 1) (= month 1)) 3 1) last) #'(lambda (x) (and (< (if (and (= year 1) (= month 1)) 2 0) x) (<= x last)))))) (list (list month day year)))])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias calendar-goto-julian-date calendar-julian-goto-date nil make-obsolete "23.1"] 4)
#@252 Holiday on MONTH, DAY (Julian) called STRING.
If MONTH, DAY (Julian) is visible, the value returned is corresponding
Gregorian date in the form of the list (((month day year) STRING)).  Returns
nil if it is not visible in the current calendar window.
(defalias 'holiday-julian #[(month day string) "\304	\305\306\307%\211\205\nDC)\207" [month day gdate string calendar-nongregorian-visible-p calendar-julian-to-absolute calendar-julian-from-absolute #[(m) "\301W\207" [m 10] 2]] 7 (#$ . 4784)])
#@54 Absolute date of astronomical (Julian) day number D.
(defalias 'calendar-astro-to-absolute #[(d) "\301Z\207" [d 1721424.5] 2 (#$ . 5291)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias calendar-absolute-from-astro calendar-astro-to-absolute nil make-obsolete "23.1"] 4)
#@54 Astronomical (Julian) day number of absolute date D.
(defalias 'calendar-astro-from-absolute #[(d) "\301\\\207" [d 1721424.5] 2 (#$ . 5588)])
#@125 String of astronomical (Julian) day number after noon UTC of Gregorian DATE.
Defaults to today's date if DATE is not given.
(defalias 'calendar-astro-date-string #[(&optional date) "\306\307\310\206	\311 \211\3128)\313\314\n!\203\315\316!\202r
\n\317V\203\233\nS\320\211\211@)\211\211A@*\3128)
S\321_\\\312V\203\207\322\323_\\\324\245Z\n\211\317W\203h\325\n!S\314\n\323\246!\205~\314\n\326\246!?\206~\314\n\327\246!)\203\207T-	\330_	\323\245	\326\245[	\327\245%\202r
\325\nT!\331\211\211@)\211\211A@*\3128)
S\321_\\\312V\203\377\322\323_\\\324\245Z\n\211\317W\203\340\325\n!S\314\n\323\246!\205\366\314\n\326\246!?\206\366\314\n\327\246!)\203\377T-	\330_	\323\245	\326\245[	\327\245\332\211\332@)\211\211A@*\3128)
S\321_\\\312V\203m
\322\323_\\\324\245Z\n\211\317W\203N
\325\n!S\314\n\323\246!\205d
\314\n\326\246!?\206d
\314\n\327\246!)\203m
T-&+!!!\207" [date offset-years year month x day number-to-string ceiling calendar-astro-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) day-of-year] 14 (#$ . 5738)])
#@70 Show astronomical (Julian) day number after noon UTC on cursor date.
(defalias 'calendar-astro-print-day-number #[nil "\300\301\302\303\304!!\"\207" [message "Astronomical (Julian) day number (at noon UTC): %s.0" calendar-astro-date-string calendar-cursor-to-date t] 5 (#$ . 6938) nil])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias calendar-print-astro-day-number calendar-astro-print-day-number nil make-obsolete "23.1"] 4)
#@113 Move cursor to astronomical (Julian) DAYNUMBER.
Echo astronomical (Julian) day number unless NOECHO is non-nil.
(defalias 'calendar-astro-goto-day-number #[(daynumber &optional noecho) "\302\303\304\305!!!!\210	\206\306 \207" [daynumber noecho calendar-goto-date calendar-gregorian-from-absolute floor calendar-astro-to-absolute calendar-astro-print-day-number] 5 (#$ . 7391) (list (calendar-read "Astronomical (Julian) day number (>1721425): " #'(lambda (x) (> x 1721425))))])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias calendar-goto-astro-day-number calendar-astro-goto-day-number nil make-obsolete "23.1"] 4)
#@49 Julian calendar equivalent of date diary entry.
(defalias 'diary-julian-date #[nil "\301\302\303!\"\207" [date format "Julian date: %s" calendar-julian-date-string] 4 (#$ . 8035)])
#@47 Astronomical (Julian) day number diary entry.
(defalias 'diary-astro-day-number #[nil "\301\302\303!\"\207" [date format "Astronomical (Julian) day number at noon UTC: %s.0" calendar-astro-date-string] 4 (#$ . 8223)])
(provide 'cal-julian)