Current File : //usr/local/share/emacs/27.2/lisp/calendar/cal-dst.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\302\303\304\305\306\307\310\301&\210\311\312\313\314\315DD\316\317\320\321\322\310\303& \210\323\324\325\326#\210\311\324\313\314\327DD\330\317\331\310\303&\210\323\332\325\326#\210\311\332\313\314\333DD\334\317\331\310\303&\207" [require calendar custom-declare-group calendar-dst nil "Options related to Daylight Saving Time." :prefix "calendar-" :group custom-declare-variable calendar-dst-check-each-year-flag funcall function #[0 "\300\207" [t] 1] "Non-nil means to check each year for DST transitions as needed.\nOtherwise assume the next two transitions found after the\ncurrent date apply to all years. This is faster, but not always\ncorrect, since the dates of daylight saving transitions sometimes\nchange." :type boolean :version "22.1" put calendar-daylight-savings-starts risky-local-variable t #[0 "\300\207" [(calendar-dst-starts year)] 1] "Sexp giving the date on which daylight saving time starts.\nThis is an expression in the variable `year' whose value gives the Gregorian\ndate in the form (month day year) on which daylight saving time starts. It is\nused to determine the starting date of daylight saving time for the holiday\nlist and for correcting times of day in the solar and lunar calculations.\n\nFor example, if daylight saving time is mandated to start on October 1,\nyou would set `calendar-daylight-savings-starts' to\n\n (10 1 year)\n\nIf it starts on the first Sunday in April, you would set it to\n\n (calendar-nth-named-day 1 0 4 year)\n\nIf the locale never uses daylight saving time, set this to nil." sexp calendar-daylight-savings-ends #[0 "\300\207" [(calendar-dst-ends year)] 1] "Sexp giving the date on which daylight saving time ends.\nThis is an expression in the variable `year' whose value gives the Gregorian\ndate in the form (month day year) on which daylight saving time ends. It is\nused to determine the starting date of daylight saving time for the holiday\nlist and for correcting times of day in the solar and lunar calculations.\n\nFor example, if daylight saving time ends on the last Sunday in October:\n\n (calendar-nth-named-day -1 0 10 year)\n\nIf the locale never uses daylight saving time, set this to nil."] 10)
#@51 Cache for result of `calendar-current-time-zone'.
(defvar calendar-current-time-zone-cache nil (#$ . 2635))
(put 'calendar-current-time-zone-cache 'risky-local-variable t)
#@49 Absolute date of starting date of system clock.
(defconst calendar-system-time-basis (byte-code "\300\211\3018\262\302\303U\203 \304\305!\202T\303V\203\212 S\262\306\211\211@\262\211A@\262\3018\262\307S_\\\301V\203u \211\310\311_\\\312\245Z\262\211\303W\203V \313!S\262\211\311\246\303U\205l \211\314\246\303U?\206l \211\315\246\303U\262\203u \211T\262\266\203\262\316_\311\245\314\245[\315\245%\202T\313T!\262\317\211\211@\262\211A@\262\3018\262\307S_\\\301V\203\347 \211\310\311_\\\312\245Z\262\211\303W\203\310 \313!S\262\211\311\246\303U\205\336 \211\314\246\303U?\206\336 \211\315\246\303U\262\203\347 \211T\262\266\203\262\316_\311\245\314\245[\315\245\320\211\211@\262\211A@\262\3018\262\307S_\\\301V\203N\211\310\311_\\\312\245Z\262\211\303W\203/\313!S\262\211\311\246\303U\205E\211\314\246\303U?\206E\211\315\246\303U\262\203N\211T\262\266\203\262&\266\202\207" [(1 1 1970) 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1)] 18) (#$ . 2813))
#@303 Absolute local date of time X; local time is UTC-DIFF seconds from UTC.
X is the number of seconds since 1970-01-01 00:00:00 UTC,
ignoring leap seconds.
Returns the pair (ABS-DATE . SECONDS) where SECONDS after local midnight on
absolute date ABS-DATE is the equivalent moment to X.
(fn X UTC-DIFF)
(defalias 'calendar-absolute-from-time #[514 "\301\\\302\"\\\303\"B\207" [calendar-system-time-basis 86400 floor mod] 8 (#$ . 3888)])
#@249 Time of absolute date ABS-DATE, S seconds after midnight.
Return the number of seconds since 1970-01-01 00:00:00 UTC,
ignoring leap seconds, that is the equivalent moment to S seconds
after midnight UTC on absolute date ABS-DATE.
(fn ABS-DATE S)
(defalias 'calendar-time-from-absolute #[514 "\301Z_\\\207" [calendar-system-time-basis 86400] 7 (#$ . 4338)])
#@194 Return the time of the next time zone transition after TIME.
Both TIME and the result are acceptable arguments to `current-time-zone'.
Return nil if no such transition can be found.
(fn TIME)
(defalias 'calendar-next-time-zone-transition #[257 "\300\301\"\302!\211@\303\211\304\305\211\2031 =\2031 @_\\\262\302!\262@\262\211A\262\202 \205k \205k =?\205k \303\306 \\\307\"\211\262U\204g \302!@=\203a \211\262\202C \211\262\202C \266\202\207" [time-convert integer current-time-zone nil 7889238 (2 1 3) floor 2] 15 (#$ . 4708)])
(autoload 'calendar-persian-to-absolute "cal-persia")
#@244 Return daylight transition rule for ABS-DATE, UTC-DIFF sec offset from UTC.
ABS-DATE must specify a day that contains a daylight saving transition.
The result has the proper form for `calendar-daylight-savings-starts'.
(fn ABS-DATE UTC-DIFF)
(defalias 'calendar-time-zone-daylight-rules #[514 "\301!\302\246\211@\262\211A@\262\3038\262\303U\203K \211\211\304W\203, \305!S\262\211\306\246\304U\205B \211\307\246\304U?\206B \211\310\246\304U\262\203K \311\202O \312SH\266\202\313\211\314\315\316BBBC\317W\205q \320\321\n\n\322BBBBC\302ZV\205\207 \320\323 \324BBBBC\303 \325Z]S\262T\211\262 \317Z^X\203\262 \320\321\f\f\300\n\257B\262\202\220 \n\326U\205\302 \327>\205\302 \330 \331U\205\321 \n\332>\205\321 \333&\323\nZ\313TA\203\237\211\203\207\211@\211@\320=\203\370 \334\335AB!\202d\211@\301=\203\334A@!\202d\334!\211\3038\262\313\211\304U\203 \336\337!\202_\304V\203\225S\262\340\211\211@\262\211A@\262\3038\262\211\341S_\\\303V\203\211\342\306_\\\343\245Z\262\211\304W\203a\305!S\306\246\304U\205w\307\246\304U?\206w\310\246\304U)\203\211T\262)\266\202\262\344_\306\245\307\245[\310\245%\202_\305T!\262\345\211\211@\262\211A@\262\3038\262\211\341S_\\\303V\203\361\211\342\306_\\\343\245Z\262\211\304W\203\323\305!S\306\246\304U\205\351\307\246\304U?\206\351\310\246\304U)\203\361\211T\262)\266\202\262\344_\306\245\307\245[\310\245\346\211\211@\262\211A@\262\3038\262\211\341S_\\\303V\203X\211\342\306_\\\343\245Z\262\211\304W\203:\305!S\306\246\304U\205P\307\246\304U?\206P\310\246\304U)\203X\211T\262)\266\202\262&)\266\202\262\262
\347\350\"!\347\350T\"!\232\204\200\211B\262A\266\202\202\342 \210\211\203\221\211\237\202\224@C\262\313\262T\202\334 )@\207" [year calendar-gregorian-from-absolute 7 2 0 abs 4 100 400 29 [31 28 31 30 31 30 31 31 30 31 30 31] nil append list (year) 8 calendar-nth-named-day 1 (year) -1 (year) 6 3 (20 21) ((calendar-gregorian-from-absolute (calendar-persian-to-absolute `(1 1 ,(- year 621))))) 9 (22 23) ((calendar-gregorian-from-absolute (calendar-persian-to-absolute `(7 1 ,(- year 621))))) eval calendar-nth-named-absday user-error "There was no year zero" + 31 23 10 365 - (12 31 -1) current-time-zone calendar-time-from-absolute] 33 (#$ . 5329)])
#@189 Find data on the first daylight saving time transitions after TIME.
TIME defaults to the current time. Return value is as described
for `calendar-current-time-zone'.
(fn &optional TIME)
(defalias 'calendar-dst-find-data #[256 "\211\206 \300 \301!\211@A@\204 \302\211\211\302\211\211\211\257\202\243 \303!\211\205) \303!\211\204< \304\245\305\211\302\211\305\211\257\202\241 \301!\211@A@\306\"\306\"\307@\n\"\307@\"A\304\245A\304\245\310\311\f!8\203\206 \f\304\245Z\304\245
\257\202\237 \304\245
Z\304\245\257\266\211\266\202\207" [current-time current-time-zone nil calendar-next-time-zone-transition 60 0 calendar-absolute-from-time calendar-time-zone-daylight-rules 7 decode-time] 24 (#$ . 7714)])
#@308 Internal cal-dst variable storing date of daylight saving time transitions.
Value is a list with elements of the form (YEAR START END), where
START and END are expressions that when evaluated return the
start and end dates (respectively) for DST in YEAR. Used by the
function `calendar-dst-find-startend'.
(defvar calendar-dst-transition-cache nil (#$ . 8485))
#@589 Find the dates in YEAR on which daylight saving time starts and ends.
Returns a list (YEAR START END), where START and END are
expressions that when evaluated return the start and end dates,
respectively. This function first attempts to use pre-calculated
data from `calendar-dst-transition-cache', otherwise it calls
`calendar-dst-find-data' (and adds the results to the cache).
If dates in YEAR cannot be handled by `encode-time' (e.g.,
if they are out of range for POSIX time_t), then rather
than an error this function returns the result appropriate for
the current year.
(fn YEAR)
(defalias 'calendar-dst-find-startend #[257 "\301\"\302\206@ \303\3041 \305\306\307\211\306\211 &0\202) \210\305\306\307\211\306\211\310\311 8&!\262\3128\262\3108E\262\313C\"\207" [calendar-dst-transition-cache assoc nil calendar-dst-find-data (error) encode-time 1 0 5 decode-time 4 append] 12 (#$ . 8854)])
#@1364 Return UTC difference, dst offset, names and rules for current time zone.
Returns (UTC-DIFF DST-OFFSET STD-ZONE DST-ZONE DST-STARTS DST-ENDS
DST-STARTS-TIME DST-ENDS-TIME), based on a heuristic probing of what the
system knows:
UTC-DIFF is an integer specifying the number of minutes difference between
standard time in the current time zone and Coordinated Universal Time
(Greenwich Mean Time). A negative value means west of Greenwich.
DST-OFFSET is an integer giving the daylight saving time offset in minutes.
STD-ZONE is a string giving the name of the time zone when no seasonal time
adjustment is in effect.
DST-ZONE is a string giving the name of the time zone when there is a seasonal
time adjustment in effect.
DST-STARTS and DST-ENDS are sexps in the variable `year' giving the daylight
saving time start and end rules, in the form expected by
`calendar-daylight-savings-starts'.
DST-STARTS-TIME and DST-ENDS-TIME are integers giving the number of minutes
after midnight that daylight saving time starts and ends.
If the local area does not use a seasonal time adjustment, STD-ZONE and
DST-ZONE are equal, and all the DST-* integer variables are 0.
Some operating systems cannot provide all this information to Emacs; in this
case, `calendar-current-time-zone' returns a list containing nil for the data
it can't find.
(defalias 'calendar-current-time-zone #[0 "\206 \301 \211\207" [calendar-current-time-zone-cache calendar-dst-find-data] 2 (#$ . 9777)])
(byte-code "\300 \210\301\302\303\304\305DD\306\307\310\311\312&\210\301\313\303\304\314DD\315\307\310\311\312&\210\301\316\303\304\317DD\320\307\321\311\312&\210\301\322\303\304\323DD\324\307\321\311\312&\210\301\325\303\304\326DD\327\307\310\311\312&\210\301\330\303\304\331DD\332\307\310\311\312&\207" [calendar-current-time-zone custom-declare-variable calendar-time-zone funcall function #[0 "@\206 \301\207" [calendar-current-time-zone-cache -300] 1] "Number of minutes difference between local standard time and UTC.\nFor example, -300 for New York City, -480 for Los Angeles." :type integer :group calendar-dst calendar-daylight-time-offset #[0 "A@\206 \301\207" [calendar-current-time-zone-cache 60] 1] "Number of minutes difference between daylight saving and standard time.\nIf the locale never uses daylight saving time, set this to 0." calendar-standard-time-zone-name #[0 "\3018\206 \302\207" [calendar-current-time-zone-cache 2 "EST"] 2] "Abbreviated name of standard time zone at `calendar-location-name'.\nFor example, \"EST\" in New York City, \"PST\" for Los Angeles." string calendar-daylight-time-zone-name #[0 "\3018\206 \302\207" [calendar-current-time-zone-cache 3 "EDT"] 2] "Abbreviated name of daylight saving time zone at `calendar-location-name'.\nFor example, \"EDT\" in New York City, \"PDT\" for Los Angeles." calendar-daylight-savings-starts-time #[0 "\3018\206 \302\207" [calendar-current-time-zone-cache 6 120] 2] "Number of minutes after midnight that daylight saving time starts." calendar-daylight-savings-ends-time #[0 "\3028\206 \207" [calendar-current-time-zone-cache calendar-daylight-savings-starts-time 7] 2] "Number of minutes after midnight that daylight saving time ends."] 8)
#@147 Return the date of YEAR on which daylight saving time starts.
This function respects the value of `calendar-dst-check-each-year-flag'.
(fn YEAR)
(defalias 'calendar-dst-starts #[257 "\203\f \304!A@\202 \305 8\211\205 \306!)\262\206+ \307U?\205+ \310\311\307\312$\207" [calendar-dst-check-each-year-flag calendar-current-time-zone-cache year calendar-daylight-time-offset calendar-dst-find-startend 4 eval 0 calendar-nth-named-day 2 3] 6 (#$ . 13029)])
#@145 Return the date of YEAR on which daylight saving time ends.
This function respects the value of `calendar-dst-check-each-year-flag'.
(fn YEAR)
(defalias 'calendar-dst-ends #[257 "\203\f \304\305!8\202 \306 8\211\205 \307!)\262\206+ \310U?\205+ \311\312\310\313$\207" [calendar-dst-check-each-year-flag calendar-current-time-zone-cache year calendar-daylight-time-offset 2 calendar-dst-find-startend 5 eval 0 calendar-nth-named-day 1 11] 6 (#$ . 13499)])
#@127 True if on absolute DATE daylight saving time is in effect.
Fractional part of DATE is local standard time of day.
(fn DATE)
(defalias 'dst-in-effect #[257 "\306\307!!\3108\262\311 !\311\n!\205v\211\3108\262\312\211\313U\203+ \314\315!\202k\313V\203\241 S\262\316\211\211@\262\211A@\262\3108\262\211\317S_\\\310V\203\213 \211\320\321_\\\322\245Z\262\211\313W\203m \323!S\321\246\313U\205\203 \324\246\313U?\206\203 \325\246\313U)\203\213 \211T\262)\266\202\262\326_\321\245\324\245[\325\245%\202k\323T!\262\327\211\211@\262\211A@\262\3108\262\211\317S_\\\310V\203\375 \211\320\321_\\\322\245Z\262\211\313W\203\337 \323!S\321\246\313U\205\365 \324\246\313U?\206\365 \325\246\313U)\203\375 \211T\262)\266\202\262\326_\321\245\324\245[\325\245\330\211\211@\262\211A@\262\3108\262\211\317S_\\\310V\203d\211\320\321_\\\322\245Z\262\211\313W\203F\323!S\321\246\313U\205\\\324\246\313U?\206\\\325\246\313U)\203d\211T\262)\266\202\262&)\266\202\262\331 \332\333#\\\205\335\211\3108\262\312\211\313U\203\220\314\315!\202\320\313V\203S\262\316\211\211@\262\211A@\262\3108\262\211\317S_\\\310V\203\360\211\320\321_\\\322\245Z\262\211\313W\203\322\323!S\321\246\313U\205\350\324\246\313U?\206\350\325\246\313U)\203\360\211T\262)\266\202\262\326_\321\245\324\245[\325\245%\202\320\323T!\262\327\211\211@\262\211A@\262\3108\262\211\317S_\\\310V\203b\211\320\321_\\\322\245Z\262\211\313W\203D\323!S\321\246\313U\205Z\324\246\313U?\206Z\325\246\313U)\203b\211T\262)\266\202\262\326_\321\245\324\245[\325\245\330\211\211@\262\211A@\262\3108\262\211\317S_\\\310V\203\311\211\320\321_\\\322\245Z\262\211\313W\203\253\323!S\321\246\313U\205\301\324\246\313U?\206\301\325\246\313U)\203\311\211T\262)\266\202\262&)\266\202\262\331\f
Z\334\335#\\\205 \211\205 W\203\367X\205 W\202 X\206 W\266\204)\207" [year calendar-daylight-savings-starts calendar-daylight-savings-ends calendar-daylight-savings-starts-time calendar-daylight-savings-ends-time calendar-daylight-time-offset calendar-gregorian-from-absolute floor 2 eval nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) / 60.0 24.0 60.0 24.0] 22 (#$ . 13971)])
#@532 Adjust, to account for dst on DATE, decimal fraction standard TIME.
Returns a list (date adj-time zone) where `date' and `adj-time' are the values
adjusted for `zone'; here `date' is a list (month day year), `adj-time' is a
decimal fraction time, and `zone' is a string.
Conversion to daylight saving time is done according to
`calendar-daylight-savings-starts', `calendar-daylight-savings-ends',
`calendar-daylight-savings-starts-time',
`calendar-daylight-savings-ends-time', and `calendar-daylight-time-offset'.
(fn DATE TIME)
(defalias 'dst-adjust-time #[514 "\211\3038\262\304\305U\203 \306\307!\202T\305V\203\212 S\262\310\211\211@\262\211A@\262\3038\262\311S_\\\303V\203u \211\312\313_\\\314\245Z\262\211\305W\203V \315!S\262\211\313\246\305U\205l \211\316\246\305U?\206l \211\317\246\305U\262\203u \211T\262\266\203\262\320_\313\245\316\245[\317\245%\202T\315T!\262\321\211\211@\262\211A@\262\3038\262\311S_\\\303V\203\347 \211\312\313_\\\314\245Z\262\211\305W\203\310 \315!S\262\211\313\246\305U\205\336 \211\316\246\305U?\206\336 \211\317\246\305U\262\203\347 \211T\262\266\203\262\320_\313\245\316\245[\317\245\322\211\211@\262\211A@\262\3038\262\311S_\\\303V\203N\211\312\313_\\\314\245Z\262\211\305W\203/\315!S\262\211\313\246\305U\205E\211\316\246\305U?\206E\211\317\246\305U\262\203N\211T\262\266\203\262&\266\202\262\323\324\325_!\326\327#\\\330!\211\203m\202n \203{\323\n\331\332#\202|\305\\\333\334!!\335\334!Z_E\207" [calendar-daylight-time-zone-name calendar-standard-time-zone-name calendar-daylight-time-offset 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) / round 60 60.0 24.0 dst-in-effect 24.0 60.0 calendar-gregorian-from-absolute truncate 24.0] 20 (#$ . 16320)])
(provide 'cal-dst)
Mini Shell