26 lines
547 B
C
26 lines
547 B
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("ШКЉ> ")));
|
||
}
|
||
}
|
||
|