src/compat/gnu_strftime.c File Reference

#include <ctype.h>
#include <sys/types.h>
#include <time.h>

Include dependency graph for gnu_strftime.c:

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Defines
#define	DO_MULTIBYTE   (HAVE_MBLEN && ! MULTIBYTE_IS_FORMAT_SAFE)
#define	memcpy(d, s, n)   bcopy ((s), (d), (n))
#define	MEMPCPY(d, s, n)   ((void *) ((char *) memcpy (d, s, n) + (n)))
#define	__P(args)   ()
#define	PTR   char *
#define	CHAR_BIT   8
#define	NULL   0
#define	TYPE_SIGNED(t)   ((t) -1 < 0)
#define	INT_STRLEN_BOUND(t)   ((sizeof (t) * CHAR_BIT - TYPE_SIGNED (t)) * 302 / 1000 + 1 + TYPE_SIGNED (t))
#define	TM_YEAR_BASE   1900
#define	__isleap(year)   ((year) % 4 == 0 && ((year) % 100 != 0 || (year) % 400 == 0))
#define	memset_space(P, Len)
#define	memset_zero(P, Len)
#define	add(n, f)
#define	cpy(n, s)
#define	TOUPPER(Ch)   (islower (Ch) ? toupper (Ch) : (Ch))
#define	TOLOWER(Ch)   (isupper (Ch) ? tolower (Ch) : (Ch))
#define	ISDIGIT(Ch)   ((unsigned int) (Ch) - '0' <= 9)
#define	tm_diff   ftime_tm_diff
#define	ISO_WEEK_START_WDAY   1
#define	ISO_WEEK1_WDAY   4
#define	YDAY_MINIMUM   (-366)
#define	my_strftime   strftime
#define	ut_argument
#define	ut_argument_spec
#define	ut_argument_spec_iso
#define	ut   0
#define	f_wkday   (weekday_name[tp->tm_wday])
#define	f_month   (month_name[tp->tm_mon])
#define	a_wkday   f_wkday
#define	a_month   f_month
#define	ampm   ("AMPM" + 2 * (tp->tm_hour > 11))
#define	DO_NUMBER(d, v)
#define	DO_NUMBER_SPACEPAD(d, v)
Functions
static struct tm *	my_strftime_gmtime_r ()
static struct tm *	my_strftime_gmtime_r (time_t *t, struct tm *tp) const
static struct tm *	my_strftime_localtime_r ()
static struct tm *	my_strftime_localtime_r (time_t *t, struct tm *tp) const
static char *	memcpy_lowcase ()
static char *	memcpy_lowcase (char *dest, const char *src, size_t len)
static char *	memcpy_uppcase ()
static char *	memcpy_uppcase (char *dest, const char *src, size_t len)
static int	ftime_tm_diff ()
static int	ftime_tm_diff (struct tm *a, const struct tm *b) const
static int	iso_week_days ()
static int	iso_week_days (int yday, int wday)
size_t	strftime (char *s, size_t maxsize, const char *format, const struct tm *tp)
Variables
static const char	spaces [16]
static const char	zeroes [16]
static char const	weekday_name [][10]
static char const	month_name [][10]

---

Define Documentation

#define __isleap

(

year

)

((year) % 4 == 0 && ((year) % 100 != 0 || (year) % 400 == 0))

Definition at line 139 of file gnu_strftime.c.

Referenced by strftime().

#define __P

(

args

)

()

Definition at line 104 of file gnu_strftime.c.

#define a_month   f_month

Referenced by strftime().

#define a_wkday   f_wkday

Referenced by strftime().

#define add	(	n,
		f		)

Value:

do                                        \
    {                                         \
      int _n = (n);                               \
      int _delta = width - _n;                            \
      int _incr = _n + (_delta > 0 ? _delta : 0);                 \
      if (i + _incr >= maxsize)                           \
    return 0;                                 \
      if (p)                                      \
    {                                     \
      if (_delta > 0)                             \
        {                                     \
          if (pad == '0')                             \
        memset_zero (p, _delta);                      \
          else                                \
        memset_space (p, _delta);                     \
        }                                     \
      f;                                      \
      p += _n;                                \
    }                                     \
      i += _incr;                                 \
    } while (0)

Definition at line 225 of file gnu_strftime.c.

Referenced by strftime().

#define ampm   ("AMPM" + 2 * (tp->tm_hour > 11))

Referenced by strftime().

#define CHAR_BIT   8

Definition at line 117 of file gnu_strftime.c.

#define cpy	(	n,
		s		)

Value:

add ((n),                                     \
     if (to_lowcase)                              \
       memcpy_lowcase (p, (s), _n);                       \
     else if (to_uppcase)                             \
       memcpy_uppcase (p, (s), _n);                       \
     else                                     \
       memcpy ((PTR) p, (PTR) (s), _n))

Definition at line 248 of file gnu_strftime.c.

Referenced by strftime().

#define DO_MULTIBYTE   (HAVE_MBLEN && ! MULTIBYTE_IS_FORMAT_SAFE)

Definition at line 64 of file gnu_strftime.c.

#define DO_NUMBER	(	d,
		v		)

Value:

digits = width == -1 ? d : width;                     \
      number_value = v; goto do_number

Referenced by strftime().

#define DO_NUMBER_SPACEPAD	(	d,
		v		)

Value:

digits = width == -1 ? d : width;                     \
      number_value = v; goto do_number_spacepad

Referenced by strftime().

#define f_month   (month_name[tp->tm_mon])

Referenced by strftime().

#define f_wkday   (weekday_name[tp->tm_wday])

Referenced by strftime().

#define INT_STRLEN_BOUND

(

t

)

