ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/calendar/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/calendar/cal-dst.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\302\303\304\305\306\307\310\301&\210\311\312\313\314\315\316\317\320\310\303& \210\321\322\323\313#\210\311\322\324\325\315\326\310\303&\210\321\327\323\313#\210\311\327\330\331\315\326\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 t "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 '(calendar-dst-starts year) "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 '(calendar-dst-ends year) "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 (#$ . 2532))
(put 'calendar-current-time-zone-cache 'risky-local-variable t)
#@49 Absolute date of starting date of system clock.
(defvar calendar-system-time-basis (byte-code "\306\211\3078)\310\211\311U\203 \312\313!\202R\n\311V\203\213 \nS\314\211\211@)\211A@) \3078)\f S\315_\\ \307V\203x
\316 \317_\\\320\245Z\n\211\311W\203[ \321\n!S\n\317\246\311U\205q \n\322\246\311U?\206q \n\323\246\311U)\203x
T
- \324_ \317\245 \322\245[ \323\245%\202R\321\nT!\325\211\211@)\211A@) \3078)\f S\315_\\ \307V\203\350
\316 \317_\\\320\245Z\n\211\311W\203\313 \321\n!S\n\317\246\311U\205\341 \n\322\246\311U?\206\341 \n\323\246\311U)\203\350
T
- \324_ \317\245 \322\245[ \323\245\326\211\326@)\211A@) \3078)\f S\315_\\ \307V\203N
\316 \317_\\\320\245Z\n\211\311W\2031\321\n!S\n\317\246\311U\205G\n\322\246\311U?\206G\n\323\246\311U)\203N
T
-&+\207" [date offset-years year month day day-of-year (1 1 1970) 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1)] 11) (#$ . 2710))
#@389 Absolute local date of time X; local time is UTC-DIFF seconds from UTC.
X is (HIGH . LOW) or (HIGH LOW . IGNORED) where HIGH and LOW are the
high and low 16 bits, respectively, of 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.
(defalias 'calendar-absolute-from-time #[(x utc-diff) "@A \n\247\203 \n\202 \n@\\ \306 \307\"\310_\311\f\312\"\\ \313\f\311 \307\"\310_\311
\307\"#\306
\307\"\312_\306\f\312\"\\,B\207" [x h xtail utc-diff l u mod 675 512 floor 128 + calendar-system-time-basis] 6 (#$ . 3699)])
#@313 Time of absolute date ABS-DATE, S seconds after midnight.
Returns the list (HIGH LOW) where HIGH and LOW are the high and low
16 bits, respectively, of the number of seconds 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.
(defalias 'calendar-time-from-absolute #[(abs-date s) " Z\305\n\306\"\307_\310 \311\"\\ \312\n\310\n\306\"\307_\310\f\306\"#\305\f\306\"\311_\305 \311\"\\*D\207" [abs-date calendar-system-time-basis a s u mod 512 163 floor 128 +] 6 (#$ . 4378)])
#@183 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.
(defalias 'calendar-next-time-zone-transition #[(time) "\306\307\310\n!\211@ \311\211 \f \312 \f=\203: \n@@ _\\\313B\310
!\211@A\211\204 \f\205\300 \205\300 \f=?\205\300 \nA \n@\247\203\\ \202_ @B \311 A
A\\ \314@
@\245# \315\316\" Z\317\245_\246\\\317\245B\232+\204\270 \310!@=\203\260 \202e \211\202g
\211AC\241\210
+.\207" [base quarter-multiple time time-zone time-utc-diff hi 65536 120 current-time-zone nil (2 1 3) 0 + logand 1 2 hi-zone hi-utc-diff quarters tail lo probe lsum hsum hsumodd] 6 (#$ . 4945)])
(autoload 'calendar-persian-to-absolute "cal-persia")
#@220 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'.
(defalias 'calendar-time-zone-daylight-rules #[(abs-date utc-diff) "\306!\307\246 \211@) \211A@) \310 8)
\211 /\310U\203Z \211 \311W\2039 \312!S\313\246\311U\205R \314\246\311U?\206R \315\246\311U)\203Z \316\202_ \317/SH* 0\320\211 1 2\321\322 \f\323BBBC\f\324W\205\201 \325\326\n \327BBBBC\f0\307ZV\205\224 \325\330\n \331BBBBC\310\f\332Z]S11T\2111\f0\324Z^X\203\275 \325\326\n \3331\2572B2\202\234 2 \334U\205\314 \f\335>\205\314 \336 \337U\205\331 \f\340>\205\331 \341& 3\3304Z 5
T \320 63A\2033\320 7\211 8\203\3478@\2117@\325=\203\342\3437AB!\202\3037@\306=\203\"\3427A@!\202\303\3427!\211\310 8)\320 9\211 \311U\203>\344\345!\202\302\311V\203\315S9\346 \211\211@) / \211A@) : \310 8) :/S\347_\\ ;/\310V\203\265;\350/\313_\\\351\245Z;\211 \311W\203\223\312!S\313\246\311U\205\254\314\246\311U?\206\254\315\246\311U)\203\265;T;;-9\352_9\313\2459\314\245[9\315\245%\202\302\312T!9\353 \211\211@) / \211A@) : \310 8) :/S\347_\\ ;/\310V\203?;\350/\313_\\\351\245Z;\211 \311W\203 \312!S\313\246\311U\2056\314\246\311U?\2066\315\246\311U)\203?;T;;-9\352_9\313\2459\314\245[9\315\245\354\211\354@) / \211A@) : \310 8) :/S\347_\\ ;/\310V\203\275;\350/\313_\\\351\245Z;\211 \311W\203\233\312!S\313\246\311U\205\264\314\246\311U?\206\264\315\246\311U)\203\275;T;;-&+\355\356 5\"!\355\356 T5\"!\232\204\33676B68A\2118\204\373 *6\203\3636\237\202\3673@C3\3206T\202\352 3@.\f\207" [abs-date date weekday m d y 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 year 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 month last j rlist candidate-rules utc-diff prevday-sec new-rules rule --dolist-tail-- offset-years day day-of-year] 11 (#$ . 5777)])
#@166 Find data on the first daylight saving time transitions after TIME.
TIME defaults to `current-time'. Return value is as described
for `calendar-current-time-zone'.
(defalias 'calendar-dst-find-data #[(&optional time) "\206 \306 \307 !\211@\nA@ \204# \310\211\f\211\310\211\211\211\257\202\266 \311 !\211 \205. \311
!\211 \204C \312\245\313\f\211\310\211\313\211\257\202\265 \307
!\211 @ A@ \314
\" \314\" \315@ \" \315@\" A\312\245 A\312\245 ^\312\245\316 Z!\312\245 W\203\244 \f\257\202\261 \f\257. BB*,\207" [time t0 t0-zone t0-utc-diff t0-name t1 current-time current-time-zone nil calendar-next-time-zone-transition 60 0 calendar-absolute-from-time calendar-time-zone-daylight-rules abs t2 t1-zone t1-utc-diff t1-name t1-date-sec t2-date-sec t1-rules t2-rules t1-time t2-time] 9 (#$ . 8243)])
#@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 (#$ . 9113))
#@592 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 too large to be represented as a lisp integer), then rather
than an error this function returns the result appropriate for
the current year.
(defalias 'calendar-dst-find-startend #[(year) "\304 \"\305\211\206> \306\3071 \310\311\312\211\311\211&0\202* \210\310\311\312\211\311\211\313\314 8&!\315 8\n\313 8E\316 C\" *\207" [year calendar-dst-transition-cache f e assoc nil calendar-dst-find-data (error) encode-time 1 0 5 decode-time 4 append] 10 (#$ . 9482)])
#@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 #[nil "\206 \301 \211\207" [calendar-current-time-zone-cache calendar-dst-find-data] 2 (#$ . 10414)])
(byte-code "\300 \210\301\302\303\304\305\306\307\310&\210\301\311\312\313\305\306\307\310&\210\301\314\315\316\305\317\307\310&\210\301\320\321\322\305\317\307\310&\210\301\323\324\325\305\306\307\310&\210\301\326\327\330\305\306\307\310&\207" [calendar-current-time-zone custom-declare-variable calendar-time-zone (or (car calendar-current-time-zone-cache) -300) "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 (or (cadr calendar-current-time-zone-cache) 60) "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 (or (nth 2 calendar-current-time-zone-cache) "EST") "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 (or (nth 3 calendar-current-time-zone-cache) "EDT") "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 (or (nth 6 calendar-current-time-zone-cache) 120) "Number of minutes after midnight that daylight saving time starts." calendar-daylight-savings-ends-time (or (nth 7 calendar-current-time-zone-cache) calendar-daylight-savings-starts-time) "Number of minutes after midnight that daylight saving time ends."] 8)
#@136 Return the date of YEAR on which daylight saving time starts.
This function respects the value of `calendar-dst-check-each-year-flag'.
(defalias 'calendar-dst-starts #[(year) "\203\f \305 !A@\202 \306\n8\211\205 \307 !)\206( \f\310U?\205( \311\312\310\313 $\207" [calendar-dst-check-each-year-flag year calendar-current-time-zone-cache expr calendar-daylight-time-offset calendar-dst-find-startend 4 eval 0 calendar-nth-named-day 2 3] 6 (#$ . 13477)])
#@134 Return the date of YEAR on which daylight saving time ends.
This function respects the value of `calendar-dst-check-each-year-flag'.
(defalias 'calendar-dst-ends #[(year) "\203\f \305\306 !8\202 \307\n8\211\205 \310 !)\206( \f\311U?\205( \312\313\311\314 $\207" [calendar-dst-check-each-year-flag year calendar-current-time-zone-cache expr calendar-daylight-time-offset 2 calendar-dst-find-startend 5 eval 0 calendar-nth-named-day 1 11] 6 (#$ . 13940)])
#@116 True if on absolute DATE daylight saving time is in effect.
Fractional part of DATE is local standard time of day.
(defalias 'dst-in-effect #[(date) "\306\307!!\3108)\311\n!\311\f! \205\240 \211\3108)\312 \211\313U\203/ \314\315!\202\230 \313V\203\264 S \316\211\211@) \211A@) \3108) S\317_\\ ! \310V\203\234 !\320 \321_\\\322\245Z! \211\313W\203} \323 !S \321\246\313U\205\223 \324\246\313U?\206\223 \325\246\313U)\203\234 !T!!- \326_ \321\245 \324\245[ \325\245%\202\230\323 T! \327\211\211@) \211A@) \3108) S\317_\\ ! \310V\203 !\320 \321_\\\322\245Z! \211\313W\203\376 \323 !S \321\246\313U\205 \324\246\313U?\206 \325\246\313U)\203 !T!!- \326_ \321\245 \324\245[ \325\245\330\211\330@) \211A@) \3108) S\317_\\ ! \310V\203\223!\320 \321_\\\322\245Z! \211\313W\203t\323 !S \321\246\313U\205\212 \324\246\313U?\206\212 \325\246\313U)\203\223!T!!-&+\331\"\332\333#\\ #
\2052
\211\3108)\312 \211\313U\203\276\314\315!\202' \313V\203C S \316\211\211@) \211A@) \3108) S\317_\\ ! \310V\203+!\320 \321_\\\322\245Z! \211\313W\203\f\323 !S \321\246\313U\205\" \324\246\313U?\206\" \325\246\313U)\203+!T!!- \326_ \321\245 \324\245[ \325\245%\202'\323 T! \327\211\211@) \211A@) \3108) S\317_\\ ! \310V\203\254!\320 \321_\\\322\245Z! \211\313W\203\215\323 !S \321\246\313U\205\243 \324\246\313U?\206\243 \325\246\313U)\203\254!T!!- \326_ \321\245 \324\245[ \325\245\330\211\330@) \211A@) \3108) S\317_\\ ! \310V\203\"!\320 \321_\\\322\245Z! \211\313W\203\323 !S \321\246\313U\205 \324\246\313U?\206 \325\246\313U)\203\"!T!!-&+\331$%Z\334\335#\\ &#\205_&\205_#&W\203T#X\205_&W\202_#X\206_&W-\207" [date year calendar-daylight-savings-starts dst-starts-gregorian calendar-daylight-savings-ends dst-ends-gregorian 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 offset-years month day day-of-year calendar-daylight-savings-starts-time dst-starts calendar-daylight-savings-ends-time calendar-daylight-time-offset dst-ends] 11 (#$ . 14405)])
#@516 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'.
(defalias 'dst-adjust-time #[(date time) "\211\3068)\307\211\310U\203 \311\312!\202R\n\310V\203\213 \nS\313\211\211@)\211A@) \3068)\f S\314_\\ \306V\203x
\315 \316_\\\317\245Z\n\211\310W\203[ \320\n!S\n\316\246\310U\205q \n\321\246\310U?\206q \n\322\246\310U)\203x
T
- \323_ \316\245 \321\245[ \322\245%\202R\320\nT!\324\211\211@)\211A@) \3068)\f S\314_\\ \306V\203\350
\315 \316_\\\317\245Z\n\211\310W\203\313 \320\n!S\n\316\246\310U\205\341 \n\321\246\310U?\206\341 \n\322\246\310U)\203\350
T
- \323_ \316\245 \321\245[ \322\245\325\211\325@)\211A@) \3068)\f S\314_\\ \306V\203N
\315 \316_\\\317\245Z\n\211\310W\2031\320\n!S\n\316\246\310U\205G\n\321\246\310U?\206G\n\322\246\310U)\203N
T
-&+\326\327!\330_!\331\332#\\ \"\333\"!\211 #\203o$\202q% &\"#\203\203\326'\334\335#\202\204\310\\ !\336\337!!!\340!\337!!Z_&E,\207" [date offset-years year month day day-of-year 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 time rounded-abs-date dst calendar-daylight-time-zone-name calendar-standard-time-zone-name time-zone calendar-daylight-time-offset] 11 (#$ . 16679)])
(provide 'cal-dst)
Kontol Shell Bypass