#include "postgres.h"
#include <ctype.h>
#include <unistd.h>
#include <math.h>
#include <float.h>
#include <limits.h>
#include "catalog/pg_collation.h"
#include "mb/pg_wchar.h"
#include "utils/builtins.h"
#include "utils/date.h"
#include "utils/datetime.h"
#include "utils/formatting.h"
#include "utils/int8.h"
#include "utils/numeric.h"
#include "utils/pg_locale.h"

Include dependency graph for formatting.c:

Data Structures
struct	KeySuffix

struct	KeyWord

struct	FormatNode

struct	NUMDesc

struct	DCHCacheEntry

struct	NUMCacheEntry

struct	TmFromChar

struct	TmToChar

struct	NUMProc

Macros
#define	DCH_TYPE 1 /* DATE-TIME version */

#define	NUM_TYPE 2 /* NUMBER version */

#define	KeyWord_INDEX_SIZE ('~' - ' ')

#define	KeyWord_INDEX_FILTER(_c) ((_c) <= ' ' \|\| (_c) >= '~' ? 0 : 1)

#define	DCH_MAX_ITEM_SIZ 12 /* max localized day name */

#define	NUM_MAX_ITEM_SIZ 8 /* roman number (RN has 15 chars) */

#define	MAXFLOATWIDTH 60

#define	MAXDOUBLEWIDTH 500

#define	NODE_TYPE_END 1

#define	NODE_TYPE_ACTION 2

#define	NODE_TYPE_CHAR 3

#define	SUFFTYPE_PREFIX 1

#define	SUFFTYPE_POSTFIX 2

#define	CLOCK_24_HOUR 0

#define	CLOCK_12_HOUR 1

#define	ADJUST_YEAR(year, is_interval) ((is_interval) ? (year) : ((year) <= 0 ? -((year) - 1) : (year)))

#define	A_D_STR "A.D."

#define	a_d_STR "a.d."

#define	AD_STR "AD"

#define	ad_STR "ad"

#define	B_C_STR "B.C."

#define	b_c_STR "b.c."

#define	BC_STR "BC"

#define	bc_STR "bc"

#define	A_M_STR "A.M."

#define	a_m_STR "a.m."

#define	AM_STR "AM"

#define	am_STR "am"

#define	P_M_STR "P.M."

#define	p_m_STR "p.m."

#define	PM_STR "PM"

#define	pm_STR "pm"

#define	ONE_UPPER 1 /* Name */

#define	ALL_UPPER 2 /* NAME */

#define	ALL_LOWER 3 /* name */

#define	FULL_SIZ 0

#define	MAX_MONTH_LEN 9

#define	MAX_MON_LEN 3

#define	MAX_DAY_LEN 9

#define	MAX_DY_LEN 3

#define	MAX_RM_LEN 4

#define	TH_UPPER 1

#define	TH_LOWER 2

#define	NUM_F_DECIMAL (1 << 1)

#define	NUM_F_LDECIMAL (1 << 2)

#define	NUM_F_ZERO (1 << 3)

#define	NUM_F_BLANK (1 << 4)

#define	NUM_F_FILLMODE (1 << 5)

#define	NUM_F_LSIGN (1 << 6)

#define	NUM_F_BRACKET (1 << 7)

#define	NUM_F_MINUS (1 << 8)

#define	NUM_F_PLUS (1 << 9)

#define	NUM_F_ROMAN (1 << 10)

#define	NUM_F_MULTI (1 << 11)

#define	NUM_F_PLUS_POST (1 << 12)

#define	NUM_F_MINUS_POST (1 << 13)

#define	NUM_F_EEEE (1 << 14)

#define	NUM_LSIGN_PRE (-1)

#define	NUM_LSIGN_POST 1

#define	NUM_LSIGN_NONE 0

#define	IS_DECIMAL(_f) ((_f)->flag & NUM_F_DECIMAL)

#define	IS_LDECIMAL(_f) ((_f)->flag & NUM_F_LDECIMAL)

#define	IS_ZERO(_f) ((_f)->flag & NUM_F_ZERO)

#define	IS_BLANK(_f) ((_f)->flag & NUM_F_BLANK)

#define	IS_FILLMODE(_f) ((_f)->flag & NUM_F_FILLMODE)

#define	IS_BRACKET(_f) ((_f)->flag & NUM_F_BRACKET)

#define	IS_MINUS(_f) ((_f)->flag & NUM_F_MINUS)

#define	IS_LSIGN(_f) ((_f)->flag & NUM_F_LSIGN)

#define	IS_PLUS(_f) ((_f)->flag & NUM_F_PLUS)

#define	IS_ROMAN(_f) ((_f)->flag & NUM_F_ROMAN)

#define	IS_MULTI(_f) ((_f)->flag & NUM_F_MULTI)

#define	IS_EEEE(_f) ((_f)->flag & NUM_F_EEEE)

#define	NUM_CACHE_SIZE 64

#define	NUM_CACHE_ENTRIES 20

#define	DCH_CACHE_SIZE 128

#define	DCH_CACHE_ENTRIES 20

#define	ZERO_tmfc(_X) memset(_X, 0, sizeof(TmFromChar))

#define	DEBUG_TMFC(_X)

#define	DEBUG_TM(_X)

#define	tmtcTm(_X) (&(_X)->tm)

#define	tmtcTzn(_X) ((_X)->tzn)

#define	tmtcFsec(_X) ((_X)->fsec)

#define	ZERO_tm(_X)

#define	ZERO_tmtc(_X)

#define	INVALID_FOR_INTERVAL

#define	DCH_S_FM 0x01

#define	DCH_S_TH 0x02

#define	DCH_S_th 0x04

#define	DCH_S_SP 0x08

#define	DCH_S_TM 0x10

#define	S_THth(_s) ((((_s) & DCH_S_TH) \|\| ((_s) & DCH_S_th)) ? 1 : 0)

#define	S_TH(_s) (((_s) & DCH_S_TH) ? 1 : 0)

#define	S_th(_s) (((_s) & DCH_S_th) ? 1 : 0)

#define	S_TH_TYPE(_s) (((_s) & DCH_S_TH) ? TH_UPPER : TH_LOWER)

#define	S_FM(_s) (((_s) & DCH_S_FM) ? 1 : 0)

#define	S_SP(_s) (((_s) & DCH_S_SP) ? 1 : 0)

#define	S_TM(_s) (((_s) & DCH_S_TM) ? 1 : 0)

#define	TM_SUFFIX_LEN 2

#define	SKIP_THth(ptr, _suf)

#define	zeroize_NUM(_n)

#define	OVERLOAD_TEST (Np->inout_p >= Np->inout + input_len)

#define	AMOUNT_TEST(_s) (input_len-(Np->inout_p-Np->inout) >= _s)

#define	IS_PREDEC_SPACE(_n)

#define	NUM_TOCHAR_prepare

#define	NUM_TOCHAR_finish

Typedefs
typedef struct FormatNode	FormatNode

typedef struct TmToChar	TmToChar

typedef struct NUMProc	NUMProc

Enumerations
enum	FromCharDateMode { FROM_CHAR_DATE_NONE = 0, FROM_CHAR_DATE_GREGORIAN, FROM_CHAR_DATE_ISOWEEK }

enum	DCH_poz { DCH_A_D, DCH_A_M, DCH_AD, DCH_AM, DCH_B_C, DCH_BC, DCH_CC, DCH_DAY, DCH_DDD, DCH_DD, DCH_DY, DCH_Day, DCH_Dy, DCH_D, DCH_FX, DCH_HH24, DCH_HH12, DCH_HH, DCH_IDDD, DCH_ID, DCH_IW, DCH_IYYY, DCH_IYY, DCH_IY, DCH_I, DCH_J, DCH_MI, DCH_MM, DCH_MONTH, DCH_MON, DCH_MS, DCH_Month, DCH_Mon, DCH_OF, DCH_P_M, DCH_PM, DCH_Q, DCH_RM, DCH_SSSS, DCH_SS, DCH_TZ, DCH_US, DCH_WW, DCH_W, DCH_Y_YYY, DCH_YYYY, DCH_YYY, DCH_YY, DCH_Y, DCH_a_d, DCH_a_m, DCH_ad, DCH_am, DCH_b_c, DCH_bc, DCH_cc, DCH_day, DCH_ddd, DCH_dd, DCH_dy, DCH_d, DCH_fx, DCH_hh24, DCH_hh12, DCH_hh, DCH_iddd, DCH_id, DCH_iw, DCH_iyyy, DCH_iyy, DCH_iy, DCH_i, DCH_j, DCH_mi, DCH_mm, DCH_month, DCH_mon, DCH_ms, DCH_p_m, DCH_pm, DCH_q, DCH_rm, DCH_ssss, DCH_ss, DCH_tz, DCH_us, DCH_ww, DCH_w, DCH_y_yyy, DCH_yyyy, DCH_yyy, DCH_yy, DCH_y, _DCH_last_ }

enum	NUM_poz { NUM_COMMA, NUM_DEC, NUM_0, NUM_9, NUM_B, NUM_C, NUM_D, NUM_E, NUM_FM, NUM_G, NUM_L, NUM_MI, NUM_PL, NUM_PR, NUM_RN, NUM_SG, NUM_SP, NUM_S, NUM_TH, NUM_V, NUM_b, NUM_c, NUM_d, NUM_e, NUM_fm, NUM_g, NUM_l, NUM_mi, NUM_pl, NUM_pr, NUM_rn, NUM_sg, NUM_sp, NUM_s, NUM_th, NUM_v, _NUM_last_ }

Functions
static const KeyWord *	index_seq_search (const char str, const KeyWord kw, const int *index)

static const KeySuffix *	suff_search (const char str, const KeySuffix suf, int type)

static void	NUMDesc_prepare (NUMDesc num, FormatNode n)

static void	parse_format (FormatNode node, const char str, const KeyWord kw, const KeySuffix suf, const int index, int ver, NUMDesc Num)

static void	DCH_to_char (FormatNode node, bool is_interval, TmToChar in, char *out, Oid collid)

static void	DCH_from_char (FormatNode node, char in, TmFromChar *out)

static const char *	get_th (char *num, int type)

static char *	str_numth (char dest, char num, int type)

static int	adjust_partial_year_to_2020 (int year)

static int	strspace_len (char *str)

static void	from_char_set_mode (TmFromChar *tmfc, const FromCharDateMode mode)

static void	from_char_set_int (int dest, const int value, const FormatNode node)

static int	from_char_parse_int_len (int dest, char src, const int len, FormatNode node)

static int	from_char_parse_int (int dest, char src, FormatNode node)

static int	seq_search (char name, const char const array, int type, int max, int len)

static int	from_char_seq_search (int dest, char src, const char const array, int type, int max, FormatNode node)

static void	do_to_timestamp (text date_txt, text fmt, struct pg_tm tm, fsec_t fsec)

static char *	fill_str (char *str, int c, int max)

static FormatNode *	NUM_cache (int len, NUMDesc Num, text pars_str, bool *shouldFree)

static char *	int_to_roman (int number)

static void	NUM_prepare_locale (NUMProc *Np)

static char *	get_last_relevant_decnum (char *num)

static void	NUM_numpart_from_char (NUMProc *Np, int id, int input_len)

static void	NUM_numpart_to_char (NUMProc *Np, int id)

static char *	NUM_processor (FormatNode node, NUMDesc Num, char inout, char number, int from_char_input_len, int to_char_out_pre_spaces, int sign, bool is_to_char, Oid collid)

static DCHCacheEntry *	DCH_cache_getnew (const char *str)

static DCHCacheEntry *	DCH_cache_search (const char *str)

static DCHCacheEntry *	DCH_cache_fetch (const char *str)

static NUMCacheEntry *	NUM_cache_getnew (const char *str)

static NUMCacheEntry *	NUM_cache_search (const char *str)

static NUMCacheEntry *	NUM_cache_fetch (const char *str)

char *	str_tolower (const char *buff, size_t nbytes, Oid collid)

char *	str_toupper (const char *buff, size_t nbytes, Oid collid)

char *	str_initcap (const char *buff, size_t nbytes, Oid collid)

char *	asc_tolower (const char *buff, size_t nbytes)

char *	asc_toupper (const char *buff, size_t nbytes)

char *	asc_initcap (const char *buff, size_t nbytes)

static char *	str_tolower_z (const char *buff, Oid collid)

static char *	str_toupper_z (const char *buff, Oid collid)

static char *	str_initcap_z (const char *buff, Oid collid)

static char *	asc_tolower_z (const char *buff)

static char *	asc_toupper_z (const char *buff)

static bool	is_next_separator (FormatNode *n)

static text *	datetime_to_char_body (TmToChar tmtc, text fmt, bool is_interval, Oid collid)

Datum	timestamp_to_char (PG_FUNCTION_ARGS)

Datum	timestamptz_to_char (PG_FUNCTION_ARGS)

Datum	interval_to_char (PG_FUNCTION_ARGS)

Datum	to_timestamp (PG_FUNCTION_ARGS)

Datum	to_date (PG_FUNCTION_ARGS)

Datum	numeric_to_number (PG_FUNCTION_ARGS)

Datum	numeric_to_char (PG_FUNCTION_ARGS)

Datum	int4_to_char (PG_FUNCTION_ARGS)

Datum	int8_to_char (PG_FUNCTION_ARGS)

Datum	float4_to_char (PG_FUNCTION_ARGS)

Datum	float8_to_char (PG_FUNCTION_ARGS)

Variables
static const char *const	months_full []

static const char *const	days_short []

static const char *const	adbc_strings [] = {ad_STR, bc_STR, AD_STR, BC_STR, NULL}

static const char *const	adbc_strings_long [] = {a_d_STR, b_c_STR, A_D_STR, B_C_STR, NULL}

static const char *const	ampm_strings [] = {am_STR, pm_STR, AM_STR, PM_STR, NULL}

static const char *const	ampm_strings_long [] = {a_m_STR, p_m_STR, A_M_STR, P_M_STR, NULL}

static const char *const	rm_months_upper []

static const char *const	rm_months_lower []

static const char *const	rm1 [] = {"I", "II", "III", "IV", "V", "VI", "VII", "VIII", "IX", NULL}

static const char *const	rm10 [] = {"X", "XX", "XXX", "XL", "L", "LX", "LXX", "LXXX", "XC", NULL}

static const char *const	rm100 [] = {"C", "CC", "CCC", "CD", "D", "DC", "DCC", "DCCC", "CM", NULL}

static const char *const	numTH [] = {"ST", "ND", "RD", "TH", NULL}

static const char *const	numth [] = {"st", "nd", "rd", "th", NULL}

static DCHCacheEntry	DCHCache [DCH_CACHE_ENTRIES]

static int	n_DCHCache = 0

static int	DCHCounter = 0

static NUMCacheEntry	NUMCache [NUM_CACHE_ENTRIES]

static int	n_NUMCache = 0

static int	NUMCounter = 0

static const KeySuffix	DCH_suff []

static const KeyWord	DCH_keywords []

static const KeyWord	NUM_keywords []

static const int	DCH_index [KeyWord_INDEX_SIZE]

static const int	NUM_index [KeyWord_INDEX_SIZE]

return	result

Macro Definition Documentation

#define A_D_STR "A.D."

Definition at line 206 of file formatting.c.

Referenced by DCH_to_char().

#define a_d_STR "a.d."

Definition at line 207 of file formatting.c.

Referenced by DCH_to_char().

#define A_M_STR "A.M."

Definition at line 233 of file formatting.c.

Referenced by DCH_to_char().

#define a_m_STR "a.m."

Definition at line 234 of file formatting.c.

Referenced by DCH_to_char().

#define AD_STR "AD"

Definition at line 208 of file formatting.c.

Referenced by DCH_to_char().

#define ad_STR "ad"

Definition at line 209 of file formatting.c.

Referenced by DCH_to_char().

#define ADJUST_YEAR	(	year,
		is_interval
	)	((is_interval) ? (year) : ((year) <= 0 ? -((year) - 1) : (year)))

