ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/calendar/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/calendar/parse-time.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'cl-lib)
(defalias 'parse-time-string-chars #[(char) "\301X\203 \302X\203 \301\207\303X\203 \304X\203 \303\207\305=\203$ \306\207\307=\203, \310\207\311=\2053 \312\207" [char 97 122 48 57 43 1 45 -1 58 100] 2])
(put 'parse-time-string-chars 'byte-optimizer 'byte-compile-inline-expand)
#@34 Tokenize STRING into substrings.
(defalias 'parse-time-tokenize #[(string) "\306G\306\211\307\306 \n
W\203\366 \n
W\203n \nH \310X\2031 \311X\2031 \310\202a \312X\203C \313X\203C \312\202a \314=\203N \315\202a \316=\203Y \317\202a \320=\205a \321)\211\204n \nT\211\202 \n \312=\nT\211
W\203\326 \nH \310X\203\225 \311X\203\225 \310\202\305 \312X\203\247 \313X\203\247 \312\202\305 \314=\203\262 \315\202\305 \316=\203\275 \317\202\305 \320=\205\305 \321)\211\203\326 \f\205\322 \312=\202u \n
X\203 \f\203\353 \322\323\324\n%\202\360 \nO B\202 \237.\207" [string c index list all-digits end nil 0 97 122 48 57 43 1 45 -1 58 100 cl-parse-integer :start :end start char] 7 (#$ . 716)])
(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) (#$ . 2044))
#@32 (slots predicate extractor...)
(defvar parse-time-rules (byte-code "\301\302\303\304\305DD\306\307\310BB\311\312\313\314F\315\316\317E\320\321\322BB\323\324\325\326\327\257\330\331\332\333\334\257\335\336\337BB\340\341\342E\343\344\345E\257
\207" [most-positive-fixnum ((6) parse-time-weekdays) ((3) (1 31)) ((4) parse-time-months) (5) 100 (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 "A@\207" [parse-time-val] 1] (8) #[nil ";\205 G\301U\205 \302H\303U\206 \302H\304U\207" [parse-time-elt 5 0 43 45] 2] #[nil "\301\302\303\304\305\306%\302\303\307\305\304%\310_\\\311H\312U\203 \313\202 \307\310#\207" [parse-time-elt * cl-parse-integer :start 3 :end 5 1 60 0 45 -1] 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) (#$ . 2397))
#@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\342 \211A\242 \306
\203\336 \f\204\336
\211A\242\211 \211A\242 \211A\242 \306 @\n8\204\332 :\203w @\310=\204w \247\205\213 @X\205\213 A@X\205\213 \202\213 9\203\210 \311J\"A\202\213 \211\203\332 \312\203\332 \203\305 \211A\242 \313!\203\276 \314\315\316H\317\320H%\202\301 )\202\307 \211A\242\n\233\240\210)\202\223 ,\202 +\202 \n*\207" [string temp time parse-time-rules exit rules nil parse-time-tokenize lambda assoc t vectorp cl-parse-integer :start 0 :end 1 parse-time-elt rule slots predicate parse-time-val this new-val] 10 (#$ . 3816)])
#@206 List of regular expressions matching ISO 8601 dates.
1st regular expression matches the date.
2nd regular expression matches the time.
3rd regular expression matches the (optional) timezone specification.
(defconst parse-time-iso8601-regexp (byte-code "\306\307\310\311\n \312 \313\314R \315P \260 \f
\260 P \316Q \317P\316P\315PE.\207" [dash colon 4digit 2digit date-fullyear date-month "-?" ":?" "\\([0-9][0-9][0-9][0-9]\\)" "\\([0-9][0-9]\\)" "\\(\\.[0-9]+\\)?" "[-+]\\(" "\\):" "Z" "T" "^" date-mday time-hour time-minute time-second time-secfrac time-numoffset time-offset partial-time full-date full-time date-time] 6) (#$ . 4727))
(defalias 'parse-iso8601-time-string #[(date-string) "@A@\3068\307\211 \307\211 \307\211 \307\211 \307\211 \307\211 \310 \f#\203\255 \311\312\313 \"!\311\312\306 \"!\311\312\314 \"!\315\225\310\n \f#\203\255 \311\312\313 \"!\311\312\306 \"!\311\312\314 \"!\311\312\316 \"\206\202 \317!\315\225\310 \f#\203\230 \312\313 \" \257
\204\266 \320 !
\205\276 \321\322
\".\207" [parse-time-iso8601-regexp date-re time-re tz-re re-start time 2 nil string-match string-to-number match-string 1 3 0 4 "0" parse-time-string apply encode-time seconds minute hour fractional-seconds day month year day-of-week dst tz date-string] 10])
(provide 'parse-time)
Kontol Shell Bypass