Mercurial > emacs
annotate lisp/calendar/cal-dst.el @ 110523:a5ad4f188e19
Synch Semantic to CEDET 1.0.
Move CEDET ChangeLog entries to new file lisp/cedet/ChangeLog.
* semantic.el (semantic-version): Update to 2.0.
(semantic-mode-map): Add "," and "m" bindings.
(navigate-menu): Update.
* semantic/symref.el (semantic-symref-calculate-rootdir):
New function.
(semantic-symref-detect-symref-tool): Use it.
* semantic/symref/grep.el (semantic-symref-grep-shell): New var.
(semantic-symref-perform-search): Use it. Calculate root dir with
semantic-symref-calculate-rootdir.
(semantic-symref-derive-find-filepatterns): Improve error message.
* semantic/symref/list.el
(semantic-symref-results-mode-map): New bindings.
(semantic-symref-auto-expand-results): New option.
(semantic-symref-results-dump): Obey auto-expand.
(semantic-symref-list-expand-all, semantic-symref-regexp)
(semantic-symref-list-contract-all)
(semantic-symref-list-map-open-hits)
(semantic-symref-list-update-open-hits)
(semantic-symref-list-create-macro-on-open-hit)
(semantic-symref-list-call-macro-on-open-hits): New functions.
(semantic-symref-list-menu-entries)
(semantic-symref-list-menu): New vars.
(semantic-symref-list-map-open-hits): Move cursor to beginning of
match before calling the mapped function.
* semantic/doc.el
(semantic-documentation-comment-preceeding-tag): Do nothing if the
mode doesn't provide comment-start-skip.
* semantic/scope.el
(semantic-analyze-scope-nested-tags-default): Strip duplicates.
(semantic-analyze-scoped-inherited-tag-map): Take the tag we are
looking for as part of the scoped tags list.
* semantic/html.el (semantic-default-html-setup): Add
senator-step-at-tag-classes.
* semantic/decorate/include.el
(semantic-decoration-on-unknown-includes): Change light bgcolor.
(semantic-decoration-on-includes-highlight-default): Check that
the include tag has a postion.
* semantic/complete.el (semantic-collector-local-members):
(semantic-complete-read-tag-local-members)
(semantic-complete-jump-local-members): New class and functions.
(semantic-complete-self-insert): Save excursion before completing.
* semantic/analyze/complete.el
(semantic-analyze-possible-completions-default): If no completions
are found, return the raw by-name-only completion list. Add FLAGS
arguments. Add support for 'no-tc (type constraint) and
'no-unique, or no stripping duplicates.
(semantic-analyze-possible-completions-default): Add FLAGS arg.
* semantic/util-modes.el
(semantic-stickyfunc-show-only-functions-p): New option.
(semantic-stickyfunc-fetch-stickyline): Don't show stickytext for
the very first line in a buffer.
* semantic/util.el (semantic-hack-search)
(semantic-recursive-find-nonterminal-by-name)
(semantic-current-tag-interactive): Deleted.
(semantic-describe-buffer): Fix expand-nonterminal. Add
lex-syntax-mods, type relation separator char, and command
separation char.
(semantic-sanity-check): Only message if called interactively.
* semantic/tag.el (semantic-tag-deep-copy-one-tag): Copy the
:filename property and the tag position.
* semantic/lex-spp.el (semantic-lex-spp-lex-text-string):
Add recursion limit.
* semantic/imenu.el (semantic-imenu-bucketize-type-members):
Make this buffer local, not the obsoleted variable.
* semantic/idle.el: Add breadcrumbs support.
(semantic-idle-summary-current-symbol-info-default)
(semantic-idle-tag-highlight)
(semantic-idle-completion-list-default): Use
semanticdb-without-unloaded-file-searches for speed, and to
conform to the controls that specify if the idle timer is supposed
to be parsing unparsed includes.
(semantic-idle-symbol-highlight-face)
(semantic-idle-symbol-maybe-highlight): Rename from *-summary-*.
Callers changed.
(semantic-idle-work-parse-neighboring-files-flag): Default to nil.
(semantic-idle-work-update-headers-flag): New var.
(semantic-idle-work-for-one-buffer): Use it.
(semantic-idle-local-symbol-highlight): Rename from
semantic-idle-tag-highlight.
(semantic-idle-truncate-long-summaries): New option.
* semantic/ia.el (semantic-ia-cache)
(semantic-ia-get-completions): Deleted. Callers changed.
(semantic-ia-show-variants): New command.
(semantic-ia-show-doc): If doc is empty, don't make a temp buffer.
(semantic-ia-show-summary): If there isn't anything to show, say so.
* semantic/grammar.el (semantic-grammar-create-package):
Save the buffer even in batch mode.
* semantic/fw.el
(semanticdb-without-unloaded-file-searches): New macro.
* semantic/dep.el (semantic-dependency-find-file-on-path):
Fix case dereferencing ede-object when it is a list.
* semantic/db-typecache.el (semanticdb-expand-nested-tag)
(semanticdb-typecache-faux-namespace): New functions.
(semanticdb-typecache-file-tags)
(semanticdb-typecache-merge-streams): Use them.
(semanticdb-typecache-file-tags): When deriving tags from a file,
give the mode a chance to monkey with the tag copy.
(semanticdb-typecache-find-default): Wrap find in save-excursion.
(semanticdb-typecache-find-by-name-helper): Merge found names down.
* semantic/db-global.el
(semanticdb-enable-gnu-global-in-buffer): Don't show messages if
GNU Global is not available and we don't want to throw an error.
* semantic/db-find.el (semanticdb-find-result-nth-in-buffer):
When trying to normalize the tag to a buffer, don't error if
set-buffer method doesn't exist.
* semantic/db-file.el (semanticdb-save-db): Simplify msg.
* semantic/db.el (semanticdb-refresh-table): If forcing a
refresh on a file not in a buffer, use semantic-find-file-noselect
and delete the buffer after use.
(semanticdb-current-database-list): When calculating root via
hooks, force it through true-filename and skip the list of
possible roots.
* semantic/ctxt.el (semantic-ctxt-imported-packages): New.
* semantic/analyze/debug.el
(semantic-analyzer-debug-insert-tag): Reset standard output to
current buffer.
(semantic-analyzer-debug-global-symbol)
(semantic-analyzer-debug-missing-innertype): Change "prefix" to
"symbol" in messages.
* semantic/analyze/refs.el: (semantic-analyze-refs-impl)
(semantic-analyze-refs-proto): When calculating value, make sure
the found tag is 'similar' to the originating tag.
(semantic--analyze-refs-find-tags-with-parent): Attempt to
identify matches via imported symbols of parents.
(semantic--analyze-refs-full-lookup-with-parents): Do a deep
search during the brute search.
* semantic/analyze.el
(semantic-analyze-find-tag-sequence-default): Be robust to
calculated scopes being nil.
* semantic/bovine/c.el (semantic-c-describe-environment): Add
project macro symbol array.
(semantic-c-parse-lexical-token): Add recursion limit.
(semantic-ctxt-imported-packages, semanticdb-expand-nested-tag):
New overrides.
(semantic-expand-c-tag-namelist): Split a full type from a typedef
out to its own tag.
(semantic-expand-c-tag-namelist): Do not split out a typedef'd
inline type if it is an anonymous type.
(semantic-c-reconstitute-token): Use the optional initializers as
a clue that some function is probably a constructor. When
defining the type of these constructors, split the parent name,
and use only the class part, if applicable.
* semantic/bovine/c-by.el:
* semantic/wisent/python-wy.el: Regenerate.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Sat, 18 Sep 2010 22:49:54 -0400 |
parents | 1d1d5d9bd884 |
children | 280c8ae2476d 376148b31b5e |
rev | line source |
---|---|
76476
3878691bdbb7
Change "daylight savings time" -> "daylight saving time" throughout.
Chong Yidong <cyd@stupidchicken.com>
parents:
75346
diff
changeset
|
1 ;;; cal-dst.el --- calendar functions for daylight saving rules |
3872 | 2 |
68721 | 3 ;; Copyright (C) 1993, 1994, 1995, 1996, 2001, 2002, 2003, 2004, 2005, |
106815 | 4 ;; 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
3872 | 5 |
6 ;; Author: Paul Eggert <eggert@twinsun.com> | |
92850 | 7 ;; Edward M. Reingold <reingold@cs.uiuc.edu> |
67465
a55ee709ec8d
Update copyright pending Emacs 22.
Glenn Morris <rgm@gnu.org>
parents:
64085
diff
changeset
|
8 ;; Maintainer: Glenn Morris <rgm@gnu.org> |
3872 | 9 ;; Keywords: calendar |
76476
3878691bdbb7
Change "daylight savings time" -> "daylight saving time" throughout.
Chong Yidong <cyd@stupidchicken.com>
parents:
75346
diff
changeset
|
10 ;; Human-Keywords: daylight saving time, calendar, diary, holidays |
3872 | 11 |
12 ;; This file is part of GNU Emacs. | |
13 | |
94653
e49abd957e81
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93991
diff
changeset
|
14 ;; GNU Emacs is free software: you can redistribute it and/or modify |
6736
3e1323443b1a
Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents:
6735
diff
changeset
|
15 ;; it under the terms of the GNU General Public License as published by |
94653
e49abd957e81
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93991
diff
changeset
|
16 ;; the Free Software Foundation, either version 3 of the License, or |
e49abd957e81
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93991
diff
changeset
|
17 ;; (at your option) any later version. |
3872 | 18 |
6736
3e1323443b1a
Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents:
6735
diff
changeset
|
19 ;; GNU Emacs is distributed in the hope that it will be useful, |
3e1323443b1a
Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents:
6735
diff
changeset
|
20 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
3e1323443b1a
Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents:
6735
diff
changeset
|
21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
3e1323443b1a
Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents:
6735
diff
changeset
|
22 ;; GNU General Public License for more details. |
3e1323443b1a
Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents:
6735
diff
changeset
|
23 |
3e1323443b1a
Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents:
6735
diff
changeset
|
24 ;; You should have received a copy of the GNU General Public License |
94653
e49abd957e81
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93991
diff
changeset
|
25 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
3872 | 26 |
27 ;;; Commentary: | |
28 | |
93479
7aed3058864c
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93222
diff
changeset
|
29 ;; See calendar.el. |
3872 | 30 |
31 ;;; Code: | |
32 | |
33 (require 'calendar) | |
34 | |
92552
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
35 |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
36 (defgroup calendar-dst nil |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
37 "Options related to Daylight Saving Time." |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
38 :prefix "calendar-" |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
39 :group 'calendar) |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
40 |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
41 |
73875
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
42 (defcustom calendar-dst-check-each-year-flag t |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
43 "Non-nil means to check each year for DST transitions as needed. |
73894
cfa3c02ad6bf
(calendar-dst-check-each-year-flag): Avoid
Andreas Schwab <schwab@suse.de>
parents:
73875
diff
changeset
|
44 Otherwise assume the next two transitions found after the |
73875
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
45 current date apply to all years. This is faster, but not always |
76476
3878691bdbb7
Change "daylight savings time" -> "daylight saving time" throughout.
Chong Yidong <cyd@stupidchicken.com>
parents:
75346
diff
changeset
|
46 correct, since the dates of daylight saving transitions sometimes |
73875
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
47 change." |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
48 :type 'boolean |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
49 :version "22.1" |
93991
09c830b8981d
(calendar-dst-check-each-year-flag): Fix custom group.
Glenn Morris <rgm@gnu.org>
parents:
93809
diff
changeset
|
50 :group 'calendar-dst) |
73875
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
51 |
92552
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
52 ;;;###autoload |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
53 (put 'calendar-daylight-savings-starts 'risky-local-variable t) |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
54 (defcustom calendar-daylight-savings-starts '(calendar-dst-starts year) |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
55 "Sexp giving the date on which daylight saving time starts. |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
56 This is an expression in the variable `year' whose value gives the Gregorian |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
57 date in the form (month day year) on which daylight saving time starts. It is |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
58 used to determine the starting date of daylight saving time for the holiday |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
59 list and for correcting times of day in the solar and lunar calculations. |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
60 |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
61 For example, if daylight saving time is mandated to start on October 1, |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
62 you would set `calendar-daylight-savings-starts' to |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
63 |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
64 '(10 1 year) |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
65 |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
66 If it starts on the first Sunday in April, you would set it to |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
67 |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
68 '(calendar-nth-named-day 1 0 4 year) |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
69 |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
70 If the locale never uses daylight saving time, set this to nil." |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
71 :type 'sexp |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
72 :group 'calendar-dst) |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
73 |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
74 ;;;###autoload |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
75 (put 'calendar-daylight-savings-ends 'risky-local-variable t) |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
76 (defcustom calendar-daylight-savings-ends '(calendar-dst-ends year) |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
77 "Sexp giving the date on which daylight saving time ends. |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
78 This is an expression in the variable `year' whose value gives the Gregorian |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
79 date in the form (month day year) on which daylight saving time ends. It is |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
80 used to determine the starting date of daylight saving time for the holiday |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
81 list and for correcting times of day in the solar and lunar calculations. |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
82 |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
83 For example, if daylight saving time ends on the last Sunday in October: |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
84 |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
85 '(calendar-nth-named-day -1 0 10 year) |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
86 |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
87 If the locale never uses daylight saving time, set this to nil." |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
88 :type 'sexp |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
89 :group 'calendar-dst) |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
90 |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
91 ;;; More defcustoms below. |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
92 |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
93 |
3872 | 94 (defvar calendar-current-time-zone-cache nil |
74870
06cc5e77c85a
(calendar-dst-starts): Default to second Sunday in March.
Richard M. Stallman <rms@gnu.org>
parents:
73894
diff
changeset
|
95 "Cache for result of `calendar-current-time-zone'.") |
93991
09c830b8981d
(calendar-dst-check-each-year-flag): Fix custom group.
Glenn Morris <rgm@gnu.org>
parents:
93809
diff
changeset
|
96 ;; It gets eval'd, eg by calendar-dst-starts. |
09c830b8981d
(calendar-dst-check-each-year-flag): Fix custom group.
Glenn Morris <rgm@gnu.org>
parents:
93809
diff
changeset
|
97 ;;;###autoload |
09c830b8981d
(calendar-dst-check-each-year-flag): Fix custom group.
Glenn Morris <rgm@gnu.org>
parents:
93809
diff
changeset
|
98 (put 'calendar-current-time-zone-cache 'risky-local-variable t) |
3872 | 99 |
100 (defvar calendar-system-time-basis | |
101 (calendar-absolute-from-gregorian '(1 1 1970)) | |
102 "Absolute date of starting date of system clock.") | |
103 | |
104 (defun calendar-absolute-from-time (x utc-diff) | |
105 "Absolute local date of time X; local time is UTC-DIFF seconds from UTC. | |
106 | |
107 X is (HIGH . LOW) or (HIGH LOW . IGNORED) where HIGH and LOW are the | |
108 high and low 16 bits, respectively, of the number of seconds since | |
109 1970-01-01 00:00:00 UTC, ignoring leap seconds. | |
110 | |
111 Returns the pair (ABS-DATE . SECONDS) where SECONDS after local midnight on | |
112 absolute date ABS-DATE is the equivalent moment to X." | |
113 (let* ((h (car x)) | |
92850 | 114 (xtail (cdr x)) |
3872 | 115 (l (+ utc-diff (if (numberp xtail) xtail (car xtail)))) |
4535 | 116 (u (+ (* 512 (mod h 675)) (floor l 128)))) |
3872 | 117 ;; Overflow is a terrible thing! |
118 (cons (+ calendar-system-time-basis | |
92850 | 119 ;; floor((2^16 h +l) / (60*60*24)) |
120 (* 512 (floor h 675)) (floor u 675)) | |
121 ;; (2^16 h +l) mod (60*60*24) | |
122 (+ (* (mod u 675) 128) (mod l 128))))) | |
3872 | 123 |
124 (defun calendar-time-from-absolute (abs-date s) | |
125 "Time of absolute date ABS-DATE, S seconds after midnight. | |
126 | |
56425
5572efece9a6
(calendar-time-from-absolute): Return a list of two integers, instead
Luc Teirlinck <teirllm@auburn.edu>
parents:
52401
diff
changeset
|
127 Returns the list (HIGH LOW) where HIGH and LOW are the high and low |
3872 | 128 16 bits, respectively, of the number of seconds 1970-01-01 00:00:00 UTC, |
129 ignoring leap seconds, that is the equivalent moment to S seconds after | |
130 midnight UTC on absolute date ABS-DATE." | |
131 (let* ((a (- abs-date calendar-system-time-basis)) | |
4535 | 132 (u (+ (* 163 (mod a 512)) (floor s 128)))) |
3872 | 133 ;; Overflow is a terrible thing! |
56425
5572efece9a6
(calendar-time-from-absolute): Return a list of two integers, instead
Luc Teirlinck <teirllm@auburn.edu>
parents:
52401
diff
changeset
|
134 (list |
5001
f3a55af8f584
(calendar-absolute-from-time): Undo Sep 14 patch.
Richard M. Stallman <rms@gnu.org>
parents:
4756
diff
changeset
|
135 ;; floor((60*60*24*a + s) / 2^16) |
4535 | 136 (+ a (* 163 (floor a 512)) (floor u 512)) |
5001
f3a55af8f584
(calendar-absolute-from-time): Undo Sep 14 patch.
Richard M. Stallman <rms@gnu.org>
parents:
4756
diff
changeset
|
137 ;; (60*60*24*a + s) mod 2^16 |
4535 | 138 (+ (* 128 (mod u 512)) (mod s 128))))) |
3872 | 139 |
140 (defun calendar-next-time-zone-transition (time) | |
141 "Return the time of the next time zone transition after TIME. | |
92640
21bbfdf10ce1
(calendar-next-time-zone-transition, calendar-time-zone): Doc fixes.
Glenn Morris <rgm@gnu.org>
parents:
92581
diff
changeset
|
142 Both TIME and the result are acceptable arguments to `current-time-zone'. |
3872 | 143 Return nil if no such transition can be found." |
92965 | 144 (let* ((base 65536) ; 2^16 = base of current-time output |
145 (quarter-multiple 120) ; approx = (seconds per quarter year) / base | |
92850 | 146 (time-zone (current-time-zone time)) |
147 (time-utc-diff (car time-zone)) | |
3872 | 148 hi |
92850 | 149 hi-zone |
3872 | 150 (hi-utc-diff time-utc-diff) |
151 (quarters '(2 1 3))) | |
152 ;; Heuristic: probe the time zone offset in the next three calendar | |
153 ;; quarters, looking for a time zone offset different from TIME. | |
154 (while (and quarters (eq time-utc-diff hi-utc-diff)) | |
92914
83321455f486
(calendar-time-zone-daylight-rules): Simplify.
Glenn Morris <rgm@gnu.org>
parents:
92850
diff
changeset
|
155 (setq hi (cons (+ (car time) (* (car quarters) quarter-multiple)) 0) |
83321455f486
(calendar-time-zone-daylight-rules): Simplify.
Glenn Morris <rgm@gnu.org>
parents:
92850
diff
changeset
|
156 hi-zone (current-time-zone hi) |
83321455f486
(calendar-time-zone-daylight-rules): Simplify.
Glenn Morris <rgm@gnu.org>
parents:
92850
diff
changeset
|
157 hi-utc-diff (car hi-zone) |
83321455f486
(calendar-time-zone-daylight-rules): Simplify.
Glenn Morris <rgm@gnu.org>
parents:
92850
diff
changeset
|
158 quarters (cdr quarters))) |
3872 | 159 (and |
160 time-utc-diff | |
161 hi-utc-diff | |
162 (not (eq time-utc-diff hi-utc-diff)) | |
163 ;; Now HI is after the next time zone transition. | |
164 ;; Set LO to TIME, and then binary search to increase LO and decrease HI | |
165 ;; until LO is just before and HI is just after the time zone transition. | |
166 (let* ((tail (cdr time)) | |
92850 | 167 (lo (cons (car time) (if (numberp tail) tail (car tail)))) |
168 probe) | |
3872 | 169 (while |
92850 | 170 ;; Set PROBE to halfway between LO and HI, rounding down. |
171 ;; If PROBE equals LO, we are done. | |
172 (let* ((lsum (+ (cdr lo) (cdr hi))) | |
173 (hsum (+ (car lo) (car hi) (/ lsum base))) | |
174 (hsumodd (logand 1 hsum))) | |
175 (setq probe (cons (/ (- hsum hsumodd) 2) | |
176 (/ (+ (* hsumodd base) (% lsum base)) 2))) | |
177 (not (equal lo probe))) | |
178 ;; Set either LO or HI to PROBE, depending on probe results. | |
179 (if (eq (car (current-time-zone probe)) hi-utc-diff) | |
180 (setq hi probe) | |
181 (setq lo probe))) | |
3872 | 182 hi)))) |
183 | |
93650
e13ec6b5b482
Update for cal-persia name changes.
Glenn Morris <rgm@gnu.org>
parents:
93526
diff
changeset
|
184 (autoload 'calendar-persian-to-absolute "cal-persia") |
93222 | 185 |
3872 | 186 (defun calendar-time-zone-daylight-rules (abs-date utc-diff) |
187 "Return daylight transition rule for ABS-DATE, UTC-DIFF sec offset from UTC. | |
76476
3878691bdbb7
Change "daylight savings time" -> "daylight saving time" throughout.
Chong Yidong <cyd@stupidchicken.com>
parents:
75346
diff
changeset
|
188 ABS-DATE must specify a day that contains a daylight saving transition. |
3878691bdbb7
Change "daylight savings time" -> "daylight saving time" throughout.
Chong Yidong <cyd@stupidchicken.com>
parents:
75346
diff
changeset
|
189 The result has the proper form for `calendar-daylight-savings-starts'." |
3872 | 190 (let* ((date (calendar-gregorian-from-absolute abs-date)) |
92850 | 191 (weekday (% abs-date 7)) |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93737
diff
changeset
|
192 (m (calendar-extract-month date)) |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93737
diff
changeset
|
193 (d (calendar-extract-day date)) |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93737
diff
changeset
|
194 (y (calendar-extract-year date)) |
3872 | 195 (last (calendar-last-day-of-month m y)) |
93526
90118d6d9050
(calendar-time-zone-daylight-rules): Simplify.
Glenn Morris <rgm@gnu.org>
parents:
93479
diff
changeset
|
196 j rlist |
90118d6d9050
(calendar-time-zone-daylight-rules): Simplify.
Glenn Morris <rgm@gnu.org>
parents:
93479
diff
changeset
|
197 (candidate-rules ; these return Gregorian dates |
92850 | 198 (append |
199 ;; Day D of month M. | |
93526
90118d6d9050
(calendar-time-zone-daylight-rules): Simplify.
Glenn Morris <rgm@gnu.org>
parents:
93479
diff
changeset
|
200 `((list ,m ,d year)) |
92850 | 201 ;; The first WEEKDAY of month M. |
3872 | 202 (if (< d 8) |
93526
90118d6d9050
(calendar-time-zone-daylight-rules): Simplify.
Glenn Morris <rgm@gnu.org>
parents:
93479
diff
changeset
|
203 `((calendar-nth-named-day 1 ,weekday ,m year))) |
92850 | 204 ;; The last WEEKDAY of month M. |
3872 | 205 (if (> d (- last 7)) |
93526
90118d6d9050
(calendar-time-zone-daylight-rules): Simplify.
Glenn Morris <rgm@gnu.org>
parents:
93479
diff
changeset
|
206 `((calendar-nth-named-day -1 ,weekday ,m year))) |
90118d6d9050
(calendar-time-zone-daylight-rules): Simplify.
Glenn Morris <rgm@gnu.org>
parents:
93479
diff
changeset
|
207 (progn |
90118d6d9050
(calendar-time-zone-daylight-rules): Simplify.
Glenn Morris <rgm@gnu.org>
parents:
93479
diff
changeset
|
208 ;; The first WEEKDAY after day J of month M, for D-6 < J <= D. |
90118d6d9050
(calendar-time-zone-daylight-rules): Simplify.
Glenn Morris <rgm@gnu.org>
parents:
93479
diff
changeset
|
209 (setq j (1- (max 2 (- d 6)))) |
90118d6d9050
(calendar-time-zone-daylight-rules): Simplify.
Glenn Morris <rgm@gnu.org>
parents:
93479
diff
changeset
|
210 (while (<= (setq j (1+ j)) (min d (- last 8))) |
90118d6d9050
(calendar-time-zone-daylight-rules): Simplify.
Glenn Morris <rgm@gnu.org>
parents:
93479
diff
changeset
|
211 (push `(calendar-nth-named-day 1 ,weekday ,m year ,j) rlist)) |
90118d6d9050
(calendar-time-zone-daylight-rules): Simplify.
Glenn Morris <rgm@gnu.org>
parents:
93479
diff
changeset
|
212 rlist) |
92850 | 213 ;; 01-01 and 07-01 for this year's Persian calendar. |
93526
90118d6d9050
(calendar-time-zone-daylight-rules): Simplify.
Glenn Morris <rgm@gnu.org>
parents:
93479
diff
changeset
|
214 ;; FIXME what does the Persian calendar have to do with this? |
103562
decf5e666b9e
(calendar-time-zone-daylight-rules): Simplify Persian conditionals.
Glenn Morris <rgm@gnu.org>
parents:
103371
diff
changeset
|
215 (and (= m 3) (memq d '(20 21)) |
decf5e666b9e
(calendar-time-zone-daylight-rules): Simplify Persian conditionals.
Glenn Morris <rgm@gnu.org>
parents:
103371
diff
changeset
|
216 '((calendar-gregorian-from-absolute |
decf5e666b9e
(calendar-time-zone-daylight-rules): Simplify Persian conditionals.
Glenn Morris <rgm@gnu.org>
parents:
103371
diff
changeset
|
217 (calendar-persian-to-absolute `(1 1 ,(- year 621)))))) |
decf5e666b9e
(calendar-time-zone-daylight-rules): Simplify Persian conditionals.
Glenn Morris <rgm@gnu.org>
parents:
103371
diff
changeset
|
218 (and (= m 9) (memq d '(22 23)) |
decf5e666b9e
(calendar-time-zone-daylight-rules): Simplify Persian conditionals.
Glenn Morris <rgm@gnu.org>
parents:
103371
diff
changeset
|
219 '((calendar-gregorian-from-absolute |
decf5e666b9e
(calendar-time-zone-daylight-rules): Simplify Persian conditionals.
Glenn Morris <rgm@gnu.org>
parents:
103371
diff
changeset
|
220 (calendar-persian-to-absolute `(7 1 ,(- year 621)))))))) |
92965 | 221 (prevday-sec (- -1 utc-diff)) ; last sec of previous local day |
93526
90118d6d9050
(calendar-time-zone-daylight-rules): Simplify.
Glenn Morris <rgm@gnu.org>
parents:
93479
diff
changeset
|
222 (year (1+ y)) |
90118d6d9050
(calendar-time-zone-daylight-rules): Simplify.
Glenn Morris <rgm@gnu.org>
parents:
93479
diff
changeset
|
223 new-rules) |
4659
031aaf217dc3
(calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents:
4535
diff
changeset
|
224 ;; Scan through the next few years until only one rule remains. |
93526
90118d6d9050
(calendar-time-zone-daylight-rules): Simplify.
Glenn Morris <rgm@gnu.org>
parents:
93479
diff
changeset
|
225 (while (cdr candidate-rules) |
90118d6d9050
(calendar-time-zone-daylight-rules): Simplify.
Glenn Morris <rgm@gnu.org>
parents:
93479
diff
changeset
|
226 (dolist (rule candidate-rules) |
90118d6d9050
(calendar-time-zone-daylight-rules): Simplify.
Glenn Morris <rgm@gnu.org>
parents:
93479
diff
changeset
|
227 ;; The rule we return should give a Gregorian date, but here |
90118d6d9050
(calendar-time-zone-daylight-rules): Simplify.
Glenn Morris <rgm@gnu.org>
parents:
93479
diff
changeset
|
228 ;; we require an absolute date. The following is for efficiency. |
90118d6d9050
(calendar-time-zone-daylight-rules): Simplify.
Glenn Morris <rgm@gnu.org>
parents:
93479
diff
changeset
|
229 (setq date (cond ((eq (car rule) 'calendar-nth-named-day) |
90118d6d9050
(calendar-time-zone-daylight-rules): Simplify.
Glenn Morris <rgm@gnu.org>
parents:
93479
diff
changeset
|
230 (eval (cons 'calendar-nth-named-absday (cdr rule)))) |
90118d6d9050
(calendar-time-zone-daylight-rules): Simplify.
Glenn Morris <rgm@gnu.org>
parents:
93479
diff
changeset
|
231 ((eq (car rule) 'calendar-gregorian-from-absolute) |
103371
261b17f9df8e
(calendar-time-zone-daylight-rules): Fix typo in 2008-04-02 change.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
232 (eval (cadr rule))) |
93526
90118d6d9050
(calendar-time-zone-daylight-rules): Simplify.
Glenn Morris <rgm@gnu.org>
parents:
93479
diff
changeset
|
233 (t (calendar-absolute-from-gregorian (eval rule))))) |
90118d6d9050
(calendar-time-zone-daylight-rules): Simplify.
Glenn Morris <rgm@gnu.org>
parents:
93479
diff
changeset
|
234 (or (equal (current-time-zone |
90118d6d9050
(calendar-time-zone-daylight-rules): Simplify.
Glenn Morris <rgm@gnu.org>
parents:
93479
diff
changeset
|
235 (calendar-time-from-absolute date prevday-sec)) |
90118d6d9050
(calendar-time-zone-daylight-rules): Simplify.
Glenn Morris <rgm@gnu.org>
parents:
93479
diff
changeset
|
236 (current-time-zone |
90118d6d9050
(calendar-time-zone-daylight-rules): Simplify.
Glenn Morris <rgm@gnu.org>
parents:
93479
diff
changeset
|
237 (calendar-time-from-absolute (1+ date) prevday-sec))) |
90118d6d9050
(calendar-time-zone-daylight-rules): Simplify.
Glenn Morris <rgm@gnu.org>
parents:
93479
diff
changeset
|
238 (setq new-rules (cons rule new-rules)))) |
90118d6d9050
(calendar-time-zone-daylight-rules): Simplify.
Glenn Morris <rgm@gnu.org>
parents:
93479
diff
changeset
|
239 ;; If no rules remain, just use the first candidate rule; |
90118d6d9050
(calendar-time-zone-daylight-rules): Simplify.
Glenn Morris <rgm@gnu.org>
parents:
93479
diff
changeset
|
240 ;; it's wrong in general, but it's right for at least one year. |
90118d6d9050
(calendar-time-zone-daylight-rules): Simplify.
Glenn Morris <rgm@gnu.org>
parents:
93479
diff
changeset
|
241 (setq candidate-rules (if new-rules (nreverse new-rules) |
90118d6d9050
(calendar-time-zone-daylight-rules): Simplify.
Glenn Morris <rgm@gnu.org>
parents:
93479
diff
changeset
|
242 (list (car candidate-rules))) |
93737 | 243 new-rules nil |
244 year (1+ year))) | |
4659
031aaf217dc3
(calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents:
4535
diff
changeset
|
245 (car candidate-rules))) |
3872 | 246 |
73875
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
247 ;; TODO it might be better to extract this information directly from |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
248 ;; the system timezone database. But cross-platform...? |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
249 ;; See thread |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
250 ;; http://lists.gnu.org/archive/html/emacs-pretest-bug/2006-11/msg00060.html |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
251 (defun calendar-dst-find-data (&optional time) |
76476
3878691bdbb7
Change "daylight savings time" -> "daylight saving time" throughout.
Chong Yidong <cyd@stupidchicken.com>
parents:
75346
diff
changeset
|
252 "Find data on the first daylight saving time transitions after TIME. |
73875
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
253 TIME defaults to `current-time'. Return value is as described |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
254 for `calendar-current-time-zone'." |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
255 (let* ((t0 (or time (current-time))) |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
256 (t0-zone (current-time-zone t0)) |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
257 (t0-utc-diff (car t0-zone)) |
92914
83321455f486
(calendar-time-zone-daylight-rules): Simplify.
Glenn Morris <rgm@gnu.org>
parents:
92850
diff
changeset
|
258 (t0-name (cadr t0-zone))) |
73875
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
259 (if (not t0-utc-diff) |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
260 ;; Little or no time zone information is available. |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
261 (list nil nil t0-name t0-name nil nil nil nil) |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
262 (let* ((t1 (calendar-next-time-zone-transition t0)) |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
263 (t2 (and t1 (calendar-next-time-zone-transition t1)))) |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
264 (if (not t2) |
76476
3878691bdbb7
Change "daylight savings time" -> "daylight saving time" throughout.
Chong Yidong <cyd@stupidchicken.com>
parents:
75346
diff
changeset
|
265 ;; This locale does not have daylight saving time. |
73875
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
266 (list (/ t0-utc-diff 60) 0 t0-name t0-name nil nil 0 0) |
76476
3878691bdbb7
Change "daylight savings time" -> "daylight saving time" throughout.
Chong Yidong <cyd@stupidchicken.com>
parents:
75346
diff
changeset
|
267 ;; Use heuristics to find daylight saving parameters. |
73875
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
268 (let* ((t1-zone (current-time-zone t1)) |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
269 (t1-utc-diff (car t1-zone)) |
92914
83321455f486
(calendar-time-zone-daylight-rules): Simplify.
Glenn Morris <rgm@gnu.org>
parents:
92850
diff
changeset
|
270 (t1-name (cadr t1-zone)) |
73875
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
271 (t1-date-sec (calendar-absolute-from-time t1 t0-utc-diff)) |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
272 (t2-date-sec (calendar-absolute-from-time t2 t1-utc-diff)) |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
273 ;; TODO When calendar-dst-check-each-year-flag is non-nil, |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
274 ;; the rules can be simpler than they currently are. |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
275 (t1-rules (calendar-time-zone-daylight-rules |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
276 (car t1-date-sec) t0-utc-diff)) |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
277 (t2-rules (calendar-time-zone-daylight-rules |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
278 (car t2-date-sec) t1-utc-diff)) |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
279 (t1-time (/ (cdr t1-date-sec) 60)) |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
280 (t2-time (/ (cdr t2-date-sec) 60))) |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
281 (cons |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
282 (/ (min t0-utc-diff t1-utc-diff) 60) |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
283 (cons |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
284 (/ (abs (- t0-utc-diff t1-utc-diff)) 60) |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
285 (if (< t0-utc-diff t1-utc-diff) |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
286 (list t0-name t1-name t1-rules t2-rules t1-time t2-time) |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
287 (list t1-name t0-name t2-rules t1-rules t2-time t1-time) |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
288 ))))))))) |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
289 |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
290 (defvar calendar-dst-transition-cache nil |
76476
3878691bdbb7
Change "daylight savings time" -> "daylight saving time" throughout.
Chong Yidong <cyd@stupidchicken.com>
parents:
75346
diff
changeset
|
291 "Internal cal-dst variable storing date of daylight saving time transitions. |
73875
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
292 Value is a list with elements of the form (YEAR START END), where |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
293 START and END are expressions that when evaluated return the |
92640
21bbfdf10ce1
(calendar-next-time-zone-transition, calendar-time-zone): Doc fixes.
Glenn Morris <rgm@gnu.org>
parents:
92581
diff
changeset
|
294 start and end dates (respectively) for DST in YEAR. Used by the |
73875
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
295 function `calendar-dst-find-startend'.") |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
296 |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
297 (defun calendar-dst-find-startend (year) |
76476
3878691bdbb7
Change "daylight savings time" -> "daylight saving time" throughout.
Chong Yidong <cyd@stupidchicken.com>
parents:
75346
diff
changeset
|
298 "Find the dates in YEAR on which daylight saving time starts and ends. |
73875
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
299 Returns a list (YEAR START END), where START and END are |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
300 expressions that when evaluated return the start and end dates, |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
301 respectively. This function first attempts to use pre-calculated |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
302 data from `calendar-dst-transition-cache', otherwise it calls |
77277
c56fcbc72ab0
(calendar-dst-find-startend): If YEAR cannot be encoded, fall back to
Glenn Morris <rgm@gnu.org>
parents:
76476
diff
changeset
|
303 `calendar-dst-find-data' (and adds the results to the cache). |
c56fcbc72ab0
(calendar-dst-find-startend): If YEAR cannot be encoded, fall back to
Glenn Morris <rgm@gnu.org>
parents:
76476
diff
changeset
|
304 If dates in YEAR cannot be handled by `encode-time' (e.g. if they |
c56fcbc72ab0
(calendar-dst-find-startend): If YEAR cannot be encoded, fall back to
Glenn Morris <rgm@gnu.org>
parents:
76476
diff
changeset
|
305 are too large to be represented as a lisp integer), then rather |
c56fcbc72ab0
(calendar-dst-find-startend): If YEAR cannot be encoded, fall back to
Glenn Morris <rgm@gnu.org>
parents:
76476
diff
changeset
|
306 than an error this function returns the result appropriate for |
c56fcbc72ab0
(calendar-dst-find-startend): If YEAR cannot be encoded, fall back to
Glenn Morris <rgm@gnu.org>
parents:
76476
diff
changeset
|
307 the current year." |
73875
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
308 (let ((e (assoc year calendar-dst-transition-cache)) |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
309 f) |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
310 (or e |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
311 (progn |
77277
c56fcbc72ab0
(calendar-dst-find-startend): If YEAR cannot be encoded, fall back to
Glenn Morris <rgm@gnu.org>
parents:
76476
diff
changeset
|
312 (setq e (calendar-dst-find-data |
c56fcbc72ab0
(calendar-dst-find-startend): If YEAR cannot be encoded, fall back to
Glenn Morris <rgm@gnu.org>
parents:
76476
diff
changeset
|
313 (condition-case nil |
c56fcbc72ab0
(calendar-dst-find-startend): If YEAR cannot be encoded, fall back to
Glenn Morris <rgm@gnu.org>
parents:
76476
diff
changeset
|
314 (encode-time 1 0 0 1 1 year) |
c56fcbc72ab0
(calendar-dst-find-startend): If YEAR cannot be encoded, fall back to
Glenn Morris <rgm@gnu.org>
parents:
76476
diff
changeset
|
315 (error |
c56fcbc72ab0
(calendar-dst-find-startend): If YEAR cannot be encoded, fall back to
Glenn Morris <rgm@gnu.org>
parents:
76476
diff
changeset
|
316 (encode-time 1 0 0 1 1 (nth 5 (decode-time)))))) |
73875
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
317 f (nth 4 e) |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
318 e (list year f (nth 5 e)) |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
319 calendar-dst-transition-cache |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
320 (append calendar-dst-transition-cache (list e))) |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
321 e)))) |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
322 |
3872 | 323 (defun calendar-current-time-zone () |
324 "Return UTC difference, dst offset, names and rules for current time zone. | |
325 | |
4659
031aaf217dc3
(calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents:
4535
diff
changeset
|
326 Returns (UTC-DIFF DST-OFFSET STD-ZONE DST-ZONE DST-STARTS DST-ENDS |
031aaf217dc3
(calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents:
4535
diff
changeset
|
327 DST-STARTS-TIME DST-ENDS-TIME), based on a heuristic probing of what the |
031aaf217dc3
(calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents:
4535
diff
changeset
|
328 system knows: |
3872 | 329 |
330 UTC-DIFF is an integer specifying the number of minutes difference between | |
331 standard time in the current time zone and Coordinated Universal Time | |
332 (Greenwich Mean Time). A negative value means west of Greenwich. | |
76476
3878691bdbb7
Change "daylight savings time" -> "daylight saving time" throughout.
Chong Yidong <cyd@stupidchicken.com>
parents:
75346
diff
changeset
|
333 DST-OFFSET is an integer giving the daylight saving time offset in minutes. |
3872 | 334 STD-ZONE is a string giving the name of the time zone when no seasonal time |
335 adjustment is in effect. | |
336 DST-ZONE is a string giving the name of the time zone when there is a seasonal | |
337 time adjustment in effect. | |
338 DST-STARTS and DST-ENDS are sexps in the variable `year' giving the daylight | |
76476
3878691bdbb7
Change "daylight savings time" -> "daylight saving time" throughout.
Chong Yidong <cyd@stupidchicken.com>
parents:
75346
diff
changeset
|
339 saving time start and end rules, in the form expected by |
3872 | 340 `calendar-daylight-savings-starts'. |
4659
031aaf217dc3
(calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents:
4535
diff
changeset
|
341 DST-STARTS-TIME and DST-ENDS-TIME are integers giving the number of minutes |
76476
3878691bdbb7
Change "daylight savings time" -> "daylight saving time" throughout.
Chong Yidong <cyd@stupidchicken.com>
parents:
75346
diff
changeset
|
342 after midnight that daylight saving time starts and ends. |
3872 | 343 |
4659
031aaf217dc3
(calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents:
4535
diff
changeset
|
344 If the local area does not use a seasonal time adjustment, STD-ZONE and |
031aaf217dc3
(calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents:
4535
diff
changeset
|
345 DST-ZONE are equal, and all the DST-* integer variables are 0. |
3872 | 346 |
347 Some operating systems cannot provide all this information to Emacs; in this | |
348 case, `calendar-current-time-zone' returns a list containing nil for the data | |
349 it can't find." | |
73875
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
350 (unless calendar-current-time-zone-cache |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
351 (setq calendar-current-time-zone-cache (calendar-dst-find-data)))) |
3872 | 352 |
92552
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
353 |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
354 ;; Following options should be set based on conditions when the code |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
355 ;; is invoked, so are not suitable for dumping into loaddefs.el. They |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
356 ;; default to US Eastern time if time zone info is not available. |
3872 | 357 |
358 (calendar-current-time-zone) | |
359 | |
92552
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
360 (defcustom calendar-time-zone (or (car calendar-current-time-zone-cache) -300) |
92640
21bbfdf10ce1
(calendar-next-time-zone-transition, calendar-time-zone): Doc fixes.
Glenn Morris <rgm@gnu.org>
parents:
92581
diff
changeset
|
361 "Number of minutes difference between local standard time and UTC. |
92552
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
362 For example, -300 for New York City, -480 for Los Angeles." |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
363 :type 'integer |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
364 :group 'calendar-dst) |
3872 | 365 |
92552
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
366 (defcustom calendar-daylight-time-offset |
92914
83321455f486
(calendar-time-zone-daylight-rules): Simplify.
Glenn Morris <rgm@gnu.org>
parents:
92850
diff
changeset
|
367 (or (cadr calendar-current-time-zone-cache) 60) |
92552
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
368 "Number of minutes difference between daylight saving and standard time. |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
369 If the locale never uses daylight saving time, set this to 0." |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
370 :type 'integer |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
371 :group 'calendar-dst) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
38422
diff
changeset
|
372 |
92552
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
373 (defcustom calendar-standard-time-zone-name |
92914
83321455f486
(calendar-time-zone-daylight-rules): Simplify.
Glenn Morris <rgm@gnu.org>
parents:
92850
diff
changeset
|
374 (or (nth 2 calendar-current-time-zone-cache) "EST") |
92552
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
375 "Abbreviated name of standard time zone at `calendar-location-name'. |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
376 For example, \"EST\" in New York City, \"PST\" for Los Angeles." |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
377 :type 'string |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
378 :group 'calendar-dst) |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
379 |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
380 (defcustom calendar-daylight-time-zone-name |
92914
83321455f486
(calendar-time-zone-daylight-rules): Simplify.
Glenn Morris <rgm@gnu.org>
parents:
92850
diff
changeset
|
381 (or (nth 3 calendar-current-time-zone-cache) "EDT") |
92552
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
382 "Abbreviated name of daylight saving time zone at `calendar-location-name'. |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
383 For example, \"EDT\" in New York City, \"PDT\" for Los Angeles." |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
384 :type 'string |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
385 :group 'calendar-dst) |
3872 | 386 |
92552
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
387 (defcustom calendar-daylight-savings-starts-time |
92914
83321455f486
(calendar-time-zone-daylight-rules): Simplify.
Glenn Morris <rgm@gnu.org>
parents:
92850
diff
changeset
|
388 (or (nth 6 calendar-current-time-zone-cache) 120) |
92552
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
389 "Number of minutes after midnight that daylight saving time starts." |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
390 :type 'integer |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
391 :group 'calendar-dst) |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
392 |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
393 (defcustom calendar-daylight-savings-ends-time |
92914
83321455f486
(calendar-time-zone-daylight-rules): Simplify.
Glenn Morris <rgm@gnu.org>
parents:
92850
diff
changeset
|
394 (or (nth 7 calendar-current-time-zone-cache) |
92552
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
395 calendar-daylight-savings-starts-time) |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
396 "Number of minutes after midnight that daylight saving time ends." |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
397 :type 'integer |
19c69f1fd028
(calendar-dst): New custom group.
Glenn Morris <rgm@gnu.org>
parents:
79703
diff
changeset
|
398 :group 'calendar-dst) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
38422
diff
changeset
|
399 |
73875
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
400 |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
401 (defun calendar-dst-starts (year) |
76476
3878691bdbb7
Change "daylight savings time" -> "daylight saving time" throughout.
Chong Yidong <cyd@stupidchicken.com>
parents:
75346
diff
changeset
|
402 "Return the date of YEAR on which daylight saving time starts. |
73875
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
403 This function respects the value of `calendar-dst-check-each-year-flag'." |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
404 (or (let ((expr (if calendar-dst-check-each-year-flag |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
405 (cadr (calendar-dst-find-startend year)) |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
406 (nth 4 calendar-current-time-zone-cache)))) |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
407 (if expr (eval expr))) |
92850 | 408 ;; New US rules commencing 2007. ftp://elsie.nci.nih.gov/pub/. |
73875
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
409 (and (not (zerop calendar-daylight-time-offset)) |
74870
06cc5e77c85a
(calendar-dst-starts): Default to second Sunday in March.
Richard M. Stallman <rms@gnu.org>
parents:
73894
diff
changeset
|
410 (calendar-nth-named-day 2 0 3 year)))) |
73875
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
411 |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
412 (defun calendar-dst-ends (year) |
76476
3878691bdbb7
Change "daylight savings time" -> "daylight saving time" throughout.
Chong Yidong <cyd@stupidchicken.com>
parents:
75346
diff
changeset
|
413 "Return the date of YEAR on which daylight saving time ends. |
73875
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
414 This function respects the value of `calendar-dst-check-each-year-flag'." |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
415 (or (let ((expr (if calendar-dst-check-each-year-flag |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
416 (nth 2 (calendar-dst-find-startend year)) |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
417 (nth 5 calendar-current-time-zone-cache)))) |
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
418 (if expr (eval expr))) |
92850 | 419 ;; New US rules commencing 2007. ftp://elsie.nci.nih.gov/pub/. |
73875
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
420 (and (not (zerop calendar-daylight-time-offset)) |
74870
06cc5e77c85a
(calendar-dst-starts): Default to second Sunday in March.
Richard M. Stallman <rms@gnu.org>
parents:
73894
diff
changeset
|
421 (calendar-nth-named-day 1 0 11 year)))) |
73875
be323d585de0
Do not assume DST starts/ends on the same date in every year.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
422 |
93991
09c830b8981d
(calendar-dst-check-each-year-flag): Fix custom group.
Glenn Morris <rgm@gnu.org>
parents:
93809
diff
changeset
|
423 ;; used by calc, solar. |
13049
fac816f95bd8
Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7749
diff
changeset
|
424 (defun dst-in-effect (date) |
76476
3878691bdbb7
Change "daylight savings time" -> "daylight saving time" throughout.
Chong Yidong <cyd@stupidchicken.com>
parents:
75346
diff
changeset
|
425 "True if on absolute DATE daylight saving time is in effect. |
13686
6e3b9c9595eb
Fixed dst-in-effect for southern hemisphere. Also made doc string clearer.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13049
diff
changeset
|
426 Fractional part of DATE is local standard time of day." |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93737
diff
changeset
|
427 (let* ((year (calendar-extract-year |
13049
fac816f95bd8
Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7749
diff
changeset
|
428 (calendar-gregorian-from-absolute (floor date)))) |
13686
6e3b9c9595eb
Fixed dst-in-effect for southern hemisphere. Also made doc string clearer.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13049
diff
changeset
|
429 (dst-starts-gregorian (eval calendar-daylight-savings-starts)) |
6e3b9c9595eb
Fixed dst-in-effect for southern hemisphere. Also made doc string clearer.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13049
diff
changeset
|
430 (dst-ends-gregorian (eval calendar-daylight-savings-ends)) |
6e3b9c9595eb
Fixed dst-in-effect for southern hemisphere. Also made doc string clearer.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13049
diff
changeset
|
431 (dst-starts (and dst-starts-gregorian |
13049
fac816f95bd8
Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7749
diff
changeset
|
432 (+ (calendar-absolute-from-gregorian |
13686
6e3b9c9595eb
Fixed dst-in-effect for southern hemisphere. Also made doc string clearer.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13049
diff
changeset
|
433 dst-starts-gregorian) |
13049
fac816f95bd8
Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7749
diff
changeset
|
434 (/ calendar-daylight-savings-starts-time |
fac816f95bd8
Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7749
diff
changeset
|
435 60.0 24.0)))) |
13686
6e3b9c9595eb
Fixed dst-in-effect for southern hemisphere. Also made doc string clearer.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13049
diff
changeset
|
436 (dst-ends (and dst-ends-gregorian |
13049
fac816f95bd8
Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7749
diff
changeset
|
437 (+ (calendar-absolute-from-gregorian |
13686
6e3b9c9595eb
Fixed dst-in-effect for southern hemisphere. Also made doc string clearer.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13049
diff
changeset
|
438 dst-ends-gregorian) |
13049
fac816f95bd8
Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7749
diff
changeset
|
439 (/ (- calendar-daylight-savings-ends-time |
fac816f95bd8
Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7749
diff
changeset
|
440 calendar-daylight-time-offset) |
fac816f95bd8
Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7749
diff
changeset
|
441 60.0 24.0))))) |
13686
6e3b9c9595eb
Fixed dst-in-effect for southern hemisphere. Also made doc string clearer.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13049
diff
changeset
|
442 (and dst-starts dst-ends |
6e3b9c9595eb
Fixed dst-in-effect for southern hemisphere. Also made doc string clearer.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13049
diff
changeset
|
443 (if (< dst-starts dst-ends) |
6e3b9c9595eb
Fixed dst-in-effect for southern hemisphere. Also made doc string clearer.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13049
diff
changeset
|
444 (and (<= dst-starts date) (< date dst-ends)) |
6e3b9c9595eb
Fixed dst-in-effect for southern hemisphere. Also made doc string clearer.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13049
diff
changeset
|
445 (or (<= dst-starts date) (< date dst-ends)))))) |
13049
fac816f95bd8
Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7749
diff
changeset
|
446 |
93991
09c830b8981d
(calendar-dst-check-each-year-flag): Fix custom group.
Glenn Morris <rgm@gnu.org>
parents:
93809
diff
changeset
|
447 ;; used by calc, lunar, solar. |
13049
fac816f95bd8
Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7749
diff
changeset
|
448 (defun dst-adjust-time (date time &optional style) |
fac816f95bd8
Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7749
diff
changeset
|
449 "Adjust, to account for dst on DATE, decimal fraction standard TIME. |
fac816f95bd8
Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7749
diff
changeset
|
450 Returns a list (date adj-time zone) where `date' and `adj-time' are the values |
fac816f95bd8
Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7749
diff
changeset
|
451 adjusted for `zone'; here `date' is a list (month day year), `adj-time' is a |
fac816f95bd8
Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7749
diff
changeset
|
452 decimal fraction time, and `zone' is a string. |
fac816f95bd8
Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7749
diff
changeset
|
453 |
fac816f95bd8
Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7749
diff
changeset
|
454 Optional parameter STYLE forces the result time to be standard time when its |
76476
3878691bdbb7
Change "daylight savings time" -> "daylight saving time" throughout.
Chong Yidong <cyd@stupidchicken.com>
parents:
75346
diff
changeset
|
455 value is 'standard and daylight saving time (if available) when its value is |
13049
fac816f95bd8
Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7749
diff
changeset
|
456 'daylight. |
fac816f95bd8
Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7749
diff
changeset
|
457 |
76476
3878691bdbb7
Change "daylight savings time" -> "daylight saving time" throughout.
Chong Yidong <cyd@stupidchicken.com>
parents:
75346
diff
changeset
|
458 Conversion to daylight saving time is done according to |
13049
fac816f95bd8
Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7749
diff
changeset
|
459 `calendar-daylight-savings-starts', `calendar-daylight-savings-ends', |
fac816f95bd8
Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7749
diff
changeset
|
460 `calendar-daylight-savings-starts-time', |
93222 | 461 `calendar-daylight-savings-ends-time', and `calendar-daylight-time-offset'." |
13049
fac816f95bd8
Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7749
diff
changeset
|
462 (let* ((rounded-abs-date (+ (calendar-absolute-from-gregorian date) |
92850 | 463 (/ (round (* 60 time)) 60.0 24.0))) |
13049
fac816f95bd8
Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7749
diff
changeset
|
464 (dst (dst-in-effect rounded-abs-date)) |
92850 | 465 (time-zone (if dst |
466 calendar-daylight-time-zone-name | |
467 calendar-standard-time-zone-name)) | |
468 (time (+ rounded-abs-date | |
13049
fac816f95bd8
Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7749
diff
changeset
|
469 (if dst (/ calendar-daylight-time-offset 24.0 60.0) 0)))) |
fac816f95bd8
Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7749
diff
changeset
|
470 (list (calendar-gregorian-from-absolute (truncate time)) |
fac816f95bd8
Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7749
diff
changeset
|
471 (* 24.0 (- time (truncate time))) |
fac816f95bd8
Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7749
diff
changeset
|
472 time-zone))) |
fac816f95bd8
Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7749
diff
changeset
|
473 |
3872 | 474 (provide 'cal-dst) |
475 | |
92581 | 476 ;; arch-tag: a141d204-213c-4ca5-bdc6-f9df3aa92aad |
3872 | 477 ;;; cal-dst.el ends here |