52 lines
805 B
C
52 lines
805 B
C
#include "factor.h"
|
|
|
|
void primitive_exit(void)
|
|
{
|
|
exit(to_fixnum(dpop()));
|
|
}
|
|
|
|
void primitive_os_env(void)
|
|
{
|
|
char *name, *value;
|
|
|
|
maybe_garbage_collection();
|
|
|
|
name = unbox_c_string();
|
|
value = getenv(name);
|
|
if(value == NULL)
|
|
dpush(F);
|
|
else
|
|
box_c_string(getenv(name));
|
|
}
|
|
|
|
void primitive_eq(void)
|
|
{
|
|
box_boolean(dpop() == dpop());
|
|
}
|
|
|
|
void primitive_millis(void)
|
|
{
|
|
struct timeval t;
|
|
gettimeofday(&t,NULL);
|
|
maybe_garbage_collection();
|
|
dpush(tag_object(s48_long_long_to_bignum(
|
|
(long long)t.tv_sec * 1000 + t.tv_usec/1000)));
|
|
}
|
|
|
|
void primitive_init_random(void)
|
|
{
|
|
#ifdef HAVE_SRANDOMDEV
|
|
srandomdev();
|
|
#else
|
|
struct timeval t;
|
|
gettimeofday(&t,NULL);
|
|
srandom(t.tv_sec);
|
|
#endif
|
|
}
|
|
|
|
void primitive_random_int(void)
|
|
{
|
|
maybe_garbage_collection();
|
|
dpush(tag_object(s48_long_to_bignum(random())));
|
|
}
|