Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.20
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
27.1 /
lisp /
calendar /
[ HOME SHELL ]
Name
Size
Permission
Action
appt.elc
18.08
KB
-rw-r--r--
cal-bahai.elc
12.95
KB
-rw-r--r--
cal-china.elc
31.28
KB
-rw-r--r--
cal-coptic.elc
9.21
KB
-rw-r--r--
cal-dst.elc
17.74
KB
-rw-r--r--
cal-french.elc
9.24
KB
-rw-r--r--
cal-hebrew.elc
48.6
KB
-rw-r--r--
cal-html.elc
16.8
KB
-rw-r--r--
cal-islam.elc
13.12
KB
-rw-r--r--
cal-iso.elc
6.82
KB
-rw-r--r--
cal-julian.elc
7.3
KB
-rw-r--r--
cal-loaddefs.el
30.7
KB
-rw-r--r--
cal-mayan.elc
18.6
KB
-rw-r--r--
cal-menu.elc
9.79
KB
-rw-r--r--
cal-move.elc
14.58
KB
-rw-r--r--
cal-persia.elc
6.65
KB
-rw-r--r--
cal-tex.elc
75.79
KB
-rw-r--r--
cal-x.elc
4.45
KB
-rw-r--r--
calendar.elc
98.48
KB
-rw-r--r--
diary-lib.elc
103.09
KB
-rw-r--r--
diary-loaddefs.el
10.61
KB
-rw-r--r--
hol-loaddefs.el
5.11
KB
-rw-r--r--
holidays.elc
32.73
KB
-rw-r--r--
icalendar.elc
58.07
KB
-rw-r--r--
iso8601.elc
8.69
KB
-rw-r--r--
lunar.elc
12.5
KB
-rw-r--r--
parse-time.elc
5.46
KB
-rw-r--r--
solar.elc
38.31
KB
-rw-r--r--
time-date.elc
14.26
KB
-rw-r--r--
timeclock.elc
46.18
KB
-rw-r--r--
todo-mode.elc
195.44
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : cal-julian.elc
;ELC ;;; Compiled ;;; in Emacs version 27.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@\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)
Close
