/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / emacs-19.16 / lisp / timezone.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 54 75 | 65 20 4a 75 6c 20 20 36 |du on Tu|e Jul  6|
|00000040| 20 30 30 3a 31 32 3a 31 | 30 20 31 39 39 33 0a 3b | 00:12:1|0 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 74 69 6d | 65 7a 6f 6e 65 2e 65 6c |lisp/tim|ezone.el|
|00000080| 0a 3b 3b 3b 20 65 6d 61 | 63 73 20 76 65 72 73 69 |.;;; ema|cs versi|
|00000090| 6f 6e 20 31 39 2e 31 35 | 2e 31 36 2e 0a 3b 3b 3b |on 19.15|.16..;;;|
|000000a0| 20 62 79 74 65 63 6f 6d | 70 20 76 65 72 73 69 6f | bytecom|p versio|
|000000b0| 6e 20 46 53 46 20 32 2e | 31 30 0a 3b 3b 3b 20 6f |n FSF 2.|10.;;; o|
|000000c0| 70 74 69 6d 69 7a 61 74 | 69 6f 6e 20 69 73 20 6f |ptimizat|ion is o|
|000000d0| 6e 2e 0a 3b 3b 3b 20 74 | 68 69 73 20 66 69 6c 65 |n..;;; t|his file|
|000000e0| 20 75 73 65 73 20 6f 70 | 63 6f 64 65 73 20 77 68 | uses op|codes wh|
|000000f0| 69 63 68 20 64 6f 20 6e | 6f 74 20 65 78 69 73 74 |ich do n|ot exist|
|00000100| 20 69 6e 20 45 6d 61 63 | 73 20 31 38 2e 0a 0a 28 | in Emac|s 18...(|
|00000110| 69 66 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |if (and |(boundp |
|00000120| 27 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 29 0a |'emacs-v|ersion).|
|00000130| 09 20 28 6f 72 20 28 61 | 6e 64 20 28 62 6f 75 6e |. (or (a|nd (boun|
|00000140| 64 70 20 27 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |dp 'epoc|h::versi|
|00000150| 6f 6e 29 20 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |on) epoc|h::versi|
|00000160| 6f 6e 29 0a 09 20 20 20 | 20 20 28 73 74 72 69 6e |on)..   |  (strin|
|00000170| 67 2d 6c 65 73 73 70 20 | 65 6d 61 63 73 2d 76 65 |g-lessp |emacs-ve|
|00000180| 72 73 69 6f 6e 20 22 31 | 39 22 29 29 29 0a 20 20 |rsion "1|9"))).  |
|00000190| 20 20 28 65 72 72 6f 72 | 20 22 54 68 69 73 20 66 |  (error| "This f|
|000001a0| 69 6c 65 20 77 61 73 20 | 63 6f 6d 70 69 6c 65 64 |ile was |compiled|
|000001b0| 20 66 6f 72 20 45 6d 61 | 63 73 20 31 39 22 29 29 | for Ema|cs 19"))|
|000001c0| 0a 0a 28 70 72 6f 76 69 | 64 65 20 28 71 75 6f 74 |..(provi|de (quot|
|000001d0| 65 20 74 69 6d 65 7a 6f | 6e 65 29 29 0a 28 64 65 |e timezo|ne)).(de|
|000001e0| 66 76 61 72 20 74 69 6d | 65 7a 6f 6e 65 2d 77 6f |fvar tim|ezone-wo|
|000001f0| 72 6c 64 2d 74 69 6d 65 | 7a 6f 6e 65 73 20 28 71 |rld-time|zones (q|
|00000200| 75 6f 74 65 20 28 28 22 | 50 53 54 22 20 2e 20 2d |uote (("|PST" . -|
|00000210| 38 30 30 29 20 28 22 50 | 44 54 22 20 2e 20 2d 37 |800) ("P|DT" . -7|
|00000220| 30 30 29 20 28 22 4d 53 | 54 22 20 2e 20 2d 37 30 |00) ("MS|T" . -70|
|00000230| 30 29 20 28 22 4d 44 54 | 22 20 2e 20 2d 36 30 30 |0) ("MDT|" . -600|
|00000240| 29 20 28 22 43 53 54 22 | 20 2e 20 2d 36 30 30 29 |) ("CST"| . -600)|
|00000250| 20 28 22 43 44 54 22 20 | 2e 20 2d 35 30 30 29 20 | ("CDT" |. -500) |
|00000260| 28 22 45 53 54 22 20 2e | 20 2d 35 30 30 29 20 28 |("EST" .| -500) (|
|00000270| 22 45 44 54 22 20 2e 20 | 2d 34 30 30 29 20 28 22 |"EDT" . |-400) ("|
|00000280| 41 53 54 22 20 2e 20 2d | 34 30 30 29 20 28 22 4e |AST" . -|400) ("N|
|00000290| 53 54 22 20 2e 20 2d 33 | 33 30 29 20 28 22 47 4d |ST" . -3|30) ("GM|
|000002a0| 54 22 20 2e 20 30 29 20 | 28 22 42 53 54 22 20 2e |T" . 0) |("BST" .|
|000002b0| 20 31 30 30 29 20 28 22 | 4d 45 54 22 20 2e 20 31 | 100) ("|MET" . 1|
|000002c0| 30 30 29 20 28 22 45 45 | 54 22 20 2e 20 32 30 30 |00) ("EE|T" . 200|
|000002d0| 29 20 28 22 4a 53 54 22 | 20 2e 20 39 30 30 29 20 |) ("JST"| . 900) |
|000002e0| 28 22 47 4d 54 2b 31 22 | 20 2e 20 31 30 30 29 20 |("GMT+1"| . 100) |
|000002f0| 28 22 47 4d 54 2b 32 22 | 20 2e 20 32 30 30 29 20 |("GMT+2"| . 200) |
|00000300| 28 22 47 4d 54 2b 33 22 | 20 2e 20 33 30 30 29 20 |("GMT+3"| . 300) |
|00000310| 28 22 47 4d 54 2b 34 22 | 20 2e 20 34 30 30 29 20 |("GMT+4"| . 400) |
|00000320| 28 22 47 4d 54 2b 35 22 | 20 2e 20 35 30 30 29 20 |("GMT+5"| . 500) |
|00000330| 28 22 47 4d 54 2b 36 22 | 20 2e 20 36 30 30 29 20 |("GMT+6"| . 600) |
|00000340| 28 22 47 4d 54 2b 37 22 | 20 2e 20 37 30 30 29 20 |("GMT+7"| . 700) |
|00000350| 28 22 47 4d 54 2b 38 22 | 20 2e 20 38 30 30 29 20 |("GMT+8"| . 800) |
|00000360| 28 22 47 4d 54 2b 39 22 | 20 2e 20 39 30 30 29 20 |("GMT+9"| . 900) |
|00000370| 28 22 47 4d 54 2b 31 30 | 22 20 2e 20 31 30 30 30 |("GMT+10|" . 1000|
|00000380| 29 20 28 22 47 4d 54 2b | 31 31 22 20 2e 20 31 31 |) ("GMT+|11" . 11|
|00000390| 30 30 29 20 28 22 47 4d | 54 2b 31 32 22 20 2e 20 |00) ("GM|T+12" . |
|000003a0| 31 32 30 30 29 20 28 22 | 47 4d 54 2b 31 33 22 20 |1200) ("|GMT+13" |
|000003b0| 2e 20 31 33 30 30 29 20 | 28 22 47 4d 54 2d 31 22 |. 1300) |("GMT-1"|
|000003c0| 20 2e 20 2d 31 30 30 29 | 20 28 22 47 4d 54 2d 32 | . -100)| ("GMT-2|
|000003d0| 22 20 2e 20 2d 32 30 30 | 29 20 28 22 47 4d 54 2d |" . -200|) ("GMT-|
|000003e0| 33 22 20 2e 20 2d 33 30 | 30 29 20 28 22 47 4d 54 |3" . -30|0) ("GMT|
|000003f0| 2d 34 22 20 2e 20 2d 34 | 30 30 29 20 28 22 47 4d |-4" . -4|00) ("GM|
|00000400| 54 2d 35 22 20 2e 20 2d | 35 30 30 29 20 28 22 47 |T-5" . -|500) ("G|
|00000410| 4d 54 2d 36 22 20 2e 20 | 2d 36 30 30 29 20 28 22 |MT-6" . |-600) ("|
|00000420| 47 4d 54 2d 37 22 20 2e | 20 2d 37 30 30 29 20 28 |GMT-7" .| -700) (|
|00000430| 22 47 4d 54 2d 38 22 20 | 2e 20 2d 38 30 30 29 20 |"GMT-8" |. -800) |
|00000440| 28 22 47 4d 54 2d 39 22 | 20 2e 20 2d 39 30 30 29 |("GMT-9"| . -900)|
|00000450| 20 28 22 47 4d 54 2d 31 | 30 22 20 2e 20 2d 31 30 | ("GMT-1|0" . -10|
|00000460| 30 30 29 20 28 22 47 4d | 54 2d 31 31 22 20 2e 20 |00) ("GM|T-11" . |
|00000470| 2d 31 31 30 30 29 20 28 | 22 47 4d 54 2d 31 32 22 |-1100) (|"GMT-12"|
|00000480| 20 2e 20 2d 31 32 30 30 | 29 29 29 20 22 5c 0a 2a | . -1200|))) "\.*|
|00000490| 54 69 6d 65 20 64 69 66 | 66 65 72 65 6e 74 69 61 |Time dif|ferentia|
|000004a0| 6c 73 20 6f 66 20 74 69 | 6d 65 7a 6f 6e 65 20 66 |ls of ti|mezone f|
|000004b0| 72 6f 6d 20 47 4d 54 20 | 69 6e 20 2b 2d 48 48 4d |rom GMT |in +-HHM|
|000004c0| 4d 20 66 6f 72 6d 2e 0a | 54 68 69 73 20 6c 69 73 |M form..|This lis|
|000004d0| 74 20 69 73 20 6f 62 73 | 6f 6c 65 73 63 65 6e 74 |t is obs|olescent|
|000004e0| 2c 20 61 6e 64 20 69 73 | 20 70 72 65 73 65 6e 74 |, and is| present|
|000004f0| 20 6f 6e 6c 79 20 66 6f | 72 20 62 61 63 6b 77 61 | only fo|r backwa|
|00000500| 72 64 73 20 63 6f 6d 70 | 61 74 69 62 69 6c 69 74 |rds comp|atibilit|
|00000510| 79 2c 0a 62 65 63 61 75 | 73 65 20 74 69 6d 65 20 |y,.becau|se time |
|00000520| 7a 6f 6e 65 20 6e 61 6d | 65 73 20 61 72 65 20 61 |zone nam|es are a|
|00000530| 6d 62 69 67 75 6f 75 73 | 20 69 6e 20 70 72 61 63 |mbiguous| in prac|
|00000540| 74 69 63 65 2e 0a 55 73 | 65 20 60 63 75 72 72 65 |tice..Us|e `curre|
|00000550| 6e 74 2d 74 69 6d 65 2d | 7a 6f 6e 65 27 20 69 6e |nt-time-|zone' in|
|00000560| 73 74 65 61 64 2e 22 29 | 0a 28 64 65 66 76 61 72 |stead.")|.(defvar|
|00000570| 20 74 69 6d 65 7a 6f 6e | 65 2d 6d 6f 6e 74 68 73 | timezon|e-months|
|00000580| 2d 61 73 73 6f 63 20 28 | 71 75 6f 74 65 20 28 28 |-assoc (|quote ((|
|00000590| 22 4a 41 4e 22 20 2e 20 | 31 29 20 28 22 46 45 42 |"JAN" . |1) ("FEB|
|000005a0| 22 20 2e 20 32 29 20 28 | 22 4d 41 52 22 20 2e 20 |" . 2) (|"MAR" . |
|000005b0| 33 29 20 28 22 41 50 52 | 22 20 2e 20 34 29 20 28 |3) ("APR|" . 4) (|
|000005c0| 22 4d 41 59 22 20 2e 20 | 35 29 20 28 22 4a 55 4e |"MAY" . |5) ("JUN|
|000005d0| 22 20 2e 20 36 29 20 28 | 22 4a 55 4c 22 20 2e 20 |" . 6) (|"JUL" . |
|000005e0| 37 29 20 28 22 41 55 47 | 22 20 2e 20 38 29 20 28 |7) ("AUG|" . 8) (|
|000005f0| 22 53 45 50 22 20 2e 20 | 39 29 20 28 22 4f 43 54 |"SEP" . |9) ("OCT|
|00000600| 22 20 2e 20 31 30 29 20 | 28 22 4e 4f 56 22 20 2e |" . 10) |("NOV" .|
|00000610| 20 31 31 29 20 28 22 44 | 45 43 22 20 2e 20 31 32 | 11) ("D|EC" . 12|
|00000620| 29 29 29 20 22 5c 0a 41 | 6c 69 73 74 20 6f 66 20 |))) "\.A|list of |
|00000630| 66 69 72 73 74 20 74 68 | 72 65 65 20 6c 65 74 74 |first th|ree lett|
|00000640| 65 72 73 20 6f 66 20 61 | 20 6d 6f 6e 74 68 20 61 |ers of a| month a|
|00000650| 6e 64 20 69 74 73 20 6e | 75 6d 65 72 69 63 61 6c |nd its n|umerical|
|00000660| 20 72 65 70 72 65 73 65 | 6e 74 61 74 69 6f 6e 2e | represe|ntation.|
|00000670| 22 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 74 69 |").(defa|lias 'ti|
|00000680| 6d 65 7a 6f 6e 65 2d 6d | 61 6b 65 2d 64 61 74 65 |mezone-m|ake-date|
|00000690| 2d 61 72 70 61 2d 73 74 | 61 6e 64 61 72 64 20 23 |-arpa-st|andard #|
|000006a0| 5b 28 64 61 74 65 20 26 | 6f 70 74 69 6f 6e 61 6c |[(date &|optional|
|000006b0| 20 6c 6f 63 61 6c 20 74 | 69 6d 65 7a 6f 6e 65 29 | local t|imezone)|
|000006c0| 20 22 c0 09 5c 6e 0b 23 | 1c c5 0c c6 48 0c c7 48 | "..\n.#|....H..H|
|000006d0| 0c c8 48 c9 0c ca 48 0c | cb 48 0c cc 48 23 0c cd |..H...H.|.H..H#..|
|000006e0| 48 25 29 87 22 20 5b 74 | 69 6d 65 7a 6f 6e 65 2d |H%)." [t|imezone-|
|000006f0| 66 69 78 2d 74 69 6d 65 | 20 64 61 74 65 20 6c 6f |fix-time| date lo|
|00000700| 63 61 6c 20 74 69 6d 65 | 7a 6f 6e 65 20 6e 65 77 |cal time|zone new|
|00000710| 20 74 69 6d 65 7a 6f 6e | 65 2d 6d 61 6b 65 2d 61 | timezon|e-make-a|
|00000720| 72 70 61 2d 64 61 74 65 | 20 30 20 31 20 32 20 74 |rpa-date| 0 1 2 t|
|00000730| 69 6d 65 7a 6f 6e 65 2d | 6d 61 6b 65 2d 74 69 6d |imezone-|make-tim|
|00000740| 65 2d 73 74 72 69 6e 67 | 20 33 20 34 20 35 20 36 |e-string| 3 4 5 6|
|00000750| 5d 20 39 20 22 5c 0a 43 | 6f 6e 76 65 72 74 20 44 |] 9 "\.C|onvert D|
|00000760| 41 54 45 20 74 6f 20 61 | 6e 20 61 72 70 61 6e 65 |ATE to a|n arpane|
|00000770| 74 20 73 74 61 6e 64 61 | 72 64 20 64 61 74 65 2e |t standa|rd date.|
|00000780| 0a 4f 70 74 69 6f 6e 61 | 6c 20 31 73 74 20 61 72 |.Optiona|l 1st ar|
|00000790| 67 75 6d 65 6e 74 20 4c | 4f 43 41 4c 20 73 70 65 |gument L|OCAL spe|
|000007a0| 63 69 66 69 65 73 20 74 | 68 65 20 64 65 66 61 75 |cifies t|he defau|
|000007b0| 6c 74 20 6c 6f 63 61 6c | 20 74 69 6d 65 7a 6f 6e |lt local| timezon|
|000007c0| 65 20 6f 66 20 74 68 65 | 20 44 41 54 45 3b 0a 69 |e of the| DATE;.i|
|000007d0| 66 20 6e 69 6c 2c 20 47 | 4d 54 20 69 73 20 61 73 |f nil, G|MT is as|
|000007e0| 73 75 6d 65 64 2e 0a 4f | 70 74 69 6f 6e 61 6c 20 |sumed..O|ptional |
|000007f0| 32 6e 64 20 61 72 67 75 | 6d 65 6e 74 20 54 49 4d |2nd argu|ment TIM|
|00000800| 45 5a 4f 4e 45 20 73 70 | 65 63 69 66 69 65 73 20 |EZONE sp|ecifies |
|00000810| 61 20 74 69 6d 65 20 7a | 6f 6e 65 20 74 6f 20 62 |a time z|one to b|
|00000820| 65 20 72 65 70 72 65 73 | 65 6e 74 65 64 20 69 6e |e repres|ented in|
|00000830| 3b 0a 69 66 20 6e 69 6c | 2c 20 74 68 65 20 6c 6f |;.if nil|, the lo|
|00000840| 63 61 6c 20 74 69 6d 65 | 20 7a 6f 6e 65 20 69 73 |cal time| zone is|
|00000850| 20 61 73 73 75 6d 65 64 | 2e 22 5d 29 0a 28 64 65 | assumed|."]).(de|
|00000860| 66 61 6c 69 61 73 20 27 | 74 69 6d 65 7a 6f 6e 65 |falias '|timezone|
|00000870| 2d 6d 61 6b 65 2d 64 61 | 74 65 2d 73 6f 72 74 61 |-make-da|te-sorta|
|00000880| 62 6c 65 20 23 5b 28 64 | 61 74 65 20 26 6f 70 74 |ble #[(d|ate &opt|
|00000890| 69 6f 6e 61 6c 20 6c 6f | 63 61 6c 20 74 69 6d 65 |ional lo|cal time|
|000008a0| 7a 6f 6e 65 29 20 22 c0 | 09 5c 6e 0b 23 1c c5 0c |zone) ".|.\n.#...|
|000008b0| c6 48 0c c7 48 0c c8 48 | c9 0c ca 48 0c cb 48 0c |.H..H..H|...H..H.|
|000008c0| cc 48 23 24 29 87 22 20 | 5b 74 69 6d 65 7a 6f 6e |.H#$)." |[timezon|
|000008d0| 65 2d 66 69 78 2d 74 69 | 6d 65 20 64 61 74 65 20 |e-fix-ti|me date |
|000008e0| 6c 6f 63 61 6c 20 74 69 | 6d 65 7a 6f 6e 65 20 6e |local ti|mezone n|
|000008f0| 65 77 20 74 69 6d 65 7a | 6f 6e 65 2d 6d 61 6b 65 |ew timez|one-make|
|00000900| 2d 73 6f 72 74 61 62 6c | 65 2d 64 61 74 65 20 30 |-sortabl|e-date 0|
|00000910| 20 31 20 32 20 74 69 6d | 65 7a 6f 6e 65 2d 6d 61 | 1 2 tim|ezone-ma|
|00000920| 6b 65 2d 74 69 6d 65 2d | 73 74 72 69 6e 67 20 33 |ke-time-|string 3|
|00000930| 20 34 20 35 5d 20 39 20 | 22 5c 0a 43 6f 6e 76 65 | 4 5] 9 |"\.Conve|
|00000940| 72 74 20 44 41 54 45 20 | 74 6f 20 61 20 73 6f 72 |rt DATE |to a sor|
|00000950| 74 61 62 6c 65 20 64 61 | 74 65 20 73 74 72 69 6e |table da|te strin|
|00000960| 67 2e 0a 4f 70 74 69 6f | 6e 61 6c 20 31 73 74 20 |g..Optio|nal 1st |
|00000970| 61 72 67 75 6d 65 6e 74 | 20 4c 4f 43 41 4c 20 73 |argument| LOCAL s|
|00000980| 70 65 63 69 66 69 65 73 | 20 74 68 65 20 64 65 66 |pecifies| the def|
|00000990| 61 75 6c 74 20 6c 6f 63 | 61 6c 20 74 69 6d 65 7a |ault loc|al timez|
|000009a0| 6f 6e 65 20 6f 66 20 74 | 68 65 20 44 41 54 45 3b |one of t|he DATE;|
|000009b0| 0a 69 66 20 6e 69 6c 2c | 20 47 4d 54 20 69 73 20 |.if nil,| GMT is |
|000009c0| 61 73 73 75 6d 65 64 2e | 0a 4f 70 74 69 6f 6e 61 |assumed.|.Optiona|
|000009d0| 6c 20 32 6e 64 20 61 72 | 67 75 6d 65 6e 74 20 54 |l 2nd ar|gument T|
|000009e0| 49 4d 45 5a 4f 4e 45 20 | 73 70 65 63 69 66 69 65 |IMEZONE |specifie|
|000009f0| 73 20 61 20 74 69 6d 65 | 7a 6f 6e 65 20 74 6f 20 |s a time|zone to |
|00000a00| 62 65 20 72 65 70 72 65 | 73 65 6e 74 65 64 20 69 |be repre|sented i|
|00000a10| 6e 3b 0a 69 66 20 6e 69 | 6c 2c 20 74 68 65 20 6c |n;.if ni|l, the l|
|00000a20| 6f 63 61 6c 20 74 69 6d | 65 20 7a 6f 6e 65 20 69 |ocal tim|e zone i|
|00000a30| 73 20 61 73 73 75 6d 65 | 64 2e 22 5d 29 0a 28 64 |s assume|d."]).(d|
|00000a40| 65 66 61 6c 69 61 73 20 | 27 74 69 6d 65 7a 6f 6e |efalias |'timezon|
|00000a50| 65 2d 6d 61 6b 65 2d 61 | 72 70 61 2d 64 61 74 65 |e-make-a|rpa-date|
|00000a60| 20 23 5b 28 79 65 61 72 | 20 6d 6f 6e 74 68 20 64 | #[(year| month d|
|00000a70| 61 79 20 74 69 6d 65 20 | 26 6f 70 74 69 6f 6e 61 |ay time |&optiona|
|00000a80| 6c 20 74 69 6d 65 7a 6f | 6e 65 29 20 22 08 3c 83 |l timezo|ne) ".<.|
|00000a90| 2e 00 c1 08 21 89 1a c3 | 57 83 14 00 5c 6e 5b 82 |....!...|W...\n[.|
|00000aa0| 15 00 5c 6e 1c c5 c6 5c | 6e c3 57 83 5c 22 00 c7 |..\n...\|n.W.\"..|
|00000ab0| 82 23 00 c8 0c c9 a5 0c | c9 a6 24 2a 82 2f 00 08 |.#......|..$*./..|
|00000ac0| 1e 5c 6e c5 cb 0e 0c cd | ce 0e 0f 0e 10 5c 22 40 |.\n.....|.....\"@|
|00000ad0| 21 0e 11 0e 12 0e 5c 6e | 26 06 29 87 22 20 5b 74 |!.....\n|&.)." [t|
|00000ae0| 69 6d 65 7a 6f 6e 65 20 | 74 69 6d 65 7a 6f 6e 65 |imezone |timezone|
|00000af0| 2d 7a 6f 6e 65 2d 74 6f | 2d 6d 69 6e 75 74 65 20 |-zone-to|-minute |
|00000b00| 6d 20 30 20 61 62 73 6d | 20 66 6f 72 6d 61 74 20 |m 0 absm| format |
|00000b10| 22 25 63 25 30 32 64 25 | 30 32 64 22 20 34 35 20 |"%c%02d%|02d" 45 |
|00000b20| 34 33 20 36 30 20 7a 6f | 6e 65 20 22 25 30 32 64 |43 60 zo|ne "%02d|
|00000b30| 20 25 73 20 25 30 34 64 | 20 25 73 20 25 73 22 20 | %s %04d| %s %s" |
|00000b40| 64 61 79 20 63 61 70 69 | 74 61 6c 69 7a 65 20 72 |day capi|talize r|
|00000b50| 61 73 73 71 20 6d 6f 6e | 74 68 20 74 69 6d 65 7a |assq mon|th timez|
|00000b60| 6f 6e 65 2d 6d 6f 6e 74 | 68 73 2d 61 73 73 6f 63 |one-mont|hs-assoc|
|00000b70| 20 79 65 61 72 20 74 69 | 6d 65 5d 20 38 20 22 5c | year ti|me] 8 "\|
|00000b80| 0a 4d 61 6b 65 20 61 72 | 70 61 6e 65 74 20 73 74 |.Make ar|panet st|
|00000b90| 61 6e 64 61 72 64 20 64 | 61 74 65 20 73 74 72 69 |andard d|ate stri|
|00000ba0| 6e 67 20 66 72 6f 6d 20 | 59 45 41 52 2c 20 4d 4f |ng from |YEAR, MO|
|00000bb0| 4e 54 48 2c 20 44 41 59 | 2c 20 61 6e 64 20 54 49 |NTH, DAY|, and TI|
|00000bc0| 4d 45 2e 0a 4f 70 74 69 | 6f 6e 61 6c 20 61 72 67 |ME..Opti|onal arg|
|00000bd0| 75 6d 65 6e 74 20 54 49 | 4d 45 5a 4f 4e 45 20 73 |ument TI|MEZONE s|
|00000be0| 70 65 63 69 66 69 65 73 | 20 61 20 74 69 6d 65 20 |pecifies| a time |
|00000bf0| 7a 6f 6e 65 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 |zone."])|.(defali|
|00000c00| 61 73 20 27 74 69 6d 65 | 7a 6f 6e 65 2d 6d 61 6b |as 'time|zone-mak|
|00000c10| 65 2d 73 6f 72 74 61 62 | 6c 65 2d 64 61 74 65 20 |e-sortab|le-date |
|00000c20| 23 5b 28 79 65 61 72 20 | 6d 6f 6e 74 68 20 64 61 |#[(year |month da|
|00000c30| 79 20 74 69 6d 65 29 20 | 22 c0 c1 5c 6e 0b 0c 0d |y time) |"..\n...|
|00000c40| 25 87 22 20 5b 66 6f 72 | 6d 61 74 20 22 25 34 64 |%." [for|mat "%4d|
|00000c50| 25 30 32 64 25 30 32 64 | 25 73 22 20 79 65 61 72 |%02d%02d|%s" year|
|00000c60| 20 6d 6f 6e 74 68 20 64 | 61 79 20 74 69 6d 65 5d | month d|ay time]|
|00000c70| 20 36 20 22 5c 0a 4d 61 | 6b 65 20 73 6f 72 74 61 | 6 "\.Ma|ke sorta|
|00000c80| 62 6c 65 20 64 61 74 65 | 20 73 74 72 69 6e 67 20 |ble date| string |
|00000c90| 66 72 6f 6d 20 59 45 41 | 52 2c 20 4d 4f 4e 54 48 |from YEA|R, MONTH|
|00000ca0| 2c 20 44 41 59 2c 20 61 | 6e 64 20 54 49 4d 45 2e |, DAY, a|nd TIME.|
|00000cb0| 22 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 74 |"]).(def|alias 't|
|00000cc0| 69 6d 65 7a 6f 6e 65 2d | 6d 61 6b 65 2d 74 69 6d |imezone-|make-tim|
|00000cd0| 65 2d 73 74 72 69 6e 67 | 20 23 5b 28 68 6f 75 72 |e-string| #[(hour|
|00000ce0| 20 6d 69 6e 75 74 65 20 | 73 65 63 6f 6e 64 29 20 | minute |second) |
|00000cf0| 22 c0 c1 5c 6e 0b 0c 24 | 87 22 20 5b 66 6f 72 6d |"..\n..$|." [form|
|00000d00| 61 74 20 22 25 30 32 64 | 3a 25 30 32 64 3a 25 30 |at "%02d|:%02d:%0|
|00000d10| 32 64 22 20 68 6f 75 72 | 20 6d 69 6e 75 74 65 20 |2d" hour| minute |
|00000d20| 73 65 63 6f 6e 64 5d 20 | 35 20 22 5c 0a 4d 61 6b |second] |5 "\.Mak|
|00000d30| 65 20 74 69 6d 65 20 73 | 74 72 69 6e 67 20 66 72 |e time s|tring fr|
|00000d40| 6f 6d 20 48 4f 55 52 2c | 20 4d 49 4e 55 54 45 2c |om HOUR,| MINUTE,|
|00000d50| 20 61 6e 64 20 53 45 43 | 4f 4e 44 2e 22 5d 29 0a | and SEC|OND."]).|
|00000d60| 28 64 65 66 61 6c 69 61 | 73 20 27 74 69 6d 65 7a |(defalia|s 'timez|
|00000d70| 6f 6e 65 2d 70 61 72 73 | 65 2d 64 61 74 65 20 23 |one-pars|e-date #|
|00000d80| 5b 28 64 61 74 65 29 20 | 22 08 86 05 00 c1 c2 89 |[(date) |".......|
|00000d90| 89 89 89 1b 1c 1d 1e 06 | 1e 07 18 c8 c9 08 5c 22 |........|......\"|
|00000da0| 83 28 00 ca 16 07 cb 16 | 06 cc 15 cd 14 c2 13 82 |.(......|........|
|00000db0| 7d 00 c8 ce 08 5c 22 83 | 3e 00 ca 16 07 cb 16 06 |}....\".|>.......|
|00000dc0| cc 15 cd 14 cf 13 82 7d | 00 c8 d0 08 5c 22 83 54 |.......}|....\".T|
|00000dd0| 00 cd 16 07 cc 16 06 cb | 15 ca 14 c2 13 82 7d 00 |........|......}.|
|00000de0| c8 d1 08 5c 22 83 6a 00 | cf 16 07 cc 16 06 cb 15 |...\".j.|........|
|00000df0| ca 14 cd 13 82 7d 00 c8 | d2 08 5c 22 83 7d 00 ca |.....}..|..\".}..|
|00000e00| 16 07 cb 16 06 cc 15 cd | 14 cf 13 0e 07 83 be 00 |........|........|
|00000e10| 08 0e 07 94 0e 07 95 4f | 89 16 07 47 cd 57 83 9c |.......O|...G.W..|
|00000e20| 00 d3 0e 07 d4 c2 4f 50 | 16 07 d5 d6 08 0e 06 94 |......OP|........|
|00000e30| 0e 06 94 ca 5c 5c 4f 96 | 0e 17 5c 22 41 21 16 06 |....\\O.|..\"A!..|
|00000e40| 08 0d 94 0d 95 4f 15 08 | 0c 94 0c 95 4f 14 0b 83 |.....O..|....O...|
|00000e50| c9 00 08 0b 94 0b 95 4f | 13 0e 07 83 da 00 d8 0e |.......O|........|
|00000e60| 07 0e 06 0d 0c 0b 25 82 | e1 00 d8 d9 89 89 89 c2 |......%.|........|
|00000e70| 25 2e 06 87 22 20 5b 64 | 61 74 65 20 22 22 20 6e |%..." [d|ate "" n|
|00000e80| 69 6c 20 7a 6f 6e 65 20 | 74 69 6d 65 20 64 61 79 |il zone |time day|
|00000e90| 20 6d 6f 6e 74 68 20 79 | 65 61 72 20 73 74 72 69 | month y|ear stri|
|00000ea0| 6e 67 2d 6d 61 74 63 68 | 20 22 5c 5c 28 5b 30 2d |ng-match| "\\([0-|
|00000eb0| 39 5d 2b 5c 5c 29 5b 20 | 09 5d 2b 5c 5c 28 5b 5e |9]+\\)[ |.]+\\([^|
|00000ec0| 20 09 2c 5d 2b 5c 5c 29 | 5b 20 09 5d 2b 5c 5c 28 | .,]+\\)|[ .]+\\(|
|00000ed0| 5b 30 2d 39 5d 2b 5c 5c | 29 5b 20 09 5d 2b 5c 5c |[0-9]+\\|)[ .]+\\|
|00000ee0| 28 5b 30 2d 39 5d 2b 3a | 5b 30 2d 39 3a 5d 2b 5c |([0-9]+:|[0-9:]+\|
|00000ef0| 5c 29 5b 20 09 5d 2a 5c | 5c 27 22 20 33 20 32 20 |\)[ .]*\|\'" 3 2 |
|00000f00| 31 20 34 20 22 5c 5c 28 | 5b 30 2d 39 5d 2b 5c 5c |1 4 "\\(|[0-9]+\\|
|00000f10| 29 5b 20 09 5d 2b 5c 5c | 28 5b 5e 20 09 2c 5d 2b |)[ .]+\\|([^ .,]+|
|00000f20| 5c 5c 29 5b 20 09 5d 2b | 5c 5c 28 5b 30 2d 39 5d |\\)[ .]+|\\([0-9]|
|00000f30| 2b 5c 5c 29 5b 20 09 5d | 2b 5c 5c 28 5b 30 2d 39 |+\\)[ .]|+\\([0-9|
|00000f40| 5d 2b 3a 5b 30 2d 39 3a | 5d 2b 5c 5c 29 5b 20 09 |]+:[0-9:|]+\\)[ .|
|00000f50| 5d 2a 5c 5c 28 5b 2d 2b | 61 2d 7a 41 2d 5a 30 2d |]*\\([-+|a-zA-Z0-|
|00000f60| 39 5d 2b 5c 5c 29 22 20 | 35 20 22 5c 5c 28 5b 5e |9]+\\)" |5 "\\([^|
|00000f70| 20 09 2c 5d 2b 5c 5c 29 | 5b 20 09 5d 2b 5c 5c 28 | .,]+\\)|[ .]+\\(|
|00000f80| 5b 30 2d 39 5d 2b 5c 5c | 29 5b 20 09 5d 2b 5c 5c |[0-9]+\\|)[ .]+\\|
|00000f90| 28 5b 30 2d 39 5d 2b 3a | 5b 30 2d 39 3a 5d 2b 5c |([0-9]+:|[0-9:]+\|
|00000fa0| 5c 29 5b 20 09 5d 2b 5c | 5c 28 5b 30 2d 39 5d 2b |\)[ .]+\|\([0-9]+|
|00000fb0| 5c 5c 29 22 20 22 5c 5c | 28 5b 5e 20 09 2c 5d 2b |\\)" "\\|([^ .,]+|
|00000fc0| 5c 5c 29 5b 20 09 5d 2b | 5c 5c 28 5b 30 2d 39 5d |\\)[ .]+|\\([0-9]|
|00000fd0| 2b 5c 5c 29 5b 20 09 5d | 2b 5c 5c 28 5b 30 2d 39 |+\\)[ .]|+\\([0-9|
|00000fe0| 5d 2b 3a 5b 30 2d 39 3a | 5d 2b 5c 5c 29 5b 20 09 |]+:[0-9:|]+\\)[ .|
|00000ff0| 5d 2b 5c 5c 28 5b 2d 2b | 61 2d 7a 41 2d 5a 30 2d |]+\\([-+|a-zA-Z0-|
|00001000| 39 5d 2b 5c 5c 29 5b 20 | 09 5d 2b 5c 5c 28 5b 30 |9]+\\)[ |.]+\\([0|
|00001010| 2d 39 5d 2b 5c 5c 29 22 | 20 22 5c 5c 28 5b 30 2d |-9]+\\)"| "\\([0-|
|00001020| 39 5d 2b 5c 5c 29 5b 20 | 09 5d 2b 5c 5c 28 5b 5e |9]+\\)[ |.]+\\([^|
|00001030| 20 09 2c 5d 2b 5c 5c 29 | 5b 20 09 5d 2b 5c 5c 28 | .,]+\\)|[ .]+\\(|
|00001040| 5b 30 2d 39 5d 2b 5c 5c | 29 5b 20 09 5d 2b 5c 5c |[0-9]+\\|)[ .]+\\|
|00001050| 28 5b 30 2d 39 5d 2b 5c | 5c 29 5b 20 09 5d 2a 5c |([0-9]+\|\)[ .]*\|
|00001060| 5c 28 5b 2d 2b 61 2d 7a | 41 2d 5a 30 2d 39 5d 2b |\([-+a-z|A-Z0-9]+|
|00001070| 5c 5c 29 22 20 22 31 39 | 22 20 2d 32 20 69 6e 74 |\\)" "19|" -2 int|
|00001080| 2d 74 6f 2d 73 74 72 69 | 6e 67 20 61 73 73 6f 63 |-to-stri|ng assoc|
|00001090| 20 74 69 6d 65 7a 6f 6e | 65 2d 6d 6f 6e 74 68 73 | timezon|e-months|
|000010a0| 2d 61 73 73 6f 63 20 76 | 65 63 74 6f 72 20 22 30 |-assoc v|ector "0|
|000010b0| 22 5d 20 37 20 22 5c 0a | 50 61 72 73 65 20 44 41 |"] 7 "\.|Parse DA|
|000010c0| 54 45 20 61 6e 64 20 72 | 65 74 75 72 6e 20 61 20 |TE and r|eturn a |
|000010d0| 76 65 63 74 6f 72 20 5b | 79 65 61 72 20 6d 6f 6e |vector [|year mon|
|000010e0| 74 68 20 64 61 79 20 74 | 69 6d 65 20 74 69 6d 65 |th day t|ime time|
|000010f0| 7a 6f 6e 65 5d 2e 0a 31 | 39 20 69 73 20 70 72 65 |zone]..1|9 is pre|
|00001100| 70 65 6e 64 65 64 20 74 | 6f 20 79 65 61 72 20 69 |pended t|o year i|
|00001110| 66 20 6e 65 63 65 73 73 | 61 72 79 2e 20 54 69 6d |f necess|ary. Tim|
|00001120| 65 7a 6f 6e 65 20 6d 61 | 79 20 62 65 20 4e 49 4c |ezone ma|y be NIL|
|00001130| 20 69 66 20 6e 6f 74 68 | 69 6e 67 2e 0a 55 6e 64 | if noth|ing..Und|
|00001140| 65 72 73 74 61 6e 64 20 | 74 68 65 20 66 6f 6c 6c |erstand |the foll|
|00001150| 6f 77 69 6e 67 20 73 74 | 79 6c 65 73 3a 0a 20 28 |owing st|yles:. (|
|00001160| 31 29 20 31 34 20 41 70 | 72 20 38 39 20 30 33 3a |1) 14 Ap|r 89 03:|
|00001170| 32 30 5b 3a 31 32 5d 20 | 5b 47 4d 54 5d 0a 20 28 |20[:12] |[GMT]. (|
|00001180| 32 29 20 46 72 69 2c 20 | 31 37 20 4d 61 72 20 38 |2) Fri, |17 Mar 8|
|00001190| 39 20 34 3a 30 31 5b 3a | 33 33 5d 20 5b 47 4d 54 |9 4:01[:|33] [GMT|
|000011a0| 5d 0a 20 28 33 29 20 4d | 6f 6e 20 4a 61 6e 20 31 |]. (3) M|on Jan 1|
|000011b0| 36 20 31 36 3a 31 32 5b | 3a 33 37 5d 20 5b 47 4d |6 16:12[|:37] [GM|
|000011c0| 54 5d 20 31 39 38 39 0a | 20 28 34 29 20 36 20 4d |T] 1989.| (4) 6 M|
|000011d0| 61 79 20 31 39 39 32 20 | 31 36 34 31 2d 4a 53 54 |ay 1992 |1641-JST|
|000011e0| 20 28 57 65 64 6e 65 73 | 64 61 79 29 22 5d 29 0a | (Wednes|day)"]).|
|000011f0| 28 64 65 66 61 6c 69 61 | 73 20 27 74 69 6d 65 7a |(defalia|s 'timez|
|00001200| 6f 6e 65 2d 70 61 72 73 | 65 2d 74 69 6d 65 20 23 |one-pars|e-time #|
|00001210| 5b 28 74 69 6d 65 29 20 | 22 08 86 05 00 c1 c2 89 |[(time) |".......|
|00001220| 89 1b 1c 1d 18 c6 c7 08 | 5c 22 83 1c 00 c8 15 c9 |........|\"......|
|00001230| 14 ca 13 82 49 00 c6 cb | 08 5c 22 83 2c 00 c8 15 |....I...|.\".,...|
|00001240| c9 14 c2 13 82 49 00 c6 | cc 08 5c 22 83 3c 00 c8 |.....I..|..\".<..|
|00001250| 15 c9 14 ca 13 82 49 00 | c6 cd 08 5c 22 83 49 00 |......I.|...\".I.|
|00001260| c8 15 c9 14 c2 13 ce 0d | 83 57 00 08 0d 94 0d 95 |........|.W......|
|00001270| 4f 82 58 00 cf 0c 83 65 | 00 08 0c 94 0c 95 4f 82 |O.X....e|......O.|
|00001280| 66 00 cf 0b 83 73 00 08 | 0b 94 0b 95 4f 82 74 00 |f....s..|....O.t.|
|00001290| cf 23 2c 87 22 20 5b 74 | 69 6d 65 20 22 22 20 6e |.#,." [t|ime "" n|
|000012a0| 69 6c 20 73 65 63 6f 6e | 64 20 6d 69 6e 75 74 65 |il secon|d minute|
|000012b0| 20 68 6f 75 72 20 73 74 | 72 69 6e 67 2d 6d 61 74 | hour st|ring-mat|
|000012c0| 63 68 20 22 5c 5c 60 5c | 5c 28 5b 30 2d 39 5d 2b |ch "\\`\|\([0-9]+|
|000012d0| 5c 5c 29 3a 5c 5c 28 5b | 30 2d 39 5d 2b 5c 5c 29 |\\):\\([|0-9]+\\)|
|000012e0| 3a 5c 5c 28 5b 30 2d 39 | 5d 2b 5c 5c 29 5c 5c 27 |:\\([0-9|]+\\)\\'|
|000012f0| 22 20 31 20 32 20 33 20 | 22 5c 5c 60 5c 5c 28 5b |" 1 2 3 |"\\`\\([|
|00001300| 30 2d 39 5d 2b 5c 5c 29 | 3a 5c 5c 28 5b 30 2d 39 |0-9]+\\)|:\\([0-9|
|00001310| 5d 2b 5c 5c 29 5c 5c 27 | 22 20 22 5c 5c 60 5c 5c |]+\\)\\'|" "\\`\\|
|00001320| 28 5b 30 2d 39 5d 5b 30 | 2d 39 5d 5c 5c 29 5c 5c |([0-9][0|-9]\\)\\|
|00001330| 28 5b 30 2d 39 5d 5b 30 | 2d 39 5d 5c 5c 29 5c 5c |([0-9][0|-9]\\)\\|
|00001340| 28 5b 30 2d 39 5d 5b 30 | 2d 39 5d 5c 5c 29 5c 5c |([0-9][0|-9]\\)\\|
|00001350| 27 22 20 22 5c 5c 60 5c | 5c 28 5b 30 2d 39 5d 5b |'" "\\`\|\([0-9][|
|00001360| 30 2d 39 5d 5c 5c 29 5c | 5c 28 5b 30 2d 39 5d 5b |0-9]\\)\|\([0-9][|
|00001370| 30 2d 39 5d 5c 5c 29 5c | 5c 27 22 20 76 65 63 74 |0-9]\\)\|\'" vect|
|00001380| 6f 72 20 22 30 22 5d 20 | 36 20 22 5c 0a 50 61 72 |or "0"] |6 "\.Par|
|00001390| 73 65 20 54 49 4d 45 20 | 28 48 48 3a 4d 4d 3a 53 |se TIME |(HH:MM:S|
|000013a0| 53 29 20 61 6e 64 20 72 | 65 74 75 72 6e 20 61 20 |S) and r|eturn a |
|000013b0| 76 65 63 74 6f 72 20 5b | 68 6f 75 72 20 6d 69 6e |vector [|hour min|
|000013c0| 75 74 65 20 73 65 63 6f | 6e 64 5d 2e 0a 52 65 63 |ute seco|nd]..Rec|
|000013d0| 6f 67 6e 69 7a 65 20 48 | 48 3a 4d 4d 3a 53 53 2c |ognize H|H:MM:SS,|
|000013e0| 20 48 48 3a 4d 4d 2c 20 | 48 48 4d 4d 53 53 2c 20 | HH:MM, |HHMMSS, |
|000013f0| 48 48 4d 4d 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 |HHMM."])|.(defali|
|00001400| 61 73 20 27 74 69 6d 65 | 7a 6f 6e 65 2d 7a 6f 6e |as 'time|zone-zon|
|00001410| 65 2d 74 6f 2d 6d 69 6e | 75 74 65 20 23 5b 28 74 |e-to-min|ute #[(t|
|00001420| 69 6d 65 7a 6f 6e 65 29 | 20 22 08 3a 83 5c 6e 00 |imezone)| ".:.\n.|
|00001430| 08 40 c1 a5 87 08 83 42 | 00 c2 08 96 0b 5c 22 41 |.@.....B|.....\"A|
|00001440| 86 18 00 08 89 10 3b 83 | 5c 22 00 c4 08 21 10 08 |......;.|\"...!..|
|00001450| 89 5b 5d 89 1d c6 a5 c1 | 5f 0d c6 a6 5c 5c 1e 07 |.[].....|_...\\..|
|00001460| 08 c8 57 83 3e 00 0e 07 | 5b 82 40 00 0e 07 2a 87 |..W.>...|[.@...*.|
|00001470| c8 87 22 20 5b 74 69 6d | 65 7a 6f 6e 65 20 36 30 |.." [tim|ezone 60|
|00001480| 20 61 73 73 6f 63 20 74 | 69 6d 65 7a 6f 6e 65 2d | assoc t|imezone-|
|00001490| 77 6f 72 6c 64 2d 74 69 | 6d 65 7a 6f 6e 65 73 20 |world-ti|mezones |
|000014a0| 73 74 72 69 6e 67 2d 74 | 6f 2d 69 6e 74 20 61 62 |string-t|o-int ab|
|000014b0| 73 7a 6f 6e 65 20 31 30 | 30 20 6d 69 6e 75 74 65 |szone 10|0 minute|
|000014c0| 73 20 30 5d 20 34 20 22 | 5c 0a 54 72 61 6e 73 6c |s 0] 4 "|\.Transl|
|000014d0| 61 74 65 20 54 49 4d 45 | 5a 4f 4e 45 20 74 6f 20 |ate TIME|ZONE to |
|000014e0| 61 6e 20 69 6e 74 65 67 | 65 72 20 6d 69 6e 75 74 |an integ|er minut|
|000014f0| 65 20 6f 66 66 73 65 74 | 20 66 72 6f 6d 20 47 4d |e offset| from GM|
|00001500| 54 2e 0a 54 49 4d 45 5a | 4f 4e 45 20 63 61 6e 20 |T..TIMEZ|ONE can |
|00001510| 62 65 20 61 20 63 6f 6e | 73 20 63 65 6c 6c 20 63 |be a con|s cell c|
|00001520| 6f 6e 74 61 69 6e 69 6e | 67 20 74 68 65 20 6f 75 |ontainin|g the ou|
|00001530| 74 70 75 74 20 6f 66 20 | 63 75 72 72 65 6e 74 2d |tput of |current-|
|00001540| 74 69 6d 65 2d 7a 6f 6e | 65 2c 0a 6f 72 20 61 6e |time-zon|e,.or an|
|00001550| 20 69 6e 74 65 67 65 72 | 20 6f 66 20 74 68 65 20 | integer| of the |
|00001560| 66 6f 72 6d 20 2b 2d 48 | 48 4d 4d 2c 20 6f 72 20 |form +-H|HMM, or |
|00001570| 61 20 74 69 6d 65 20 7a | 6f 6e 65 20 6e 61 6d 65 |a time z|one name|
|00001580| 2e 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |."]).(de|falias '|
|00001590| 74 69 6d 65 7a 6f 6e 65 | 2d 74 69 6d 65 2d 66 72 |timezone|-time-fr|
|000015a0| 6f 6d 2d 61 62 73 6f 6c | 75 74 65 20 23 5b 28 64 |om-absol|ute #[(d|
|000015b0| 61 74 65 20 73 65 63 6f | 6e 64 73 29 20 22 c0 19 |ate seco|nds) "..|
|000015c0| 5c 6e 09 5a 1b c4 c5 21 | 1e 06 0e 07 0b 0e 06 5f |\n.Z...!|......._|
|000015d0| 5c 5c 1e 07 c4 c8 21 1e | 09 ca 0e 07 0e 09 a5 21 |\\....!.|.......!|
|000015e0| 89 1e 0b 0e 09 5f 1e 0c | ca 0e 07 0e 0c 5a 21 1e |....._..|.....Z!.|
|000015f0| 0d 0e 07 0e 0c 0e 0d 5c | 5c 5a 89 1e 0e cf 59 83 |.......\|\Z....Y.|
|00001600| 46 00 0e 0e 82 49 00 0e | 0e 5b 29 d0 57 85 54 00 |F....I..|.[).W.T.|
|00001610| 0e 0b 0e 0d 42 2e 08 87 | 22 20 5b 37 31 39 31 36 |....B...|" [71916|
|00001620| 32 20 63 75 72 72 65 6e | 74 2d 74 69 6d 65 2d 6f |2 curren|t-time-o|
|00001630| 72 69 67 69 6e 20 64 61 | 74 65 20 64 61 79 73 20 |rigin da|te days |
|00001640| 66 6c 6f 61 74 20 38 36 | 34 30 30 20 73 65 63 6f |float 86|400 seco|
|00001650| 6e 64 73 2d 70 65 72 2d | 64 61 79 20 73 65 63 6f |nds-per-|day seco|
|00001660| 6e 64 73 20 36 35 35 33 | 36 20 63 75 72 72 65 6e |nds 6553|6 curren|
|00001670| 74 2d 74 69 6d 65 2d 61 | 72 69 74 68 6d 65 74 69 |t-time-a|rithmeti|
|00001680| 63 2d 62 61 73 65 20 66 | 6c 6f 6f 72 20 68 69 20 |c-base f|loor hi |
|00001690| 68 69 62 61 73 65 20 6c | 6f 20 6e 20 30 20 32 5d |hibase l|o n 0 2]|
|000016a0| 20 34 20 22 5c 0a 43 6f | 6d 70 75 74 65 20 74 68 | 4 "\.Co|mpute th|
|000016b0| 65 20 55 54 43 20 74 69 | 6d 65 20 65 71 75 69 76 |e UTC ti|me equiv|
|000016c0| 61 6c 65 6e 74 20 74 6f | 20 44 41 54 45 20 61 74 |alent to| DATE at|
|000016d0| 20 74 69 6d 65 20 53 45 | 43 4f 4e 44 53 20 61 66 | time SE|CONDS af|
|000016e0| 74 65 72 20 6d 69 64 6e | 69 67 68 74 2e 0a 52 65 |ter midn|ight..Re|
|000016f0| 74 75 72 6e 20 61 20 6c | 69 73 74 20 73 75 69 74 |turn a l|ist suit|
|00001700| 61 62 6c 65 20 61 73 20 | 61 6e 20 61 72 67 75 6d |able as |an argum|
|00001710| 65 6e 74 20 74 6f 20 63 | 75 72 72 65 6e 74 2d 74 |ent to c|urrent-t|
|00001720| 69 6d 65 2d 7a 6f 6e 65 | 2c 0a 6f 72 20 6e 69 6c |ime-zone|,.or nil|
|00001730| 20 69 66 20 74 68 65 20 | 64 61 74 65 20 63 61 6e | if the |date can|
|00001740| 6e 6f 74 20 62 65 20 74 | 68 75 73 20 72 65 70 72 |not be t|hus repr|
|00001750| 65 73 65 6e 74 65 64 2e | 0a 44 41 54 45 20 69 73 |esented.|.DATE is|
|00001760| 20 74 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 64 | the num|ber of d|
|00001770| 61 79 73 20 65 6c 61 70 | 73 65 64 20 73 69 6e 63 |ays elap|sed sinc|
|00001780| 65 20 74 68 65 20 28 69 | 6d 61 67 69 6e 61 72 79 |e the (i|maginary|
|00001790| 29 0a 47 72 65 67 6f 72 | 69 61 6e 20 64 61 74 65 |).Gregor|ian date|
|000017a0| 20 53 75 6e 64 61 79 2c | 20 44 65 63 65 6d 62 65 | Sunday,| Decembe|
|000017b0| 72 20 33 31 2c 20 31 20 | 42 43 2e 22 5d 29 0a 28 |r 31, 1 |BC."]).(|
|000017c0| 64 65 66 61 6c 69 61 73 | 20 27 74 69 6d 65 7a 6f |defalias| 'timezo|
|000017d0| 6e 65 2d 74 69 6d 65 2d | 7a 6f 6e 65 2d 66 72 6f |ne-time-|zone-fro|
|000017e0| 6d 2d 61 62 73 6f 6c 75 | 74 65 20 23 5b 28 64 61 |m-absolu|te #[(da|
|000017f0| 74 65 20 73 65 63 6f 6e | 64 73 29 20 22 c0 c1 21 |te secon|ds) "..!|
|00001800| 85 1d 00 c2 0b 0c 5c 22 | 89 1d 85 1c 00 c1 0d 21 |......\"|.......!|
|00001810| 89 1e 06 40 85 1b 00 0e | 06 29 29 87 22 20 5b 66 |...@....|.))." [f|
|00001820| 62 6f 75 6e 64 70 20 63 | 75 72 72 65 6e 74 2d 74 |boundp c|urrent-t|
|00001830| 69 6d 65 2d 7a 6f 6e 65 | 20 74 69 6d 65 7a 6f 6e |ime-zone| timezon|
|00001840| 65 2d 74 69 6d 65 2d 66 | 72 6f 6d 2d 61 62 73 6f |e-time-f|rom-abso|
|00001850| 6c 75 74 65 20 64 61 74 | 65 20 73 65 63 6f 6e 64 |lute dat|e second|
|00001860| 73 20 75 74 63 2d 74 69 | 6d 65 20 7a 6f 6e 65 5d |s utc-ti|me zone]|
|00001870| 20 34 20 22 5c 0a 43 6f | 6d 70 75 74 65 20 74 68 | 4 "\.Co|mpute th|
|00001880| 65 20 6c 6f 63 61 6c 20 | 74 69 6d 65 20 7a 6f 6e |e local |time zon|
|00001890| 65 20 66 6f 72 20 44 41 | 54 45 20 61 74 20 74 69 |e for DA|TE at ti|
|000018a0| 6d 65 20 53 45 43 4f 4e | 44 53 20 61 66 74 65 72 |me SECON|DS after|
|000018b0| 20 6d 69 64 6e 69 67 68 | 74 2e 0a 52 65 74 75 72 | midnigh|t..Retur|
|000018c0| 6e 20 61 20 6c 69 73 74 | 20 69 6e 20 74 68 65 20 |n a list| in the |
|000018d0| 73 61 6d 65 20 66 6f 72 | 6d 61 74 20 61 73 20 63 |same for|mat as c|
|000018e0| 75 72 72 65 6e 74 2d 74 | 69 6d 65 2d 7a 6f 6e 65 |urrent-t|ime-zone|
|000018f0| 27 73 20 72 65 73 75 6c | 74 2c 0a 6f 72 20 6e 69 |'s resul|t,.or ni|
|00001900| 6c 20 69 66 20 74 68 65 | 20 6c 6f 63 61 6c 20 74 |l if the| local t|
|00001910| 69 6d 65 20 7a 6f 6e 65 | 20 63 6f 75 6c 64 20 6e |ime zone| could n|
|00001920| 6f 74 20 62 65 20 63 6f | 6d 70 75 74 65 64 2e 0a |ot be co|mputed..|
|00001930| 44 41 54 45 20 69 73 20 | 74 68 65 20 6e 75 6d 62 |DATE is |the numb|
|00001940| 65 72 20 6f 66 20 64 61 | 79 73 20 65 6c 61 70 73 |er of da|ys elaps|
|00001950| 65 64 20 73 69 6e 63 65 | 20 74 68 65 20 28 69 6d |ed since| the (im|
|00001960| 61 67 69 6e 61 72 79 29 | 0a 47 72 65 67 6f 72 69 |aginary)|.Gregori|
|00001970| 61 6e 20 64 61 74 65 20 | 53 75 6e 64 61 79 2c 20 |an date |Sunday, |
|00001980| 44 65 63 65 6d 62 65 72 | 20 33 31 2c 20 31 20 42 |December| 31, 1 B|
|00001990| 43 2e 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |C."]).(d|efalias |
|000019a0| 27 74 69 6d 65 7a 6f 6e | 65 2d 66 69 78 2d 74 69 |'timezon|e-fix-ti|
|000019b0| 6d 65 20 23 5b 28 64 61 | 74 65 20 6c 6f 63 61 6c |me #[(da|te local|
|000019c0| 20 74 69 6d 65 7a 6f 6e | 65 29 20 22 c0 09 21 19 | timezon|e) "..!.|
|000019d0| c2 09 c3 48 21 89 1c c5 | 57 83 16 00 0c c6 5c 5c |...H!...|W.....\\|
|000019e0| 82 17 00 0c 1c c2 09 c7 | 48 21 1e 08 c2 09 c9 48 |........|H!.....H|
|000019f0| 21 1e 5c 6e cb 09 cc 48 | 21 1e 0d c2 0e 0d c3 48 |!.\n...H|!......H|
|00001a00| 21 1e 0e c2 0e 0d c7 48 | 21 1e 0f c2 0e 0d c9 48 |!......H|!......H|
|00001a10| 21 1e 10 09 d1 48 86 4d | 00 0e 12 1e 12 0e 13 86 |!....H.M|........|
|00001a20| 69 00 d4 d5 0e 08 0e 5c | 6e 0c 23 0e 10 0e 0f 0e |i......\|n.#.....|
|00001a30| 0e d6 5f 5c 5c d6 5f 5c | 5c 5c 22 1e 13 d7 0e 13 |.._\\._\|\\".....|
|00001a40| 21 d7 0e 12 21 5a 1e 18 | 0e 0f 0e 18 5c 5c 89 1e |!...!Z..|....\\..|
|00001a50| 0f c3 57 83 8d 00 d9 0e | 0f 5a d6 a5 5b 82 91 00 |..W.....|.Z..[...|
|00001a60| 0e 0f d6 a5 1e 1a 0e 0e | 0e 1a 5c 5c 16 0e 0e 0f |........|..\\....|
|00001a70| 0e 1a d6 5f 5a 16 0f db | 0e 0e 58 83 d8 00 0e 0e |..._Z...|..X.....|
|00001a80| db 5a 16 0e 0e 5c 6e 54 | 16 5c 6e dc 0e 08 0c 5c |.Z...\nT|.\n....\|
|00001a90| 22 0e 5c 6e 57 83 5c 6e | 01 0e 08 54 16 08 c7 16 |".\nW.\n|...T....|
|00001aa0| 5c 6e dd 0e 08 57 83 5c | 6e 01 c7 16 08 0c 54 14 |\n...W.\|n.....T.|
|00001ab0| 82 5c 6e 01 c3 0e 0e 56 | 83 5c 6e 01 0e 0e db 5c |.\n....V|.\n....\|
|00001ac0| 5c 16 0e 0e 5c 6e 53 16 | 5c 6e c7 0e 5c 6e 56 83 |\...\nS.|\n..\nV.|
|00001ad0| 5c 6e 01 0e 08 53 16 08 | c7 0e 08 56 83 03 01 dd |\n...S..|...V....|
|00001ae0| 16 08 0c 53 14 dc 0e 08 | 0c 5c 22 16 5c 6e de 0c |...S....|.\".\n..|
|00001af0| 0e 08 0e 5c 6e 0e 0e 0e | 0f 0e 10 0e 13 26 07 2e |...\n...|.....&..|
|00001b00| 0e 87 22 20 5b 74 69 6d | 65 7a 6f 6e 65 2d 70 61 |.." [tim|ezone-pa|
|00001b10| 72 73 65 2d 64 61 74 65 | 20 64 61 74 65 20 73 74 |rse-date| date st|
|00001b20| 72 69 6e 67 2d 74 6f 2d | 69 6e 74 20 30 20 79 65 |ring-to-|int 0 ye|
|00001b30| 61 72 20 31 30 30 20 31 | 39 30 30 20 31 20 6d 6f |ar 100 1|900 1 mo|
|00001b40| 6e 74 68 20 32 20 64 61 | 79 20 74 69 6d 65 7a 6f |nth 2 da|y timezo|
|00001b50| 6e 65 2d 70 61 72 73 65 | 2d 74 69 6d 65 20 33 20 |ne-parse|-time 3 |
|00001b60| 74 69 6d 65 20 68 6f 75 | 72 20 6d 69 6e 75 74 65 |time hou|r minute|
|00001b70| 20 73 65 63 6f 6e 64 20 | 34 20 6c 6f 63 61 6c 20 | second |4 local |
|00001b80| 74 69 6d 65 7a 6f 6e 65 | 20 74 69 6d 65 7a 6f 6e |timezone| timezon|
|00001b90| 65 2d 74 69 6d 65 2d 7a | 6f 6e 65 2d 66 72 6f 6d |e-time-z|one-from|
|00001ba0| 2d 61 62 73 6f 6c 75 74 | 65 20 74 69 6d 65 7a 6f |-absolut|e timezo|
|00001bb0| 6e 65 2d 61 62 73 6f 6c | 75 74 65 2d 66 72 6f 6d |ne-absol|ute-from|
|00001bc0| 2d 67 72 65 67 6f 72 69 | 61 6e 20 36 30 20 74 69 |-gregori|an 60 ti|
|00001bd0| 6d 65 7a 6f 6e 65 2d 7a | 6f 6e 65 2d 74 6f 2d 6d |mezone-z|one-to-m|
|00001be0| 69 6e 75 74 65 20 64 69 | 66 66 20 35 39 20 68 6f |inute di|ff 59 ho|
|00001bf0| 75 72 2d 66 69 78 20 32 | 34 20 74 69 6d 65 7a 6f |ur-fix 2|4 timezo|
|00001c00| 6e 65 2d 6c 61 73 74 2d | 64 61 79 2d 6f 66 2d 6d |ne-last-|day-of-m|
|00001c10| 6f 6e 74 68 20 31 32 20 | 76 65 63 74 6f 72 5d 20 |onth 12 |vector] |
|00001c20| 39 20 22 5c 0a 43 6f 6e | 76 65 72 74 20 44 41 54 |9 "\.Con|vert DAT|
|00001c30| 45 20 28 64 65 66 61 75 | 6c 74 20 74 69 6d 65 7a |E (defau|lt timez|
|00001c40| 6f 6e 65 20 4c 4f 43 41 | 4c 29 20 74 6f 20 59 59 |one LOCA|L) to YY|
|00001c50| 59 59 2d 4d 4d 2d 44 44 | 2d 48 48 2d 4d 4d 2d 53 |YY-MM-DD|-HH-MM-S|
|00001c60| 53 2d 5a 4f 4e 45 20 76 | 65 63 74 6f 72 2e 0a 49 |S-ZONE v|ector..I|
|00001c70| 66 20 4c 4f 43 41 4c 20 | 69 73 20 6e 69 6c 2c 20 |f LOCAL |is nil, |
|00001c80| 69 74 20 69 73 20 61 73 | 73 75 6d 65 64 20 74 6f |it is as|sumed to|
|00001c90| 20 62 65 20 47 4d 54 2e | 0a 49 66 20 54 49 4d 45 | be GMT.|.If TIME|
|00001ca0| 5a 4f 4e 45 20 69 73 20 | 6e 69 6c 2c 20 75 73 65 |ZONE is |nil, use|
|00001cb0| 20 74 68 65 20 6c 6f 63 | 61 6c 20 74 69 6d 65 20 | the loc|al time |
|00001cc0| 7a 6f 6e 65 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 |zone."])|.(defali|
|00001cd0| 61 73 20 27 74 69 6d 65 | 7a 6f 6e 65 2d 6c 61 73 |as 'time|zone-las|
|00001ce0| 74 2d 64 61 79 2d 6f 66 | 2d 6d 6f 6e 74 68 20 23 |t-day-of|-month #|
|00001cf0| 5b 28 6d 6f 6e 74 68 20 | 79 65 61 72 29 20 22 08 |[(month |year) ".|
|00001d00| c1 55 83 0e 00 c2 0b 21 | 83 0e 00 c4 87 c5 08 53 |.U.....!|.......S|
|00001d10| 48 87 22 20 5b 6d 6f 6e | 74 68 20 32 20 74 69 6d |H." [mon|th 2 tim|
|00001d20| 65 7a 6f 6e 65 2d 6c 65 | 61 70 2d 79 65 61 72 2d |ezone-le|ap-year-|
|00001d30| 70 20 79 65 61 72 20 32 | 39 20 5b 33 31 20 32 38 |p year 2|9 [31 28|
|00001d40| 20 33 31 20 33 30 20 33 | 31 20 33 30 20 33 31 20 | 31 30 3|1 30 31 |
|00001d50| 33 31 20 33 30 20 33 31 | 20 33 30 20 33 31 5d 5d |31 30 31| 30 31]]|
|00001d60| 20 32 20 22 5c 0a 54 68 | 65 20 6c 61 73 74 20 64 | 2 "\.Th|e last d|
|00001d70| 61 79 20 69 6e 20 4d 4f | 4e 54 48 20 64 75 72 69 |ay in MO|NTH duri|
|00001d80| 6e 67 20 59 45 41 52 2e | 22 5d 29 0a 28 64 65 66 |ng YEAR.|"]).(def|
|00001d90| 61 6c 69 61 73 20 27 74 | 69 6d 65 7a 6f 6e 65 2d |alias 't|imezone-|
|00001da0| 6c 65 61 70 2d 79 65 61 | 72 2d 70 20 23 5b 28 79 |leap-yea|r-p #[(y|
|00001db0| 65 61 72 29 20 22 08 c1 | a6 c2 55 83 11 00 08 c3 |ear) "..|..U.....|
|00001dc0| a6 c2 55 3f 86 16 00 08 | c4 a6 c2 55 87 22 20 5b |..U?....|...U." [|
|00001dd0| 79 65 61 72 20 34 20 30 | 20 31 30 30 20 34 30 30 |year 4 0| 100 400|
|00001de0| 5d 20 32 20 22 5c 0a 52 | 65 74 75 72 6e 73 20 74 |] 2 "\.R|eturns t|
|00001df0| 20 69 66 20 59 45 41 52 | 20 69 73 20 61 20 47 72 | if YEAR| is a Gr|
|00001e00| 65 67 6f 72 69 61 6e 20 | 6c 65 61 70 20 79 65 61 |egorian |leap yea|
|00001e10| 72 2e 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |r."]).(d|efalias |
|00001e20| 27 74 69 6d 65 7a 6f 6e | 65 2d 64 61 79 2d 6e 75 |'timezon|e-day-nu|
|00001e30| 6d 62 65 72 20 23 5b 28 | 6d 6f 6e 74 68 20 64 61 |mber #[(|month da|
|00001e40| 79 20 79 65 61 72 29 20 | 22 08 09 53 c2 5f 5c 5c |y year) |"..S._\\|
|00001e50| 1b 09 c4 56 83 21 00 0b | 09 c5 5f c6 5c 5c c7 a5 |...V.!..|.._.\\..|
|00001e60| 5a 13 c8 0e 09 21 83 21 | 00 0b 54 13 0b 29 87 22 |Z....!.!|..T..)."|
|00001e70| 20 5b 64 61 79 20 6d 6f | 6e 74 68 20 33 31 20 64 | [day mo|nth 31 d|
|00001e80| 61 79 2d 6f 66 2d 79 65 | 61 72 20 32 20 34 20 32 |ay-of-ye|ar 2 4 2|
|00001e90| 33 20 31 30 20 74 69 6d | 65 7a 6f 6e 65 2d 6c 65 |3 10 tim|ezone-le|
|00001ea0| 61 70 2d 79 65 61 72 2d | 70 20 79 65 61 72 5d 20 |ap-year-|p year] |
|00001eb0| 33 20 22 5c 0a 52 65 74 | 75 72 6e 20 74 68 65 20 |3 "\.Ret|urn the |
|00001ec0| 64 61 79 20 6e 75 6d 62 | 65 72 20 77 69 74 68 69 |day numb|er withi|
|00001ed0| 6e 20 74 68 65 20 79 65 | 61 72 20 6f 66 20 74 68 |n the ye|ar of th|
|00001ee0| 65 20 64 61 74 65 20 6d | 6f 6e 74 68 2f 64 61 79 |e date m|onth/day|
|00001ef0| 2f 79 65 61 72 2e 22 5d | 29 0a 28 64 65 66 61 6c |/year."]|).(defal|
|00001f00| 69 61 73 20 27 74 69 6d | 65 7a 6f 6e 65 2d 61 62 |ias 'tim|ezone-ab|
|00001f10| 73 6f 6c 75 74 65 2d 66 | 72 6f 6d 2d 67 72 65 67 |solute-f|rom-greg|
|00001f20| 6f 72 69 61 6e 20 23 5b | 28 6d 6f 6e 74 68 20 64 |orian #[|(month d|
|00001f30| 61 79 20 79 65 61 72 29 | 20 22 c0 09 5c 6e 0b 23 |ay year)| "..\n.#|
|00001f40| 0b 53 c4 5f 0b 53 c5 a5 | 0b 53 c6 a5 5b 0b 53 c7 |.S._.S..|.S..[.S.|
|00001f50| a5 5c 5c 5c 5c 5c 5c 5c | 5c 87 22 20 5b 74 69 6d |.\\\\\\\|\." [tim|
|00001f60| 65 7a 6f 6e 65 2d 64 61 | 79 2d 6e 75 6d 62 65 72 |ezone-da|y-number|
|00001f70| 20 6d 6f 6e 74 68 20 64 | 61 79 20 79 65 61 72 20 | month d|ay year |
|00001f80| 33 36 35 20 34 20 31 30 | 30 20 34 30 30 5d 20 36 |365 4 10|0 400] 6|
|00001f90| 20 22 5c 0a 54 68 65 20 | 6e 75 6d 62 65 72 20 6f | "\.The |number o|
|00001fa0| 66 20 64 61 79 73 20 62 | 65 74 77 65 65 6e 20 74 |f days b|etween t|
|00001fb0| 68 65 20 47 72 65 67 6f | 72 69 61 6e 20 64 61 74 |he Grego|rian dat|
|00001fc0| 65 20 31 32 2f 33 31 2f | 31 20 42 43 20 61 6e 64 |e 12/31/|1 BC and|
|00001fd0| 20 6d 6f 6e 74 68 2f 64 | 61 79 2f 79 65 61 72 2e | month/d|ay/year.|
|00001fe0| 0a 54 68 65 20 47 72 65 | 67 6f 72 69 61 6e 20 64 |.The Gre|gorian d|
|00001ff0| 61 74 65 20 53 75 6e 64 | 61 79 2c 20 44 65 63 65 |ate Sund|ay, Dece|
|00002000| 6d 62 65 72 20 33 31 2c | 20 31 20 42 43 20 69 73 |mber 31,| 1 BC is|
|00002010| 20 69 6d 61 67 69 6e 61 | 72 79 2e 22 5d 29 0a    | imagina|ry."]). |
+--------+-------------------------+-------------------------+--------+--------+