win32dll.c

   1 /* win32dll.c - make the newlisp.exe usable as a DLL
   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 /* note that DLL compile with MinGW is still in development */
  24 #ifdef WIN_32
  25 #define EXPORT __declspec(dllexport) __stdcall
  26 #define DLLCALL EXPORT
  27 #endif
  28
  29 #include <winsock2.h>
  30
  31 extern void loadStartup(char *name);
  32 extern LPSTR getLibname(void);
  33 extern int evalSilent;
  34 extern int opsys;
  35 extern SYMBOL * mainArgsSymbol;
  36
  37
  38 int dllInitialized = 0;
  39 WSADATA WSAData;
  40
  41 char libName[MAX_LINE] = "newlisp.dll";
  42
  43 void initializeMain(void)
  44 {
  45 char name[MAX_LINE + 1];
  46
  47 WSAStartup(MAKEWORD(1,1), &WSAData);
  48
  49 opsys += 64;
  50
  51 #ifdef SUPPORT_UTF8
  52 opsys += 128;
  53 #endif
  54
  55 initLocale();
  56 initialize();
  57 mainArgsSymbol->contents = (UINT)getCell(CELL_EXPRESSION);
  58 initStacks();
  59
  60 GetModuleFileName(GetModuleHandle(libName), name, MAX_LINE);
  61
  62 loadStartup(name);
  63
  64 dllInitialized = 1;
  65 reset();
  66 }
  67
  68 /* ------------ initialize DLL (gets called by Windows) ----------------- */
  69
  70 extern STREAM errorStream;
  71
  72 STREAM libStrStream;
  73
  74 int CALLBACK LibMain(HANDLE hModule, WORD wDataSeg, WORD cbHeapSize, LPSTR lpszCmdLine)
  75 {
  76 return 1;
  77 }
  78
  79
  80 /* called automatically from nl-import when DLL is loaded from newLISP */
  81
  82 int DLLCALL dllName(LPSTR name)
  83 {
  84 strncpy(libName, name, MAX_LINE);
  85 return(1);
  86 }
  87
  88
  89 /* ---- imported and called from a client using newlisp.dll ---- */
  90
  91 LPSTR DLLCALL newlispEvalStr(LPSTR cmd)
  92 {
  93 if(!dllInitialized) initializeMain();
  94
  95 if(setjmp(errorJump))
  96         {
  97         reset();
  98         initStacks();
  99         if(errorReg)
 100                 {
 101                 executeSymbol(errorEvent, NULL);
 102                 return((LPSTR)libStrStream.buffer);
 103                 }
 104         else
 105         return((LPSTR)errorStream.buffer);
 106         }
 107
 108 openStrStream(&libStrStream, MAX_STRING, 1);
 109 executeCommandLine(cmd, (UINT)&libStrStream, NULL);
 110
 111 if(evalSilent) evalSilent = 0;
 112
 113 return((LPSTR)libStrStream.buffer);
 114 }
 115
 116
 117 LPSTR DLLCALL dllEvalStr(LPSTR cmd)
 118 {
 119 return(newlispEvalStr(cmd));
 120 }
 121
 122
 123
 124 /* ------------ called from Windows when unloading DLL ------------------ */
 125
 126 int DLLCALL WEP (int bSystemExit)
 127 {
 128 return(1);
 129 }
 130
 131 /* eof */