diff options
Diffstat (limited to 'smc.c')
| -rw-r--r-- | smc.c | 72 |
1 files changed, 58 insertions, 14 deletions
@@ -19,27 +19,71 @@ * @brief Implementation of the smc primitives. */ +#include "util.h" + #include <pari/pari.h> GEN smc_hextodec (char *s) /* int */ { - unsigned int i, tmp; + size_t i; + char c; + pari_sp ltop = avma; GEN ret = gen_0; /* int */ - GEN v = gtovecsmall (strtoGENstr (s)); /* vecsmall */ - for (i = 1; i < lg (v); ++i) + for (i = 0; i < strlen (s); i++) { - ///TODO: scanf instead of if - if ((v[i] >= '0') && (v[i] <= '9')) - tmp = v[i] - '0'; - else if ((v[i] >= 'a') && (v[i] <= 'f')) - tmp = v[i] + 10 - 'a'; - else if ((v[i] >= 'A') && (v[i] <= 'F')) - tmp = v[i] + 10 - 'A'; - else - pari_err (e_MISC, "invalid input format"); - ret = addis (shifti (ret, 4), tmp); + errno = 0; + if (1 != sscanf (&s[i], "%1hhx", &c)) + { + brandt_eprintf ("failed to parse hex (\"%s\") to decimal:", s); + return NULL; + } + ret = addis (shifti (ret, 4), c); } - return ret; + return gerepilecopy (ltop, ret); } + + +void +smc_genbid (AuctionData *ad, uint16_t bid) +{ + uint16_t j; + pari_sp ltop = avma; + GEN ret = cgetg (itos (ad->k)+1, t_VEC); /* vec */ + + for (j = 1; j <= ad->k; j++) + { + gel (ret, j) = gpowgs (ad->g, bid == j); + } + ad->b = gerepilecopy (ltop, ret); +} + +void +smc_genalpha (AuctionData *ad) +{ + uint16_t j; + pari_sp ltop = avma; + GEN ret = cgetg (ad->k+1, t_VEC); + + for (j = 1; j <= ad->k; ++j) + { + gel (ret, j) = gmul (gel (ad->b, j), gpowgi (ad->y, gel (ad->r, j))); + } + ab->alpha = gerepilecopy (ltop, ret); +} + +void +smc_genbeta (AuctionData *ad) +{ + uint16_t j; + pari_sp ltop = avma; + GEN ret = cgetg (ad->k+1, t_VEC); + + for (j = 1; j <= ad->k; ++j) + { + gel (ret, j) = gpowgi (ad->g, gel (ad->r, j)); + } + ab->beta = gerepilecopy (ltop, ret); +} + |