dec_number 0.0.0

data/ext/dec_number/decNumber/example2.c

@@ -0,0 +1,52 @@
+/* ------------------------------------------------------------------ */
+/* Decimal Number Library Demonstration program                       */
+/* ------------------------------------------------------------------ */
+/* Copyright (c) IBM Corporation, 2001.  All rights reserved.         */
+/* ----------------------------------------------------------------+- */
+/*                                                 right margin -->|  */
+
+// example2.c -- calculate compound interest
+// Arguments are investment, rate (%), and years
+
+#define  DECNUMDIGITS 38           // work with up to 38 digits
+#include "decNumber.h"             // base number library
+#include <stdio.h>                 // for printf
+
+int main(int argc, char *argv[]) {
+  int need=3;
+  if (argc<need+1) {               // not enough words
+    printf("Please supply %d number(s).\n", need);
+    return 1;
+    }
+
+  { // excerpt for User's Guide starts here--------------------------|
+  decNumber one, mtwo, hundred;                   // constants
+  decNumber start, rate, years;                   // parameters
+  decNumber total;                                // result
+  decContext set;                                 // working context
+  char string[DECNUMDIGITS+14];                   // conversion buffer
+
+  decContextDefault(&set, DEC_INIT_BASE);         // initialize
+  set.traps=0;                                    // no traps
+  set.digits=25;                                  // precision 25
+  decNumberFromString(&one,       "1", &set);     // set constants
+  decNumberFromString(&mtwo,     "-2", &set);
+  decNumberFromString(&hundred, "100", &set);
+
+  decNumberFromString(&start, argv[1], &set);     // parameter words
+  decNumberFromString(&rate,  argv[2], &set);
+  decNumberFromString(&years, argv[3], &set);
+
+  decNumberDivide(&rate, &rate, &hundred, &set);  // rate=rate/100
+  decNumberAdd(&rate, &rate, &one, &set);         // rate=rate+1
+  decNumberPower(&rate, &rate, &years, &set);     // rate=rate^years
+  decNumberMultiply(&total, &rate, &start, &set); // total=rate*start
+  decNumberRescale(&total, &total, &mtwo, &set);  // two digits please
+
+  decNumberToString(&total, string);
+  printf("%s at %s%% for %s years => %s\n",
+         argv[1], argv[2], argv[3], string);
+
+  } //---------------------------------------------------------------|
+  return 0;
+  } // main

data/ext/dec_number/decNumber/example3.c

@@ -0,0 +1,64 @@
+/* ------------------------------------------------------------------ */
+/* Decimal Number Library Demonstration program                       */
+/* ------------------------------------------------------------------ */
+/* Copyright (c) IBM Corporation, 2001.  All rights reserved.         */
+/* ----------------------------------------------------------------+- */
+/*                                                 right margin -->|  */
+
+// example3.c -- calculate compound interest, passive checking
+// Arguments are investment, rate (%), and years
+
+#define  DECNUMDIGITS 38           // work with up to 38 digits
+#include "decNumber.h"             // base number library
+#include <stdio.h>                 // for printf
+
+int main(int argc, char *argv[]) {
+  int need=3;
+  if (argc<need+1) {               // not enough words
+    printf("Please supply %d number(s).\n", need);
+    return 1;
+    }
+
+  { // start of Example 2 segment
+  decNumber one, mtwo, hundred;                   // constants
+  decNumber start, rate, years;                   // parameters
+  decNumber total;                                // result
+  decContext set;                                 // working context
+  char string[DECNUMDIGITS+14];                   // conversion buffer
+
+  decContextDefault(&set, DEC_INIT_BASE);         // initialize
+  set.traps=0;                                    // no traps
+  set.digits=25;                                  // precision 25
+  decNumberFromString(&one,       "1", &set);     // set constants
+  decNumberFromString(&mtwo,     "-2", &set);
+  decNumberFromString(&hundred, "100", &set);
+
+// [snip...
+  decNumberFromString(&start, argv[1], &set);     // parameter words
+  decNumberFromString(&rate,  argv[2], &set);
+  decNumberFromString(&years, argv[3], &set);
+  if (set.status & DEC_Errors) {
+    printf("An input argument word was invalid [%s]\n",
+           decContextStatusToString(&set));
+    return 1;
+    }
+  decNumberDivide(&rate, &rate, &hundred, &set);  // rate=rate/100
+  decNumberAdd(&rate, &rate, &one, &set);         // rate=rate+1
+  decNumberPower(&rate, &rate, &years, &set);     // rate=rate^years
+  decNumberMultiply(&total, &rate, &start, &set); // total=rate*start
+  decNumberRescale(&total, &total, &mtwo, &set);  // two digits please
+  if (set.status & DEC_Errors) {
+    set.status &= DEC_Errors;                     // keep only errors
+    printf("Result could not be calculated [%s]\n",
+           decContextStatusToString(&set));
+    return 1;
+    }
+// ...snip]
+
+  decNumberToString(&total, string);
+  printf("%s at %s%% for %s years => %s\n",
+         argv[1], argv[2], argv[3], string);
+
+  } //---------------------------------------------------------------|
+  return 0;
+  } // main