Definition at line 204 of file formatting.c.

Referenced by DCH_to_char().

#define ALL_LOWER 3 /* name */

Definition at line 289 of file formatting.c.

Referenced by DCH_from_char(), and seq_search().

#define ALL_UPPER 2 /* NAME */

Definition at line 288 of file formatting.c.

Referenced by DCH_from_char(), and seq_search().

#define AM_STR "AM"

Definition at line 235 of file formatting.c.

Referenced by DCH_to_char().

#define am_STR "am"

Definition at line 236 of file formatting.c.

Referenced by DCH_to_char().

#define AMOUNT_TEST ( _s ) (input_len-(Np->inout_p-Np->inout) >= _s)

Referenced by NUM_numpart_from_char().

#define B_C_STR "B.C."

Definition at line 211 of file formatting.c.

Referenced by DCH_to_char().

#define b_c_STR "b.c."

Definition at line 212 of file formatting.c.

Referenced by DCH_to_char().

#define BC_STR "BC"

Definition at line 213 of file formatting.c.

Referenced by DCH_to_char().

#define bc_STR "bc"

Definition at line 214 of file formatting.c.

Referenced by DCH_to_char().

#define CLOCK_12_HOUR 1

Definition at line 181 of file formatting.c.

Referenced by DCH_from_char(), and do_to_timestamp().

#define CLOCK_24_HOUR 0

Definition at line 180 of file formatting.c.

#define DCH_CACHE_ENTRIES 20

Definition at line 375 of file formatting.c.

Referenced by DCH_cache_getnew(), and DCH_cache_search().

#define DCH_CACHE_SIZE 128

Definition at line 374 of file formatting.c.

Referenced by datetime_to_char_body(), DCH_cache_getnew(), and do_to_timestamp().

#define DCH_MAX_ITEM_SIZ 12 /* max localized day name */

Definition at line 117 of file formatting.c.

Referenced by datetime_to_char_body(), DCH_to_char(), from_char_parse_int_len(), and from_char_seq_search().

#define DCH_S_FM 0x01

Definition at line 505 of file formatting.c.

#define DCH_S_SP 0x08

Definition at line 508 of file formatting.c.

#define DCH_S_TH 0x02

Definition at line 506 of file formatting.c.

#define DCH_S_th 0x04

Definition at line 507 of file formatting.c.

#define DCH_S_TM 0x10

Definition at line 509 of file formatting.c.

#define DCH_TYPE 1 /* DATE-TIME version */

Definition at line 103 of file formatting.c.

Referenced by datetime_to_char_body(), DCH_cache_fetch(), do_to_timestamp(), and parse_format().

#define DEBUG_TM ( _X )

Definition at line 452 of file formatting.c.

Referenced by do_to_timestamp().

#define DEBUG_TMFC ( _X )

Definition at line 451 of file formatting.c.

Referenced by do_to_timestamp().

#define FULL_SIZ 0

Definition at line 291 of file formatting.c.

#define INVALID_FOR_INTERVAL

Value:

do { \
    if (is_interval) \
		ereport(ERROR, \
                (errcode(ERRCODE_INVALID_DATETIME_FORMAT), \
                 errmsg("invalid format specification for an interval value"), \
                 errhint("Intervals are not tied to specific calendar dates."))); \
} while(0)

Definition at line 488 of file formatting.c.

Referenced by DCH_to_char().

#define IS_BLANK ( _f ) ((_f)->flag & NUM_F_BLANK)

Definition at line 349 of file formatting.c.

Referenced by NUMDesc_prepare().

#define IS_BRACKET ( _f ) ((_f)->flag & NUM_F_BRACKET)

Definition at line 351 of file formatting.c.

Referenced by NUM_numpart_from_char(), NUM_numpart_to_char(), NUM_processor(), and NUMDesc_prepare().

#define IS_DECIMAL ( _f ) ((_f)->flag & NUM_F_DECIMAL)

Definition at line 346 of file formatting.c.

Referenced by NUM_numpart_from_char(), NUM_numpart_to_char(), NUM_processor(), and NUMDesc_prepare().

#define IS_EEEE ( _f ) ((_f)->flag & NUM_F_EEEE)

Definition at line 357 of file formatting.c.

Referenced by float4_to_char(), float8_to_char(), int4_to_char(), int8_to_char(), NUM_processor(), NUMDesc_prepare(), and numeric_to_char().

#define IS_FILLMODE ( _f ) ((_f)->flag & NUM_F_FILLMODE)

Definition at line 350 of file formatting.c.

Referenced by NUM_numpart_to_char(), NUM_processor(), and NUMDesc_prepare().

#define IS_LDECIMAL ( _f ) ((_f)->flag & NUM_F_LDECIMAL)

Definition at line 347 of file formatting.c.

Referenced by NUM_prepare_locale().

#define IS_LSIGN ( _f ) ((_f)->flag & NUM_F_LSIGN)

Definition at line 353 of file formatting.c.

Referenced by NUM_numpart_from_char(), NUM_numpart_to_char(), NUM_processor(), and NUMDesc_prepare().

#define IS_MINUS ( _f ) ((_f)->flag & NUM_F_MINUS)

Definition at line 352 of file formatting.c.

Referenced by NUM_numpart_from_char(), NUM_processor(), and NUMDesc_prepare().

#define IS_MULTI ( _f ) ((_f)->flag & NUM_F_MULTI)

Definition at line 356 of file formatting.c.

Referenced by float4_to_char(), float8_to_char(), int4_to_char(), int8_to_char(), NUMDesc_prepare(), numeric_to_char(), and numeric_to_number().

#define IS_PLUS ( _f ) ((_f)->flag & NUM_F_PLUS)

Definition at line 354 of file formatting.c.

Referenced by NUM_numpart_from_char(), NUM_processor(), and NUMDesc_prepare().

#define IS_PREDEC_SPACE ( _n )

Value:

(IS_ZERO((_n)->Num)==FALSE && \
         (_n)->number == (_n)->number_p && \
         *(_n)->number == '0' && \
                 (_n)->Num->post != 0)

Definition at line 4453 of file formatting.c.

Referenced by NUM_numpart_to_char().

#define IS_ROMAN ( _f ) ((_f)->flag & NUM_F_ROMAN)

Definition at line 355 of file formatting.c.

Referenced by float4_to_char(), float8_to_char(), int4_to_char(), int8_to_char(), NUM_numpart_to_char(), NUM_processor(), NUMDesc_prepare(), and numeric_to_char().

#define IS_ZERO ( _f ) ((_f)->flag & NUM_F_ZERO)

Definition at line 348 of file formatting.c.

Referenced by NUM_numpart_to_char(), NUM_processor(), and NUMDesc_prepare().

#define KeyWord_INDEX_FILTER ( _c ) ((_c) <= ' ' || (_c) >= '~' ? 0 : 1)

Definition at line 111 of file formatting.c.

Referenced by index_seq_search().

#define KeyWord_INDEX_SIZE ('~' - ' ')

Definition at line 110 of file formatting.c.

#define MAX_DAY_LEN 9

Definition at line 295 of file formatting.c.

Referenced by DCH_from_char().

#define MAX_DY_LEN 3

Definition at line 296 of file formatting.c.

Referenced by DCH_from_char().

#define MAX_MON_LEN 3

Definition at line 294 of file formatting.c.

Referenced by DCH_from_char().

#define MAX_MONTH_LEN 9

Definition at line 293 of file formatting.c.

Referenced by DCH_from_char().

#define MAX_RM_LEN 4

Definition at line 297 of file formatting.c.

Referenced by DCH_from_char().

#define MAXDOUBLEWIDTH 500

Definition at line 125 of file formatting.c.

Referenced by float4_to_char(), float8_to_char(), and int4_to_char().

#define MAXFLOATWIDTH 60

Definition at line 124 of file formatting.c.

Referenced by float4_to_char().

#define NODE_TYPE_ACTION 2

Definition at line 174 of file formatting.c.

Referenced by DCH_from_char(), DCH_to_char(), is_next_separator(), NUM_processor(), NUMDesc_prepare(), and parse_format().

#define NODE_TYPE_CHAR 3

Definition at line 175 of file formatting.c.

Referenced by parse_format().

#define NODE_TYPE_END 1

Definition at line 173 of file formatting.c.

Referenced by DCH_from_char(), DCH_to_char(), is_next_separator(), NUM_processor(), and parse_format().

#define NUM_CACHE_ENTRIES 20

Definition at line 373 of file formatting.c.

Referenced by NUM_cache_getnew(), and NUM_cache_search().

#define NUM_CACHE_SIZE 64

Definition at line 372 of file formatting.c.

Referenced by NUM_cache(), and NUM_cache_getnew().

#define NUM_F_BLANK (1 << 4)

Definition at line 326 of file formatting.c.

Referenced by NUMDesc_prepare().

#define NUM_F_BRACKET (1 << 7)

Definition at line 329 of file formatting.c.

Referenced by NUM_processor(), and NUMDesc_prepare().

#define NUM_F_DECIMAL (1 << 1)

Definition at line 323 of file formatting.c.

Referenced by NUMDesc_prepare().

#define NUM_F_EEEE (1 << 14)

Definition at line 336 of file formatting.c.

Referenced by NUMDesc_prepare().

#define NUM_F_FILLMODE (1 << 5)

Definition at line 327 of file formatting.c.

Referenced by NUM_processor(), and NUMDesc_prepare().

#define NUM_F_LDECIMAL (1 << 2)

Definition at line 324 of file formatting.c.

Referenced by NUMDesc_prepare().

#define NUM_F_LSIGN (1 << 6)

Definition at line 328 of file formatting.c.

Referenced by NUMDesc_prepare().

#define NUM_F_MINUS (1 << 8)

Definition at line 330 of file formatting.c.

Referenced by NUM_processor(), and NUMDesc_prepare().

#define NUM_F_MINUS_POST (1 << 13)

Definition at line 335 of file formatting.c.

Referenced by NUMDesc_prepare().

#define NUM_F_MULTI (1 << 11)

Definition at line 333 of file formatting.c.

Referenced by NUMDesc_prepare().

#define NUM_F_PLUS (1 << 9)

Definition at line 331 of file formatting.c.

Referenced by NUM_processor(), and NUMDesc_prepare().

#define NUM_F_PLUS_POST (1 << 12)

Definition at line 334 of file formatting.c.

Referenced by NUMDesc_prepare().

#define NUM_F_ROMAN (1 << 10)

Definition at line 332 of file formatting.c.

Referenced by NUM_processor(), and NUMDesc_prepare().

#define NUM_F_ZERO (1 << 3)

Definition at line 325 of file formatting.c.

Referenced by NUMDesc_prepare().

#define NUM_LSIGN_NONE 0

Definition at line 340 of file formatting.c.

Referenced by NUMDesc_prepare().

#define NUM_LSIGN_POST 1

Definition at line 339 of file formatting.c.

Referenced by NUM_numpart_to_char(), NUM_processor(), and NUMDesc_prepare().

#define NUM_LSIGN_PRE (-1)

Definition at line 338 of file formatting.c.

Referenced by NUM_numpart_from_char(), NUM_numpart_to_char(), NUM_processor(), and NUMDesc_prepare().

#define NUM_MAX_ITEM_SIZ 8 /* roman number (RN has 15 chars) */

Definition at line 118 of file formatting.c.

Referenced by numeric_to_number().

#define NUM_TOCHAR_finish

Value:

do { \
    int     len; \
									\
	NUM_processor(format, &Num, VARDATA(result), numstr, 0, out_pre_spaces, sign, true, PG_GET_COLLATION()); \
                                    \
    if (shouldFree)                 \
		pfree(format);                \
                                    \
    /*                              \
     * Convert null-terminated representation of result to standard text. \
     * The result is usually much bigger than it needs to be, but there \
     * seems little point in realloc'ing it smaller. \
     */                             \
    len = strlen(VARDATA(result));  \
	SET_VARSIZE(result, len + VARHDRSZ); \
} while (0)

Definition at line 5078 of file formatting.c.

Referenced by float4_to_char(), float8_to_char(), int4_to_char(), int8_to_char(), and numeric_to_char().

#define NUM_TOCHAR_prepare

Value:

do { \
    int len = VARSIZE_ANY_EXHDR(fmt); \
    if (len <= 0 || len >= (INT_MAX-VARHDRSZ)/NUM_MAX_ITEM_SIZ)     \
		PG_RETURN_TEXT_P(cstring_to_text("")); \
	result = (text *) palloc0((len * NUM_MAX_ITEM_SIZ) + 1 + VARHDRSZ);    \
	format = NUM_cache(len, &Num, fmt, &shouldFree);       \
} while (0)

Definition at line 5065 of file formatting.c.

Referenced by float4_to_char(), float8_to_char(), int4_to_char(), int8_to_char(), and numeric_to_char().

#define NUM_TYPE 2 /* NUMBER version */

Definition at line 104 of file formatting.c.

Referenced by NUM_cache(), NUM_cache_fetch(), and parse_format().

#define ONE_UPPER 1 /* Name */

Definition at line 287 of file formatting.c.

Referenced by DCH_from_char(), and seq_search().

#define OVERLOAD_TEST (Np->inout_p >= Np->inout + input_len)

Referenced by NUM_numpart_from_char().

#define P_M_STR "P.M."

Definition at line 238 of file formatting.c.

Referenced by DCH_to_char().

#define p_m_STR "p.m."

Definition at line 239 of file formatting.c.

Referenced by DCH_to_char().

#define PM_STR "PM"

Definition at line 240 of file formatting.c.

Referenced by DCH_to_char().

#define pm_STR "pm"

Definition at line 241 of file formatting.c.

Referenced by DCH_to_char().

#define S_FM ( _s ) (((_s) & DCH_S_FM) ? 1 : 0)

Definition at line 521 of file formatting.c.

Referenced by DCH_to_char(), and from_char_parse_int_len().

#define S_SP ( _s ) (((_s) & DCH_S_SP) ? 1 : 0)

Definition at line 522 of file formatting.c.

#define S_TH ( _s ) (((_s) & DCH_S_TH) ? 1 : 0)

Definition at line 516 of file formatting.c.

#define S_th ( _s ) (((_s) & DCH_S_th) ? 1 : 0)

Definition at line 517 of file formatting.c.

#define S_TH_TYPE ( _s ) (((_s) & DCH_S_TH) ? TH_UPPER : TH_LOWER)

Definition at line 518 of file formatting.c.

Referenced by DCH_to_char().

#define S_THth ( _s ) ((((_s) & DCH_S_TH) || ((_s) & DCH_S_th)) ? 1 : 0)

Definition at line 515 of file formatting.c.

Referenced by DCH_to_char(), and is_next_separator().

#define S_TM ( _s ) (((_s) & DCH_S_TM) ? 1 : 0)

Definition at line 523 of file formatting.c.

Referenced by DCH_to_char().

#define SKIP_THth	(	ptr,
		_suf
	)

Value:

do { \
        if (S_THth(_suf)) \
        { \
            if (*(ptr)) (ptr)++; \
            if (*(ptr)) (ptr)++; \
        } \
    } while (0)

Definition at line 2031 of file formatting.c.

Referenced by DCH_from_char().

#define SUFFTYPE_POSTFIX 2

Definition at line 178 of file formatting.c.

Referenced by parse_format().

#define SUFFTYPE_PREFIX 1

Definition at line 177 of file formatting.c.

Referenced by parse_format().

#define TH_LOWER 2

Definition at line 300 of file formatting.c.

Referenced by NUM_processor().

#define TH_UPPER 1

Definition at line 299 of file formatting.c.

Referenced by get_th(), and NUM_processor().

#define TM_SUFFIX_LEN 2

Definition at line 529 of file formatting.c.

Referenced by DCH_to_char().

#define tmtcFsec ( _X ) ((_X)->fsec)

Definition at line 468 of file formatting.c.

Referenced by interval_to_char(), timestamp_to_char(), and timestamptz_to_char().

#define tmtcTm ( _X ) (&(_X)->tm)

