;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:46:16 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/gnus/time-date.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`time-date.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\"\207" [require parse-time autoload timezone-make-date-arpa-standard "timezone"] 3) #@25 Convert DATE into time. (defalias 'date-to-time #[(date) "\300\301\302\217\207" [nil (byte-code "\301\302\303\304!!\"\207" [date apply encode-time parse-time-string timezone-make-date-arpa-standard] 5) ((error (error "Invalid date: %s" date)))] 3 (#$ . 747)]) #@42 Convert TIME to a floating point number. (defalias 'time-to-seconds #[(time) "@\302_\211A@)\\\3038\206\304\305\245\\\207" [time x 65536.0 2 0 1000000.0] 4 (#$ . 1014)]) #@71 Convert SECONDS (a floating point number) to an Emacs time structure. (defalias 'seconds-to-time #[(seconds) "\301\302\"\301\303\302\"!\301\304!Z\305_!E\207" [seconds floor 65536 mod ffloor 1000000] 6 (#$ . 1195)]) #@43 Say whether time T1 is less than time T2. (defalias 'time-less-p #[(t1 t2) "@ @W\206@ @U\205A@ A@W\207" [t1 t2] 2 (#$ . 1420)]) #@25 Convert DAYS into time. (defalias 'days-to-time #[(days) "\304_\305_\306\307\310\"\311\312\313\217\211\311\314\315\217+D\207" [days seconds rest ms 1.0 86400 expt 2 16 nil (byte-code "\302 \245!\207" [seconds rest floor] 3) ((range-error (expt 2 16))) (byte-code "\303 \n_Z!\207" [seconds ms rest round] 4) ((range-error (expt 2 16)))] 5 (#$ . 1561)]) #@73 Return the time since TIME, which is either an internal time or a date. (defalias 'time-since #[(time) ";\203 \303!\304 \211A@A@W\205\305\306\307\" @\n\203%\310\202&\311\\@Z\n\206/\311 A@\\A@Z*D\207" [time current rest date-to-time current-time expt 2 16 -1 0] 4 (#$ . 1925)]) #@30 Subtract two internal times. (defalias 'subtract-time #[(t1 t2) "\211A@)\n\211A@)W@\n@Z \203\304\202\305Z \203%\306\202&\305\211A@)\\\n\211A@)Z)D\207" [t1 x t2 borrow 1 0 65536] 4 (#$ . 2222)]) #@52 Return the number of days between year 1 and DATE. (defalias 'date-to-day #[(date) "\301\302!!\207" [date time-to-days date-to-time] 3 (#$ . 2436)]) #@52 Return the number of days between DATE1 and DATE2. (defalias 'days-between #[(date1 date2) "\302!\302 !Z\207" [date1 date2 date-to-day] 3 (#$ . 2592)]) #@34 Return t if YEAR is a leap year. (defalias 'date-leap-year-p #[(year) "\301\302\246!\203\301\303\246!?\206\301\304\246!\207" [year zerop 4 100 400] 3 (#$ . 2751)]) #@67 Return the day number within the year of the date month/day/year. (defalias 'time-to-day-in-year #[(time) "\306!\307 8\310 8\311 8 \nS\312_\\\n\313V\2030 \n\307_\314\\\315\245Z\316\f!\2030 T -\207" [time tim month day year day-of-year decode-time 4 3 5 31 2 23 10 date-leap-year-p] 3 (#$ . 2928)]) #@130 The number of days between the Gregorian date 0001-12-31bce and TIME. The Gregorian date Sunday, December 31, 1bce is imaginary. (defalias 'time-to-days #[(time) "\305!\306 8\307 8\310 8\311!\fS\312_\\\fS\306\245\\\fS\313\245[\\\fS\314\245\\,\207" [time tim month day year decode-time 4 3 5 time-to-day-in-year 365 100 400] 3 (#$ . 3243)]) #@93 Parse DATE and return a time structure. If DATE is malformed, a zero time will be returned. (defalias 'safe-date-to-time #[(date) "\300\301\302\217\207" [nil (date-to-time date) ((error '(0 0)))] 3 (#$ . 3595)]) (provide 'time-date)