cirilisp/cirilisp.c

#include <locale.h>
#include <stdio.h>
#include <stdlib.h>

#include "util.h"
#include "read.h"
#include "eval.h"
#include "print.h"

int main(int argc, char **argv)
{
/* Омогућава библиотекама коришћеним у интерпретеру да протумаче српску ћирилицу */
	if (setlocale(LC_ALL, "sr_RS.utf8") == NULL)
	{
		fprintf(stderr, "locale couldn't be set to \"sr_RS.utf8\",\
 check if you've enabled it on your system\n");
		exit(0);
	}

	for (;;)
	{
		print(eval(read("ШКЉ> ")));
	}
}