32 lines
1 KiB
C
32 lines
1 KiB
C
#include <locale.h>
|
||
#include <stdio.h>
|
||
#include <stdlib.h>
|
||
|
||
#include "internals.h"
|
||
|
||
void init()
|
||
{
|
||
if (setlocale(LC_ALL, "sr_RS.utf8") == NULL)
|
||
{
|
||
fprintf(stderr, "lokal se nije mogao podesiti na\
|
||
\"sr_RS.utf8\", proverite da li ste ga osposobili na vasem sistemu\n");
|
||
exit(0);
|
||
}
|
||
/* Омогућава библиотекама коришћеним у интерпретеру да протумаче српску
|
||
* ћирилицу */
|
||
|
||
globalEnv = createEnvironment(NULL);
|
||
addSymbolInternal("+", &addInt, 0);
|
||
addSymbolInternal("-", &subtractInt, 0);
|
||
addSymbolInternal("*", &multiplyInt, 0);
|
||
addSymbolInternal("/", ÷Int, 0);
|
||
addSymbolInternal("навод", "eInt, 1);
|
||
addSymbolInternal("дефиниши", &defineInt, 1);
|
||
addSymbolInternal("тачно->нетачно", &exactToInexactInt, 0);
|
||
addSymbolInternal("нетачно->тачно", &inexactToExactInt, 0);
|
||
addSymbolInternal("ламбда", &lambdaInt, 1);
|
||
addSymbolInternal("<", &lessInt, 0);
|
||
addSymbolInternal(">", &greaterInt, 0);
|
||
addSymbolInternal("ако", &ifInt, 1);
|
||
}
|