[elpa] externals/compat ad92d70 61/99: Add decoded-time-* functions from 27.1

[ELPA Syncer]

branch: externals/compat
commit ad92d709a1b2afc1b02e28dd8681caf7e322acc0
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Add decoded-time-* functions from 27.1
    
    As pointed out by Daniel Mendler.
---
 compat-27.1.el | 51 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 51 insertions(+)

diff --git a/compat-27.1.el b/compat-27.1.el
index 59a4fe7..59c5c1d 100644
--- a/compat-27.1.el
+++ b/compat-27.1.el
@@ -189,6 +189,57 @@ return nil."
   "Standard regexp guaranteed not to match any string at all."
   :constant t)
 
+;;;; Defined in simple.el
+
+(compat-defun decoded-time-second (time)
+  "The seconds in TIME, which is a value returned by `decode-time'.
+This is an integer between 0 and 60 (inclusive).  (60 is a leap
+second, which only some operating systems support.)"
+  (nth 0 time))
+
+(compat-defun decoded-time-minute (time)
+  "The minutes in TIME, which is a value returned by `decode-time'.
+This is an integer between 0 and 59 (inclusive)."
+  (nth 1 time))
+
+(compat-defun decoded-time-hour (time)
+  "The hours in TIME, which is a value returned by `decode-time'.
+This is an integer between 0 and 23 (inclusive)."
+  (nth 2 time))
+
+(compat-defun decoded-time-day (time)
+  "The day-of-the-month in TIME, which is a value returned by `decode-time'.
+This is an integer between 1 and 31 (inclusive)."
+  (nth 3 time))
+
+(compat-defun decoded-time-month (time)
+  "The month in TIME, which is a value returned by `decode-time'.
+This is an integer between 1 and 12 (inclusive).  January is 1."
+  (nth 4 time))
+
+(compat-defun decoded-time-year (time)
+  "The year in TIME, which is a value returned by `decode-time'.
+This is a four digit integer."
+  (nth 5 time))
+
+(compat-defun decoded-time-weekday (time)
+  "The day-of-the-week in TIME, which is a value returned by `decode-time'.
+This is a number between 0 and 6, and 0 is Sunday."
+  (nth 6 time))
+
+(compat-defun decoded-time-dst (time)
+  "The daylight saving time in TIME, which is a value returned by 
`decode-time'.
+This is t if daylight saving time is in effect, and nil if not."
+  (nth 7 time))
+
+(compat-defun decoded-time-zone (time)
+  "The time zone in TIME, which is a value returned by `decode-time'.
+This is an integer indicating the UTC offset in seconds, i.e.,
+the number of seconds east of Greenwich."
+  (nth 8 time))
+
+;; TODO define gv-setters
+
 ;;;; Defined in files.el
 
 (compat-advise file-size-human-readable (file-size &optional flavor space unit)