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.47
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-bahai.elc
;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; with all optimizations. ;;; This file contains utf-8 non-ASCII characters, ;;; and so cannot be loaded into Emacs 22 or earlier. (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (string-lessp emacs-version "23") (error "`%s' was compiled for Emacs 23 or later" #$)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'calendar) #@54 Array of the month names in the Bahá’í calendar. (defconst calendar-bahai-month-name-array ["Bahá" "Jalál" "Jamál" "‘Aẓamat" "Núr" "Raḥmat" "Kalimát" "Kamál" "Asmá’" "‘Izzat" "Mashíyyat" "‘Ilm" "Qudrat" "Qawl" "Masá’il" "Sharaf" "Sulṭán" "Mulk" "‘Alá’"] (#$ . 428)) #@68 Absolute date of start of Bahá’í calendar = March 21, 1844 AD. (defconst calendar-bahai-epoch (byte-code "\300\211\3018\262\302\303U\203 \304\305!\202T\303V\203\212 S\262\306\211\211@\262\211A@\262\3018\262\307S_\\\301V\203u \211\310\311_\\\312\245Z\262\211\303W\203V \313!S\262\211\311\246\303U\205l \211\314\246\303U?\206l \211\315\246\303U\262\203u \211T\262\266\203\262\316_\311\245\314\245[\315\245%\202T\313T!\262\317\211\211@\262\211A@\262\3018\262\307S_\\\301V\203\347 \211\310\311_\\\312\245Z\262\211\303W\203\310 \313!S\262\211\311\246\303U\205\336 \211\314\246\303U?\206\336 \211\315\246\303U\262\203\347 \211T\262\266\203\262\316_\311\245\314\245[\315\245\320\211\211@\262\211A@\262\3018\262\307S_\\\301V\203N\211\310\311_\\\312\245Z\262\211\303W\203/\313!S\262\211\311\246\303U\205E\211\314\246\303U?\206E\211\315\246\303U\262\203N\211T\262\266\203\262&\207" [(3 21 1844) 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1)] 18) (#$ . 735)) #@68 True if Bahá’í YEAR is a leap year in the Bahá’í calendar. (defalias 'calendar-bahai-leap-year-p #[(year) "\301\\\211\302W\203 \303!S\262\211\304\246\302U\205% \211\305\246\302U?\206% \211\306\246\302U\207" [year 1844 0 abs 4 100 400] 3 (#$ . 1814)]) #@94 Number of leap years between 1 and 1844 AD, inclusive. Used by `calendar-bahai-to-absolute'. (defconst calendar-bahai-leap-base (byte-code "\300\301\302\303\245[\302\304\245#\207" [+ 461 1844 100 400] 5) (#$ . 2083)) #@162 Compute absolute date from Bahá’í date DATE. The absolute date is the number of days elapsed since the (imaginary) Gregorian date Sunday, December 31, 1 BC. (defalias 'calendar-bahai-to-absolute #[(date) "\211@\262\211A@\262\3068\262\211S\307\\ \310\f\311\245\f\312\245[\f\313\245# Z \310S\314 S_\315\316 \211 W\203N \317\\T\211\202: * \317U\203e \320 !\203a \321\202f \311\202f \316\n&-\207" [date month day year prior-years calendar-bahai-leap-base 2 1844 + 4 100 400 365 1 0 19 calendar-bahai-leap-year-p 5 leap-days calendar-bahai-epoch sum m] 8 (#$ . 2307)]) #@70 Bahá’í date (month day year) corresponding to the absolute DATE. (defalias 'calendar-bahai-from-absolute #[(date) " W\203 \306\211\211E\207\307!\211\211@\262\n\3108\262\311Z \312V\2044 \312U\2038 \n\211A@\262\313Y\2038 \314\2029 \306\\ \314\306 \315\316\fE!V\203W TT\202@ *T \315\314\fE!SZ \fE-\207" [date calendar-bahai-epoch greg gmonth year sum 0 calendar-gregorian-from-absolute 2 1844 3 21 1 calendar-bahai-to-absolute 19 m month day] 6 (#$ . 2910)]) #@93 String of Bahá’í date of Gregorian DATE. Defaults to today's date if DATE is not given. (defalias 'calendar-bahai-date-string #[(&optional date) "\306\206 \307 \211\3108\262\311\312U\203 \313\314!\202Z\312V\203\220 S\262\315\211\211@\262\211A@\262\3108\262\316S_\\\310V\203{ \211\317\320_\\\321\245Z\262\211\312W\203\\ \322!S\262\211\320\246\312U\205r \211\323\246\312U?\206r \211\324\246\312U\262\203{ \211T\262\266\203\262\325_\320\245\323\245[\324\245%\202Z\322T!\262\326\211\211@\262\211A@\262\3108\262\316S_\\\310V\203\355 \211\317\320_\\\321\245Z\262\211\312W\203\316 \322!S\262\211\320\246\312U\205\344 \211\323\246\312U?\206\344 \211\324\246\312U\262\203\355 \211T\262\266\203\262\325_\320\245\323\245[\324\245\327\211\211@\262\211A@\262\3108\262\316S_\\\310V\203T\211\317\320_\\\321\245Z\262\211\312W\2035\322!S\262\211\320\246\312U\205K\211\323\246\312U?\206K\211\324\246\312U\262\203T\211T\262\266\203\262&\266\203!\211\3108\262\211\330W\203o\331\202\302 \211@\262 \211A@\262 \332U\203\214\f\312X\203\214\333\202\220 SH !\334\f\312X\203\251\f\335\n!\203\244\336\202\245\320\\\202\252\f! \"\334\n! #\334 ! $\311 %\337\340&\331#.*\207" [date bahai-date y m d calendar-bahai-month-name-array calendar-bahai-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) 1 "" 19 "Ayyám-i-Há" number-to-string calendar-bahai-leap-year-p 5 mapconcat eval monthname day year month dayname calendar-date-display-form] 20 (#$ . 3407)]) #@63 Show the Bahá’í calendar equivalent of the selected date. (defalias 'calendar-bahai-print-date #[nil "\301\302\303!!\211\304\230\203 \305\306!\202 \305\307\")\207" [s calendar-bahai-date-string calendar-cursor-to-date t "" message "Date is pre-Bahá’í" "Bahá’í date: %s"] 4 (#$ . 5019) nil]) #@94 Interactively read the arguments for a Bahá’í date command. Reads a year, month and day. (defalias 'calendar-bahai-read-date #[nil "\306 \307\310\311\312\313\211\3148\262\315\316U\203 \317\320!\202\\\316V\203\222 S\262\321\211\211@\262\211A@\262\3148\262\322S_\\\314V\203} \211\323\324_\\\325\245Z\262\211\316W\203^ \326!S\262\211\324\246\316U\205t \211\327\246\316U?\206t \211\330\246\316U\262\203} \211T\262\266\203\262\331_\324\245\327\245[\330\245%\202\\\326T!\262\332\211\211@\262\211A@\262\3148\262\322S_\\\314V\203\357 \211\323\324_\\\325\245Z\262\211\316W\203\320 \326!S\262\211\324\246\316U\205\346 \211\327\246\316U?\206\346 \211\330\246\316U\262\203\357 \211T\262\266\203\262\331_\324\245\327\245[\330\245\333\211\211@\262\211A@\262\3148\262\322S_\\\314V\203V\211\323\324_\\\325\245Z\262\211\316W\2037\326!S\262\211\324\246\316U\205M\211\327\246\316U?\206M\211\330\246\316U\262\203V\211T\262\266\203\262&\266\203!\3148\262!#\334\335\336\337\340\341\342 \315\"\"\315\334$\343 \344\"\"A \307\345\346\" \f E-C\207" [today year completion-ignore-case calendar-bahai-month-name-array month day calendar-current-date calendar-read "Bahá’í calendar year (not 0): " #[(x) "\301U?\207" [x 0] 2] number-to-string calendar-bahai-from-absolute 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) t assoc completing-read "Bahá’í calendar month name: " mapcar list append calendar-make-alist 1 "Bahá’í calendar day (1-19): " #[(x) "\301W\205 \302X\207" [x 0 19] 2]] 23 (#$ . 5332)]) #@85 Move cursor to Bahá’í date DATE; echo Bahá’í date unless NOECHO is non-nil. (defalias 'calendar-bahai-goto-date #[(date &optional noecho) "\302\303\304!!!\210 \206 \305 \207" [date noecho calendar-goto-date calendar-gregorian-from-absolute calendar-bahai-to-absolute calendar-bahai-print-date] 4 (#$ . 6960) (calendar-bahai-read-date)]) #@240 Holiday on MONTH, DAY (Bahá’í) called STRING. If MONTH, DAY (Bahá’í) is visible in the current calendar window, returns the corresponding Gregorian date in the form of the list (((month day year) STRING)). Otherwise, returns nil. (defalias 'holiday-bahai #[(month day string) "\306\307 E\211\3108\262\311\312U\203 \313\314!\202X\312V\203\216 S\262\315\211\211@\262\211A@\262\3108\262\316S_\\\310V\203y \211\317\320_\\\321\245Z\262\211\312W\203Z \322!S\262\211\320\246\312U\205p \211\323\246\312U?\206p \211\324\246\312U\262\203y \211T\262\266\203\262\325_\320\245\323\245[\324\245%\202X\322T!\262\326\211\211@\262\211A@\262\3108\262\316S_\\\310V\203\353 \211\317\320_\\\321\245Z\262\211\312W\203\314 \322!S\262\211\320\246\312U\205\342 \211\323\246\312U?\206\342 \211\324\246\312U\262\203\353 \211T\262\266\203\262\325_\320\245\323\245[\324\245\327\211\211@\262\211A@\262\3108\262\316S_\\\310V\203R\211\317\320_\\\321\245Z\262\211\312W\2033\322!S\262\211\320\246\312U\205I\211\323\246\312U?\206I\211\324\246\312U\262\203R\211T\262\266\203\262&\266\203!\211\211@\262\n\3108\262 \311 \330W?\205\323\331\311 ! \"\f\312W\203\201\fT\315\f\"_ \332\333#Z$!\334!\"\"T!\"\245!\312W\203\255 \330V\203\255\fS\f\330W\203\266\fS* \335V\205\323\336\337\340#$\fE!!\211!\205\323 %DC,\207" [displayed-month displayed-year bahai-date m y date calendar-bahai-from-absolute 15 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) 1 19 -1 16 mod 12 calendar-date-is-visible-p calendar-gregorian-from-absolute calendar-bahai-to-absolute macro-y nmonths month day string] 20 (#$ . 7314)]) (autoload 'holiday-fixed "holidays") #@79 Holiday entry for the Bahá’í New Year, if visible in the calendar window. (defalias 'holiday-bahai-new-year #[nil "\301\302\303\304\305\306Z\"#\207" [displayed-year holiday-fixed 3 21 format "Bahá’í New Year (Naw-Ruz) %d" 1843] 7 (#$ . 9077)]) #@176 Holidays related to Ridvan, as visible in the calendar window. Only considers the first, ninth, and twelfth days, unless ALL or `calendar-bahai-all-holidays-flag' is non-nil. (defalias 'holiday-bahai-ridvan #[(&optional all) "\306\307\310\211\f\204 \203 \311\312\313\"\n\310 \211 \203Z @\314\315W\2030 \316\2021 \317\211\315W\203= \320\202> \321\\\322\323 H\"#\211\203Q @ BA\211\204 \310 \237.\207" [h rid show ord all calendar-bahai-all-holidays-flag ["First" "Second" "Third" "Fourth" "Fifth" "Sixth" "Seventh" "Eighth" "Ninth" "Tenth" "Eleventh" "Twelfth"] (0 8 11) nil number-sequence 0 11 holiday-fixed 10 4 5 21 -9 format "%s Day of Ridvan" i --dolist-tail--] 8 (#$ . 9337)]) (autoload 'diary-list-entries-1 "diary-lib") #@635 Add any Bahá’í date entries from the diary file to `diary-entries-list'. Bahá’í date diary entries must be prefaced by `diary-bahai-entry-symbol' (normally a `B'). The same diary date forms govern the style of the Bahá’í calendar entries, except that the Bahá’í month names cannot be abbreviated. The Bahá’í months are numbered from 1 to 19 with Bahá being 1 and 19 being `Alá. If a Bahá’í date diary entry begins with `diary-nonmarking-symbol', the entry will appear in the diary listing, but will not be marked in the calendar. This function is provided for use with `diary-nongregorian-listing-hook'. (defalias 'diary-bahai-list-entries #[nil "\302 \303#\207" [calendar-bahai-month-name-array diary-bahai-entry-symbol diary-list-entries-1 calendar-bahai-from-absolute] 4 (#$ . 10102)]) (autoload 'calendar-mark-1 "diary-lib") #@199 Mark dates in calendar window that conform to Bahá’í date MONTH/DAY/YEAR. A value of 0 in any position is a wildcard. Optional argument COLOR is passed to `calendar-mark-visible-date' as MARK. (defalias 'calendar-bahai-mark-date-pattern #[(month day year &optional color) "\304 \n\305\306 &\207" [month day year color calendar-mark-1 calendar-bahai-from-absolute calendar-bahai-to-absolute] 7 (#$ . 10969)]) (autoload 'diary-mark-entries-1 "diary-lib") #@214 Mark days in the calendar window that have Bahá’í date diary entries. Marks each entry in `diary-file' (or included files) visible in the calendar window. See `diary-bahai-list-entries' for more information. (defalias 'diary-bahai-mark-entries #[nil "\302\303 \304$\207" [calendar-bahai-month-name-array diary-bahai-entry-symbol diary-mark-entries-1 calendar-bahai-mark-date-pattern calendar-bahai-from-absolute] 5 (#$ . 11436)]) (autoload 'diary-insert-entry-1 "diary-lib") #@141 Insert a diary entry. For the Bahá’í date corresponding to the date indicated by point. Prefix argument ARG makes the entry nonmarking. (defalias 'diary-bahai-insert-entry #[(arg) "\303\304 \n\305%\207" [arg calendar-bahai-month-name-array diary-bahai-entry-symbol diary-insert-entry-1 nil calendar-bahai-from-absolute] 6 (#$ . 11924) "P"]) #@161 Insert a monthly diary entry. For the day of the Bahá’í month corresponding to the date indicated by point. Prefix argument ARG makes the entry nonmarking. (defalias 'diary-bahai-insert-monthly-entry #[(arg) "\303\304 \n\305%\207" [arg calendar-bahai-month-name-array diary-bahai-entry-symbol diary-insert-entry-1 monthly calendar-bahai-from-absolute] 6 (#$ . 12277) "P"]) #@164 Insert an annual diary entry. For the day of the Bahá’í year corresponding to the date indicated by point. Prefix argument ARG will make the entry nonmarking. (defalias 'diary-bahai-insert-yearly-entry #[(arg) "\303\304 \n\305%\207" [arg calendar-bahai-month-name-array diary-bahai-entry-symbol diary-insert-entry-1 yearly calendar-bahai-from-absolute] 6 (#$ . 12662) "P"]) #@53 Bahá’í calendar equivalent of date diary entry. (defalias 'diary-bahai-date #[nil "\301\302\303!\"\207" [date format "Bahá’í date: %s" calendar-bahai-date-string] 4 (#$ . 13047)]) (provide 'cal-bahai)
Close
