unix-lib.c

   1 /* unix-lib.c - make the newlisp shared newlisp library
   2
   3     Copyright (C) 2008 Lutz Mueller
   4
   5     This program is free software: you can redistribute it and/or modify
   6     it under the terms of the GNU General Public License as published by
   7     the Free Software Foundation, either version 3 of the License, or
   8     (at your option) any later version.
   9
  10     This program is distributed in the hope that it will be useful,
  11     but WITHOUT ANY WARRANTY; without even the implied warranty of
  12     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13     GNU General Public License for more details.
  14
  15     You should have received a copy of the GNU General Public License
  16     along with this program.  If not, see <http://www.gnu.org/licenses/>.
  17
  18 */
  19
  20 #include "newlisp.h"
  21 #include "protos.h"
  22
  23 extern void setupAllSignals(void);
  24 extern int evalSilent;
  25 extern int opsys;
  26 extern SYMBOL * mainArgsSymbol;
  27
  28 int libInitialized = 0;
  29
  30 void initializeMain(void)
  31 {
  32 opsys += 64;
  33
  34 #ifdef SUPPORT_UTF8
  35 opsys += 128;
  36 #endif
  37
  38 initLocale();
  39 initialize();
  40
  41 mainArgsSymbol->contents = (UINT)getCell(CELL_EXPRESSION);
  42 setupAllSignals();
  43
  44 initStacks();
  45
  46 libInitialized = 1;
  47 reset();
  48 }
  49
  50
  51 extern STREAM errorStream;
  52 STREAM libStrStream;
  53
  54
  55 /* ---- imported and called from a client using newlisp.so ---- */
  56
  57 char * newlispEvalStr(char * cmd)
  58 {
  59 if(!libInitialized) initializeMain();
  60
  61 if(setjmp(errorJump))
  62         {
  63         setupAllSignals();
  64
  65         reset();
  66         initStacks();
  67
  68         if(errorReg)
  69                 {
  70                 executeSymbol(errorEvent, NULL);
  71                 return(libStrStream.buffer);
  72                 }
  73         else
  74         return(errorStream.buffer);
  75         }
  76
  77 openStrStream(&libStrStream, MAX_STRING, 1);
  78 executeCommandLine(cmd, OUT_CONSOLE, NULL);
  79
  80 if(evalSilent) evalSilent = 0;
  81
  82 return(libStrStream.buffer);
  83 }
  84
  85 /* eof */