From 5984746113d4f0b36b476981e9a91c4bb110ab3b Mon Sep 17 00:00:00 2001
From: "Thomas G. Lockhart" <lockhart@fourpalms.org>
Date: Sat, 20 Sep 1997 16:15:34 +0000
Subject: [PATCH] Include functions for integer/money arithmetic.
---
src/backend/utils/adt/cash.c | 195 +++++++++++++++++++++++++++++++++--
1 file changed, 186 insertions(+), 9 deletions(-)
diff --git a/src/backend/utils/adt/cash.c b/src/backend/utils/adt/cash.c
index 46dc66ba6e0..2de35f6a3b8 100644
--- 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()
--
GitLab