in tcl_cmds.c [94:114]
static size_t is_base64_buf(uint8_t *buf, size_t buf_len)
{
size_t i;
for (i = 0; i < buf_len; i++) {
/* Accept equal sign. */
if (buf[i] == '=') {
continue;
}
/* Don't accept anything else which isn't in base64. */
if (buf[i] > 127) {
break;
}
if (inv_base64[buf[i]] == 255) {
break;
}
}
return i;
}