upscheme/c/env_unix.c

80 lines
1.9 KiB
C
Raw Normal View History

2019-08-11 16:27:38 -04:00
#include <sys/types.h>
#include <sys/stat.h>
#include <sys/time.h>
#include <sys/utsname.h>
2019-08-11 16:27:38 -04:00
#include <assert.h>
#include <ctype.h>
#include <errno.h>
#include <limits.h>
#include <math.h>
#include <setjmp.h>
#include <stdarg.h>
#include <stdint.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "scheme.h"
2019-08-11 16:27:38 -04:00
static const struct utsname *get_global_uname(void)
{
static struct utsname buf;
if (!buf.sysname[0]) {
if (uname(&buf) == -1) {
memset(&buf, 0, sizeof(buf));
}
}
return &buf;
}
const char *env_get_os_name(void) { return get_global_uname()->sysname; }
2019-08-11 16:27:38 -04:00
static value_t envst_os(void)
{
struct accum acc = ACCUM_EMPTY;
accum_elt(&acc, symbol("os"));
accum_name_value(&acc, "implementation-name",
string_from_cstr(get_global_uname()->sysname));
accum_name_value(&acc, "implementation-version",
string_from_cstr(get_global_uname()->release));
return acc.list;
2019-08-11 16:27:38 -04:00
}
static const char endianness[] =
#if __BYTE_ORDER__ == __ORDER_BIG_ENDIAN__
"big-endian"
#endif
#if __BYTE_ORDER__ == __ORDER_LITTLE_ENDIAN__
"little-endian"
#endif
;
static value_t envst_computer(void)
{
struct accum acc = ACCUM_EMPTY;
accum_elt(&acc, symbol("computer"));
accum_name_value(&acc, "architecture",
string_from_cstr(get_global_uname()->machine));
accum_name_value(&acc, "cpu-bits", fixnum(sizeof(uintptr_t) * CHAR_BIT));
accum_name_value(&acc, "byte-order", symbol(endianness));
return acc.list;
2019-08-11 16:27:38 -04:00
}
value_t builtin_environment_stack(value_t *args, uint32_t nargs)
{
struct accum acc = ACCUM_EMPTY;
2019-08-11 16:27:38 -04:00
(void)args;
argcount("environment-stack", nargs, 0);
accum_elt(&acc, envst_language());
accum_elt(&acc, envst_language_c());
accum_elt(&acc, envst_os());
accum_elt(&acc, envst_computer());
return acc.list;
2019-08-11 16:27:38 -04:00
}