kayprish/cirilisp
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Изједначено стабло почетне табеле симбола

Browse source
This commit is contained in:
kappa 2019-02-28 19:39:44 +01:00
parent abc0b5c9b8
commit eaf7c19617
1 changed files with 31 additions and 31 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

62
cirilisp.c
View file

@ -45,46 +45,46 @@ void init()
* ћирилицу */ * ћирилицу */
globalEnv = createEnvironment(NULL); globalEnv = createEnvironment(NULL);
addSymbolInternal("листа?", &listQInt, 0);
addSymbolInternal("број?", &numberQInt, 0);
addSymbolInternal("<", &lessInt, 0);
addSymbolInternal("/", &divideInt, 0);
addSymbolInternal("+", &addInt, 0); addSymbolInternal("+", &addInt, 0);
addSymbolInternal("=", &eqNumInt, 0);
addSymbolInternal(">", &greaterInt, 0);
addSymbolInternal("-", &subtractInt, 0); addSymbolInternal("-", &subtractInt, 0);
addSymbolInternal("*", &multiplyInt, 0); addSymbolInternal("*", &multiplyInt, 0);
addSymbolInternal("/", &divideInt, 0); addSymbolInternal("ако", &ifInt, 1);
addSymbolInternal("баци", &throwInt, 0);
addSymbolInternal("јед?", &eqvQInt, 0);
addSymbolInternal("булски?", &boolQInt, 0);
addSymbolInternal("бројилац", &numeratorInt, 0); addSymbolInternal("бројилац", &numeratorInt, 0);
addSymbolInternal("дужина-ниске", &strLengthInt, 0);
addSymbolInternal("именилац", &denominatorInt, 0); addSymbolInternal("именилац", &denominatorInt, 0);
addSymbolInternal("конс", &consInt, 0);
addSymbolInternal("карактер?", &charQInt, 0);
addSymbolInternal("конс?", &consQInt, 0);
addSymbolInternal("ламбда", &lambdaInt, 1);
addSymbolInternal("прикажи", &displayInt, 0);
addSymbolInternal("нил?", &nilQInt, 0);
addSymbolInternal("направи-ниску", &makeStrInt, 0);
addSymbolInternal("надовежи", &appendInt, 0);
addSymbolInternal("навод", &quoteInt, 1); addSymbolInternal("навод", &quoteInt, 1);
addSymbolInternal("нетачно->тачно", &inexactToExactInt, 0);
addSymbolInternal("опиши", &defineInt, 1); addSymbolInternal("опиши", &defineInt, 1);
addSymbolInternal("опиши-складњу", &defineMacroInt, 1); addSymbolInternal("опиши-складњу", &defineMacroInt, 1);
addSymbolInternal("тачно->нетачно", &exactToInexactInt, 0);
addSymbolInternal("нетачно->тачно", &inexactToExactInt, 0);
addSymbolInternal("ламбда", &lambdaInt, 1);
addSymbolInternal("<", &lessInt, 0);
addSymbolInternal(">", &greaterInt, 0);
addSymbolInternal("=", &eqNumInt, 0);
addSymbolInternal("ако", &ifInt, 1);
addSymbolInternal("нил?", &nilQInt, 0);
addSymbolInternal("конс?", &consQInt, 0);
addSymbolInternal("број?", &numberQInt, 0);
addSymbolInternal("разломак?", &fractionQInt, 0);
addSymbolInternal("реалан?", &realQInt, 0);
addSymbolInternal("симбол?", &symbolQInt, 0);
addSymbolInternal("процедура?", &procedureQInt, 0);
addSymbolInternal("булски?", &boolQInt, 0);
addSymbolInternal("ниска?", &stringQInt, 0);
addSymbolInternal("карактер?", &charQInt, 0);
addSymbolInternal("листа?", &listQInt, 0);
addSymbolInternal("надовежи", &appendInt, 0);
addSymbolInternal("конс", &consInt, 0);
addSymbolInternal("сар", &carInt, 0);
addSymbolInternal("сдр", &cdrInt, 0);
addSymbolInternal("јед?", &eqvQInt, 0);
addSymbolInternal("примени", &applyInt, 0);
addSymbolInternal("прикажи", &displayInt, 0);
addSymbolInternal("штампај", &printInt, 0);
addSymbolInternal("читај", &readInt, 0);
addSymbolInternal("почни", &beginInt, 0); addSymbolInternal("почни", &beginInt, 0);
addSymbolInternal("баци", &throwInt, 0); addSymbolInternal("ниска?", &stringQInt, 0);
addSymbolInternal("направи-ниску", &makeStrInt, 0); addSymbolInternal("сар", &carInt, 0);
addSymbolInternal("дужина-ниске", &strLengthInt, 0); addSymbolInternal("разломак?", &fractionQInt, 0);
addSymbolInternal("процедура?", &procedureQInt, 0);
addSymbolInternal("примени", &applyInt, 0);
addSymbolInternal("реалан?", &realQInt, 0);
addSymbolInternal("тачно->нетачно", &exactToInexactInt, 0);
addSymbolInternal("сдр", &cdrInt, 0);
addSymbolInternal("симбол?", &symbolQInt, 0);
addSymbolInternal("читај", &readInt, 0);
addSymbolInternal("штампај", &printInt, 0);
if (!load(DESTDIR "/usr/local/lib/cirilisp/инит.ћ")) if (!load(DESTDIR "/usr/local/lib/cirilisp/инит.ћ"))
{ {