Definition at line 466 of file formatting.c.

Referenced by interval_to_char(), timestamp_to_char(), and timestamptz_to_char().

#define tmtcTzn ( _X ) ((_X)->tzn)

Definition at line 467 of file formatting.c.

Referenced by DCH_to_char(), and timestamptz_to_char().

#define ZERO_tm ( _X )

Value:

do {    \
    (_X)->tm_sec  = (_X)->tm_year = (_X)->tm_min = (_X)->tm_wday = \
    (_X)->tm_hour = (_X)->tm_yday = (_X)->tm_isdst = 0; \
    (_X)->tm_mday = (_X)->tm_mon  = 1; \
} while(0)

Definition at line 470 of file formatting.c.

Referenced by do_to_timestamp().

#define ZERO_tmfc ( _X ) memset(_X, 0, sizeof(TmFromChar))

Definition at line 432 of file formatting.c.

Referenced by do_to_timestamp().

#define ZERO_tmtc ( _X )

Value:

do { \
	ZERO_tm( tmtcTm(_X) ); \
	tmtcFsec(_X) = 0; \
	tmtcTzn(_X) = NULL; \
} while(0)

Definition at line 477 of file formatting.c.

Referenced by interval_to_char(), timestamp_to_char(), and timestamptz_to_char().

#define zeroize_NUM ( _n )

Value:

do { \
    (_n)->flag      = 0;    \
    (_n)->lsign     = 0;    \
    (_n)->pre       = 0;    \
    (_n)->post      = 0;    \
    (_n)->pre_lsign_num = 0;    \
    (_n)->need_locale   = 0;    \
    (_n)->multi     = 0;    \
    (_n)->zero_start    = 0;    \
    (_n)->zero_end      = 0;    \
} while(0)

Definition at line 3896 of file formatting.c.

Referenced by NUM_cache(), and NUM_cache_fetch().

Typedef Documentation

typedef struct FormatNode FormatNode

Definition at line 154 of file formatting.c.

typedef struct NUMProc NUMProc

typedef struct TmToChar TmToChar

Enumeration Type Documentation

enum DCH_poz

Enumerator
DCH_A_D
DCH_A_M
DCH_AD
DCH_AM
DCH_B_C
DCH_BC
DCH_CC
DCH_DAY
DCH_DDD
DCH_DD
DCH_DY
DCH_Day
DCH_Dy
DCH_D
DCH_FX
DCH_HH24
DCH_HH12
DCH_HH
DCH_IDDD
DCH_ID
DCH_IW
DCH_IYYY
DCH_IYY
DCH_IY
DCH_I
DCH_J
DCH_MI
DCH_MM
DCH_MONTH
DCH_MON
DCH_MS
DCH_Month
DCH_Mon
DCH_OF
DCH_P_M
DCH_PM
DCH_Q
DCH_RM
DCH_SSSS
DCH_SS
DCH_TZ
DCH_US
DCH_WW
DCH_W
DCH_Y_YYY
DCH_YYYY
DCH_YYY
DCH_YY
DCH_Y
DCH_a_d
DCH_a_m
DCH_ad
DCH_am
DCH_b_c
DCH_bc
DCH_cc
DCH_day
DCH_ddd
DCH_dd
DCH_dy
DCH_d
DCH_fx
DCH_hh24
DCH_hh12
DCH_hh
DCH_iddd
DCH_id
DCH_iw
DCH_iyyy
DCH_iyy
DCH_iy
DCH_i
DCH_j
DCH_mi
DCH_mm
DCH_month
DCH_mon
DCH_ms
DCH_p_m
DCH_pm
DCH_q
DCH_rm
DCH_ssss
DCH_ss
DCH_tz
DCH_us
DCH_ww
DCH_w
DCH_y_yyy
DCH_yyyy
DCH_yyy
DCH_yy
DCH_y
_DCH_last_

Definition at line 572 of file formatting.c.

 {
     DCH_A_D,
     DCH_A_M,
     DCH_AD,
     DCH_AM,
     DCH_B_C,
     DCH_BC,
     DCH_CC,
     DCH_DAY,
     DCH_DDD,
     DCH_DD,
     DCH_DY,
     DCH_Day,
     DCH_Dy,
     DCH_D,
     DCH_FX,                     /* global suffix */
     DCH_HH24,
     DCH_HH12,
     DCH_HH,
     DCH_IDDD,
     DCH_ID,
     DCH_IW,
     DCH_IYYY,
     DCH_IYY,
     DCH_IY,
     DCH_I,
     DCH_J,
     DCH_MI,
     DCH_MM,
     DCH_MONTH,
     DCH_MON,
     DCH_MS,
     DCH_Month,
     DCH_Mon,
     DCH_OF,
     DCH_P_M,
     DCH_PM,
     DCH_Q,
     DCH_RM,
     DCH_SSSS,
     DCH_SS,
     DCH_TZ,
     DCH_US,
     DCH_WW,
     DCH_W,
     DCH_Y_YYY,
     DCH_YYYY,
     DCH_YYY,
     DCH_YY,
     DCH_Y,
     DCH_a_d,
     DCH_a_m,
     DCH_ad,
     DCH_am,
     DCH_b_c,
     DCH_bc,
     DCH_cc,
     DCH_day,
     DCH_ddd,
     DCH_dd,
     DCH_dy,
     DCH_d,
     DCH_fx,
     DCH_hh24,
     DCH_hh12,
     DCH_hh,
     DCH_iddd,
     DCH_id,
     DCH_iw,
     DCH_iyyy,
     DCH_iyy,
     DCH_iy,
     DCH_i,
     DCH_j,
     DCH_mi,
     DCH_mm,
     DCH_month,
     DCH_mon,
     DCH_ms,
     DCH_p_m,
     DCH_pm,
     DCH_q,
     DCH_rm,
     DCH_ssss,
     DCH_ss,
     DCH_tz,
     DCH_us,
     DCH_ww,
     DCH_w,
     DCH_y_yyy,
     DCH_yyyy,
     DCH_yyy,
     DCH_yy,
     DCH_y,
 
     /* last */
     _DCH_last_
 }           DCH_poz;

enum FromCharDateMode

Enumerator
FROM_CHAR_DATE_NONE
FROM_CHAR_DATE_GREGORIAN
FROM_CHAR_DATE_ISOWEEK

Definition at line 147 of file formatting.c.

 {
     FROM_CHAR_DATE_NONE = 0,    /* Value does not affect date mode. */
     FROM_CHAR_DATE_GREGORIAN,   /* Gregorian (day, month, year) style date */
     FROM_CHAR_DATE_ISOWEEK      /* ISO 8601 week date */
 } FromCharDateMode;

enum NUM_poz

Enumerator
NUM_COMMA
NUM_DEC
NUM_0
NUM_9
NUM_B
NUM_C
NUM_D
NUM_E
NUM_FM
NUM_G
NUM_L
NUM_MI
NUM_PL
NUM_PR
NUM_RN
NUM_SG
NUM_SP
NUM_S
NUM_TH
NUM_V
NUM_b
NUM_c
NUM_d
NUM_e
NUM_fm
NUM_g
NUM_l
NUM_mi
NUM_pl
NUM_pr
NUM_rn
NUM_sg
NUM_sp
NUM_s
NUM_th
NUM_v
_NUM_last_

Definition at line 672 of file formatting.c.

 {
     NUM_COMMA,
     NUM_DEC,
     NUM_0,
     NUM_9,
     NUM_B,
     NUM_C,
     NUM_D,
     NUM_E,
     NUM_FM,
     NUM_G,
     NUM_L,
     NUM_MI,
     NUM_PL,
     NUM_PR,
     NUM_RN,
     NUM_SG,
     NUM_SP,
     NUM_S,
     NUM_TH,
     NUM_V,
     NUM_b,
     NUM_c,
     NUM_d,
     NUM_e,
     NUM_fm,
     NUM_g,
     NUM_l,
     NUM_mi,
     NUM_pl,
     NUM_pr,
     NUM_rn,
     NUM_sg,
     NUM_sp,
     NUM_s,
     NUM_th,
     NUM_v,
 
     /* last */
     _NUM_last_
 }           NUM_poz;

Function Documentation

static int adjust_partial_year_to_2020 ( int year )

static

Definition at line 2111 of file formatting.c.

Referenced by DCH_from_char().

 {
     /*
      * Adjust all dates toward 2020; this is effectively what happens when we
      * assume '70' is 1970 and '69' is 2069.
      */
     /* Force 0-69 into the 2000's */
     if (year < 70)
         return year + 2000;
     /* Force 70-99 into the 1900's */
     else if (year < 100)
         return year + 1900;
     /* Force 100-519 into the 2000's */
     else if (year < 520)
         return year + 2000;
     /* Force 520-999 into the 1000's */
     else if (year < 1000)
         return year + 1000;
     else
         return year;
 }

char* asc_initcap	(	const char *	buff,
		size_t	nbytes
	)

Definition at line 1962 of file formatting.c.

References NULL, pg_ascii_tolower(), pg_ascii_toupper(), pnstrdup(), and result.

Referenced by str_initcap().

 {
     char       *result;
     char       *p;
     int         wasalnum = false;
 
     if (!buff)
         return NULL;
 
     result = pnstrdup(buff, nbytes);
 
     for (p = result; *p; p++)
     {
         char        c;
 
         if (wasalnum)
             *p = c = pg_ascii_tolower((unsigned char) *p);
         else
             *p = c = pg_ascii_toupper((unsigned char) *p);
         /* we don't trust isalnum() here */
         wasalnum = ((c >= 'A' && c <= 'Z') ||
                     (c >= 'a' && c <= 'z') ||
                     (c >= '0' && c <= '9'));
     }
 
     return result;
 }

char* asc_tolower	(	const char *	buff,
		size_t	nbytes
	)

Definition at line 1916 of file formatting.c.

References NULL, pg_ascii_tolower(), pnstrdup(), and result.

Referenced by asc_tolower_z(), and str_tolower().

 {
     char       *result;
     char       *p;
 
     if (!buff)
         return NULL;
 
     result = pnstrdup(buff, nbytes);
 
     for (p = result; *p; p++)
         *p = pg_ascii_tolower((unsigned char) *p);
 
     return result;
 }

static char* asc_tolower_z ( const char * buff )

static

Definition at line 2011 of file formatting.c.

References asc_tolower().

Referenced by DCH_to_char(), and NUM_processor().

 {
     return asc_tolower(buff, strlen(buff));
 }

char* asc_toupper	(	const char *	buff,
		size_t	nbytes
	)

Definition at line 1939 of file formatting.c.

References NULL, pg_ascii_toupper(), pnstrdup(), and result.

Referenced by asc_toupper_z(), and str_toupper().

 {
     char       *result;
     char       *p;
 
     if (!buff)
         return NULL;
 
     result = pnstrdup(buff, nbytes);
 
     for (p = result; *p; p++)
         *p = pg_ascii_toupper((unsigned char) *p);
 
     return result;
 }

static char* asc_toupper_z ( const char * buff )

static

Definition at line 2017 of file formatting.c.

References asc_toupper().

Referenced by DCH_to_char().

 {
     return asc_toupper(buff, strlen(buff));
 }

static text* datetime_to_char_body	(	TmToChar *	tmtc,
		text *	fmt,
		bool	is_interval,
		Oid	collid
	)

static

Definition at line 3373 of file formatting.c.

References cstring_to_text(), DCH_cache_fetch(), DCH_CACHE_SIZE, DCH_index, DCH_MAX_ITEM_SIZ, DCH_to_char(), DCH_TYPE, FALSE, format, DCHCacheEntry::format, NULL, palloc(), parse_format(), pfree(), result, text_to_cstring(), and TRUE.

Referenced by interval_to_char(), timestamp_to_char(), and timestamptz_to_char().

 {
     FormatNode *format;
     char       *fmt_str,
                *result;
     bool        incache;
     int         fmt_len;
     text       *res;
 
     /*
      * Convert fmt to C string
      */
     fmt_str = text_to_cstring(fmt);
     fmt_len = strlen(fmt_str);
 
     /*
      * Allocate workspace for result as C string
      */
     result = palloc((fmt_len * DCH_MAX_ITEM_SIZ) + 1);
     *result = '\0';
 
     if (fmt_len > DCH_CACHE_SIZE)
     {
         /*
          * Allocate new memory if format picture is bigger than static cache
          * and do not use cache (call parser always)
          */
         incache = FALSE;
 
         format = (FormatNode *) palloc((fmt_len + 1) * sizeof(FormatNode));
 
         parse_format(format, fmt_str, DCH_keywords,
                      DCH_suff, DCH_index, DCH_TYPE, NULL);
     }
     else
     {
         /*
          * Use cache buffers
          */
         DCHCacheEntry *ent = DCH_cache_fetch(fmt_str);
 
         incache = TRUE;
         format = ent->format;
     }
 
     /* The real work is here */
     DCH_to_char(format, is_interval, tmtc, result, collid);
 
     if (!incache)
         pfree(format);
 
     pfree(fmt_str);
 
     /* convert C-string result to TEXT format */
     res = cstring_to_text(result);
 
     pfree(result);
     return res;
 }

static DCHCacheEntry * DCH_cache_fetch ( const char * str )

static

Definition at line 3346 of file formatting.c.

References DCH_cache_getnew(), DCH_cache_search(), DCH_index, DCH_TYPE, DCHCacheEntry::format, NULL, parse_format(), and DCHCacheEntry::valid.

Referenced by datetime_to_char_body(), and do_to_timestamp().

 {
     DCHCacheEntry *ent;
 
     if ((ent = DCH_cache_search(str)) == NULL)
     {
         /*
          * Not in the cache, must run parser and save a new format-picture to
          * the cache.  Do not mark the cache entry valid until parsing
          * succeeds.
          */
         ent = DCH_cache_getnew(str);
 
         parse_format(ent->format, str, DCH_keywords,
                      DCH_suff, DCH_index, DCH_TYPE, NULL);
 
         ent->valid = true;
     }
     return ent;
 }

static DCHCacheEntry * DCH_cache_getnew ( const char * str )

static

Definition at line 3256 of file formatting.c.

References DCHCacheEntry::age, DCH_CACHE_ENTRIES, DCH_CACHE_SIZE, DCHCounter, elog, n_DCHCache, DCHCacheEntry::str, StrNCpy, and DCHCacheEntry::valid.

Referenced by DCH_cache_fetch().

 {
     DCHCacheEntry *ent;
 
     /* counter overflow check - paranoia? */
     if (DCHCounter >= (INT_MAX - DCH_CACHE_ENTRIES))
     {
         DCHCounter = 0;
 
         for (ent = DCHCache; ent < (DCHCache + DCH_CACHE_ENTRIES); ent++)
             ent->age = (++DCHCounter);
     }
 
     /*
      * If cache is full, remove oldest entry (or recycle first not-valid one)
      */
     if (n_DCHCache >= DCH_CACHE_ENTRIES)
     {
         DCHCacheEntry *old = DCHCache + 0;
 
 #ifdef DEBUG_TO_FROM_CHAR
         elog(DEBUG_elog_output, "cache is full (%d)", n_DCHCache);
 #endif
         if (old->valid)
         {
             for (ent = DCHCache + 1; ent < (DCHCache + DCH_CACHE_ENTRIES); ent++)
             {
                 if (!ent->valid)
                 {
                     old = ent;
                     break;
                 }
                 if (ent->age < old->age)
                     old = ent;
             }
         }
 #ifdef DEBUG_TO_FROM_CHAR
         elog(DEBUG_elog_output, "OLD: '%s' AGE: %d", old->str, old->age);
 #endif
         old->valid = false;
         StrNCpy(old->str, str, DCH_CACHE_SIZE + 1);
         old->age = (++DCHCounter);
         /* caller is expected to fill format, then set valid */
         return old;
     }
     else
     {
 #ifdef DEBUG_TO_FROM_CHAR
         elog(DEBUG_elog_output, "NEW (%d)", n_DCHCache);
 #endif
         ent = DCHCache + n_DCHCache;
         ent->valid = false;
         StrNCpy(ent->str, str, DCH_CACHE_SIZE + 1);
         ent->age = (++DCHCounter);
         /* caller is expected to fill format, then set valid */
         ++n_DCHCache;
         return ent;
     }
 }

