src/date.c

   1 /* date - print or set the system date and time
   2    Copyright (C) 1989-2001 Free Software Foundation, Inc.
   3
   4    This program is free software; you can redistribute it and/or modify
   5    it under the terms of the GNU General Public License as published by
   6    the Free Software Foundation; either version 2, or (at your option)
   7    any later version.
   8
   9    This program is distributed in the hope that it will be useful,
  10    but WITHOUT ANY WARRANTY; without even the implied warranty of
  11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12    GNU General Public License for more details.
  13
  14    You should have received a copy of the GNU General Public License
  15    along with this program; if not, write to the Free Software Foundation,
  16    Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  17
  18    David MacKenzie <djm@gnu.ai.mit.edu> */
  19
  20 #include <config.h>
  21 #include <stdio.h>
  22 #include <getopt.h>
  23 #include <sys/types.h>
  24 #if HAVE_LANGINFO_H
  25 # include <langinfo.h>
  26 #endif
  27
  28 #include "system.h"
  29 #include "argmatch.h"
  30 #include "closeout.h"
  31 #include "error.h"
  32 #include "getdate.h"
  33 #include "getline.h"
  34 #include "posixtm.h"
  35
  36 /* The official name of this program (e.g., no `g' prefix).  */
  37 #define PROGRAM_NAME "date"
  38
  39 #define AUTHORS "David MacKenzie"
  40
  41 #ifndef STDC_HEADERS
  42 size_t strftime ();
  43 time_t time ();
  44 #endif
  45
  46 int putenv ();
  47 int stime ();
  48
  49 static void show_date PARAMS ((const char *format, time_t when));
  50
  51 enum Time_spec
  52 {
  53   /* display only the date: 1999-03-25 */
  54   TIME_SPEC_DATE=1,
  55   /* display date and hour: 1999-03-25T03-0500 */
  56   TIME_SPEC_HOURS,
  57   /* display date, hours, and minutes: 1999-03-25T03:23-0500 */
  58   TIME_SPEC_MINUTES,
  59   /* display date, hours, minutes, and seconds: 1999-03-25T03:23:14-0500 */
  60   TIME_SPEC_SECONDS
  61 };
  62
  63 static char const *const time_spec_string[] =
  64 {
  65   "date", "hours", "minutes", "seconds", 0
  66 };
  67
  68 static enum Time_spec const time_spec[] =
  69 {
  70   TIME_SPEC_DATE, TIME_SPEC_HOURS, TIME_SPEC_MINUTES, TIME_SPEC_SECONDS
  71 };
  72
  73 /* The name this program was run with, for error messages. */
  74 char *program_name;
  75
  76 /* If nonzero, display an ISO 8601 format date/time string */
  77 static int iso_8601_format = 0;
  78
  79 /* If non-zero, display time in RFC-(2)822 format for mail or news. */
  80 static int rfc_format = 0;
  81
  82 static struct option const long_options[] =
  83 {
  84   {"date", required_argument, NULL, 'd'},
  85   {"file", required_argument, NULL, 'f'},
  86   {"iso-8601", optional_argument, NULL, 'I'},
  87   {"reference", required_argument, NULL, 'r'},
  88   {"rfc-822", no_argument, NULL, 'R'},
  89   {"set", required_argument, NULL, 's'},
  90   {"uct", no_argument, NULL, 'u'},
  91   {"utc", no_argument, NULL, 'u'},
  92   {"universal", no_argument, NULL, 'u'},
  93   {GETOPT_HELP_OPTION_DECL},
  94   {GETOPT_VERSION_OPTION_DECL},
  95   {NULL, 0, NULL, 0}
  96 };
  97
  98 #if LOCALTIME_CACHE
  99 # define TZSET tzset ()
 100 #else
 101 # define TZSET /* empty */
 102 #endif
 103
 104 #ifdef _DATE_FMT
 105 # define DATE_FMT_LANGINFO() nl_langinfo (_DATE_FMT)
 106 #else
 107 # define DATE_FMT_LANGINFO() ""
 108 #endif
 109
 110 void
 111 usage (int status)
 112 {
 113   if (status != 0)
 114     fprintf (stderr, _("Try `%s --help' for more information.\n"),
 115              program_name);
 116   else
 117     {
 118       printf (_("\
 119 Usage: %s [OPTION]... [+FORMAT]\n\
 120   or:  %s [-u|--utc|--universal] [MMDDhhmm[[CC]YY][.ss]]\n\
 121 "),
 122               program_name, program_name);
 123       printf (_("\
 124 Display the current time in the given FORMAT, or set the system date.\n\
 125 \n\
 126   -d, --date=STRING         display time described by STRING, not `now'\n\
 127   -f, --file=DATEFILE       like --date once for each line of DATEFILE\n\
 128   -I, --iso-8601[=TIMESPEC] output an ISO-8601 compliant date/time string.\n\
 129                             TIMESPEC=`date' (or missing) for date only,\n\
 130                             `hours', `minutes', or `seconds' for date and\n\
 131                             time to the indicated precision.\n\
 132   -r, --reference=FILE      display the last modification time of FILE\n\
 133   -R, --rfc-822             output RFC-822 compliant date string\n\
 134   -s, --set=STRING          set time described by STRING\n\
 135   -u, --utc, --universal    print or set Coordinated Universal Time\n\
 136       --help                display this help and exit\n\
 137       --version             output version information and exit\n\
 138 "));
 139       printf (_("\
 140 \n\
 141 FORMAT controls the output.  The only valid option for the second form\n\
 142 specifies Coordinated Universal Time.  Interpreted sequences are:\n\
 143 \n\
 144   %%%%   a literal %%\n\
 145   %%a   locale's abbreviated weekday name (Sun..Sat)\n\
 146   %%A   locale's full weekday name, variable length (Sunday..Saturday)\n\
 147   %%b   locale's abbreviated month name (Jan..Dec)\n\
 148   %%B   locale's full month name, variable length (January..December)\n\
 149   %%c   locale's date and time (Sat Nov 04 12:02:33 EST 1989)\n\
 150   %%C   century (year divided by 100 and truncated to an integer) [00-99]\n\
 151   %%d   day of month (01..31)\n\
 152   %%D   date (mm/dd/yy)\n\
 153   %%e   day of month, blank padded ( 1..31)\n\
 154   %%h   same as %%b\n\
 155   %%H   hour (00..23)\n\
 156   %%I   hour (01..12)\n\
 157   %%j   day of year (001..366)\n\
 158   %%k   hour ( 0..23)\n\
 159   %%l   hour ( 1..12)\n\
 160   %%m   month (01..12)\n\
 161   %%M   minute (00..59)\n\
 162   %%n   a newline\n\
 163   %%p   locale's AM or PM\n\
 164   %%r   time, 12-hour (hh:mm:ss [AP]M)\n\
 165   %%s   seconds since `00:00:00 1970-01-01 UTC' (a GNU extension)\n\
 166   %%S   second (00..60)\n\
 167   %%t   a horizontal tab\n\
 168   %%T   time, 24-hour (hh:mm:ss)\n\
 169   %%U   week number of year with Sunday as first day of week (00..53)\n\
 170   %%V   week number of year with Monday as first day of week (01..53)\n\
 171   %%w   day of week (0..6);  0 represents Sunday\n\
 172   %%W   week number of year with Monday as first day of week (00..53)\n\
 173   %%x   locale's date representation (mm/dd/yy)\n\
 174   %%X   locale's time representation (%%H:%%M:%%S)\n\
 175   %%y   last two digits of year (00..99)\n\
 176   %%Y   year (1970...)\n\
 177   %%z   RFC-822 style numeric timezone (-0500) (a nonstandard extension)\n\
 178   %%Z   time zone (e.g., EDT), or nothing if no time zone is determinable\n\
 179 \n\
 180 By default, date pads numeric fields with zeroes.  GNU date recognizes\n\
 181 the following modifiers between `%%' and a numeric directive.\n\
 182 \n\
 183   `-' (hyphen) do not pad the field\n\
 184   `_' (underscore) pad the field with spaces\n\
 185 "));
 186       puts (_("\nReport bugs to <bug-sh-utils@gnu.org>."));
 187     }
 188   exit (status);
 189 }
 190
 191 /* Parse each line in INPUT_FILENAME as with --date and display each
 192    resulting time and date.  If the file cannot be opened, tell why
 193    then exit.  Issue a diagnostic for any lines that cannot be parsed.
 194    If any line cannot be parsed, return nonzero;  otherwise return zero.  */
 195
 196 static int
 197 batch_convert (const char *input_filename, const char *format)
 198 {
 199   int status;
 200   FILE *in_stream;
 201   char *line;
 202   int line_length;
 203   size_t buflen;
 204   time_t when;
 205
 206   if (strcmp (input_filename, "-") == 0)
 207     {
 208       input_filename = _("standard input");
 209       in_stream = stdin;
 210     }
 211   else
 212     {
 213       in_stream = fopen (input_filename, "r");
 214       if (in_stream == NULL)
 215         {
 216           error (1, errno, "`%s'", input_filename);
 217         }
 218     }
 219
 220   line = NULL;
 221   buflen = 0;
 222   status = 0;
 223   while (1)
 224     {
 225       line_length = getline (&line, &buflen, in_stream);
 226       if (line_length < 0)
 227         {
 228           /* FIXME: detect/handle error here.  */
 229           break;
 230         }
 231
 232       when = get_date (line, NULL);
 233
 234       if (when == -1)
 235         {
 236           if (line[line_length - 1] == '\n')
 237             line[line_length - 1] = '\0';
 238           error (0, 0, _("invalid date `%s'"), line);
 239           status = 1;
 240         }
 241       else
 242         {
 243           show_date (format, when);
 244         }
 245     }
 246
 247   if (fclose (in_stream) == EOF)
 248     error (2, errno, "`%s'", input_filename);
 249
 250   if (line != NULL)
 251     free (line);
 252
 253   return status;
 254 }
 255
 256 int
 257 main (int argc, char **argv)
 258 {
 259   int optc;
 260   const char *datestr = NULL;
 261   const char *set_datestr = NULL;
 262   time_t when;
 263   int set_date = 0;
 264   char *format;
 265   char *batch_file = NULL;
 266   char *reference = NULL;
 267   struct stat refstats;
 268   int n_args;
 269   int status;
 270   int option_specified_date;
 271
 272   program_name = argv[0];
 273   setlocale (LC_ALL, "");
 274   bindtextdomain (PACKAGE, LOCALEDIR);
 275   textdomain (PACKAGE);
 276
 277   close_stdout_set_status (2);
 278   atexit (close_stdout);
 279
 280   while ((optc = getopt_long (argc, argv, "d:f:I::r:Rs:u", long_options, NULL))
 281          != -1)
 282     switch (optc)
 283       {
 284       case 0:
 285         break;
 286       case 'd':
 287         datestr = optarg;
 288         break;
 289       case 'f':
 290         batch_file = optarg;
 291         break;
 292       case 'I':
 293         iso_8601_format = (optarg
 294                            ? XARGMATCH ("--iso-8601", optarg,
 295                                         time_spec_string, time_spec)
 296                            : TIME_SPEC_DATE);
 297         break;
 298       case 'r':
 299         reference = optarg;
 300         break;
 301       case 'R':
 302         rfc_format = 1;
 303         break;
 304       case 's':
 305         set_datestr = optarg;
 306         set_date = 1;
 307         break;
 308       case 'u':
 309         /* POSIX.2 says that `date -u' is equivalent to setting the TZ
 310            environment variable, so this option should do nothing other
 311            than setting TZ.  */
 312         if (putenv ("TZ=UTC0") != 0)
 313           xalloc_die ();
 314         TZSET;
 315         break;
 316       case_GETOPT_HELP_CHAR;
 317       case_GETOPT_VERSION_CHAR (PROGRAM_NAME, AUTHORS);
 318       default:
 319         usage (1);
 320       }
 321
 322   n_args = argc - optind;
 323
 324   option_specified_date = ((datestr ? 1 : 0)
 325                            + (batch_file ? 1 : 0)
 326                            + (reference ? 1 : 0));
 327
 328   if (option_specified_date > 1)
 329     {
 330       error (0, 0,
 331         _("the options to specify dates for printing are mutually exclusive"));
 332       usage (1);
 333     }
 334
 335   if (set_date && option_specified_date)
 336     {
 337       error (0, 0,
 338           _("the options to print and set the time may not be used together"));
 339       usage (1);
 340     }
 341
 342   if (n_args > 1)
 343     {
 344       error (0, 0, _("too many non-option arguments: %s%s"),
 345              argv[optind + 1], n_args == 2 ? "" : " ...");
 346       usage (1);
 347     }
 348
 349   if ((set_date || option_specified_date)
 350       && n_args == 1 && argv[optind][0] != '+')
 351     {
 352       error (0, 0, _("\
 353 the argument `%s' lacks a leading `+';\n\
 354 When using an option to specify date(s), any non-option\n\
 355 argument must be a format string beginning with `+'."),
 356              argv[optind]);
 357       usage (1);
 358     }
 359
 360   /* Simply ignore --rfc-822 if specified when setting the date.  */
 361   if (rfc_format && !set_date && n_args > 0)
 362     {
 363       error (0, 0,
 364              _("a format string may not be specified when using\
 365  the --rfc-822 (-R) option"));
 366       usage (1);
 367     }
 368
 369   if (set_date)
 370     datestr = set_datestr;
 371
 372   if (batch_file != NULL)
 373     {
 374       status = batch_convert (batch_file,
 375                               (n_args == 1 ? argv[optind] + 1 : NULL));
 376     }
 377   else
 378     {
 379       status = 0;
 380
 381       if (!option_specified_date && !set_date)
 382         {
 383           if (n_args == 1 && argv[optind][0] != '+')
 384             {
 385               /* Prepare to set system clock to the specified date/time
 386                  given in the POSIX-format.  */
 387               set_date = 1;
 388               datestr = argv[optind];
 389               when = posixtime (datestr,
 390                                 PDS_TRAILING_YEAR | PDS_CENTURY | PDS_SECONDS);
 391               format = NULL;
 392             }
 393           else
 394             {
 395               /* Prepare to print the current date/time.  */
 396               datestr = _("undefined");
 397               time (&when);
 398               format = (n_args == 1 ? argv[optind] + 1 : NULL);
 399             }
 400         }
 401       else
 402         {
 403           /* (option_specified_date || set_date) */
 404           if (reference != NULL)
 405             {
 406               if (stat (reference, &refstats))
 407                 error (1, errno, "%s", reference);
 408               when = refstats.st_mtime;
 409             }
 410           else
 411             {
 412               when = get_date (datestr, NULL);
 413             }
 414
 415           format = (n_args == 1 ? argv[optind] + 1 : NULL);
 416         }
 417
 418       if (when == -1)
 419         error (1, 0, _("invalid date `%s'"), datestr);
 420
 421       if (set_date)
 422         {
 423           /* Set the system clock to the specified date, then regardless of
 424              the success of that operation, format and print that date.  */
 425           if (stime (&when) == -1)
 426             {
 427               error (0, errno, _("cannot set date"));
 428               status = 1;
 429             }
 430         }
 431
 432       show_date (format, when);
 433     }
 434
 435   exit (status);
 436 }
 437
 438 /* Display the date and/or time in WHEN according to the format specified
 439    in FORMAT, followed by a newline.  If FORMAT is NULL, use the
 440    standard output format (ctime style but with a timezone inserted). */
 441
 442 static void
 443 show_date (const char *format, time_t when)
 444 {
 445   struct tm *tm;
 446   char *out = NULL;
 447   size_t out_length = 0;
 448   /* ISO 8601 formats.  See below regarding %z */
 449   static char const * const iso_format_string[] =
 450   {
 451     "%Y-%m-%d",
 452     "%Y-%m-%dT%H%z",
 453     "%Y-%m-%dT%H:%M%z",
 454     "%Y-%m-%dT%H:%M:%S%z"
 455   };
 456
 457   tm = localtime (&when);
 458
 459   if (format == NULL)
 460     {
 461       /* Print the date in the default format.  Vanilla ANSI C strftime
 462          doesn't support %e, but POSIX requires it.  If you don't use
 463          a GNU strftime, make sure yours supports %e.
 464          If you are not using GNU strftime, you want to change %z
 465          in the RFC format to %Z; this gives, however, an invalid
 466          RFC time format outside the continental United States and GMT. */
 467
 468       if (rfc_format)
 469         format = "%a, %d %b %Y %H:%M:%S %z";
 470       else if (iso_8601_format)
 471         format = iso_format_string[iso_8601_format - 1];
 472       else
 473         {
 474           char *date_fmt = DATE_FMT_LANGINFO ();
 475           /* Do not wrap the following literal format string with _(...).
 476              For example, suppose LC_ALL is unset, LC_TIME="POSIX",
 477              and LANG="ko_KR".  In that case, POSIX.2 says that LC_TIME
 478              determines the format and contents of date and time strings
 479              written by date, which means "date" must generate output
 480              using the POSIX locale; but adding _() would cause "date"
 481              to use a Korean translation of the format.  */
 482           format = *date_fmt ? date_fmt : "%a %b %e %H:%M:%S %Z %Y";
 483         }
 484     }
 485   else if (*format == '\0')
 486     {
 487       printf ("\n");
 488       return;
 489     }
 490
 491   while (1)
 492     {
 493       int done;
 494       out_length += 200;
 495       out = (char *) xrealloc (out, out_length);
 496
 497       /* Mark the first byte of the buffer so we can detect the case
 498          of strftime producing an empty string.  Otherwise, this loop
 499          would not terminate when date was invoked like this
 500          `LANG=de date +%p' on a system with good language support.  */
 501       out[0] = '\1';
 502
 503       if (rfc_format)
 504         setlocale (LC_ALL, "C");
 505
 506       done = (strftime (out, out_length, format, tm) || out[0] == '\0');
 507
 508       if (rfc_format)
 509         setlocale (LC_ALL, "");
 510
 511       if (done)
 512         break;
 513     }
 514
 515   printf ("%s\n", out);
 516   free (out);
 517 }