File: getrandom.c

package info (click to toggle)
haskell-entropy 0.4.1.10-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 104 kB
  • sloc: haskell: 355; ansic: 182; makefile: 2
file content (52 lines) | stat: -rw-r--r-- 953 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
#ifdef HAVE_GETRANDOM

#define _GNU_SOURCE
#include <errno.h>

#ifdef HAVE_LIBC_GETRANDOM
#include <sys/random.h>
#else

#include <unistd.h>
#include <sys/syscall.h>
#include <sys/types.h>
#include <linux/random.h>

#ifndef SYS_getrandom
#define SYS_getrandom __NR_getrandom
#endif

static ssize_t getrandom(void* buf, size_t buflen, unsigned int flags)
{
    return syscall(SYS_getrandom, buf, buflen, flags);
}

#endif

int system_has_getrandom()
{
    char tmp;
    return getrandom(&tmp, sizeof(tmp), GRND_NONBLOCK) != -1 || errno != ENOSYS;
}

// Returns 0 on success, non-zero on failure.
int entropy_getrandom(unsigned char* buf, size_t len)
{
    while (len) {
        ssize_t bytes_read = getrandom(buf, len, 0);

        if (bytes_read == -1) {
            if (errno != EINTR)
                return -1;
            else
                continue;
        }

        len -= bytes_read;
        buf += bytes_read;
    }

    return 0;
}

#endif