static DCHCacheEntry * DCH_cache_search ( const char * str )

static

Definition at line 3318 of file formatting.c.

References DCHCacheEntry::age, DCH_CACHE_ENTRIES, DCHCounter, i, n_DCHCache, NULL, DCHCacheEntry::str, and DCHCacheEntry::valid.

Referenced by DCH_cache_fetch().

 {
     int         i;
     DCHCacheEntry *ent;
 
     /* counter overflow check - paranoia? */
     if (DCHCounter >= (INT_MAX - DCH_CACHE_ENTRIES))
     {
         DCHCounter = 0;
 
         for (ent = DCHCache; ent < (DCHCache + DCH_CACHE_ENTRIES); ent++)
             ent->age = (++DCHCounter);
     }
 
     for (i = 0, ent = DCHCache; i < n_DCHCache; i++, ent++)
     {
         if (ent->valid && strcmp(ent->str, str) == 0)
         {
             ent->age = (++DCHCounter);
             return ent;
         }
     }
 
     return NULL;
 }

static void DCH_from_char	(	FormatNode *	node,
		char *	in,
		TmFromChar *	out
	)

static

Definition at line 2984 of file formatting.c.

References adbc_strings, adbc_strings_long, adjust_partial_year_to_2020(), ALL_LOWER, ALL_UPPER, ampm_strings, ampm_strings_long, TmFromChar::bc, TmFromChar::cc, TmFromChar::clock, CLOCK_12_HOUR, TmFromChar::d, KeyWord::date_mode, days, DCH_A_D, DCH_a_d, DCH_A_M, DCH_a_m, DCH_AD, DCH_ad, DCH_AM, DCH_am, DCH_B_C, DCH_b_c, DCH_BC, DCH_bc, DCH_CC, DCH_D, DCH_DAY, DCH_Day, DCH_day, DCH_DD, DCH_DDD, DCH_DY, DCH_Dy, DCH_dy, DCH_FX, DCH_HH, DCH_HH12, DCH_HH24, DCH_I, DCH_ID, DCH_IDDD, DCH_IW, DCH_IY, DCH_IYY, DCH_IYYY, DCH_J, DCH_MI, DCH_MM, DCH_MON, DCH_Mon, DCH_mon, DCH_MONTH, DCH_Month, DCH_month, DCH_MS, DCH_OF, DCH_P_M, DCH_p_m, DCH_PM, DCH_pm, DCH_Q, DCH_RM, DCH_rm, DCH_SS, DCH_SSSS, DCH_TZ, DCH_tz, DCH_US, DCH_W, DCH_WW, DCH_Y, DCH_Y_YYY, DCH_YY, DCH_YYY, DCH_YYYY, TmFromChar::dd, TmFromChar::ddd, ereport, errcode(), errmsg(), ERROR, from_char_parse_int(), from_char_parse_int_len(), from_char_seq_search(), from_char_set_int(), from_char_set_mode(), TmFromChar::hh, KeyWord::id, TmFromChar::j, FormatNode::key, KeyWord::len, MAX_DAY_LEN, MAX_DY_LEN, MAX_MON_LEN, MAX_MONTH_LEN, MAX_RM_LEN, TmFromChar::mi, TmFromChar::mm, months, months_full, MONTHS_PER_YEAR, TmFromChar::ms, KeyWord::name, NODE_TYPE_ACTION, NODE_TYPE_END, NULL, ONE_UPPER, TmFromChar::pm, rm_months_lower, rm_months_upper, SKIP_THth, TmFromChar::ss, TmFromChar::ssss, FormatNode::suffix, FormatNode::type, TmFromChar::us, value, TmFromChar::w, TmFromChar::ww, TmFromChar::year, and TmFromChar::yysz.

Referenced by do_to_timestamp().

 {
     FormatNode *n;
     char       *s;
     int         len,
                 value;
     bool        fx_mode = false;
 
     for (n = node, s = in; n->type != NODE_TYPE_END && *s != '\0'; n++)
     {
         if (n->type != NODE_TYPE_ACTION)
         {
             /*
              * Separator, so consume one character from input string.  Notice
              * we don't insist that the consumed character match the format's
              * character.
              */
             s++;
             continue;
         }
 
         /* Ignore spaces before fields when not in FX (fixed width) mode */
         if (!fx_mode && n->key->id != DCH_FX)
         {
             while (*s != '\0' && isspace((unsigned char) *s))
                 s++;
         }
 
         from_char_set_mode(out, n->key->date_mode);
 
         switch (n->key->id)
         {
             case DCH_FX:
                 fx_mode = true;
                 break;
             case DCH_A_M:
             case DCH_P_M:
             case DCH_a_m:
             case DCH_p_m:
                 from_char_seq_search(&value, &s, ampm_strings_long,
                                      ALL_UPPER, n->key->len, n);
                 from_char_set_int(&out->pm, value % 2, n);
                 out->clock = CLOCK_12_HOUR;
                 break;
             case DCH_AM:
             case DCH_PM:
             case DCH_am:
             case DCH_pm:
                 from_char_seq_search(&value, &s, ampm_strings,
                                      ALL_UPPER, n->key->len, n);
                 from_char_set_int(&out->pm, value % 2, n);
                 out->clock = CLOCK_12_HOUR;
                 break;
             case DCH_HH:
             case DCH_HH12:
                 from_char_parse_int_len(&out->hh, &s, 2, n);
                 out->clock = CLOCK_12_HOUR;
                 SKIP_THth(s, n->suffix);
                 break;
             case DCH_HH24:
                 from_char_parse_int_len(&out->hh, &s, 2, n);
                 SKIP_THth(s, n->suffix);
                 break;
             case DCH_MI:
                 from_char_parse_int(&out->mi, &s, n);
                 SKIP_THth(s, n->suffix);
                 break;
             case DCH_SS:
                 from_char_parse_int(&out->ss, &s, n);
                 SKIP_THth(s, n->suffix);
                 break;
             case DCH_MS:        /* millisecond */
                 len = from_char_parse_int_len(&out->ms, &s, 3, n);
 
                 /*
                  * 25 is 0.25 and 250 is 0.25 too; 025 is 0.025 and not 0.25
                  */
                 out->ms *= len == 1 ? 100 :
                     len == 2 ? 10 : 1;
 
                 SKIP_THth(s, n->suffix);
                 break;
             case DCH_US:        /* microsecond */
                 len = from_char_parse_int_len(&out->us, &s, 6, n);
 
                 out->us *= len == 1 ? 100000 :
                     len == 2 ? 10000 :
                     len == 3 ? 1000 :
                     len == 4 ? 100 :
                     len == 5 ? 10 : 1;
 
                 SKIP_THth(s, n->suffix);
                 break;
             case DCH_SSSS:
                 from_char_parse_int(&out->ssss, &s, n);
                 SKIP_THth(s, n->suffix);
                 break;
             case DCH_tz:
             case DCH_TZ:
             case DCH_OF:
                 ereport(ERROR,
                         (errcode(ERRCODE_FEATURE_NOT_SUPPORTED),
                          errmsg("formatting field \"%s\" is only supported in to_char",
                                 n->key->name)));
                 break;
             case DCH_A_D:
             case DCH_B_C:
             case DCH_a_d:
             case DCH_b_c:
                 from_char_seq_search(&value, &s, adbc_strings_long,
                                      ALL_UPPER, n->key->len, n);
                 from_char_set_int(&out->bc, value % 2, n);
                 break;
             case DCH_AD:
             case DCH_BC:
             case DCH_ad:
             case DCH_bc:
                 from_char_seq_search(&value, &s, adbc_strings,
                                      ALL_UPPER, n->key->len, n);
                 from_char_set_int(&out->bc, value % 2, n);
                 break;
             case DCH_MONTH:
             case DCH_Month:
             case DCH_month:
                 from_char_seq_search(&value, &s, months_full, ONE_UPPER,
                                      MAX_MONTH_LEN, n);
                 from_char_set_int(&out->mm, value + 1, n);
                 break;
             case DCH_MON:
             case DCH_Mon:
             case DCH_mon:
                 from_char_seq_search(&value, &s, months, ONE_UPPER,
                                      MAX_MON_LEN, n);
                 from_char_set_int(&out->mm, value + 1, n);
                 break;
             case DCH_MM:
                 from_char_parse_int(&out->mm, &s, n);
                 SKIP_THth(s, n->suffix);
                 break;
             case DCH_DAY:
             case DCH_Day:
             case DCH_day:
                 from_char_seq_search(&value, &s, days, ONE_UPPER,
                                      MAX_DAY_LEN, n);
                 from_char_set_int(&out->d, value, n);
                 out->d++;
                 break;
             case DCH_DY:
             case DCH_Dy:
             case DCH_dy:
                 from_char_seq_search(&value, &s, days, ONE_UPPER,
                                      MAX_DY_LEN, n);
                 from_char_set_int(&out->d, value, n);
                 out->d++;
                 break;
             case DCH_DDD:
                 from_char_parse_int(&out->ddd, &s, n);
                 SKIP_THth(s, n->suffix);
                 break;
             case DCH_IDDD:
                 from_char_parse_int_len(&out->ddd, &s, 3, n);
                 SKIP_THth(s, n->suffix);
                 break;
             case DCH_DD:
                 from_char_parse_int(&out->dd, &s, n);
                 SKIP_THth(s, n->suffix);
                 break;
             case DCH_D:
                 from_char_parse_int(&out->d, &s, n);
                 SKIP_THth(s, n->suffix);
                 break;
             case DCH_ID:
                 from_char_parse_int_len(&out->d, &s, 1, n);
                 /* Shift numbering to match Gregorian where Sunday = 1 */
                 if (++out->d > 7)
                     out->d = 1;
                 SKIP_THth(s, n->suffix);
                 break;
             case DCH_WW:
             case DCH_IW:
                 from_char_parse_int(&out->ww, &s, n);
                 SKIP_THth(s, n->suffix);
                 break;
             case DCH_Q:
 
                 /*
                  * We ignore 'Q' when converting to date because it is unclear
                  * which date in the quarter to use, and some people specify
                  * both quarter and month, so if it was honored it might
                  * conflict with the supplied month. That is also why we don't
                  * throw an error.
                  *
                  * We still parse the source string for an integer, but it
                  * isn't stored anywhere in 'out'.
                  */
                 from_char_parse_int((int *) NULL, &s, n);
                 SKIP_THth(s, n->suffix);
                 break;
             case DCH_CC:
                 from_char_parse_int(&out->cc, &s, n);
                 SKIP_THth(s, n->suffix);
                 break;
             case DCH_Y_YYY:
                 {
                     int         matched,
                                 years,
                                 millennia,
                                 nch;
 
                     matched = sscanf(s, "%d,%03d%n", &millennia, &years, &nch);
                     if (matched < 2)
                         ereport(ERROR,
                                 (errcode(ERRCODE_INVALID_DATETIME_FORMAT),
                                  errmsg("invalid input string for \"Y,YYY\"")));
                     years += (millennia * 1000);
                     from_char_set_int(&out->year, years, n);
                     out->yysz = 4;
                     s += nch;
                     SKIP_THth(s, n->suffix);
                 }
                 break;
             case DCH_YYYY:
             case DCH_IYYY:
                 from_char_parse_int(&out->year, &s, n);
                 out->yysz = 4;
                 SKIP_THth(s, n->suffix);
                 break;
             case DCH_YYY:
             case DCH_IYY:
                 if (from_char_parse_int(&out->year, &s, n) < 4)
                     out->year = adjust_partial_year_to_2020(out->year);
                 out->yysz = 3;
                 SKIP_THth(s, n->suffix);
                 break;
             case DCH_YY:
             case DCH_IY:
                 if (from_char_parse_int(&out->year, &s, n) < 4)
                     out->year = adjust_partial_year_to_2020(out->year);
                 out->yysz = 2;
                 SKIP_THth(s, n->suffix);
                 break;
             case DCH_Y:
             case DCH_I:
                 if (from_char_parse_int(&out->year, &s, n) < 4)
                     out->year = adjust_partial_year_to_2020(out->year);
                 out->yysz = 1;
                 SKIP_THth(s, n->suffix);
                 break;
             case DCH_RM:
                 from_char_seq_search(&value, &s, rm_months_upper,
                                      ALL_UPPER, MAX_RM_LEN, n);
                 from_char_set_int(&out->mm, MONTHS_PER_YEAR - value, n);
                 break;
             case DCH_rm:
                 from_char_seq_search(&value, &s, rm_months_lower,
                                      ALL_LOWER, MAX_RM_LEN, n);
                 from_char_set_int(&out->mm, MONTHS_PER_YEAR - value, n);
                 break;
             case DCH_W:
                 from_char_parse_int(&out->w, &s, n);
                 SKIP_THth(s, n->suffix);
                 break;
             case DCH_J:
                 from_char_parse_int(&out->j, &s, n);
                 SKIP_THth(s, n->suffix);
                 break;
         }
     }
 }

static void DCH_to_char	(	FormatNode *	node,
		bool	is_interval,
		TmToChar *	in,
		char *	out,
		Oid	collid
	)

static

Definition at line 2417 of file formatting.c.

References A_D_STR, a_d_STR, A_M_STR, a_m_STR, AD_STR, ad_STR, ADJUST_YEAR, AM_STR, am_STR, asc_tolower_z(), asc_toupper_z(), B_C_STR, b_c_STR, BC_STR, bc_STR, cache_locale_time(), FormatNode::character, date2isoweek(), date2isoyear(), date2isoyearday(), date2j(), days, days_short, DCH_A_D, DCH_a_d, DCH_A_M, DCH_a_m, DCH_AD, DCH_ad, DCH_AM, DCH_am, DCH_B_C, DCH_b_c, DCH_BC, DCH_bc, DCH_CC, DCH_D, DCH_DAY, DCH_Day, DCH_day, DCH_DD, DCH_DDD, DCH_DY, DCH_Dy, DCH_dy, DCH_HH, DCH_HH12, DCH_HH24, DCH_I, DCH_ID, DCH_IDDD, DCH_IW, DCH_IY, DCH_IYY, DCH_IYYY, DCH_J, DCH_MAX_ITEM_SIZ, DCH_MI, DCH_MM, DCH_MON, DCH_Mon, DCH_mon, DCH_MONTH, DCH_Month, DCH_month, DCH_MS, DCH_OF, DCH_P_M, DCH_p_m, DCH_PM, DCH_pm, DCH_Q, DCH_RM, DCH_rm, DCH_SS, DCH_SSSS, DCH_TZ, DCH_tz, DCH_US, DCH_W, DCH_WW, DCH_Y, DCH_Y_YYY, DCH_YY, DCH_YYY, DCH_YYYY, ereport, errcode(), errmsg(), ERROR, TmToChar::fsec, HOURS_PER_DAY, i, KeyWord::id, INT64CONST, INVALID_FOR_INTERVAL, FormatNode::key, KeyWord::len, localized_abbrev_days, localized_abbrev_months, localized_full_days, localized_full_months, months, months_full, MONTHS_PER_YEAR, NODE_TYPE_ACTION, NODE_TYPE_END, P_M_STR, p_m_STR, pfree(), PM_STR, pm_STR, rm_months_lower, rm_months_upper, S_FM, S_TH_TYPE, S_THth, S_TM, SECS_PER_HOUR, SECS_PER_MINUTE, str_initcap_z(), str_numth(), str_tolower_z(), str_toupper_z(), FormatNode::suffix, tm, TmToChar::tm, pg_tm::tm_gmtoff, pg_tm::tm_hour, pg_tm::tm_mday, pg_tm::tm_min, pg_tm::tm_mon, pg_tm::tm_sec, TM_SUFFIX_LEN, pg_tm::tm_wday, pg_tm::tm_yday, pg_tm::tm_year, tmtcTzn, and FormatNode::type.

