/* * cash . c * Written by D ' Arcy J . M . Cain * darcy @ druid . net * http : //www.druid.net/darcy/ * * Functions to allow input and output of money normally but store * and handle it as 64 bit ints * * A slightly modified version of this file and a discussion of the * workings can be found in the book " Software Solutions in C " by * Dale Schumacher , Academic Press , ISBN : 0 - 12 - 632360 - 7 except that * this version handles 64 bit numbers and so can hold values up to * $ 92 , 233 , 720 , 368 , 547 , 758 . 07 . * * src / backend / utils / adt / cash . c #include "postgres.h" #include <limits.h>#include <ctype.h>#include <math.h>#include "common/int.h" #include "libpq/pqformat.h" #include "utils/builtins.h" #include "utils/cash.h" #include "utils/float.h" #include "utils/numeric.h" #include "utils/pg_locale.h" /************************************************************************* * Private routines static void static const char *const small[] = {"zero" , "one" , "two" , "three" , "four" , "five" , "six" , "seven" ,"eight" , "nine" , "ten" , "eleven" , "twelve" , "thirteen" , "fourteen" ,"fifteen" , "sixteen" , "seventeen" , "eighteen" , "nineteen" , "twenty" ,"thirty" , "forty" , "fifty" , "sixty" , "seventy" , "eighty" , "ninety" const char *const *big = small + 18 ;int tu = value % 100 ;/* deal with the simple cases first */ if (value <= 20 )return ;/* is it an even multiple of 100? */ if (!tu)"%s hundred" , small[value / 100 ]);return ;/* more than 99? */ if (value > 99 )/* is it an even multiple of 10 other than 10? */ if (value % 10 == 0 && tu > 10 )"%s hundred %s" ,100 ], big[tu / 10 ]);else if (tu < 20 )"%s hundred and %s" ,100 ], small[tu]);else "%s hundred %s %s" ,100 ], big[tu / 10 ], small[tu % 10 ]);else /* is it an even multiple of 10 other than 10? */ if (value % 10 == 0 && tu > 10 )10 ]);else if (tu < 20 )else "%s %s" , big[tu / 10 ], small[tu % 10 ]);static inline Cashif (unlikely(pg_add_s64_overflow(c1, c2, &res)))"money out of range" )));return res;static inline Cashif (unlikely(pg_sub_s64_overflow(c1, c2, &res)))"money out of range" )));return res;static inline Cashif (unlikely(isnan(res) || !FLOAT8_FITS_IN_INT64(res)))"money out of range" )));return (Cash) res;static inline Cashif (unlikely(isnan(res) || !FLOAT8_FITS_IN_INT64(res)))"money out of range" )));return (Cash) res;static inline Cashif (unlikely(pg_mul_s64_overflow(c, i, &res)))"money out of range" )));return res;static inline Cashif (unlikely(i == 0 ))"division by zero" )));return c / i;/* cash_in() * Convert a string to a cash data type . * Format is [ $ ] # # # [ , ] # # # [ . # # ] * Examples : 123 . 45 $ 123 . 45 $ 123 , 456 . 78 * char *str = PG_GETARG_CSTRING(0 );0 ;0 ;1 ;bool seen_dot = false ;const char *s = str;int fpoint;char dsymbol;const char *ssymbol,struct lconv *lconvert = PGLC_localeconv();/* * frac_digits will be CHAR_MAX in some locales , notably C . However , just * testing for = = CHAR_MAX is risky , because of compilers like gcc that * " helpfully " let you alter the platform - standard definition of whether * char is signed or not . If we are so unfortunate as to get compiled * with a nonstandard - fsigned - char or - funsigned - char switch , then our * idea of CHAR_MAX will not agree with libc ' s . The safest course is not * to test for CHAR_MAX at all , but to impose a range check for plausible * frac_digits values . if (fpoint < 0 || fpoint > 10 )2 ; /* best guess in this case, I think */ /* we restrict dsymbol to be a single byte, but not the other symbols */ if (*lconvert->mon_decimal_point != '\0' &&1 ] == '\0' )else '.' ;if (*lconvert->mon_thousands_sep != '\0' )else /* ssymbol should not equal dsymbol */ ',' ) ? "," : "." ;'\0' ) ? lconvert->currency_symbol : "$" ;'\0' ) ? lconvert->positive_sign : "+" ;'\0' ) ? lconvert->negative_sign : "-" ;#ifdef CASHDEBUG"cashin- precision '%d'; decimal '%c'; thousands '%s'; currency '%s'; positive '%s'; negative '%s'\n" ,#endif /* we need to add all sorts of checking here. For now just */ /* strip all leading whitespace and any leading currency symbol */ while (isspace((unsigned char ) *s))if (strncmp(s, csymbol, strlen(csymbol)) == 0 )while (isspace((unsigned char ) *s))#ifdef CASHDEBUG"cashin- string is '%s'\n" , s);#endif /* a leading minus or paren signifies a negative number */ /* again, better heuristics needed */ /* XXX - doesn't properly check for balanced parens - djmc */ if (strncmp(s, nsymbol, strlen(nsymbol)) == 0 )1 ;else if (*s == '(' )1 ;else if (strncmp(s, psymbol, strlen(psymbol)) == 0 )#ifdef CASHDEBUG"cashin- string is '%s'\n" , s);#endif /* allow whitespace and currency symbol after the sign, too */ while (isspace((unsigned char ) *s))if (strncmp(s, csymbol, strlen(csymbol)) == 0 )while (isspace((unsigned char ) *s))#ifdef CASHDEBUG"cashin- string is '%s'\n" , s);#endif /* * We accumulate the absolute amount in " value " and then apply the sign at * the end . ( The sign can appear before or after the digits , so it would * be more complicated to do otherwise . ) Because of the larger range of * negative signed integers , we build " value " in the negative and then * flip the sign at the end , catching most - negative - number overflow if * necessary . for (; *s; s++)/* * We look for digits as long as we have found less than the required * number of decimal places . if (isdigit((unsigned char ) *s) && (!seen_dot || dec < fpoint))'0' ;if (pg_mul_s64_overflow(value, 10 , &value) ||0 ,"value \" %s\" is out of range for type %s" ,"money" )));if (seen_dot)/* decimal point? then start counting fractions... */ else if (*s == dsymbol && !seen_dot)true ;/* ignore if "thousands" separator, else we're done */ else if (strncmp(s, ssymbol, strlen(ssymbol)) == 0 )1 ;else break ;/* round off if there's another digit */ if (isdigit((unsigned char ) *s) && *s >= '5' )/* remember we build the value in the negative */ if (pg_sub_s64_overflow(value, 1 , &value))0 ,"value \" %s\" is out of range for type %s" ,"money" )));/* adjust for less than required decimal places */ for (; dec < fpoint; dec++)if (pg_mul_s64_overflow(value, 10 , &value))0 ,"value \" %s\" is out of range for type %s" ,"money" )));/* * should only be trailing digits followed by whitespace , right paren , * trailing sign , and / or trailing currency symbol while (isdigit((unsigned char ) *s))while (*s)if (isspace((unsigned char ) *s) || *s == ')' )else if (strncmp(s, nsymbol, strlen(nsymbol)) == 0 )1 ;else if (strncmp(s, psymbol, strlen(psymbol)) == 0 )else if (strncmp(s, csymbol, strlen(csymbol)) == 0 )else 0 ,"invalid input syntax for type %s: \" %s\"" ,"money" , str)));/* * If the value is supposed to be positive , flip the sign , but check for * the most negative number . if (sgn > 0 )if (value == PG_INT64_MIN)0 ,"value \" %s\" is out of range for type %s" ,"money" )));else #ifdef CASHDEBUG"cashin- result is " INT64_FORMAT "\n" , result);#endif /* cash_out() * Function to convert cash to a dollars and cents representation , using * the lc_monetary locale ' s formatting . 0 );char *result;char buf[128 ];char *bufptr;int digit_pos;int points,char dsymbol;const char *ssymbol,char sign_posn,struct lconv *lconvert = PGLC_localeconv();/* see comments about frac_digits in cash_in() */ if (points < 0 || points > 10 )2 ; /* best guess in this case, I think */ /* * As with frac_digits , must apply a range check to mon_grouping to avoid * being fooled by variant CHAR_MAX values . if (mon_group <= 0 || mon_group > 6 )3 ;/* we restrict dsymbol to be a single byte, but not the other symbols */ if (*lconvert->mon_decimal_point != '\0' &&1 ] == '\0' )else '.' ;if (*lconvert->mon_thousands_sep != '\0' )else /* ssymbol should not equal dsymbol */ ',' ) ? "," : "." ;'\0' ) ? lconvert->currency_symbol : "$" ;if (value < 0 )/* set up formatting data */ '\0' ) ? lconvert->negative_sign : "-" ;else /* make the amount positive for digit-reconstruction loop */ /* we build the digits+decimal-point+sep string right-to-left in buf[] */ sizeof (buf) - 1 ;'\0' ;/* * Generate digits till there are no non - zero digits left and we emitted * at least one to the left of the decimal point . digit_pos is the * current digit position , with zero as the digit just left of the decimal * point , increasing to the right . do if (points && digit_pos == 0 )/* insert decimal point, but not if value cannot be fractional */ else if (digit_pos < 0 && (digit_pos % mon_group) == 0 )/* insert thousands sep, but only to left of radix point */ 10 ) + '0' ;10 ;while (uvalue || digit_pos >= 0 );/*---------- * Now , attach currency symbol and sign symbol in the correct order . * * The POSIX spec defines these values controlling this code : * * p / n_sign_posn : * 0 Parentheses enclose the quantity and the currency_symbol . * 1 The sign string precedes the quantity and the currency_symbol . * 2 The sign string succeeds the quantity and the currency_symbol . * 3 The sign string precedes the currency_symbol . * 4 The sign string succeeds the currency_symbol . * * p / n_cs_precedes : 0 means currency symbol after value , else before it . * * p / n_sep_by_space : * 0 No < space > separates the currency symbol and value . * 1 If the currency symbol and sign string are adjacent , a < space > * separates them from the value ; otherwise , a < space > separates * the currency symbol from the value . * 2 If the currency symbol and sign string are adjacent , a < space > * separates them ; otherwise , a < space > separates the sign string * from the value . * - - - - - - - - - - switch (sign_posn)case 0 :if (cs_precedes)"(%s%s%s)" ,1 ) ? " " : "" ,else "(%s%s%s)" ,1 ) ? " " : "" ,break ;case 1 :default :if (cs_precedes)"%s%s%s%s%s" ,2 ) ? " " : "" ,1 ) ? " " : "" ,else "%s%s%s%s%s" ,2 ) ? " " : "" ,1 ) ? " " : "" ,break ;case 2 :if (cs_precedes)"%s%s%s%s%s" ,1 ) ? " " : "" ,2 ) ? " " : "" ,else "%s%s%s%s%s" ,1 ) ? " " : "" ,2 ) ? " " : "" ,break ;case 3 :if (cs_precedes)"%s%s%s%s%s" ,2 ) ? " " : "" ,1 ) ? " " : "" ,else "%s%s%s%s%s" ,1 ) ? " " : "" ,2 ) ? " " : "" ,break ;case 4 :if (cs_precedes)"%s%s%s%s%s" ,2 ) ? " " : "" ,1 ) ? " " : "" ,else "%s%s%s%s%s" ,1 ) ? " " : "" ,2 ) ? " " : "" ,break ;/* * cash_recv - converts external binary format to cash 0 );/* * cash_send - converts cash to binary format 0 );/* * Comparison functions 0 );1 );0 );1 );0 );1 );0 );1 );0 );1 );0 );1 );0 );1 );if (c1 > c2)1 );else if (c1 == c2)0 );else 1 );/* cash_pl() * Add two cash values . 0 );1 );/* cash_mi() * Subtract two cash values . 0 );1 );/* cash_div_cash() * Divide cash by cash , returning float8 . 0 );1 );if (divisor == 0 )"division by zero" )));/* cash_mul_flt8() * Multiply cash by float8 . 0 );1 );/* flt8_mul_cash() * Multiply float8 by cash . 0 );1 );/* cash_div_flt8() * Divide cash by float8 . 0 );1 );/* cash_mul_flt4() * Multiply cash by float4 . 0 );1 );/* flt4_mul_cash() * Multiply float4 by cash . 0 );1 );/* cash_div_flt4() * Divide cash by float4 . * 0 );1 );/* cash_mul_int8() * Multiply cash by int8 . 0 );1 );/* int8_mul_cash() * Multiply int8 by cash . 0 );1 );/* cash_div_int8() * Divide cash by 8 - byte integer . 0 );1 );/* cash_mul_int4() * Multiply cash by int4 . 0 );1 );/* int4_mul_cash() * Multiply int4 by cash . 0 );1 );/* cash_div_int4() * Divide cash by 4 - byte integer . * 0 );1 );/* cash_mul_int2() * Multiply cash by int2 . 0 );1 );/* int2_mul_cash() * Multiply int2 by cash . 0 );1 );/* cash_div_int2() * Divide cash by int2 . * 0 );1 );/* cashlarger() * Return larger of two cash values . 0 );1 );/* cashsmaller() * Return smaller of two cash values . 0 );1 );/* cash_words() * This converts an int4 as well but to a representation using words * Obviously way North American centric - sorry 0 );/* work with positive numbers */ if (value < 0 )"minus " );/* Now treat as unsigned, to avoid trouble at INT_MIN */ 100 );100 ); /* cents */ 100 )) % 1000 ; /* hundreds */ 100000 )) % 1000 ; /* thousands */ 100000000 )) % 1000 ; /* millions */ 100000000000 )) % 1000 ; /* billions */ 100000000000000 )) % 1000 ; /* trillions */ 100000000000000000 )) % 1000 ; /* quadrillions */ if (m6)" quadrillion " );if (m5)" trillion " );if (m4)" billion " );if (m3)" million " );if (m2)" thousand " );if (m1)if (dollars == 0 )"zero" );1 ? " dollar and " : " dollars and " );1 ? " cent" : " cents" );/* capitalize output */ 0 ] = pg_toupper((unsigned char ) buf.data[0 ]);/* return as text datum */ /* cash_numeric() * Convert cash to numeric . 0 );int fpoint;struct lconv *lconvert = PGLC_localeconv();/* see comments about frac_digits in cash_in() */ if (fpoint < 0 || fpoint > 10 )2 ;/* convert the integral money value to numeric */ /* scale appropriately, if needed */ if (fpoint > 0 )int i;/* compute required scale factor */ 1 ;for (i = 0 ; i < fpoint; i++)10 ;/* * Given integral inputs approaching INT64_MAX , select_div_scale ( ) * might choose a result scale of zero , causing loss of fractional * digits in the quotient . We can ensure an exact result by setting * the dscale of either input to be at least as large as the desired * result scale . numeric_round ( ) will do that for us . /* Now we can safely divide ... */ /* ... and forcibly round to exactly the intended number of digits */ /* numeric_cash() * Convert numeric to cash . 0 );int fpoint;int i;struct lconv *lconvert = PGLC_localeconv();/* see comments about frac_digits in cash_in() */ if (fpoint < 0 || fpoint > 10 )2 ;/* compute required scale factor */ 1 ;for (i = 0 ; i < fpoint; i++)10 ;/* multiply the input amount by scale factor */ /* note that numeric_int8 will round to nearest integer for us */ /* int4_cash() * Convert int4 ( int ) to cash 0 );int fpoint;int i;struct lconv *lconvert = PGLC_localeconv();/* see comments about frac_digits in cash_in() */ if (fpoint < 0 || fpoint > 10 )2 ;/* compute required scale factor */ 1 ;for (i = 0 ; i < fpoint; i++)10 ;/* compute amount * scale, checking for overflow */ /* int8_cash() * Convert int8 ( bigint ) to cash 0 );int fpoint;int i;struct lconv *lconvert = PGLC_localeconv();/* see comments about frac_digits in cash_in() */ if (fpoint < 0 || fpoint > 10 )2 ;/* compute required scale factor */ 1 ;for (i = 0 ; i < fpoint; i++)10 ;/* compute amount * scale, checking for overflow */
Messung V0.5 in Prozent C=94 H=93 G=93
¤ Dauer der Verarbeitung: 0.24 Sekunden
(vorverarbeitet am 2026-08-08)
¤ *© Formatika GbR, Deutschland