((sizeof (t) * CHAR_BIT - TYPE_SIGNED (t)) * 302 / 1000 + 1 + TYPE_SIGNED (t))

Definition at line 131 of file gnu_strftime.c.

Referenced by strftime().

#define ISDIGIT

(

Ch

)

((unsigned int) (Ch) - '0' <= 9)

Definition at line 270 of file gnu_strftime.c.

Referenced by strftime().

#define ISO_WEEK1_WDAY   4

Definition at line 335 of file gnu_strftime.c.

Referenced by iso_week_days().

#define ISO_WEEK_START_WDAY   1

Definition at line 334 of file gnu_strftime.c.

Referenced by iso_week_days().

#define memcpy	(	d,
		s,
		n		)	bcopy ((s), (d), (n))

Definition at line 88 of file gnu_strftime.c.

#define MEMPCPY	(	d,
		s,
		n		)	((void *) ((char *) memcpy (d, s, n) + (n)))

Definition at line 96 of file gnu_strftime.c.

#define memset_space	(	P,
		Len		)

Value:

do {                                          \
    int _len = (Len);                                 \
                                          \
    do                                        \
      {                                       \
    int _this = _len > 16 ? 16 : _len;                    \
    (P) = MEMPCPY ((P), spaces, _this);                   \
    _len -= _this;                                \
      }                                       \
    while (_len > 0);                                 \
  } while (0)

Definition at line 195 of file gnu_strftime.c.

#define memset_zero	(	P,
		Len		)

Value:

do {                                          \
    int _len = (Len);                                 \
                                          \
    do                                        \
      {                                       \
    int _this = _len > 16 ? 16 : _len;                    \
    (P) = MEMPCPY ((P), zeroes, _this);                   \
    _len -= _this;                                \
      }                                       \
    while (_len > 0);                                 \
  } while (0)

Definition at line 208 of file gnu_strftime.c.

#define my_strftime   strftime

Definition at line 374 of file gnu_strftime.c.

Referenced by strftime().

#define NULL   0

Definition at line 121 of file gnu_strftime.c.