Referenced by datetime_to_char_body().

 {
     FormatNode *n;
     char       *s;
     struct pg_tm *tm = &in->tm;
     int         i;
 
     /* cache localized days and months */
     cache_locale_time();
 
     s = out;
     for (n = node; n->type != NODE_TYPE_END; n++)
     {
         if (n->type != NODE_TYPE_ACTION)
         {
             *s = n->character;
             s++;
             continue;
         }
 
         switch (n->key->id)
         {
             case DCH_A_M:
             case DCH_P_M:
                 strcpy(s, (tm->tm_hour % HOURS_PER_DAY >= HOURS_PER_DAY / 2)
                        ? P_M_STR : A_M_STR);
                 s += strlen(s);
                 break;
             case DCH_AM:
             case DCH_PM:
                 strcpy(s, (tm->tm_hour % HOURS_PER_DAY >= HOURS_PER_DAY / 2)
                        ? PM_STR : AM_STR);
                 s += strlen(s);
                 break;
             case DCH_a_m:
             case DCH_p_m:
                 strcpy(s, (tm->tm_hour % HOURS_PER_DAY >= HOURS_PER_DAY / 2)
                        ? p_m_STR : a_m_STR);
                 s += strlen(s);
                 break;
             case DCH_am:
             case DCH_pm:
                 strcpy(s, (tm->tm_hour % HOURS_PER_DAY >= HOURS_PER_DAY / 2)
                        ? pm_STR : am_STR);
                 s += strlen(s);
                 break;
             case DCH_HH:
             case DCH_HH12:
 
                 /*
                  * display time as shown on a 12-hour clock, even for
                  * intervals
                  */
                 sprintf(s, "%0*d", S_FM(n->suffix) ? 0 : (tm->tm_hour >= 0) ? 2 : 3,
                         tm->tm_hour % (HOURS_PER_DAY / 2) == 0 ? HOURS_PER_DAY / 2 :
                         tm->tm_hour % (HOURS_PER_DAY / 2));
                 if (S_THth(n->suffix))
                     str_numth(s, s, S_TH_TYPE(n->suffix));
                 s += strlen(s);
                 break;
             case DCH_HH24:
                 sprintf(s, "%0*d", S_FM(n->suffix) ? 0 : (tm->tm_hour >= 0) ? 2 : 3,
                         tm->tm_hour);
                 if (S_THth(n->suffix))
                     str_numth(s, s, S_TH_TYPE(n->suffix));
                 s += strlen(s);
                 break;
             case DCH_MI:
                 sprintf(s, "%0*d", S_FM(n->suffix) ? 0 : (tm->tm_min >= 0) ? 2 : 3,
                         tm->tm_min);
                 if (S_THth(n->suffix))
                     str_numth(s, s, S_TH_TYPE(n->suffix));
                 s += strlen(s);
                 break;
             case DCH_SS:
                 sprintf(s, "%0*d", S_FM(n->suffix) ? 0 : (tm->tm_sec >= 0) ? 2 : 3,
                         tm->tm_sec);
                 if (S_THth(n->suffix))
                     str_numth(s, s, S_TH_TYPE(n->suffix));
                 s += strlen(s);
                 break;
             case DCH_MS:        /* millisecond */
                 sprintf(s, "%03d", (int) (in->fsec / INT64CONST(1000)));
                 if (S_THth(n->suffix))
                     str_numth(s, s, S_TH_TYPE(n->suffix));
                 s += strlen(s);
                 break;
             case DCH_US:        /* microsecond */
                 sprintf(s, "%06d", (int) in->fsec);
                 if (S_THth(n->suffix))
                     str_numth(s, s, S_TH_TYPE(n->suffix));
                 s += strlen(s);
                 break;
             case DCH_SSSS:
                 sprintf(s, "%d", tm->tm_hour * SECS_PER_HOUR +
                         tm->tm_min * SECS_PER_MINUTE +
                         tm->tm_sec);
                 if (S_THth(n->suffix))
                     str_numth(s, s, S_TH_TYPE(n->suffix));
                 s += strlen(s);
                 break;
             case DCH_tz:
                 INVALID_FOR_INTERVAL;
                 if (tmtcTzn(in))
                 {
                     /* We assume here that timezone names aren't localized */
                     char       *p = asc_tolower_z(tmtcTzn(in));
 
                     strcpy(s, p);
                     pfree(p);
                     s += strlen(s);
                 }
                 break;
             case DCH_TZ:
                 INVALID_FOR_INTERVAL;
                 if (tmtcTzn(in))
                 {
                     strcpy(s, tmtcTzn(in));
                     s += strlen(s);
                 }
                 break;
             case DCH_OF:
                 INVALID_FOR_INTERVAL;
                 sprintf(s, "%c%0*d",
                         (tm->tm_gmtoff >= 0) ? '+' : '-',
                         S_FM(n->suffix) ? 0 : 2,
                         abs((int) tm->tm_gmtoff) / SECS_PER_HOUR);
                 s += strlen(s);
                 if (abs((int) tm->tm_gmtoff) % SECS_PER_HOUR != 0)
                 {
                     sprintf(s, ":%02d",
                             (abs((int) tm->tm_gmtoff) % SECS_PER_HOUR) / SECS_PER_MINUTE);
                     s += strlen(s);
                 }
                 break;
             case DCH_A_D:
             case DCH_B_C:
                 INVALID_FOR_INTERVAL;
                 strcpy(s, (tm->tm_year <= 0 ? B_C_STR : A_D_STR));
                 s += strlen(s);
                 break;
             case DCH_AD:
             case DCH_BC:
                 INVALID_FOR_INTERVAL;
                 strcpy(s, (tm->tm_year <= 0 ? BC_STR : AD_STR));
                 s += strlen(s);
                 break;
             case DCH_a_d:
             case DCH_b_c:
                 INVALID_FOR_INTERVAL;
                 strcpy(s, (tm->tm_year <= 0 ? b_c_STR : a_d_STR));
                 s += strlen(s);
                 break;
             case DCH_ad:
             case DCH_bc:
                 INVALID_FOR_INTERVAL;
                 strcpy(s, (tm->tm_year <= 0 ? bc_STR : ad_STR));
                 s += strlen(s);
                 break;
             case DCH_MONTH:
                 INVALID_FOR_INTERVAL;
                 if (!tm->tm_mon)
                     break;
                 if (S_TM(n->suffix))
                 {
                     char       *str = str_toupper_z(localized_full_months[tm->tm_mon - 1], collid);
 
                     if (strlen(str) <= (n->key->len + TM_SUFFIX_LEN) * DCH_MAX_ITEM_SIZ)
                         strcpy(s, str);
                     else
                         ereport(ERROR,
                                 (errcode(ERRCODE_DATETIME_VALUE_OUT_OF_RANGE),
                                  errmsg("localized string format value too long")));
                 }
                 else
                     sprintf(s, "%*s", S_FM(n->suffix) ? 0 : -9,
                             asc_toupper_z(months_full[tm->tm_mon - 1]));
                 s += strlen(s);
                 break;
             case DCH_Month:
                 INVALID_FOR_INTERVAL;
                 if (!tm->tm_mon)
                     break;
                 if (S_TM(n->suffix))
                 {
                     char       *str = str_initcap_z(localized_full_months[tm->tm_mon - 1], collid);
 
                     if (strlen(str) <= (n->key->len + TM_SUFFIX_LEN) * DCH_MAX_ITEM_SIZ)
                         strcpy(s, str);
                     else
                         ereport(ERROR,
                                 (errcode(ERRCODE_DATETIME_VALUE_OUT_OF_RANGE),
                                  errmsg("localized string format value too long")));
                 }
                 else
                     sprintf(s, "%*s", S_FM(n->suffix) ? 0 : -9,
                             months_full[tm->tm_mon - 1]);
                 s += strlen(s);
                 break;
             case DCH_month:
                 INVALID_FOR_INTERVAL;
                 if (!tm->tm_mon)
                     break;
                 if (S_TM(n->suffix))
                 {
                     char       *str = str_tolower_z(localized_full_months[tm->tm_mon - 1], collid);
 
                     if (strlen(str) <= (n->key->len + TM_SUFFIX_LEN) * DCH_MAX_ITEM_SIZ)
                         strcpy(s, str);
                     else
                         ereport(ERROR,
                                 (errcode(ERRCODE_DATETIME_VALUE_OUT_OF_RANGE),
                                  errmsg("localized string format value too long")));
                 }
                 else
                     sprintf(s, "%*s", S_FM(n->suffix) ? 0 : -9,
                             asc_tolower_z(months_full[tm->tm_mon - 1]));
                 s += strlen(s);
                 break;
             case DCH_MON:
                 INVALID_FOR_INTERVAL;
                 if (!tm->tm_mon)
                     break;
                 if (S_TM(n->suffix))
                 {
                     char       *str = str_toupper_z(localized_abbrev_months[tm->tm_mon - 1], collid);
 
                     if (strlen(str) <= (n->key->len + TM_SUFFIX_LEN) * DCH_MAX_ITEM_SIZ)
                         strcpy(s, str);
                     else
                         ereport(ERROR,
                                 (errcode(ERRCODE_DATETIME_VALUE_OUT_OF_RANGE),
                                  errmsg("localized string format value too long")));
                 }
                 else
                     strcpy(s, asc_toupper_z(months[tm->tm_mon - 1]));
                 s += strlen(s);
                 break;
             case DCH_Mon:
                 INVALID_FOR_INTERVAL;
                 if (!tm->tm_mon)
                     break;
                 if (S_TM(n->suffix))
                 {
                     char       *str = str_initcap_z(localized_abbrev_months[tm->tm_mon - 1], collid);
 
                     if (strlen(str) <= (n->key->len + TM_SUFFIX_LEN) * DCH_MAX_ITEM_SIZ)
                         strcpy(s, str);
                     else
                         ereport(ERROR,
                                 (errcode(ERRCODE_DATETIME_VALUE_OUT_OF_RANGE),
                                  errmsg("localized string format value too long")));
                 }
                 else
                     strcpy(s, months[tm->tm_mon - 1]);
                 s += strlen(s);
                 break;
             case DCH_mon:
                 INVALID_FOR_INTERVAL;
                 if (!tm->tm_mon)
                     break;
                 if (S_TM(n->suffix))
                 {
                     char       *str = str_tolower_z(localized_abbrev_months[tm->tm_mon - 1], collid);
 
                     if (strlen(str) <= (n->key->len + TM_SUFFIX_LEN) * DCH_MAX_ITEM_SIZ)
                         strcpy(s, str);
                     else
                         ereport(ERROR,
                                 (errcode(ERRCODE_DATETIME_VALUE_OUT_OF_RANGE),
                                  errmsg("localized string format value too long")));
                 }
                 else
                     strcpy(s, asc_tolower_z(months[tm->tm_mon - 1]));
                 s += strlen(s);
                 break;
             case DCH_MM:
                 sprintf(s, "%0*d", S_FM(n->suffix) ? 0 : (tm->tm_mon >= 0) ? 2 : 3,
                         tm->tm_mon);
                 if (S_THth(n->suffix))
                     str_numth(s, s, S_TH_TYPE(n->suffix));
                 s += strlen(s);
                 break;
             case DCH_DAY:
                 INVALID_FOR_INTERVAL;
                 if (S_TM(n->suffix))
                 {
                     char       *str = str_toupper_z(localized_full_days[tm->tm_wday], collid);
 
                     if (strlen(str) <= (n->key->len + TM_SUFFIX_LEN) * DCH_MAX_ITEM_SIZ)
                         strcpy(s, str);
                     else
                         ereport(ERROR,
                                 (errcode(ERRCODE_DATETIME_VALUE_OUT_OF_RANGE),
                                  errmsg("localized string format value too long")));
                 }
                 else
                     sprintf(s, "%*s", S_FM(n->suffix) ? 0 : -9,
                             asc_toupper_z(days[tm->tm_wday]));
                 s += strlen(s);
                 break;
             case DCH_Day:
                 INVALID_FOR_INTERVAL;
                 if (S_TM(n->suffix))
                 {
                     char       *str = str_initcap_z(localized_full_days[tm->tm_wday], collid);
 
                     if (strlen(str) <= (n->key->len + TM_SUFFIX_LEN) * DCH_MAX_ITEM_SIZ)
                         strcpy(s, str);
                     else
                         ereport(ERROR,
                                 (errcode(ERRCODE_DATETIME_VALUE_OUT_OF_RANGE),
                                  errmsg("localized string format value too long")));
                 }
                 else
                     sprintf(s, "%*s", S_FM(n->suffix) ? 0 : -9,
                             days[tm->tm_wday]);
                 s += strlen(s);
                 break;
             case DCH_day:
                 INVALID_FOR_INTERVAL;
                 if (S_TM(n->suffix))
                 {
                     char       *str = str_tolower_z(localized_full_days[tm->tm_wday], collid);
 
                     if (strlen(str) <= (n->key->len + TM_SUFFIX_LEN) * DCH_MAX_ITEM_SIZ)
                         strcpy(s, str);
                     else
                         ereport(ERROR,
                                 (errcode(ERRCODE_DATETIME_VALUE_OUT_OF_RANGE),
                                  errmsg("localized string format value too long")));
                 }
                 else
                     sprintf(s, "%*s", S_FM(n->suffix) ? 0 : -9,
                             asc_tolower_z(days[tm->tm_wday]));
                 s += strlen(s);
                 break;
             case DCH_DY:
                 INVALID_FOR_INTERVAL;
                 if (S_TM(n->suffix))
                 {
                     char       *str = str_toupper_z(localized_abbrev_days[tm->tm_wday], collid);
 
                     if (strlen(str) <= (n->key->len + TM_SUFFIX_LEN) * DCH_MAX_ITEM_SIZ)
                         strcpy(s, str);
                     else
                         ereport(ERROR,
                                 (errcode(ERRCODE_DATETIME_VALUE_OUT_OF_RANGE),
                                  errmsg("localized string format value too long")));
                 }
                 else
                     strcpy(s, asc_toupper_z(days_short[tm->tm_wday]));
                 s += strlen(s);
                 break;
             case DCH_Dy:
                 INVALID_FOR_INTERVAL;
                 if (S_TM(n->suffix))
                 {
                     char       *str = str_initcap_z(localized_abbrev_days[tm->tm_wday], collid);
 
                     if (strlen(str) <= (n->key->len + TM_SUFFIX_LEN) * DCH_MAX_ITEM_SIZ)
                         strcpy(s, str);
                     else
                         ereport(ERROR,
                                 (errcode(ERRCODE_DATETIME_VALUE_OUT_OF_RANGE),
                                  errmsg("localized string format value too long")));
                 }
                 else
                     strcpy(s, days_short[tm->tm_wday]);
                 s += strlen(s);
                 break;
             case DCH_dy:
                 INVALID_FOR_INTERVAL;
                 if (S_TM(n->suffix))
                 {
                     char       *str = str_tolower_z(localized_abbrev_days[tm->tm_wday], collid);
 
                     if (strlen(str) <= (n->key->len + TM_SUFFIX_LEN) * DCH_MAX_ITEM_SIZ)
                         strcpy(s, str);
                     else
                         ereport(ERROR,
                                 (errcode(ERRCODE_DATETIME_VALUE_OUT_OF_RANGE),
                                  errmsg("localized string format value too long")));
                 }
                 else
                     strcpy(s, asc_tolower_z(days_short[tm->tm_wday]));
                 s += strlen(s);
                 break;
             case DCH_DDD:
             case DCH_IDDD:
                 sprintf(s, "%0*d", S_FM(n->suffix) ? 0 : 3,
                         (n->key->id == DCH_DDD) ?
                         tm->tm_yday :
                         date2isoyearday(tm->tm_year, tm->tm_mon, tm->tm_mday));
                 if (S_THth(n->suffix))
                     str_numth(s, s, S_TH_TYPE(n->suffix));
                 s += strlen(s);
                 break;
             case DCH_DD:
                 sprintf(s, "%0*d", S_FM(n->suffix) ? 0 : 2, tm->tm_mday);
                 if (S_THth(n->suffix))
                     str_numth(s, s, S_TH_TYPE(n->suffix));
                 s += strlen(s);
                 break;
             case DCH_D:
                 INVALID_FOR_INTERVAL;
                 sprintf(s, "%d", tm->tm_wday + 1);
                 if (S_THth(n->suffix))
                     str_numth(s, s, S_TH_TYPE(n->suffix));
                 s += strlen(s);
                 break;
             case DCH_ID:
                 INVALID_FOR_INTERVAL;
                 sprintf(s, "%d", (tm->tm_wday == 0) ? 7 : tm->tm_wday);
                 if (S_THth(n->suffix))
                     str_numth(s, s, S_TH_TYPE(n->suffix));
                 s += strlen(s);
                 break;
             case DCH_WW:
                 sprintf(s, "%0*d", S_FM(n->suffix) ? 0 : 2,
                         (tm->tm_yday - 1) / 7 + 1);
                 if (S_THth(n->suffix))
                     str_numth(s, s, S_TH_TYPE(n->suffix));
                 s += strlen(s);
                 break;
             case DCH_IW:
                 sprintf(s, "%0*d", S_FM(n->suffix) ? 0 : 2,
                         date2isoweek(tm->tm_year, tm->tm_mon, tm->tm_mday));
                 if (S_THth(n->suffix))
                     str_numth(s, s, S_TH_TYPE(n->suffix));
                 s += strlen(s);
                 break;
             case DCH_Q:
                 if (!tm->tm_mon)
                     break;
                 sprintf(s, "%d", (tm->tm_mon - 1) / 3 + 1);
                 if (S_THth(n->suffix))
                     str_numth(s, s, S_TH_TYPE(n->suffix));
                 s += strlen(s);
                 break;
             case DCH_CC:
                 if (is_interval)    /* straight calculation */
                     i = tm->tm_year / 100;
                 else
                 {
                     if (tm->tm_year > 0)
                         /* Century 20 == 1901 - 2000 */
                         i = (tm->tm_year - 1) / 100 + 1;
                     else
                         /* Century 6BC == 600BC - 501BC */
                         i = tm->tm_year / 100 - 1;
                 }
                 if (i <= 99 && i >= -99)
                     sprintf(s, "%0*d", S_FM(n->suffix) ? 0 : (i >= 0) ? 2 : 3, i);
                 else
                     sprintf(s, "%d", i);
                 if (S_THth(n->suffix))
                     str_numth(s, s, S_TH_TYPE(n->suffix));
                 s += strlen(s);
                 break;
             case DCH_Y_YYY:
                 i = ADJUST_YEAR(tm->tm_year, is_interval) / 1000;
                 sprintf(s, "%d,%03d", i,
                         ADJUST_YEAR(tm->tm_year, is_interval) - (i * 1000));
                 if (S_THth(n->suffix))
                     str_numth(s, s, S_TH_TYPE(n->suffix));
                 s += strlen(s);
                 break;
             case DCH_YYYY:
             case DCH_IYYY:
                 sprintf(s, "%0*d",
                         S_FM(n->suffix) ? 0 :
                         (ADJUST_YEAR(tm->tm_year, is_interval) >= 0) ? 4 : 5,
                         (n->key->id == DCH_YYYY ?
                          ADJUST_YEAR(tm->tm_year, is_interval) :
                          ADJUST_YEAR(date2isoyear(tm->tm_year,
                                                   tm->tm_mon,
                                                   tm->tm_mday),
                                      is_interval)));
                 if (S_THth(n->suffix))
                     str_numth(s, s, S_TH_TYPE(n->suffix));
                 s += strlen(s);
                 break;
             case DCH_YYY:
             case DCH_IYY:
                 sprintf(s, "%0*d",
                         S_FM(n->suffix) ? 0 :
                         (ADJUST_YEAR(tm->tm_year, is_interval) >= 0) ? 3 : 4,
                         (n->key->id == DCH_YYY ?
                          ADJUST_YEAR(tm->tm_year, is_interval) :
                          ADJUST_YEAR(date2isoyear(tm->tm_year,
                                                   tm->tm_mon,
                                                   tm->tm_mday),
                                      is_interval)) % 1000);
                 if (S_THth(n->suffix))
                     str_numth(s, s, S_TH_TYPE(n->suffix));
                 s += strlen(s);
                 break;
             case DCH_YY:
             case DCH_IY:
                 sprintf(s, "%0*d",
                         S_FM(n->suffix) ? 0 :
                         (ADJUST_YEAR(tm->tm_year, is_interval) >= 0) ? 2 : 3,
                         (n->key->id == DCH_YY ?
                          ADJUST_YEAR(tm->tm_year, is_interval) :
                          ADJUST_YEAR(date2isoyear(tm->tm_year,
                                                   tm->tm_mon,
                                                   tm->tm_mday),
                                      is_interval)) % 100);
                 if (S_THth(n->suffix))
                     str_numth(s, s, S_TH_TYPE(n->suffix));
                 s += strlen(s);
                 break;
             case DCH_Y:
             case DCH_I:
                 sprintf(s, "%1d",
                         (n->key->id == DCH_Y ?
                          ADJUST_YEAR(tm->tm_year, is_interval) :
                          ADJUST_YEAR(date2isoyear(tm->tm_year,
                                                   tm->tm_mon,
                                                   tm->tm_mday),
                                      is_interval)) % 10);
                 if (S_THth(n->suffix))
                     str_numth(s, s, S_TH_TYPE(n->suffix));
                 s += strlen(s);
                 break;
             case DCH_RM:
                 if (!tm->tm_mon)
                     break;
                 sprintf(s, "%*s", S_FM(n->suffix) ? 0 : -4,
                         rm_months_upper[MONTHS_PER_YEAR - tm->tm_mon]);
                 s += strlen(s);
                 break;
             case DCH_rm:
                 if (!tm->tm_mon)
                     break;
                 sprintf(s, "%*s", S_FM(n->suffix) ? 0 : -4,
                         rm_months_lower[MONTHS_PER_YEAR - tm->tm_mon]);
                 s += strlen(s);
                 break;
             case DCH_W:
                 sprintf(s, "%d", (tm->tm_mday - 1) / 7 + 1);
                 if (S_THth(n->suffix))
                     str_numth(s, s, S_TH_TYPE(n->suffix));
                 s += strlen(s);
                 break;
             case DCH_J:
                 sprintf(s, "%d", date2j(tm->tm_year, tm->tm_mon, tm->tm_mday));
                 if (S_THth(n->suffix))
                     str_numth(s, s, S_TH_TYPE(n->suffix));
                 s += strlen(s);
                 break;
         }
     }
 
     *s = '\0';
 }

