shithub: femtolisp

ref: 2ddebfff4c9d7596046acfac764a4d295499b18d
dir: /main_posix.c/

View raw version 
#include "llt.h"
#include "ieee754.h"

static const char boot[] =
#include "flisp.boot.h"
;

int
main(int argc, char **argv)
{
	union ieee754_float *f;
	F_PNAN = F_NNAN = strtof("+NaN", nil);
	F_PINF = F_NINF = strtof("+Inf", nil);
	f = (union ieee754_float *)&F_NNAN;
	f->ieee.negative = 1;
	f = (union ieee754_float *)&F_NINF;
	f->ieee.negative = 1;

	setlocale(LC_NUMERIC, "C");

	return flmain(boot, sizeof(boot), argc, argv);
}