Referenced by _dcc_send(), _filedb_getfile(), _filedb_matchfile(), _malloc_fdbe(), _wild_match_per(), add_assoc(), add_cd_tcl_cmds(), add_chanrec(), add_delay(), add_help_reference(), add_lang(), add_lang_section(), add_note(), answer_local_whom(), append_line(), assoc_close(), assoc_start(), bg_do_detach(), bgtclcallback(), bind_bind_entry(), block_dns_hostbyip(), blowfish_expmem(), blowfish_init(), blowfish_report(), blowfish_start(), bot_actchan(), bot_chan2(), bot_chat(), bot_filereject(), bot_filereq(), bot_filesend(), bot_infoq(), bot_link(), bot_motd(), bot_nlinked(), bot_priv(), bot_reject(), bot_traced(), bot_unlink(), botaddr_pack(), botaddr_set(), botaddr_tcl_get(), botfl_display(), botfl_pack(), botfl_tcl_get(), botfl_tcl_set(), botfl_unpack(), botfl_write_userfile(), call_hostbyip(), call_ipbyhost(), call_tcl_func(), changeover_dcc(), channels_chon(), channels_close(), channels_start(), chanprog(), chanset_unlink(), charp_func(), check_botnet_pings(), check_chanlist(), check_chanlist_hand(), check_dcclist_hand(), check_delay(), check_expired_bans(), check_expired_exempts(), check_expired_invites(), check_expired_tbufs(), check_logsize(), check_secondly(), check_tcl_ctcpr(), check_tcl_msg(), check_tcl_msgm(), check_tcl_notc(), check_this_member(), check_this_user(), chof_wire(), clear_chanlist(), clear_chanlist_member(), clear_masks(), cmd_act(), cmd_adduser(), cmd_assoc(), cmd_boot(), cmd_botattr(), cmd_channel(), cmd_chanset(), cmd_chat(), cmd_chattr(), cmd_chdir(), cmd_chhandle(), cmd_chinfo(), cmd_chpass(), cmd_comment(), cmd_deluser(), cmd_desc(), cmd_filestats(), cmd_fwd(), cmd_handle(), cmd_hide(), cmd_info(), cmd_kick(), cmd_kickban(), cmd_languagedump(), cmd_ln(), cmd_match(), cmd_me(), cmd_mkdir(), cmd_mns_ban(), cmd_mns_chrec(), cmd_mns_exempt(), cmd_mns_host(), cmd_mns_invite(), cmd_mns_user(), cmd_module(), cmd_mv_cp(), cmd_optimize(), cmd_pls_ban(), cmd_pls_bot(), cmd_pls_chan(), cmd_pls_exempt(), cmd_pls_host(), cmd_pls_ignore(), cmd_pls_invite(), cmd_pls_user(), cmd_reget_get(), cmd_rm(), cmd_rmdir(), cmd_say(), cmd_set(), cmd_share(), cmd_status(), cmd_stick_yn(), cmd_su(), cmd_tcl(), cmd_topic(), cmd_unhide(), cmd_unshare(), cmd_whom(), compress_close(), compress_start(), console_chon(), console_close(), console_dostore(), console_pack(), console_start(), console_tcl_get(), cont_tandem_relay(), convert_old_files(), core_secondly(), correct_handle(), ctcp_CLIENTINFO(), ctcp_close(), ctcp_start(), dcc_chat(), dcc_chat_pass(), dcc_chatter(), dcc_remove_lost(), dcc_script(), dcc_telnet_got_ident(), dcc_telnet_id(), dcc_telnet_new(), dcc_telnet_pass(), debug_mem_to_dcc(), def_pack(), def_set(), def_tcl_get(), def_unpack(), del_chanrec(), del_lang(), del_lang_section(), del_tbuf(), delay_expmem(), delay_free_mem(), deq_kick(), deq_msg(), deq_this(), detect_telnet_flood(), display_tellhelp(), dns_change(), dns_close(), dns_free_cache(), dns_start(), do_channel_part(), do_check_timers(), do_dcc_send(), do_seen(), dorequest(), dump_assoc(), dump_bind_tables(), dup_userlist(), expire_notes(), expmem_net(), expmem_tclmisc(), expmem_users(), filedb_add(), filedb_change(), filedb_cleanup(), filedb_findempty(), filedb_getdesc(), filedb_getdirs(), filedb_getentry(), filedb_getfiles(), filedb_getgots(), filedb_getlink(), filedb_getowner(), filedb_ls(), filedb_mergeempty(), filedb_open(), filedb_setdesc(), filedb_setlink(), filedb_setowner(), filedb_timestamp(), filedb_update(), filelist_add(), filelist_new(), fileq_cancel(), files_ls(), files_reget(), filesys_close(), filesys_dcc_send(), filesys_dcc_send_hostresolved(), filesys_start(), findbot(), findchan(), findchan_by_dname(), findhost(), findid(), findip(), finish_share(), flush_fileq(), flush_lines(), flush_mode(), flush_tbuf(), flushlogs(), freeuser(), fstat_gotshare(), fstat_pack(), fstat_set(), fstat_tcl_get(), fstat_tcl_set(), garbage_collect_tclhash(), get_assoc_name(), get_chanrec(), get_handle_chaninfo(), get_ip(), get_langfile(), get_specific_langfile(), get_user_by_equal_host(), get_user_flagrec(), getnick(), global(), got324(), got331(), got332(), got352or4(), got354(), got437(), got_ban(), got_exempt(), got_invite(), got_unban(), got_unexempt(), got_uninvite(), gotfake433(), gotjoin(), gotmode(), gotmsg(), gotnick(), gotnotice(), gotquit(), gottopic(), help_subst(), hosts_set(), incr_file_gots(), init_bind(), init_bots(), init_dns_core(), init_mem(), init_misc(), init_modules(), init_tcl(), init_threaddata(), init_uptime(), initudef(), int(), IP(), irc_close(), irc_report(), irc_start(), ismember(), isowner(), kill_all_assoc(), kill_assoc(), kill_bind(), killmember(), killtransfer(), laston_pack(), laston_tcl_get(), linkresolve(), linkresolvehost(), linkresolveid(), linkresolveip(), logsuffix_change(), main(), mainloop(), make_point_path(), match_trigger(), me_halfop(), me_op(), modebind_refresh(), msg_addhost(), msg_hello(), msg_ident(), msg_info(), msgq_clear(), n_free(), n_malloc(), n_realloc(), new_tbuf(), newmask(), newmember(), next_server(), not_away(), notes_change(), notes_close(), notes_start(), num_notes(), parse_q(), pass_set(), pass_tcl_set(), pub_seen(), punish_badguy(), purge_kicks(), putlog(), q_addmsg(), queue_server(), raw_dcc_resend_send(), read_lang(), real_add_mode(), rehash(), reload(), reload_help_data(), rem_help_reference(), rembot(), remote_filereq(), remote_tell_who(), remove_channel(), remove_crlf(), replace_spaces(), resetmasks(), resolve_dir(), resolve_help(), rmspace(), seen_close(), seen_start(), send_next_file(), send_uptime(), sendrequest(), server_close(), server_die(), server_postrehash(), server_start(), set_away(), set_handle_chaninfo(), set_key(), set_topic(), set_user_flagrec(), setudef(), share_change(), share_chhand(), share_close(), share_killuser(), share_mns_ban(), share_mns_exempt(), share_mns_host(), share_mns_ignore(), share_mns_invite(), share_newuser(), share_pls_ban(), share_pls_bothost(), share_pls_exempt(), share_pls_host(), share_pls_ignore(), share_pls_invite(), share_start(), share_stick_ban(), share_stick_exempt(), share_stick_invite(), share_ufsend(), show_banner(), show_motd(), show_queued_files(), showhelp(), splitc(), splitcn(), start_sending_users(), status_log(), str_escape(), strchr_unescape(), strftime(), sub_lang(), subst_addcol(), tandem_relay_resolve_success(), tcl_addbot(), tcl_adduser(), tcl_bind(), tcl_binds(), tcl_botattr(), tcl_chattr(), tcl_chhandle(), tcl_countusers(), tcl_ctime(), tcl_dccdumpfile(), tcl_delhost(), tcl_deluser(), tcl_dnshostbyip(), tcl_dnsipbyhost(), tcl_dumpfile(), tcl_duration(), tcl_eggcouplet(), tcl_eggint(), tcl_eggserver(), tcl_eggstr(), tcl_finduser(), tcl_getting_users(), tcl_getuser(), tcl_isignore(), tcl_killignore(), tcl_killtimer(), tcl_killutimer(), tcl_loadmodule(), tcl_logfile(), tcl_matchaddr(), tcl_matchattr(), tcl_matchcidr(), tcl_matchstr(), tcl_md5(), tcl_myip(), tcl_passwdOk(), tcl_putloglev(), tcl_rand(), tcl_resultint(), tcl_sendnote(), tcl_setuser(), tcl_strftime(), tcl_stripcodes(), tcl_timer(), tcl_unames(), tcl_unixtime(), tcl_unloadmodule(), tcl_userlist(), tcl_utimer(), tcl_validuser(), tell_bans(), tell_bottree(), tell_exempts(), tell_file_stats(), tell_invites(), tell_settings(), tell_who(), traced_globchanset(), traced_nettype(), traced_rfccompliant(), transfer_close(), transfer_start(), u_addban(), u_addexempt(), u_addinvite(), u_delban(), u_delexempt(), u_delinvite(), uf_features_check(), uf_features_dump(), uf_features_parse(), uff_findentry_byflag(), uff_findentry_byname(), uff_insert_entry(), uptime_report(), uptime_start(), void(), welcome_to_files(), wipe_timers(), wire_close(), wire_start(), woobie_close(), woobie_start(), and write_channels().

