Current File : //usr/local/share/emacs/27.2/lisp/calendar/cal-french.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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!\202N\303V\203\210 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\204\316_\311\245\314\245[\315\245%\202N\313T!\262\317\211\211@\262\211A@\262\3018\262\307S_\\\301V\203\345 \211\310\311_\\\312\245Z\262\211\303W\203\306 \313!S\262\211\311\246\303U\205\334 \211\314\246\303U?\206\334 \211\315\246\303U\262\203\345 \211T\262\266\204\316_\311\245\314\245[\315\245\320\211\211@\262\211A@\262\3018\262\307S_\\\301V\203J\211\310\311_\\\312\245Z\262\211\303W\203+\313!S\262\211\311\246\303U\205A\211\314\246\303U?\206A\211\315\246\303U\262\203J\211T\262\266\204&\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"] (#$ . 1499))
#@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"] (#$ . 1746))
#@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"] (#$ . 2013))
#@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"] (#$ . 2213))
#@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"] (#$ . 2423))
#@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 (#$ . 2653)])
#@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 (#$ . 2942)])
#@32 Return the array of day names.
(defalias 'calendar-french-day-name-array #[nil "\207" [calendar-french-day-name-array] 1 (#$ . 3219)])
#@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 (#$ . 3361)])
#@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 (#$ . 3642)])
#@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 (#$ . 4320)])
#@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 (#$ . 4695)])
#@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 (#$ . 5154)])
#@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!\202T\311V\203\216 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\204\324_\317\245\322\245[\323\245%\202T\321T!\262\325\211\211@\262\211A@\262\3078\262\315S_\\\307V\203\353 \211\316\317_\\\320\245Z\262\211\311W\203\314 \321!S\262\211\317\246\311U\205\342 \211\322\246\311U?\206\342 \211\323\246\311U\262\203\353 \211T\262\266\204\324_\317\245\322\245[\323\245\326\211\211@\262\211A@\262\3078\262\315S_\\\307V\203P\211\316\317_\\\320\245Z\262\211\311W\2031\321!S\262\211\317\246\311U\205G\211\322\246\311U?\206G\211\323\246\311U\262\203P\211T\262\266\204&\266\203!\211\3078\262 \211@\262 \211A@\262 \n\327W\203v\330\202\244 \331U\203\221\332\333 \203\206\334\202\207\335\336 \fSH\n#\202\244\332\333 \203\233\337\202\234\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 (#$ . 5773)])
#@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 (#$ . 7483) 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 (#$ . 7826) (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 (#$ . 9145)])
(provide 'cal-french)
Mini Shell