;;; compiled by rms@mole.gnu.ai.mit.edu on Sat May 22 00:13:17 1993 ;;; from file /home/fsf/rms/e19/lisp/cal-french.el ;;; emacs version 19.6.12. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (byte-code "ÀÁ!ˆÂÄÆÀ‡" [require calendar ["Vende'miaire" "Brumaire" "Frimaire" "Nivo^se" "Pluvio^se" "Vento^se" "Germinal" "Flore'al" "Prairial" "Messidor" "Thermidor" "Fructidor"] french-calendar-month-name-array ["Primidi" "Duodi" "Tridi" "Quartidi" "Quintidi" "Sextidi" "Septidi" "Octidi" "Nonidi" "Decadi"] french-calendar-day-name-array ["de la Vertu" "du Genie" "du Labour" "de la Raison" "de la Recompense" "de la Revolution"] french-calendar-special-days-array] 2) (defalias 'french-calendar-leap-year-p #[(year) "Á>†,Â>†,ÃV…,ÄÅ\"ÆU…,ÄÇ\"È>?…,ÄÉ\"ÆU?‡" [year (3 7 11) (15 20) 20 % 4 0 400 (100 200 300) 4000] 3 "\ 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, uses historical practice based on equinoxes is followed (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 'french-calendar-last-day-of-month #[(month year) "ÁWƒ‡à !ƒŇƇ" [month 13 30 french-calendar-leap-year-p year 6 5] 2 "\ 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-absolute-from-french #[(date) "@A@AA@Ä SÅ\" ÆWƒÇ È\"‚7Ç SÈ\"Ç SÉ\"[Ç SÊ\"Ç SË\"[\\\\\\Ä SÌ\"\nÍ\\\\\\\\+‡" [date year day month * 365 20 / 4 100 400 4000 30 654414] 7 "\ 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-from-absolute #[(date) "ÁWƒ ‰‰E‡ÃÄZÅ\"‰‰ÂÉʉTE!Yƒ5Ê\\T‚*\\ ÊÂ É Í  \" E!VƒaÊ\\ T ‚A*TÉÊ E!SZ E,‡" [date 654415 0 / 654414 366 approx sum y calendar-absolute-from-french 1 year m french-calendar-last-day-of-month month day] 7 "\ 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-print-french-date #[nil "ÀÁ † ÂÃ!@Á †ÂÃ!A@Á †ÂÃ!AA@Á †+ÂÃ!@Á †6ÂÃ!A@Á †AÂÃ!AA@ ÇSÈ\"\\ ÊVƒ… ËÇÌ\"Í\\Î\"Z Ï Ì\"ÐUƒwÏ Ñ\"ÐUƒ€Ï Ò\"ÐUƒ… T  ,Ç SÓ\"Ë SÌ\"Ë SÑ\"[Ë SÒ\"\\\\\\\\+!‰AA@@A@ØWƒÃÙÚ!‚öÛUƒØÙÜSH#‚öÙÞßËSÎ\"Tà\"!ÏSÎ\"H\"SH%,‡" [calendar-french-from-absolute calendar-cursor-to-date error "Cursor is not on a date!" year day month * 31 day-of-year 2 / 4 23 10 % 0 100 400 365 french-date y m d 1 message "Date is pre-French Revolution" 13 "Jour %s de l'Anne'e %d de la Revolution" french-calendar-special-days-array "Decade %s, %s de %s de l'Anne'e %d de la Revolution" make-string 73 french-calendar-day-name-array french-calendar-month-name-array] 9 "\ Show the French Revolutionary calendar equivalent of the selected date." nil]) (defalias 'calendar-goto-french-date #[(date &optional noecho) "ÀÁ !!!ˆ †Å ‡" [calendar-goto-date calendar-gregorian-from-absolute calendar-absolute-from-french date noecho calendar-print-french-date] 4 "\ Move cursor to French Revolutionary date DATE. Echo French Revolutionary date unless NOECHO is t." (byte-code "ÀÁÂÃÄÅ @Å A@Å AA@Å @Å A@Å AA@ÉSÊ\"\\ ÌVƒm ÍÉÎ\"Ï\\Ð\"Z ÑÎ\"ÒUƒ^ÑÓ\"ÒUƒhÑÔ\"ÒUƒm T  ,ÉSÕ\"ÍSÎ\"ÍSÓ\"[ÍSÔ\"\\\\\\\\+!AA@!#Ö×ØÚ!ƒªÖÛ\"‚²ÝÖÞ\"!A\"\"à!âãäåæà$!çèé#\"A‰êVƒ×è‚ÛÀëì\"-êVƒëêZ‚ïÀîï\"êVƒüð‚þÉ-SÐ\"\\E.C‡" [calendar-read "Anne'e de la Revolution (>0): " (lambda (x) (> x 0)) int-to-string calendar-french-from-absolute calendar-current-date year day month * 31 day-of-year 2 / 4 23 10 % 0 100 400 365 mapcar list append french-calendar-month-name-array french-calendar-leap-year-p #[(x) "À P‡" ["Jour " x] 2] french-calendar-special-days-array nreverse #[(x) "À P‡" ["Jour " x] 2] month-list t completion-ignore-case assoc capitalize completing-read "Mois ou Sansculottide: " nil calendar-make-alist 1 (lambda (x) (capitalize (car x))) 12 "De'cade (1-3): " (lambda (x) (memq x (quote (1 2 3)))) decade "Jour (1-10)): " (lambda (x) (and (<= 1 x) (<= x 10))) 13] 13)]) (defalias 'diary-french-date #[nil "À @ A@ AA@ @ A@ AA@ Å SÆ\"\\ ÈVƒVÉÅ Ê\"Ë\\Ì\"ZÍ\nÊ\"ÎUƒHÍ\nÏ\"ÎUƒQÍ\nÐ\"ÎUƒVT,Å\nSÑ\"É\nSÊ\"É\nSÏ\"[É\nSÐ\"\\\\\\\\+!‰AA@@A@ÎV…ÁÖUƒ£×ØSH#‚Á×ÚÛÉSÌ\"TÜ\"ÍSÌ\"HSH%,‡" [calendar-french-from-absolute date year day month * 31 day-of-year 2 / 4 23 10 % 0 100 400 365 french-date y m d 13 format "Jour %s de l'Anne'e %d de la Revolution" french-calendar-special-days-array "Decade %s, %s de %s de l'Anne'e %d de la Revolution" make-string 73 french-calendar-day-name-array french-calendar-month-name-array] 9 "\ French calendar equivalent of date diary entry."]) (provide (quote cal-french))