static void do_to_timestamp	(	text *	date_txt,
		text *	fmt,
		struct pg_tm *	tm,
		fsec_t *	fsec
	)

static

Definition at line 3614 of file formatting.c.

References TmFromChar::bc, TmFromChar::cc, TmFromChar::clock, CLOCK_12_HOUR, TmFromChar::d, DateTimeParseError(), DAY, DCH_cache_fetch(), DCH_CACHE_SIZE, DCH_from_char(), DCH_index, DCH_TYPE, TmFromChar::dd, TmFromChar::ddd, DEBUG_TM, DEBUG_TMFC, DTERR_FIELD_OVERFLOW, DTK_DATE_M, DTK_M, ereport, errcode(), errhint(), errmsg(), ERROR, FALSE, format, DCHCacheEntry::format, FROM_CHAR_DATE_ISOWEEK, TmFromChar::hh, HOURS_PER_DAY, i, INT64CONST, isleap, isoweek2date(), isoweek2j(), isoweekdate2date(), TmFromChar::j, j2date(), TmFromChar::mi, MINS_PER_HOUR, TmFromChar::mm, TmFromChar::mode, MONTH, MONTHS_PER_YEAR, TmFromChar::ms, NULL, palloc(), parse_format(), pfree(), TmFromChar::pm, SECS_PER_HOUR, SECS_PER_MINUTE, TmFromChar::ss, TmFromChar::ssss, text_to_cstring(), pg_tm::tm_hour, pg_tm::tm_mday, pg_tm::tm_min, pg_tm::tm_mon, pg_tm::tm_sec, pg_tm::tm_year, TRUE, TmFromChar::us, USECS_PER_SEC, ValidateDate(), VARSIZE_ANY_EXHDR, TmFromChar::w, TmFromChar::ww, YEAR, TmFromChar::year, TmFromChar::yysz, ZERO_tm, and ZERO_tmfc.

Referenced by to_date(), and to_timestamp().

 {
     FormatNode *format;
     TmFromChar  tmfc;
     int         fmt_len;
     char       *date_str;
     int         fmask;
 
     date_str = text_to_cstring(date_txt);
 
     ZERO_tmfc(&tmfc);
     ZERO_tm(tm);
     *fsec = 0;
     fmask = 0;                  /* bit mask for ValidateDate() */
 
     fmt_len = VARSIZE_ANY_EXHDR(fmt);
 
     if (fmt_len)
     {
         char       *fmt_str;
         bool        incache;
 
         fmt_str = text_to_cstring(fmt);
 
         if (fmt_len > DCH_CACHE_SIZE)
         {
             /*
              * Allocate new memory if format picture is bigger than static
              * cache and do not use cache (call parser always)
              */
             incache = FALSE;
 
             format = (FormatNode *) palloc((fmt_len + 1) * sizeof(FormatNode));
 
             parse_format(format, fmt_str, DCH_keywords,
                          DCH_suff, DCH_index, DCH_TYPE, NULL);
         }
         else
         {
             /*
              * Use cache buffers
              */
             DCHCacheEntry *ent = DCH_cache_fetch(fmt_str);
 
             incache = TRUE;
             format = ent->format;
         }
 
 #ifdef DEBUG_TO_FROM_CHAR
         /* dump_node(format, fmt_len); */
         /* dump_index(DCH_keywords, DCH_index); */
 #endif
 
         DCH_from_char(format, date_str, &tmfc);
 
         pfree(fmt_str);
         if (!incache)
             pfree(format);
     }
 
     DEBUG_TMFC(&tmfc);
 
     /*
      * Convert to_date/to_timestamp input fields to standard 'tm'
      */
     if (tmfc.ssss)
     {
         int         x = tmfc.ssss;
 
         tm->tm_hour = x / SECS_PER_HOUR;
         x %= SECS_PER_HOUR;
         tm->tm_min = x / SECS_PER_MINUTE;
         x %= SECS_PER_MINUTE;
         tm->tm_sec = x;
     }
 
     if (tmfc.ss)
         tm->tm_sec = tmfc.ss;
     if (tmfc.mi)
         tm->tm_min = tmfc.mi;
     if (tmfc.hh)
         tm->tm_hour = tmfc.hh;
 
     if (tmfc.clock == CLOCK_12_HOUR)
     {
         if (tm->tm_hour < 1 || tm->tm_hour > HOURS_PER_DAY / 2)
             ereport(ERROR,
                     (errcode(ERRCODE_INVALID_DATETIME_FORMAT),
                      errmsg("hour \"%d\" is invalid for the 12-hour clock",
                             tm->tm_hour),
                      errhint("Use the 24-hour clock, or give an hour between 1 and 12.")));
 
         if (tmfc.pm && tm->tm_hour < HOURS_PER_DAY / 2)
             tm->tm_hour += HOURS_PER_DAY / 2;
         else if (!tmfc.pm && tm->tm_hour == HOURS_PER_DAY / 2)
             tm->tm_hour = 0;
     }
 
     if (tmfc.year)
     {
         /*
          * If CC and YY (or Y) are provided, use YY as 2 low-order digits for
          * the year in the given century.  Keep in mind that the 21st century
          * AD runs from 2001-2100, not 2000-2099; 6th century BC runs from
          * 600BC to 501BC.
          */
         if (tmfc.cc && tmfc.yysz <= 2)
         {
             if (tmfc.bc)
                 tmfc.cc = -tmfc.cc;
             tm->tm_year = tmfc.year % 100;
             if (tm->tm_year)
             {
                 if (tmfc.cc >= 0)
                     tm->tm_year += (tmfc.cc - 1) * 100;
                 else
                     tm->tm_year = (tmfc.cc + 1) * 100 - tm->tm_year + 1;
             }
             else
             {
                 /* find century year for dates ending in "00" */
                 tm->tm_year = tmfc.cc * 100 + ((tmfc.cc >= 0) ? 0 : 1);
             }
         }
         else
         {
             /* If a 4-digit year is provided, we use that and ignore CC. */
             tm->tm_year = tmfc.year;
             if (tmfc.bc && tm->tm_year > 0)
                 tm->tm_year = -(tm->tm_year - 1);
         }
         fmask |= DTK_M(YEAR);
     }
     else if (tmfc.cc)
     {
         /* use first year of century */
         if (tmfc.bc)
             tmfc.cc = -tmfc.cc;
         if (tmfc.cc >= 0)
             /* +1 because 21st century started in 2001 */
             tm->tm_year = (tmfc.cc - 1) * 100 + 1;
         else
             /* +1 because year == 599 is 600 BC */
             tm->tm_year = tmfc.cc * 100 + 1;
         fmask |= DTK_M(YEAR);
     }
 
     if (tmfc.j)
     {
         j2date(tmfc.j, &tm->tm_year, &tm->tm_mon, &tm->tm_mday);
         fmask |= DTK_DATE_M;
     }
 
     if (tmfc.ww)
     {
         if (tmfc.mode == FROM_CHAR_DATE_ISOWEEK)
         {
             /*
              * If tmfc.d is not set, then the date is left at the beginning of
              * the ISO week (Monday).
              */
             if (tmfc.d)
                 isoweekdate2date(tmfc.ww, tmfc.d, &tm->tm_year, &tm->tm_mon, &tm->tm_mday);
             else
                 isoweek2date(tmfc.ww, &tm->tm_year, &tm->tm_mon, &tm->tm_mday);
             fmask |= DTK_DATE_M;
         }
         else
             tmfc.ddd = (tmfc.ww - 1) * 7 + 1;
     }
 
     if (tmfc.w)
         tmfc.dd = (tmfc.w - 1) * 7 + 1;
     if (tmfc.dd)
     {
         tm->tm_mday = tmfc.dd;
         fmask |= DTK_M(DAY);
     }
     if (tmfc.mm)
     {
         tm->tm_mon = tmfc.mm;
         fmask |= DTK_M(MONTH);
     }
 
     if (tmfc.ddd && (tm->tm_mon <= 1 || tm->tm_mday <= 1))
     {
         /*
          * The month and day field have not been set, so we use the
          * day-of-year field to populate them.  Depending on the date mode,
          * this field may be interpreted as a Gregorian day-of-year, or an ISO
          * week date day-of-year.
          */
 
         if (!tm->tm_year && !tmfc.bc)
             ereport(ERROR,
                     (errcode(ERRCODE_INVALID_DATETIME_FORMAT),
                      errmsg("cannot calculate day of year without year information")));
 
         if (tmfc.mode == FROM_CHAR_DATE_ISOWEEK)
         {
             int         j0;     /* zeroth day of the ISO year, in Julian */
 
             j0 = isoweek2j(tm->tm_year, 1) - 1;
 
             j2date(j0 + tmfc.ddd, &tm->tm_year, &tm->tm_mon, &tm->tm_mday);
             fmask |= DTK_DATE_M;
         }
         else
         {
             const int  *y;
             int         i;
 
             static const int ysum[2][13] = {
                 {0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334, 365},
             {0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335, 366}};
 
             y = ysum[isleap(tm->tm_year)];
 
             for (i = 1; i <= MONTHS_PER_YEAR; i++)
             {
                 if (tmfc.ddd <= y[i])
                     break;
             }
             if (tm->tm_mon <= 1)
                 tm->tm_mon = i;
 
             if (tm->tm_mday <= 1)
                 tm->tm_mday = tmfc.ddd - y[i - 1];
 
             fmask |= DTK_M(MONTH) | DTK_M(DAY);
         }
     }
 
     if (tmfc.ms)
         *fsec += tmfc.ms * 1000;
     if (tmfc.us)
         *fsec += tmfc.us;
 
     /* Range-check date fields according to bit mask computed above */
     if (fmask != 0)
     {
         /* We already dealt with AD/BC, so pass isjulian = true */
         int         dterr = ValidateDate(fmask, true, false, false, tm);
 
         if (dterr != 0)
         {
             /*
              * Force the error to be DTERR_FIELD_OVERFLOW even if ValidateDate
              * said DTERR_MD_FIELD_OVERFLOW, because we don't want to print an
              * irrelevant hint about datestyle.
              */
             DateTimeParseError(DTERR_FIELD_OVERFLOW, date_str, "timestamp");
         }
     }
 
     /* Range-check time fields too */
     if (tm->tm_hour < 0 || tm->tm_hour >= HOURS_PER_DAY ||
         tm->tm_min < 0 || tm->tm_min >= MINS_PER_HOUR ||
         tm->tm_sec < 0 || tm->tm_sec >= SECS_PER_MINUTE ||
         *fsec < INT64CONST(0) || *fsec >= USECS_PER_SEC)
         DateTimeParseError(DTERR_FIELD_OVERFLOW, date_str, "timestamp");
 
     DEBUG_TM(tm);
 
     pfree(date_str);
 }

