hanez/fun
1
0
Fork 0
forked from fun/fun
Code Pull requests Activity

More OpenSSL and documenation fun. No more words to say. (0.38.13)

Browse source
This commit is contained in:
Johannes Findeisen 2026-02-19 14:05:14 +01:00
commit 38968a9a51
33 changed files with 498 additions and 88 deletions
Download patch file Download diff file Expand all files Collapse all files

18
src/parser.c
View file

@ -1197,7 +1197,7 @@ static int emit_primary(Bytecode *bc, const char *src, size_t len, size_t *pos)
free(name);
return 1;
}
/* OpenSSL (md5) */
/* OpenSSL (md5/sha256/sha512) */
if (strcmp(name, "openssl_md5") == 0) {
(*pos)++; /* '(' */
if (!emit_expression(bc, src, len, pos)) { parser_fail(*pos, "openssl_md5 expects (data)"); free(name); return 0; }
@ -1206,6 +1206,22 @@ static int emit_primary(Bytecode *bc, const char *src, size_t len, size_t *pos)
free(name);
return 1;
}
if (strcmp(name, "openssl_sha256") == 0) {
(*pos)++; /* '(' */
if (!emit_expression(bc, src, len, pos)) { parser_fail(*pos, "openssl_sha256 expects (data)"); free(name); return 0; }
if (!consume_char(src, len, pos, ')')) { parser_fail(*pos, "Expected ')' after openssl_sha256 arg"); free(name); return 0; }
bytecode_add_instruction(bc, OP_OPENSSL_SHA256, 0);
free(name);
return 1;
}
if (strcmp(name, "openssl_sha512") == 0) {
(*pos)++; /* '(' */
if (!emit_expression(bc, src, len, pos)) { parser_fail(*pos, "openssl_sha512 expects (data)"); free(name); return 0; }
if (!consume_char(src, len, pos, ')')) { parser_fail(*pos, "Expected ')' after openssl_sha512 arg"); free(name); return 0; }
bytecode_add_instruction(bc, OP_OPENSSL_SHA512, 0);
free(name);
return 1;
}
/* PCSC builtins */
if (strcmp(name, "pcsc_establish") == 0) {
(*pos)++; /* '(' */