comparison lisp/timezone.el @ 25383:57e815ace9e2

Mode provide to end. (timezone-parse-date): Simplify somewhat. Assume 2-digit years <70 are 2000+. (timezone-parse-time): Simplify somewhat.

25382:925a1c3dd62a

;;; timezone.el --- time zone package for GNU Emacs

;; Copyright (C) 1990, 1991, 1992, 1993, 1996 Free Software Foundation, Inc.

;; Author: Masanobu Umeda
;; Maintainer: [e-mail]
;; Keywords: news

;; along with GNU Emacs; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.

;;; Code:

(provide 'timezone)

(defvar timezone-world-timezones
  '(("PST" .  -800)
    ("PDT" .  -700)
    ("MST" .  -700)

	  ((string-match
	    "\\([0-9]+\\)-\\([0-9]+\\)-\\([0-9]+\\)[ \t]+\\([0-9]+:[0-9]+:[0-9]+\\)" date)
	   ;; Styles: (8) without timezone.
	   (setq year 1 month 2 day 3 time 4 zone nil))
	  )
    (if year
	(progn
	  (setq year
		(substring date (match-beginning year) (match-end year)))
	  ;; It is now Dec 1992.  8 years before the end of the World.
	  (if (= (length year) 1)
	      (setq year (concat "190" (substring year -1 nil)))
	    (if (< (length year) 4)
		(setq year (concat "19" (substring year -2 nil)))))
          (setq month
		(if (= (aref date (+ (match-beginning month) 2)) ?-)
		    ;; Handle numeric months, spanning exactly two digits.
		    (substring date
			       (match-beginning month)
			       (+ (match-beginning month) 2))
 	          (let* ((string (substring date
					    (match-beginning month)
					    (+ (match-beginning month) 3)))
			 (monthnum
			  (cdr (assoc (upcase string) timezone-months-assoc))))
		    (if monthnum
			(int-to-string monthnum)
		      nil))))
	  (setq day
		(substring date (match-beginning day) (match-end day)))
	  (setq time
		(substring date (match-beginning time) (match-end time)))))
    (if zone
	(setq zone
	      (substring date (match-beginning zone) (match-end zone))))
    ;; Return a vector.
    (if (and year month)
	(vector year month day time zone)
      (vector "0" "0" "0" "0" nil))
    ))

(defun timezone-parse-time (time)
  "Parse TIME (HH:MM:SS) and return a vector [hour minute second].
Recognize HH:MM:SS, HH:MM, HHMMSS, HHMM."
  (let ((time (or time ""))
	(hour nil)
	(minute nil)
	(second nil))
    (cond ((string-match "\\`\\([0-9]+\\):\\([0-9]+\\):\\([0-9]+\\)\\'" time)
	   ;; HH:MM:SS
	   (setq hour 1 minute 2 second 3))
	  ((string-match "\\`\\([0-9]+\\):\\([0-9]+\\)\\'" time)
	   ;; HH:MM

	   ;; HHMM
	   (setq hour 1 minute 2 second nil))
	  )
    ;; Return [hour minute second]
    (vector
     (if hour
	 (substring time (match-beginning hour) (match-end hour)) "0")
     (if minute
	 (substring time (match-beginning minute) (match-end minute)) "0")
     (if second
	 (substring time (match-beginning second) (match-end second)) "0"))
    ))


;; Miscellaneous

(defun timezone-zone-to-minute (timezone)

     (* 365 (1- year));;	+ Days in prior years
     (/ (1- year) 4);;		+ Julian leap years
     (- (/ (1- year) 100));;	- century years
     (/ (1- year) 400)));;	+ Gregorian leap years

;;; timezone.el ends here

25383:57e815ace9e2

;;; timezone.el --- time zone package for GNU Emacs

;; Copyright (C) 1990-1993, 1996, 1999 Free Software Foundation, Inc.

;; Author: Masanobu Umeda
;; Maintainer: [e-mail]
;; Keywords: news

;; along with GNU Emacs; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.

;;; Code:

(defvar timezone-world-timezones
  '(("PST" .  -800)
    ("PDT" .  -700)
    ("MST" .  -700)

	  ((string-match
	    "\\([0-9]+\\)-\\([0-9]+\\)-\\([0-9]+\\)[ \t]+\\([0-9]+:[0-9]+:[0-9]+\\)" date)
	   ;; Styles: (8) without timezone.
	   (setq year 1 month 2 day 3 time 4 zone nil))
	  )
    (when year
      (setq year (match-string year date))
      ;; Guess ambiguous years.  Assume years < 70 don't predate the
      ;; Unix Epoch, so are 2000+.  Three-digit years -- do they ever
      ;; occur? -- are (arbitrarily) assumed to be 21st century.
      (if (< (length year) 4)
	  (let ((y (string-to-int year)))
	    (if (< y 70)
		(setq y (+ y 100)))
	    (setq year (int-to-string (+ 1900 y)))))
      (setq month
	    (if (= (aref date (+ (match-beginning month) 2)) ?-)
		;; Handle numeric months, spanning exactly two digits.
		(substring date
			   (match-beginning month)
			   (+ (match-beginning month) 2))
	      (let* ((string (substring date
					(match-beginning month)
					(+ (match-beginning month) 3)))
		     (monthnum
		      (cdr (assoc (upcase string) timezone-months-assoc))))
		(if monthnum
		    (int-to-string monthnum)))))
      (setq day (match-string day date))
      (setq time (match-string time date)))
    (if zone (setq zone (match-string zone date)))
    ;; Return a vector.
    (if (and year month)
	(vector year month day time zone)
      (vector "0" "0" "0" "0" nil))))

(defun timezone-parse-time (time)
  "Parse TIME (HH:MM:SS) and return a vector [hour minute second].
Recognize HH:MM:SS, HH:MM, HHMMSS, HHMM."
  (let ((time (or time ""))
	hour minute second)
    (cond ((string-match "\\`\\([0-9]+\\):\\([0-9]+\\):\\([0-9]+\\)\\'" time)
	   ;; HH:MM:SS
	   (setq hour 1 minute 2 second 3))
	  ((string-match "\\`\\([0-9]+\\):\\([0-9]+\\)\\'" time)
	   ;; HH:MM

	   ;; HHMM
	   (setq hour 1 minute 2 second nil))
	  )
    ;; Return [hour minute second]
    (vector
     (if hour (match-string hour time) "0")
     (if minute (match-string minute time) "0")
     (if second (match-string second time) "0"))))


;; Miscellaneous

(defun timezone-zone-to-minute (timezone)

     (* 365 (1- year));;	+ Days in prior years
     (/ (1- year) 4);;		+ Julian leap years
     (- (/ (1- year) 100));;	- century years
     (/ (1- year) 400)));;	+ Gregorian leap years

(provide 'timezone)

;;; timezone.el ends here