;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:53:06 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/timezone.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 "`timezone.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@217 *Time differentials of timezone from GMT in +-HHMM form. This list is obsolescent, and is present only for backwards compatibility, because time zone names are ambiguous in practice. Use `current-time-zone' instead. (defvar timezone-world-timezones '(("PST" . -800) ("PDT" . -700) ("MST" . -700) ("MDT" . -600) ("CST" . -600) ("CDT" . -500) ("EST" . -500) ("EDT" . -400) ("AST" . -400) ("NST" . -330) ("UT" . 0) ("GMT" . 0) ("BST" . 100) ("MET" . 100) ("EET" . 200) ("JST" . 900) ("GMT+1" . 100) ("GMT+2" . 200) ("GMT+3" . 300) ("GMT+4" . 400) ("GMT+5" . 500) ("GMT+6" . 600) ("GMT+7" . 700) ("GMT+8" . 800) ("GMT+9" . 900) ("GMT+10" . 1000) ("GMT+11" . 1100) ("GMT+12" . 1200) ("GMT+13" . 1300) ("GMT-1" . -100) ("GMT-2" . -200) ("GMT-3" . -300) ("GMT-4" . -400) ("GMT-5" . -500) ("GMT-6" . -600) ("GMT-7" . -700) ("GMT-8" . -800) ("GMT-9" . -900) ("GMT-10" . -1000) ("GMT-11" . -1100) ("GMT-12" . -1200)) (#$ . -619)) #@75 Alist of first three letters of a month and its numerical representation. (defvar timezone-months-assoc '(("JAN" . 1) ("FEB" . 2) ("MAR" . 3) ("APR" . 4) ("MAY" . 5) ("JUN" . 6) ("JUL" . 7) ("AUG" . 8) ("SEP" . 9) ("OCT" . 10) ("NOV" . 11) ("DEC" . 12)) (#$ . 1545)) #@260 Convert DATE to an arpanet standard date. Optional 2nd argument LOCAL specifies the default local timezone of the DATE; if nil, GMT is assumed. Optional 3rd argument TIMEZONE specifies a time zone to be represented in; if nil, the local time zone is assumed. (defalias 'timezone-make-date-arpa-standard #[(date &optional local timezone) "\304 \n#\305 \306H \307H \310H\311 \312H \313H \314H# \315H%)\207" [date local timezone new timezone-fix-time timezone-make-arpa-date 0 1 2 timezone-make-time-string 3 4 5 6] 9 (#$ . 1819)]) #@257 Convert DATE to a sortable date string. Optional 2nd argument LOCAL specifies the default local timezone of the DATE; if nil, GMT is assumed. Optional 3rd argument TIMEZONE specifies a timezone to be represented in; if nil, the local time zone is assumed. (defalias 'timezone-make-date-sortable #[(date &optional local timezone) "\304 \n#\305 \306H \307H \310H\311 \312H \313H \314H#$)\207" [date local timezone new timezone-fix-time timezone-make-sortable-date 0 1 2 timezone-make-time-string 3 4 5] 9 (#$ . 2357)]) #@118 Make arpanet standard date string from YEAR, MONTH, DAY, and TIME. Optional argument TIMEZONE specifies a time zone. (defalias 'timezone-make-arpa-date #[(year month day time &optional timezone) "<\203.\306!\211\307W\203 [\202 \310\311 \307W\203\"\312\202#\313\n\314\245\n\314\246$*\202/\310\315\f\316\317 \"@! &)\207" [timezone m absm zone day month timezone-zone-to-minute 0 format "%c%02d%02d" 45 43 60 "%02d %s %04d %s %s" capitalize rassq timezone-months-assoc year time] 8 (#$ . 2883)]) #@60 Make sortable date string from YEAR, MONTH, DAY, and TIME. (defalias 'timezone-make-sortable-date #[(year month day time) "\304\305 \n %\207" [year month day time format "%4d%02d%02d%s"] 6 (#$ . 3403)]) #@49 Make time string from HOUR, MINUTE, and SECOND. (defalias 'timezone-make-time-string #[(hour minute second) "\303\304 \n$\207" [hour minute second format "%02d:%02d:%02d"] 5 (#$ . 3613)]) #@572 Parse DATE and return a vector [YEAR MONTH DAY TIME TIMEZONE]. Two-digit dates are `windowed'. Those <69 have 2000 added; otherwise 1900 is added. Three-digit dates have 1900 added. TIMEZONE is nil for DATEs without a zone field. Understands the following styles: (1) 14 Apr 89 03:20[:12] [GMT] (2) Fri, 17 Mar 89 4:01[:33] [GMT] (3) Mon Jan 16 16:12[:37] [GMT] 1989 (4) 6 May 1992 1641-JST (Wednesday) (5) 22-AUG-1993 10:59:12.82 (6) Thu, 11 Apr 16:17:12 91 [MET] (7) Mon, 6 Jul 16:47:20 T 1992 [MET] (8) 1996-06-24 21:13:12 [GMT] (9) 1996-06-24 21:13-ZONE (defalias 'timezone-parse-date #[(date) ";\203#\306\307\"\204\310\307\"\203#\311!\211\203#\312\307G\313$\210\206(\314\313\211\211\211\211\315\316\"\203G\317\320\321\322\323\202 \315\324\"\203[\317\320\321\322\313\202 \315\325\"\203o\326\317\320\322\313\202 \315\327\"\203\203\326\317\320\322\330\202 \315\331\"\203\227\322\321\320\317\313\202 \315\332\"\203\253\323\321\320\317\322\202 \315\333\"\203\277\317\320\321\322\323\202 \315\334\"\203\323\317\320\321\322\326\202 \315\335\"\203\347\317\320\321\322\313\202 \315\336\"\203\373\321\320\317\322\323\202 \315\337\"\203\321\320\317\322\323\202 \315\340\"\203 \321\320\317\322\313 \203\207\341 \"\211G\322W\203I\342 !\211+\343W\203A+\344\\+\345+\346\\!)\f\224\320\\H\347U\203_\f\224\f\224\320\\O\202|\f\224\f\224\317\\O,\350,\226-\"A\211.\205{\345.!*\341 \"\341\n\" \203\220\341 \" \203\242\f\203\242\351 \f \n %\202\251\351\352\211\211\211\313%.\207" [date zone time day month year text-properties-at 0 next-property-change copy-sequence set-text-properties nil "" string-match "\\([0-9]+\\)[ ]+\\([^ ,]+\\)[ ]+\\([0-9]+\\)[ ]+\\([0-9]+:[0-9:]+\\)[ ]*\\([-+a-zA-Z0-9]+\\)" 3 2 1 4 5 "\\([0-9]+\\)[ ]+\\([^ ,]+\\)[ ]+\\([0-9]+\\)[ ]+\\([0-9]+:[0-9:]+\\)[ ]*\\'" "\\([^ ,]+\\),[ ]+\\([0-9]+\\)[ ]+\\([^ ,]+\\)[ ]+\\([0-9]+:[0-9:]+\\)[ ]+\\(T[ ]+\\|\\)\\([0-9]+\\)[ ]*\\'" 6 "\\([^ ,]+\\),[ ]+\\([0-9]+\\)[ ]+\\([^ ,]+\\)[ ]+\\([0-9]+:[0-9:]+\\)[ ]+\\(T[ ]+\\|\\)\\([0-9]+\\)[ ]*\\([-+a-zA-Z0-9]+\\)" 7 "\\([^ ,]+\\)[ ]+\\([0-9]+\\)[ ]+\\([0-9]+:[0-9:]+\\)[ ]+\\([0-9]+\\)" "\\([^ ,]+\\)[ ]+\\([0-9]+\\)[ ]+\\([0-9]+:[0-9:]+\\)[ ]+\\([-+a-zA-Z0-9]+\\)[ ]+\\([0-9]+\\)" "\\([0-9]+\\)[ ]+\\([^ ,]+\\)[ ]+\\([0-9]+\\)[ ]+\\([0-9]+\\)[ ]*\\([-+a-zA-Z0-9]+\\)" "\\([0-9]+\\)-\\([A-Za-z]+\\)-\\([0-9]+\\)[ ]+\\([0-9]+:[0-9]+:[0-9]+\\)\\(\\.[0-9]+\\)?[ ]+\\([-+a-zA-Z0-9]+\\)" "\\([0-9]+\\)-\\([A-Za-z]+\\)-\\([0-9]+\\)[ ]+\\([0-9]+:[0-9]+:[0-9]+\\)\\(\\.[0-9]+\\)?" "\\([0-9]+\\)-\\([0-9]+\\)-\\([0-9]+\\)[ ]+\\([0-9]+:[0-9]+:[0-9]+\\)[ ]+\\([-+a-zA-Z0-9]+\\)" "\\([0-9]+\\)-\\([0-9]+\\)-\\([0-9]+\\)[ ]+\\([0-9]+:[0-9]+\\)[ ]+\\([-+a-zA-Z0-9:]+\\)" "\\([0-9]+\\)-\\([0-9]+\\)-\\([0-9]+\\)[ ]+\\([0-9]+:[0-9]+:[0-9]+\\)" match-string string-to-int 69 100 int-to-string 1900 45 assoc vector "0" y string timezone-months-assoc monthnum] 7 (#$ . 3809)]) #@106 Parse TIME (HH:MM:SS) and return a vector [hour minute second]. Recognize HH:MM:SS, HH:MM, HHMMSS, HHMM. (defalias 'timezone-parse-time #[(time) "\206\304\305\211\211\306\307\"\203\310\311\312\202I\306\313\"\203,\310\311\305\202I\306\314\"\203<\310\311\312\202I\306\315\"\203I\310\311\305\316 \203U\317 \"\202V\320\n\203a\317\n\"\202b\320 \203m\317 \"\202n\320#,\207" [time second minute hour "" nil string-match "\\`\\([0-9]+\\):\\([0-9]+\\):\\([0-9]+\\)\\'" 1 2 3 "\\`\\([0-9]+\\):\\([0-9]+\\)\\'" "\\`\\([0-9][0-9]\\)\\([0-9][0-9]\\)\\([0-9][0-9]\\)\\'" "\\`\\([0-9][0-9]\\)\\([0-9][0-9]\\)\\'" vector match-string "0"] 6 (#$ . 6879)]) #@185 Translate TIMEZONE to an integer minute offset from GMT. TIMEZONE can be a cons cell containing the output of current-time-zone, or an integer of the form +-HHMM, or a time zone name. (defalias 'timezone-zone-to-minute #[(timezone) ":\203\n@\304\245\207\203>\305\226 \"A\206\211;\203\"\306!\307!\211\310\245\304_\n\310\246\\\311W\203; [\202< *\207\311\207" [timezone timezone-world-timezones abszone minutes 60 assoc string-to-int abs 100 0] 4 (#$ . 7565)]) #@279 Compute the UTC time equivalent to DATE at time SECONDS after midnight. Return a list suitable as an argument to current-time-zone, or nil if the date cannot be thus represented. DATE is the number of days elapsed since the (imaginary) Gregorian date Sunday, December 31, 1 BC. (defalias 'timezone-time-from-absolute #[(date seconds) "\306 Z\307\310!\f\n _\\\307\311!\312\f \245!\211 _\312\fZ!\313\f\\Z!\314W\205; B.\207" [current-time-origin date days seconds-per-day seconds current-time-arithmetic-base 719163 float 86400 65536 floor abs 2 hi hibase lo] 5 (#$ . 8049)]) #@286 Compute the local time zone for DATE at time SECONDS after midnight. Return a list in the same format as current-time-zone's result, or nil if the local time zone could not be computed. DATE is the number of days elapsed since the (imaginary) Gregorian date Sunday, December 31, 1 BC. (defalias 'timezone-time-zone-from-absolute #[(date seconds) "\304\305!\205\306 \"\211\205\305\n!\211@\205 ))\207" [date seconds utc-time zone fboundp current-time-zone timezone-time-from-absolute] 4 (#$ . 8652)]) #@162 Convert DATE (default timezone LOCAL) to YYYY-MM-DD-HH-MM-SS-ZONE vector. If LOCAL is nil, it is assumed to be GMT. If TIMEZONE is nil, use the local time zone. (defalias 'timezone-fix-time #[(date local timezone) "\306!\307\310H!\211\311W\203 \312\\\202/ \313W\203\" \314\\\202/ \315W\203. \314\\\202/ \307\316H!\307\317H!\320\321H!\307\f\310H!\307\f\316H!\307\f\317H!\322H\206^\206w\323\324\n # \325_\\\325_\\\"\326!\326!Z  \\\327\325\"! !\\!\325_Z\330 X\203\311 \330Z T\331\n \" W\203\357\nT\316\332\nW\203\357\316 T\202\357\310 V\203\357 \330\\ S\316 V\203\357\nS\316\nV\203\352\332 S\331\n \"\333 \n &.\207" [date year month day time hour timezone-parse-date string-to-int 0 69 2000 100 1900 1000 1 2 timezone-parse-time 3 4 timezone-time-zone-from-absolute timezone-absolute-from-gregorian 60 timezone-zone-to-minute floor 24 timezone-last-day-of-month 12 vector minute second local timezone diff hour-fix] 9 (#$ . 9167)]) #@36 The last day in MONTH during YEAR. (defalias 'timezone-last-day-of-month #[(month year) "\302U\203\303 !\203\304\207\305SH\207" [month year 2 timezone-leap-year-p 29 [31 28 31 30 31 30 31 31 30 31 30 31]] 2 (#$ . 10189)]) #@45 Returns t if YEAR is a Gregorian leap year. (defalias 'timezone-leap-year-p #[(year) "\301\302\246!\203\301\303\246!?\206\301\304\246!\207" [year zerop 4 100 400] 3 (#$ . 10423)]) #@67 Return the day number within the year of the date month/day/year. (defalias 'timezone-day-number #[(month day year) " S\304_\\ \305V\203 \n \306_\307\\\310\245Z\311 !\203 \nT\n)\207" [day month day-of-year year 31 2 4 23 10 timezone-leap-year-p] 3 (#$ . 10616)]) #@137 The number of days between the Gregorian date 12/31/1 BC and month/day/year. The Gregorian date Sunday, December 31, 1 BC is imaginary. (defalias 'timezone-absolute-from-gregorian #[(month day year) "\303 \n#\nS\304_\\\nS\305\245\\\nS\306\245[\\\nS\307\245\\\207" [month day year timezone-day-number 365 4 100 400] 4 (#$ . 10892)]) (provide 'timezone)