Arthur Barraux
25 lines
477 B
C
25 lines
477 B
C
#include <stdlib.h>
|
|
#include <time.h>
|
|
#include <string.h>
|
|
|
|
#define LISP_IMPLEMENTATION
|
|
#include "lisp.h"
|
|
|
|
int main(int argc, const char* argv[])
|
|
{
|
|
LispContext ctx = lisp_init();
|
|
LispError error;
|
|
Lisp data = lisp_read_file(stdin, &error, ctx);
|
|
|
|
if (error != LISP_ERROR_NONE)
|
|
{
|
|
fprintf(stderr, "error: %s\n", lisp_error_string(error));
|
|
}
|
|
data = lisp_collect(data, ctx);
|
|
lisp_printf(stdout, data);
|
|
|
|
lisp_shutdown(ctx);
|
|
return 0;
|
|
}
|
|
|