archive/extras.c.txt


1
2
3
4
5
6
7
8
9
10
11

// useless file.

cstr getenv(cstr name) {
    extern cstr *environ;
    size_t len = lenstr(name);
    for (char **e = environ; *e; e++) {
        if (safe_cmp(*e, name, len) && (*e)[len] == '=')
            return *e + len + 1;
    }
    return NULL;
}