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-persia.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) #@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"] (#$ . 428)) (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 (#$ . 695)) #@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 (#$ . 825)]) #@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 (#$ . 1063)]) #@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@\262\211A@\262\3068\262 \307W\203. \310 \n\311 \312\"TE!\313\314 \312\"_\\\202x \315\fS\316 S_\317\314 \320\\\312\"_\321\314\311 \320\\\312\"\322\"_\314\317\311\211 \320\\\312\"\322\"_\312\"\323\324\307 \211 W\203s \325 \"\\T\211\202] *\n&+\207" [date year day month calendar-persian-epoch sum 2 0 calendar-persian-to-absolute mod 2820 1029983 floor + 365 683 2345 186 768 -568 1 calendar-persian-last-day-of-month m] 12 (#$ . 1322)]) #@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 \316\\_\312\" \317\315\n_\320\f_ \321U\203: S\202< \310$\211 \307W\203L S\202N .\207" [date d0 n2820 d1 n768 d2 calendar-persian-to-absolute 1 -2345 floor 1029983 mod 280506 2820 366 + 768 1029617 n1 year] 6 (#$ . 1998)]) #@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 (#$ . 2422)]) #@58 String of Persian date of Gregorian DATE, default today. (defalias 'calendar-persian-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@\262\f SH \330 \211A@\262! \330\n! \330 ! \311 \331\332 \333#.\207" [date persian-date y m calendar-persian-month-name-array monthname calendar-persian-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) number-to-string mapconcat eval "" day year month dayname calendar-date-display-form] 20 (#$ . 2932)]) #@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 (#$ . 4327) nil]) #@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\262\315\316U\203 \317\320!\202Z\316V\203\220 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\205r \211\327\246\316U?\206r \211\330\246\316U\262\203{ \211T\262\266\203\262\331_\324\245\327\245[\330\245%\202Z\326T!\262\332\211\211@\262\211A@\262\3148\262\322S_\\\314V\203\355 \211\323\324_\\\325\245Z\262\211\316W\203\316 \326!S\262\211\324\246\316U\205\344 \211\327\246\316U?\206\344 \211\330\246\316U\262\203\355 \211T\262\266\203\262\331_\324\245\327\245[\330\245\333\211\211@\262\211A@\262\3148\262\322S_\\\314V\203T\211\323\324_\\\325\245Z\262\211\316W\2035\326!S\262\211\324\246\316U\205K\211\327\246\316U?\206K\211\330\246\316U\262\203T\211T\262\266\203\262&\266\203!\3148\262!#\334\335\336\337\340\341\342\n\315\"\"\315\334$\343\n\344\"\"A\345 \" \306\346\347\f\"\350\" E-C\207" [year completion-ignore-case calendar-persian-month-name-array month last day calendar-read "Persian calendar year (not 0): " #[(x) "\301U?\207" [x 0] 2] number-to-string calendar-persian-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 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]] 23 (#$ . 4572)]) #@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 (#$ . 6250) (calendar-persian-read-date)]) #@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 (#$ . 6605)]) (provide 'cal-persia)
Close
