Fun 0.41.5
The programming language that makes you have fun!
Loading...
Searching...
No Matches
sha256.c
Go to the documentation of this file.
1/*
2 * This file is part of the Fun programming language.
3 * https://fun-lang.xyz/
4 *
5 * Copyright 2026 Johannes Findeisen <you@hanez.org>
6 * Licensed under the terms of the Apache-2.0 license.
7 * https://opensource.org/license/apache-2-0
8 */
9
10/**
11 * @file sha256.c
12 * @brief Implements OP_OPENSSL_SHA256 to compute a SHA-256 hash in hex.
13 *
14 * Behavior:
15 * - Pops one value from the VM stack and converts it to bytes by first
16 * producing its string form with value_to_string_alloc().
17 * - Computes the SHA-256 digest via fun_openssl_sha256_hex() and pushes the
18 * lowercase hexadecimal string.
19 * - On allocation or hashing failure, pushes an empty string ("").
20 *
21 * Notes:
22 * - Non-string inputs are allowed; values are stringified first.
23 * - Snippet is included by vm.c and executed for OP_OPENSSL_SHA256.
24 *
25 * Errors:
26 * - No hard VM error is raised; failures push an empty string.
27 */
28
30 Value vdata = pop_value(vm);
31 char *s = value_to_string_alloc(&vdata);
32 free_value(vdata);
33 if (!s) {
34 push_value(vm, make_string(""));
35 break;
36 }
37 char *hex = fun_openssl_sha256_hex((const unsigned char *)s, strlen(s));
39 if (!hex) {
40 push_value(vm, make_string(""));
41 break;
42 }
46 break;
47}
Value out
Definition apop.c:38
@ OP_OPENSSL_SHA256
Definition bytecode.h:198
char * hex
Definition md5.c:39
static char * fun_openssl_sha256_hex(const unsigned char *data, size_t len)
Compute SHA-256 digest and return it as a lowercase hex string.
Definition openssl.c:94
uint32_t s
Definition rol.c:31
free_value(vdata)
free(s)
push_value(vm, out)
Tagged union representing a Fun value.
Definition value.h:68
Value make_string(const char *s)
Construct a string Value by duplicating the given C string.
Definition value.c:95
char * value_to_string_alloc(const Value *v)
Allocate a printable C string for a Value.
Definition value.c:641
static Value pop_value(VM *vm)
Pop a Value from the VM operand stack.
Definition vm.c:580