This commit is contained in:
@@ -0,0 +1,24 @@
|
||||
#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;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user