Linux server.edchosting.com 4.18.0-553.79.1.lve.el7h.x86_64 #1 SMP Wed Oct 15 16:34:46 UTC 2025 x86_64
LiteSpeed
Server IP : 75.98.162.185 & Your IP : 216.73.216.163
Domains :
Cant Read [ /etc/named.conf ]
User : goons4good
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
emacs /
24.3 /
lisp /
calendar /
Delete
Unzip
Name
Size
Permission
Date
Action
appt.elc
18.4
KB
-rw-r--r--
2023-06-07 04:13
cal-bahai.elc
14.26
KB
-rw-r--r--
2023-06-07 04:13
cal-china.elc
26.82
KB
-rw-r--r--
2023-06-07 04:13
cal-coptic.elc
10.29
KB
-rw-r--r--
2023-06-07 04:13
cal-dst.elc
18.42
KB
-rw-r--r--
2023-06-07 04:14
cal-french.elc
9.75
KB
-rw-r--r--
2023-06-07 04:14
cal-hebrew.elc
51.03
KB
-rw-r--r--
2023-06-07 04:14
cal-html.elc
16.65
KB
-rw-r--r--
2023-06-07 04:14
cal-islam.elc
14.47
KB
-rw-r--r--
2023-06-07 04:14
cal-iso.elc
7.46
KB
-rw-r--r--
2023-06-07 04:14
cal-julian.elc
8.26
KB
-rw-r--r--
2023-06-07 04:14
cal-loaddefs.el
34.33
KB
-rw-r--r--
2023-06-07 03:59
cal-mayan.elc
19.89
KB
-rw-r--r--
2023-06-07 04:14
cal-menu.elc
9.91
KB
-rw-r--r--
2023-06-07 04:14
cal-move.elc
14.97
KB
-rw-r--r--
2023-06-07 04:14
cal-persia.elc
7.33
KB
-rw-r--r--
2023-06-07 04:14
cal-tex.elc
73.37
KB
-rw-r--r--
2023-06-07 04:14
cal-x.elc
6.07
KB
-rw-r--r--
2023-06-07 04:14
calendar.elc
102.18
KB
-rw-r--r--
2023-06-07 04:14
diary-lib.elc
107.28
KB
-rw-r--r--
2023-06-07 04:14
diary-loaddefs.el
12.64
KB
-rw-r--r--
2023-06-07 03:59
hol-loaddefs.el
5.99
KB
-rw-r--r--
2023-06-07 03:59
holidays.elc
37.56
KB
-rw-r--r--
2023-06-07 04:14
icalendar.elc
59.27
KB
-rw-r--r--
2023-06-07 04:14
lunar.elc
12.98
KB
-rw-r--r--
2023-06-07 04:14
parse-time.elc
9.01
KB
-rw-r--r--
2023-06-07 04:14
solar.elc
39.26
KB
-rw-r--r--
2023-06-07 04:14
time-date.elc
10.15
KB
-rw-r--r--
2023-06-07 04:14
timeclock.elc
46.02
KB
-rw-r--r--
2023-06-07 04:14
todo-mode.elc
24.15
KB
-rw-r--r--
2023-06-07 04:14
Save
Rename
;ELC ;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun 7 08:14:06 2023 ;;; 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"] (#$ . 578)) (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 (#$ . 845)) #@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 (#$ . 975)]) #@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 (#$ . 1213)]) #@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 (#$ . 1472)]) (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\203R S\202T \310$\211 \307W\203d S\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 (#$ . 2312)]) #@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 \nT T\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 (#$ . 2794)]) #@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\211 A@* \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\205 T - \326_ \321\245 \324\245[ \325\245%\202p\323\nT!\327\211\211@)\211\211 A@* \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\375 T - \326_ \321\245 \324\245[ \325\245\330\211\330@)\211\211 A@* \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\211 A@*! \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 (#$ . 3304)]) #@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 (#$ . 4633) 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\211 A@* \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\211 A@* \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\211 A@* \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 (#$ . 5029)]) (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 (#$ . 6795) (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 (#$ . 7299)]) (provide 'cal-persia)