static char * fill_str	(	char *	str,
		int	c,
		int	max
	)

static

Definition at line 3889 of file formatting.c.

Referenced by float4_to_char(), float8_to_char(), int4_to_char(), int8_to_char(), int_to_roman(), and numeric_to_char().

 {
     memset(str, c, max);
     *(str + max) = '\0';
     return str;
 }

Datum float4_to_char ( PG_FUNCTION_ARGS )

Definition at line 5491 of file formatting.c.

References fill_str(), format, int_to_roman(), IS_EEEE, is_infinite(), IS_MULTI, IS_ROMAN, MAXDOUBLEWIDTH, MAXFLOATWIDTH, NUMDesc::multi, NUM_TOCHAR_finish, NUM_TOCHAR_prepare, palloc(), PG_GETARG_FLOAT4, PG_GETARG_TEXT_PP, PG_RETURN_TEXT_P, NUMDesc::post, NUMDesc::pre, result, rint(), sign, snprintf(), val, and value.

 {
     float4      value = PG_GETARG_FLOAT4(0);
     text       *fmt = PG_GETARG_TEXT_PP(1);
     NUMDesc     Num;
     FormatNode *format;
     text       *result;
     bool        shouldFree;
     int         out_pre_spaces = 0,
                 sign = 0;
     char       *numstr,
                *orgnum,
                *p;
 
     NUM_TOCHAR_prepare;
 
     if (IS_ROMAN(&Num))
         numstr = orgnum = int_to_roman((int) rint(value));
     else if (IS_EEEE(&Num))
     {
         numstr = orgnum = (char *) palloc(MAXDOUBLEWIDTH + 1);
         if (isnan(value) || is_infinite(value))
         {
             /*
              * Allow 6 characters for the leading sign, the decimal point,
              * "e", the exponent's sign and two exponent digits.
              */
             numstr = (char *) palloc(Num.pre + Num.post + 7);
             fill_str(numstr, '#', Num.pre + Num.post + 6);
             *numstr = ' ';
             *(numstr + Num.pre + 1) = '.';
         }
         else
         {
             snprintf(orgnum, MAXDOUBLEWIDTH + 1, "%+.*e", Num.post, value);
 
             /*
              * Swap a leading positive sign for a space.
              */
             if (*orgnum == '+')
                 *orgnum = ' ';
 
             numstr = orgnum;
         }
     }
     else
     {
         float4      val = value;
         int         numstr_pre_len;
 
         if (IS_MULTI(&Num))
         {
             float       multi = pow((double) 10, (double) Num.multi);
 
             val = value * multi;
             Num.pre += Num.multi;
         }
 
         orgnum = (char *) palloc(MAXFLOATWIDTH + 1);
         snprintf(orgnum, MAXFLOATWIDTH + 1, "%.0f", fabs(val));
         numstr_pre_len = strlen(orgnum);
 
         /* adjust post digits to fit max float digits */
         if (numstr_pre_len >= FLT_DIG)
             Num.post = 0;
         else if (numstr_pre_len + Num.post > FLT_DIG)
             Num.post = FLT_DIG - numstr_pre_len;
         snprintf(orgnum, MAXFLOATWIDTH + 1, "%.*f", Num.post, val);
 
         if (*orgnum == '-')
         {                       /* < 0 */
             sign = '-';
             numstr = orgnum + 1;
         }
         else
         {
             sign = '+';
             numstr = orgnum;
         }
 
         if ((p = strchr(numstr, '.')))
             numstr_pre_len = p - numstr;
         else
             numstr_pre_len = strlen(numstr);
 
         /* needs padding? */
         if (numstr_pre_len < Num.pre)
             out_pre_spaces = Num.pre - numstr_pre_len;
         /* overflowed prefix digit format? */
         else if (numstr_pre_len > Num.pre)
         {
             numstr = (char *) palloc(Num.pre + Num.post + 2);
             fill_str(numstr, '#', Num.pre + Num.post + 1);
             *(numstr + Num.pre) = '.';
         }
     }
 
     NUM_TOCHAR_finish;
     PG_RETURN_TEXT_P(result);
 }

Datum float8_to_char ( PG_FUNCTION_ARGS )

Definition at line 5597 of file formatting.c.

References fill_str(), format, int_to_roman(), IS_EEEE, is_infinite(), IS_MULTI, IS_ROMAN, MAXDOUBLEWIDTH, NUMDesc::multi, NUM_TOCHAR_finish, NUM_TOCHAR_prepare, palloc(), PG_GETARG_FLOAT8, PG_GETARG_TEXT_PP, PG_RETURN_TEXT_P, NUMDesc::post, NUMDesc::pre, result, rint(), sign, snprintf(), val, and value.

 {
     float8      value = PG_GETARG_FLOAT8(0);
     text       *fmt = PG_GETARG_TEXT_PP(1);
     NUMDesc     Num;
     FormatNode *format;
     text       *result;
     bool        shouldFree;
     int         out_pre_spaces = 0,
                 sign = 0;
     char       *numstr,
                *orgnum,
                *p;
 
     NUM_TOCHAR_prepare;
 
     if (IS_ROMAN(&Num))
         numstr = orgnum = int_to_roman((int) rint(value));
     else if (IS_EEEE(&Num))
     {
         numstr = orgnum = (char *) palloc(MAXDOUBLEWIDTH + 1);
         if (isnan(value) || is_infinite(value))
         {
             /*
              * Allow 6 characters for the leading sign, the decimal point,
              * "e", the exponent's sign and two exponent digits.
              */
             numstr = (char *) palloc(Num.pre + Num.post + 7);
             fill_str(numstr, '#', Num.pre + Num.post + 6);
             *numstr = ' ';
             *(numstr + Num.pre + 1) = '.';
         }
         else
         {
             snprintf(orgnum, MAXDOUBLEWIDTH + 1, "%+.*e", Num.post, value);
 
             /*
              * Swap a leading positive sign for a space.
              */
             if (*orgnum == '+')
                 *orgnum = ' ';
 
             numstr = orgnum;
         }
     }
     else
     {
         float8      val = value;
         int         numstr_pre_len;
 
         if (IS_MULTI(&Num))
         {
             double      multi = pow((double) 10, (double) Num.multi);
 
             val = value * multi;
             Num.pre += Num.multi;
         }
         orgnum = (char *) palloc(MAXDOUBLEWIDTH + 1);
         numstr_pre_len = snprintf(orgnum, MAXDOUBLEWIDTH + 1, "%.0f", fabs(val));
 
         /* adjust post digits to fit max double digits */
         if (numstr_pre_len >= DBL_DIG)
             Num.post = 0;
         else if (numstr_pre_len + Num.post > DBL_DIG)
             Num.post = DBL_DIG - numstr_pre_len;
         snprintf(orgnum, MAXDOUBLEWIDTH + 1, "%.*f", Num.post, val);
 
         if (*orgnum == '-')
         {                       /* < 0 */
             sign = '-';
             numstr = orgnum + 1;
         }
         else
         {
             sign = '+';
             numstr = orgnum;
         }
 
         if ((p = strchr(numstr, '.')))
             numstr_pre_len = p - numstr;
         else
             numstr_pre_len = strlen(numstr);
 
         /* needs padding? */
         if (numstr_pre_len < Num.pre)
             out_pre_spaces = Num.pre - numstr_pre_len;
         /* overflowed prefix digit format? */
         else if (numstr_pre_len > Num.pre)
         {
             numstr = (char *) palloc(Num.pre + Num.post + 2);
             fill_str(numstr, '#', Num.pre + Num.post + 1);
             *(numstr + Num.pre) = '.';
         }
     }
 
     NUM_TOCHAR_finish;
     PG_RETURN_TEXT_P(result);
 }

static int from_char_parse_int	(	int *	dest,
		char **	src,
		FormatNode *	node
	)

static

Definition at line 2299 of file formatting.c.

References from_char_parse_int_len(), FormatNode::key, and KeyWord::len.

Referenced by DCH_from_char().

 {
     return from_char_parse_int_len(dest, src, node->key->len, node);
 }

static int from_char_parse_int_len	(	int *	dest,
		char **	src,
		const int	len,
		FormatNode *	node
	)

static

Definition at line 2209 of file formatting.c.

References Assert, DCH_MAX_ITEM_SIZ, ereport, errcode(), errdetail(), errhint(), errmsg(), ERROR, from_char_set_int(), init(), is_next_separator(), FormatNode::key, KeyWord::name, NULL, result, S_FM, strlcpy(), strspace_len(), and FormatNode::suffix.

Referenced by DCH_from_char(), and from_char_parse_int().

 {
     long        result;
     char        copy[DCH_MAX_ITEM_SIZ + 1];
     char       *init = *src;
     int         used;
 
     /*
      * Skip any whitespace before parsing the integer.
      */
     *src += strspace_len(*src);
 
     Assert(len <= DCH_MAX_ITEM_SIZ);
     used = (int) strlcpy(copy, *src, len + 1);
 
     if (S_FM(node->suffix) || is_next_separator(node))
     {
         /*
          * This node is in Fill Mode, or the next node is known to be a
          * non-digit value, so we just slurp as many characters as we can get.
          */
         errno = 0;
         result = strtol(init, src, 10);
     }
     else
     {
         /*
          * We need to pull exactly the number of characters given in 'len' out
          * of the string, and convert those.
          */
         char       *last;
 
         if (used < len)
             ereport(ERROR,
                     (errcode(ERRCODE_INVALID_DATETIME_FORMAT),
                      errmsg("source string too short for \"%s\" formatting field",
                             node->key->name),
                      errdetail("Field requires %d characters, but only %d "
                                "remain.",
                                len, used),
                      errhint("If your source string is not fixed-width, try "
                              "using the \"FM\" modifier.")));
 
         errno = 0;
         result = strtol(copy, &last, 10);
         used = last - copy;
 
         if (used > 0 && used < len)
             ereport(ERROR,
                     (errcode(ERRCODE_INVALID_DATETIME_FORMAT),
                      errmsg("invalid value \"%s\" for \"%s\"",
                             copy, node->key->name),
                      errdetail("Field requires %d characters, but only %d "
                                "could be parsed.", len, used),
                      errhint("If your source string is not fixed-width, try "
                              "using the \"FM\" modifier.")));
 
         *src += used;
     }
 
     if (*src == init)
         ereport(ERROR,
                 (errcode(ERRCODE_INVALID_DATETIME_FORMAT),
                  errmsg("invalid value \"%s\" for \"%s\"",
                         copy, node->key->name),
                  errdetail("Value must be an integer.")));
 
     if (errno == ERANGE || result < INT_MIN || result > INT_MAX)
         ereport(ERROR,
                 (errcode(ERRCODE_DATETIME_VALUE_OUT_OF_RANGE),
                  errmsg("value for \"%s\" in source string is out of range",
                         node->key->name),
                  errdetail("Value must be in the range %d to %d.",
                            INT_MIN, INT_MAX)));
 
     if (dest != NULL)
         from_char_set_int(dest, (int) result, node);
     return *src - init;
 }

static int from_char_seq_search	(	int *	dest,
		char **	src,
		const char const	array,
		int	type,
		int	max,
		FormatNode *	node
	)

static

Definition at line 2387 of file formatting.c.

References Assert, DCH_MAX_ITEM_SIZ, ereport, errcode(), errdetail(), errmsg(), ERROR, FormatNode::key, KeyWord::name, seq_search(), and strlcpy().

Referenced by DCH_from_char().

 {
     int         len;
 
     *dest = seq_search(*src, array, type, max, &len);
     if (len <= 0)
     {
         char        copy[DCH_MAX_ITEM_SIZ + 1];
 
         Assert(max <= DCH_MAX_ITEM_SIZ);
         strlcpy(copy, *src, max + 1);
 
         ereport(ERROR,
                 (errcode(ERRCODE_INVALID_DATETIME_FORMAT),
                  errmsg("invalid value \"%s\" for \"%s\"",
                         copy, node->key->name),
                  errdetail("The given value did not match any of the allowed "
                            "values for this field.")));
     }
     *src += len;
     return len;
 }

static void from_char_set_int	(	int *	dest,
		const int	value,
		const FormatNode *	node
	)

static

Definition at line 2176 of file formatting.c.

References ereport, errcode(), errdetail(), errmsg(), ERROR, FormatNode::key, KeyWord::name, and value.

Referenced by DCH_from_char(), and from_char_parse_int_len().

 {
     if (*dest != 0 && *dest != value)
         ereport(ERROR,
                 (errcode(ERRCODE_INVALID_DATETIME_FORMAT),
                  errmsg("conflicting values for \"%s\" field in formatting string",
                         node->key->name),
                  errdetail("This value contradicts a previous setting for "
                            "the same field type.")));
     *dest = value;
 }

static void from_char_set_mode	(	TmFromChar *	tmfc,
		const FromCharDateMode	mode
	)

static

Definition at line 2154 of file formatting.c.

References ereport, errcode(), errhint(), errmsg(), ERROR, FROM_CHAR_DATE_NONE, and TmFromChar::mode.

Referenced by DCH_from_char().

 {
     if (mode != FROM_CHAR_DATE_NONE)
     {
         if (tmfc->mode == FROM_CHAR_DATE_NONE)
             tmfc->mode = mode;
         else if (tmfc->mode != mode)
             ereport(ERROR,
                     (errcode(ERRCODE_INVALID_DATETIME_FORMAT),
                      errmsg("invalid combination of date conventions"),
                      errhint("Do not mix Gregorian and ISO week date "
                              "conventions in a formatting template.")));
     }
 }

static char * get_last_relevant_decnum ( char * num )

static

Definition at line 4218 of file formatting.c.

References elog, NULL, and result.

Referenced by NUM_processor().

 {
     char       *result,
                *p = strchr(num, '.');
 
 #ifdef DEBUG_TO_FROM_CHAR
     elog(DEBUG_elog_output, "get_last_relevant_decnum()");
 #endif
 
     if (!p)
         return NULL;
 
     result = p;
 
     while (*(++p))
     {
         if (*p != '0')
             result = p;
     }
 
     return result;
 }

static const char * get_th	(	char *	num,
		int	type
	)

static

Definition at line 1392 of file formatting.c.

References ereport, errcode(), errmsg(), ERROR, numTH, numth, and TH_UPPER.

