pqc/external/libtompoly-0.04/pb_init_multi.c

51 lines
1.5 KiB
C

/* LibTomPoly, Polynomial Basis Math -- Tom St Denis
*
* LibTomPoly is a public domain library that provides
* polynomial basis arithmetic support. It relies on
* LibTomMath for large integer support.
*
* This library is free for all purposes without any
* express guarantee that it works.
*
* Tom St Denis, tomstdenis@iahu.ca, http://poly.libtomcrypt.org
*/
#include <tompoly.h>
#include <stdarg.h>
int pb_init_multi(mp_int *characteristic, pb_poly *pb, ...)
{
mp_err res = MP_OKAY; /* Assume ok until proven otherwise */
int n = 0; /* Number of ok inits */
pb_poly* cur_arg = pb;
va_list args;
va_start(args, pb); /* init args to next argument from caller */
while (cur_arg != NULL) {
if (pb_init(cur_arg, characteristic) != MP_OKAY) {
/* Oops - error! Back-track and mp_clear what we already
succeeded in init-ing, then return error.
*/
va_list clean_args;
/* end the current list */
va_end(args);
/* now start cleaning up */
cur_arg = pb;
va_start(clean_args, pb);
while (n--) {
pb_clear(cur_arg);
cur_arg = va_arg(clean_args, pb_poly*);
}
va_end(clean_args);
res = MP_MEM;
break;
}
n++;
cur_arg = va_arg(args, pb_poly*);
}
va_end(args);
return res; /* Assumed ok, if error flagged above. */
}