home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / unix / volume28 / strftime-6.1 / part01 next >
Encoding:
Text File  |  1994-05-11  |  31.1 KB  |  1,311 lines
  1. Newsgroups: comp.sources.unix
  2. From: arnold@skeeve.atl.ga.us (Arnold Robbins)
  3. Subject: v28i034: strftime - strftime(3) and date(1) implementation, V6.1, Part01/01
  4. Message-id: <1.768719373.27299@gw.home.vix.com>
  5. Sender: unix-sources-moderator@gw.home.vix.com
  6. Approved: vixie@gw.home.vix.com
  7.  
  8. Submitted-By: arnold@skeeve.atl.ga.us (Arnold Robbins)
  9. Posting-Number: Volume 28, Issue 34
  10. Archive-Name: strftime-6.1/part01
  11.  
  12. In Volume 27, Issue 207 our moderator writes:
  13.  
  14. >[ this recurring package is the cleanest, nicest date(1) and strftime(3)
  15. >  i have ever seen, including all free or vendor systems.    --vix ]
  16.  
  17. To which I can only say, "gosh, thanks!".
  18.  
  19. I had written:
  20.  
  21. > It seems to be an annual event, something in the circling of the stars
  22. > overhead, that requires me to post this, at least once a year. (:-)
  23. > 
  24. > I sincerely hope this will be it (at least 'til next year! :-)
  25.  
  26. Alas, it seems to be an annual event that shortly after posting my package,
  27. I also post bug fixes. :-)
  28.  
  29. There are three main fixes here. 1) An update to the date.1 man page to
  30. reflect that POSIX.2 is not in draft any more, 2) Yet another fix to
  31. the %V code, and 3) Portability enhancements if there is no tm_zone
  32. field in the struct tm.
  33.  
  34. Thanks to all who sent mail and helped me track down the ISO 8601 issues.
  35.  
  36. This is strftime 6.1. The package is small enough I'm just reposting the
  37. whole thing.
  38.  
  39. Arnold Robbins -- The Basement Computer        | Laundry increases
  40. Internet: arnold@skeeve.ATL.GA.US        | exponentially in the
  41. UUCP:    emory!skeeve!arnold            | number of children.
  42. Bitnet:    Forget it. Get on a real network.    |    -- Miriam Robbins
  43. ------------------------- cut here ------------------------------------
  44.  
  45. #! /bin/sh
  46. echo - 'README'
  47. cat << 'EOF' > 'README'
  48. Tue May 10 21:43:29 EDT 1994
  49.  
  50. This package implements the Posix 1003.2 date command, as a wrapper around
  51. an extended version of the ANSI strftime(3) library routine.
  52. Everything in it is public domain.
  53.  
  54. Arnold Robbins -- The Basement Computer        | Laundry increases
  55. Internet: arnold@skeeve.ATL.GA.US        | exponentially in the
  56. UUCP:    { gatech, emory }!skeeve!arnold        | number of children.
  57. Bitnet:    Forget it. Get on a real network.    |    -- Miriam Robbins
  58. EOF
  59. echo - 'Makefile'
  60. cat << 'EOF' > 'Makefile'
  61. # Makefile for PD date and strftime
  62.  
  63. SRCS= date.c strftime.c
  64. OBJS= date.o strftime.o
  65. DOCS= date.1 strftime.3
  66.  
  67. # Uncomment the define of HAVE_TZNAME if your system has the tzname[] array.
  68. # Uncomment the define of TM_IN_SYS_TIME if struct tm is in <sys/time.h>.
  69. # Uncomment the define of TM_ZONE if your struct tm has the tm_zone field.
  70. CFLAGS= -O #-DHAVE_TZNAME #-DTM_IN_SYS_TIME #-DHAVE_TM_ZONE
  71.  
  72. date: $(OBJS)
  73.     $(CC) $(CFLAGS) $(OBJS) -o $@
  74.  
  75. date.o: date.c
  76.  
  77. strftime.o: strftime.c
  78. EOF
  79. echo - 'date.c'
  80. cat << 'EOF' > 'date.c'
  81. /*
  82.  * date.c
  83.  *
  84.  * Public domain implementation of Posix 1003.2
  85.  * date command.  Lets strftime() do the dirty work.
  86.  *
  87.  * Arnold Robbins
  88.  * arnold@skeeve.atl.ga.us
  89.  * April, 1991
  90.  *
  91.  * Bug fix courtesy of Chris Ritson (C.R.Ritson@newcastle.ac.uk),
  92.  * February, 1994.
  93.  */
  94.  
  95. #include <stdio.h>
  96. #include <sys/types.h>
  97. #include <time.h>
  98.  
  99. extern char *malloc();
  100. extern size_t strftime();
  101. extern int getopt();
  102. extern int optind;
  103.  
  104. int
  105. main(argc, argv)
  106. int argc;
  107. char **argv;
  108. {
  109.     time_t clock;
  110.     struct tm *now;
  111.     int c, size, ret;
  112.     char *defhow = "%a %b %e %H:%M:%S %Z %Y";
  113.     char *howto = defhow;
  114.     char *buf;
  115.  
  116.     while ((c = getopt(argc, argv, "u")) != -1)
  117.         switch (c) {
  118.         case 'u':
  119.             putenv("TZ=GMT0");
  120.             break;
  121.         default:
  122.             fprintf(stderr, "usage: %s [-u] [+format_str]\n",
  123.                 argv[0]);
  124.             exit(1);
  125.         }
  126.  
  127.     time(& clock);
  128.     now = localtime(& clock);
  129.  
  130.     if (optind < argc && argv[optind][0] == '+')
  131.         howto = & argv[optind][1];
  132.  
  133.     size = strlen(howto) * 10;
  134.     if (size < 26)
  135.         size = 26;
  136.     if ((buf = malloc(size)) == NULL) {
  137.         perror("not enough memory");
  138.         exit(1);
  139.     }
  140.  
  141.     ret = strftime(buf, size, howto, now);
  142.     if (ret != 0)
  143.         printf("%s\n", buf);
  144.     else {
  145.         fprintf(stderr, "conversion failed\n");
  146.         exit(1);
  147.     }
  148.     
  149.     exit(0);
  150. }
  151. EOF
  152. echo - 'strftime.c'
  153. cat << 'EOF' > 'strftime.c'
  154. /*
  155.  * strftime.c
  156.  *
  157.  * Public-domain implementation of ANSI C library routine.
  158.  *
  159.  * It's written in old-style C for maximal portability.
  160.  * However, since I'm used to prototypes, I've included them too.
  161.  *
  162.  * If you want stuff in the System V ascftime routine, add the SYSV_EXT define.
  163.  * For extensions from SunOS, add SUNOS_EXT.
  164.  * For stuff needed to implement the P1003.2 date command, add POSIX2_DATE.
  165.  * For VMS dates, add VMS_EXT.
  166.  * For complete POSIX semantics, add POSIX_SEMANTICS.
  167.  *
  168.  * The code for %c, %x, and %X is my best guess as to what's "appropriate".
  169.  * This version ignores LOCALE information.
  170.  * It also doesn't worry about multi-byte characters.
  171.  * So there.
  172.  *
  173.  * This file is also shipped with GAWK (GNU Awk), gawk specific bits of
  174.  * code are included if GAWK is defined.
  175.  *
  176.  * Arnold Robbins
  177.  * January, February, March, 1991
  178.  * Updated March, April 1992
  179.  * Updated April, 1993
  180.  * Updated February, 1994
  181.  * Updated May, 1994
  182.  *
  183.  * Fixes from ado@elsie.nci.nih.gov
  184.  * February 1991, May 1992
  185.  * Fixes from Tor Lillqvist tml@tik.vtt.fi
  186.  * May, 1993
  187.  * Further fixes from ado@elsie.nci.nih.gov
  188.  * February 1994
  189.  */
  190.  
  191. #ifndef GAWK
  192. #include <stdio.h>
  193. #include <ctype.h>
  194. #include <string.h>
  195. #include <time.h>
  196. #endif
  197. #if defined(TM_IN_SYS_TIME) || ! defined(GAWK)
  198. #include <sys/types.h>
  199. #include <sys/time.h>
  200. #endif
  201.  
  202. /* defaults: season to taste */
  203. #define SYSV_EXT    1    /* stuff in System V ascftime routine */
  204. #define SUNOS_EXT    1    /* stuff in SunOS strftime routine */
  205. #define POSIX2_DATE    1    /* stuff in Posix 1003.2 date command */
  206. #define VMS_EXT        1    /* include %v for VMS date format */
  207. #ifndef GAWK
  208. #define POSIX_SEMANTICS    1    /* call tzset() if TZ changes */
  209. #endif
  210.  
  211. #if defined(POSIX2_DATE)
  212. #if ! defined(SYSV_EXT)
  213. #define SYSV_EXT    1
  214. #endif
  215. #if ! defined(SUNOS_EXT)
  216. #define SUNOS_EXT    1
  217. #endif
  218. #endif
  219.  
  220. #if defined(POSIX2_DATE)
  221. #define adddecl(stuff)    stuff
  222. #else
  223. #define adddecl(stuff)
  224. #endif
  225.  
  226. #undef strchr    /* avoid AIX weirdness */
  227.  
  228. #ifndef __STDC__
  229. #define const    /**/
  230. extern void *malloc();
  231. extern void *realloc();
  232. extern void tzset();
  233. extern char *strchr();
  234. extern char *getenv();
  235. static int weeknumber();
  236. adddecl(static int iso8601wknum();)
  237. #else
  238. extern void *malloc(unsigned count);
  239. extern void *realloc(void *ptr, unsigned count);
  240. extern void tzset(void);
  241. extern char *strchr(const char *str, int ch);
  242. extern char *getenv(const char *v);
  243. static int weeknumber(const struct tm *timeptr, int firstweekday);
  244. adddecl(static int iso8601wknum(const struct tm *timeptr);)
  245. #endif
  246.  
  247. #ifdef __GNUC__
  248. #define inline    __inline__
  249. #else
  250. #define inline    /**/
  251. #endif
  252.  
  253. #define range(low, item, hi)    max(low, min(item, hi))
  254.  
  255. #if !defined(OS2) && !defined(MSDOS) && defined(HAVE_TZNAME)
  256. extern char *tzname[2];
  257. extern int daylight;
  258. #endif
  259.  
  260. /* min --- return minimum of two numbers */
  261.  
  262. #ifndef __STDC__
  263. static inline int
  264. min(a, b)
  265. int a, b;
  266. #else
  267. static inline int
  268. min(int a, int b)
  269. #endif
  270. {
  271.     return (a < b ? a : b);
  272. }
  273.  
  274. /* max --- return maximum of two numbers */
  275.  
  276. #ifndef __STDC__
  277. static inline int
  278. max(a, b)
  279. int a, b;
  280. #else
  281. static inline int
  282. max(int a, int b)
  283. #endif
  284. {
  285.     return (a > b ? a : b);
  286. }
  287.  
  288. /* strftime --- produce formatted time */
  289.  
  290. #ifndef __STDC__
  291. size_t
  292. strftime(s, maxsize, format, timeptr)
  293. char *s;
  294. size_t maxsize;
  295. const char *format;
  296. const struct tm *timeptr;
  297. #else
  298. size_t
  299. strftime(char *s, size_t maxsize, const char *format, const struct tm *timeptr)
  300. #endif
  301. {
  302.     char *endp = s + maxsize;
  303.     char *start = s;
  304.     auto char tbuf[100];
  305.     int i;
  306.     static short first = 1;
  307. #ifdef POSIX_SEMANTICS
  308.     static char *savetz = NULL;
  309.     static int savetzlen = 0;
  310.     char *tz;
  311. #endif /* POSIX_SEMANTICS */
  312. #ifndef HAVE_TM_ZONE
  313.     extern char *timezone();
  314.     struct timeval tv;
  315.     struct timezone zone;
  316. #endif /* HAVE_TM_ZONE */
  317.  
  318.     /* various tables, useful in North America */
  319.     static const char *days_a[] = {
  320.         "Sun", "Mon", "Tue", "Wed",
  321.         "Thu", "Fri", "Sat",
  322.     };
  323.     static const char *days_l[] = {
  324.         "Sunday", "Monday", "Tuesday", "Wednesday",
  325.         "Thursday", "Friday", "Saturday",
  326.     };
  327.     static const char *months_a[] = {
  328.         "Jan", "Feb", "Mar", "Apr", "May", "Jun",
  329.         "Jul", "Aug", "Sep", "Oct", "Nov", "Dec",
  330.     };
  331.     static const char *months_l[] = {
  332.         "January", "February", "March", "April",
  333.         "May", "June", "July", "August", "September",
  334.         "October", "November", "December",
  335.     };
  336.     static const char *ampm[] = { "AM", "PM", };
  337.  
  338.     if (s == NULL || format == NULL || timeptr == NULL || maxsize == 0)
  339.         return 0;
  340.  
  341.     /* quick check if we even need to bother */
  342.     if (strchr(format, '%') == NULL && strlen(format) + 1 >= maxsize)
  343.         return 0;
  344.  
  345. #ifndef POSIX_SEMANTICS
  346.     if (first) {
  347.         tzset();
  348.         first = 0;
  349.     }
  350. #else    /* POSIX_SEMANTICS */
  351.     tz = getenv("TZ");
  352.     if (first) {
  353.         if (tz != NULL) {
  354.             int tzlen = strlen(tz);
  355.  
  356.             savetz = (char *) malloc(tzlen + 1);
  357.             if (savetz != NULL) {
  358.                 savetzlen = tzlen + 1;
  359.                 strcpy(savetz, tz);
  360.             }
  361.         }
  362.         tzset();
  363.         first = 0;
  364.     }
  365.     /* if we have a saved TZ, and it is different, recapture and reset */
  366.     if (tz && savetz && (tz[0] != savetz[0] || strcmp(tz, savetz) != 0)) {
  367.         i = strlen(tz) + 1;
  368.         if (i > savetzlen) {
  369.             savetz = (char *) realloc(savetz, i);
  370.             if (savetz) {
  371.                 savetzlen = i;
  372.                 strcpy(savetz, tz);
  373.             }
  374.         } else
  375.             strcpy(savetz, tz);
  376.         tzset();
  377.     }
  378. #endif    /* POSIX_SEMANTICS */
  379.  
  380.     for (; *format && s < endp - 1; format++) {
  381.         tbuf[0] = '\0';
  382.         if (*format != '%') {
  383.             *s++ = *format;
  384.             continue;
  385.         }
  386.     again:
  387.         switch (*++format) {
  388.         case '\0':
  389.             *s++ = '%';
  390.             goto out;
  391.  
  392.         case '%':
  393.             *s++ = '%';
  394.             continue;
  395.  
  396.         case 'a':    /* abbreviated weekday name */
  397.             if (timeptr->tm_wday < 0 || timeptr->tm_wday > 6)
  398.                 strcpy(tbuf, "?");
  399.             else
  400.                 strcpy(tbuf, days_a[timeptr->tm_wday]);
  401.             break;
  402.  
  403.         case 'A':    /* full weekday name */
  404.             if (timeptr->tm_wday < 0 || timeptr->tm_wday > 6)
  405.                 strcpy(tbuf, "?");
  406.             else
  407.                 strcpy(tbuf, days_l[timeptr->tm_wday]);
  408.             break;
  409.  
  410. #ifdef SYSV_EXT
  411.         case 'h':    /* abbreviated month name */
  412. #endif
  413.         case 'b':    /* abbreviated month name */
  414.             if (timeptr->tm_mon < 0 || timeptr->tm_mon > 11)
  415.                 strcpy(tbuf, "?");
  416.             else
  417.                 strcpy(tbuf, months_a[timeptr->tm_mon]);
  418.             break;
  419.  
  420.         case 'B':    /* full month name */
  421.             if (timeptr->tm_mon < 0 || timeptr->tm_mon > 11)
  422.                 strcpy(tbuf, "?");
  423.             else
  424.                 strcpy(tbuf, months_l[timeptr->tm_mon]);
  425.             break;
  426.  
  427.         case 'c':    /* appropriate date and time representation */
  428.             sprintf(tbuf, "%s %s %2d %02d:%02d:%02d %d",
  429.                 days_a[range(0, timeptr->tm_wday, 6)],
  430.                 months_a[range(0, timeptr->tm_mon, 11)],
  431.                 range(1, timeptr->tm_mday, 31),
  432.                 range(0, timeptr->tm_hour, 23),
  433.                 range(0, timeptr->tm_min, 59),
  434.                 range(0, timeptr->tm_sec, 61),
  435.                 timeptr->tm_year + 1900);
  436.             break;
  437.  
  438.         case 'd':    /* day of the month, 01 - 31 */
  439.             i = range(1, timeptr->tm_mday, 31);
  440.             sprintf(tbuf, "%02d", i);
  441.             break;
  442.  
  443.         case 'H':    /* hour, 24-hour clock, 00 - 23 */
  444.             i = range(0, timeptr->tm_hour, 23);
  445.             sprintf(tbuf, "%02d", i);
  446.             break;
  447.  
  448.         case 'I':    /* hour, 12-hour clock, 01 - 12 */
  449.             i = range(0, timeptr->tm_hour, 23);
  450.             if (i == 0)
  451.                 i = 12;
  452.             else if (i > 12)
  453.                 i -= 12;
  454.             sprintf(tbuf, "%02d", i);
  455.             break;
  456.  
  457.         case 'j':    /* day of the year, 001 - 366 */
  458.             sprintf(tbuf, "%03d", timeptr->tm_yday + 1);
  459.             break;
  460.  
  461.         case 'm':    /* month, 01 - 12 */
  462.             i = range(0, timeptr->tm_mon, 11);
  463.             sprintf(tbuf, "%02d", i + 1);
  464.             break;
  465.  
  466.         case 'M':    /* minute, 00 - 59 */
  467.             i = range(0, timeptr->tm_min, 59);
  468.             sprintf(tbuf, "%02d", i);
  469.             break;
  470.  
  471.         case 'p':    /* am or pm based on 12-hour clock */
  472.             i = range(0, timeptr->tm_hour, 23);
  473.             if (i < 12)
  474.                 strcpy(tbuf, ampm[0]);
  475.             else
  476.                 strcpy(tbuf, ampm[1]);
  477.             break;
  478.  
  479.         case 'S':    /* second, 00 - 61 */
  480.             i = range(0, timeptr->tm_sec, 61);
  481.             sprintf(tbuf, "%02d", i);
  482.             break;
  483.  
  484.         case 'U':    /* week of year, Sunday is first day of week */
  485.             sprintf(tbuf, "%02d", weeknumber(timeptr, 0));
  486.             break;
  487.  
  488.         case 'w':    /* weekday, Sunday == 0, 0 - 6 */
  489.             i = range(0, timeptr->tm_wday, 6);
  490.             sprintf(tbuf, "%d", i);
  491.             break;
  492.  
  493.         case 'W':    /* week of year, Monday is first day of week */
  494.             sprintf(tbuf, "%02d", weeknumber(timeptr, 1));
  495.             break;
  496.  
  497.         case 'x':    /* appropriate date representation */
  498.             sprintf(tbuf, "%s %s %2d %d",
  499.                 days_a[range(0, timeptr->tm_wday, 6)],
  500.                 months_a[range(0, timeptr->tm_mon, 11)],
  501.                 range(1, timeptr->tm_mday, 31),
  502.                 timeptr->tm_year + 1900);
  503.             break;
  504.  
  505.         case 'X':    /* appropriate time representation */
  506.             sprintf(tbuf, "%02d:%02d:%02d",
  507.                 range(0, timeptr->tm_hour, 23),
  508.                 range(0, timeptr->tm_min, 59),
  509.                 range(0, timeptr->tm_sec, 61));
  510.             break;
  511.  
  512.         case 'y':    /* year without a century, 00 - 99 */
  513.             i = timeptr->tm_year % 100;
  514.             sprintf(tbuf, "%02d", i);
  515.             break;
  516.  
  517.         case 'Y':    /* year with century */
  518.             sprintf(tbuf, "%d", 1900 + timeptr->tm_year);
  519.             break;
  520.  
  521.         case 'Z':    /* time zone name or abbrevation */
  522. #ifdef HAVE_TZNAME
  523.             i = (daylight && timeptr->tm_isdst);    /* 0 or 1 */
  524.             strcpy(tbuf, tzname[i]);
  525. #else
  526. #ifdef HAVE_TM_ZONE
  527.             strcpy(tbuf, timeptr->tm_zone);
  528. #else
  529.             gettimeofday(& tv, & zone);
  530.             strcpy(tbuf, timezone(zone.tz_minuteswest,
  531.                         timeptr->tm_isdst));
  532. #endif
  533. #endif
  534.             break;
  535.  
  536. #ifdef SYSV_EXT
  537.         case 'n':    /* same as \n */
  538.             tbuf[0] = '\n';
  539.             tbuf[1] = '\0';
  540.             break;
  541.  
  542.         case 't':    /* same as \t */
  543.             tbuf[0] = '\t';
  544.             tbuf[1] = '\0';
  545.             break;
  546.  
  547.         case 'D':    /* date as %m/%d/%y */
  548.             strftime(tbuf, sizeof tbuf, "%m/%d/%y", timeptr);
  549.             break;
  550.  
  551.         case 'e':    /* day of month, blank padded */
  552.             sprintf(tbuf, "%2d", range(1, timeptr->tm_mday, 31));
  553.             break;
  554.  
  555.         case 'r':    /* time as %I:%M:%S %p */
  556.             strftime(tbuf, sizeof tbuf, "%I:%M:%S %p", timeptr);
  557.             break;
  558.  
  559.         case 'R':    /* time as %H:%M */
  560.             strftime(tbuf, sizeof tbuf, "%H:%M", timeptr);
  561.             break;
  562.  
  563.         case 'T':    /* time as %H:%M:%S */
  564.             strftime(tbuf, sizeof tbuf, "%H:%M:%S", timeptr);
  565.             break;
  566. #endif
  567.  
  568. #ifdef SUNOS_EXT
  569.         case 'k':    /* hour, 24-hour clock, blank pad */
  570.             sprintf(tbuf, "%2d", range(0, timeptr->tm_hour, 23));
  571.             break;
  572.  
  573.         case 'l':    /* hour, 12-hour clock, 1 - 12, blank pad */
  574.             i = range(0, timeptr->tm_hour, 23);
  575.             if (i == 0)
  576.                 i = 12;
  577.             else if (i > 12)
  578.                 i -= 12;
  579.             sprintf(tbuf, "%2d", i);
  580.             break;
  581. #endif
  582.  
  583.  
  584. #ifdef VMS_EXT
  585.         case 'v':    /* date as dd-bbb-YYYY */
  586.             sprintf(tbuf, "%02d-%3.3s-%4d",
  587.                 range(1, timeptr->tm_mday, 31),
  588.                 months_a[range(0, timeptr->tm_mon, 11)],
  589.                 timeptr->tm_year + 1900);
  590.             for (i = 3; i < 6; i++)
  591.                 if (islower(tbuf[i]))
  592.                     tbuf[i] = toupper(tbuf[i]);
  593.             break;
  594. #endif
  595.  
  596.  
  597. #ifdef POSIX2_DATE
  598.         case 'C':
  599.             sprintf(tbuf, "%02d", (timeptr->tm_year + 1900) / 100);
  600.             break;
  601.  
  602.  
  603.         case 'E':
  604.         case 'O':
  605.             /* POSIX locale extensions, ignored for now */
  606.             goto again;
  607.  
  608.         case 'V':    /* week of year according ISO 8601 */
  609. #if defined(GAWK) && defined(VMS_EXT)
  610.         {
  611.             extern int do_lint;
  612.             extern void warning();
  613.             static int warned = 0;
  614.  
  615.             if (! warned && do_lint) {
  616.                 warned = 1;
  617.                 warning(
  618.     "conversion %%V added in P1003.2; for VMS style date, use %%v");
  619.             }
  620.         }
  621. #endif
  622.             sprintf(tbuf, "%02d", iso8601wknum(timeptr));
  623.             break;
  624.  
  625.         case 'u':
  626.         /* ISO 8601: Weekday as a decimal number [1 (Monday) - 7] */
  627.             sprintf(tbuf, "%d", timeptr->tm_wday == 0 ? 7 :
  628.                     timeptr->tm_wday);
  629.             break;
  630. #endif    /* POSIX2_DATE */
  631.         default:
  632.             tbuf[0] = '%';
  633.             tbuf[1] = *format;
  634.             tbuf[2] = '\0';
  635.             break;
  636.         }
  637.         i = strlen(tbuf);
  638.         if (i) {
  639.             if (s + i < endp - 1) {
  640.                 strcpy(s, tbuf);
  641.                 s += i;
  642.             } else
  643.                 return 0;
  644.         }
  645.     }
  646. out:
  647.     if (s < endp && *format == '\0') {
  648.         *s = '\0';
  649.         return (s - start);
  650.     } else
  651.         return 0;
  652. }
  653.  
  654. /* isleap --- is a year a leap year? */
  655.  
  656. #ifndef __STDC__
  657. static int
  658. isleap(year)
  659. int year;
  660. #else
  661. static int
  662. isleap(int year)
  663. #endif
  664. {
  665.     return ((year % 4 == 0 && year % 100 != 0) || year % 400 == 0);
  666. }
  667.  
  668.  
  669. #ifdef POSIX2_DATE
  670. /* iso8601wknum --- compute week number according to ISO 8601 */
  671.  
  672. #ifndef __STDC__
  673. static int
  674. iso8601wknum(timeptr)
  675. const struct tm *timeptr;
  676. #else
  677. static int
  678. iso8601wknum(const struct tm *timeptr)
  679. #endif
  680. {
  681.     /*
  682.      * From 1003.2:
  683.      *    If the week (Monday to Sunday) containing January 1
  684.      *    has four or more days in the new year, then it is week 1;
  685.      *    otherwise it is the highest numbered week of the previous
  686.      *    (52 or 53) year, and the next week is week 1.
  687.      *
  688.      * ADR: This means if Jan 1 was Monday through Thursday,
  689.      *    it was week 1, otherwise week 52 or 53.
  690.      *
  691.      * XPG4 erroneously included POSIX.2 rationale text in the
  692.      * main body of the standard. Thus it requires week 53.
  693.      */
  694.  
  695.     int weeknum, jan1day, diff;
  696.  
  697.     /* get week number, Monday as first day of the week */
  698.     weeknum = weeknumber(timeptr, 1);
  699.  
  700.     /*
  701.      * With thanks and tip of the hatlo to tml@tik.vtt.fi
  702.      *
  703.      * What day of the week does January 1 fall on?
  704.      * We know that
  705.      *    (timeptr->tm_yday - jan1.tm_yday) MOD 7 ==
  706.      *        (timeptr->tm_wday - jan1.tm_wday) MOD 7
  707.      * and that
  708.      *     jan1.tm_yday == 0
  709.      * and that
  710.      *     timeptr->tm_wday MOD 7 == timeptr->tm_wday
  711.      * from which it follows that. . .
  712.       */
  713.     jan1day = timeptr->tm_wday - (timeptr->tm_yday % 7);
  714.     if (jan1day < 0)
  715.         jan1day += 7;
  716.  
  717.     /*
  718.      * If Jan 1 was a Monday through Thursday, it was in
  719.      * week 1.  Otherwise it was last year's highest week, which is
  720.      * this year's week 0.
  721.      *
  722.      * What does that mean?
  723.      * If Jan 1 was Monday, the week number is exactly right, it can
  724.      *    never be 0.
  725.      * If it was Tuesday through Thursday, the weeknumber is one
  726.      *    less than it should be, so we add one.
  727.      * Otherwise, Friday, Saturday or Sunday, the week number is
  728.      * OK, but if it is 0, it needs to be 52 or 53.
  729.      */
  730.     switch (jan1day) {
  731.     case 1:        /* Monday */
  732.         break;
  733.     case 2:        /* Tuesday */
  734.     case 3:        /* Wednedsday */
  735.     case 4:        /* Thursday */
  736.         weeknum++;
  737.         break;
  738.     case 5:        /* Friday */
  739.     case 6:        /* Saturday */
  740.     case 0:        /* Sunday */
  741.         if (weeknum == 0) {
  742. #ifdef USE_BROKEN_XPG4
  743.             /* XPG4 (as of March 1994) says 53 unconditionally */
  744.             weeknum = 53;
  745. #else
  746.             /* get week number of last week of last year */
  747.             struct tm dec31ly;    /* 12/31 last year */
  748.             dec31ly = *timeptr;
  749.             dec31ly.tm_year--;
  750.             dec31ly.tm_mon = 11;
  751.             dec31ly.tm_mday = 31;
  752.             dec31ly.tm_wday = (jan1day == 0) ? 6 : jan1day - 1;
  753.             dec31ly.tm_yday = 364 + isleap(dec31ly.tm_year + 1900);
  754.             weeknum = iso8601wknum(& dec31ly);
  755. #endif
  756.         }
  757.         break;
  758.     }
  759.     return weeknum;
  760. }
  761. #endif
  762.  
  763. /* weeknumber --- figure how many weeks into the year */
  764.  
  765. /* With thanks and tip of the hatlo to ado@elsie.nci.nih.gov */
  766.  
  767. #ifndef __STDC__
  768. static int
  769. weeknumber(timeptr, firstweekday)
  770. const struct tm *timeptr;
  771. int firstweekday;
  772. #else
  773. static int
  774. weeknumber(const struct tm *timeptr, int firstweekday)
  775. #endif
  776. {
  777.     int wday = timeptr->tm_wday;
  778.     int ret;
  779.  
  780.     if (firstweekday == 1) {
  781.         if (wday == 0)    /* sunday */
  782.             wday = 6;
  783.         else
  784.             wday--;
  785.     }
  786.     ret = ((timeptr->tm_yday + 7 - wday) / 7);
  787.     if (ret < 0)
  788.         ret = 0;
  789.     return ret;
  790. }
  791.  
  792. #if 0
  793. /* ADR --- I'm loathe to mess with ado's code ... */
  794.  
  795. Date:         Wed, 24 Apr 91 20:54:08 MDT
  796. From: Michal Jaegermann <audfax!emory!vm.ucs.UAlberta.CA!NTOMCZAK>
  797. To: arnold@audiofax.com
  798.  
  799. Hi Arnold,
  800. in a process of fixing of strftime() in libraries on Atari ST I grabbed
  801. some pieces of code from your own strftime.  When doing that it came
  802. to mind that your weeknumber() function compiles a little bit nicer
  803. in the following form:
  804. /*
  805.  * firstweekday is 0 if starting in Sunday, non-zero if in Monday
  806.  */
  807. {
  808.     return (timeptr->tm_yday - timeptr->tm_wday +
  809.         (firstweekday ? (timeptr->tm_wday ? 8 : 1) : 7)) / 7;
  810. }
  811. How nicer it depends on a compiler, of course, but always a tiny bit.
  812.  
  813.    Cheers,
  814.    Michal
  815.    ntomczak@vm.ucs.ualberta.ca
  816. #endif
  817.  
  818. #ifdef    TEST_STRFTIME
  819.  
  820. /*
  821.  * NAME:
  822.  *    tst
  823.  *
  824.  * SYNOPSIS:
  825.  *    tst
  826.  *
  827.  * DESCRIPTION:
  828.  *    "tst" is a test driver for the function "strftime".
  829.  *
  830.  * OPTIONS:
  831.  *    None.
  832.  *
  833.  * AUTHOR:
  834.  *    Karl Vogel
  835.  *    Control Data Systems, Inc.
  836.  *    vogelke@c-17igp.wpafb.af.mil
  837.  *
  838.  * BUGS:
  839.  *    None noticed yet.
  840.  *
  841.  * COMPILE:
  842.  *    cc -o tst -DTEST_STRFTIME strftime.c
  843.  */
  844.  
  845. /* ADR: I reformatted this to my liking, and deleted some unneeded code. */
  846.  
  847. #ifndef NULL
  848. #include    <stdio.h>
  849. #endif
  850. #include    <sys/time.h>
  851. #include    <string.h>
  852.  
  853. #define        MAXTIME        132
  854.  
  855. /*
  856.  * Array of time formats.
  857.  */
  858.  
  859. static char *array[] =
  860. {
  861.     "(%%A)      full weekday name, var length (Sunday..Saturday)  %A",
  862.     "(%%B)       full month name, var length (January..December)  %B",
  863.     "(%%C)                                               Century  %C",
  864.     "(%%D)                                       date (%%m/%%d/%%y)  %D",
  865.     "(%%E)                           Locale extensions (ignored)  %E",
  866.     "(%%H)                          hour (24-hour clock, 00..23)  %H",
  867.     "(%%I)                          hour (12-hour clock, 01..12)  %I",
  868.     "(%%M)                                       minute (00..59)  %M",
  869.     "(%%O)                           Locale extensions (ignored)  %O",
  870.     "(%%R)                                 time, 24-hour (%%H:%%M)  %R",
  871.     "(%%S)                                       second (00..61)  %S",
  872.     "(%%T)                              time, 24-hour (%%H:%%M:%%S)  %T",
  873.     "(%%U)    week of year, Sunday as first day of week (00..53)  %U",
  874.     "(%%V)                    week of year according to ISO 8601  %V",
  875.     "(%%W)    week of year, Monday as first day of week (00..53)  %W",
  876.     "(%%X)     appropriate locale time representation (%H:%M:%S)  %X",
  877.     "(%%Y)                           year with century (1970...)  %Y",
  878.     "(%%Z) timezone (EDT), or blank if timezone not determinable  %Z",
  879.     "(%%a)          locale's abbreviated weekday name (Sun..Sat)  %a",
  880.     "(%%b)            locale's abbreviated month name (Jan..Dec)  %b",
  881.     "(%%c)           full date (Sat Nov  4 12:02:33 1989)%n%t%t%t  %c",
  882.     "(%%d)                             day of the month (01..31)  %d",
  883.     "(%%e)               day of the month, blank-padded ( 1..31)  %e",
  884.     "(%%h)                                should be same as (%%b)  %h",
  885.     "(%%j)                            day of the year (001..366)  %j",
  886.     "(%%k)               hour, 24-hour clock, blank pad ( 0..23)  %k",
  887.     "(%%l)               hour, 12-hour clock, blank pad ( 0..12)  %l",
  888.     "(%%m)                                        month (01..12)  %m",
  889.     "(%%p)              locale's AM or PM based on 12-hour clock  %p",
  890.     "(%%r)                   time, 12-hour (same as %%I:%%M:%%S %%p)  %r",
  891.     "(%%u) ISO 8601: Weekday as decimal number [1 (Monday) - 7]   %u",
  892.     "(%%v)                                VAX date (dd-bbb-YYYY)  %v",
  893.     "(%%w)                       day of week (0..6, Sunday == 0)  %w",
  894.     "(%%x)                appropriate locale date representation  %x",
  895.     "(%%y)                      last two digits of year (00..99)  %y",
  896.     (char *) NULL
  897. };
  898.  
  899. /* main routine. */
  900.  
  901. int
  902. main(argc, argv)
  903. int argc;
  904. char **argv;
  905. {
  906.     long time();
  907.  
  908.     char *next;
  909.     char string[MAXTIME];
  910.  
  911.     int k;
  912.     int length;
  913.  
  914.     struct tm *tm;
  915.  
  916.     long clock;
  917.  
  918.     /* Call the function. */
  919.  
  920.     clock = time((long *) 0);
  921.     tm = localtime(&clock);
  922.  
  923.     for (k = 0; next = array[k]; k++) {
  924.         length = strftime(string, MAXTIME, next, tm);
  925.         printf("%s\n", string);
  926.     }
  927.  
  928.     exit(0);
  929. }
  930. #endif    /* TEST_STRFTIME */
  931. EOF
  932. echo - 'date.1'
  933. cat << 'EOF' > 'date.1'
  934. .TH DATE 1
  935. .SH NAME
  936. date \- write the date and time
  937. .SH SYNOPSIS
  938. .B date
  939. [
  940. .B \-u
  941. ] [
  942. .RI + format
  943. ]
  944. .SH DESCRIPTION
  945. .I Date
  946. writes the current date and time to the standard output.
  947. It is intended to be compliant with the Posix
  948. 1003.2 Command Language and Utilities standard.
  949. Therefore, it is purposely
  950. .I not
  951. usable by the super-user for setting the system time.
  952. .LP
  953. .I Date
  954. accepts one option:
  955. .TP
  956. .B \-u
  957. Perform operations as if the
  958. .B TZ
  959. environment variable was set to
  960. .BR GMT0 .
  961. .LP
  962. If an argument to 
  963. .I date
  964. is given that begins with a ``+'',
  965. then the output is controlled by the contents of the rest of
  966. the string.  Normal text is output unmodified, while field descriptors
  967. in the format string are substituted for.
  968. .LP
  969. The
  970. .I date
  971. program is essentially a wrapper around
  972. .IR strftime (3);
  973. see there for a description of the available formatting options.
  974. .LP
  975. If no format string is given, or if it does not begin with a ``+'',
  976. then the default format of \fB"%a %b %e %H:%M:%S %Z %Y"\fR will
  977. be used.  This produces the traditional style of output, such as
  978. ``Sun Mar 17 10:32:47 EST 1991''.
  979. .SH SEE ALSO
  980. time(2), strftime(3), localtime(3)
  981. .SH BUGS
  982. This version only works for the POSIX locale.
  983. .SH AUTHOR
  984. .nf
  985. Arnold Robbins
  986. .sp
  987. INTERNET: arnold@skeeve.atl.ga.us
  988. UUCP:     emory!skeeve!arnold
  989. Phone:    +1 404 248 9324
  990. .fi
  991. EOF
  992. echo - 'strftime.3'
  993. cat << 'EOF' > 'strftime.3'
  994. .TH STRFTIME 3
  995. .SH NAME
  996. strftime \- generate formatted time information
  997. .SH SYNOPSIS
  998. .ft B
  999. .nf
  1000. #include <sys/types.h>
  1001. #include <time.h>
  1002. .sp
  1003. size_t strftime(char *s, size_t maxsize, const char *format,
  1004.     const struct tm *timeptr);
  1005. .SH DESCRIPTION
  1006. The following description is transcribed verbatim from the December 7, 1988
  1007. draft standard for ANSI C.
  1008. This draft is essentially identical in technical content
  1009. to the final version of the standard.
  1010. .LP
  1011. The
  1012. .B strftime
  1013. function places characters into the array pointed to by
  1014. .B s
  1015. as controlled by the string pointed to by
  1016. .BR format .
  1017. The format shall be a multibyte character sequence, beginning and ending in
  1018. its initial shift state.
  1019. The
  1020. .B format
  1021. string consists of zero or more conversion specifiers and ordinary
  1022. multibyte characters.  A conversion specifier consists of a
  1023. .B %
  1024. character followed by a character that determines the behavior of the
  1025. conversion specifier.
  1026. All ordinary multibyte characters (including the terminating null
  1027. character) are copied unchanged into the array.
  1028. If copying takes place between objects that overlap the behavior is undefined.
  1029. No more than
  1030. .B maxsize
  1031. characters are placed into the array.
  1032. Each conversion specifier is replaced by appropriate characters as described
  1033. in the following list.
  1034. The appropriate characters are determined by the
  1035. .B LC_TIME
  1036. category of the current locale and by the values contained in the
  1037. structure pointed to by
  1038. .BR timeptr .
  1039. .TP
  1040. .B %a
  1041. is replaced by the locale's abbreviated weekday name.
  1042. .TP
  1043. .B %A
  1044. is replaced by the locale's full weekday name.
  1045. .TP
  1046. .B %b
  1047. is replaced by the locale's abbreviated month name.
  1048. .TP
  1049. .B %B
  1050. is replaced by the locale's full month name.
  1051. .TP
  1052. .B %c
  1053. is replaced by the locale's appropriate date and time representation.
  1054. .TP
  1055. .B %d
  1056. is replaced by the day of the month as a decimal number
  1057. .RB ( 01 - 31 ).
  1058. .TP
  1059. .B %H
  1060. is replaced by the hour (24-hour clock) as a decimal number
  1061. .RB ( 00 - 23 ).
  1062. .TP
  1063. .B %I
  1064. is replaced by the hour (12-hour clock) as a decimal number
  1065. .RB ( 01 - 12 ).
  1066. .TP
  1067. .B %j
  1068. is replaced by the day of the year as a decimal number
  1069. .RB ( 001 - 366 ).
  1070. .TP
  1071. .B %m
  1072. is replaced by the month as a decimal number
  1073. .RB ( 01 - 12 ).
  1074. .TP
  1075. .B %M
  1076. is replaced by the minute as a decimal number
  1077. .RB ( 00 - 59 ).
  1078. .TP
  1079. .B %p
  1080. is replaced by the locale's equivalent of the AM/PM designations associated
  1081. with a 12-hour clock.
  1082. .TP
  1083. .B %S
  1084. is replaced by the second as a decimal number
  1085. .RB ( 00 - 61 ).
  1086. .TP
  1087. .B %U
  1088. is replaced by the week number of the year (the first Sunday as the first
  1089. day of week 1) as a decimal number
  1090. .RB ( 00 - 53 ).
  1091. .TP
  1092. .B %w
  1093. is replaced by the weekday as a decimal number
  1094. .RB [ "0 " (Sunday)- 6 ].
  1095. .TP
  1096. .B %W
  1097. is replaced by the week number of the year (the first Monday as the first
  1098. day of week 1) as a decimal number
  1099. .RB ( 00 - 53 ).
  1100. .TP
  1101. .B %x
  1102. is replaced by the locale's appropriate date representation.
  1103. .TP
  1104. .B %X
  1105. is replaced by the locale's appropriate time representation.
  1106. .TP
  1107. .B %y
  1108. is replaced by the year without century as a decimal number
  1109. .RB ( 00 - 99 ).
  1110. .TP
  1111. .B %Y
  1112. is replaced by the year with century as a decimal number.
  1113. .TP
  1114. .B %Z
  1115. is replaced by the time zone name or abbreviation, or by no characters if
  1116. no time zone is determinable.
  1117. .TP
  1118. .B %%
  1119. is replaced by
  1120. .BR % .
  1121. .LP
  1122. If a conversion specifier is not one of the above, the behavior is
  1123. undefined.
  1124. .SH RETURNS
  1125. If the total number of resulting characters including the terminating null
  1126. character is not more than
  1127. .BR maxsize ,
  1128. the
  1129. .B strftime
  1130. function returns the number of characters placed into the array pointed to
  1131. by
  1132. .B s
  1133. not including the terminating null character.
  1134. Otherwise, zero is returned and the contents of the array are indeterminate.
  1135. .SH NON-ANSI EXTENSIONS
  1136. If
  1137. .B SYSV_EXT
  1138. is defined when the routine is compiled, then the following additional
  1139. conversions will be available.
  1140. These are borrowed from the System V
  1141. .IR cftime (3)
  1142. and
  1143. .IR ascftime (3)
  1144. routines.
  1145. .TP
  1146. .B %D
  1147. is equivalent to specifying
  1148. .BR %m/%d/%y .
  1149. .TP
  1150. .B %e
  1151. is replaced by the day of the month,
  1152. padded with a blank if it is only one digit.
  1153. .TP
  1154. .B %h
  1155. is equivalent to
  1156. .BR %b ,
  1157. above.
  1158. .TP
  1159. .B %n
  1160. is replaced with a newline character (\s-1ASCII LF\s+1).
  1161. .TP
  1162. .B %r
  1163. is equivalent to specifying
  1164. .BR "%I:%M:%S %p" .
  1165. .TP
  1166. .B %R
  1167. is equivalent to specifying
  1168. .BR %H:%M .
  1169. .TP
  1170. .B %T
  1171. is equivalent to specifying
  1172. .BR %H:%M:%S .
  1173. .TP
  1174. .B %t
  1175. is replaced with a \s-1TAB\s+1 character.
  1176. .PP
  1177. If
  1178. .B SUNOS_EXT
  1179. is defined when the routine is compiled, then the following additional
  1180. conversions will be available.
  1181. These are borrowed from the SunOS version of
  1182. .IR strftime .
  1183. .TP
  1184. .B %k
  1185. is replaced by the hour (24-hour clock) as a decimal number
  1186. .RB ( 0 - 23 ).
  1187. Single digit numbers are padded with a blank.
  1188. .TP
  1189. .B %l
  1190. is replaced by the hour (12-hour clock) as a decimal number
  1191. .RB ( 1 - 12 ).
  1192. Single digit numbers are padded with a blank.
  1193. .SH POSIX 1003.2 EXTENSIONS
  1194. If
  1195. .B POSIX2_DATE
  1196. is defined, then all of the conversions available with
  1197. .B SYSV_EXT
  1198. and
  1199. .B SUNOS_EXT
  1200. are available, as well as the
  1201. following additional conversions:
  1202. .TP
  1203. .B %C
  1204. The century, as a number between 00 and 99.
  1205. .TP
  1206. .B %u
  1207. is replaced by the weekday as a decimal number
  1208. .RB [ "1 " (Monday)- 7 ].
  1209. .TP
  1210. .B %V
  1211. is replaced by the week number of the year (the first Monday as the first
  1212. day of week 1) as a decimal number
  1213. .RB ( 01 - 53 ).
  1214. The method for determining the week number is as specified by ISO 8601
  1215. (to wit: if the week containing January 1 has four or more days in the
  1216. new year, then it is week 1, otherwise it is the highest numbered
  1217. week of the previous year (52 or 53)
  1218. and the next week is week 1).
  1219. .LP
  1220. The text of the POSIX standard for the
  1221. .I date
  1222. utility describes
  1223. .B %U
  1224. and
  1225. .B %W
  1226. this way:
  1227. .TP
  1228. .B %U
  1229. is replaced by the week number of the year (the first Sunday as the first
  1230. day of week 1) as a decimal number
  1231. .RB ( 00 - 53 ).
  1232. All days in a new year preceding the first Sunday are considered to be
  1233. in week 0.
  1234. .TP
  1235. .B %W
  1236. is replaced by the week number of the year (the first Monday as the first
  1237. day of week 1) as a decimal number
  1238. .RB ( 00 - 53 ).
  1239. All days in a new year preceding the first Monday are considered to be
  1240. in week 0.
  1241. .LP
  1242. In addition, the alternate representations
  1243. .BR %Ec ,
  1244. .BR %EC ,
  1245. .BR %Ex ,
  1246. .BR %Ey ,
  1247. .BR %EY ,
  1248. .BR %Od ,
  1249. .BR %Oe ,
  1250. .BR %OH ,
  1251. .BR %OI ,
  1252. .BR %Om ,
  1253. .BR %OM ,
  1254. .BR %OS ,
  1255. .BR %Ou ,
  1256. .BR %OU ,
  1257. .BR %OV ,
  1258. .BR %Ow ,
  1259. .BR %OW ,
  1260. and
  1261. .B %Oy
  1262. are recognized, but their normal representations are used.
  1263. .SH VMS EXTENSIONS
  1264. If
  1265. .B VMS_EXT
  1266. is defined, then the following additional conversion is available:
  1267. .TP
  1268. .B %v
  1269. The date in VMS format (e.g. 20-JUN-1991).
  1270. .SH SEE ALSO
  1271. .IR time (2),
  1272. .IR ctime (3),
  1273. .IR localtime (3),
  1274. .IR tzset (3)
  1275. .SH BUGS
  1276. This version does not handle multibyte characters or pay attention to the
  1277. setting of the
  1278. .B LC_TIME
  1279. environment variable.
  1280. .LP
  1281. It is not clear what is ``appropriate'' for the C locale; the values
  1282. returned are a best guess on the author's part.
  1283. .SH CAVEATS
  1284. The pre-processor symbol
  1285. .B POSIX_SEMANTICS
  1286. is automatically defined, which forces the code to call
  1287. .IR tzset (3)
  1288. whenever the
  1289. .B TZ
  1290. environment variable has changed.
  1291. If this routine will be used in an application that will not be changing
  1292. .BR TZ ,
  1293. then there may be some performance improvements by not defining
  1294. .BR POSIX_SEMANTICS .
  1295. .SH AUTHOR
  1296. .nf
  1297. Arnold Robbins
  1298. .sp
  1299. INTERNET: arnold@skeeve.atl.ga.us
  1300. UUCP:     emory!skeeve!arnold
  1301. Phone:    +1 404 248 9324
  1302. .fi
  1303. .SH ACKNOWLEDGEMENTS
  1304. Thanks to Geoff Clare <gwc@root.co.uk> for helping debug earlier
  1305. versions of this routine, and for advice about POSIX semantics.
  1306. Additional thanks to Arthur David Olsen <ado@elsie.nci.nih.gov>
  1307. for some code improvements.
  1308. Thanks also to Tor Lillqvist <tml@tik.vtt.fi>
  1309. for code fixes to the ISO 8601 code.
  1310. EOF
  1311.