Variable: parse-time-rules

parse-time-rules is a variable defined in parse-time.el.gz.

Value

(((6) parse-time-weekdays) ((3) (1 31)) ((4) parse-time-months)
 ((5) (100))
 ((2 1 0)
  #[0
    ";\205�G\301U\205�\302H\303U\205�\304H\303U\207"
    [parse-time-elt 8 2 58 5] 2]
  [0 2] [3 5] [6 8])
 ((8 7) parse-time-zoneinfo #[0 "@\207" [parse-time-val] 1]
  #[0 "A@\207" [parse-time-val] 1])
 ((8)
  #[0
    ";\205�G\301U\205�\302H\303U\206�\302H\304U\207"
    [parse-time-elt 5 0 43 45] 2]
  #[0
    "\301\302\303\304\305%\301\302\306\304\303%\307_\\\307_\310H\311U\203�\312\202 �\306_\207"
    [parse-time-elt cl-parse-integer :start 3 :end 5 1 60 0 45 -1] 7])
 ((5 4 3)
  #[0
    ";\205�G\301U\205�\302H\303U\205�\304H\303U\207"
    [parse-time-elt 10 4 45 7] 2]
  [0 4] [5 7] [8 10])
 ((2 1 0)
  #[0 ";\205�G\301U\205�\302H\303U\207"
      [parse-time-elt 5 2 58] 2]
  [0 2] [3 5] #[0 "\300\207" [0] 1])
 ((2 1 0)
  #[0 ";\205�G\301U\205�\302H\303U\207"
      [parse-time-elt 4 1 58] 2]
  [0 1] [2 4] #[0 "\300\207" [0] 1])
 ((2 1 0)
  #[0 ";\205�G\301U\205�\302H\303U\207"
      [parse-time-elt 7 1 58] 2]
  [0 1] [2 4] [5 7])
 ((5) (50 110) #[0 "\301\\\207" [parse-time-elt 1900] 2])
 ((5) (0 49) #[0 "\301\\\207" [parse-time-elt 2000] 2]))

Documentation

(slots predicate extractor...)

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/parse-time.el.gz
(defvar parse-time-rules
  `(((6) parse-time-weekdays)
    ((3) (1 31))
    ((4) parse-time-months)
    ((5) (100))
    ((2 1 0)
     ,(lambda () (and (stringp parse-time-elt)
                      (= (length parse-time-elt) 8)
                      (= (aref parse-time-elt 2) ?:)
                      (= (aref parse-time-elt 5) ?:)))
     [0 2] [3 5] [6 8])
    ((8 7) parse-time-zoneinfo
     ,(lambda () (car parse-time-val))
     ,(lambda () (cadr parse-time-val)))
    ((8)
     ,(lambda ()
        (and (stringp parse-time-elt)
             (= 5 (length parse-time-elt))
             (or (= (aref parse-time-elt 0) ?+)
                 (= (aref parse-time-elt 0) ?-))))
     ,(lambda () (* 60 (+ (cl-parse-integer parse-time-elt :start 3 :end 5)
                          (* 60 (cl-parse-integer parse-time-elt :start 1 :end 3)))
                    (if (= (aref parse-time-elt 0) ?-) -1 1))))
    ((5 4 3)
     ,(lambda () (and (stringp parse-time-elt)
                      (= (length parse-time-elt) 10)
                      (= (aref parse-time-elt 4) ?-)
                      (= (aref parse-time-elt 7) ?-)))
     [0 4] [5 7] [8 10])
    ((2 1 0)
     ,(lambda () (and (stringp parse-time-elt)
                      (= (length parse-time-elt) 5)
                      (= (aref parse-time-elt 2) ?:)))
     [0 2] [3 5] ,(lambda () 0))
    ((2 1 0)
     ,(lambda () (and (stringp parse-time-elt)
                      (= (length parse-time-elt) 4)
                      (= (aref parse-time-elt 1) ?:)))
     [0 1] [2 4] ,(lambda () 0))
    ((2 1 0)
     ,(lambda () (and (stringp parse-time-elt)
                      (= (length parse-time-elt) 7)
                      (= (aref parse-time-elt 1) ?:)))
     [0 1] [2 4] [5 7])
    ((5) (50 110) ,(lambda () (+ 1900 parse-time-elt)))
    ((5) (0 49) ,(lambda () (+ 2000 parse-time-elt))))
  "(slots predicate extractor...)")