time/test_time.c

   1 /* Copyright (C) 1991 Free Software Foundation, Inc.
   2 This file is part of the GNU C Library.
   3
   4 The GNU C Library is free software; you can redistribute it and/or
   5 modify it under the terms of the GNU Library General Public License as
   6 published by the Free Software Foundation; either version 2 of the
   7 License, or (at your option) any later version.
   8
   9 The GNU C Library 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 GNU
  12 Library General Public License for more details.
  13
  14 You should have received a copy of the GNU Library General Public
  15 License along with the GNU C Library; see the file COPYING.LIB.  If
  16 not, write to the Free Software Foundation, Inc., 675 Mass Ave,
  17 Cambridge, MA 02139, USA.  */
  18
  19 #include <ansidecl.h>
  20 #include <stdio.h>
  21 #include <stdlib.h>
  22 #include <time.h>
  23
  24
  25 int
  26 DEFUN(main, (argc, argv), int argc AND char **argv)
  27 {
  28   time_t t;
  29   register struct tm *tp;
  30   struct tm tbuf;
  31   int lose = 0;
  32
  33   --argc;
  34   ++argv;
  35
  36   do
  37     {
  38       char buf[BUFSIZ];
  39       if (argc > 0)
  40         {
  41           static char buf[BUFSIZ];
  42           sprintf(buf, "TZ=%s", *argv);
  43           if (putenv(buf))
  44             {
  45               puts("putenv() failed.");
  46               lose = 1;
  47             }
  48         }
  49       tzset();
  50       tbuf.tm_year = 72;
  51       tbuf.tm_mon = 0;
  52       tbuf.tm_mday = 31;
  53       tbuf.tm_hour = 6;
  54       tbuf.tm_min = 14;
  55       tbuf.tm_sec = 50;
  56     doit:;
  57       t = mktime(&tbuf);
  58       if (t == (time_t) -1)
  59         {
  60           puts("mktime() failed?");
  61           lose = 1;
  62         }
  63       tp = localtime(&t);
  64       if (tp == NULL)
  65         {
  66           puts("localtime() failed.");
  67           lose = 1;
  68         }
  69       else if (strftime(buf, sizeof(buf), "%a %b %d %X %Z %Y", tp) == 0)
  70         {
  71           puts("strftime() failed.");
  72           lose = 1;
  73         }
  74       else
  75         puts(buf);
  76       if (tbuf.tm_year == 101)
  77         {
  78           tbuf.tm_year = 97;
  79           tbuf.tm_mon = 0;
  80           goto doit;
  81         }
  82       ++argv;
  83     } while (--argc > 0);
  84
  85   {
  86 #define SIZE    256
  87     char buffer[SIZE];
  88     time_t curtime;
  89     struct tm *loctime;
  90
  91     curtime = time (NULL);
  92
  93     loctime = localtime (&curtime);
  94
  95     fputs (asctime (loctime), stdout);
  96
  97     strftime (buffer, SIZE, "Today is %A, %B %d.\n", loctime);
  98     fputs (buffer, stdout);
  99     strftime (buffer, SIZE, "The time is %I:%M %p.\n", loctime);
 100     fputs (buffer, stdout);
 101   }
 102
 103   exit(lose ? EXIT_FAILURE : EXIT_SUCCESS);
 104 }