Referenced by NUM_processor(), and str_numth().

 {
     int         len = strlen(num),
                 last,
                 seclast;
 
     last = *(num + (len - 1));
     if (!isdigit((unsigned char) last))
         ereport(ERROR,
                 (errcode(ERRCODE_INVALID_TEXT_REPRESENTATION),
                  errmsg("\"%s\" is not a number", num)));
 
     /*
      * All "teens" (<x>1[0-9]) get 'TH/th', while <x>[02-9][123] still get
      * 'ST/st', 'ND/nd', 'RD/rd', respectively
      */
     if ((len > 1) && ((seclast = num[len - 2]) == '1'))
         last = 0;
 
     switch (last)
     {
         case '1':
             if (type == TH_UPPER)
                 return numTH[0];
             return numth[0];
         case '2':
             if (type == TH_UPPER)
                 return numTH[1];
             return numth[1];
         case '3':
             if (type == TH_UPPER)
                 return numTH[2];
             return numth[2];
         default:
             if (type == TH_UPPER)
                 return numTH[3];
             return numth[3];
     }
 }

static const KeyWord * index_seq_search	(	const char *	str,
		const KeyWord *	kw,
		const int *	index
	)

static

Definition at line 1008 of file formatting.c.

References KeyWord_INDEX_FILTER, KeyWord::len, KeyWord::name, and NULL.

Referenced by parse_format().

 {
     int         poz;
 
     if (!KeyWord_INDEX_FILTER(*str))
         return NULL;
 
     if ((poz = *(index + (*str - ' '))) > -1)
     {
         const KeyWord *k = kw + poz;
 
         do
         {
             if (strncmp(str, k->name, k->len) == 0)
                 return k;
             k++;
             if (!k->name)
                 return NULL;
         } while (*str == *k->name);
     }
     return NULL;
 }

Datum int4_to_char ( PG_FUNCTION_ARGS )

Definition at line 5286 of file formatting.c.

References DatumGetCString, DirectFunctionCall1, fill_str(), format, Int32GetDatum, int4out(), int_to_roman(), IS_EEEE, IS_MULTI, IS_ROMAN, MAXDOUBLEWIDTH, NUMDesc::multi, NUM_TOCHAR_finish, NUM_TOCHAR_prepare, palloc(), PG_GETARG_INT32, PG_GETARG_TEXT_PP, PG_RETURN_TEXT_P, NUMDesc::post, NUMDesc::pre, result, sign, snprintf(), val, and value.

 {
     int32       value = PG_GETARG_INT32(0);
     text       *fmt = PG_GETARG_TEXT_PP(1);
     NUMDesc     Num;
     FormatNode *format;
     text       *result;
     bool        shouldFree;
     int         out_pre_spaces = 0,
                 sign = 0;
     char       *numstr,
                *orgnum;
 
     NUM_TOCHAR_prepare;
 
     /*
      * On DateType depend part (int32)
      */
     if (IS_ROMAN(&Num))
         numstr = orgnum = int_to_roman(value);
     else if (IS_EEEE(&Num))
     {
         /* we can do it easily because float8 won't lose any precision */
         float8      val = (float8) value;
 
         orgnum = (char *) palloc(MAXDOUBLEWIDTH + 1);
         snprintf(orgnum, MAXDOUBLEWIDTH + 1, "%+.*e", Num.post, val);
 
         /*
          * Swap a leading positive sign for a space.
          */
         if (*orgnum == '+')
             *orgnum = ' ';
 
         numstr = orgnum;
     }
     else
     {
         int         numstr_pre_len;
 
         if (IS_MULTI(&Num))
         {
             orgnum = DatumGetCString(DirectFunctionCall1(int4out,
                                                          Int32GetDatum(value * ((int32) pow((double) 10, (double) Num.multi)))));
             Num.pre += Num.multi;
         }
         else
         {
             orgnum = DatumGetCString(DirectFunctionCall1(int4out,
                                                          Int32GetDatum(value)));
         }
 
         if (*orgnum == '-')
         {
             sign = '-';
             orgnum++;
         }
         else
             sign = '+';
 
         numstr_pre_len = strlen(orgnum);
 
         /* post-decimal digits?  Pad out with zeros. */
         if (Num.post)
         {
             numstr = (char *) palloc(numstr_pre_len + Num.post + 2);
             strcpy(numstr, orgnum);
             *(numstr + numstr_pre_len) = '.';
             memset(numstr + numstr_pre_len + 1, '0', Num.post);
             *(numstr + numstr_pre_len + Num.post + 1) = '\0';
         }
         else
             numstr = orgnum;
 
         /* needs padding? */
         if (numstr_pre_len < Num.pre)
             out_pre_spaces = Num.pre - numstr_pre_len;
         /* overflowed prefix digit format? */
         else if (numstr_pre_len > Num.pre)
         {
             numstr = (char *) palloc(Num.pre + Num.post + 2);
             fill_str(numstr, '#', Num.pre + Num.post + 1);
             *(numstr + Num.pre) = '.';
         }
     }
 
     NUM_TOCHAR_finish;
     PG_RETURN_TEXT_P(result);
 }

Datum int8_to_char ( PG_FUNCTION_ARGS )

Definition at line 5381 of file formatting.c.

References DatumGetCString, DatumGetInt32, DatumGetInt64, DatumGetNumeric, DirectFunctionCall1, DirectFunctionCall2, dtoi8(), fill_str(), Float8GetDatum(), format, Int64GetDatum(), int84(), int8_numeric(), int8mul(), int8out(), int_to_roman(), IS_EEEE, IS_MULTI, IS_ROMAN, NUMDesc::multi, NUM_TOCHAR_finish, NUM_TOCHAR_prepare, numeric_out_sci(), palloc(), PG_GETARG_INT64, PG_GETARG_TEXT_PP, PG_RETURN_TEXT_P, NUMDesc::post, NUMDesc::pre, result, sign, val, and value.

 {
     int64       value = PG_GETARG_INT64(0);
     text       *fmt = PG_GETARG_TEXT_PP(1);
     NUMDesc     Num;
     FormatNode *format;
     text       *result;
     bool        shouldFree;
     int         out_pre_spaces = 0,
                 sign = 0;
     char       *numstr,
                *orgnum;
 
     NUM_TOCHAR_prepare;
 
     /*
      * On DateType depend part (int32)
      */
     if (IS_ROMAN(&Num))
     {
         /* Currently don't support int8 conversion to roman... */
         numstr = orgnum = int_to_roman(DatumGetInt32(
                                                      DirectFunctionCall1(int84, Int64GetDatum(value))));
     }
     else if (IS_EEEE(&Num))
     {
         /* to avoid loss of precision, must go via numeric not float8 */
         Numeric     val;
 
         val = DatumGetNumeric(DirectFunctionCall1(int8_numeric,
                                                   Int64GetDatum(value)));
         orgnum = numeric_out_sci(val, Num.post);
 
         /*
          * numeric_out_sci() does not emit a sign for positive numbers.  We
          * need to add a space in this case so that positive and negative
          * numbers are aligned.  We don't have to worry about NaN here.
          */
         if (*orgnum != '-')
         {
             numstr = (char *) palloc(strlen(orgnum) + 2);
             *numstr = ' ';
             strcpy(numstr + 1, orgnum);
         }
         else
         {
             numstr = orgnum;
         }
     }
     else
     {
         int         numstr_pre_len;
 
         if (IS_MULTI(&Num))
         {
             double      multi = pow((double) 10, (double) Num.multi);
 
             value = DatumGetInt64(DirectFunctionCall2(int8mul,
                                                       Int64GetDatum(value),
                                                       DirectFunctionCall1(dtoi8,
                                                                           Float8GetDatum(multi))));
             Num.pre += Num.multi;
         }
 
         orgnum = DatumGetCString(DirectFunctionCall1(int8out,
                                                      Int64GetDatum(value)));
 
         if (*orgnum == '-')
         {
             sign = '-';
             orgnum++;
         }
         else
             sign = '+';
 
         numstr_pre_len = strlen(orgnum);
 
         /* post-decimal digits?  Pad out with zeros. */
         if (Num.post)
         {
             numstr = (char *) palloc(numstr_pre_len + Num.post + 2);
             strcpy(numstr, orgnum);
             *(numstr + numstr_pre_len) = '.';
             memset(numstr + numstr_pre_len + 1, '0', Num.post);
             *(numstr + numstr_pre_len + Num.post + 1) = '\0';
         }
         else
             numstr = orgnum;
 
         /* needs padding? */
         if (numstr_pre_len < Num.pre)
             out_pre_spaces = Num.pre - numstr_pre_len;
         /* overflowed prefix digit format? */
         else if (numstr_pre_len > Num.pre)
         {
             numstr = (char *) palloc(Num.pre + Num.post + 2);
             fill_str(numstr, '#', Num.pre + Num.post + 1);
             *(numstr + Num.pre) = '.';
         }
     }
 
     NUM_TOCHAR_finish;
     PG_RETURN_TEXT_P(result);
 }

static char * int_to_roman ( int number )

static

Definition at line 4087 of file formatting.c.

References fill_str(), NULL, palloc(), result, rm1, rm10, rm100, and snprintf().

Referenced by float4_to_char(), float8_to_char(), int4_to_char(), int8_to_char(), and numeric_to_char().

 {
     int         len = 0,
                 num = 0;
     char       *p = NULL,
                *result,
                 numstr[5];
 
     result = (char *) palloc(16);
     *result = '\0';
 
     if (number > 3999 || number < 1)
     {
         fill_str(result, '#', 15);
         return result;
     }
     len = snprintf(numstr, sizeof(numstr), "%d", number);
 
     for (p = numstr; *p != '\0'; p++, --len)
     {
         num = *p - 49;          /* 48 ascii + 1 */
         if (num < 0)
             continue;
 
         if (len > 3)
         {
             while (num-- != -1)
                 strcat(result, "M");
         }
         else
         {
             if (len == 3)
                 strcat(result, rm100[num]);
             else if (len == 2)
                 strcat(result, rm10[num]);
             else if (len == 1)
                 strcat(result, rm1[num]);
         }
     }
     return result;
 }

Datum interval_to_char ( PG_FUNCTION_ARGS )

Definition at line 3510 of file formatting.c.

References datetime_to_char_body(), DAYS_PER_MONTH, interval2tm(), MONTHS_PER_YEAR, PG_GET_COLLATION, PG_GETARG_INTERVAL_P, PG_GETARG_TEXT_PP, PG_RETURN_NULL, PG_RETURN_TEXT_P, tm, pg_tm::tm_mday, pg_tm::tm_mon, pg_tm::tm_yday, pg_tm::tm_year, tmtcFsec, tmtcTm, VARSIZE_ANY_EXHDR, and ZERO_tmtc.

 {
     Interval   *it = PG_GETARG_INTERVAL_P(0);
     text       *fmt = PG_GETARG_TEXT_PP(1),
                *res;
     TmToChar    tmtc;
     struct pg_tm *tm;
 
     if (VARSIZE_ANY_EXHDR(fmt) <= 0)
         PG_RETURN_NULL();
 
     ZERO_tmtc(&tmtc);
     tm = tmtcTm(&tmtc);
 
     if (interval2tm(*it, tm, &tmtcFsec(&tmtc)) != 0)
         PG_RETURN_NULL();
 
     /* wday is meaningless, yday approximates the total span in days */
     tm->tm_yday = (tm->tm_year * MONTHS_PER_YEAR + tm->tm_mon) * DAYS_PER_MONTH + tm->tm_mday;
 
     if (!(res = datetime_to_char_body(&tmtc, fmt, true, PG_GET_COLLATION())))
         PG_RETURN_NULL();
 
     PG_RETURN_TEXT_P(res);
 }

static bool is_next_separator ( FormatNode * n )

static

Definition at line 2079 of file formatting.c.

References FormatNode::character, FALSE, KeyWord::is_digit, FormatNode::key, NODE_TYPE_ACTION, NODE_TYPE_END, S_THth, FormatNode::suffix, TRUE, and FormatNode::type.

Referenced by from_char_parse_int_len().

 {
     if (n->type == NODE_TYPE_END)
         return FALSE;
 
     if (n->type == NODE_TYPE_ACTION && S_THth(n->suffix))
         return TRUE;
 
     /*
      * Next node
      */
     n++;
 
     /* end of format string is treated like a non-digit separator */
     if (n->type == NODE_TYPE_END)
         return TRUE;
 
     if (n->type == NODE_TYPE_ACTION)
     {
         if (n->key->is_digit)
             return FALSE;
 
         return TRUE;
     }
     else if (isdigit((unsigned char) n->character))
         return FALSE;
 
     return TRUE;                /* some non-digit input (separator) */
 }

static FormatNode * NUM_cache	(	int	len,
		NUMDesc *	Num,
		text *	pars_str,
		bool *	shouldFree
	)

static

Definition at line 4029 of file formatting.c.

References NUMDesc::flag, format, NUMCacheEntry::format, NUMDesc::lsign, NUMDesc::multi, NUMDesc::need_locale, NULL, NUMCacheEntry::Num, NUM_cache_fetch(), NUM_CACHE_SIZE, NUM_index, NUM_TYPE, palloc(), parse_format(), pfree(), NUMDesc::post, NUMDesc::pre, NUMDesc::pre_lsign_num, text_to_cstring(), NUMDesc::zero_end, NUMDesc::zero_start, and zeroize_NUM.

Referenced by numeric_to_number().

 {
     FormatNode *format = NULL;
     char       *str;
 
     str = text_to_cstring(pars_str);
 
     if (len > NUM_CACHE_SIZE)
     {
         /*
          * Allocate new memory if format picture is bigger than static cache
          * and do not use cache (call parser always)
          */
         format = (FormatNode *) palloc((len + 1) * sizeof(FormatNode));
 
         *shouldFree = true;
 
         zeroize_NUM(Num);
 
         parse_format(format, str, NUM_keywords,
                      NULL, NUM_index, NUM_TYPE, Num);
     }
     else
     {
         /*
          * Use cache buffers
          */
         NUMCacheEntry *ent = NUM_cache_fetch(str);
 
         *shouldFree = false;
 
         format = ent->format;
 
         /*
          * Copy cache to used struct
          */
         Num->flag = ent->Num.flag;
         Num->lsign = ent->Num.lsign;
         Num->pre = ent->Num.pre;
         Num->post = ent->Num.post;
         Num->pre_lsign_num = ent->Num.pre_lsign_num;
         Num->need_locale = ent->Num.need_locale;
         Num->multi = ent->Num.multi;
         Num->zero_start = ent->Num.zero_start;
         Num->zero_end = ent->Num.zero_end;
     }
 
 #ifdef DEBUG_TO_FROM_CHAR
     /* dump_node(format, len); */
     dump_index(NUM_keywords, NUM_index);
 #endif
 
     pfree(str);
     return format;
 }

static NUMCacheEntry * NUM_cache_fetch ( const char * str )

static

Definition at line 4001 of file formatting.c.

References NUMCacheEntry::format, NULL, NUMCacheEntry::Num, NUM_cache_getnew(), NUM_cache_search(), NUM_index, NUM_TYPE, parse_format(), NUMCacheEntry::valid, and zeroize_NUM.

Referenced by NUM_cache().

 {
     NUMCacheEntry *ent;
 
     if ((ent = NUM_cache_search(str)) == NULL)
     {
         /*
          * Not in the cache, must run parser and save a new format-picture to
          * the cache.  Do not mark the cache entry valid until parsing
          * succeeds.
          */
         ent = NUM_cache_getnew(str);
 
         zeroize_NUM(&ent->Num);
 
         parse_format(ent->format, str, NUM_keywords,
                      NULL, NUM_index, NUM_TYPE, &ent->Num);
 
         ent->valid = true;
     }
     return ent;
 }

static NUMCacheEntry * NUM_cache_getnew ( const char * str )

static

Definition at line 3911 of file formatting.c.

References NUMCacheEntry::age, elog, n_NUMCache, NUM_CACHE_ENTRIES, NUM_CACHE_SIZE, NUMCounter, NUMCacheEntry::str,

Data Structures

Macros

Typedefs

Enumerations

Functions

Variables

Macro Definition Documentation

Typedef Documentation

Enumeration Type Documentation

Function Documentation