Include functions for integer/money arithmetic.

diff --git a/src/backend/utils/adt/cash.c b/src/backend/utils/adt/cash.c
index 46dc66ba6e0ed9b85136b8eea44357a056286479..2de35f6a3b8b03c744b8f1697dba75c20b238502 100644 (file)
--- a/src/backend/utils/adt/cash.c
+++ b/src/backend/utils/adt/cash.c
@@ -9,7 +9,7 @@
  * workings can be found in the book "Software Solutions in C" by
  * Dale Schumacher, Academic Press, ISBN: 0-12-632360-7.
  *
- * $Header: /cvsroot/pgsql/src/backend/utils/adt/cash.c,v 1.15 1997/09/18 20:22:12 momjian Exp $
+ * $Header: /cvsroot/pgsql/src/backend/utils/adt/cash.c,v 1.16 1997/09/20 16:15:34 thomas Exp $
  */
 
 #include <stdio.h>
@@ -366,11 +366,11 @@ cash_mi(Cash *c1, Cash *c2)
 }                                                              /* cash_mi() */
 
 
-/* cash_mul()
- * Multiply cash by floating point number.
+/* cash_mul_flt8()
+ * Multiply cash by float8.
  */
 Cash      *
-cash_mul(Cash *c, float8 *f)
+cash_mul_flt8(Cash *c, float8 *f)
 {
        Cash       *result;
 
@@ -383,17 +383,27 @@ cash_mul(Cash *c, float8 *f)
        *result = ((*f) * (*c));
 
        return (result);
-}                                                              /* cash_mul() */
+}                                                              /* cash_mul_flt8() */
 
 
-/* cash_div()
- * Divide cash by floating point number.
+/* flt8_mul_cash()
+ * Multiply float8 by cash.
+ */
+Cash      *
+flt8_mul_cash(float8 *f, Cash *c)
+{
+       return (cash_mul_flt8(c, f));
+}                                                              /* flt8_mul_cash() */
+
+
+/* cash_div_flt8()
+ * Divide cash by float8.
  *
  * XXX Don't know if rounding or truncating is correct behavior.
  * Round for now. - tgl 97/04/15
  */
 Cash      *
-cash_div(Cash *c, float8 *f)
+cash_div_flt8(Cash *c, float8 *f)
 {
        Cash       *result;
 
@@ -409,7 +419,174 @@ cash_div(Cash *c, float8 *f)
        *result = rint(*c / *f);
 
        return (result);
-}                                                              /* cash_div() */
+}                                                              /* cash_div_flt8() */
+
+/* cash_mul_flt4()
+ * Multiply cash by float4.
+ */
+Cash      *
+cash_mul_flt4(Cash *c, float4 *f)
+{
+       Cash       *result;
+
+       if (!PointerIsValid(f) || !PointerIsValid(c))
+               return (NULL);
+
+       if (!PointerIsValid(result = PALLOCTYPE(Cash)))
+               elog(WARN, "Memory allocation failed, can't multiply cash", NULL);
+
+       *result = ((*f) * (*c));
+
+       return (result);
+}                                                              /* cash_mul_flt4() */
+
+
+/* flt4_mul_cash()
+ * Multiply float4 by float4.
+ */
+Cash      *
+flt4_mul_cash(float4 *f, Cash *c)
+{
+       return (cash_mul_flt4(c, f));
+}                                                              /* flt4_mul_cash() */
+
+
+/* cash_div_flt4()
+ * Divide cash by float4.
+ *
+ * XXX Don't know if rounding or truncating is correct behavior.
+ * Round for now. - tgl 97/04/15
+ */
+Cash      *
+cash_div_flt4(Cash *c, float4 *f)
+{
+       Cash       *result;
+
+       if (!PointerIsValid(f) || !PointerIsValid(c))
+               return (NULL);
+
+       if (!PointerIsValid(result = PALLOCTYPE(Cash)))
+               elog(WARN, "Memory allocation failed, can't divide cash", NULL);
+
+       if (*f == 0.0)
+               elog(WARN, "cash_div:  divide by 0.0 error");
+
+       *result = rint(*c / *f);
+
+       return (result);
+}                                                              /* cash_div_flt4() */
+
+
+/* cash_mul_int4()
+ * Multiply cash by int4.
+ */
+Cash      *
+cash_mul_int4(Cash *c, int4 i)
+{
+       Cash       *result;
+
+       if (!PointerIsValid(c))
+               return (NULL);
+
+       if (!PointerIsValid(result = PALLOCTYPE(Cash)))
+               elog(WARN, "Memory allocation failed, can't multiply cash", NULL);
+
+       *result = ((i) * (*c));
+
+       return (result);
+}                                                              /* cash_mul_int4() */
+
+
+/* int4_mul_cash()
+ * Multiply int4 by cash.
+ */
+Cash      *
+int4_mul_cash(int4 i, Cash *c)
+{
+       return (cash_mul_int4(c, i));
+}                                                              /* int4_mul_cash() */
+
+
+/* cash_div_int4()
+ * Divide cash by 4-byte integer.
+ *
+ * XXX Don't know if rounding or truncating is correct behavior.
+ * Round for now. - tgl 97/04/15
+ */
+Cash      *
+cash_div_int4(Cash *c, int4 i)
+{
+       Cash       *result;
+
+       if (!PointerIsValid(c))
+               return (NULL);
+
+       if (!PointerIsValid(result = PALLOCTYPE(Cash)))
+               elog(WARN, "Memory allocation failed, can't divide cash", NULL);
+
+       if (i == 0)
+               elog(WARN, "cash_idiv:  divide by 0 error");
+
+       *result = rint(*c / i);
+
+       return (result);
+}                                                              /* cash_div_int4() */
+
+
+/* cash_mul_int2()
+ * Multiply cash by int2.
+ */
+Cash      *
+cash_mul_int2(Cash *c, int2 s)
+{
+       Cash       *result;
+
+       if (!PointerIsValid(c))
+               return (NULL);
+
+       if (!PointerIsValid(result = PALLOCTYPE(Cash)))
+               elog(WARN, "Memory allocation failed, can't multiply cash", NULL);
+
+       *result = ((s) * (*c));
+
+       return (result);
+}                                                              /* cash_mul_int2() */
+
+
+/* int2_mul_cash()
+ * Multiply int2 by cash.
+ */
+Cash      *
+int2_mul_cash(int2 s, Cash *c)
+{
+       return (cash_mul_int2(c, s));
+}                                                              /* int2_mul_cash() */
+
+
+/* cash_div_int2()
+ * Divide cash by int2.
+ *
+ * XXX Don't know if rounding or truncating is correct behavior.
+ * Round for now. - tgl 97/04/15
+ */
+Cash      *
+cash_div_int2(Cash *c, int2 s)
+{
+       Cash       *result;
+
+       if (!PointerIsValid(c))
+               return (NULL);
+
+       if (!PointerIsValid(result = PALLOCTYPE(Cash)))
+               elog(WARN, "Memory allocation failed, can't divide cash", NULL);
+
+       if (s == 0)
+               elog(WARN, "cash_div:  divide by 0 error");
+
+       *result = rint(*c / s);
+
+       return (result);
+}                                                              /* cash_div_int2() */
 
 
 /* cashlarger()