DECL_PBKDF2 macro

#define DECL_PBKDF2(_name, _blocksz, _hashsz, _ctx, \ _init, _update, _xform, _final, _xcpy, _xtract, _xxor) \     typedef struct { \     _ctx inner; \     _ctx outer; \     } HMAC_CTX(_name); \     \     static inline void HMAC_INIT(_name)(HMAC_CTX(_name) *ctx, \     const uint8_t *key, size_t nkey) \     { \     \     uint8_t k[_blocksz]; \     \     \     if (nkey > _blocksz) \     { \     _init(&ctx->inner); \     _update(&ctx->inner, key, nkey); \     _final(&ctx->inner, k); \     \     key = k; \     nkey = _hashsz; \     } \     \     \     assert(nkey <= _blocksz); \     \     \     if (k != key) \     memcpy(k, key, nkey); \     if (_blocksz > nkey) \     memset(k + nkey, 0, _blocksz - nkey); \     \     \     uint8_t blk_inner[_blocksz]; \     uint8_t blk_outer[_blocksz]; \     \     for (size_t i = 0; i < _blocksz; i++) \     { \     blk_inner[i] = 0x36 ^ k[i]; \     blk_outer[i] = 0x5c ^ k[i]; \     } \     \     _init(&ctx->inner); \     _update(&ctx->inner, blk_inner, sizeof blk_inner); \     \     \     _init(&ctx->outer); \     _update(&ctx->outer, blk_outer, sizeof blk_outer); \     } \     \     static inline void HMAC_UPDATE(_name)(HMAC_CTX(_name) *ctx, \     const void *data, size_t ndata) \     { \     _update(&ctx->inner, data, ndata); \     } \     \     static inline void HMAC_FINAL(_name)(HMAC_CTX(_name) *ctx, \     uint8_t out[_hashsz]) \     { \     _final(&ctx->inner, out); \     _update(&ctx->outer, out, _hashsz); \     _final(&ctx->outer, out); \     } \     \     \     \     static inline void PBKDF2_F(_name)(const HMAC_CTX(_name) *startctx, \     uint32_t counter, \     const uint8_t *salt, size_t nsalt, \     uint32_t iterations, \     uint8_t *out) \     { \     uint8_t countbuf[4]; \     write32_be(counter, countbuf); \     \     \     uint8_t Ublock[_blocksz]; \     md_pad(Ublock, _blocksz, _hashsz, _blocksz + _hashsz); \     \     \     HMAC_CTX(_name) ctx = *startctx; \     HMAC_UPDATE(_name)(&ctx, salt, nsalt); \     HMAC_UPDATE(_name)(&ctx, countbuf, sizeof countbuf); \     HMAC_FINAL(_name)(&ctx, Ublock); \     _ctx result = ctx.outer; \     \     \     for (uint32_t i = 1; i < iterations; i++) \     { \     \     _xcpy(&ctx.inner, &startctx->inner); \     _xform(&ctx.inner, Ublock); \     _xtract(&ctx.inner, Ublock); \     \     _xcpy(&ctx.outer, &startctx->outer); \     _xform(&ctx.outer, Ublock); \     _xtract(&ctx.outer, Ublock); \     _xxor(&result, &ctx.outer); \     } \     \     \     _xtract(&result, out); \     } \     \     static inline void PBKDF2(_name)(const uint8_t *pw, size_t npw, \     const uint8_t *salt, size_t nsalt, \     uint32_t iterations, \     uint8_t *out, size_t nout) \     { \     assert(iterations); \     assert(out && nout); \     \     \     HMAC_CTX(_name) ctx; \     HMAC_INIT(_name)(&ctx, pw, npw); \     \     \     uint32_t blocks_needed = (uint32_t)(nout + _hashsz - 1) / _hashsz; \     \     for (uint32_t counter = 1; counter <= blocks_needed; counter++) \     { \     uint8_t block[_hashsz]; \     PBKDF2_F(_name)(&ctx, counter, salt, nsalt, iterations, block); \     \     size_t offset = (counter - 1) * _hashsz; \     size_t taken = MIN(nout - offset, _hashsz); \     memcpy(out + offset, block, taken); \     } \     }