/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / emacs-19.16 / lisp / cal-french.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 69 6d 62 40 67 65 |piled by| jimb@ge|
|00000020| 65 63 68 2e 67 6e 75 2e | 61 69 2e 6d 69 74 2e 65 |ech.gnu.|ai.mit.e|
|00000030| 64 75 20 6f 6e 20 4d 6f | 6e 20 4a 75 6c 20 20 35 |du on Mo|n Jul  5|
|00000040| 20 32 32 3a 32 37 3a 32 | 32 20 31 39 39 33 0a 3b | 22:27:2|2 1993.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 67 64 |;; from |file /gd|
|00000060| 2f 67 6e 75 2f 65 6d 61 | 63 73 2f 31 39 2e 30 2f |/gnu/ema|cs/19.0/|
|00000070| 6c 69 73 70 2f 63 61 6c | 2d 66 72 65 6e 63 68 2e |lisp/cal|-french.|
|00000080| 65 6c 0a 3b 3b 3b 20 65 | 6d 61 63 73 20 76 65 72 |el.;;; e|macs ver|
|00000090| 73 69 6f 6e 20 31 39 2e | 31 35 2e 31 36 2e 0a 3b |sion 19.|15.16..;|
|000000a0| 3b 3b 20 62 79 74 65 63 | 6f 6d 70 20 76 65 72 73 |;; bytec|omp vers|
|000000b0| 69 6f 6e 20 46 53 46 20 | 32 2e 31 30 0a 3b 3b 3b |ion FSF |2.10.;;;|
|000000c0| 20 6f 70 74 69 6d 69 7a | 61 74 69 6f 6e 20 69 73 | optimiz|ation is|
|000000d0| 20 6f 6e 2e 0a 3b 3b 3b | 20 74 68 69 73 20 66 69 | on..;;;| this fi|
|000000e0| 6c 65 20 75 73 65 73 20 | 6f 70 63 6f 64 65 73 20 |le uses |opcodes |
|000000f0| 77 68 69 63 68 20 64 6f | 20 6e 6f 74 20 65 78 69 |which do| not exi|
|00000100| 73 74 20 69 6e 20 45 6d | 61 63 73 20 31 38 2e 0a |st in Em|acs 18..|
|00000110| 0a 28 69 66 20 28 61 6e | 64 20 28 62 6f 75 6e 64 |.(if (an|d (bound|
|00000120| 70 20 27 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |p 'emacs|-version|
|00000130| 29 0a 09 20 28 6f 72 20 | 28 61 6e 64 20 28 62 6f |).. (or |(and (bo|
|00000140| 75 6e 64 70 20 27 65 70 | 6f 63 68 3a 3a 76 65 72 |undp 'ep|och::ver|
|00000150| 73 69 6f 6e 29 20 65 70 | 6f 63 68 3a 3a 76 65 72 |sion) ep|och::ver|
|00000160| 73 69 6f 6e 29 0a 09 20 | 20 20 20 20 28 73 74 72 |sion).. |    (str|
|00000170| 69 6e 67 2d 6c 65 73 73 | 70 20 65 6d 61 63 73 2d |ing-less|p emacs-|
|00000180| 76 65 72 73 69 6f 6e 20 | 22 31 39 22 29 29 29 0a |version |"19"))).|
|00000190| 20 20 20 20 28 65 72 72 | 6f 72 20 22 54 68 69 73 |    (err|or "This|
|000001a0| 20 66 69 6c 65 20 77 61 | 73 20 63 6f 6d 70 69 6c | file wa|s compil|
|000001b0| 65 64 20 66 6f 72 20 45 | 6d 61 63 73 20 31 39 22 |ed for E|macs 19"|
|000001c0| 29 29 0a 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |))..(byt|e-code "|
|000001d0| c0 c1 21 88 c2 13 c4 15 | c6 16 07 c0 87 22 20 5b |..!.....|....." [|
|000001e0| 72 65 71 75 69 72 65 20 | 63 61 6c 65 6e 64 61 72 |require |calendar|
|000001f0| 20 5b 22 56 65 6e 64 65 | 27 6d 69 61 69 72 65 22 | ["Vende|'miaire"|
|00000200| 20 22 42 72 75 6d 61 69 | 72 65 22 20 22 46 72 69 | "Brumai|re" "Fri|
|00000210| 6d 61 69 72 65 22 20 22 | 4e 69 76 6f 5e 73 65 22 |maire" "|Nivo^se"|
|00000220| 20 22 50 6c 75 76 69 6f | 5e 73 65 22 20 22 56 65 | "Pluvio|^se" "Ve|
|00000230| 6e 74 6f 5e 73 65 22 20 | 22 47 65 72 6d 69 6e 61 |nto^se" |"Germina|
|00000240| 6c 22 20 22 46 6c 6f 72 | 65 27 61 6c 22 20 22 50 |l" "Flor|e'al" "P|
|00000250| 72 61 69 72 69 61 6c 22 | 20 22 4d 65 73 73 69 64 |rairial"| "Messid|
|00000260| 6f 72 22 20 22 54 68 65 | 72 6d 69 64 6f 72 22 20 |or" "The|rmidor" |
|00000270| 22 46 72 75 63 74 69 64 | 6f 72 22 5d 20 66 72 65 |"Fructid|or"] fre|
|00000280| 6e 63 68 2d 63 61 6c 65 | 6e 64 61 72 2d 6d 6f 6e |nch-cale|ndar-mon|
|00000290| 74 68 2d 6e 61 6d 65 2d | 61 72 72 61 79 20 5b 22 |th-name-|array ["|
|000002a0| 50 72 69 6d 69 64 69 22 | 20 22 44 75 6f 64 69 22 |Primidi"| "Duodi"|
|000002b0| 20 22 54 72 69 64 69 22 | 20 22 51 75 61 72 74 69 | "Tridi"| "Quarti|
|000002c0| 64 69 22 20 22 51 75 69 | 6e 74 69 64 69 22 20 22 |di" "Qui|ntidi" "|
|000002d0| 53 65 78 74 69 64 69 22 | 20 22 53 65 70 74 69 64 |Sextidi"| "Septid|
|000002e0| 69 22 20 22 4f 63 74 69 | 64 69 22 20 22 4e 6f 6e |i" "Octi|di" "Non|
|000002f0| 69 64 69 22 20 22 44 65 | 63 61 64 69 22 5d 20 66 |idi" "De|cadi"] f|
|00000300| 72 65 6e 63 68 2d 63 61 | 6c 65 6e 64 61 72 2d 64 |rench-ca|lendar-d|
|00000310| 61 79 2d 6e 61 6d 65 2d | 61 72 72 61 79 20 5b 22 |ay-name-|array ["|
|00000320| 64 65 20 6c 61 20 56 65 | 72 74 75 22 20 22 64 75 |de la Ve|rtu" "du|
|00000330| 20 47 65 6e 69 65 22 20 | 22 64 75 20 4c 61 62 6f | Genie" |"du Labo|
|00000340| 75 72 22 20 22 64 65 20 | 6c 61 20 52 61 69 73 6f |ur" "de |la Raiso|
|00000350| 6e 22 20 22 64 65 20 6c | 61 20 52 65 63 6f 6d 70 |n" "de l|a Recomp|
|00000360| 65 6e 73 65 22 20 22 64 | 65 20 6c 61 20 52 65 76 |ense" "d|e la Rev|
|00000370| 6f 6c 75 74 69 6f 6e 22 | 5d 20 66 72 65 6e 63 68 |olution"|] french|
|00000380| 2d 63 61 6c 65 6e 64 61 | 72 2d 73 70 65 63 69 61 |-calenda|r-specia|
|00000390| 6c 2d 64 61 79 73 2d 61 | 72 72 61 79 5d 20 32 29 |l-days-a|rray] 2)|
|000003a0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 66 72 65 6e |.(defali|as 'fren|
|000003b0| 63 68 2d 63 61 6c 65 6e | 64 61 72 2d 6c 65 61 70 |ch-calen|dar-leap|
|000003c0| 2d 79 65 61 72 2d 70 20 | 23 5b 28 79 65 61 72 29 |-year-p |#[(year)|
|000003d0| 20 22 08 c1 3e 86 29 00 | 08 c2 3e 86 29 00 08 c3 | "..>.).|..>.)...|
|000003e0| 56 85 29 00 08 c4 a6 c5 | 55 85 29 00 08 c6 a6 c7 |V.).....|U.).....|
|000003f0| 3e 3f 85 29 00 08 c8 a6 | c5 55 3f 87 22 20 5b 79 |>?.)....|.U?." [y|
|00000400| 65 61 72 20 28 33 20 37 | 20 31 31 29 20 28 31 35 |ear (3 7| 11) (15|
|00000410| 20 32 30 29 20 32 30 20 | 34 20 30 20 34 30 30 20 | 20) 20 |4 0 400 |
|00000420| 28 31 30 30 20 32 30 30 | 20 33 30 30 29 20 34 30 |(100 200| 300) 40|
|00000430| 30 30 5d 20 32 20 22 5c | 0a 54 72 75 65 20 69 66 |00] 2 "\|.True if|
|00000440| 20 59 45 41 52 20 69 73 | 20 61 20 6c 65 61 70 20 | YEAR is| a leap |
|00000450| 79 65 61 72 20 6f 6e 20 | 74 68 65 20 46 72 65 6e |year on |the Fren|
|00000460| 63 68 20 52 65 76 6f 6c | 75 74 69 6f 6e 61 72 79 |ch Revol|utionary|
|00000470| 20 63 61 6c 65 6e 64 61 | 72 2e 0a 46 6f 72 20 47 | calenda|r..For G|
|00000480| 72 65 67 6f 72 69 61 6e | 20 79 65 61 72 73 20 31 |regorian| years 1|
|00000490| 37 39 33 20 74 6f 20 31 | 38 30 35 2c 20 74 68 65 |793 to 1|805, the|
|000004a0| 20 79 65 61 72 73 20 6f | 66 20 61 63 74 75 61 6c | years o|f actual|
|000004b0| 20 6f 70 65 72 61 74 69 | 6f 6e 20 6f 66 20 74 68 | operati|on of th|
|000004c0| 65 0a 63 61 6c 65 6e 64 | 61 72 2c 20 75 73 65 73 |e.calend|ar, uses|
|000004d0| 20 68 69 73 74 6f 72 69 | 63 61 6c 20 70 72 61 63 | histori|cal prac|
|000004e0| 74 69 63 65 20 62 61 73 | 65 64 20 6f 6e 20 65 71 |tice bas|ed on eq|
|000004f0| 75 69 6e 6f 78 65 73 20 | 69 73 20 66 6f 6c 6c 6f |uinoxes |is follo|
|00000500| 77 65 64 20 28 79 65 61 | 72 73 20 33 2c 20 37 2c |wed (yea|rs 3, 7,|
|00000510| 0a 61 6e 64 20 31 31 20 | 77 65 72 65 20 6c 65 61 |.and 11 |were lea|
|00000520| 70 20 79 65 61 72 73 3b | 20 31 35 20 61 6e 64 20 |p years;| 15 and |
|00000530| 32 30 20 77 6f 75 6c 64 | 20 68 61 76 65 20 62 65 |20 would| have be|
|00000540| 65 6e 20 6c 65 61 70 20 | 79 65 61 72 73 29 2e 20 |en leap |years). |
|00000550| 20 46 6f 72 20 6c 61 74 | 65 72 0a 79 65 61 72 73 | For lat|er.years|
|00000560| 20 75 73 65 73 20 74 68 | 65 20 70 72 6f 70 6f 73 | uses th|e propos|
|00000570| 65 64 20 72 75 6c 65 20 | 6f 66 20 52 6f 6d 6d 65 |ed rule |of Romme|
|00000580| 20 28 6e 65 76 65 72 20 | 61 64 6f 70 74 65 64 29 | (never |adopted)|
|00000590| 2d 2d 6c 65 61 70 20 79 | 65 61 72 73 20 66 61 6c |--leap y|ears fal|
|000005a0| 6c 20 65 76 65 72 79 0a | 66 6f 75 72 20 79 65 61 |l every.|four yea|
|000005b0| 72 73 20 65 78 63 65 70 | 74 20 63 65 6e 74 75 72 |rs excep|t centur|
|000005c0| 79 20 79 65 61 72 73 20 | 6e 6f 74 20 64 69 76 69 |y years |not divi|
|000005d0| 73 69 62 6c 65 20 34 30 | 30 20 61 6e 64 20 63 65 |sible 40|0 and ce|
|000005e0| 6e 74 75 72 79 20 79 65 | 61 72 73 20 74 68 61 74 |ntury ye|ars that|
|000005f0| 20 61 72 65 0a 6d 75 6c | 74 69 70 6c 65 73 20 6f | are.mul|tiples o|
|00000600| 66 20 34 30 30 30 2e 22 | 5d 29 0a 28 64 65 66 61 |f 4000."|]).(defa|
|00000610| 6c 69 61 73 20 27 66 72 | 65 6e 63 68 2d 63 61 6c |lias 'fr|ench-cal|
|00000620| 65 6e 64 61 72 2d 6c 61 | 73 74 2d 64 61 79 2d 6f |endar-la|st-day-o|
|00000630| 66 2d 6d 6f 6e 74 68 20 | 23 5b 28 6d 6f 6e 74 68 |f-month |#[(month|
|00000640| 20 79 65 61 72 29 20 22 | 08 c1 57 83 08 00 c2 87 | year) "|..W.....|
|00000650| c3 0c 21 83 10 00 c5 87 | c6 87 22 20 5b 6d 6f 6e |..!.....|.." [mon|
|00000660| 74 68 20 31 33 20 33 30 | 20 66 72 65 6e 63 68 2d |th 13 30| french-|
|00000670| 63 61 6c 65 6e 64 61 72 | 2d 6c 65 61 70 2d 79 65 |calendar|-leap-ye|
|00000680| 61 72 2d 70 20 79 65 61 | 72 20 36 20 35 5d 20 32 |ar-p yea|r 6 5] 2|
|00000690| 20 22 5c 0a 52 65 74 75 | 72 6e 20 6c 61 73 74 20 | "\.Retu|rn last |
|000006a0| 64 61 79 20 6f 66 20 4d | 4f 4e 54 48 2c 20 59 45 |day of M|ONTH, YE|
|000006b0| 41 52 20 6f 6e 20 74 68 | 65 20 46 72 65 6e 63 68 |AR on th|e French|
|000006c0| 20 52 65 76 6f 6c 75 74 | 69 6f 6e 61 72 79 20 63 | Revolut|ionary c|
|000006d0| 61 6c 65 6e 64 61 72 2e | 0a 54 68 65 20 31 33 74 |alendar.|.The 13t|
|000006e0| 68 20 6d 6f 6e 74 68 20 | 69 73 20 6e 6f 74 20 72 |h month |is not r|
|000006f0| 65 61 6c 6c 79 20 61 20 | 6d 6f 6e 74 68 2c 20 62 |eally a |month, b|
|00000700| 75 74 20 74 68 65 20 35 | 20 28 36 20 69 6e 20 6c |ut the 5| (6 in l|
|00000710| 65 61 70 20 79 65 61 72 | 73 29 20 64 61 79 20 70 |eap year|s) day p|
|00000720| 65 72 69 6f 64 20 6f 66 | 0a 60 73 61 6e 73 63 75 |eriod of|.`sanscu|
|00000730| 6c 6f 74 74 69 64 65 73 | 27 20 61 74 20 74 68 65 |lottides|' at the|
|00000740| 20 65 6e 64 20 6f 66 20 | 74 68 65 20 79 65 61 72 | end of |the year|
|00000750| 2e 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |."]).(de|falias '|
|00000760| 63 61 6c 65 6e 64 61 72 | 2d 61 62 73 6f 6c 75 74 |calendar|-absolut|
|00000770| 65 2d 66 72 6f 6d 2d 66 | 72 65 6e 63 68 20 23 5b |e-from-f|rench #[|
|00000780| 28 64 61 74 65 29 20 22 | 08 40 08 41 40 08 41 41 |(date) "|.@.A@.AA|
|00000790| 40 19 1a 1b 09 53 c4 5f | 09 c5 57 83 1c 00 09 c6 |@....S._|..W.....|
|000007a0| a5 82 31 00 09 53 c6 a5 | 09 53 c7 a5 5b 09 53 c8 |..1..S..|.S..[.S.|
|000007b0| a5 09 53 c9 a5 5b 5c 5c | 5c 5c 5c 5c 0b 53 ca 5f |..S..[\\|\\\\.S._|
|000007c0| 5c 6e cb 5c 5c 5c 5c 5c | 5c 5c 5c 2b 87 22 20 5b |\n.\\\\\|\\\+." [|
|000007d0| 64 61 74 65 20 79 65 61 | 72 20 64 61 79 20 6d 6f |date yea|r day mo|
|000007e0| 6e 74 68 20 33 36 35 20 | 32 30 20 34 20 31 30 30 |nth 365 |20 4 100|
|000007f0| 20 34 30 30 20 34 30 30 | 30 20 33 30 20 36 35 34 | 400 400|0 30 654|
|00000800| 34 31 34 5d 20 36 20 22 | 5c 0a 43 6f 6d 70 75 74 |414] 6 "|\.Comput|
|00000810| 65 20 61 62 73 6f 6c 75 | 74 65 20 64 61 74 65 20 |e absolu|te date |
|00000820| 66 72 6f 6d 20 46 72 65 | 6e 63 68 20 52 65 76 6f |from Fre|nch Revo|
|00000830| 6c 75 74 69 6f 6e 61 72 | 79 20 64 61 74 65 20 44 |lutionar|y date D|
|00000840| 41 54 45 2e 0a 54 68 65 | 20 61 62 73 6f 6c 75 74 |ATE..The| absolut|
|00000850| 65 20 64 61 74 65 20 69 | 73 20 74 68 65 20 6e 75 |e date i|s the nu|
|00000860| 6d 62 65 72 20 6f 66 20 | 64 61 79 73 20 65 6c 61 |mber of |days ela|
|00000870| 70 73 65 64 20 73 69 6e | 63 65 20 74 68 65 20 28 |psed sin|ce the (|
|00000880| 69 6d 61 67 69 6e 61 72 | 79 29 0a 47 72 65 67 6f |imaginar|y).Grego|
|00000890| 72 69 61 6e 20 64 61 74 | 65 20 53 75 6e 64 61 79 |rian dat|e Sunday|
|000008a0| 2c 20 44 65 63 65 6d 62 | 65 72 20 33 31 2c 20 31 |, Decemb|er 31, 1|
|000008b0| 20 42 43 2e 22 5d 29 0a | 28 64 65 66 61 6c 69 61 | BC."]).|(defalia|
|000008c0| 73 20 27 63 61 6c 65 6e | 64 61 72 2d 66 72 65 6e |s 'calen|dar-fren|
|000008d0| 63 68 2d 66 72 6f 6d 2d | 61 62 73 6f 6c 75 74 65 |ch-from-|absolute|
|000008e0| 20 23 5b 28 64 61 74 65 | 29 20 22 08 c1 57 83 0b | #[(date|) "..W..|
|000008f0| 00 c2 89 89 45 87 08 c3 | 5a c4 a5 89 1d 89 c2 1e |....E...|Z.......|
|00000900| 06 1e 07 08 c8 c9 89 0e | 07 54 45 21 59 83 33 00 |........|.TE!Y.3.|
|00000910| 0e 06 c9 5c 5c 16 06 0e | 07 54 16 07 82 18 00 0e |...\\...|.T......|
|00000920| 06 2a 5c 5c 1e 5c 6e c9 | c2 1e 06 1e 0b 08 c8 0e |.*\\.\n.|........|
|00000930| 0b cc 0e 0b 0e 5c 6e 5c | 22 0e 5c 6e 45 21 56 83 |.....\n\|".\nE!V.|
|00000940| 5f 00 0e 06 c9 5c 5c 16 | 06 0e 0b 54 16 0b 82 3f |_....\\.|...T...?|
|00000950| 00 0e 06 2a 54 1e 0d 08 | c8 0e 0d c9 0e 5c 6e 45 |...*T...|.....\nE|
|00000960| 21 53 5a 1e 0e 0e 0d 0e | 0e 0e 5c 6e 45 2c 87 22 |!SZ.....|..\nE,."|
|00000970| 20 5b 64 61 74 65 20 36 | 35 34 34 31 35 20 30 20 | [date 6|54415 0 |
|00000980| 36 35 34 34 31 34 20 33 | 36 36 20 61 70 70 72 6f |654414 3|66 appro|
|00000990| 78 20 73 75 6d 20 79 20 | 63 61 6c 65 6e 64 61 72 |x sum y |calendar|
|000009a0| 2d 61 62 73 6f 6c 75 74 | 65 2d 66 72 6f 6d 2d 66 |-absolut|e-from-f|
|000009b0| 72 65 6e 63 68 20 31 20 | 79 65 61 72 20 6d 20 66 |rench 1 |year m f|
|000009c0| 72 65 6e 63 68 2d 63 61 | 6c 65 6e 64 61 72 2d 6c |rench-ca|lendar-l|
|000009d0| 61 73 74 2d 64 61 79 2d | 6f 66 2d 6d 6f 6e 74 68 |ast-day-|of-month|
|000009e0| 20 6d 6f 6e 74 68 20 64 | 61 79 5d 20 37 20 22 5c | month d|ay] 7 "\|
|000009f0| 0a 43 6f 6d 70 75 74 65 | 20 74 68 65 20 46 72 65 |.Compute| the Fre|
|00000a00| 6e 63 68 20 52 65 76 6f | 6c 75 74 69 6f 6e 61 72 |nch Revo|lutionar|
|00000a10| 79 20 65 71 75 69 76 61 | 6c 65 6e 74 20 66 6f 72 |y equiva|lent for|
|00000a20| 20 61 62 73 6f 6c 75 74 | 65 20 64 61 74 65 20 44 | absolut|e date D|
|00000a30| 41 54 45 2e 0a 54 68 65 | 20 72 65 73 75 6c 74 20 |ATE..The| result |
|00000a40| 69 73 20 61 20 6c 69 73 | 74 20 6f 66 20 74 68 65 |is a lis|t of the|
|00000a50| 20 66 6f 72 6d 20 28 4d | 4f 4e 54 48 20 44 41 59 | form (M|ONTH DAY|
|00000a60| 20 59 45 41 52 29 2e 0a | 54 68 65 20 61 62 73 6f | YEAR)..|The abso|
|00000a70| 6c 75 74 65 20 64 61 74 | 65 20 69 73 20 74 68 65 |lute dat|e is the|
|00000a80| 20 6e 75 6d 62 65 72 20 | 6f 66 20 64 61 79 73 20 | number |of days |
|00000a90| 65 6c 61 70 73 65 64 20 | 73 69 6e 63 65 20 74 68 |elapsed |since th|
|00000aa0| 65 0a 28 69 6d 61 67 69 | 6e 61 72 79 29 20 47 72 |e.(imagi|nary) Gr|
|00000ab0| 65 67 6f 72 69 61 6e 20 | 64 61 74 65 20 53 75 6e |egorian |date Sun|
|00000ac0| 64 61 79 2c 20 44 65 63 | 65 6d 62 65 72 20 33 31 |day, Dec|ember 31|
|00000ad0| 2c 20 31 20 42 43 2e 22 | 5d 29 0a 28 64 65 66 61 |, 1 BC."|]).(defa|
|00000ae0| 6c 69 61 73 20 27 63 61 | 6c 65 6e 64 61 72 2d 70 |lias 'ca|lendar-p|
|00000af0| 72 69 6e 74 2d 66 72 65 | 6e 63 68 2d 64 61 74 65 |rint-fre|nch-date|
|00000b00| 20 23 5b 6e 69 6c 20 22 | c0 c1 20 86 09 00 c2 c3 | #[nil "|.. .....|
|00000b10| 21 41 41 40 1c c1 20 86 | 15 00 c2 c3 21 40 1d c1 |!AA@.. .|....!@..|
|00000b20| 20 86 1f 00 c2 c3 21 41 | 40 1e 06 c1 20 86 2b 00 | .....!A|@... .+.|
|00000b30| c2 c3 21 41 41 40 1c 0e | 06 0d 53 c7 5f 5c 5c 1e |..!AA@..|..S._\\.|
|00000b40| 08 0d c9 56 83 67 00 0e | 08 0d ca 5f cb 5c 5c cc |...V.g..|..._.\\.|
|00000b50| a5 5a 16 08 0c ca a6 cd | 55 83 67 00 0c ce a6 cd |.Z......|U.g.....|
|00000b60| 55 83 62 00 0c cf a6 cd | 55 83 67 00 0e 08 54 16 |U.b.....|U.g...T.|
|00000b70| 08 0e 08 2c 0c 53 d0 5f | 0c 53 ca a5 0c 53 ce a5 |...,.S._|.S...S..|
|00000b80| 5b 0c 53 cf a5 5c 5c 5c | 5c 5c 5c 5c 5c 29 21 89 |[.S..\\\|\\\\\)!.|
|00000b90| 1e 11 41 41 40 1e 12 0e | 11 40 1e 13 0e 11 41 40 |..AA@...|.@....A@|
|00000ba0| 1e 14 0e 12 d5 57 83 a1 | 00 d6 d7 21 82 d2 00 0e |.....W..|...!....|
|00000bb0| 13 d8 55 83 b6 00 d6 d9 | 0e 1a 0e 14 53 48 0e 12 |..U.....|....SH..|
|00000bc0| 23 82 d2 00 d6 db dc 0e | 14 53 cc a5 54 dd 5c 22 |#.......|.S..T.\"|
|00000bd0| 0e 1e 0e 14 53 cc a6 48 | 0e 1f 0e 13 53 48 0e 12 |....S..H|....SH..|
|00000be0| 25 2c 87 22 20 5b 63 61 | 6c 65 6e 64 61 72 2d 66 |%,." [ca|lendar-f|
|00000bf0| 72 65 6e 63 68 2d 66 72 | 6f 6d 2d 61 62 73 6f 6c |rench-fr|om-absol|
|00000c00| 75 74 65 20 63 61 6c 65 | 6e 64 61 72 2d 63 75 72 |ute cale|ndar-cur|
|00000c10| 73 6f 72 2d 74 6f 2d 64 | 61 74 65 20 65 72 72 6f |sor-to-d|ate erro|
|00000c20| 72 20 22 43 75 72 73 6f | 72 20 69 73 20 6e 6f 74 |r "Curso|r is not|
|00000c30| 20 6f 6e 20 61 20 64 61 | 74 65 21 22 20 79 65 61 | on a da|te!" yea|
|00000c40| 72 20 6d 6f 6e 74 68 20 | 64 61 79 20 33 31 20 64 |r month |day 31 d|
|00000c50| 61 79 2d 6f 66 2d 79 65 | 61 72 20 32 20 34 20 32 |ay-of-ye|ar 2 4 2|
|00000c60| 33 20 31 30 20 30 20 31 | 30 30 20 34 30 30 20 33 |3 10 0 1|00 400 3|
|00000c70| 36 35 20 66 72 65 6e 63 | 68 2d 64 61 74 65 20 79 |65 frenc|h-date y|
|00000c80| 20 6d 20 64 20 31 20 6d | 65 73 73 61 67 65 20 22 | m d 1 m|essage "|
|00000c90| 44 61 74 65 20 69 73 20 | 70 72 65 2d 46 72 65 6e |Date is |pre-Fren|
|00000ca0| 63 68 20 52 65 76 6f 6c | 75 74 69 6f 6e 22 20 31 |ch Revol|ution" 1|
|00000cb0| 33 20 22 4a 6f 75 72 20 | 25 73 20 64 65 20 6c 27 |3 "Jour |%s de l'|
|00000cc0| 41 6e 6e 65 27 65 20 25 | 64 20 64 65 20 6c 61 20 |Anne'e %|d de la |
|00000cd0| 52 65 76 6f 6c 75 74 69 | 6f 6e 22 20 66 72 65 6e |Revoluti|on" fren|
|00000ce0| 63 68 2d 63 61 6c 65 6e | 64 61 72 2d 73 70 65 63 |ch-calen|dar-spec|
|00000cf0| 69 61 6c 2d 64 61 79 73 | 2d 61 72 72 61 79 20 22 |ial-days|-array "|
|00000d00| 44 65 63 61 64 65 20 25 | 73 2c 20 25 73 20 64 65 |Decade %|s, %s de|
|00000d10| 20 25 73 20 64 65 20 6c | 27 41 6e 6e 65 27 65 20 | %s de l|'Anne'e |
|00000d20| 25 64 20 64 65 20 6c 61 | 20 52 65 76 6f 6c 75 74 |%d de la| Revolut|
|00000d30| 69 6f 6e 22 20 6d 61 6b | 65 2d 73 74 72 69 6e 67 |ion" mak|e-string|
|00000d40| 20 37 33 20 66 72 65 6e | 63 68 2d 63 61 6c 65 6e | 73 fren|ch-calen|
|00000d50| 64 61 72 2d 64 61 79 2d | 6e 61 6d 65 2d 61 72 72 |dar-day-|name-arr|
|00000d60| 61 79 20 66 72 65 6e 63 | 68 2d 63 61 6c 65 6e 64 |ay frenc|h-calend|
|00000d70| 61 72 2d 6d 6f 6e 74 68 | 2d 6e 61 6d 65 2d 61 72 |ar-month|-name-ar|
|00000d80| 72 61 79 5d 20 38 20 22 | 5c 0a 53 68 6f 77 20 74 |ray] 8 "|\.Show t|
|00000d90| 68 65 20 46 72 65 6e 63 | 68 20 52 65 76 6f 6c 75 |he Frenc|h Revolu|
|00000da0| 74 69 6f 6e 61 72 79 20 | 63 61 6c 65 6e 64 61 72 |tionary |calendar|
|00000db0| 20 65 71 75 69 76 61 6c | 65 6e 74 20 6f 66 20 74 | equival|ent of t|
|00000dc0| 68 65 20 73 65 6c 65 63 | 74 65 64 20 64 61 74 65 |he selec|ted date|
|00000dd0| 2e 22 20 6e 69 6c 5d 29 | 0a 28 64 65 66 61 6c 69 |." nil])|.(defali|
|00000de0| 61 73 20 27 63 61 6c 65 | 6e 64 61 72 2d 67 6f 74 |as 'cale|ndar-got|
|00000df0| 6f 2d 66 72 65 6e 63 68 | 2d 64 61 74 65 20 23 5b |o-french|-date #[|
|00000e00| 28 64 61 74 65 20 26 6f | 70 74 69 6f 6e 61 6c 20 |(date &o|ptional |
|00000e10| 6e 6f 65 63 68 6f 29 20 | 22 c0 c1 c2 0b 21 21 21 |noecho) |"....!!!|
|00000e20| 88 0c 86 0e 00 c5 20 87 | 22 20 5b 63 61 6c 65 6e |...... .|" [calen|
|00000e30| 64 61 72 2d 67 6f 74 6f | 2d 64 61 74 65 20 63 61 |dar-goto|-date ca|
|00000e40| 6c 65 6e 64 61 72 2d 67 | 72 65 67 6f 72 69 61 6e |lendar-g|regorian|
|00000e50| 2d 66 72 6f 6d 2d 61 62 | 73 6f 6c 75 74 65 20 63 |-from-ab|solute c|
|00000e60| 61 6c 65 6e 64 61 72 2d | 61 62 73 6f 6c 75 74 65 |alendar-|absolute|
|00000e70| 2d 66 72 6f 6d 2d 66 72 | 65 6e 63 68 20 64 61 74 |-from-fr|ench dat|
|00000e80| 65 20 6e 6f 65 63 68 6f | 20 63 61 6c 65 6e 64 61 |e noecho| calenda|
|00000e90| 72 2d 70 72 69 6e 74 2d | 66 72 65 6e 63 68 2d 64 |r-print-|french-d|
|00000ea0| 61 74 65 5d 20 34 20 22 | 5c 0a 4d 6f 76 65 20 63 |ate] 4 "|\.Move c|
|00000eb0| 75 72 73 6f 72 20 74 6f | 20 46 72 65 6e 63 68 20 |ursor to| French |
|00000ec0| 52 65 76 6f 6c 75 74 69 | 6f 6e 61 72 79 20 64 61 |Revoluti|onary da|
|00000ed0| 74 65 20 44 41 54 45 2e | 0a 45 63 68 6f 20 46 72 |te DATE.|.Echo Fr|
|00000ee0| 65 6e 63 68 20 52 65 76 | 6f 6c 75 74 69 6f 6e 61 |ench Rev|olutiona|
|00000ef0| 72 79 20 64 61 74 65 20 | 75 6e 6c 65 73 73 20 4e |ry date |unless N|
|00000f00| 4f 45 43 48 4f 20 69 73 | 20 74 2e 22 20 28 62 79 |OECHO is| t." (by|
|00000f10| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 c2 c3 c4 c5 20 |te-code |"...... |
|00000f20| 41 41 40 1e 06 c5 20 40 | 1e 07 c5 20 41 40 1e 08 |AA@... @|... A@..|
|00000f30| c5 20 41 41 40 1e 06 0e | 08 0e 07 53 c9 5f 5c 5c |. AA@...|...S._\\|
|00000f40| 1e 5c 6e 0e 07 cb 56 83 | 5c 5c 00 0e 5c 6e 0e 07 |.\n...V.|\\..\n..|
|00000f50| cc 5f cd 5c 5c ce a5 5a | 16 5c 6e 0e 06 cc a6 cf |._.\\..Z|.\n.....|
|00000f60| 55 83 5c 5c 00 0e 06 d0 | a6 cf 55 83 57 00 0e 06 |U.\\....|..U.W...|
|00000f70| d1 a6 cf 55 83 5c 5c 00 | 0e 5c 6e 54 16 5c 6e 0e |...U.\\.|.\nT.\n.|
|00000f80| 5c 6e 2c 0e 06 53 d2 5f | 0e 06 53 cc a5 0e 06 53 |\n,..S._|..S....S|
|00000f90| d0 a5 5b 0e 06 53 d1 a5 | 5c 5c 5c 5c 5c 5c 5c 5c |..[..S..|\\\\\\\\|
|00000fa0| 29 21 41 41 40 21 23 1e | 06 d3 d4 d5 0e 16 d7 0e |)!AA@!#.|........|
|00000fb0| 06 21 83 95 00 d3 d8 0e | 19 5c 22 82 9c 00 d3 da |.!......|.\".....|
|00000fc0| 0e 19 5c 22 9f 41 5c 22 | 5c 22 1e 1b dc 1e 1d de |..\".A\"|\"......|
|00000fd0| df e0 e1 0e 1b e2 dc 24 | 21 e3 0e 1b e4 e5 23 5c |.......$|!.....#\|
|00000fe0| 22 41 89 1e 07 e6 56 83 | c1 00 e4 82 c5 00 c0 e7 |"A....V.|........|
|00000ff0| e8 5c 22 1e 29 0e 07 e6 | 56 83 d5 00 0e 07 e6 5a |.\".)...|V......Z|
|00001000| 82 d9 00 c0 ea eb 5c 22 | 1e 08 0e 07 e6 56 83 e6 |......\"|.....V..|
|00001010| 00 ec 82 e8 00 0e 07 1e | 07 0e 08 0e 29 53 ce 5f |........|....)S._|
|00001020| 5c 5c 1e 08 0e 07 0e 08 | 0e 06 45 2e 08 43 87 22 |\\......|..E..C."|
|00001030| 20 5b 63 61 6c 65 6e 64 | 61 72 2d 72 65 61 64 20 | [calend|ar-read |
|00001040| 22 41 6e 6e 65 27 65 20 | 64 65 20 6c 61 20 52 65 |"Anne'e |de la Re|
|00001050| 76 6f 6c 75 74 69 6f 6e | 20 28 3e 30 29 3a 20 22 |volution| (>0): "|
|00001060| 20 28 6c 61 6d 62 64 61 | 20 28 78 29 20 28 3e 20 | (lambda| (x) (> |
|00001070| 78 20 30 29 29 20 69 6e | 74 2d 74 6f 2d 73 74 72 |x 0)) in|t-to-str|
|00001080| 69 6e 67 20 63 61 6c 65 | 6e 64 61 72 2d 66 72 65 |ing cale|ndar-fre|
|00001090| 6e 63 68 2d 66 72 6f 6d | 2d 61 62 73 6f 6c 75 74 |nch-from|-absolut|
|000010a0| 65 20 63 61 6c 65 6e 64 | 61 72 2d 63 75 72 72 65 |e calend|ar-curre|
|000010b0| 6e 74 2d 64 61 74 65 20 | 79 65 61 72 20 6d 6f 6e |nt-date |year mon|
|000010c0| 74 68 20 64 61 79 20 33 | 31 20 64 61 79 2d 6f 66 |th day 3|1 day-of|
|000010d0| 2d 79 65 61 72 20 32 20 | 34 20 32 33 20 31 30 20 |-year 2 |4 23 10 |
|000010e0| 30 20 31 30 30 20 34 30 | 30 20 33 36 35 20 6d 61 |0 100 40|0 365 ma|
|000010f0| 70 63 61 72 20 6c 69 73 | 74 20 61 70 70 65 6e 64 |pcar lis|t append|
|00001100| 20 66 72 65 6e 63 68 2d | 63 61 6c 65 6e 64 61 72 | french-|calendar|
|00001110| 2d 6d 6f 6e 74 68 2d 6e | 61 6d 65 2d 61 72 72 61 |-month-n|ame-arra|
|00001120| 79 20 66 72 65 6e 63 68 | 2d 63 61 6c 65 6e 64 61 |y french|-calenda|
|00001130| 72 2d 6c 65 61 70 2d 79 | 65 61 72 2d 70 20 23 5b |r-leap-y|ear-p #[|
|00001140| 28 78 29 20 22 c0 09 50 | 87 22 20 5b 22 4a 6f 75 |(x) "..P|." ["Jou|
|00001150| 72 20 22 20 78 5d 20 32 | 5d 20 66 72 65 6e 63 68 |r " x] 2|] french|
|00001160| 2d 63 61 6c 65 6e 64 61 | 72 2d 73 70 65 63 69 61 |-calenda|r-specia|
|00001170| 6c 2d 64 61 79 73 2d 61 | 72 72 61 79 20 23 5b 28 |l-days-a|rray #[(|
|00001180| 78 29 20 22 c0 09 50 87 | 22 20 5b 22 4a 6f 75 72 |x) "..P.|" ["Jour|
|00001190| 20 22 20 78 5d 20 32 5d | 20 6d 6f 6e 74 68 2d 6c | " x] 2]| month-l|
|000011a0| 69 73 74 20 74 20 63 6f | 6d 70 6c 65 74 69 6f 6e |ist t co|mpletion|
|000011b0| 2d 69 67 6e 6f 72 65 2d | 63 61 73 65 20 61 73 73 |-ignore-|case ass|
|000011c0| 6f 63 20 63 61 70 69 74 | 61 6c 69 7a 65 20 63 6f |oc capit|alize co|
|000011d0| 6d 70 6c 65 74 69 6e 67 | 2d 72 65 61 64 20 22 4d |mpleting|-read "M|
|000011e0| 6f 69 73 20 6f 75 20 53 | 61 6e 73 63 75 6c 6f 74 |ois ou S|ansculot|
|000011f0| 74 69 64 65 3a 20 22 20 | 6e 69 6c 20 63 61 6c 65 |tide: " |nil cale|
|00001200| 6e 64 61 72 2d 6d 61 6b | 65 2d 61 6c 69 73 74 20 |ndar-mak|e-alist |
|00001210| 31 20 28 6c 61 6d 62 64 | 61 20 28 78 29 20 28 63 |1 (lambd|a (x) (c|
|00001220| 61 70 69 74 61 6c 69 7a | 65 20 28 63 61 72 20 78 |apitaliz|e (car x|
|00001230| 29 29 29 20 31 32 20 22 | 44 65 27 63 61 64 65 20 |))) 12 "|De'cade |
|00001240| 28 31 2d 33 29 3a 20 22 | 20 28 6c 61 6d 62 64 61 |(1-3): "| (lambda|
|00001250| 20 28 78 29 20 28 6d 65 | 6d 71 20 78 20 28 71 75 | (x) (me|mq x (qu|
|00001260| 6f 74 65 20 28 31 20 32 | 20 33 29 29 29 29 20 64 |ote (1 2| 3)))) d|
|00001270| 65 63 61 64 65 20 22 4a | 6f 75 72 20 28 31 2d 31 |ecade "J|our (1-1|
|00001280| 30 29 29 3a 20 22 20 28 | 6c 61 6d 62 64 61 20 28 |0)): " (|lambda (|
|00001290| 78 29 20 28 61 6e 64 20 | 28 3c 3d 20 31 20 78 29 |x) (and |(<= 1 x)|
|000012a0| 20 28 3c 3d 20 78 20 31 | 30 29 29 29 20 31 33 5d | (<= x 1|0))) 13]|
|000012b0| 20 31 32 29 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 | 12)]).(|defalias|
|000012c0| 20 27 64 69 61 72 79 2d | 66 72 65 6e 63 68 2d 64 | 'diary-|french-d|
|000012d0| 61 74 65 20 23 5b 6e 69 | 6c 20 22 c0 09 41 41 40 |ate #[ni|l "..AA@|
|000012e0| 1a 09 40 1b 09 41 40 1c | 09 41 41 40 1a 0c 0b 53 |..@..A@.|.AA@...S|
|000012f0| c5 5f 5c 5c 1e 06 0b c7 | 56 83 49 00 0e 06 0b c8 |._\\....|V.I.....|
|00001300| 5f c9 5c 5c ca a5 5a 16 | 06 5c 6e c8 a6 cb 55 83 |_.\\..Z.|.\n...U.|
|00001310| 49 00 5c 6e cc a6 cb 55 | 83 44 00 5c 6e cd a6 cb |I.\n...U|.D.\n...|
|00001320| 55 83 49 00 0e 06 54 16 | 06 0e 06 2c 5c 6e 53 ce |U.I...T.|...,\nS.|
|00001330| 5f 5c 6e 53 c8 a5 5c 6e | 53 cc a5 5b 5c 6e 53 cd |_\nS..\n|S..[\nS.|
|00001340| a5 5c 5c 5c 5c 5c 5c 5c | 5c 29 21 89 1e 0f 41 41 |.\\\\\\\|\)!...AA|
|00001350| 40 1e 10 0e 0f 40 1e 11 | 0e 0f 41 40 1e 12 0e 10 |@....@..|..A@....|
|00001360| cb 56 85 ae 00 0e 11 d3 | 55 83 92 00 d4 d5 0e 16 |.V......|U.......|
|00001370| 0e 12 53 48 0e 10 23 82 | ae 00 d4 d7 d8 0e 12 53 |..SH..#.|.......S|
|00001380| ca a5 54 d9 5c 22 0e 1a | 0e 12 53 ca a6 48 0e 1b |..T.\"..|..S..H..|
|00001390| 0e 11 53 48 0e 10 25 2c | 87 22 20 5b 63 61 6c 65 |..SH..%,|." [cale|
|000013a0| 6e 64 61 72 2d 66 72 65 | 6e 63 68 2d 66 72 6f 6d |ndar-fre|nch-from|
|000013b0| 2d 61 62 73 6f 6c 75 74 | 65 20 64 61 74 65 20 79 |-absolut|e date y|
|000013c0| 65 61 72 20 6d 6f 6e 74 | 68 20 64 61 79 20 33 31 |ear mont|h day 31|
|000013d0| 20 64 61 79 2d 6f 66 2d | 79 65 61 72 20 32 20 34 | day-of-|year 2 4|
|000013e0| 20 32 33 20 31 30 20 30 | 20 31 30 30 20 34 30 30 | 23 10 0| 100 400|
|000013f0| 20 33 36 35 20 66 72 65 | 6e 63 68 2d 64 61 74 65 | 365 fre|nch-date|
|00001400| 20 79 20 6d 20 64 20 31 | 33 20 66 6f 72 6d 61 74 | y m d 1|3 format|
|00001410| 20 22 4a 6f 75 72 20 25 | 73 20 64 65 20 6c 27 41 | "Jour %|s de l'A|
|00001420| 6e 6e 65 27 65 20 25 64 | 20 64 65 20 6c 61 20 52 |nne'e %d| de la R|
|00001430| 65 76 6f 6c 75 74 69 6f | 6e 22 20 66 72 65 6e 63 |evolutio|n" frenc|
|00001440| 68 2d 63 61 6c 65 6e 64 | 61 72 2d 73 70 65 63 69 |h-calend|ar-speci|
|00001450| 61 6c 2d 64 61 79 73 2d | 61 72 72 61 79 20 22 44 |al-days-|array "D|
|00001460| 65 63 61 64 65 20 25 73 | 2c 20 25 73 20 64 65 20 |ecade %s|, %s de |
|00001470| 25 73 20 64 65 20 6c 27 | 41 6e 6e 65 27 65 20 25 |%s de l'|Anne'e %|
|00001480| 64 20 64 65 20 6c 61 20 | 52 65 76 6f 6c 75 74 69 |d de la |Revoluti|
|00001490| 6f 6e 22 20 6d 61 6b 65 | 2d 73 74 72 69 6e 67 20 |on" make|-string |
|000014a0| 37 33 20 66 72 65 6e 63 | 68 2d 63 61 6c 65 6e 64 |73 frenc|h-calend|
|000014b0| 61 72 2d 64 61 79 2d 6e | 61 6d 65 2d 61 72 72 61 |ar-day-n|ame-arra|
|000014c0| 79 20 66 72 65 6e 63 68 | 2d 63 61 6c 65 6e 64 61 |y french|-calenda|
|000014d0| 72 2d 6d 6f 6e 74 68 2d | 6e 61 6d 65 2d 61 72 72 |r-month-|name-arr|
|000014e0| 61 79 5d 20 38 20 22 5c | 0a 46 72 65 6e 63 68 20 |ay] 8 "\|.French |
|000014f0| 63 61 6c 65 6e 64 61 72 | 20 65 71 75 69 76 61 6c |calendar| equival|
|00001500| 65 6e 74 20 6f 66 20 64 | 61 74 65 20 64 69 61 72 |ent of d|ate diar|
|00001510| 79 20 65 6e 74 72 79 2e | 22 5d 29 0a 28 70 72 6f |y entry.|"]).(pro|
|00001520| 76 69 64 65 20 28 71 75 | 6f 74 65 20 63 61 6c 2d |vide (qu|ote cal-|
|00001530| 66 72 65 6e 63 68 29 29 | 0a                      |french))|.       |
+--------+-------------------------+-------------------------+--------+--------+