diff options
| author | Florian Fischer <florian.fl.fischer@fau.de> | 2020-05-06 16:56:32 +0200 |
|---|---|---|
| committer | Florian Fischer <florian.fl.fischer@fau.de> | 2020-06-02 11:18:47 +0200 |
| commit | 8174a918ea3b7cb216bf7ea98cfdc10661b5c37d (patch) | |
| tree | 0747ec3ccb9f8d7eeccfac35977fc17855ca3bbb /src/benchmarks/cfrac/atop.c | |
| parent | 8f52e8fc02dd235582f5961941bcd564e9a681cd (diff) | |
| download | allocbench-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.c | 61 |
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); -} |
