annotate lisp/calendar/time-date.el @ 65934:f9fb6f17633c

*** empty log message ***
author Richard M. Stallman <rms@gnu.org>
date Sun, 09 Oct 2005 02:08:54 +0000
parents 4f45bcb69451
children a55ee709ec8d aa89c814f853
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
61260
ae865a366a88 Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-230
Miles Bader <miles@gnu.org>
parents: 60847
diff changeset
1 ;;; time-date.el --- Date and time handling functions
61424
ad05d91d3598 Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-243
Miles Bader <miles@gnu.org>
parents: 61260
diff changeset
2 ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2004, 2005
ad05d91d3598 Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-243
Miles Bader <miles@gnu.org>
parents: 61260
diff changeset
3 ;; Free Software Foundation, Inc.
43049
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
4
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
5 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
6 ;; Masanobu Umeda <umerin@mse.kyutech.ac.jp>
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
7 ;; Keywords: mail news util
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
8
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
9 ;; This file is part of GNU Emacs.
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
10
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
12 ;; it under the terms of the GNU General Public License as published by
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
13 ;; the Free Software Foundation; either version 2, or (at your option)
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
14 ;; any later version.
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
15
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
16 ;; GNU Emacs is distributed in the hope that it will be useful,
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
19 ;; GNU General Public License for more details.
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
20
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
21 ;; You should have received a copy of the GNU General Public License
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
64085
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 61424
diff changeset
23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 61424
diff changeset
24 ;; Boston, MA 02110-1301, USA.
43049
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
25
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
26 ;;; Commentary:
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
27
60847
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
28 ;; Time values come in three formats. The oldest format is a cons
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
29 ;; cell of the form (HIGH . LOW). This format is obsolete, but still
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
30 ;; supported. The two other formats are the lists (HIGH LOW) and
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
31 ;; (HIGH LOW MICRO). The first two formats specify HIGH * 2^16 + LOW
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
32 ;; seconds; the third format specifies HIGH * 2^16 + LOW + MICRO /
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
33 ;; 1000000 seconds. We should have 0 <= MICRO < 1000000 and 0 <= LOW
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
34 ;; < 2^16. If the time value represents a point in time, then HIGH is
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
35 ;; nonnegative. If the time value is a time difference, then HIGH can
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
36 ;; be negative as well. The macro `with-decoded-time-value' and the
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
37 ;; function `encode-time-value' make it easier to deal with these
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
38 ;; three formats. See `time-subtract' for an example of how to use
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
39 ;; them.
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
40
43049
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
41 ;;; Code:
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
42
60847
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
43 (defmacro with-decoded-time-value (varlist &rest body)
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
44 "Decode a time value and bind it according to VARLIST, then eval BODY.
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
45
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
46 The value of the last form in BODY is returned.
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
47
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
48 Each element of the list VARLIST is a list of the form
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
49 \(HIGH-SYMBOL LOW-SYMBOL MICRO-SYMBOL [TYPE-SYMBOL] TIME-VALUE).
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
50 The time value TIME-VALUE is decoded and the result it bound to
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
51 the symbols HIGH-SYMBOL, LOW-SYMBOL and MICRO-SYMBOL.
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
52
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
53 The optional TYPE-SYMBOL is bound to the type of the time value.
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
54 Type 0 is the cons cell (HIGH . LOW), type 1 is the list (HIGH
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
55 LOW), and type 3 is the list (HIGH LOW MICRO)."
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
56 (declare (indent 1)
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
57 (debug ((&rest (symbolp symbolp symbolp &or [symbolp form] form))
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
58 body)))
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
59 (if varlist
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
60 (let* ((elt (pop varlist))
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
61 (high (pop elt))
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
62 (low (pop elt))
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
63 (micro (pop elt))
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
64 (type (unless (eq (length elt) 1)
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
65 (pop elt)))
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
66 (time-value (car elt))
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
67 (gensym (make-symbol "time")))
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
68 `(let* ,(append `((,gensym ,time-value)
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
69 (,high (pop ,gensym))
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
70 ,low ,micro)
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
71 (when type `(,type)))
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
72 (if (consp ,gensym)
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
73 (progn
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
74 (setq ,low (pop ,gensym))
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
75 (if ,gensym
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
76 ,(append `(setq ,micro (car ,gensym))
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
77 (when type `(,type 2)))
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
78 ,(append `(setq ,micro 0)
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
79 (when type `(,type 1)))))
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
80 ,(append `(setq ,low ,gensym ,micro 0)
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
81 (when type `(,type 0))))
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
82 (with-decoded-time-value ,varlist ,@body)))
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
83 `(progn ,@body)))
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
84
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
85 (defun encode-time-value (high low micro type)
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
86 "Encode HIGH, LOW, and MICRO into a time value of type TYPE.
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
87 Type 0 is the cons cell (HIGH . LOW), type 1 is the list (HIGH LOW),
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
88 and type 3 is the list (HIGH LOW MICRO)."
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
89 (cond
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
90 ((eq type 0) (cons high low))
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
91 ((eq type 1) (list high low))
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
92 ((eq type 2) (list high low micro))))
43049
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
93
65824
4f45bcb69451 Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-572
Miles Bader <miles@gnu.org>
parents: 64085
diff changeset
94 (autoload 'parse-time-string "parse-time")
43049
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
95 (autoload 'timezone-make-date-arpa-standard "timezone")
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
96
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
97 ;;;###autoload
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
98 (defun date-to-time (date)
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
99 "Parse a string that represents a date-time and return a time value."
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
100 (condition-case ()
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
101 (apply 'encode-time
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
102 (parse-time-string
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
103 ;; `parse-time-string' isn't sufficiently general or
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
104 ;; robust. It fails to grok some of the formats that
56927
55fd4f77387a Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents: 56797
diff changeset
105 ;; timezone does (e.g. dodgy post-2000 stuff from some
43049
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
106 ;; Elms) and either fails or returns bogus values. Lars
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
107 ;; reverted this change, but that loses non-trivially
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
108 ;; often for me. -- fx
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
109 (timezone-make-date-arpa-standard date)))
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
110 (error (error "Invalid date: %s" date))))
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
111
56797
2383026ff0d9 (time-to-seconds): Add autoload cookies.
Masatake YAMATO <jet@gyve.org>
parents: 55002
diff changeset
112 ;;;###autoload
43049
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
113 (defun time-to-seconds (time)
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
114 "Convert time value TIME to a floating point number.
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
115 You can use `float-time' instead."
60847
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
116 (with-decoded-time-value ((high low micro time))
61424
ad05d91d3598 Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-243
Miles Bader <miles@gnu.org>
parents: 61260
diff changeset
117 (+ (* 1.0 high 65536)
60847
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
118 low
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
119 (/ micro 1000000.0))))
43049
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
120
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
121 ;;;###autoload
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
122 (defun seconds-to-time (seconds)
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
123 "Convert SECONDS (a floating point number) to a time value."
61424
ad05d91d3598 Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-243
Miles Bader <miles@gnu.org>
parents: 61260
diff changeset
124 (list (floor seconds 65536)
ad05d91d3598 Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-243
Miles Bader <miles@gnu.org>
parents: 61260
diff changeset
125 (floor (mod seconds 65536))
43049
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
126 (floor (* (- seconds (ffloor seconds)) 1000000))))
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
127
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
128 ;;;###autoload
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
129 (defun time-less-p (t1 t2)
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
130 "Say whether time value T1 is less than time value T2."
60847
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
131 (with-decoded-time-value ((high1 low1 micro1 t1)
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
132 (high2 low2 micro2 t2))
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
133 (or (< high1 high2)
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
134 (and (= high1 high2)
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
135 (or (< low1 low2)
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
136 (and (= low1 low2)
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
137 (< micro1 micro2)))))))
43049
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
138
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
139 ;;;###autoload
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
140 (defun days-to-time (days)
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
141 "Convert DAYS into a time value."
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
142 (let* ((seconds (* 1.0 days 60 60 24))
61424
ad05d91d3598 Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-243
Miles Bader <miles@gnu.org>
parents: 61260
diff changeset
143 (high (condition-case nil (floor (/ seconds 65536))
60847
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
144 (range-error most-positive-fixnum))))
61424
ad05d91d3598 Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-243
Miles Bader <miles@gnu.org>
parents: 61260
diff changeset
145 (list high (condition-case nil (floor (- seconds (* 1.0 high 65536)))
ad05d91d3598 Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-243
Miles Bader <miles@gnu.org>
parents: 61260
diff changeset
146 (range-error 65535)))))
43049
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
147
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
148 ;;;###autoload
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
149 (defun time-since (time)
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
150 "Return the time elapsed since TIME.
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
151 TIME should be either a time value or a date-time string."
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
152 (when (stringp time)
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
153 ;; Convert date strings to internal time.
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
154 (setq time (date-to-time time)))
60847
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
155 (time-subtract (current-time) time))
43049
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
156
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
157 ;;;###autoload
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
158 (defalias 'subtract-time 'time-subtract)
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
159
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
160 ;;;###autoload
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
161 (defun time-subtract (t1 t2)
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
162 "Subtract two time values.
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
163 Return the difference in the format of a time value."
60847
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
164 (with-decoded-time-value ((high low micro type t1)
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
165 (high2 low2 micro2 type2 t2))
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
166 (setq high (- high high2)
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
167 low (- low low2)
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
168 micro (- micro micro2)
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
169 type (max type type2))
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
170 (when (< micro 0)
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
171 (setq low (1- low)
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
172 micro (+ micro 1000000)))
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
173 (when (< low 0)
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
174 (setq high (1- high)
61424
ad05d91d3598 Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-243
Miles Bader <miles@gnu.org>
parents: 61260
diff changeset
175 low (+ low 65536)))
60847
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
176 (encode-time-value high low micro type)))
43049
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
177
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
178 ;;;###autoload
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
179 (defun time-add (t1 t2)
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
180 "Add two time values. One should represent a time difference."
60847
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
181 (with-decoded-time-value ((high low micro type t1)
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
182 (high2 low2 micro2 type2 t2))
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
183 (setq high (+ high high2)
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
184 low (+ low low2)
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
185 micro (+ micro micro2)
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
186 type (max type type2))
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
187 (when (>= micro 1000000)
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
188 (setq low (1+ low)
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
189 micro (- micro 1000000)))
61424
ad05d91d3598 Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-243
Miles Bader <miles@gnu.org>
parents: 61260
diff changeset
190 (when (>= low 65536)
60847
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
191 (setq high (1+ high)
61424
ad05d91d3598 Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-243
Miles Bader <miles@gnu.org>
parents: 61260
diff changeset
192 low (- low 65536)))
60847
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
193 (encode-time-value high low micro type)))
43049
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
194
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
195 ;;;###autoload
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
196 (defun date-to-day (date)
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
197 "Return the number of days between year 1 and DATE.
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
198 DATE should be a date-time string."
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
199 (time-to-days (date-to-time date)))
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
200
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
201 ;;;###autoload
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
202 (defun days-between (date1 date2)
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
203 "Return the number of days between DATE1 and DATE2.
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
204 DATE1 and DATE2 should be date-time strings."
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
205 (- (date-to-day date1) (date-to-day date2)))
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
206
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
207 ;;;###autoload
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
208 (defun date-leap-year-p (year)
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
209 "Return t if YEAR is a leap year."
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
210 (or (and (zerop (% year 4))
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
211 (not (zerop (% year 100))))
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
212 (zerop (% year 400))))
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
213
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
214 ;;;###autoload
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
215 (defun time-to-day-in-year (time)
55002
8e406d7e53be (time-to-day-in-year): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 52401
diff changeset
216 "Return the day number within the year corresponding to TIME."
43049
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
217 (let* ((tim (decode-time time))
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
218 (month (nth 4 tim))
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
219 (day (nth 3 tim))
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
220 (year (nth 5 tim))
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
221 (day-of-year (+ day (* 31 (1- month)))))
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
222 (when (> month 2)
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
223 (setq day-of-year (- day-of-year (/ (+ 23 (* 4 month)) 10)))
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
224 (when (date-leap-year-p year)
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
225 (setq day-of-year (1+ day-of-year))))
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
226 day-of-year))
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
227
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
228 ;;;###autoload
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
229 (defun time-to-days (time)
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
230 "The number of days between the Gregorian date 0001-12-31bce and TIME.
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
231 TIME should be a time value.
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
232 The Gregorian date Sunday, December 31, 1bce is imaginary."
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
233 (let* ((tim (decode-time time))
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
234 (month (nth 4 tim))
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
235 (day (nth 3 tim))
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
236 (year (nth 5 tim)))
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
237 (+ (time-to-day-in-year time) ; Days this year
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
238 (* 365 (1- year)) ; + Days in prior years
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
239 (/ (1- year) 4) ; + Julian leap years
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
240 (- (/ (1- year) 100)) ; - century years
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
241 (/ (1- year) 400)))) ; + Gregorian leap years
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
242
56927
55fd4f77387a Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents: 56797
diff changeset
243 (defun time-to-number-of-days (time)
55fd4f77387a Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents: 56797
diff changeset
244 "Return the number of days represented by TIME.
55fd4f77387a Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents: 56797
diff changeset
245 The number of days will be returned as a floating point number."
60847
608b5e008a8b Add comment on time value formats. Don't require parse-time.
Lute Kamstra <lute@gnu.org>
parents: 56927
diff changeset
246 (/ (time-to-seconds time) (* 60 60 24)))
56927
55fd4f77387a Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Miles Bader <miles@gnu.org>
parents: 56797
diff changeset
247
43049
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
248 ;;;###autoload
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
249 (defun safe-date-to-time (date)
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
250 "Parse a string that represents a date-time and return a time value.
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
251 If DATE is malformed, return a time value of zeros."
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
252 (condition-case ()
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
253 (date-to-time date)
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
254 (error '(0 0))))
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
255
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
256 (provide 'time-date)
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
257
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 43049
diff changeset
258 ;;; arch-tag: addcf07b-b20a-465b-af72-550b8ac5190f
43049
d94124a8eddf Moved time-date.el from lisp/gnus to lisp/calendar.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
259 ;;; time-date.el ends here