#define PTR   char *

Definition at line 112 of file gnu_strftime.c.

#define tm_diff   ftime_tm_diff

Definition at line 302 of file gnu_strftime.c.

Referenced by strftime().

#define TM_YEAR_BASE   1900

Definition at line 134 of file gnu_strftime.c.

Referenced by ftime_tm_diff(), and strftime().

#define TOLOWER

(

Ch

)

(isupper (Ch) ? tolower (Ch) : (Ch))

Definition at line 264 of file gnu_strftime.c.

Referenced by memcpy_lowcase().

#define TOUPPER

(

Ch

)

(islower (Ch) ? toupper (Ch) : (Ch))

Definition at line 263 of file gnu_strftime.c.

Referenced by memcpy_uppcase(), and strftime().

#define TYPE_SIGNED

(

t

)

((t) -1 < 0)

Definition at line 124 of file gnu_strftime.c.

#define ut   0

Definition at line 379 of file gnu_strftime.c.

Referenced by freeuser(), and strftime().

#define ut_argument

Definition at line 375 of file gnu_strftime.c.

#define ut_argument_spec

Definition at line 376 of file gnu_strftime.c.

#define ut_argument_spec_iso

Definition at line 377 of file gnu_strftime.c.

#define YDAY_MINIMUM   (-366)

Definition at line 336 of file gnu_strftime.c.

Referenced by iso_week_days().

---

Function Documentation

static int ftime_tm_diff	(	struct tm *	a,
		const struct tm *	b
	)			const [static]

Definition at line 305 of file gnu_strftime.c.

References days, and TM_YEAR_BASE.

{
  /* Compute intervening leap days correctly even if year is negative.
     Take care to avoid int overflow in leap day calculations,
     but it's OK to assume that A and B are close to each other.  */
  int a4 = (a->tm_year >> 2) + (TM_YEAR_BASE >> 2) - ! (a->tm_year & 3);
  int b4 = (b->tm_year >> 2) + (TM_YEAR_BASE >> 2) - ! (b->tm_year & 3);
  int a100 = a4 / 25 - (a4 % 25 < 0);
  int b100 = b4 / 25 - (b4 % 25 < 0);
  int a400 = a100 >> 2;
  int b400 = b100 >> 2;
  int intervening_leap_days = (a4 - b4) - (a100 - b100) + (a400 - b400);
  int years = a->tm_year - b->tm_year;
  int days = (365 * years + intervening_leap_days
          + (a->tm_yday - b->tm_yday));
  return (60 * (60 * (24 * days + (a->tm_hour - b->tm_hour))
        + (a->tm_min - b->tm_min))
      + (a->tm_sec - b->tm_sec));
}

static int ftime_tm_diff

(

)

[static]

static int iso_week_days	(	int	yday,
		int	wday
	)			[static]

Definition at line 342 of file gnu_strftime.c.

References ISO_WEEK1_WDAY, ISO_WEEK_START_WDAY, and YDAY_MINIMUM.

{
  /* Add enough to the first operand of % to make it nonnegative.  */
  int big_enough_multiple_of_7 = (-YDAY_MINIMUM / 7 + 2) * 7;
  return (yday
      - (yday - wday + ISO_WEEK1_WDAY + big_enough_multiple_of_7) % 7
      + ISO_WEEK1_WDAY - ISO_WEEK_START_WDAY);
}

static int iso_week_days

(

)

[static]

Referenced by strftime().

Here is the caller graph for this function:

static char* memcpy_lowcase	(	char *	dest,
		const char *	src,
		size_t	len
	)			[static]

Definition at line 275 of file gnu_strftime.c.

References TOLOWER.

{
  while (len-- > 0)
    dest[len] = TOLOWER ((unsigned char) src[len]);
  return dest;
}

static char* memcpy_lowcase

(

)

[static]

static char* memcpy_uppcase	(	char *	dest,
		const char *	src,
		size_t	len
	)			[static]

Definition at line 288 of file gnu_strftime.c.

References TOUPPER.

{
  while (len-- > 0)
    dest[len] = TOUPPER ((unsigned char) src[len]);
  return dest;
}

static char* memcpy_uppcase

(

)

[static]

static struct tm* my_strftime_gmtime_r	(	time_t *	t,
		struct tm *	tp
	)			const [static, read]

Definition at line 158 of file gnu_strftime.c.

{
  struct tm *l = gmtime (t);
  if (! l)
    return 0;
  *tp = *l;
  return tp;
}

static struct tm* my_strftime_gmtime_r

(

)

[static, read]

Referenced by strftime().

Here is the caller graph for this function:

static struct tm* my_strftime_localtime_r	(	time_t *	t,
		struct tm *	tp
	)			const [static, read]

Definition at line 172 of file gnu_strftime.c.

{
  struct tm *l = localtime (t);
  if (! l)
    return 0;
  *tp = *l;
  return tp;
}

static struct tm* my_strftime_localtime_r

(

)

[static, read]

Referenced by strftime().

Here is the caller graph for this function:

size_t strftime	(	char *	s,
		size_t	maxsize,
		const char *	format,
		const struct tm *	tp
	)

Definition at line 412 of file gnu_strftime.c.

