diff options
Diffstat (limited to 'smc.c')
| -rw-r--r-- | smc.c | 44 |
1 files changed, 44 insertions, 0 deletions
@@ -0,0 +1,44 @@ +/* This file is part of libbrandt. + * Copyright (C) 2016 GNUnet e.V. + * + * libbrandt is free software: you can redistribute it and/or modify it under + * the terms of the GNU General Public License as published by the Free Software + * Foundation, either version 3 of the License, or (at your option) any later + * version. + * + * libbrandt is distributed in the hope that it will be useful, but WITHOUT ANY + * WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR + * A PARTICULAR PURPOSE. See the GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along with + * libbrandt. If not, see <http://www.gnu.org/licenses/>. + */ + +/** + * @file smc.c + * @brief Implementation of the smc primitives. + */ + +#include <pari/pari.h> + +GEN +smc_hextodec(char *s) /* int */ +{ + long i, tmp; + GEN ret = gen_0; /* int */ + GEN v = gtovecsmall(strtoGENstr(s)); /* vecsmall */ + + for (i = 1; i < lg(v); ++i) + { + 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); + } + return ret; +} |