;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require cl-lib iso8601] 2)#@13 (fn CHAR) (defalias 'parse-time-string-chars #[257 "\300X\203\211\301X\203\300\207\302X\203\211\303X\203\302\207\211\304\267\202(\305\207\306\207\307\207\302X\2055\211\303X\2055\302\207" [97 122 48 57 #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (43 34 45 36 58 38)) 1 -1 100] 3 (#$ . 151)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put parse-time-string-chars speed -1 put byte-optimizer byte-compile-inline-expand] 5)#@158 Tokenize STRING into substrings. Each substring is a run of "valid" characters, i.e., lowercase letters, digits, plus or minus signs or colons. (fn STRING) (defalias 'parse-time-tokenize #[257 "\300G\300\211\301\300W\203tW\203&\302H!\211\262\204&T\262\202 \262\211\303=\262T\211\262W\203P\302H!\211\262\203P\205K\211\303=\262\202.X\203\203g\304\305\306%\202mOB\262\202\237\207" [nil 0 #[257 "\300X\203\211\301X\203\300\207\302X\203\211\303X\203\302\207\211\304\267\202(\305\207\306\207\307\207\302X\2055\211\303X\2055\302\207" [97 122 48 57 #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (43 34 45 36 58 38)) 1 -1 100] 3 "\n\n(fn CHAR)"] 48 cl-parse-integer :start :end] 13 (#$ . 654)]) (defvar parse-time-months '(("jan" . 1) ("feb" . 2) ("mar" . 3) ("apr" . 4) ("may" . 5) ("jun" . 6) ("jul" . 7) ("aug" . 8) ("sep" . 9) ("oct" . 10) ("nov" . 11) ("dec" . 12) ("january" . 1) ("february" . 2) ("march" . 3) ("april" . 4) ("june" . 6) ("july" . 7) ("august" . 8) ("september" . 9) ("october" . 10) ("november" . 11) ("december" . 12))) (defvar parse-time-weekdays '(("sun" . 0) ("mon" . 1) ("tue" . 2) ("wed" . 3) ("thu" . 4) ("fri" . 5) ("sat" . 6) ("sunday" . 0) ("monday" . 1) ("tuesday" . 2) ("wednesday" . 3) ("thursday" . 4) ("friday" . 5) ("saturday" . 6)))#@48 (zoneinfo seconds-off daylight-savings-time-p) (defvar parse-time-zoneinfo (byte-code "\300\301\302\303\304D\305\306\307BB\310\306D\311\312\313BB\314\312D\315\316\317BB\320\316D\321\322\323BB\257 \207" [("z" 0) ("ut" 0) ("gmt" 0) "pst" -28800 "pdt" -25200 (t) "mst" "mdt" -21600 (t) "cst" "cdt" -18000 (t) "est" "edt" -14400 (t)] 13) (#$ . 2032))#@32 (slots predicate extractor...) (defvar parse-time-rules (byte-code "\300\301\302\303\304\305\306BB\307\310\311\312F\313\314\315E\316\317\320BB\321\322\323\324\325\257\326\327\330\331\332\257\333\334\335BB\336\337\340E\341\342\343E\257 \207" [((6) parse-time-weekdays) ((3) (1 31)) ((4) parse-time-months) ((5) (100)) (2 1 0) #[0 ";\205G\301U\205\302H\303U\205\304H\303U\207" [parse-time-elt 8 2 58 5] 2] ([0 2] [3 5] [6 8]) (8 7) parse-time-zoneinfo #[0 "@\207" [parse-time-val] 1] #[0 "A@\207" [parse-time-val] 1] (8) #[0 ";\205G\301U\205\302H\303U\206\302H\304U\207" [parse-time-elt 5 0 43 45] 2] #[0 "\301\302\303\304\305\306%\301\302\303\307\305\304%_\\_\310H\311U\203\312\202 \307_\207" [parse-time-elt 60 cl-parse-integer :start 3 :end 5 1 0 45 -1] 9] (5 4 3) #[0 ";\205G\301U\205\302H\303U\205\304H\303U\207" [parse-time-elt 10 4 45 7] 2] ([0 4] [5 7] [8 10]) (2 1 0) #[0 ";\205G\301U\205\302H\303U\207" [parse-time-elt 5 2 58] 2] [0 2] [3 5] #[0 "\300\207" [0] 1] (2 1 0) #[0 ";\205G\301U\205\302H\303U\207" [parse-time-elt 4 1 58] 2] [0 1] [2 4] #[0 "\300\207" [0] 1] (2 1 0) #[0 ";\205G\301U\205\302H\303U\207" [parse-time-elt 7 1 58] 2] ([0 1] [2 4] [5 7]) (5) (50 110) #[0 "\301\\\207" [parse-time-elt 1900] 2] (5) (0 49) #[0 "\301\\\207" [parse-time-elt 2000] 2]] 15) (#$ . 2384))#@625 Parse the time in STRING into (SEC MIN HOUR DAY MON YEAR DOW DST TZ). STRING should be an ISO 8601 time string, e.g., "2020-01-15T16:12:21-08:00", or something resembling an RFC 822 (or later) date-time, e.g., "Wed, 15 Jan 2020 16:12:21 -0800". This function is somewhat liberal in what format it accepts, and will attempt to return a "likely" value even for somewhat malformed strings. The values returned are identical to those of `decode-time', but any unknown values other than DST are returned as nil, and an unknown DST value is returned as -1. See `decode-time' for the meaning of FORM. (fn STRING &optional FORM) (defalias 'parse-time-string #[513 "\3031\n\304\"0\207\210\305\211\211\211\211\211\211\306\305\257 \307\227!\211\203\323\211A\262\242\305\203\315\211\204\315\211A\262\242\211A\262\242\211A\262\242\305@8\204\307\211:\203t\310!\204t \247\205\204\211@ X\205\204\211A\203p A@X\205\204 \202\204\2119\203\202\311 J\"A\202\204\211 \211\203\307\312\262\203\307\203\265\211A\262\242\313!\203\256\314 \315\316H\317\320H%\202\260\211 \262\202\266\n\211A\262\242 \233\211\240\266\202\214)\266\202()\266\202\207" [parse-time-rules parse-time-elt parse-time-val (wrong-type-argument) iso8601-parse nil -1 parse-time-tokenize functionp assoc t vectorp cl-parse-integer :start 0 :end 1] 18 (#$ . 3747)])#@320 Parse an ISO 8601 time string, such as "2020-01-15T16:12:21-08:00". Fall back on parsing something resembling an RFC 822 (or later) date-time. This function is like `parse-time-string' except that it returns a Lisp timestamp when successful. See `decode-time' for the meaning of FORM. (fn DATE-STRING &optional FORM) (defalias 'parse-iso8601-time-string #[513 "\300\"\211\205 \301!\207" [parse-time-string encode-time] 5 (#$ . 5129)]) (provide 'parse-time)