home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 6 / AACD06.ISO / AACD / Programming / ICU / src / icu / source / samples / cal / cal.c next >
Encoding:
C/C++ Source or Header  |  1999-10-19  |  17.7 KB  |  676 lines
  1. /*
  2. *******************************************************************************
  3. *                                                                             *
  4. * COPYRIGHT:                                                                  *
  5. *   (C) Copyright International Business Machines Corporation, 1998, 1999     *
  6. *   Licensed Material - Program-Property of IBM - All Rights Reserved.        *
  7. *   US Government Users Restricted Rights - Use, duplication, or disclosure   *
  8. *   restricted by GSA ADP Schedule Contract with IBM Corp.                    *
  9. *                                                                             *
  10. *******************************************************************************
  11. *
  12. * File date.c
  13. *
  14. * Modification History:
  15. *
  16. *   Date        Name        Description
  17. *   06/16/99    stephen     Creation.
  18. *******************************************************************************
  19. */
  20.  
  21. #include <stdio.h>
  22. #include <string.h>
  23.  
  24. #include "uloc.h"
  25. #include "udat.h"
  26. #include "ucal.h"
  27. #include "ures.h"
  28. #include "ustring.h"
  29.  
  30. #include "uprint.h"
  31.  
  32. /* Protos */
  33. static void usage();
  34. static void version();
  35. static void cal(int32_t month, int32_t year,
  36.         bool_t useLongNames, UErrorCode *status);
  37. static void get_days(const UChar *days [], bool_t useLongNames, 
  38.              int32_t fdow, UErrorCode *status);
  39. static void get_months(const UChar *months [], bool_t useLongNames,
  40.                UErrorCode *status);
  41. static void indent(int32_t count, FILE *f);
  42. static void print_days(const UChar *days [], FILE *f, UErrorCode *status);
  43. static void  print_month(UCalendar *c, 
  44.              const UChar *days [], 
  45.              bool_t useLongNames, int32_t fdow, 
  46.              UErrorCode *status);
  47. static void  print_year(UCalendar *c, 
  48.             const UChar *days [], const UChar *months [],
  49.             bool_t useLongNames, int32_t fdow, 
  50.             UErrorCode *status);
  51.  
  52. /* The version of cal */
  53. #define CAL_VERSION "1.0"
  54.  
  55. /* Number of days in a week */
  56. #define DAY_COUNT 7
  57.  
  58. /* Number of months in a year (yes, 13) */
  59. #define MONTH_COUNT 13
  60.  
  61. /* Separation between months in year view */
  62. #define MARGIN_WIDTH 4
  63.  
  64. /* Size of stack buffers */
  65. #define BUF_SIZE 64
  66.  
  67. /* Patterm string - "MMM yyyy" */
  68. static const UChar sShortPat [] = { 0x004D, 0x004D, 0x004D, 0x0020, 
  69.                     0x0079, 0x0079, 0x0079, 0x0079 };
  70. /* Pattern string - "MMMM yyyy" */
  71. static const UChar sLongPat [] = { 0x004D, 0x004D, 0x004D, 0x004D, 0x0020, 
  72.                    0x0079, 0x0079, 0x0079, 0x0079 };
  73.  
  74.  
  75. int
  76. main(int argc,
  77.      char **argv)
  78. {
  79.   int printUsage = 0;
  80.   int printVersion = 0;
  81.   int useLongNames = 0;
  82.   int optind = 1;
  83.   char *arg;
  84.   int32_t month = -1, year = -1;
  85.   UErrorCode status = U_ZERO_ERROR;
  86.  
  87.  
  88.   /* parse the options */
  89.   for(optind = 1; optind < argc; ++optind) {
  90.     arg = argv[optind];
  91.     
  92.     /* version info */
  93.     if(strcmp(arg, "-v") == 0 || strcmp(arg, "--version") == 0) {
  94.       printVersion = 1;
  95.     }
  96.     /* usage info */
  97.     else if(strcmp(arg, "-h") == 0 || strcmp(arg, "--help") == 0) {
  98.       printUsage = 1;
  99.     }
  100.     /* use long day names */
  101.     else if(strcmp(arg, "-l") == 0 || strcmp(arg, "--long") == 0) {
  102.       useLongNames = 1;
  103.     }
  104.     /* POSIX.1 says all arguments after -- are not options */
  105.     else if(strcmp(arg, "--") == 0) {
  106.       /* skip the -- */
  107.       ++optind;
  108.       break;
  109.     }
  110.     /* unrecognized option */
  111.     else if(strncmp(arg, "-", strlen("-")) == 0) {
  112.       printf("cal: invalid option -- %s\n", arg+1);
  113.       printUsage = 1;
  114.     }
  115.     /* done with options, display cal */
  116.     else {
  117.       break;
  118.     }
  119.   }
  120.  
  121.   /* Get the month and year to display, if specified */
  122.   if(optind != argc) {
  123.  
  124.     /* Month and year specified */
  125.     if(argc - optind == 2) {
  126.       sscanf(argv[optind], "%d", &month);
  127.       sscanf(argv[optind + 1], "%d", &year);
  128.  
  129.       /* Make sure the month value is legal */
  130.       if(month < 0 || month > 12) {
  131.     printf("cal: Bad value for month -- %d\n", month);
  132.  
  133.     /* Display usage */
  134.     printUsage = 1;
  135.       }
  136.       
  137.       /* Adjust because months are 0-based */
  138.       --month;
  139.     }
  140.     /* Only year specified */
  141.     else {
  142.       sscanf(argv[optind], "%d", &year);
  143.     }
  144.   }
  145.  
  146.   /* print usage info */
  147.   if(printUsage) {
  148.     usage();
  149.     return 0;
  150.   }
  151.  
  152.   /* print version info */
  153.   if(printVersion) {
  154.     version();
  155.     return 0;
  156.   }
  157.  
  158.   /* print the cal */
  159.   cal(month, year, useLongNames, &status);
  160.  
  161.   return (U_FAILURE(status) ? 1 : 0);
  162. }
  163.  
  164. /* Usage information */
  165. static void
  166. usage()
  167. {  
  168.   puts("Usage: cal [OPTIONS] [[MONTH] YEAR]");
  169.   puts("");
  170.   puts("Options:");
  171.   puts("  -h, --help        Print this message and exit.");
  172.   puts("  -v, --version     Print the version number of cal and exit.");
  173.   puts("  -l, --long        Use long names.");
  174.   puts("");
  175.   puts("Arguments (optional):");
  176.   puts("  MONTH             An integer (1-12) indicating the month to display");
  177.   puts("  YEAR              An integer indicating the year to display");
  178.   puts("");
  179.   puts("For an interesting calendar, look at October 1582");
  180. }
  181.  
  182. /* Version information */
  183. static void
  184. version()
  185. {
  186.   printf("cal version %s (ICU version %s), by Stephen F. Booth.\n", 
  187.      CAL_VERSION, ICU_VERSION); 
  188.   puts("(C) Copyright International Business Machines Corporation, 1998, 1999");
  189.   puts("Licensed Material - Program-Property of IBM - All Rights Reserved.");
  190.   puts("US Government Users Restricted Rights - Use, duplication, or disclosure");
  191.   puts("restricted by GSA ADP Schedule Contract with IBM Corp.");
  192. }
  193.  
  194. static void
  195. cal(int32_t month,
  196.     int32_t year,
  197.     bool_t useLongNames,
  198.     UErrorCode *status)
  199. {
  200.   UCalendar *c;
  201.   const UChar *days [DAY_COUNT];
  202.   const UChar *months [MONTH_COUNT];
  203.   int32_t fdow;
  204.  
  205.   if(U_FAILURE(*status)) return;
  206.  
  207.   /* Create a new calendar */
  208.   c = ucal_open(0, -1, uloc_getDefault(), UCAL_TRADITIONAL, status);
  209.  
  210.   /* Determine if we are printing a calendar for one month or for a year */
  211.  
  212.   /* Print an entire year */
  213.   if(month == -1 && year != -1) {
  214.  
  215.     /* Set the year */
  216.     ucal_set(c, UCAL_YEAR, year);
  217.  
  218.     /* Determine the first day of the week */
  219.     fdow = ucal_getAttribute(c, UCAL_FIRST_DAY_OF_WEEK);
  220.     
  221.     /* Set up the day names */
  222.     get_days(days, useLongNames, fdow, status);
  223.  
  224.     /* Set up the month names */
  225.     get_months(months, useLongNames, status);
  226.  
  227.     /* Print the calendar for the year */
  228.     print_year(c, days, months, useLongNames, fdow, status);
  229.   }
  230.  
  231.   /* Print only one month */
  232.   else {
  233.     
  234.     /* Set the month and the year, if specified */
  235.     if(month != -1)
  236.       ucal_set(c, UCAL_MONTH, month);
  237.     if(year != -1)
  238.       ucal_set(c, UCAL_YEAR, year);
  239.     
  240.     /* Determine the first day of the week */
  241.     fdow = ucal_getAttribute(c, UCAL_FIRST_DAY_OF_WEEK);
  242.  
  243.     /* Set up the day names */
  244.     get_days(days, useLongNames, fdow, status);
  245.     
  246.     /* Print the calendar for the month */
  247.     print_month(c, days, useLongNames, fdow, status);
  248.   }
  249.   
  250.   /* Clean up */
  251.   ucal_close(c);
  252. }
  253.  
  254. /* Get the day names for the specified locale, in either long or short
  255.    form.  Also, reorder the days so that they are in the proper order
  256.    for the locale (not all locales begin weeks on Sunday; in France,
  257.    weeks start on Monday) */
  258. static void
  259. get_days(const UChar *days [],
  260.      bool_t useLongNames,
  261.      int32_t fdow,
  262.      UErrorCode *status)
  263. {
  264.   UResourceBundle *bundle;
  265.   int32_t i, count;
  266.   const char *key = (useLongNames ? "DayNames" : "DayAbbreviations");
  267.  
  268.   if(U_FAILURE(*status)) return;
  269.  
  270.   /* fdow is 1-based */
  271.   --fdow;
  272.  
  273.   bundle = ures_open(0, 0, status);
  274.   count = ures_countArrayItems(bundle, key, status);
  275.   if(count != DAY_COUNT) goto finish;   /* sanity check */
  276.   for(i = 0; i < count; ++i) {
  277.     days[i] = ures_getArrayItem(bundle, key, ((i + fdow) % DAY_COUNT), status);
  278.   }
  279.   
  280.  finish:
  281.   ures_close(bundle);
  282. }
  283.  
  284. /* Get the month names for the specified locale, in either long or
  285.    short form. */
  286. static void
  287. get_months(const UChar *months [],
  288.        bool_t useLongNames,
  289.        UErrorCode *status)
  290. {
  291.   UResourceBundle *bundle;
  292.   int32_t i, count;
  293.   const char *key = (useLongNames ? "MonthNames" : "MonthAbbreviations");
  294.  
  295.   if(U_FAILURE(*status)) return;
  296.  
  297.   bundle = ures_open(0, 0, status);
  298.   count = ures_countArrayItems(bundle, key, status);
  299.   if(count != MONTH_COUNT) goto finish;   /* sanity check */
  300.   for(i = 0; i < count; ++i) {
  301.     months[i] = ures_getArrayItem(bundle, key, i, status);
  302.   }
  303.   
  304.  finish:
  305.   ures_close(bundle);
  306. }
  307.  
  308. /* Indent a certain number of spaces */
  309. static void
  310. indent(int32_t count,
  311.        FILE *f)
  312. {
  313.   char c [BUF_SIZE];
  314.   
  315.   if(count < BUF_SIZE) {
  316.     memset(c, (int)' ', count);
  317.     fwrite(c, sizeof(char), count, f);
  318.   }
  319.   else {
  320.     int32_t i;
  321.     for(i = 0; i < count; ++i)
  322.       putc(' ', f);
  323.   }
  324. }
  325.  
  326. /* Print the days */
  327. static void
  328. print_days(const UChar *days [],
  329.        FILE *f,
  330.        UErrorCode *status)
  331. {
  332.   int32_t i;
  333.  
  334.   if(U_FAILURE(*status)) return;
  335.  
  336.   /* Print the day names */
  337.   for(i = 0; i < DAY_COUNT; ++i) {
  338.     uprint(days[i], f, status);
  339.     putc(' ', f);
  340.   }
  341. }
  342.  
  343. /* Print out a calendar for c's current month */
  344. static void
  345. print_month(UCalendar *c, 
  346.         const UChar *days [], 
  347.         bool_t useLongNames,
  348.         int32_t fdow,
  349.         UErrorCode *status)
  350. {
  351.   int32_t width, pad, i, day;
  352.   int32_t lens [DAY_COUNT];
  353.   int32_t firstday, current;
  354.   UNumberFormat *nfmt;
  355.   UDateFormat *dfmt;
  356.   UChar s [BUF_SIZE];
  357.   const UChar *pat = (useLongNames ? sLongPat : sShortPat);
  358.   int32_t len = (useLongNames ? 9 : 8);
  359.  
  360.   if(U_FAILURE(*status)) return;
  361.  
  362.  
  363.   /* ========== Generate the header containing the month and year */
  364.  
  365.   /* Open a formatter with a month and year only pattern */
  366.   dfmt = udat_openPattern(pat, len, 0, status);
  367.   
  368.   /* Format the date */
  369.   udat_format(dfmt, ucal_getMillis(c, status), s, BUF_SIZE, 0, status);
  370.  
  371.  
  372.   /* ========== Print the header */
  373.   
  374.   /* Calculate widths for justification */
  375.   width = 6; /* 6 spaces, 1 between each day name */
  376.   for(i = 0; i < DAY_COUNT; ++i) {
  377.     lens[i] = u_strlen(days[i]);
  378.     width += lens[i];
  379.   }
  380.  
  381.   /* Print the header, centered among the day names */
  382.   pad = width - u_strlen(s);
  383.   indent(pad / 2, stdout);
  384.   uprint(s, stdout, status);
  385.   putc('\n', stdout);
  386.  
  387.  
  388.   /* ========== Print the day names */
  389.  
  390.   print_days(days, stdout, status);
  391.   putc('\n', stdout);
  392.  
  393.  
  394.   /* ========== Print the calendar */
  395.  
  396.   /* Get the first of the month */
  397.   ucal_set(c, UCAL_DATE, 1);
  398.   firstday = ucal_get(c, UCAL_DAY_OF_WEEK, status);
  399.  
  400.   /* The day of the week for the first day of the month is based on
  401.      1-based days of the week, which were also reordered when placed
  402.      in the days array.  Account for this here by offsetting by the
  403.      first day of the week for the locale, which is also 1-based. */
  404.   firstday -= fdow;
  405.  
  406.   /* Open the formatter */
  407.   nfmt = unum_open(UNUM_DECIMAL, 0, status);
  408.  
  409.   /* Indent the correct number of spaces for the first week */
  410.   current = firstday;
  411.   for(i = 0; i < current; ++i)
  412.     indent(lens[i] + 1, stdout);
  413.  
  414.   /* Finally, print out the days */
  415.   day = ucal_get(c, UCAL_DATE, status);
  416.   do {
  417.  
  418.     /* Format the current day string */
  419.     unum_format(nfmt, day, s, BUF_SIZE, 0, status);
  420.  
  421.     /* Calculate the justification and indent */
  422.     pad = lens[current] - u_strlen(s);
  423.     indent(pad, stdout);
  424.  
  425.     /* Print the day number out, followed by a space */
  426.     uprint(s, stdout, status);
  427.     putc(' ', stdout);
  428.  
  429.     /* Update the current day */
  430.     ++current;
  431.     current %= DAY_COUNT;
  432.  
  433.     /* If we're at day 0 (first day of the week), insert a newline */
  434.     if(current == 0) {
  435.       putc('\n', stdout);
  436.     }
  437.  
  438.     /* Go to the next day */
  439.     ucal_add(c, UCAL_DATE, 1, status);
  440.     day = ucal_get(c, UCAL_DATE, status);
  441.  
  442.   } while(day != 1);
  443.   
  444.   /* Output a trailing newline */
  445.   putc('\n', stdout);
  446.  
  447.   /* Clean up */
  448.   unum_close(nfmt);
  449.   udat_close(dfmt);
  450. }
  451.  
  452. /* Print out a calendar for c's current year */
  453. static void
  454. print_year(UCalendar *c, 
  455.        const UChar *days [], 
  456.        const UChar *months [],
  457.        bool_t useLongNames, 
  458.        int32_t fdow, 
  459.        UErrorCode *status)
  460. {
  461.   int32_t width, pad, i, j;
  462.   int32_t lens [DAY_COUNT];
  463.   UNumberFormat *nfmt;
  464.   UDateFormat *dfmt;
  465.   UChar s [BUF_SIZE];
  466.   const UChar pat [] = { 0x0079, 0x0079, 0x0079, 0x0079 };
  467.   int32_t len = 4;
  468.   UCalendar  *left_cal, *right_cal;
  469.   int32_t left_day, right_day;
  470.   int32_t left_firstday, right_firstday, left_current, right_current;
  471.   int32_t left_month, right_month;
  472.  
  473.   if(U_FAILURE(*status)) return;
  474.  
  475.   /* Alias */
  476.   left_cal = c;
  477.  
  478.   /* ========== Generate the header containing the year (only) */
  479.  
  480.   /* Open a formatter with a month and year only pattern */
  481.   dfmt = udat_openPattern(pat, len, 0, status);
  482.   
  483.   /* Format the date */
  484.   udat_format(dfmt, ucal_getMillis(left_cal, status), s, BUF_SIZE, 0, status);
  485.  
  486.   
  487.   /* ========== Print the header, centered */
  488.  
  489.   /* Calculate widths for justification */
  490.   width = 6; /* 6 spaces, 1 between each day name */
  491.   for(i = 0; i < DAY_COUNT; ++i) {
  492.     lens[i] = u_strlen(days[i]);
  493.     width += lens[i];
  494.   }
  495.  
  496.   /* width is the width for 1 calendar; we are displaying in 2 cols
  497.      with MARGIN_WIDTH spaces between months */
  498.  
  499.   /* Print the header, centered among the day names */
  500.   pad = 2 * width + MARGIN_WIDTH - u_strlen(s);
  501.   indent(pad / 2, stdout);
  502.   uprint(s, stdout, status);
  503.   putc('\n', stdout);
  504.   putc('\n', stdout);
  505.  
  506.   /* Generate a copy of the calendar to use */
  507.   right_cal = ucal_open(0, -1, uloc_getDefault(), UCAL_TRADITIONAL, status);
  508.   ucal_setMillis(right_cal, ucal_getMillis(left_cal, status), status);
  509.  
  510.   /* Open the formatter */
  511.   nfmt = unum_open(UNUM_DECIMAL, 0, status);
  512.  
  513.   /* ========== Calculate and display the months, two at a time */
  514.   for(i = 0; i < MONTH_COUNT - 1; i += 2) {
  515.  
  516.     /* Print the month names for the two current months */
  517.     pad = width - u_strlen(months[i]);
  518.     indent(pad / 2, stdout);
  519.     uprint(months[i], stdout, status);
  520.     indent(pad / 2 + MARGIN_WIDTH, stdout);
  521.     pad = width - u_strlen(months[i + 1]);
  522.     indent(pad / 2, stdout);
  523.     uprint(months[i + 1], stdout, status);
  524.     putc('\n', stdout);
  525.     
  526.     /* Print the day names, twice  */
  527.     print_days(days, stdout, status);
  528.     indent(MARGIN_WIDTH, stdout);
  529.     print_days(days, stdout, status);
  530.     putc('\n', stdout);
  531.  
  532.     /* Setup the two calendars */
  533.     ucal_set(left_cal, UCAL_MONTH, i);
  534.     ucal_set(left_cal, UCAL_DATE, 1);
  535.     ucal_set(right_cal, UCAL_MONTH, i + 1);
  536.     ucal_set(right_cal, UCAL_DATE, 1);
  537.  
  538.     left_firstday = ucal_get(left_cal, UCAL_DAY_OF_WEEK, status);
  539.     right_firstday = ucal_get(right_cal, UCAL_DAY_OF_WEEK, status);
  540.  
  541.     /* The day of the week for the first day of the month is based on
  542.        1-based days of the week.  However, the days were reordered
  543.        when placed in the days array.  Account for this here by
  544.        offsetting by the first day of the week for the locale, which
  545.        is also 1-based. */
  546.  
  547.     /* We need to mod by DAY_COUNT since fdow can be > firstday.  IE,
  548.        if fdow = 2 = Monday (like in France) and the first day of the
  549.        month is a 1 = Sunday, we want firstday to be 6, not -1 */
  550.     left_firstday += (DAY_COUNT - fdow);
  551.     left_firstday %= DAY_COUNT;
  552.  
  553.     right_firstday += (DAY_COUNT - fdow);
  554.     right_firstday %= DAY_COUNT;
  555.     
  556.     left_current = left_firstday;
  557.     right_current = right_firstday;
  558.  
  559.     left_day = ucal_get(left_cal, UCAL_DATE, status);
  560.     right_day = ucal_get(right_cal, UCAL_DATE, status);
  561.  
  562.     left_month = ucal_get(left_cal, UCAL_MONTH, status);
  563.     right_month = ucal_get(right_cal, UCAL_MONTH, status);
  564.  
  565.     /* Finally, print out the days */
  566.     while(left_month == i || right_month == i + 1) {
  567.       
  568.       /* If the left month is finished printing, but the right month
  569.          still has days to be printed, indent the width of the days
  570.          strings and reset the left calendar's current day to 0 */
  571.       if(left_month != i && right_month == i + 1) {
  572.     indent(width + 1, stdout);
  573.     left_current = 0;
  574.       }
  575.       
  576.       while(left_month == i) {
  577.     
  578.     /* If the day is the first, indent the correct number of
  579.            spaces for the first week */
  580.     if(left_day == 1) {
  581.       for(j = 0; j < left_current; ++j)
  582.         indent(lens[j] + 1, stdout);
  583.     }
  584.     
  585.     /* Format the current day string */
  586.     unum_format(nfmt, left_day, s, BUF_SIZE, 0, status);
  587.     
  588.     /* Calculate the justification and indent */
  589.     pad = lens[left_current] - u_strlen(s);
  590.     indent(pad, stdout);
  591.     
  592.     /* Print the day number out, followed by a space */
  593.     uprint(s, stdout, status);
  594.     putc(' ', stdout);
  595.     
  596.     /* Update the current day */
  597.     ++left_current;
  598.     left_current %= DAY_COUNT;
  599.     
  600.     /* Go to the next day */
  601.     ucal_add(left_cal, UCAL_DATE, 1, status);
  602.     left_day = ucal_get(left_cal, UCAL_DATE, status);
  603.  
  604.     /* Determine the month */
  605.     left_month = ucal_get(left_cal, UCAL_MONTH, status);
  606.  
  607.     /* If we're at day 0 (first day of the week), break and go to
  608.            the next month */
  609.     if(left_current == 0) {
  610.       break;
  611.     }
  612.       };
  613.  
  614.       /* If the current day isn't 0, indent to make up for missing
  615.          days at the end of the month */
  616.       if(left_current != 0) {
  617.     for(j = left_current; j < DAY_COUNT; ++j)
  618.       indent(lens[j] + 1, stdout);
  619.       }
  620.  
  621.       /* Indent between the two months */
  622.       indent(MARGIN_WIDTH, stdout);
  623.  
  624.       while(right_month == i + 1) {
  625.  
  626.     /* If the day is the first, indent the correct number of
  627.            spaces for the first week */
  628.     if(right_day == 1) {
  629.       for(j = 0; j < right_current; ++j)
  630.         indent(lens[j] + 1, stdout);
  631.     }
  632.  
  633.     /* Format the current day string */
  634.     unum_format(nfmt, right_day, s, BUF_SIZE, 0, status);
  635.     
  636.     /* Calculate the justification and indent */
  637.     pad = lens[right_current] - u_strlen(s);
  638.     indent(pad, stdout);
  639.     
  640.     /* Print the day number out, followed by a space */
  641.     uprint(s, stdout, status);
  642.     putc(' ', stdout);
  643.     
  644.     /* Update the current day */
  645.     ++right_current;
  646.     right_current %= DAY_COUNT;
  647.     
  648.     /* Go to the next day */
  649.     ucal_add(right_cal, UCAL_DATE, 1, status);
  650.     right_day = ucal_get(right_cal, UCAL_DATE, status);
  651.  
  652.     /* Determine the month */
  653.     right_month = ucal_get(right_cal, UCAL_MONTH, status);
  654.     
  655.     /* If we're at day 0 (first day of the week), break out */
  656.     if(right_current == 0) {
  657.       break;
  658.     }
  659.  
  660.       };
  661.  
  662.       /* Output a newline */
  663.       putc('\n', stdout);
  664.     }
  665.  
  666.     /* Output a trailing newline */
  667.     putc('\n', stdout);
  668.   }
  669.  
  670.   /* Clean up */
  671.   udat_close(dfmt);
  672.   unum_close(nfmt);
  673.   ucal_close(right_cal);
  674. }
  675.  
  676.