References __isleap, a_month, a_wkday, add, ampm, cpy, days, DO_NUMBER, DO_NUMBER_SPACEPAD, f_month, f_wkday, int, INT_STRLEN_BOUND, ISDIGIT, iso_week_days(), my_strftime, my_strftime_gmtime_r(), my_strftime_localtime_r(), NULL, strftime, time_t, tm_diff, TM_YEAR_BASE, TOUPPER, and ut.

{
  int hour12 = tp->tm_hour;
#ifdef _NL_CURRENT
  /* We cannot make the following values variables since we must delay
     the evaluation of these values until really needed since some
     expressions might not be valid in every situation.  The `struct tm'
     might be generated by a strptime() call that initialized
     only a few elements.  Dereference the pointers only if the format
     requires this.  Then it is ok to fail if the pointers are invalid.  */
# define a_wkday _NL_CURRENT (LC_TIME, ABDAY_1 + tp->tm_wday)
# define f_wkday _NL_CURRENT (LC_TIME, DAY_1 + tp->tm_wday)
# define a_month _NL_CURRENT (LC_TIME, ABMON_1 + tp->tm_mon)
# define f_month _NL_CURRENT (LC_TIME, MON_1 + tp->tm_mon)
# define ampm _NL_CURRENT (LC_TIME, tp->tm_hour > 11 ? PM_STR : AM_STR)

# define aw_len strlen (a_wkday)
# define am_len strlen (a_month)
# define ap_len strlen (ampm)
#else
# if !HAVE_STRFTIME
# define f_wkday (weekday_name[tp->tm_wday])
# define f_month (month_name[tp->tm_mon])
# define a_wkday f_wkday
# define a_month f_month
# define ampm ("AMPM" + 2 * (tp->tm_hour > 11))

  size_t aw_len = 3;
  size_t am_len = 3;
  size_t ap_len = 2;
# endif
#endif
  const char *zone;
  size_t i = 0;
  char *p = s;
  const char *f;

  zone = NULL;
#if HAVE_TM_ZONE
  /* The POSIX test suite assumes that setting
     the environment variable TZ to a new value before calling strftime()
     will influence the result (the %Z format) even if the information in
     TP is computed with a totally different time zone.
     This is bogus: though POSIX allows bad behavior like this,
     POSIX does not require it.  Do the right thing instead.  */
  zone = (const char *) tp->tm_zone;
#endif
#if HAVE_TZNAME
  if (ut)
    {
      if (! (zone && *zone))
    zone = "GMT";
    }
  else
    {
      /* POSIX.1 8.1.1 requires that whenever strftime() is called, the
     time zone names contained in the external variable `tzname' shall
     be set as if the tzset() function had been called.  */
# if HAVE_TZSET
      tzset ();
# endif
    }
#endif

  if (hour12 > 12)
    hour12 -= 12;
  else
    if (hour12 == 0)
      hour12 = 12;

  for (f = format; *f != '\0'; ++f)
    {
      int pad = 0;      /* Padding for number ('-', '_', or 0).  */
      int modifier;     /* Field modifier ('E', 'O', or 0).  */
      int digits;       /* Max digits for numeric format.  */
      int number_value;     /* Numeric value to be printed.  */
      int negative_number;  /* 1 if the number is negative.  */
      const char *subfmt;
      char *bufp;
      char buf[1 + (sizeof (int) < sizeof (time_t)
            ? INT_STRLEN_BOUND (time_t)
            : INT_STRLEN_BOUND (int))];
      int width = -1;
      int to_lowcase = 0;
      int to_uppcase = 0;
      int change_case = 0;
      int format_char;

#if DO_MULTIBYTE

       switch (*f)
    {
    case '%':
      break;

    case '\a': case '\b': case '\t': case '\n':
    case '\v': case '\f': case '\r':
    case ' ': case '!': case '"': case '#': case '&': case'\'':
    case '(': case ')': case '*': case '+': case ',': case '-':
    case '.': case '/': case '0': case '1': case '2': case '3':
    case '4': case '5': case '6': case '7': case '8': case '9':
    case ':': case ';': case '<': case '=': case '>': case '?':
    case 'A': case 'B': case 'C': case 'D': case 'E': case 'F':
    case 'G': case 'H': case 'I': case 'J': case 'K': case 'L':
    case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R':
    case 'S': case 'T': case 'U': case 'V': case 'W': case 'X':
    case 'Y': case 'Z': case '[': case'\\': case ']': case '^':
    case '_': case 'a': case 'b': case 'c': case 'd': case 'e':
    case 'f': case 'g': case 'h': case 'i': case 'j': case 'k':
    case 'l': case 'm': case 'n': case 'o': case 'p': case 'q':
    case 'r': case 's': case 't': case 'u': case 'v': case 'w':
    case 'x': case 'y': case 'z': case '{': case '|': case '}':
    case '~':
      /* The C Standard requires these 98 characters (plus '%') to
         be in the basic execution character set.  None of these
         characters can start a multibyte sequence, so they need
         not be analyzed further.  */
      add (1, *p = *f);
      continue;

    default:
      /* Copy this multibyte sequence until we reach its end, find
         an error, or come back to the initial shift state.  */
      {
        mbstate_t mbstate = mbstate_zero;
        size_t len = 0;

        do
          {
        size_t bytes = mbrlen (f + len, (size_t) -1, &mbstate);

        if (bytes == 0)
          break;

        if (bytes == (size_t) -2)
          {
            len += strlen (f + len);
            break;
          }

        if (bytes == (size_t) -1)
          {
            len++;
            break;
          }

        len += bytes;
          }
        while (! mbsinit (&mbstate));

        cpy (len, f);
        f += len - 1;
        continue;
      }
    }

#else /* ! DO_MULTIBYTE */

      /* Either multibyte encodings are not supported, or they are
     safe for formats, so any non-'%' byte can be copied through.  */
      if (*f != '%')
    {
      add (1, *p = *f);
      continue;
    }

#endif /* ! DO_MULTIBYTE */

      /* Check for flags that can modify a format.  */
      while (1)
    {
      switch (*++f)
        {
          /* This influences the number formats.  */
        case '_':
        case '-':
        case '0':
          pad = *f;
          continue;

          /* This changes textual output.  */
        case '^':
          to_uppcase = 1;
          continue;
        case '#':
          change_case = 1;
          continue;

        default:
          break;
        }
      break;
    }

      /* As a GNU extension we allow to specify the field width.  */
      if (ISDIGIT (*f))
    {
      width = 0;
      do
        {
          width *= 10;
          width += *f - '0';
          ++f;
        }
      while (ISDIGIT (*f));
    }

      /* Check for modifiers.  */
      switch (*f)
    {
    case 'E':
    case 'O':
      modifier = *f++;
      break;

    default:
      modifier = 0;
      break;
    }

      /* Now do the specified format.  */
      format_char = *f;
      switch (format_char)
    {
#define DO_NUMBER(d, v) \
      digits = width == -1 ? d : width;                   \
      number_value = v; goto do_number
#define DO_NUMBER_SPACEPAD(d, v) \
      digits = width == -1 ? d : width;                   \
      number_value = v; goto do_number_spacepad

    case '%':
      if (modifier != 0)
        goto bad_format;
      add (1, *p = *f);
      break;

    case 'a':
      if (modifier != 0)
        goto bad_format;
      if (change_case)
        {
          to_uppcase = 1;
          to_lowcase = 0;
        }
#if defined _NL_CURRENT || !HAVE_STRFTIME
      cpy (aw_len, a_wkday);
      break;
#else
      goto underlying_strftime;
#endif

    case 'A':
      if (modifier != 0)
        goto bad_format;
      if (change_case)
        {
          to_uppcase = 1;
          to_lowcase = 0;
        }
#if defined _NL_CURRENT || !HAVE_STRFTIME
      cpy (strlen (f_wkday), f_wkday);
      break;
#else
      goto underlying_strftime;
#endif

    case 'b':
    case 'h':       /* POSIX.2 extension.  */
      if (modifier != 0)
        goto bad_format;
#if defined _NL_CURRENT || !HAVE_STRFTIME
      cpy (am_len, a_month);
      break;
#else
      goto underlying_strftime;
#endif

    case 'B':
      if (modifier != 0)
        goto bad_format;
      if (change_case)
        {
          to_uppcase = 1;
          to_lowcase = 0;
        }
#if defined _NL_CURRENT || !HAVE_STRFTIME
      cpy (strlen (f_month), f_month);
      break;
#else
      goto underlying_strftime;
#endif

    case 'c':
      if (modifier == 'O')
        goto bad_format;
#ifdef _NL_CURRENT
      if (! (modifier == 'E'
         && *(subfmt = _NL_CURRENT (LC_TIME, ERA_D_T_FMT)) != '\0'))
        subfmt = _NL_CURRENT (LC_TIME, D_T_FMT);
#else
# if HAVE_STRFTIME
      goto underlying_strftime;
# else
      subfmt = "%a %b %e %H:%M:%S %Y";
# endif
#endif

    subformat:
      {
        char *old_start = p;
        size_t len = my_strftime (NULL, (size_t) -1, subfmt, tp);
        add (len, my_strftime (p, maxsize - i, subfmt, tp));

        if (to_uppcase)
          while (old_start < p)
        {
          *old_start = TOUPPER ((unsigned char) *old_start);
          ++old_start;
        }
      }
      break;

#if HAVE_STRFTIME && ! (defined _NL_CURRENT && HAVE_STRUCT_ERA_ENTRY)
    underlying_strftime:
      {
        /* The relevant information is available only via the
           underlying strftime implementation, so use that.  */
        char ufmt[4];
        char *u = ufmt;
        char ubuf[1024]; /* enough for any single format in practice */
        size_t len;
        *u++ = '%';
        if (modifier != 0)
          *u++ = modifier;
        *u++ = format_char;
        *u = '\0';
        len = strftime (ubuf, sizeof ubuf, ufmt, tp);
        if (len == 0 && ubuf[0] != '\0')
          return 0;
        cpy (len, ubuf);
      }
      break;
#endif

    case 'C':       /* POSIX.2 extension.  */
      if (modifier == 'O')
        goto bad_format;
      if (modifier == 'E')
        {
#if HAVE_STRUCT_ERA_ENTRY
          struct era_entry *era = _nl_get_era_entry (tp);
          if (era)
        {
          size_t len = strlen (era->name_fmt);
          cpy (len, era->name_fmt);
          break;
        }
#else
# if HAVE_STRFTIME
          goto underlying_strftime;
# endif
#endif
        }

      {
        int year = tp->tm_year + TM_YEAR_BASE;
        DO_NUMBER (1, year / 100 - (year % 100 < 0));
      }

    case 'x':
      if (modifier == 'O')
        goto bad_format;
#ifdef _NL_CURRENT
      if (! (modifier == 'E'
         && *(subfmt = _NL_CURRENT (LC_TIME, ERA_D_FMT)) != '\0'))
        subfmt = _NL_CURRENT (LC_TIME, D_FMT);
      goto subformat;
#else
# if HAVE_STRFTIME
      goto underlying_strftime;
# else
      /* Fall through.  */
# endif
#endif
    case 'D':       /* POSIX.2 extension.  */
      if (modifier != 0)
        goto bad_format;
      subfmt = "%m/%d/%y";
      goto subformat;

    case 'd':
      if (modifier == 'E')
        goto bad_format;

      DO_NUMBER (2, tp->tm_mday);

    case 'e':       /* POSIX.2 extension.  */
      if (modifier == 'E')
        goto bad_format;

      DO_NUMBER_SPACEPAD (2, tp->tm_mday);

      /* All numeric formats set DIGITS and NUMBER_VALUE and then
         jump to one of these two labels.  */

    do_number_spacepad:
      /* Force `_' flag unless overwritten by `0' flag.  */
      if (pad != '0')
        pad = '_';

    do_number:
      /* Format the number according to the MODIFIER flag.  */

      if (modifier == 'O' && 0 <= number_value)
        {
#ifdef _NL_CURRENT
          /* Get the locale specific alternate representation of
         the number NUMBER_VALUE.  If none exist NULL is returned.  */
          const char *cp = _nl_get_alt_digit (number_value);

          if (cp != NULL)
        {
          size_t digitlen = strlen (cp);
          if (digitlen != 0)
            {
              cpy (digitlen, cp);
              break;
            }
        }
#else
# if HAVE_STRFTIME
          goto underlying_strftime;
# endif
#endif
        }
      {
        unsigned int u = number_value;

        bufp = buf + sizeof (buf);
        negative_number = number_value < 0;

        if (negative_number)
          u = -u;

        do
          *--bufp = u % 10 + '0';
        while ((u /= 10) != 0);
      }

    do_number_sign_and_padding:
      if (negative_number)
        *--bufp = '-';

      if (pad != '-')
        {
          int padding = digits - (buf + sizeof (buf) - bufp);

          if (pad == '_')
        {
          while (0 < padding--)
            *--bufp = ' ';
        }
          else
        {
          bufp += negative_number;
          while (0 < padding--)
            *--bufp = '0';
          if (negative_number)
            *--bufp = '-';
        }
        }

      cpy (buf + sizeof (buf) - bufp, bufp);
      break;

    case 'F':
      if (modifier != 0)
        goto bad_format;
      subfmt = "%Y-%m-%d";
      goto subformat;

    case 'H':
      if (modifier == 'E')
        goto bad_format;

      DO_NUMBER (2, tp->tm_hour);

    case 'I':
      if (modifier == 'E')
        goto bad_format;

      DO_NUMBER (2, hour12);

    case 'k':       /* GNU extension.  */
      if (modifier == 'E')
        goto bad_format;

      DO_NUMBER_SPACEPAD (2, tp->tm_hour);

    case 'l':       /* GNU extension.  */
      if (modifier == 'E')
        goto bad_format;

      DO_NUMBER_SPACEPAD (2, hour12);

    case 'j':
      if (modifier == 'E')
        goto bad_format;

      DO_NUMBER (3, 1 + tp->tm_yday);

    case 'M':
      if (modifier == 'E')
        goto bad_format;

      DO_NUMBER (2, tp->tm_min);

    case 'm':
      if (modifier == 'E')
        goto bad_format;

      DO_NUMBER (2, tp->tm_mon + 1);

    case 'n':       /* POSIX.2 extension.  */
      add (1, *p = '\n');
      break;

    case 'P':
      to_lowcase = 1;
#if !defined _NL_CURRENT && HAVE_STRFTIME
      format_char = 'p';
#endif
      /* FALLTHROUGH */

    case 'p':
      if (change_case)
        {
          to_uppcase = 0;
          to_lowcase = 1;
        }
#if defined _NL_CURRENT || !HAVE_STRFTIME
      cpy (ap_len, ampm);
      break;
#else
      goto underlying_strftime;
#endif

    case 'R':       /* GNU extension.  */
      subfmt = "%H:%M";
      goto subformat;

    case 'r':       /* POSIX.2 extension.  */
#ifdef _NL_CURRENT
      if (*(subfmt = _NL_CURRENT (LC_TIME, T_FMT_AMPM)) == '\0')
#endif
        subfmt = "%I:%M:%S %p";
      goto subformat;

    case 'S':
      if (modifier == 'E')
        goto bad_format;

      DO_NUMBER (2, tp->tm_sec);

    case 's':       /* GNU extension.  */
      {
        struct tm ltm;
        time_t t;

        ltm = *tp;
        t = mktime (&ltm);

        /* Generate string value for T using time_t arithmetic;
           this works even if sizeof (long) < sizeof (time_t).  */

        bufp = buf + sizeof (buf);
        negative_number = t < 0;

        do
          {
        int d = t % 10;
        t /= 10;

        if (negative_number)
          {
            d = -d;

            /* Adjust if division truncates to minus infinity.  */
            if (0 < -1 % 10 && d < 0)
              {
            t++;
            d += 10;
              }
          }

        *--bufp = d + '0';
          }
        while (t != 0);

        digits = 1;
        goto do_number_sign_and_padding;
      }

    case 'X':
      if (modifier == 'O')
        goto bad_format;
#ifdef _NL_CURRENT
      if (! (modifier == 'E'
         && *(subfmt = _NL_CURRENT (LC_TIME, ERA_T_FMT)) != '\0'))
        subfmt = _NL_CURRENT (LC_TIME, T_FMT);
      goto subformat;
#else
# if HAVE_STRFTIME
      goto underlying_strftime;
# else
      /* Fall through.  */
# endif
#endif
    case 'T':       /* POSIX.2 extension.  */
      subfmt = "%H:%M:%S";
      goto subformat;

    case 't':       /* POSIX.2 extension.  */
      add (1, *p = '\t');
      break;

    case 'u':       /* POSIX.2 extension.  */
      DO_NUMBER (1, (tp->tm_wday - 1 + 7) % 7 + 1);

    case 'U':
      if (modifier == 'E')
        goto bad_format;

      DO_NUMBER (2, (tp->tm_yday - tp->tm_wday + 7) / 7);

    case 'V':
    case 'g':       /* GNU extension.  */
    case 'G':       /* GNU extension.  */
      if (modifier == 'E')
        goto bad_format;
      {
        int year = tp->tm_year + TM_YEAR_BASE;
        int days = iso_week_days (tp->tm_yday, tp->tm_wday);

        if (days < 0)
          {
        /* This ISO week belongs to the previous year.  */
        year--;
        days = iso_week_days (tp->tm_yday + (365 + __isleap (year)),
                      tp->tm_wday);
          }
        else
          {
        int d = iso_week_days (tp->tm_yday - (365 + __isleap (year)),
                       tp->tm_wday);
        if (0 <= d)
          {
            /* This ISO week belongs to the next year.  */
            year++;
            days = d;
          }
          }

        switch (*f)
          {
          case 'g':
        DO_NUMBER (2, (year % 100 + 100) % 100);

          case 'G':
        DO_NUMBER (1, year);

          default:
        DO_NUMBER (2, days / 7 + 1);
          }
      }

    case 'W':
      if (modifier == 'E')
        goto bad_format;

      DO_NUMBER (2, (tp->tm_yday - (tp->tm_wday - 1 + 7) % 7 + 7) / 7);

    case 'w':
      if (modifier == 'E')
        goto bad_format;

      DO_NUMBER (1, tp->tm_wday);

    case 'Y':
      if (modifier == 'E')
        {
#if HAVE_STRUCT_ERA_ENTRY
          struct era_entry *era = _nl_get_era_entry (tp);
          if (era)
        {
          subfmt = strchr (era->name_fmt, '\0') + 1;
          goto subformat;
        }
#else
# if HAVE_STRFTIME
          goto underlying_strftime;
# endif
#endif
        }
      if (modifier == 'O')
        goto bad_format;
      else
        DO_NUMBER (1, tp->tm_year + TM_YEAR_BASE);

    case 'y':
      if (modifier == 'E')
        {
#if HAVE_STRUCT_ERA_ENTRY
          struct era_entry *era = _nl_get_era_entry (tp);
          if (era)
        {
          int delta = tp->tm_year - era->start_date[0];
          DO_NUMBER (1, (era->offset
                 + (era->direction == '-' ? -delta : delta)));
        }
#else
# if HAVE_STRFTIME
          goto underlying_strftime;
# endif
#endif
        }
      DO_NUMBER (2, (tp->tm_year % 100 + 100) % 100);

    case 'Z':
      if (change_case)
        {
          to_uppcase = 0;
          to_lowcase = 1;
        }

#if HAVE_TZNAME
      /* The tzset() call might have changed the value.  */
      if (!(zone && *zone) && tp->tm_isdst >= 0)
        zone = tzname[tp->tm_isdst];
#endif
      if (! zone)
        zone = "";      /* POSIX.2 requires the empty string here.  */

      cpy (strlen (zone), zone);
      break;

    case 'z':       /* GNU extension.  */
      if (tp->tm_isdst < 0)
        break;

      {
        int diff;
#if HAVE_TM_GMTOFF
        diff = tp->tm_gmtoff;
#else
        if (ut)
          diff = 0;
        else
          {
        struct tm gtm;
        struct tm ltm;
        time_t lt;

        ltm = *tp;
        lt = mktime (&ltm);

        if (lt == (time_t) -1)
          {
            /* mktime returns -1 for errors, but -1 is also a
               valid time_t value.  Check whether an error really
               occurred.  */
            struct tm tm;

            if (! my_strftime_localtime_r (&lt, &tm)
            || ((ltm.tm_sec ^ tm.tm_sec)
                | (ltm.tm_min ^ tm.tm_min)
                | (ltm.tm_hour ^ tm.tm_hour)
                | (ltm.tm_mday ^ tm.tm_mday)
                | (ltm.tm_mon ^ tm.tm_mon)
                | (ltm.tm_year ^ tm.tm_year)))
              break;
          }

        if (! my_strftime_gmtime_r (&lt, &gtm))
          break;

        diff = tm_diff (&ltm, &gtm);
          }
#endif

        if (diff < 0)
          {
        add (1, *p = '-');
        diff = -diff;
          }
        else
          add (1, *p = '+');

        diff /= 60;
        DO_NUMBER (4, (diff / 60) * 100 + diff % 60);
      }

    case '\0':      /* GNU extension: % at end of format.  */
        --f;
        /* Fall through.  */
    default:
      /* Unknown format; output the format, including the '%',
         since this is most likely the right thing to do if a
         multibyte string has been misparsed.  */
    bad_format:
      {
        int flen;
        for (flen = 1; f[1 - flen] != '%'; flen++)
          continue;
        cpy (flen, &f[1 - flen]);
      }
      break;
    }
    }

  if (p && maxsize != 0)
    *p = '\0';
  return i;
}

Here is the call graph for this function:

---

Variable Documentation

char const month_name[][10] [static]

Initial value:

  {
    "January", "February", "March", "April", "May", "June",
    "July", "August", "September", "October", "November", "December"
  }

Definition at line 360 of file gnu_strftime.c.

const char spaces[16] [static]

Initial value:

 
  { ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ' }

Definition at line 190 of file gnu_strftime.c.

Referenced by show_queued_files().

char const weekday_name[][10] [static]

Initial value:

  {
    "Sunday", "Monday", "Tuesday", "Wednesday",
    "Thursday", "Friday", "Saturday"
  }

Definition at line 355 of file gnu_strftime.c.

const char zeroes[16] [static]

Initial value:

 
  { '0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0' }

Definition at line 192 of file gnu_strftime.c.