diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2020-01-01 00:00:00 +0100 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-06-19 15:44:24 +0200 |
commit | c54ad2f70f705a62946fb93902f9a9bd65ae1fed (patch) | |
tree | 672a7c71542425cb5694cf349c366e9d4f4745be /src/random/libwebidoidc-random.c | |
parent | 7c81a49d762e67b21c99a95b86d1e7886d91de02 (diff) |
Add a random number generator.
Diffstat (limited to 'src/random/libwebidoidc-random.c')
-rw-r--r-- | src/random/libwebidoidc-random.c | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/src/random/libwebidoidc-random.c b/src/random/libwebidoidc-random.c new file mode 100644 index 0000000..2bea9bb --- /dev/null +++ b/src/random/libwebidoidc-random.c @@ -0,0 +1,35 @@ +#include <utilities.h> +#include <threads.h> +#include <fcntl.h> +#include <sys/stat.h> +#include <webid-oidc/random.h> + +#define _(s) dgettext (PACKAGE, s) + +/* Register "random", a guile function to generate random data. */ +void init_webidoidc_random (void); + +SCM_DEFINE (webidoidc_random_g, "random", 1, 0, 0, (SCM length), + "Get @var{length} random bytes, and encode them in a base64-url string.") +{ + size_t c_length = scm_to_size_t (length); + uint8_t *data = scm_gc_malloc_pointerless (c_length, "random data"); + webid_oidc_random (c_length, data); + return wrap_bytevector (c_length, data); +} + +SCM_DEFINE (webidoidc_random_init_g, "random-init!", 0, 0, 0, (void), + "Re-initialize the random number generator so that future threads are not predictable.") +{ + webid_oidc_random_init (); + return SCM_UNDEFINED; +} + +void +init_webidoidc_random (void) +{ + webid_oidc_random_init (); +#ifndef SCM_MAGIC_SNARFER +#include "libwebidoidc-random.x" +#endif /* not SCM_MAGIC_SNARFER */ +} |