From eaf7c196173777cae66c4c102b172d131b0ea166 Mon Sep 17 00:00:00 2001 From: kappa Date: Thu, 28 Feb 2019 19:39:44 +0100 Subject: [PATCH] =?UTF-8?q?=D0=98=D0=B7=D1=98=D0=B5=D0=B4=D0=BD=D0=B0?= =?UTF-8?q?=D1=87=D0=B5=D0=BD=D0=BE=20=D1=81=D1=82=D0=B0=D0=B1=D0=BB=D0=BE?= =?UTF-8?q?=20=D0=BF=D0=BE=D1=87=D0=B5=D1=82=D0=BD=D0=B5=20=D1=82=D0=B0?= =?UTF-8?q?=D0=B1=D0=B5=D0=BB=D0=B5=20=D1=81=D0=B8=D0=BC=D0=B1=D0=BE=D0=BB?= =?UTF-8?q?=D0=B0?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- cirilisp.c | 62 +++++++++++++++++++++++++++--------------------------- 1 file changed, 31 insertions(+), 31 deletions(-) diff --git a/cirilisp.c b/cirilisp.c index 0ff08ac..9bdeb5f 100644 --- a/cirilisp.c +++ b/cirilisp.c @@ -45,46 +45,46 @@ void init() * ћирилицу */ globalEnv = createEnvironment(NULL); + addSymbolInternal("листа?", &listQInt, 0); + addSymbolInternal("број?", &numberQInt, 0); + addSymbolInternal("<", &lessInt, 0); + addSymbolInternal("/", ÷Int, 0); addSymbolInternal("+", &addInt, 0); + addSymbolInternal("=", &eqNumInt, 0); + addSymbolInternal(">", &greaterInt, 0); addSymbolInternal("-", &subtractInt, 0); addSymbolInternal("*", &multiplyInt, 0); - addSymbolInternal("/", ÷Int, 0); + addSymbolInternal("ако", &ifInt, 1); + addSymbolInternal("баци", &throwInt, 0); + addSymbolInternal("јед?", &eqvQInt, 0); + addSymbolInternal("булски?", &boolQInt, 0); addSymbolInternal("бројилац", &numeratorInt, 0); + addSymbolInternal("дужина-ниске", &strLengthInt, 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("навод", "eInt, 1); + addSymbolInternal("нетачно->тачно", &inexactToExactInt, 0); addSymbolInternal("опиши", &defineInt, 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("баци", &throwInt, 0); - addSymbolInternal("направи-ниску", &makeStrInt, 0); - addSymbolInternal("дужина-ниске", &strLengthInt, 0); + addSymbolInternal("ниска?", &stringQInt, 0); + addSymbolInternal("сар", &carInt, 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/инит.ћ")) {