[Emacs-diffs] /srv/bzr/emacs/trunk r103064: Merge: format-time-string now supports subsecond time stamp resolution

[Paul Eggert]

------------------------------------------------------------
revno: 103064 [merge]
committer: Paul Eggert <address@hidden>
branch nick: trunk
timestamp: Mon 2011-01-31 23:24:37 -0800
message:
  Merge: format-time-string now supports subsecond time stamp resolution
modified:
  doc/lispref/ChangeLog
  doc/lispref/os.texi
  etc/ChangeLog
  etc/NEWS
  src/ChangeLog
  src/editfns.c

=== modified file 'doc/lispref/ChangeLog'
--- a/doc/lispref/ChangeLog     2011-01-31 23:54:50 +0000
+++ b/doc/lispref/ChangeLog     2011-02-01 07:23:48 +0000
@@ -1,3 +1,8 @@
+2011-02-01  Paul Eggert  <address@hidden>
+
+       format-time-string now supports subsecond time stamp resolution
+       * os.texi (Time Parsing): Document %N.
+
 2011-01-28  Chong Yidong  <address@hidden>
 
        * vol1.texi (Top):

=== modified file 'doc/lispref/os.texi'
--- a/doc/lispref/os.texi       2011-01-25 04:08:28 +0000
+++ b/doc/lispref/os.texi       2011-02-01 07:23:48 +0000
@@ -21,7 +21,7 @@
 * System Environment::  Distinguish the name and kind of system.
 * User Identification:: Finding the name and user id of the user.
 * Time of Day::         Getting the current time.
-* Time Conversion::     Converting a time from numeric form to 
+* Time Conversion::     Converting a time from numeric form to
                           calendrical data and vice versa.
 * Time Parsing::        Converting a time from numeric form to text
                           and vice versa.
@@ -1336,6 +1336,12 @@
 This stands for the minute (00-59).
 @item %n
 This stands for a newline.
address@hidden %N
+This stands for the nanoseconds (000000000-999999999).  To ask for
+fewer digits, use @samp{%3N} for milliseconds, @samp{%6N} for
+microseconds, etc.  Any excess digits are discarded, without rounding.
+Currently Emacs time stamps are at best microsecond resolution so the
+last three digits generated by plain @samp{%N} are always zero.
 @item %p
 This stands for @samp{AM} or @samp{PM}, as appropriate.
 @item %r

=== modified file 'etc/ChangeLog'
--- a/etc/ChangeLog     2011-01-28 01:51:41 +0000
+++ b/etc/ChangeLog     2011-02-01 07:23:48 +0000
@@ -1,3 +1,8 @@
+2011-02-01  Paul Eggert  <address@hidden>
+
+       format-time-string now supports subsecond time stamp resolution
+       * NEWS: Document this.
+
 2011-01-28  Paul Eggert  <address@hidden>
 
        Redo spelling of Makefile variables to conform to POSIX.

=== modified file 'etc/NEWS'
--- a/etc/NEWS  2011-01-29 03:12:32 +0000
+++ b/etc/NEWS  2011-02-01 07:23:48 +0000
@@ -169,6 +169,10 @@
 *** Tramp offers handlers for file-selinux-context and set-file-selinux-context
 for remote machines which support SELinux.
 
++++
+** The function format-time-string now supports the %N directive, for
+higher-resolution time stamps.
+
 ** The function kill-emacs is now run upon receipt of the signals SIGTERM
 and SIGHUP, and upon SIGINT in batch mode.
 

=== modified file 'src/ChangeLog'
--- a/src/ChangeLog     2011-01-31 23:54:50 +0000
+++ b/src/ChangeLog     2011-02-01 07:23:48 +0000
@@ -1,3 +1,13 @@
+2011-02-01  Paul Eggert  <address@hidden>
+
+       format-time-string now supports subsecond time stamp resolution
+       * editfns.c (emacs_nmemftime): Renamed from emacs_memftimeu,
+       for consistency with its new argument and with gnulib nstrftime.
+       All callers changed.  New argument NS.
+       (Fformat_time_string): Check that the time argument's microseconds
+       component, if any, is in range; this avoids integer overflow and
+       also nstrftime needs this.  Document %N.
+
 2011-01-31  Andreas Schwab  <address@hidden>
 
        * image.c (DEF_IMGLIB_FN): Add parameter rettype, use it instead

