Current File : //usr/local/share/emacs/27.2/lisp/calendar/cal-julian.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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@\262\3038\262\304\211\211@\262\211A@\262\3038\262\305S_\\\303V\203d \211\306\307_\\\310\245Z\262\211\311W\203E \312!S\262\211\307\246\311U\205[ \211\313\246\311U?\206[ \211\314\246\311U\262\203d \211T\262\266\204 \313\246\311U\203\200 \314\246\311U\204\200 \n\303V\203\200 \315\202\201 \311\316 S_ S\307\245\317%*\207" [date year month 2 + 31 23 4 10 0 abs 100 400 1 365 -2] 10 (#$ . 429)])
#@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\211 TE!Y\203 \nT T\202 \n*\\ \312\310 \311
\211\306U\203= \f\313\246\310U\203= \314\202A \315
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 4 29 [31 28 31 30 31 30 31 31 30 31 30 31] month day] 7 (#$ . 1041)])
#@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) "\301\302\206 \303 \211\3048\262\305\306U\203 \307\310!\202U\306V\203\217 S\262\311\211\211@\262\211A@\262\3048\262\312S_\\\304V\203| \211\313\314_\\\315\245Z\262\211\306W\203] \316!S\262\211\314\246\306U\205s \211\317\246\306U?\206s \211\320\246\306U\262\203| \211T\262\266\204\321_\314\245\317\245[\320\245%\202U\316T!\262\322\211\211@\262\211A@\262\3048\262\312S_\\\304V\203\354 \211\313\314_\\\315\245Z\262\211\306W\203\315 \316!S\262\211\314\246\306U\205\343 \211\317\246\306U?\206\343 \211\320\246\306U\262\203\354 \211T\262\266\204\321_\314\245\317\245[\320\245\323\211\211@\262\211A@\262\3048\262\312S_\\\304V\203Q\211\313\314_\\\315\245Z\262\211\306W\2032\316!S\262\211\314\246\306U\205H\211\317\246\306U?\206H\211\320\246\306U\262\203Q\211T\262\266\204&\266\203!\305\324#\207" [date calendar-date-string calendar-julian-from-absolute calendar-current-date 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) t] 20 (#$ . 1622)])
#@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 (#$ . 2879) nil])
#@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 (#$ . 3128) (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 (= 0 (% 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)))])
#@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 \n DC)\207" [month day gdate string calendar-nongregorian-visible-p calendar-julian-to-absolute calendar-julian-from-absolute #[(m) "\301W\207" [m 10] 2]] 7 (#$ . 4225)])
#@54 Absolute date of astronomical (Julian) day number D.
(defalias 'calendar-astro-to-absolute #[(d) "\301Z\207" [d 1721424.5] 2 (#$ . 4732)])
#@54 Astronomical (Julian) day number of absolute date D.
(defalias 'calendar-astro-from-absolute #[(d) "\301\\\207" [d 1721424.5] 2 (#$ . 4878)])
#@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) "\301\302\303\206 \304 \211\3058\262\306\307U\203 \310\311!\202V\307V\203\220 S\262\312\211\211@\262\211A@\262\3058\262\313S_\\\305V\203} \211\314\315_\\\316\245Z\262\211\307W\203^ \317!S\262\211\315\246\307U\205t \211\320\246\307U?\206t \211\321\246\307U\262\203} \211T\262\266\204\322_\315\245\320\245[\321\245%\202V\317T!\262\323\211\211@\262\211A@\262\3058\262\313S_\\\305V\203\355 \211\314\315_\\\316\245Z\262\211\307W\203\316 \317!S\262\211\315\246\307U\205\344 \211\320\246\307U?\206\344 \211\321\246\307U\262\203\355 \211T\262\266\204\322_\315\245\320\245[\321\245\324\211\211@\262\211A@\262\3058\262\313S_\\\305V\203R\211\314\315_\\\316\245Z\262\211\307W\2033\317!S\262\211\315\246\307U\205I\211\320\246\307U?\206I\211\321\246\307U\262\203R\211T\262\266\204&\266\203!!!\207" [date number-to-string ceiling calendar-astro-from-absolute calendar-current-date 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1)] 21 (#$ . 5028)])
#@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 (#$ . 6265) nil])
#@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 (#$ . 6559) (list (calendar-read "Astronomical (Julian) day number (>1721425): " #'(lambda (x) (> x 1721425))))])
#@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 (#$ . 7046)])
#@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 (#$ . 7234)])
(provide 'cal-julian)
Mini Shell