data/ext/dec_number/decNumber/example4.c

@@ -0,0 +1,61 @@
+/* ------------------------------------------------------------------ */
+/* Decimal Number Library Demonstration program                       */
+/* ------------------------------------------------------------------ */
+/* Copyright (c) IBM Corporation, 2001.  All rights reserved.         */
+/* ----------------------------------------------------------------+- */
+/*                                                 right margin -->|  */
+
+// example4.c -- add two numbers, active error handling
+// Arguments are two numbers
+
+#define  DECNUMDIGITS 38           // work with up to 38 digits
+#include "decNumber.h"             // base number library
+#include <stdio.h>                 // for printf
+
+// [snip...
+#include <signal.h>                // signal handling
+#include <setjmp.h>                // setjmp/longjmp
+
+jmp_buf preserve;                  // stack snapshot
+
+void signalHandler(int);           // prototype for GCC
+void signalHandler(int sig) {
+  signal(SIGFPE, signalHandler);   // re-enable
+  longjmp(preserve, sig);          // branch to preserved point
+  }
+// ...snip]
+int main(int argc, char *argv[]) {
+  decNumber a, b;                  // working numbers
+  decContext set;                  // working context
+  char string[DECNUMDIGITS+14];    // conversion buffer
+  int value;                       // work variable
+
+  if (argc<3) {                    // not enough words
+    printf("Please supply two numbers to add.\n");
+    return 1;
+    }
+  decContextDefault(&set, DEC_INIT_BASE);    // initialize
+
+// [snip...
+  signal(SIGFPE, signalHandler);   // set up signal handler
+  value=setjmp(preserve);          // preserve and test environment
+  if (value) {                     // (non-0 after longjmp)
+    set.status &= DEC_Errors;      // keep only errors
+    printf("Signal trapped [%s].\n", decContextStatusToString(&set));
+    return 1;
+    }
+// ...snip]
+
+// [change from Example 1, here]
+  // leave traps enabled
+  set.digits=DECNUMDIGITS;         // set precision
+
+  decNumberFromString(&a, argv[1], &set);
+  decNumberFromString(&b, argv[2], &set);
+
+  decNumberAdd(&a, &a, &b, &set);            // A=A+B
+  decNumberToString(&a, string);
+
+  printf("%s + %s => %s\n", argv[1], argv[2], string);
+  return 0;
+  } // main

data/ext/dec_number/decNumber/example5.c

@@ -0,0 +1,36 @@
+/* ------------------------------------------------------------------ */
+/* Decimal Number Library Demonstration program                       */
+/* ------------------------------------------------------------------ */
+/* Copyright (c) IBM Corporation, 2001, 2007.  All rights reserved.   */
+/* ----------------------------------------------------------------+- */
+/*                                                 right margin -->|  */
+
+// example5.c -- decimal64 conversions
+
+#include "decimal64.h"             // decimal64 and decNumber library
+#include <stdio.h>                 // for (s)printf
+
+int main(int argc, char *argv[]) {
+  decimal64 a;                     // working decimal64 number
+  decNumber d;                     // working number
+  decContext set;                  // working context
+  char string[DECIMAL64_String];   // number->string buffer
+  char hexes[25];                  // decimal64->hex buffer
+  int i;                           // counter
+
+  if (argc<2) {                    // not enough words
+    printf("Please supply a number.\n");
+    return 1;
+    }
+  decContextDefault(&set, DEC_INIT_DECIMAL64); // initialize
+
+  decimal64FromString(&a, argv[1], &set);
+  // lay out the decimal64 as eight hexadecimal pairs
+  for (i=0; i<8; i++) {
+    sprintf(&hexes[i*3], "%02x ", a.bytes[i]);
+    }
+  decimal64ToNumber(&a, &d);
+  decNumberToString(&d, string);
+  printf("%s => %s=> %s\n", argv[1], hexes, string);
+  return 0;
+  } // main

data/ext/dec_number/decNumber/example6.c

