;;; compiled by jimb@geech.gnu.ai.mit.edu on Sat May 22 05:50:09 1993
;;; from file /gd/gnu/emacs/19.0/lisp/timezone.el
;;; emacs version 19.6.18.
;;; bytecomp version FSF 2.08
;;; optimization is on.

(provide (quote timezone))
(defvar timezone-world-timezones (quote (("PST" . -800) ("PDT" . -700) ("MST" . -700) ("MDT" . -600) ("CST" . -600) ("CDT" . -500) ("EST" . -500) ("EDT" . -400) ("AST" . -400) ("NST" . -330) ("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))) "\
*Time differentials of timezone from GMT in hour.")
(defvar timezone-months-assoc (quote (("JAN" . 1) ("FEB" . 2) ("MAR" . 3) ("APR" . 4) ("MAY" . 5) ("JUN" . 6) ("JUL" . 7) ("AUG" . 8) ("SEP" . 9) ("OCT" . 10) ("NOV" . 11) ("DEC" . 12))) "\
Alist of first three letters of a month and its numerical representation.")
(defalias 'timezone-make-date-arpa-standard #[(date &optional local timezone) "À	!Â	ÃH!Â	ÅH!Â	ÇH!É	ÊH!ÂÃH!ÂÅH!ÂÇH!	ÏH†? †H Ò!Ò!ZÔ\\&ÖÃHÅHÇH×ÊHÏHØH#%.‡" [timezone-parse-date date string-to-int 0 year 1 month 2 day timezone-parse-time 3 time hour minute second 4 local timezone timezone-zone-to-minute diff timezone-fix-time new timezone-make-arpa-date timezone-make-time-string 5] 9 "\
Convert DATE to an arpanet standard date.
Optional 1st argumetn LOCAL specifies the default local timezone of the DATE.
Optional 2nd argument TIMEZONE specifies a timezone to be represented in."])
(defalias 'timezone-make-date-sortable #[(date &optional local timezone) "À	!Â	ÃH!Â	ÅH!Â	ÇH!É	ÊH!ÂÃH!ÂÅH!ÂÇH!	ÏH†? †H Ò!Ò!ZÔ\\&ÖÃHÅHÇH×ÊHÏHØH#$.‡" [timezone-parse-date date string-to-int 0 year 1 month 2 day timezone-parse-time 3 time hour minute second 4 local timezone timezone-zone-to-minute diff timezone-fix-time new timezone-make-sortable-date timezone-make-time-string 5] 9 "\
Convert DATE to a sortable date string.
Optional 1st argumetn LOCAL specifies the default local timezone of the DATE.
Optional 2nd argument TIMEZONE specifies a timezone to be represented in."])
(defalias 'timezone-make-arpa-date #[(year month day time &optional timezone) "ÀÁ\nÃÄ\"@!ÈWƒ É\\‚ \nƒ) ÌP‚* Í&‡" [format "%02d %s %4d %s%s" day capitalize rassq month timezone-months-assoc year 100 1900 time timezone " " ""] 8 "\
Make arpanet standard date string from YEAR, MONTH, DAY, and TIME.
Optional argument TIMEZONE specifies a time zone."])
(defalias 'timezone-make-sortable-date #[(year month day time) "ÀÁ\nÃWƒ \nÄ\\‚ \n%‡" [format "%4d%02d%02d%s" year 100 1900 month day time] 6 "\
Make sortable date string from YEAR, MONTH, DAY, and TIME."])
(defalias 'timezone-make-time-string #[(hour minute second) "ÀÁ\n$‡" [format "%02d:%02d:%02d" hour minute second] 5 "\
Make time string from HOUR, MINUTE, and SECOND."])
(defalias 'timezone-parse-date #[(date) "† ÁÂ‰‰‰‰ÈÉ\"ƒ( ÊËÌÍÂ‚} ÈÎ\"ƒ> ÊËÌÍÏ‚} ÈÐ\"ƒT ÍÌËÊÂ‚} ÈÑ\"ƒj ÏÌËÊÍ‚} ÈÒ\"ƒ} ÊËÌÍÏƒÇ Ó!Ô!O‰GÍWƒž ÕÖÂOP×ØÙÓ!Ó!Ê\\O!\"A!Ó!Ô!OÓ!Ô!OƒÔ Ó!Ô!Oƒå Û%‚ì ÛÜ‰‰‰Â%.‡" [date "" nil zone time day month year string-match "\\([0-9]+\\)[ 	]+\\([^ 	,]+\\)[ 	]+\\([0-9]+\\)[ 	]+\\([0-9]+:[0-9:]+\\)[ 	]*\\'" 3 2 1 4 "\\([0-9]+\\)[ 	]+\\([^ 	,]+\\)[ 	]+\\([0-9]+\\)[ 	]+\\([0-9]+:[0-9:]+\\)[ 	]*\\([-+a-zA-Z0-9]+\\)" 5 "\\([^ 	,]+\\)[ 	]+\\([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]+\\)" match-beginning match-end "19" -2 int-to-string assoc upcase timezone-months-assoc vector "0"] 8 "\
Parse DATE and return a vector [year month day time timezone].
19 is prepended to year if necessary. Timezone may be NIL if nothing.
Understand 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)"])
(defalias 'timezone-parse-time #[(time) "† ÁÂ‰‰ÆÇ\"ƒ ÈÉÊ‚I ÆË\"ƒ, ÈÉÂ‚I ÆÌ\"ƒ< ÈÉÊ‚I ÆÍ\"ƒI ÈÉÂÎƒY Ï!Ð!O‚Z Ñƒi Ï!Ð!O‚j Ñƒy Ï!Ð!O‚z Ñ#,‡" [time "" nil second minute hour 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-beginning match-end "0"] 7 "\
Parse TIME (HH:MM:SS) and return a vector [hour minute second].
Recognize HH:MM:SS, HH:MM, HHMMSS, HHMM."])
(defalias 'timezone-zone-to-minute #[(timezone) "ƒ< ÁÂ!\"A† ‰;ƒ Ä!‰[]ÆÇÈ\"É\"ÊÈ\"\\ÌWƒ8 [‚: *‡Ì‡" [timezone assoc upcase timezone-world-timezones string-to-int abszone * / 100 60 % minutes 0] 5 "\
Translate TIMEZONE (in zone name or integer) to integer minute."])
(defalias 'timezone-fix-time #[(year month day hour minute second) "ÁWƒ ÂÃZÄ\"[‚ ÂÄ\"\\ÇÄ\"Z)ÈXƒ[ ÈZ	T	Ê\"	Wƒ TÍ	ÎWƒ ÍT‚ ÁVƒ È\\	S	Í	Vƒ SÍVƒˆ ÎSÊ\"	Ï	&‡" [minute 0 / 59 60 hour-fix hour * 24 day timezone-last-day-of-month month year 1 12 vector second] 7 "\
Fix date and time."])
(defalias 'timezone-last-day-of-month #[(month year) "ÁUƒ Â!ƒ Ä‡ÅSH‡" [month 2 timezone-leap-year-p year 29 [31 28 31 30 31 30 31 31 30 31 30 31]] 2 "\
The last day in MONTH during YEAR."])
(defalias 'timezone-leap-year-p #[(year) "À	Â\"ÃUƒ À	Ä\"ÃU?† À	Å\"ÃU‡" [% year 4 0 100 400] 3 "\
Returns t if YEAR is a Gregorian leap year."])
