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-french.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) #@74 Absolute date of start of French Revolutionary calendar = Sept 22, 1792. (defconst calendar-french-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" [(9 22 1792) 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1)] 18) (#$ . 428)) #@46 Array of month names in the French calendar. (defconst calendar-french-month-name-array ["Vende'miaire" "Brumaire" "Frimaire" "Nivo^se" "Pluvio^se" "Vento^se" "Germinal" "Flore'al" "Prairial" "Messidor" "Thermidor" "Fructidor"] (#$ . 1514)) #@56 Array of multibyte month names in the French calendar. (defconst calendar-french-multibyte-month-name-array ["Vendémiaire" "Brumaire" "Frimaire" "Nivôse" "Pluviôse" "Ventôse" "Germinal" "Floréal" "Prairial" "Messidor" "Thermidor" "Fructidor"] (#$ . 1761)) #@44 Array of day names in the French calendar. (defconst calendar-french-day-name-array ["Primidi" "Duodi" "Tridi" "Quartidi" "Quintidi" "Sextidi" "Septidi" "Octidi" "Nonidi" "Decadi"] (#$ . 2028)) #@52 Array of special day names in the French calendar. (defconst calendar-french-special-days-array ["de la Vertu" "du Ge'nie" "du Travail" "de la Raison" "des Re'compenses" "de la Re'volution"] (#$ . 2228)) #@62 Array of multibyte special day names in the French calendar. (defconst calendar-french-multibyte-special-days-array ["de la Vertu" "du Génie" "du Travail" "de la Raison" "des Récompenses" "de la Révolution"] (#$ . 2438)) #@52 Return non-nil if diacritical marks are available. (defalias 'calendar-french-accents-p #[nil "\204 \303 \205 \206 \304\n!\205 \n\305H\306\232\207" [window-system enable-multibyte-characters standard-display-table terminal-coding-system char-table-p 161 [161]] 2 (#$ . 2668)]) #@78 Return the array of month names, depending on whether accents are available. (defalias 'calendar-french-month-name-array #[nil "\302 \203 \207 \207" [calendar-french-multibyte-month-name-array calendar-french-month-name-array calendar-french-accents-p] 1 (#$ . 2957)]) #@32 Return the array of day names. (defalias 'calendar-french-day-name-array #[nil "\207" [calendar-french-day-name-array] 1 (#$ . 3234)]) #@75 Return the special day names, depending on whether accents are available. (defalias 'calendar-french-special-days-array #[nil "\302 \203 \207 \207" [calendar-french-multibyte-special-days-array calendar-french-special-days-array calendar-french-accents-p] 1 (#$ . 3376)]) #@455 True if YEAR is a leap year on the French Revolutionary calendar. For Gregorian years 1793 to 1805, the years of actual operation of the calendar, follows historical practice based on equinoxes (years 3, 7, and 11 were leap years; 15 and 20 would have been leap years). For later years uses the proposed rule of Romme (never adopted)--leap years fall every four years except century years not divisible 400 and century years that are multiples of 4000. (defalias 'calendar-french-leap-year-p #[(year) "\301>\206) \302>\206) \303V\205) \304\246\305U\205) \306\246\307>?\205) \310\246\305U?\207" [year (3 7 11) (15 20) 20 4 0 400 (100 200 300) 4000] 2 (#$ . 3657)]) #@191 Return last day of MONTH, YEAR on the French Revolutionary calendar. The 13th month is not really a month, but the 5 (6 in leap years) day period of `sansculottides' at the end of the year. (defalias 'calendar-french-last-day-of-month #[(month year) "\302W\203 \303\207\304 !\203 \305\207\306\207" [month year 13 30 calendar-french-leap-year-p 6 5] 2 (#$ . 4335)]) #@172 Compute absolute date from French Revolutionary date DATE. The absolute date is the number of days elapsed since the (imaginary) Gregorian date Sunday, December 31, 1 BC. (defalias 'calendar-french-to-absolute #[(date) "\211@\262\211A@\262\3058\262\306\307 S_ \310W\203% \311\245\2029 \306 S\311\245 S\312\245[ S\313\245 S\314\245[$\315 S_\n\fS%+\207" [date year day month calendar-french-epoch 2 + 365 20 4 100 400 4000 30] 8 (#$ . 4710)]) #@232 Compute the French Revolutionary 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-french-from-absolute #[(date) " W\203 \306\211\211E\207 Z\307\245\211\211\306 \310\311\211\fTE!Y\203+ T\fT\202 *\\ \311\306 \310 \312 \" E!V\203O T T \2024 *T \f\310\f\311 E!SZ \f E,\207" [date calendar-french-epoch approx sum y year 0 366 calendar-french-to-absolute 1 calendar-french-last-day-of-month m month day] 7 (#$ . 5169)]) #@165 String of French Revolutionary date of Gregorian DATE. Returns the empty string if DATE is pre-French Revolutionary. Defaults to today's date if DATE is not given. (defalias 'calendar-french-date-string #[(&optional date) "\305\206 \306 \211\3078\262\310\311U\203 \312\313!\202Z\311V\203\220 S\262\314\211\211@\262\211A@\262\3078\262\315S_\\\307V\203{ \211\316\317_\\\320\245Z\262\211\311W\203\\ \321!S\262\211\317\246\311U\205r \211\322\246\311U?\206r \211\323\246\311U\262\203{ \211T\262\266\203\262\324_\317\245\322\245[\323\245%\202Z\321T!\262\325\211\211@\262\211A@\262\3078\262\315S_\\\307V\203\355 \211\316\317_\\\320\245Z\262\211\311W\203\316 \321!S\262\211\317\246\311U\205\344 \211\322\246\311U?\206\344 \211\323\246\311U\262\203\355 \211T\262\266\203\262\324_\317\245\322\245[\323\245\326\211\211@\262\211A@\262\3078\262\315S_\\\307V\203T\211\316\317_\\\320\245Z\262\211\311W\2035\321!S\262\211\317\246\311U\205K\211\322\246\311U?\206K\211\323\246\311U\262\203T\211T\262\266\203\262&\266\203!\211\3078\262 \211@\262 \211A@\262 \n\327W\203|\330\202\252 \331U\203\227\332\333 \203\214\334\202\215\335\336 \fSH\n#\202\252\332\333 \203\241\337\202\242\340\f\341 SH\n$,\207" [date french-date y m d calendar-french-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 "" 13 format calendar-french-accents-p "Jour %s de l'Année %d de la Révolution" "Jour %s de l'Anne'e %d de la Re'volution" calendar-french-special-days-array "%d %s an %d de la Révolution" "%d %s an %d de la Re'volution" calendar-french-month-name-array] 20 (#$ . 5788)]) #@73 Show the French Revolutionary calendar equivalent of the selected date. (defalias 'calendar-french-print-date #[nil "\301\302\303!!\211\304\230\203 \305\306!\202 \305\307\")\207" [f calendar-french-date-string calendar-cursor-to-date t "" message "Date is pre-French Revolution" "French Revolutionary date: %s"] 4 (#$ . 7513) nil]) #@105 Move cursor to French Revolutionary date DATE. Echo French Revolutionary date unless NOECHO is non-nil. (defalias 'calendar-french-goto-date #[(date &optional noecho) "\302\303\304!!!\210 \206 \305 \207" [date noecho calendar-goto-date calendar-gregorian-from-absolute calendar-french-to-absolute calendar-french-print-date] 4 (#$ . 7856) (let* ((months (calendar-french-month-name-array)) (special-days (calendar-french-special-days-array)) (year (progn (calendar-read (if (calendar-french-accents-p) "Année de la Révolution (>0): " "Anne'e de la Re'volution (>0): ") #'(lambda (x) (> x 0)) (number-to-string (calendar-extract-year (calendar-french-from-absolute (calendar-absolute-from-gregorian (calendar-current-date)))))))) (month-list (mapcar 'list (append months (if (calendar-french-leap-year-p year) (mapcar #'(lambda (x) (concat "Jour " x)) calendar-french-special-days-array) (reverse (cdr (reverse (mapcar #'(lambda (x) (concat "Jour " x)) special-days)))))))) (completion-ignore-case t) (month (cdr (assoc-string (completing-read "Mois ou Sansculottide: " month-list nil t) (calendar-make-alist month-list 1 'car) t))) (day (if (> month 12) (- month 12) (calendar-read "Jour (1-30): " #'(lambda (x) (and (<= 1 x) (<= x 30)))))) (month (if (> month 12) 13 month))) (list (list month day year)))]) #@49 French calendar equivalent of date diary entry. (defalias 'diary-french-date #[nil "\302!\211\303\230\203 \304\202 \305\306 \")\207" [date f calendar-french-date-string "" "Date is pre-French Revolution" format "French Revolutionary date: %s"] 4 (#$ . 9175)]) (provide 'cal-french)
Close