@@ -0,0 +1,61 @@
+/* ------------------------------------------------------------------ */
+/* Decimal Number Library Demonstration program                       */
+/* ------------------------------------------------------------------ */
+/* Copyright (c) IBM Corporation, 2001.  All rights reserved.         */
+/* ----------------------------------------------------------------+- */
+/*                                                 right margin -->|  */
+
+// example6.c -- calculate compound interest, using Packed Decimal
+// Values are investment, rate (%), and years
+
+#include "decPacked.h"             // base number library
+#include <stdio.h>                 // for printf
+
+int main(int argc, char *argv[]) {
+  { // excerpt for User's Guide starts here--------------------------|
+  decNumber one, mtwo, hundred;                   // constants
+  decNumber start, rate, years;                   // parameters
+  decNumber total;                                // result
+  decContext set;                                 // working context
+
+  uint8_t startpack[]={0x01, 0x00, 0x00, 0x0C};   // investment=100000
+  int32_t startscale=0;
+  uint8_t ratepack[]={0x06, 0x5C};                // rate=6.5%
+  int32_t ratescale=1;
+  uint8_t yearspack[]={0x02, 0x0C};               // years=20
+  int32_t yearsscale=0;
+  uint8_t respack[16];                            // result, packed
+  int32_t resscale;                               // ..
+  char  hexes[49];                                // for packed->hex
+  int   i;                                        // counter
+
+  if (argc<0) printf("%s", argv[1]);              // noop for warning
+
+  decContextDefault(&set, DEC_INIT_BASE);         // initialize
+  set.traps=0;                                    // no traps
+  set.digits=25;                                  // precision 25
+  decNumberFromString(&one,       "1", &set);     // set constants
+  decNumberFromString(&mtwo,     "-2", &set);
+  decNumberFromString(&hundred, "100", &set);
+
+  decPackedToNumber(startpack, sizeof(startpack), &startscale, &start);
+  decPackedToNumber(ratepack,  sizeof(ratepack),  &ratescale,  &rate);
+  decPackedToNumber(yearspack, sizeof(yearspack), &yearsscale, &years);
+
+  decNumberDivide(&rate, &rate, &hundred, &set);  // rate=rate/100
+  decNumberAdd(&rate, &rate, &one, &set);         // rate=rate+1
+  decNumberPower(&rate, &rate, &years, &set);     // rate=rate^years
+  decNumberMultiply(&total, &rate, &start, &set); // total=rate*start
+  decNumberRescale(&total, &total, &mtwo, &set);  // two digits please
+
+  decPackedFromNumber(respack, sizeof(respack), &resscale, &total);
+
+  // lay out the total as sixteen hexadecimal pairs
+  for (i=0; i<16; i++) {
+    sprintf(&hexes[i*3], "%02x ", respack[i]);
+    }
+  printf("Result: %s (scale=%ld)\n", hexes, (long int)resscale);
+
+  } //---------------------------------------------------------------|
+  return 0;
+  } // main

data/ext/dec_number/decNumber/example7.c

@@ -0,0 +1,35 @@
+/* ------------------------------------------------------------------ */
+/* Decimal Number Library Demonstration program                       */
+/* ------------------------------------------------------------------ */
+/* Copyright (c) IBM Corporation, 2001, 2008.  All rights reserved.   */
+/* ----------------------------------------------------------------+- */
+/*                                                 right margin -->|  */
+
+// example7.c -- using decQuad to add two numbers together
+
+// compile: example7.c decContext.c decQuad.c
+
+#include "decQuad.h"               // decQuad library
+#include <stdio.h>                 // for printf
+
+int main(int argc, char *argv[]) {
+  decQuad a, b;                    // working decQuads
+  decContext set;                  // working context
+  char string[DECQUAD_String];     // number->string buffer
+
+  decContextTestEndian(0);         // warn if DECLITEND is wrong
+
+  if (argc<3) {                    // not enough words
+    printf("Please supply two numbers to add.\n");
+    return 1;
+    }
+  decContextDefault(&set, DEC_INIT_DECQUAD); // initialize
+
+  decQuadFromString(&a, argv[1], &set);
+  decQuadFromString(&b, argv[2], &set);
+  decQuadAdd(&a, &a, &b, &set);    // a=a+b
+  decQuadToString(&a, string);
+
+  printf("%s + %s => %s\n", argv[1], argv[2], string);
+  return 0;
+  } // main

data/ext/dec_number/decNumber/example8.c

@@ -0,0 +1,39 @@
+/* ------------------------------------------------------------------ */
+/* Decimal Number Library Demonstration program                       */
+/* ------------------------------------------------------------------ */
+/* Copyright (c) IBM Corporation, 2001, 2007.  All rights reserved.   */
+/* ----------------------------------------------------------------+- */
+/*                                                 right margin -->|  */
+
+// example8.c -- using decQuad with the decNumber module
+
+// compile: example8.c decContext.c decQuad.c
+//     and: decNumber.c decimal128.c decimal64.c
+
+#include "decQuad.h"               // decQuad library
+#include "decimal128.h"            // interface to decNumber
+#include <stdio.h>                 // for printf
+
+int main(int argc, char *argv[]) {
+  decQuad a;                       // working decQuad
+  decNumber numa, numb;            // working decNumbers
+  decContext set;                  // working context
+  char string[DECQUAD_String];     // number->string buffer
+
+  if (argc<3) {                    // not enough words
+    printf("Please supply two numbers for power(2*a, b).\n");
+    return 1;
+    }
+  decContextDefault(&set, DEC_INIT_DECQUAD); // initialize
+
+  decQuadFromString(&a, argv[1], &set);      // get a
+  decQuadAdd(&a, &a, &a, &set);              // double a
+  decQuadToNumber(&a, &numa);                // convert to decNumber
+  decNumberFromString(&numb, argv[2], &set);
+  decNumberPower(&numa, &numa, &numb, &set); // numa=numa**numb
+  decQuadFromNumber(&a, &numa, &set);        // back via a Quad
+  decQuadToString(&a, string);               // ..
+
+  printf("power(2*%s, %s) => %s\n", argv[1], argv[2], string);
+  return 0;
+  } // main