WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/calendar
Viewing File: /usr/share/emacs/24.3/lisp/calendar/parse-time.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:51:24 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/calendar/parse-time.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(defvar parse-time-digits (make-vector 256 nil))
(byte-code "\302H\204\302\211\303X\203	\211\302ZI\210	T\211\202	)\302\207" [parse-time-digits i 48 57] 5)
(defalias 'digit-char-p #[(char) "	H\207" [parse-time-digits char] 2])
(put 'digit-char-p 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'parse-time-string-chars #[(char) "\304 \305\216\306\211\307=\203\310\202I\311=\203\312\202I\313=\203'\314\202I\315\316\317!\211\"\2036\320\202I\315\321	\"\203A\322\202I\315\323	\"\205I\324,\207" [save-match-data-internal str case-fold-search char match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) nil 43 1 45 -1 58 100 string-match "[[:upper:]]" string 65 "[[:lower:]]" 97 "[[:digit:]]" 48] 4])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\300\304\307\310#\207" [put parse-time-string-chars byte-optimizer byte-compile-inline-expand parse-error error-conditions (parse-error error) error-message "Parsing error"] 4)
#@62 [CL] Parse and return the integer in STRING, or nil if none.
(defalias 'parse-integer #[(string &optional start end) "\306\211\206\306	\206
\nG	W\205\312\nH\211\307=\204)\310=\203\211\311 \312\216\313\211\307=\203D\314\202\200\310=\203O\315\202\200\316=\203Z\317\202\200\320\321\302!\211\"\203k\322\202\200\320\323\"\203w\324\202\200\320\325\"\205\200\326-T\202\214\314	W\203\257\nH H)\211\203\257
\327_\f\\T\211\202\215	U\204\305\330\331\332\n\206\276\306	OD\"\202\311
_),\207" [start end string index digit integer 0 43 45 match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) nil 1 -1 58 100 string-match "[[:upper:]]" 65 "[[:lower:]]" 97 "[[:digit:]]" 48 10 signal parse-error "not an integer" sign char save-match-data-internal str case-fold-search parse-time-digits] 7 (#$ . 1567)])
(put 'parse-integer 'byte-optimizer 'byte-compile-inline-expand)
#@34 Tokenize STRING into substrings.
(defalias 'parse-time-tokenize #[(string) "\306G\306\211\307\306\n
W\203\355\n
W\203\nH\310 \311\216\306\211\312=\2036\313\202r\314=\203A\315\202r\316=\203L\317\202r\320\321\300!\211\"\203]\322\202r\320\323\"\203i\324\202r\320\325\"\205r\326-\211\204\nT\211\202\n	\326=\nT\211
W\203\370\nH\310 \311\216\306\211\312=\203\253\313\202\347\314=\203\266\315\202\347\316=\203\301\317\202\347\320\321\300!\211\"\203\322\322\202\347\320\323\"\203\336\324\202\347\320\325\"\205\347\326-\211\203\370\f\205\364	\326=\202\206\n
X\203\f\203\342\n\307\211\206\307
\206G !\n
W\205\335\nH\211\"\312=\2046\"\314=\203\226\"\310 \311\216\306\211\312=\203Q\313\202\215\314=\203\\\315\202\215\316=\203g\317\202\215\320\321\300!\211\"\203x\322\202\215\320\323\"\203\204\324\202\215\320\325\"\205\215\326-\"\nT\202\231\313\"\n
W\203\300\nH#H)\211 \203\300!\327_ \\!\nT\211\202\232\n
U\204\327\330\331\332\206\320\307
OD\"\202\334\"!_).\202\347\nOB\202\237.\207" [string c index list all-digits end nil 0 match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 43 1 45 -1 58 100 string-match "[[:upper:]]" 65 "[[:lower:]]" 97 "[[:digit:]]" 48 10 signal parse-error "not an integer" start char save-match-data-internal str case-fold-search digit integer sign parse-time-digits] 7 (#$ . 2550)])
(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) (#$ . 4671))
#@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 4038)) (2 1 0) #[nil ";\205G\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 #[nil "@\207" [parse-time-val] 1] #[nil "\211A@)\207" [parse-time-val x] 2] (8) #[nil ";\205G\301U\205\302H\303U\206\302H\304U\207" [parse-time-elt 5 0 43 45] 2] #[nil "\306\307\310\311\211\n\206\311	\206G\f	W\205\325\fH\211 \312=\2041 \313=\203\221 !\314 \"\315\216\316\211#$!\312=\203L\317\202\210!\313=\203W\320\202\210!\321=\203b\322\202\210\323\324\303!!\211#\"\203s\325\202\210\323\326#\"\203\327\202\210\323\330#\"\205\210\331- \fT\202\224\317 \f	W\203\271\fH!%!H)\211\203\271\332_
\\\fT\211\202\225\f	U\204\317\333\334\335\n\206\310\311	OD\"\202\324 _).\317\307\311\211\n\206\344\311	\206\352G\f	W\205\253\fH\211 \312=\204 \313=\203g !\314 \"\315\216\316\211#$!\312=\203\"\317\202^!\313=\203-\320\202^!\321=\2038\322\202^\323\324\303!!\211#\"\203I\325\202^\323\326#\"\203U\327\202^\323\330#\"\205^\331- \fT\202j\317 \f	W\203\217\fH!%!H)\211\203\217\332_
\\\fT\211\202k\f	U\204\245\333\334\335\n\206\236\311	OD\"\202\252 _).\336_\\\311H\313U\203\274\320\202\275\317\336#\207" [parse-time-elt end start string index digit * 3 5 0 43 45 match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) nil 1 -1 58 100 string-match "[[:upper:]]" 65 "[[:lower:]]" 97 "[[:digit:]]" 48 10 signal parse-error "not an integer" 60 integer sign char save-match-data-internal str case-fold-search parse-time-digits] 8] (5 4 3) #[nil ";\205G\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) #[nil ";\205G\301U\205\302H\303U\207" [parse-time-elt 5 2 58] 2] [0 2] [3 5] #[nil "\300\207" [0] 1] (2 1 0) #[nil ";\205G\301U\205\302H\303U\207" [parse-time-elt 4 1 58] 2] [0 1] [2 4] #[nil "\300\207" [0] 1] (2 1 0) #[nil ";\205G\301U\205\302H\303U\207" [parse-time-elt 7 1 58] 2] ([0 1] [2 4] [5 7]) (5) (50 110) #[nil "\301\\\207" [parse-time-elt 1900] 2] (5) (0 49) #[nil "\301\\\207" [parse-time-elt 2000] 2]] 15) (#$ . 5024))
#@180 Parse the time-string STRING into (SEC MIN HOUR DAY MON YEAR DOW DST TZ).
The values are identical to those of `decode-time', but any values that are
unknown are returned as nil.
(defalias 'parse-time-string #[(string) "\306\211\211\211\211\211\211\211\211\257	\307\227!	\203\314	\211A@\306 
\203\310\f\204\310
\211A@\211!\211A!@\"!\211A!@#\306$\"@\n8\204\304#:\203{#@\310=\204{ \247\205\217#@ X\205\217 #\211%A@)X\205\217 \202\217#9\203\214\311 #J\"A\202\217# \211$\203\304\312\"\203\304!\203\257!\211A!@&\313&!\203\250 &\314H&\315H'(\314\211(\206\310\314'\206\317G')*+)'W\205\243)H\211,\316=\204\362,\317=\203T,-\320 .\321\216\306\211/0-\316=\203
\315\202I-\317=\203\322\202I-\323=\203#\324\202I\325\326\300-!\211/\"\2034\327\202I\325\330/\"\203@\331\202I\325\332/\"\205I\333-,)T)\202W\315,)'W\203\203)H-1-H)\211*\203\203+\334_*\\+)T\211)\202Y)'U\204\235\335\336\337(\206\225\314'OD\"\202\242,+_).\202\253& )\202\261$2\"\211A\"@\n\2332\240\210)\202\227,\202 +\202\n*\207" [string temp time parse-time-rules exit rules nil parse-time-tokenize lambda assoc t vectorp 0 1 43 45 match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) -1 58 100 string-match "[[:upper:]]" 65 "[[:lower:]]" 97 "[[:digit:]]" 48 10 signal parse-error "not an integer" parse-time-elt rule slots predicate parse-time-val x this end start index digit integer sign char save-match-data-internal str case-fold-search parse-time-digits new-val] 10 (#$ . 7584)])
(provide 'parse-time)
F1l3 Manager
