src/date.c

   1 /* date - print or set the system date and time
   2    Copyright (C) 89, 90, 91, 92, 93, 94, 95, 1996 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
  25 #include "system.h"
  26 #include "getline.h"
  27 #include "error.h"
  28
  29 #ifdef TM_IN_SYS_TIME
  30 #include <sys/time.h>
  31 #else
  32 #include <time.h>
  33 #endif
  34
  35 #ifndef STDC_HEADERS
  36 size_t strftime ();
  37 time_t time ();
  38 #endif
  39
  40 int putenv ();
  41 int stime ();
  42
  43 char *xrealloc ();
  44 time_t get_date ();
  45 time_t posixtime ();
  46
  47 static void show_date __P ((const char *format, time_t when));
  48 static void usage __P ((int status));
  49
  50 /* The name this program was run with, for error messages. */
  51 char *program_name;
  52
  53 /* If nonzero, display usage information and exit.  */
  54 static int show_help;
  55
  56 /* If nonzero, print the version on standard output and exit.  */
  57 static int show_version;
  58
  59 /* If non-zero, display time in RFC-822 format for mail or news. */
  60 static int rfc_format = 0;
  61
  62 /* If nonzero, print or set Coordinated Universal Time.  */
  63 static int universal_time = 0;
  64
  65 static struct option const long_options[] =
  66 {
  67   {"date", required_argument, NULL, 'd'},
  68   {"file", required_argument, NULL, 'f'},
  69   {"help", no_argument, &show_help, 1},
  70   {"reference", required_argument, NULL, 'r'},
  71   {"rfc-822", no_argument, NULL, 'R'},
  72   {"set", required_argument, NULL, 's'},
  73   {"uct", no_argument, NULL, 'u'},
  74   {"utc", no_argument, NULL, 'u'},
  75   {"universal", no_argument, NULL, 'u'},
  76   {"version", no_argument, &show_version, 1},
  77   {NULL, 0, NULL, 0}
  78 };
  79
  80 /* Parse each line in INPUT_FILENAME as with --date and display the
  81    each resulting time and date.  If the file cannot be opened, tell why
  82    then exit.  Issue a diagnostic for any lines that cannot be parsed.
  83    If any line cannot be parsed, return nonzero;  otherwise return zero.  */
  84
  85 static int
  86 batch_convert (const char *input_filename, const char *format)
  87 {
  88   int status;
  89   FILE *in_stream;
  90   char *line;
  91   int line_length;
  92   size_t buflen;
  93   time_t when;
  94
  95   if (strcmp (input_filename, "-") == 0)
  96     {
  97       input_filename = _("standard input");
  98       in_stream = stdin;
  99     }
 100   else
 101     {
 102       in_stream = fopen (input_filename, "r");
 103       if (in_stream == NULL)
 104         {
 105           error (1, errno, "`%s'", input_filename);
 106         }
 107     }
 108
 109   line = NULL;
 110   buflen = 0;
 111
 112   status = 0;
 113   while (1)
 114     {
 115       line_length = getline (&line, &buflen, in_stream);
 116       if (line_length < 0)
 117         {
 118           /* FIXME: detect/handle error here.  */
 119           break;
 120         }
 121       when = get_date (line, NULL);
 122       if (when == -1)
 123         {
 124           if (line[line_length - 1] == '\n')
 125             line[line_length - 1] = '\0';
 126           error (0, 0, _("invalid date ` %s'"), line);
 127           status = 1;
 128         }
 129       else
 130         {
 131           show_date (format, when);
 132         }
 133     }
 134
 135   if (fclose (in_stream) == EOF)
 136     error (2, errno, input_filename);
 137
 138   if (line != NULL)
 139     free (line);
 140
 141   return status;
 142 }
 143
 144 int
 145 main (int argc, char **argv)
 146 {
 147   int optc;
 148   const char *datestr = NULL;
 149   const char *set_datestr = NULL;
 150   time_t when;
 151   int set_date = 0;
 152   char *format;
 153   char *batch_file = NULL;
 154   char *reference = NULL;
 155   struct stat refstats;
 156   int n_args;
 157   int status;
 158   int option_specified_date;
 159
 160   program_name = argv[0];
 161   setlocale (LC_ALL, "");
 162   bindtextdomain (PACKAGE, LOCALEDIR);
 163   textdomain (PACKAGE);
 164
 165   while ((optc = getopt_long (argc, argv, "d:f:r:Rs:u", long_options, NULL))
 166          != EOF)
 167     switch (optc)
 168       {
 169       case 0:
 170         break;
 171       case 'd':
 172         datestr = optarg;
 173         break;
 174       case 'f':
 175         batch_file = optarg;
 176         break;
 177       case 'r':
 178         reference = optarg;
 179         break;
 180       case 'R':
 181         rfc_format = 1;
 182         break;
 183       case 's':
 184         set_datestr = optarg;
 185         set_date = 1;
 186         break;
 187       case 'u':
 188         universal_time = 1;
 189         if (putenv ("TZ=UTC0") != 0)
 190           error (1, 0, "memory exhausted");
 191 #if LOCALTIME_CACHE
 192         tzset ();
 193 #endif
 194         break;
 195       default:
 196         usage (1);
 197       }
 198
 199   if (show_version)
 200     {
 201       printf ("date (%s) %s\n", GNU_PACKAGE, VERSION);
 202       exit (0);
 203     }
 204
 205   if (show_help)
 206     usage (0);
 207
 208   n_args = argc - optind;
 209
 210   option_specified_date = ((datestr ? 1 : 0)
 211                            + (batch_file ? 1 : 0)
 212                            + (reference ? 1 : 0));
 213
 214   if (option_specified_date > 1)
 215     {
 216       error (0, 0,
 217         _("the options to specify dates for printing are mutually exclusive"));
 218       usage (1);
 219     }
 220
 221   if (set_date && option_specified_date)
 222     {
 223       error (0, 0,
 224           _("the options to print and set the time may not be used together"));
 225       usage (1);
 226     }
 227
 228   if (n_args > 1)
 229     {
 230       error (0, 0, _("too many non-option arguments"));
 231       usage (1);
 232     }
 233
 234   if ((set_date || option_specified_date)
 235       && n_args == 1 && argv[optind][0] != '+')
 236     {
 237       error (0, 0, _("\
 238 the argument `%s' lacks a leading `+';\n\
 239 when using an option to specify date(s), any\n\
 240 non-option argument must be a format string beginning with `+'"),
 241              argv[optind]);
 242       usage (1);
 243     }
 244
 245   if (set_date)
 246     datestr = set_datestr;
 247
 248   if (batch_file != NULL)
 249     {
 250       status = batch_convert (batch_file,
 251                               (n_args == 1 ? argv[optind] + 1 : NULL));
 252     }
 253   else
 254     {
 255       status = 0;
 256
 257       if (!option_specified_date && !set_date)
 258         {
 259           if (n_args == 1 && argv[optind][0] != '+')
 260             {
 261               /* Prepare to set system clock to the specified date/time
 262                  given in the POSIX-format.  */
 263               set_date = 1;
 264               datestr = argv[optind];
 265               when = posixtime (datestr);
 266               format = NULL;
 267             }
 268           else
 269             {
 270               /* Prepare to print the current date/time.  */
 271               datestr = _("undefined");
 272               time (&when);
 273               format = (n_args == 1 ? argv[optind] + 1 : NULL);
 274             }
 275         }
 276       else
 277         {
 278           /* (option_specified_date || set_date) */
 279           if (reference != NULL)
 280             {
 281               if (stat (reference, &refstats))
 282                 error (1, errno, "%s", reference);
 283               when = refstats.st_mtime;
 284             }
 285           else
 286             when = get_date (datestr, NULL);
 287           format = (n_args == 1 ? argv[optind] + 1 : NULL);
 288         }
 289
 290       if (when == -1)
 291         error (1, 0, _("invalid date `%s'"), datestr);
 292
 293       if (set_date)
 294         {
 295           /* Set the system clock to the specified date, then regardless of
 296              the success of that operation, format and print that date.  */
 297           if (stime (&when) == -1)
 298             error (0, errno, _("cannot set date"));
 299         }
 300
 301       show_date (format, when);
 302     }
 303
 304   if (fclose (stdout) == EOF)
 305     error (2, errno, _("write error"));
 306
 307   exit (status);
 308 }
 309
 310 /* Display the date and/or time in WHEN according to the format specified
 311    in FORMAT, followed by a newline.  If FORMAT is NULL, use the
 312    standard output format (ctime style but with a timezone inserted). */
 313
 314 static void
 315 show_date (const char *format, time_t when)
 316 {
 317   struct tm *tm;
 318   char *out = NULL;
 319   size_t out_length = 0;
 320
 321   tm = localtime (&when);
 322
 323   if (format == NULL)
 324     {
 325       /* Print the date in the default format.  Vanilla ANSI C strftime
 326          doesn't support %e, but POSIX requires it.  If you don't use
 327          a GNU strftime, make sure yours supports %e.
 328          If you are not using GNU strftime, you want to change %z
 329          in the RFC format to %Z; this gives, however, an invalid
 330          RFC time format outside the continental United States and GMT. */
 331
 332       format = (rfc_format
 333                 ? (universal_time
 334                    ? "%a, %_d %b %Y %H:%M:%S GMT"
 335                    : "%a, %_d %b %Y %H:%M:%S %z")
 336                 : "%a %b %e %H:%M:%S %Z %Y");
 337     }
 338   else if (*format == '\0')
 339     {
 340       printf ("\n");
 341       return;
 342     }
 343
 344   do
 345     {
 346       out_length += 200;
 347       out = (char *) xrealloc (out, out_length);
 348     }
 349   while (strftime (out, out_length, format, tm) == 0);
 350
 351   printf ("%s\n", out);
 352   free (out);
 353 }
 354
 355 static void
 356 usage (int status)
 357 {
 358   if (status != 0)
 359     fprintf (stderr, _("Try `%s --help' for more information.\n"),
 360              program_name);
 361   else
 362     {
 363       printf (_("\
 364 Usage: %s [OPTION]... [+FORMAT]\n\
 365   or:  %s [OPTION] [MMDDhhmm[[CC]YY][.ss]]\n\
 366 "),
 367               program_name, program_name);
 368       printf (_("\
 369 Display the current time in the given FORMAT, or set the system date.\n\
 370 \n\
 371   -d, --date=STRING        display time described by STRING, not `now'\n\
 372   -f, --file=DATEFILE      like --date once for each line of DATEFILE\n\
 373   -r, --reference=FILE     display the last modification time of FILE\n\
 374   -R, --rfc-822            output RFC-822 compliant date string\n\
 375   -s, --set=STRING         set time described by STRING\n\
 376   -u, --utc, --universal   print or set Coordinated Universal Time\n\
 377       --help               display this help and exit\n\
 378       --version            output version information and exit\n\
 379 "));
 380       printf (_("\
 381 \n\
 382 FORMAT controls the output.  The only valid option for the second form\n\
 383 specifies Coordinated Universal Time.  Interpreted sequences are:\n\
 384 \n\
 385   %%%%   a literal %%\n\
 386   %%a   locale's abbreviated weekday name (Sun..Sat)\n\
 387   %%A   locale's full weekday name, variable length (Sunday..Saturday)\n\
 388   %%b   locale's abbreviated month name (Jan..Dec)\n\
 389   %%B   locale's full month name, variable length (January..December)\n\
 390   %%c   locale's date and time (Sat Nov 04 12:02:33 EST 1989)\n\
 391   %%d   day of month (01..31)\n\
 392   %%D   date (mm/dd/yy)\n\
 393   %%e   day of month, blank padded ( 1..31)\n\
 394   %%h   same as %%b\n\
 395   %%H   hour (00..23)\n\
 396   %%I   hour (01..12)\n\
 397   %%j   day of year (001..366)\n\
 398   %%k   hour ( 0..23)\n\
 399   %%l   hour ( 1..12)\n\
 400   %%m   month (01..12)\n\
 401   %%M   minute (00..59)\n\
 402   %%n   a newline\n\
 403   %%p   locale's AM or PM\n\
 404   %%r   time, 12-hour (hh:mm:ss [AP]M)\n\
 405   %%s   seconds since 00:00:00, Jan 1, 1970 (a GNU extension)\n\
 406   %%S   second (00..61)\n\
 407   %%t   a horizontal tab\n\
 408   %%T   time, 24-hour (hh:mm:ss)\n\
 409   %%U   week number of year with Sunday as first day of week (00..53)\n\
 410   %%V   week number of year with Monday as first day of week (01..52)\n\
 411   %%w   day of week (0..6);  0 represents Sunday\n\
 412   %%W   week number of year with Monday as first day of week (00..53)\n\
 413   %%x   locale's date representation (mm/dd/yy)\n\
 414   %%X   locale's time representation (%%H:%%M:%%S)\n\
 415   %%y   last two digits of year (00..99)\n\
 416   %%Y   year (1970...)\n\
 417   %%z   RFC-822 style numeric timezone (-0500) (a nonstandard extension)\n\
 418   %%Z   time zone (e.g., EDT), or nothing if no time zone is determinable\n\
 419 \n\
 420 By default, date pads numeric fields with zeroes.  GNU date recognizes\n\
 421 the following modifiers between `%%' and a numeric directive.\n\
 422 \n\
 423   `-' (hyphen) do not pad the field\n\
 424   `_' (underscore) pad the field with spaces\n\
 425 "));
 426       puts (_("\nReport bugs to sh-utils-bugs@gnu.ai.mit.edu"));
 427     }
 428   exit (status);
 429 }