/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / gnus / parse-time.elc.z / parse-time.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 33 |on Mon M|ar  9 13|
|00000040| 3a 30 33 3a 33 30 20 31 | 39 39 38 0a 3b 3b 3b 20 |:03:30 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 67 6e 75 73 |s-20.3/l|isp/gnus|
|000000a0| 2f 70 61 72 73 65 2d 74 | 69 6d 65 2e 65 6c 0a 3b |/parse-t|ime.el.;|
|000000b0| 3b 3b 20 65 6d 61 63 73 | 20 76 65 72 73 69 6f 6e |;; emacs| version|
|000000c0| 20 32 30 2e 34 20 22 45 | 6d 65 72 61 6c 64 22 20 | 20.4 "E|merald" |
|000000d0| 58 45 6d 61 63 73 20 20 | 4c 75 63 69 64 2e 0a 3b |XEmacs  |Lucid..;|
|000000e0| 3b 3b 20 62 79 74 65 63 | 6f 6d 70 20 76 65 72 73 |;; bytec|omp vers|
|000000f0| 69 6f 6e 20 32 2e 32 35 | 20 58 45 6d 61 63 73 3b |ion 2.25| XEmacs;|
|00000100| 20 32 32 2d 4d 61 72 2d | 39 36 2e 0a 3b 3b 3b 20 | 22-Mar-|96..;;; |
|00000110| 6f 70 74 69 6d 69 7a 61 | 74 69 6f 6e 20 69 73 20 |optimiza|tion is |
|00000120| 6f 6e 2e 0a 3b 3b 3b 20 | 74 68 69 73 20 66 69 6c |on..;;; |this fil|
|00000130| 65 20 75 73 65 73 20 6f | 70 63 6f 64 65 73 20 77 |e uses o|pcodes w|
|00000140| 68 69 63 68 20 64 6f 20 | 6e 6f 74 20 65 78 69 73 |hich do |not exis|
|00000150| 74 20 69 6e 20 45 6d 61 | 63 73 20 31 39 2e 0a 0a |t in Ema|cs 19...|
|00000160| 28 69 66 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(if (and| (boundp|
|00000170| 20 27 65 6d 61 63 73 2d | 76 65 72 73 69 6f 6e 29 | 'emacs-|version)|
|00000180| 0a 09 20 28 6f 72 20 28 | 61 6e 64 20 28 62 6f 75 |.. (or (|and (bou|
|00000190| 6e 64 70 20 27 65 70 6f | 63 68 3a 3a 76 65 72 73 |ndp 'epo|ch::vers|
|000001a0| 69 6f 6e 29 20 65 70 6f | 63 68 3a 3a 76 65 72 73 |ion) epo|ch::vers|
|000001b0| 69 6f 6e 29 0a 09 20 20 | 20 20 20 28 73 74 72 69 |ion)..  |   (stri|
|000001c0| 6e 67 2d 6c 65 73 73 70 | 20 65 6d 61 63 73 2d 76 |ng-lessp| emacs-v|
|000001d0| 65 72 73 69 6f 6e 20 22 | 32 30 22 29 29 29 0a 20 |ersion "|20"))). |
|000001e0| 20 20 20 28 65 72 72 6f | 72 20 22 60 70 61 72 73 |   (erro|r "`pars|
|000001f0| 65 2d 74 69 6d 65 2e 65 | 6c 27 20 77 61 73 20 63 |e-time.e|l' was c|
|00000200| 6f 6d 70 69 6c 65 64 20 | 66 6f 72 20 45 6d 61 63 |ompiled |for Emac|
|00000210| 73 20 32 30 22 29 29 0a | 0a 28 6f 72 20 28 62 6f |s 20")).|.(or (bo|
|00000220| 75 6e 64 70 20 27 63 75 | 72 72 65 6e 74 2d 6c 6f |undp 'cu|rrent-lo|
|00000230| 61 64 2d 6c 69 73 74 29 | 20 28 73 65 74 71 20 63 |ad-list)| (setq c|
|00000240| 75 72 72 65 6e 74 2d 6c | 6f 61 64 2d 6c 69 73 74 |urrent-l|oad-list|
|00000250| 20 6e 69 6c 29 29 0a 0a | 0a 28 62 79 74 65 2d 63 | nil))..|.(byte-c|
|00000260| 6f 64 65 20 22 c0 c1 c2 | c3 23 88 c4 c1 21 ac 84 |ode "...|.#...!..|
|00000270| c5 c1 21 11 c1 0e 06 42 | 16 06 c4 c7 21 ac 85 c5 |..!....B|....!...|
|00000280| c1 21 16 07 c7 0e 06 42 | 16 06 c8 0e 06 42 16 06 |.!.....B|.....B..|
|00000290| c9 0e 06 42 16 06 0e 07 | ca 48 ac 9b ca 1e 0b ca |...B....|.H......|
|000002a0| cc 58 ab 92 cd 0e 07 0e | 0b 89 ca 5a 23 88 0e 0b |.X......|...Z#...|
|000002b0| 54 89 16 0b aa 6a 29 09 | ca 48 ac da ca 1e 0b ca |T....j).|.H......|
|000002c0| cc 58 ab 8f cd 09 0e 0b | ca 23 88 0e 0b 54 89 16 |.X......|.#...T..|
|000002d0| 0b aa 6d 29 ce 1e 0b ce | cf 58 ab 8f cd 09 0e 0b |..m)....|.X......|
|000002e0| ce 23 88 0e 0b 54 89 16 | 0b aa 6d 29 d0 1e 0b d0 |.#...T..|..m)....|
|000002f0| d1 58 ab 8f cd 09 0e 0b | d0 23 88 0e 0b 54 89 16 |.X......|.#...T..|
|00000300| 0b aa 6d 29 cd 09 d2 d3 | 23 88 cd 09 d4 d5 23 88 |..m)....|#.....#.|
|00000310| cd 09 d6 d7 23 88 d8 87 | 22 20 5b 70 75 74 20 70 |....#...|" [put p|
|00000320| 61 72 73 65 2d 74 69 6d | 65 2d 73 79 6e 74 61 78 |arse-tim|e-syntax|
|00000330| 20 63 68 61 72 2d 74 61 | 62 6c 65 2d 65 78 74 72 | char-ta|ble-extr|
|00000340| 61 2d 73 6c 6f 74 73 20 | 30 20 62 6f 75 6e 64 70 |a-slots |0 boundp|
|00000350| 20 6d 61 6b 65 2d 63 68 | 61 72 2d 74 61 62 6c 65 | make-ch|ar-table|
|00000360| 20 63 75 72 72 65 6e 74 | 2d 6c 6f 61 64 2d 6c 69 | current|-load-li|
|00000370| 73 74 20 70 61 72 73 65 | 2d 74 69 6d 65 2d 64 69 |st parse|-time-di|
|00000380| 67 69 74 73 20 65 6c 74 | 20 76 61 6c 20 3f 30 20 |gits elt| val ?0 |
|00000390| 69 20 3f 39 20 73 65 74 | 2d 63 68 61 72 2d 74 61 |i ?9 set|-char-ta|
|000003a0| 62 6c 65 2d 72 61 6e 67 | 65 20 3f 41 20 3f 5a 20 |ble-rang|e ?A ?Z |
|000003b0| 3f 61 20 3f 7a 20 3f 5c | 2b 20 31 20 3f 5c 2d 20 |?a ?z ?\|+ 1 ?\- |
|000003c0| 2d 31 20 3f 5c 3a 20 3f | 64 20 6e 69 6c 5d 20 36 |-1 ?\: ?|d nil] 6|
|000003d0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 64 69 67 |).(defal|ias 'dig|
|000003e0| 69 74 2d 63 68 61 72 2d | 70 20 23 5b 28 63 68 61 |it-char-|p #[(cha|
|000003f0| 72 29 20 22 08 09 48 87 | 22 20 5b 70 61 72 73 65 |r) "..H.|" [parse|
|00000400| 2d 74 69 6d 65 2d 64 69 | 67 69 74 73 20 63 68 61 |-time-di|gits cha|
|00000410| 72 5d 20 32 5d 29 0a 28 | 62 79 74 65 2d 63 6f 64 |r] 2]).(|byte-cod|
|00000420| 65 20 22 c0 c1 4e c2 73 | ac 85 c3 c4 c0 5c 22 88 |e "..N.s|.....\".|
|00000430| c5 c0 c1 c6 23 87 22 20 | 5b 64 69 67 69 74 2d 63 |....#." |[digit-c|
|00000440| 68 61 72 2d 70 20 62 79 | 74 65 2d 6f 70 74 69 6d |har-p by|te-optim|
|00000450| 69 7a 65 72 20 28 6e 69 | 6c 20 62 79 74 65 2d 63 |izer (ni|l byte-c|
|00000460| 6f 6d 70 69 6c 65 2d 69 | 6e 6c 69 6e 65 2d 65 78 |ompile-i|nline-ex|
|00000470| 70 61 6e 64 29 20 65 72 | 72 6f 72 20 22 25 73 20 |pand) er|ror "%s |
|00000480| 61 6c 72 65 61 64 79 20 | 68 61 73 20 61 20 62 79 |already |has a by|
|00000490| 74 65 2d 6f 70 74 69 6d | 69 7a 65 72 2c 20 63 61 |te-optim|izer, ca|
|000004a0| 6e 27 74 20 6d 61 6b 65 | 20 69 74 20 69 6e 6c 69 |n't make| it inli|
|000004b0| 6e 65 22 20 70 75 74 20 | 62 79 74 65 2d 63 6f 6d |ne" put |byte-com|
|000004c0| 70 69 6c 65 2d 69 6e 6c | 69 6e 65 2d 65 78 70 61 |pile-inl|ine-expa|
|000004d0| 6e 64 5d 20 34 29 0a 28 | 64 65 66 61 6c 69 61 73 |nd] 4).(|defalias|
|000004e0| 20 27 70 61 72 73 65 2d | 74 69 6d 65 2d 73 74 72 | 'parse-|time-str|
|000004f0| 69 6e 67 2d 63 68 61 72 | 73 20 23 5b 28 63 68 61 |ing-char|s #[(cha|
|00000500| 72 29 20 22 08 09 48 87 | 22 20 5b 70 61 72 73 65 |r) "..H.|" [parse|
|00000510| 2d 74 69 6d 65 2d 73 79 | 6e 74 61 78 20 63 68 61 |-time-sy|ntax cha|
|00000520| 72 5d 20 32 5d 29 0a 28 | 62 79 74 65 2d 63 6f 64 |r] 2]).(|byte-cod|
|00000530| 65 20 22 c0 c1 4e c2 73 | ac 85 c3 c4 c0 5c 22 88 |e "..N.s|.....\".|
|00000540| c5 c0 c1 c6 23 88 c5 c7 | c8 c9 23 88 c5 c7 ca cb |....#...|..#.....|
|00000550| 23 87 22 20 5b 70 61 72 | 73 65 2d 74 69 6d 65 2d |#." [par|se-time-|
|00000560| 73 74 72 69 6e 67 2d 63 | 68 61 72 73 20 62 79 74 |string-c|hars byt|
|00000570| 65 2d 6f 70 74 69 6d 69 | 7a 65 72 20 28 6e 69 6c |e-optimi|zer (nil|
|00000580| 20 62 79 74 65 2d 63 6f | 6d 70 69 6c 65 2d 69 6e | byte-co|mpile-in|
|00000590| 6c 69 6e 65 2d 65 78 70 | 61 6e 64 29 20 65 72 72 |line-exp|and) err|
|000005a0| 6f 72 20 22 25 73 20 61 | 6c 72 65 61 64 79 20 68 |or "%s a|lready h|
|000005b0| 61 73 20 61 20 62 79 74 | 65 2d 6f 70 74 69 6d 69 |as a byt|e-optimi|
|000005c0| 7a 65 72 2c 20 63 61 6e | 27 74 20 6d 61 6b 65 20 |zer, can|'t make |
|000005d0| 69 74 20 69 6e 6c 69 6e | 65 22 20 70 75 74 20 62 |it inlin|e" put b|
|000005e0| 79 74 65 2d 63 6f 6d 70 | 69 6c 65 2d 69 6e 6c 69 |yte-comp|ile-inli|
|000005f0| 6e 65 2d 65 78 70 61 6e | 64 20 70 61 72 73 65 2d |ne-expan|d parse-|
|00000600| 65 72 72 6f 72 20 65 72 | 72 6f 72 2d 63 6f 6e 64 |error er|ror-cond|
|00000610| 69 74 69 6f 6e 73 20 28 | 70 61 72 73 65 2d 65 72 |itions (|parse-er|
|00000620| 72 6f 72 20 65 72 72 6f | 72 29 20 65 72 72 6f 72 |ror erro|r) error|
|00000630| 2d 6d 65 73 73 61 67 65 | 20 22 50 61 72 73 69 6e |-message| "Parsin|
|00000640| 67 20 65 72 72 6f 72 22 | 5d 20 34 29 0a 23 40 36 |g error"|] 4).#@6|
|00000650| 32 20 5b 43 4c 5d 20 50 | 61 72 73 65 20 61 6e 64 |2 [CL] P|arse and|
|00000660| 20 72 65 74 75 72 6e 20 | 74 68 65 20 69 6e 74 65 | return |the inte|
|00000670| 67 65 72 20 69 6e 20 53 | 54 52 49 4e 47 2c 20 6f |ger in S|TRING, o|
|00000680| 72 20 6e 69 6c 20 69 66 | 20 6e 6f 6e 65 2e 1f 0a |r nil if| none...|
|00000690| 28 64 65 66 61 6c 69 61 | 73 20 27 70 61 72 73 65 |(defalia|s 'parse|
|000006a0| 2d 69 6e 74 65 67 65 72 | 20 23 5b 28 73 74 72 69 |-integer| #[(stri|
|000006b0| 6e 67 20 26 6f 70 74 69 | 6f 6e 61 6c 20 73 74 61 |ng &opti|onal sta|
|000006c0| 72 74 20 65 6e 64 29 20 | 22 c0 89 09 ae 81 c0 5c |rt end) |"......\|
|000006d0| 6e ae 82 0b 47 1a 1c 1d | 1e 06 0c 5c 6e 57 ad df |n...G...|...\nW..|
|000006e0| 0b 0c 48 89 1e 07 c8 61 | ac 86 0e 07 c9 61 ab 91 |..H....a|.....a..|
|000006f0| 0e 07 1e 5c 6e 0e 0b 0e | 5c 6e 48 29 16 07 0c 54 |...\n...|\nH)...T|
|00000700| 14 aa 83 cc 16 07 0c 5c | 6e 57 ab 9d 0b 0c 48 1e |.......\|nW....H.|
|00000710| 5c 6e 0e 0d 0e 5c 6e 48 | 29 89 15 ab 8e 0e 06 ce |\n...\nH|).......|
|00000720| 5f 0d 5c 5c 16 06 0c 54 | 89 14 aa 5f 0c 5c 6e 55 |_.\\...T|..._.\nU|
|00000730| ac 8e cf d0 d1 0b 09 ae | 81 c0 5c 6e 4f 44 5c 22 |........|..\nOD\"|
|00000740| aa 85 0e 07 0e 06 5f 29 | 2c 87 22 20 5b 30 20 73 |......_)|,." [0 s|
|00000750| 74 61 72 74 20 65 6e 64 | 20 73 74 72 69 6e 67 20 |tart end| string |
|00000760| 69 6e 64 65 78 20 64 69 | 67 69 74 20 69 6e 74 65 |index di|git inte|
|00000770| 67 65 72 20 73 69 67 6e | 20 3f 5c 2b 20 3f 5c 2d |ger sign| ?\+ ?\-|
|00000780| 20 63 68 61 72 20 70 61 | 72 73 65 2d 74 69 6d 65 | char pa|rse-time|
|00000790| 2d 73 79 6e 74 61 78 20 | 31 20 70 61 72 73 65 2d |-syntax |1 parse-|
|000007a0| 74 69 6d 65 2d 64 69 67 | 69 74 73 20 31 30 20 73 |time-dig|its 10 s|
|000007b0| 69 67 6e 61 6c 20 70 61 | 72 73 65 2d 65 72 72 6f |ignal pa|rse-erro|
|000007c0| 72 20 22 6e 6f 74 20 61 | 6e 20 69 6e 74 65 67 65 |r "not a|n intege|
|000007d0| 72 22 5d 20 37 20 28 23 | 24 20 2e 20 31 36 31 38 |r"] 7 (#|$ . 1618|
|000007e0| 29 5d 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |)]).(byt|e-code "|
|000007f0| c0 c1 4e c2 73 ac 85 c3 | c4 c0 5c 22 88 c5 c0 c1 |..N.s...|..\"....|
|00000800| c6 23 87 22 20 5b 70 61 | 72 73 65 2d 69 6e 74 65 |.#." [pa|rse-inte|
|00000810| 67 65 72 20 62 79 74 65 | 2d 6f 70 74 69 6d 69 7a |ger byte|-optimiz|
|00000820| 65 72 20 28 6e 69 6c 20 | 62 79 74 65 2d 63 6f 6d |er (nil |byte-com|
|00000830| 70 69 6c 65 2d 69 6e 6c | 69 6e 65 2d 65 78 70 61 |pile-inl|ine-expa|
|00000840| 6e 64 29 20 65 72 72 6f | 72 20 22 25 73 20 61 6c |nd) erro|r "%s al|
|00000850| 72 65 61 64 79 20 68 61 | 73 20 61 20 62 79 74 65 |ready ha|s a byte|
|00000860| 2d 6f 70 74 69 6d 69 7a | 65 72 2c 20 63 61 6e 27 |-optimiz|er, can'|
|00000870| 74 20 6d 61 6b 65 20 69 | 74 20 69 6e 6c 69 6e 65 |t make i|t inline|
|00000880| 22 20 70 75 74 20 62 79 | 74 65 2d 63 6f 6d 70 69 |" put by|te-compi|
|00000890| 6c 65 2d 69 6e 6c 69 6e | 65 2d 65 78 70 61 6e 64 |le-inlin|e-expand|
|000008a0| 5d 20 34 29 0a 23 40 33 | 34 20 54 6f 6b 65 6e 69 |] 4).#@3|4 Tokeni|
|000008b0| 7a 65 20 53 54 52 49 4e | 47 20 69 6e 74 6f 20 73 |ze STRIN|G into s|
|000008c0| 75 62 73 74 72 69 6e 67 | 73 2e 1f 0a 28 64 65 66 |ubstring|s...(def|
|000008d0| 61 6c 69 61 73 20 27 70 | 61 72 73 65 2d 74 69 6d |alias 'p|arse-tim|
|000008e0| 65 2d 74 6f 6b 65 6e 69 | 7a 65 20 23 5b 28 73 74 |e-tokeni|ze #[(st|
|000008f0| 72 69 6e 67 29 20 22 c0 | 09 47 c0 89 c2 c0 1b 1c |ring) ".|.G......|
|00000900| 1d 1e 06 1e 07 1e 08 0c | 0e 07 57 83 ff 00 0c 0e |........|..W.....|
|00000910| 07 57 ab 95 09 0c 48 1e | 09 0e 5c 6e 0e 09 48 29 |.W....H.|..\n..H)|
|00000920| 89 13 ac 86 0c 54 89 14 | aa 66 0c 16 08 0b cb 61 |.....T..|.f.....a|
|00000930| 16 06 0c 54 89 14 0e 07 | 57 ab 9a 09 0c 48 1e 09 |...T....|W....H..|
|00000940| 0e 5c 6e 0e 09 48 29 89 | 13 ab 8b 0e 06 ad 83 0b |.\n..H).|........|
|00000950| cb 61 16 06 aa 5d 0c 0e | 07 58 ab 2d 0e 06 83 f4 |.a...]..|.X.-....|
|00000960| 00 09 0e 08 0c 1e 07 1e | 08 19 c2 89 0e 08 ae 81 |........|........|
|00000970| c2 0e 07 ae 82 09 47 1e | 07 1c 1e 0c 1e 0d 0c 0e |......G.|........|
|00000980| 07 57 ad e5 09 0c 48 89 | 1e 0e cf 61 ac 86 0e 0e |.W....H.|...a....|
|00000990| d0 61 ab 91 0e 0e 1e 09 | 0e 5c 6e 0e 09 48 29 16 |.a......|.\n..H).|
|000009a0| 0e 0c 54 14 aa 83 d1 16 | 0e 0c 0e 07 57 ab 9f 09 |..T.....|....W...|
|000009b0| 0c 48 1e 09 0e 12 0e 09 | 48 29 89 16 0c ab 8f 0e |.H......|H)......|
|000009c0| 0d d3 5f 0e 0c 5c 5c 16 | 0d 0c 54 89 14 aa 5c 5c |.._..\\.|..T...\\|
|000009d0| 0c 0e 07 55 ac 90 d4 d5 | d6 09 0e 08 ae 81 c2 0e |...U....|........|
|000009e0| 07 4f 44 5c 22 aa 85 0e | 0e 0e 0d 5f 29 2e 07 aa |.OD\"...|..._)...|
|000009f0| 85 09 0e 08 0c 4f 0d 42 | 15 82 10 00 0d 9f 2e 06 |.....O.B|........|
|00000a00| 87 22 20 5b 6e 69 6c 20 | 73 74 72 69 6e 67 20 30 |." [nil |string 0|
|00000a10| 20 63 20 69 6e 64 65 78 | 20 6c 69 73 74 20 61 6c | c index| list al|
|00000a20| 6c 2d 64 69 67 69 74 73 | 20 65 6e 64 20 73 74 61 |l-digits| end sta|
|00000a30| 72 74 20 63 68 61 72 20 | 70 61 72 73 65 2d 74 69 |rt char |parse-ti|
|00000a40| 6d 65 2d 73 79 6e 74 61 | 78 20 3f 30 20 64 69 67 |me-synta|x ?0 dig|
|00000a50| 69 74 20 69 6e 74 65 67 | 65 72 20 73 69 67 6e 20 |it integ|er sign |
|00000a60| 3f 5c 2b 20 3f 5c 2d 20 | 31 20 70 61 72 73 65 2d |?\+ ?\- |1 parse-|
|00000a70| 74 69 6d 65 2d 64 69 67 | 69 74 73 20 31 30 20 73 |time-dig|its 10 s|
|00000a80| 69 67 6e 61 6c 20 70 61 | 72 73 65 2d 65 72 72 6f |ignal pa|rse-erro|
|00000a90| 72 20 22 6e 6f 74 20 61 | 6e 20 69 6e 74 65 67 65 |r "not a|n intege|
|00000aa0| 72 22 5d 20 38 20 28 23 | 24 20 2e 20 32 32 31 38 |r"] 8 (#|$ . 2218|
|00000ab0| 29 5d 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |)]).(byt|e-code "|
|00000ac0| c0 c1 21 ac 82 c2 11 c1 | 0b 42 13 c0 c4 21 ac 82 |..!.....|.B...!..|
|00000ad0| c5 14 c4 0b 42 13 c0 87 | 22 20 5b 62 6f 75 6e 64 |....B...|" [bound|
|00000ae0| 70 20 70 61 72 73 65 2d | 74 69 6d 65 2d 6d 6f 6e |p parse-|time-mon|
|00000af0| 74 68 73 20 28 28 22 4a | 61 6e 22 20 2e 20 31 29 |ths (("J|an" . 1)|
|00000b00| 20 28 22 46 65 62 22 20 | 2e 20 32 29 20 28 22 4d | ("Feb" |. 2) ("M|
|00000b10| 61 72 22 20 2e 20 33 29 | 20 28 22 41 70 72 22 20 |ar" . 3)| ("Apr" |
|00000b20| 2e 20 34 29 20 28 22 4d | 61 79 22 20 2e 20 35 29 |. 4) ("M|ay" . 5)|
|00000b30| 20 28 22 4a 75 6e 22 20 | 2e 20 36 29 20 28 22 4a | ("Jun" |. 6) ("J|
|00000b40| 75 6c 22 20 2e 20 37 29 | 20 28 22 41 75 67 22 20 |ul" . 7)| ("Aug" |
|00000b50| 2e 20 38 29 20 28 22 53 | 65 70 22 20 2e 20 39 29 |. 8) ("S|ep" . 9)|
|00000b60| 20 28 22 4f 63 74 22 20 | 2e 20 31 30 29 20 28 22 | ("Oct" |. 10) ("|
|00000b70| 4e 6f 76 22 20 2e 20 31 | 31 29 20 28 22 44 65 63 |Nov" . 1|1) ("Dec|
|00000b80| 22 20 2e 20 31 32 29 29 | 20 63 75 72 72 65 6e 74 |" . 12))| current|
|00000b90| 2d 6c 6f 61 64 2d 6c 69 | 73 74 20 70 61 72 73 65 |-load-li|st parse|
|00000ba0| 2d 74 69 6d 65 2d 77 65 | 65 6b 64 61 79 73 20 28 |-time-we|ekdays (|
|00000bb0| 28 22 53 75 6e 22 20 2e | 20 30 29 20 28 22 4d 6f |("Sun" .| 0) ("Mo|
|00000bc0| 6e 22 20 2e 20 31 29 20 | 28 22 54 75 65 22 20 2e |n" . 1) |("Tue" .|
|00000bd0| 20 32 29 20 28 22 57 65 | 64 22 20 2e 20 33 29 20 | 2) ("We|d" . 3) |
|00000be0| 28 22 54 68 75 22 20 2e | 20 34 29 20 28 22 46 72 |("Thu" .| 4) ("Fr|
|00000bf0| 69 22 20 2e 20 35 29 20 | 28 22 53 61 74 22 20 2e |i" . 5) |("Sat" .|
|00000c00| 20 36 29 29 5d 20 32 29 | 0a 23 40 34 38 20 28 7a | 6))] 2)|.#@48 (z|
|00000c10| 6f 6e 65 69 6e 66 6f 20 | 73 65 63 6f 6e 64 73 2d |oneinfo |seconds-|
|00000c20| 6f 66 66 20 64 61 79 6c | 69 67 68 74 2d 73 61 76 |off dayl|ight-sav|
|00000c30| 69 6e 67 73 2d 74 69 6d | 65 2d 70 29 1f 0a 28 64 |ings-tim|e-p)..(d|
|00000c40| 65 66 76 61 72 20 70 61 | 72 73 65 2d 74 69 6d 65 |efvar pa|rse-time|
|00000c50| 2d 7a 6f 6e 65 69 6e 66 | 6f 20 28 62 79 74 65 2d |-zoneinf|o (byte-|
|00000c60| 63 6f 64 65 20 22 c0 c1 | c2 c3 c4 44 c5 c6 c7 42 |code "..|...D...B|
|00000c70| 42 c8 c6 44 c9 ca cb 42 | 42 cc ca 44 cd ce cf 42 |B..D...B|B..D...B|
|00000c80| 42 d0 ce 44 d1 d2 d3 42 | 42 af 0b 87 22 20 5b 28 |B..D...B|B..." [(|
|00000c90| 22 5a 22 20 30 29 20 28 | 22 55 54 22 20 30 29 20 |"Z" 0) (|"UT" 0) |
|00000ca0| 28 22 47 4d 54 22 20 30 | 29 20 22 50 53 54 22 20 |("GMT" 0|) "PST" |
|00000cb0| 2d 32 38 38 30 30 20 22 | 50 44 54 22 20 2d 32 35 |-28800 "|PDT" -25|
|00000cc0| 32 30 30 20 28 74 29 20 | 22 4d 53 54 22 20 22 4d |200 (t) |"MST" "M|
|00000cd0| 44 54 22 20 2d 32 31 36 | 30 30 20 28 74 29 20 22 |DT" -216|00 (t) "|
|00000ce0| 43 53 54 22 20 22 43 44 | 54 22 20 2d 31 38 30 30 |CST" "CD|T" -1800|
|00000cf0| 30 20 28 74 29 20 22 45 | 53 54 22 20 22 45 44 54 |0 (t) "E|ST" "EDT|
|00000d00| 22 20 2d 31 34 34 30 30 | 20 28 74 29 5d 20 31 33 |" -14400| (t)] 13|
|00000d10| 29 20 28 23 24 20 2e 20 | 33 30 38 36 29 29 0a 23 |) (#$ . |3086)).#|
|00000d20| 40 33 32 20 28 73 6c 6f | 74 73 20 70 72 65 64 69 |@32 (slo|ts predi|
|00000d30| 63 61 74 65 20 65 78 74 | 72 61 63 74 6f 72 2e 2e |cate ext|ractor..|
|00000d40| 2e 29 1f 0a 28 64 65 66 | 76 61 72 20 70 61 72 73 |.)..(def|var pars|
|00000d50| 65 2d 74 69 6d 65 2d 72 | 75 6c 65 73 20 28 62 79 |e-time-r|ules (by|
|00000d60| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 c2 c3 c4 c5 c6 |te-code |".......|
|00000d70| c7 c8 5c 22 c6 c9 ca 5c | 22 c6 cb cc 5c 22 af 05 |..\"...\|"...\"..|
|00000d80| cd ce cf d0 46 d1 d2 d3 | 45 d4 d5 c6 c7 d6 5c 22 |....F...|E.....\"|
|00000d90| c6 ca d7 5c 22 c6 cc d8 | 5c 22 af 05 d9 da c6 c7 |...\"...|\"......|
|00000da0| c8 5c 22 c6 c9 ca 5c 22 | 46 db dc dd 45 af 5c 6e |.\"...\"|F...E.\n|
|00000db0| 87 22 20 5b 28 28 36 29 | 20 70 61 72 73 65 2d 74 |." [((6)| parse-t|
|00000dc0| 69 6d 65 2d 77 65 65 6b | 64 61 79 73 29 20 28 28 |ime-week|days) ((|
|00000dd0| 33 29 20 28 31 20 33 31 | 29 29 20 28 28 34 29 20 |3) (1 31|)) ((4) |
|00000de0| 70 61 72 73 65 2d 74 69 | 6d 65 2d 6d 6f 6e 74 68 |parse-ti|me-month|
|00000df0| 73 29 20 28 28 35 29 20 | 28 31 39 37 30 20 32 30 |s) ((5) |(1970 20|
|00000e00| 33 38 29 29 20 28 32 20 | 31 20 30 29 20 23 5b 6e |38)) (2 |1 0) #[n|
|00000e10| 69 6c 20 22 08 3b ad 92 | 08 47 c1 55 ad 8c 08 c2 |il ".;..|.G.U....|
|00000e20| 48 c3 55 ad 85 08 c4 48 | c3 55 87 22 20 5b 65 6c |H.U....H|.U." [el|
|00000e30| 74 20 38 20 32 20 3f 5c | 3a 20 35 5d 20 32 5d 20 |t 8 2 ?\|: 5] 2] |
|00000e40| 76 65 63 74 6f 72 20 30 | 20 32 20 33 20 35 20 36 |vector 0| 2 3 5 6|
|00000e50| 20 38 20 28 38 20 37 29 | 20 70 61 72 73 65 2d 74 | 8 (8 7)| parse-t|
|00000e60| 69 6d 65 2d 7a 6f 6e 65 | 69 6e 66 6f 20 23 5b 6e |ime-zone|info #[n|
|00000e70| 69 6c 20 22 08 40 87 22 | 20 5b 76 61 6c 5d 20 31 |il ".@."| [val] 1|
|00000e80| 5d 20 23 5b 6e 69 6c 20 | 22 08 41 40 87 22 20 5b |] #[nil |".A@." [|
|00000e90| 76 61 6c 5d 20 31 5d 20 | 28 38 29 20 23 5b 6e 69 |val] 1] |(8) #[ni|
|00000ea0| 6c 20 22 08 3b ad 92 08 | 47 c1 55 ad 8c 08 c2 48 |l ".;...|G.U....H|
|00000eb0| c3 55 ae 85 08 c2 48 c4 | 55 87 22 20 5b 65 6c 74 |.U....H.|U." [elt|
|00000ec0| 20 35 20 30 20 3f 5c 2b | 20 3f 5c 2d 5d 20 32 5d | 5 0 ?\+| ?\-] 2]|
|00000ed0| 20 23 5b 6e 69 6c 20 22 | 08 c1 c2 1b 1c 1d c6 89 | #[nil "|........|
|00000ee0| 0c ae 81 c6 0b ae 82 0d | 47 1b 1e 07 1e 08 1e 09 |........|G.......|
|00000ef0| 0e 07 0b 57 ad e9 0d 0e | 07 48 89 1e 5c 6e cb 61 |...W....|.H..\n.a|
|00000f00| ac 86 0e 5c 6e cc 61 ab | 93 0e 5c 6e 1e 0d 0e 0e |...\n.a.|..\n....|
|00000f10| 0e 0d 48 29 16 5c 6e 0e | 07 54 16 07 aa 83 cf 16 |..H).\n.|.T......|
|00000f20| 5c 6e 0e 07 0b 57 ab a2 | 0d 0e 07 48 1e 0d 0e 10 |\n...W..|...H....|
|00000f30| 0e 0d 48 29 89 16 08 ab | 91 0e 09 d1 5f 0e 08 5c |..H)....|...._..\|
|00000f40| 5c 16 09 0e 07 54 89 16 | 07 aa 5a 0e 07 0b 55 ac |\....T..|..Z...U.|
|00000f50| 8e d2 d3 d4 0d 0c ae 81 | c6 0b 4f 44 5c 22 aa 85 |........|..OD\"..|
|00000f60| 0e 5c 6e 0e 09 5f 29 2e | 07 08 cf c1 1b 1c 1d c6 |.\n.._).|........|
|00000f70| 89 0c ae 81 c6 0b ae 82 | 0d 47 1b 1e 07 1e 08 1e |........|.G......|
|00000f80| 09 0e 07 0b 57 ad e9 0d | 0e 07 48 89 1e 5c 6e cb |....W...|..H..\n.|
|00000f90| 61 ac 86 0e 5c 6e cc 61 | ab 93 0e 5c 6e 1e 0d 0e |a...\n.a|...\n...|
|00000fa0| 0e 0e 0d 48 29 16 5c 6e | 0e 07 54 16 07 aa 83 cf |...H).\n|..T.....|
|00000fb0| 16 5c 6e 0e 07 0b 57 ab | a2 0d 0e 07 48 1e 0d 0e |.\n...W.|....H...|
|00000fc0| 10 0e 0d 48 29 89 16 08 | ab 91 0e 09 d1 5f 0e 08 |...H)...|....._..|
|00000fd0| 5c 5c 16 09 0e 07 54 89 | 16 07 aa 5a 0e 07 0b 55 |\\....T.|...Z...U|
|00000fe0| ac 8e d2 d3 d4 0d 0c ae | 81 c6 0b 4f 44 5c 22 aa |........|...OD\".|
|00000ff0| 85 0e 5c 6e 0e 09 5f 29 | 2e 07 d5 5f 5c 5c 08 c6 |..\n.._)|..._\\..|
|00001000| 48 cc 55 ab 83 d6 aa 81 | cf 5f d5 5f 87 22 20 5b |H.U.....|._._." [|
|00001010| 65 6c 74 20 33 20 35 20 | 65 6e 64 20 73 74 61 72 |elt 3 5 |end star|
|00001020| 74 20 73 74 72 69 6e 67 | 20 30 20 69 6e 64 65 78 |t string| 0 index|
|00001030| 20 64 69 67 69 74 20 69 | 6e 74 65 67 65 72 20 73 | digit i|nteger s|
|00001040| 69 67 6e 20 3f 5c 2b 20 | 3f 5c 2d 20 63 68 61 72 |ign ?\+ |?\- char|
|00001050| 20 70 61 72 73 65 2d 74 | 69 6d 65 2d 73 79 6e 74 | parse-t|ime-synt|
|00001060| 61 78 20 31 20 70 61 72 | 73 65 2d 74 69 6d 65 2d |ax 1 par|se-time-|
|00001070| 64 69 67 69 74 73 20 31 | 30 20 73 69 67 6e 61 6c |digits 1|0 signal|
|00001080| 20 70 61 72 73 65 2d 65 | 72 72 6f 72 20 22 6e 6f | parse-e|rror "no|
|00001090| 74 20 61 6e 20 69 6e 74 | 65 67 65 72 22 20 36 30 |t an int|eger" 60|
|000010a0| 20 2d 31 5d 20 38 5d 20 | 28 35 20 34 20 33 29 20 | -1] 8] |(5 4 3) |
|000010b0| 23 5b 6e 69 6c 20 22 08 | 3b ad 92 08 47 c1 55 ad |#[nil ".|;...G.U.|
|000010c0| 8c 08 c2 48 c3 55 ad 85 | 08 c4 48 c3 55 87 22 20 |...H.U..|..H.U." |
|000010d0| 5b 65 6c 74 20 31 30 20 | 34 20 3f 5c 2d 20 37 5d |[elt 10 |4 ?\- 7]|
|000010e0| 20 32 5d 20 34 20 37 20 | 31 30 20 28 32 20 31 29 | 2] 4 7 |10 (2 1)|
|000010f0| 20 23 5b 6e 69 6c 20 22 | 08 3b ad 8b 08 47 c1 55 | #[nil "|.;...G.U|
|00001100| ad 85 08 c2 48 c3 55 87 | 22 20 5b 65 6c 74 20 35 |....H.U.|" [elt 5|
|00001110| 20 32 20 3f 5c 3a 5d 20 | 32 5d 20 28 35 29 20 28 | 2 ?\:] |2] (5) (|
|00001120| 37 30 20 39 39 29 20 23 | 5b 6e 69 6c 20 22 08 c1 |70 99) #|[nil "..|
|00001130| 5c 5c 87 22 20 5b 65 6c | 74 20 31 39 30 30 5d 20 |\\." [el|t 1900] |
|00001140| 32 5d 5d 20 31 34 29 20 | 28 23 24 20 2e 20 33 33 |2]] 14) |(#$ . 33|
|00001150| 36 34 29 29 0a 23 40 31 | 38 30 20 50 61 72 73 65 |64)).#@1|80 Parse|
|00001160| 20 74 68 65 20 74 69 6d | 65 2d 73 74 72 69 6e 67 | the tim|e-string|
|00001170| 20 53 54 52 49 4e 47 20 | 69 6e 74 6f 20 28 53 45 | STRING |into (SE|
|00001180| 43 20 4d 49 4e 20 48 4f | 55 52 20 44 41 59 20 4d |C MIN HO|UR DAY M|
|00001190| 4f 4e 20 59 45 41 52 20 | 44 4f 57 20 44 53 54 20 |ON YEAR |DOW DST |
|000011a0| 54 5a 29 2e 0a 54 68 65 | 20 76 61 6c 75 65 73 20 |TZ)..The| values |
|000011b0| 61 72 65 20 69 64 65 6e | 74 69 63 61 6c 20 74 6f |are iden|tical to|
|000011c0| 20 74 68 6f 73 65 20 6f | 66 20 60 64 65 63 6f 64 | those o|f `decod|
|000011d0| 65 2d 74 69 6d 65 27 2c | 20 62 75 74 20 61 6e 79 |e-time',| but any|
|000011e0| 20 76 61 6c 75 65 73 20 | 74 68 61 74 20 61 72 65 | values |that are|
|000011f0| 0a 75 6e 6b 6e 6f 77 6e | 20 61 72 65 20 72 65 74 |.unknown| are ret|
|00001200| 75 72 6e 65 64 20 61 73 | 20 6e 69 6c 2e 1f 0a 28 |urned as| nil...(|
|00001210| 64 65 66 61 6c 69 61 73 | 20 27 70 61 72 73 65 2d |defalias| 'parse-|
|00001220| 74 69 6d 65 2d 73 74 72 | 69 6e 67 20 23 5b 28 73 |time-str|ing #[(s|
|00001230| 74 72 69 6e 67 29 20 22 | c0 89 89 89 89 89 89 89 |tring) "|........|
|00001240| 89 89 af 5c 6e c1 5c 6e | 21 1b 1c 0b 83 6b 01 0b |...\n.\n|!....k..|
|00001250| 89 41 13 40 0d c0 1e 06 | 1e 07 1e 08 0e 07 83 67 |.A.@....|.......g|
|00001260| 01 0e 06 84 67 01 0e 07 | 89 41 16 07 40 89 1e 09 |....g...|.A..@...|
|00001270| 89 41 16 09 40 1e 5c 6e | 0e 09 89 41 16 09 40 1e |.A..@.\n|...A..@.|
|00001280| 0b c0 1e 0c 0e 5c 6e 40 | 0c 38 84 63 01 0e 0b 3a |.....\n@|.8.c...:|
|00001290| ab a1 0e 0b 40 cd 61 ac | 9a 0e 08 a7 ad a7 0e 0b |....@.a.|........|
|000012a0| 40 0e 08 58 ad 9f 0e 08 | 0e 0b 41 40 58 ad 96 0e |@..X....|..A@X...|
|000012b0| 08 aa 92 0e 0b 39 ab 8a | ce 0e 08 0e 0b 4a 5c 22 |.....9..|.....J\"|
|000012c0| 41 aa 83 0e 0b 20 89 16 | 0c 83 63 01 cf 16 06 0e |A.... ..|..c.....|
|000012d0| 5c 6e 83 63 01 0e 09 85 | 4c 01 0e 09 89 41 16 09 |\n.c....|L....A..|
|000012e0| 40 1e 10 d1 0e 10 21 83 | 48 01 0e 08 0e 10 d2 48 |@.....!.|H......H|
|000012f0| 0e 10 d3 48 1e 14 1e 15 | 1a d2 89 0e 15 ae 81 d2 |...H....|........|
|00001300| 0e 14 ae 82 5c 6e 47 1e | 14 1e 16 1e 17 1e 18 0e |....\nG.|........|
|00001310| 16 0e 14 57 ad ed 5c 6e | 0e 16 48 89 1e 19 da 61 |...W..\n|..H....a|
|00001320| ac 86 0e 19 db 61 ab 93 | 0e 19 1e 1c 0e 1d 0e 1c |.....a..|........|
|00001330| 48 29 16 19 0e 16 54 16 | 16 aa 83 d3 16 19 0e 16 |H)....T.|........|
|00001340| 0e 14 57 ab a2 5c 6e 0e | 16 48 1e 1c 0e 1e 0e 1c |..W..\n.|.H......|
|00001350| 48 29 89 16 17 ab 91 0e | 18 df 5f 0e 17 5c 5c 16 |H)......|.._..\\.|
|00001360| 18 0e 16 54 89 16 16 aa | 59 0e 16 0e 14 55 ac 90 |...T....|Y....U..|
|00001370| e0 e1 e2 5c 6e 0e 15 ae | 81 d2 0e 14 4f 44 5c 22 |...\n...|....OD\"|
|00001380| aa 85 0e 19 0e 18 5f 29 | 2e 07 aa 83 0e 10 20 29 |......_)|...... )|
|00001390| 1e 23 0e 5c 6e 89 41 16 | 5c 6e 40 0c 9b 0e 23 ae |.#.\n.A.|\n@...#.|
|000013a0| 82 0e 0c a0 88 29 82 92 | 00 2c 82 5c 22 00 2b 82 |.....)..|.,.\".+.|
|000013b0| 11 00 0c 2a 87 22 20 5b | 6e 69 6c 20 70 61 72 73 |...*." [|nil pars|
|000013c0| 65 2d 74 69 6d 65 2d 74 | 6f 6b 65 6e 69 7a 65 20 |e-time-t|okenize |
|000013d0| 73 74 72 69 6e 67 20 74 | 65 6d 70 20 74 69 6d 65 |string t|emp time|
|000013e0| 20 70 61 72 73 65 2d 74 | 69 6d 65 2d 72 75 6c 65 | parse-t|ime-rule|
|000013f0| 73 20 65 78 69 74 20 72 | 75 6c 65 73 20 65 6c 74 |s exit r|ules elt|
|00001400| 20 72 75 6c 65 20 73 6c | 6f 74 73 20 70 72 65 64 | rule sl|ots pred|
|00001410| 69 63 61 74 65 20 76 61 | 6c 20 6c 61 6d 62 64 61 |icate va|l lambda|
|00001420| 20 61 73 73 6f 63 20 74 | 20 74 68 69 73 20 76 65 | assoc t| this ve|
|00001430| 63 74 6f 72 70 20 30 20 | 31 20 65 6e 64 20 73 74 |ctorp 0 |1 end st|
|00001440| 61 72 74 20 69 6e 64 65 | 78 20 64 69 67 69 74 20 |art inde|x digit |
|00001450| 69 6e 74 65 67 65 72 20 | 73 69 67 6e 20 3f 5c 2b |integer |sign ?\+|
|00001460| 20 3f 5c 2d 20 63 68 61 | 72 20 70 61 72 73 65 2d | ?\- cha|r parse-|
|00001470| 74 69 6d 65 2d 73 79 6e | 74 61 78 20 70 61 72 73 |time-syn|tax pars|
|00001480| 65 2d 74 69 6d 65 2d 64 | 69 67 69 74 73 20 31 30 |e-time-d|igits 10|
|00001490| 20 73 69 67 6e 61 6c 20 | 70 61 72 73 65 2d 65 72 | signal |parse-er|
|000014a0| 72 6f 72 20 22 6e 6f 74 | 20 61 6e 20 69 6e 74 65 |ror "not| an inte|
|000014b0| 67 65 72 22 20 6e 65 77 | 2d 76 61 6c 5d 20 31 31 |ger" new|-val] 11|
|000014c0| 20 28 23 24 20 2e 20 34 | 34 34 33 29 5d 29 0a 28 | (#$ . 4|443)]).(|
|000014d0| 70 72 6f 76 69 64 65 20 | 27 70 61 72 73 65 2d 74 |provide |'parse-t|
|000014e0| 69 6d 65 29 0a          |                         |ime).   |        |
+--------+-------------------------+-------------------------+--------+--------+