1 /*
   2  * Copyright 2010 Nexenta Systems, Inc.  All rights reserved.
   3  * Copyright (c) 2001 Alexey Zelkin <phantom@FreeBSD.org>
   4  * Copyright (c) 1997 FreeBSD Inc.
   5  * All rights reserved.
   6  *
   7  * Redistribution and use in source and binary forms, with or without
   8  * modification, are permitted provided that the following conditions
   9  * are met:
  10  * 1. Redistributions of source code must retain the above copyright
  11  *    notice, this list of conditions and the following disclaimer.
  12  * 2. Redistributions in binary form must reproduce the above copyright
  13  *    notice, this list of conditions and the following disclaimer in the
  14  *    documentation and/or other materials provided with the distribution.
  15  *
  16  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
  17  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  18  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  19  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
  20  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  21  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  22  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  23  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  24  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  25  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  26  * SUCH DAMAGE.
  27  */
  28 
  29 #include "lint.h"
  30 #include <stddef.h>
  31 #include "ldpart.h"
  32 #include "timelocal.h"
  33 
  34 static struct lc_time_T _time_locale;
  35 static int _time_using_locale;
  36 static char *time_locale_buf;
  37 
  38 struct xlocale_time __xlocale_global_time;
  39 
  40 #define LCTIME_SIZE (sizeof (struct lc_time_T) / sizeof (char *))
  41 
  42 static const struct lc_time_T   _C_time_locale = {
  43         {
  44                 "Jan", "Feb", "Mar", "Apr", "May", "Jun",
  45                 "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"
  46         }, {
  47                 "January", "February", "March", "April", "May", "June",
  48                 "July", "August", "September", "October", "November", "December"
  49         }, {
  50                 "Sun", "Mon", "Tue", "Wed",
  51                 "Thu", "Fri", "Sat"
  52         }, {
  53                 "Sunday", "Monday", "Tuesday", "Wednesday",
  54                 "Thursday", "Friday", "Saturday"
  55         },
  56 
  57         /* X_fmt */
  58         "%H:%M:%S",
  59 
  60         /*
  61          * x_fmt
  62          * Since the C language standard calls for
  63          * "date, using locale's date format," anything goes.
  64          * Using just numbers (as here) makes Quakers happier;
  65          * it's also compatible with SVR4.
  66          */
  67         "%m/%d/%y",
  68 
  69         /*
  70          * c_fmt
  71          */
  72         "%a %b %e %H:%M:%S %Y",
  73 
  74         /* am */
  75         "AM",
  76 
  77         /* pm */
  78         "PM",
  79 
  80         /* date_fmt */
  81         "%a %b %e %H:%M:%S %Z %Y",
  82 
  83         /*
  84          * ampm_fmt - To determine 12-hour clock format time (empty, if N/A)
  85          */
  86         "%I:%M:%S %p"
  87 };
  88 
  89 static void
  90 destruct_time(void *v)
  91 {
  92         struct xlocale_time *l = v;
  93 
  94         if (l->buffer != NULL)
  95                 free(l->buffer);
  96 
  97         free(l);
  98 }
  99 
 100 struct lc_time_T *
 101 __get_current_time_locale(locale_t loc)
 102 {
 103         return (loc->using_time_locale
 104             ? &((struct xlocale_time *)loc->components[XLC_TIME])->locale
 105             : (struct lc_time_T *)&_C_time_locale);
 106 }
 107 
 108 static int
 109 time_load_locale(struct xlocale_time *l, int *using_locale, const char *name)
 110 {
 111         struct lc_time_T *time_locale = &l->locale;
 112 
 113         return (__part_load_locale(name, using_locale,
 114             &l->buffer, "LC_TIME",
 115             LCTIME_SIZE, LCTIME_SIZE,
 116             (const char **)time_locale));
 117 }
 118 
 119 int
 120 __time_load_locale(const char *name)
 121 {
 122         return (time_load_locale(&__xlocale_global_time,
 123             &__xlocale_global_locale.using_time_locale, name));
 124 }
 125 
 126 void *
 127 __time_load(const char* name, locale_t loc)
 128 {
 129         struct xlocale_time *new;
 130 
 131         new = calloc(sizeof(struct xlocale_time), 1);
 132         if (new == NULL)
 133                 return (NULL);
 134 
 135         new->header.header.destructor = destruct_time;
 136         if (time_load_locale(new, &loc->using_time_locale, name) ==
 137             _LDP_ERROR) {
 138                 xlocale_release(new);
 139                 return (NULL);
 140         }
 141 
 142         return (new);
 143 }