aboutsummaryrefslogtreecommitdiff
path: root/src/benchmarks/cfrac/atop.c
diff options
context:
space:
mode:
authorFlorian Fischer <florian.fl.fischer@fau.de>2020-05-06 16:56:32 +0200
committerFlorian Fischer <florian.fl.fischer@fau.de>2020-06-02 11:18:47 +0200
commit8174a918ea3b7cb216bf7ea98cfdc10661b5c37d (patch)
tree0747ec3ccb9f8d7eeccfac35977fc17855ca3bbb /src/benchmarks/cfrac/atop.c
parent8f52e8fc02dd235582f5961941bcd564e9a681cd (diff)
downloadallocbench-8174a918ea3b7cb216bf7ea98cfdc10661b5c37d.tar.gz
allocbench-8174a918ea3b7cb216bf7ea98cfdc10661b5c37d.zip
make the whole project more python idiomatic
* rename src directory to allocbench * make global variable names UPPERCASE * format a lot of code using yapf * use lowercase ld_preload and ld_library_path as Allocator members * name expected Errors 'err' and don't raise a new Exception * disable some pylint messages
Diffstat (limited to 'src/benchmarks/cfrac/atop.c')
-rw-r--r--src/benchmarks/cfrac/atop.c61
1 files changed, 0 insertions, 61 deletions
diff --git a/src/benchmarks/cfrac/atop.c b/src/benchmarks/cfrac/atop.c
deleted file mode 100644
index 98f132a..0000000
--- a/src/benchmarks/cfrac/atop.c
+++ /dev/null
@@ -1,61 +0,0 @@
-#include <ctype.h>
-#include "pdefs.h"
-#include "pcvt.h"
-#include "precision.h"
-
-/*
- * ascii to precision (modeled after atoi)
- * leading whitespace skipped
- * an optional leading '-' or '+' followed by digits '0'..'9'
- * leading 0's Ok
- * stops at first unrecognized character
- *
- * Returns: pUndef if an invalid argument (pUndef or nondigit as 1st digit)
- */
-precision atop(chp)
- register char *chp;
-{
- precision res = pUndef;
- precision clump = pUndef;
- int sign = 0;
- register int ch;
- register accumulator temp;
- accumulator x;
- register int i;
-
- if (chp != (char *) 0) {
- while (isspace(*chp)) chp++; /* skip whitespace */
- if (*chp == '-') {
- sign = 1;
- ++chp;
- } else if (*chp == '+') {
- ++chp;
- }
- if (isdigit(ch = * (unsigned char *) chp)) {
- pset(&res, pzero);
- pset(&clump, utop(aDigit));
- do {
- i = aDigitLog-1;
- temp = ch - '0';
- do {
- if (!isdigit(ch = * (unsigned char *) ++chp)) goto atoplast;
- temp = temp * aBase + (ch - '0');
- } while (--i > 0);
- pset(&res, padd(pmul(res, clump), utop(temp)));
- } while (isdigit(ch = * (unsigned char *) ++chp));
- goto atopdone;
-atoplast:
- x = aBase;
- while (i++ < aDigitLog-1) {
- x *= aBase;
- }
- pset(&res, padd(pmul(res, utop(x)), utop(temp)));
-atopdone:
- if (sign) {
- pset(&res, pneg(res));
- }
- }
- }
- pdestroy(clump);
- return presult(res);
-}