shithub: femtolisp

ref: 20488fc4915662e0ec50bb8c4ebc2609d6e110b4
dir: /main_posix.c/

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

static const uint8_t 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");

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