| Server IP : 217.160.0.212 / Your IP : 216.73.216.141 Web Server : Apache System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/ |
Upload File : |
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.
#@216 Time differentials of timezone from GMT in +-HHMM form.
This list is obsolescent, and is present only for backwards compatibility,
because time zone names are ambiguous in practice.
Use `current-time-zone' instead.
(defvar timezone-world-timezones '(("PST" . -800) ("PDT" . -700) ("MST" . -700) ("MDT" . -600) ("CST" . -600) ("CDT" . -500) ("EST" . -500) ("EDT" . -400) ("AST" . -400) ("NST" . -330) ("UT" . 0) ("GMT" . 0) ("BST" . 100) ("MET" . 100) ("EET" . 200) ("JST" . 900) ("GMT+1" . 100) ("GMT+2" . 200) ("GMT+3" . 300) ("GMT+4" . 400) ("GMT+5" . 500) ("GMT+6" . 600) ("GMT+7" . 700) ("GMT+8" . 800) ("GMT+9" . 900) ("GMT+10" . 1000) ("GMT+11" . 1100) ("GMT+12" . 1200) ("GMT+13" . 1300) ("GMT-1" . -100) ("GMT-2" . -200) ("GMT-3" . -300) ("GMT-4" . -400) ("GMT-5" . -500) ("GMT-6" . -600) ("GMT-7" . -700) ("GMT-8" . -800) ("GMT-9" . -900) ("GMT-10" . -1000) ("GMT-11" . -1100) ("GMT-12" . -1200)) (#$ . 85))
#@75 Alist of first three letters of a month and its numerical representation.
(defvar timezone-months-assoc '(("JAN" . 1) ("FEB" . 2) ("MAR" . 3) ("APR" . 4) ("MAY" . 5) ("JUN" . 6) ("JUL" . 7) ("AUG" . 8) ("SEP" . 9) ("OCT" . 10) ("NOV" . 11) ("DEC" . 12)) (#$ . 1008))
#@296 Convert DATE to an arpanet standard date.
Optional 2nd argument LOCAL specifies the default local timezone of the DATE;
if nil, GMT is assumed.
Optional 3rd argument TIMEZONE specifies a time zone to be represented in;
if nil, the local time zone is assumed.
(fn DATE &optional LOCAL TIMEZONE)
(defalias 'timezone-make-date-arpa-standard #[769 "\300#\301\302H\303H\304H\305\306H\307H\310H#\311H%\207" [timezone-fix-time timezone-make-arpa-date 0 1 2 timezone-make-time-string 3 4 5 6] 13 (#$ . 1282)])
#@293 Convert DATE to a sortable date string.
Optional 2nd argument LOCAL specifies the default local timezone of the DATE;
if nil, GMT is assumed.
Optional 3rd argument TIMEZONE specifies a timezone to be represented in;
if nil, the local time zone is assumed.
(fn DATE &optional LOCAL TIMEZONE)
(defalias 'timezone-make-date-sortable #[769 "\300#\301\302H\303H\304H\305\306H\307H\310H#$\207" [timezone-fix-time timezone-make-sortable-date 0 1 2 timezone-make-time-string 3 4 5] 13 (#$ . 1804)])
#@163 Make arpanet standard date string from YEAR, MONTH, DAY, and TIME.
Optional argument TIMEZONE specifies a time zone.
(fn YEAR MONTH DAY TIME &optional TIMEZONE)
(defalias 'timezone-make-arpa-date #[1284 "\211<\203- \301!\211\302W\203 \211[\202 \211\303\304\302W\203 \305\202! \306\307\245\307\246$\266\202\202. \211\303\310\311\312 \"@! &\207" [timezone-months-assoc timezone-zone-to-minute 0 format "%c%02d%02d" 45 43 60 "%02d %s %04d %s %s" capitalize rassq] 13 (#$ . 2314)])
#@86 Make sortable date string from YEAR, MONTH, DAY, and TIME.
(fn YEAR MONTH DAY TIME)
(defalias 'timezone-make-sortable-date #[1028 "\300\301%\207" [format "%4d%02d%02d%s"] 10 (#$ . 2815)])
#@74 Make time string from HOUR, MINUTE, and SECOND.
(fn HOUR MINUTE SECOND)
(defalias 'timezone-make-time-string #[771 "\300\301$\207" [format "%02d:%02d:%02d"] 8 (#$ . 3014)])
#@605 Parse DATE and return a vector [YEAR MONTH DAY TIME TIMEZONE].
Two-digit dates are `windowed'. Those <69 have 2000 added; otherwise 1900
is added. Three-digit dates have 1900 added.
TIMEZONE is nil for DATEs without a zone field.
Understands the following styles:
(1) 14 Apr 89 03:20[:12] [GMT]
(2) Fri, 17 Mar 89 4:01[:33] [GMT]
(3) Mon Jan 16 16:12[:37] [GMT] 1989
(4) 6 May 1992 1641-JST (Wednesday)
(5) 22-AUG-1993 10:59:12.82
(6) Thu, 11 Apr 16:17:12 91 [MET]
(7) Mon, 6 Jul 16:47:20 T 1992 [MET]
(8) 1996-06-24 21:13:12 [GMT]
(9) 1996-06-24 21:13-ZONE
(10) 19960624T211312
(fn DATE)
(defalias 'timezone-parse-date #[257 "\211;\203$ \301\302\"\204 \303\302\"\203$ \304!\211\262\203$ \305\302G\306$\210\211\206) \307\306\211\211\211\211\310\311\"\203H \312\262\313\262\314\262\315\262\316\262\202c\310\317\"\203b \312\262\313\262\314\262\315\262\306\262\202c\310\320\"\203| \321\262\312\262\313\262\315\262\306\262\202c\310\322\"\203\226 \321\262\312\262\313\262\315\262\323\262\202c\310\324\"\203\260 \315\262\314\262\313\262\312\262\306\262\202c\310\325\"\203\312 \316\262\314\262\313\262\312\262\315\262\202c\310\326\"\203\344 \312\262\313\262\314\262\315\262\316\262\202c\310\327\"\203\376 \312\262\313\262\314\262\315\262\321\262\202c\310\330\"\203\312\262\313\262\314\262\315\262\306\262\202c\310\331\"\2032\314\262\313\262\312\262\315\262\316\262\202c\310\332\"\203L\314\262\313\262\312\262\315\262\316\262\202c\310\333\"\203c\314\262\313\262\312\262\315\262\306\262\203\347\334\"\262G\315W\203\213\335!\211\336W\203\203\211\337\\\262\340\341\\!\262\210\224\313\\H\342U\204\265\335\343\224\313\\H!!\344!\302H\224\313\\HU\262\203\300\224\224\313\\O\202\327\224\224\312\\O\345\226\"A\211\205\325\340!\266\202\262\334\"\262\334\"\262\211\203\362\334\"\262\203\203\346%\207\346\347\211\211\211\306%\207" [timezone-months-assoc text-properties-at 0 next-property-change copy-sequence set-text-properties nil "" string-match "\\([0-9]+\\)[ ]+\\([^ ,]+\\)[ ]+\\([0-9]+\\)[ ]+\\([0-9]+:[0-9:]+\\)[ ]+\\([-+a-zA-Z0-9]+\\)" 3 2 1 4 5 "\\([0-9]+\\)[ ]+\\([^ ,]+\\)[ ]+\\([0-9]+\\)[ ]+\\([0-9]+:[0-9:]+\\)[ ]*\\'" "\\([^ ,]+\\),[ ]+\\([0-9]+\\)[ ]+\\([^ ,]+\\)[ ]+\\([0-9]+:[0-9:]+\\)[ ]+\\(T[ ]+\\|\\)\\([0-9]+\\)[ ]*\\'" 6 "\\([^ ,]+\\),[ ]+\\([0-9]+\\)[ ]+\\([^ ,]+\\)[ ]+\\([0-9]+:[0-9:]+\\)[ ]+\\(T[ ]+\\|\\)\\([0-9]+\\)[ ]*\\([-+a-zA-Z0-9]+\\)" 7 "\\([^ ,]+\\)[ ]+\\([0-9]+\\)[ ]+\\([0-9]+:[0-9:]+\\)[ ]+\\([0-9]+\\)" "\\([^ ,]+\\)[ ]+\\([0-9]+\\)[ ]+\\([0-9]+:[0-9:]+\\)[ ]+\\([-+a-zA-Z0-9]+\\)[ ]+\\([0-9]+\\)" "\\([0-9]+\\)[ ]+\\([^ ,]+\\)[ ]+\\([0-9]+\\)[ ]+\\([0-9]+\\)[ ]*\\([-+a-zA-Z0-9]+\\)" "\\([0-9]+\\)-\\([A-Za-z]+\\)-\\([0-9]+\\)[ ]+\\([0-9]+:[0-9]+:[0-9]+\\)\\(\\.[0-9]+\\)?[ ]+\\([-+a-zA-Z0-9]+\\)" "\\([0-9]+\\)-\\([A-Za-z]+\\)-\\([0-9]+\\)[ ]+\\([0-9]+:[0-9]+:[0-9]+\\)\\(\\.[0-9]+\\)?" "\\([0-9]+\\)-\\([0-9]+\\)-\\([0-9]+\\)[ ]+\\([0-9]+:[0-9]+:[0-9]+\\)[ ]+\\([-+a-zA-Z0-9]+\\)" "\\([0-9]\\{4\\}\\)-?\\([0-9]\\{0,2\\}\\)-?\\([0-9]\\{0,2\\}\\)[T ]+\\([0-9]\\{0,2\\}:?[0-9]\\{0,2\\}:?[0-9]\\{0,2\\}\\)[ ]*\\([-+a-zA-Z]+[0-9:]*\\)" "\\([0-9]\\{4\\}\\)-?\\([0-9]\\{0,2\\}\\)-?\\([0-9]\\{0,2\\}\\)[T ]+\\([0-9]+:?[0-9]+:?[0-9]+\\)" match-string string-to-number 69 100 int-to-string 1900 45 char-to-string number-to-string assoc vector "0"] 13 (#$ . 3198)])
#@117 Parse TIME (HH:MM:SS) and return a vector [hour minute second].
Recognize HH:MM:SS, HH:MM, HHMMSS, HHMM.
(fn TIME)
(defalias 'timezone-parse-time #[257 "\211\206 \300\301\211\211\302\303\"\203 \304\262\305\262\306\262\202Q \302\307\"\203. \304\262\305\262\301\262\202Q \302\310\"\203A \304\262\305\262\306\262\202Q \302\311\"\203Q \304\262\305\262\301\262\312\203^ \313\"\202_ \314\203k \313\"\202l \314\203x \313\"\202y \314#\207" ["" nil string-match "\\`\\([0-9]+\\):\\([0-9]+\\):\\([0-9]+\\)\\'" 1 2 3 "\\`\\([0-9]+\\):\\([0-9]+\\)\\'" "\\`\\([0-9][0-9]\\)\\([0-9][0-9]\\)\\([0-9][0-9]\\)\\'" "\\`\\([0-9][0-9]\\)\\([0-9][0-9]\\)\\'" vector match-string "0"] 11 (#$ . 6716)])
#@202 Translate TIMEZONE to an integer minute offset from GMT.
TIMEZONE can be a cons cell containing the output of `current-time-zone',
or an integer of the form +-HHMM, or a time zone name.
(fn TIMEZONE)
(defalias 'timezone-zone-to-minute #[257 "\211:\203\n \211@\301\245\207\211\203: \302\226\"A\206 \211\262\211;\203$ \303!\262\304!\301\305\245_\305\246\\\306W\2039 \211[\207\207\306\207" [timezone-world-timezones 60 assoc string-to-number abs 100 0] 5 (#$ . 7434)])
#@310 Compute the UTC time equivalent to DATE at time SECONDS after midnight.
Return a Lisp timestamp suitable as an argument to `current-time-zone',
or nil if the date cannot be thus represented.
DATE is the number of days elapsed since the (imaginary)
Gregorian date Sunday, December 31, 1 BC.
(fn DATE SECONDS)
(defalias 'timezone-time-from-absolute #[514 "\300Z\211\301_\3021 \303\"0\207\210\304\207" [719163 86400 (range-error) time-add nil] 7 (#$ . 7918)])
#@306 Compute the local time zone for DATE at time SECONDS after midnight.
Return a list in the same format as `current-time-zone's result,
or nil if the local time zone could not be computed.
DATE is the number of days elapsed since the (imaginary)
Gregorian date Sunday, December 31, 1 BC.
(fn DATE SECONDS)
(defalias 'timezone-time-zone-from-absolute #[514 "\300\301!\205 \302\"\211\205 \301!\211@\205 \211\262\262\207" [fboundp current-time-zone timezone-time-from-absolute] 5 (#$ . 8387)])
#@188 Convert DATE (default timezone LOCAL) to YYYY-MM-DD-HH-MM-SS-ZONE vector.
If LOCAL is nil, it is assumed to be GMT.
If TIMEZONE is nil, use the local time zone.
(fn DATE LOCAL TIMEZONE)
(defalias 'timezone-fix-time #[771 "\300!\301\302H!\211\303W\203 \211\304\\\202- \211\305W\203 \211\306\\\202- \211\307W\203, \211\306\\\202- \211\301\310H!\301\311H!\312\313H!\301\302H!\301\310H!\301\311H!\314H\206T \n\n\206n \315\316 #\317\317 _\\_\\\"\320!\320!Z\\\321\317\"\\\262\317_Z\262\322X\203\301 \322Z\262 T\262\n\323
\"\nW\203\366 \nT\262 \310\262\n\324 W\203\366 \310\262 T\262\f\202\366 \302V\203\366 \322\\\262 S\262\n\310\nV\203\366 \nS\262 \310 V\203\356 \324\262 S\262\f\323
\"\262\n\325\f\f\f \n&\207" [timezone-parse-date string-to-number 0 69 2000 100 1900 1000 1 2 timezone-parse-time 3 4 timezone-time-zone-from-absolute timezone-absolute-from-gregorian 60 timezone-zone-to-minute floor 24 timezone-last-day-of-month 12 vector] 25 (#$ . 8892)])
#@53 The last day in MONTH during YEAR.
(fn MONTH YEAR)
(defalias 'timezone-last-day-of-month #[514 "\300U\203 \301!\203 \302\207\303SH\207" [2 timezone-leap-year-p 29 [31 28 31 30 31 30 31 31 30 31 30 31]] 4 (#$ . 9926)])
#@55 Return t if YEAR is a Gregorian leap year.
(fn YEAR)
(defalias 'timezone-leap-year-p #[257 "\211\300\246\301U\203 \211\302\246\301U?\206 \211\303\246\301U\207" [4 0 100 400] 3 (#$ . 10156)])
#@88 Return the day number within the year of the date month/day/year.
(fn MONTH DAY YEAR)
(defalias 'timezone-day-number #[771 "\300S_\\\301V\203\" \211\302\303_\\\304\245Z\262\305!\203\" \211T\262\207" [31 2 23 4 10 timezone-leap-year-p] 8 (#$ . 10356)])
#@158 The number of days between the Gregorian date 12/31/1 BC and month/day/year.
The Gregorian date Sunday, December 31, 1 BC is imaginary.
(fn MONTH DAY YEAR)
(defalias 'timezone-absolute-from-gregorian #[771 "\300\301#\302S_S\303\245S\304\245[S\305\245%\207" [+ timezone-day-number 365 4 100 400] 10 (#$ . 10624)])
(provide 'timezone)