=== modified file 'src/editfns.c'
--- a/src/editfns.c     2011-01-30 23:34:18 +0000
+++ b/src/editfns.c     2011-02-01 07:23:48 +0000
@@ -92,8 +92,8 @@
                        EMACS_INT *, Lisp_Object, EMACS_INT *);
 static void update_buffer_properties (EMACS_INT, EMACS_INT);
 static Lisp_Object region_limit (int);
-static size_t emacs_memftimeu (char *, size_t, const char *,
-                               size_t, const struct tm *, int);
+static size_t emacs_nmemftime (char *, size_t, const char *,
+                              size_t, const struct tm *, int, int);
 static void general_insert_function (void (*) (const unsigned char *, 
EMACS_INT),
                                     void (*) (Lisp_Object, EMACS_INT,
                                               EMACS_INT, EMACS_INT,
@@ -1549,6 +1549,7 @@
 /* Write information into buffer S of size MAXSIZE, according to the
    FORMAT of length FORMAT_LEN, using time information taken from *TP.
    Default to Universal Time if UT is nonzero, local time otherwise.
+   Use NS as the number of nanoseconds in the %N directive.
    Return the number of bytes written, not including the terminating
    '\0'.  If S is NULL, nothing will be written anywhere; so to
    determine how many bytes would be written, use NULL for S and
@@ -1557,7 +1558,8 @@
    This function behaves like nstrftime, except it allows null
    bytes in FORMAT and it does not support nanoseconds.  */
 static size_t
-emacs_memftimeu (char *s, size_t maxsize, const char *format, size_t 
format_len, const struct tm *tp, int ut)
+emacs_nmemftime (char *s, size_t maxsize, const char *format,
+                size_t format_len, const struct tm *tp, int ut, int ns)
 {
   size_t total = 0;
 
@@ -1574,7 +1576,7 @@
       if (s)
        s[0] = '\1';
 
-      result = nstrftime (s, maxsize, format, tp, ut, 0);
+      result = nstrftime (s, maxsize, format, tp, ut, ns);
 
       if (s)
        {
@@ -1620,6 +1622,7 @@
 %p is the locale's equivalent of either AM or PM.
 %M is the minute.
 %S is the second.
+%N is the nanosecond, %6N the microsecond, %3N the millisecond, etc.
 %Z is the time zone name, %z is the numeric form.
 %s is the number of seconds since 1970-01-01 00:00:00 +0000.
 
@@ -1649,13 +1652,17 @@
 {
   time_t value;
   int size;
+  int usec;
+  int ns;
   struct tm *tm;
   int ut = ! NILP (universal);
 
   CHECK_STRING (format_string);
 
-  if (! lisp_time_argument (time, &value, NULL))
+  if (! (lisp_time_argument (time, &value, &usec)
+        && 0 <= usec && usec < 1000000))
     error ("Invalid time specification");
+  ns = usec * 1000;
 
   format_string = code_convert_string_norecord (format_string,
                                                Vlocale_coding_system, 1);
@@ -1678,9 +1685,9 @@
 
       buf[0] = '\1';
       BLOCK_INPUT;
-      result = emacs_memftimeu (buf, size, SSDATA (format_string),
+      result = emacs_nmemftime (buf, size, SSDATA (format_string),
                                SBYTES (format_string),
-                               tm, ut);
+                               tm, ut, ns);
       UNBLOCK_INPUT;
       if ((result > 0 && result < size) || (result == 0 && buf[0] == '\0'))
        return code_convert_string_norecord (make_unibyte_string (buf, result),
@@ -1688,10 +1695,10 @@
 
       /* If buffer was too small, make it bigger and try again.  */
       BLOCK_INPUT;
-      result = emacs_memftimeu (NULL, (size_t) -1,
+      result = emacs_nmemftime (NULL, (size_t) -1,
                                SSDATA (format_string),
                                SBYTES (format_string),
-                               tm, ut);
+                               tm, ut, ns);
       UNBLOCK_INPUT;
       size = result + 1;
     }