Changeset 722cbff in tol

Timestamp:

Nov 14, 2008, 5:58:36 PM (18 years ago)

Author:

Liván Ramírez Dorta <livanr68@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

e58c684

Parents:

370f6fd2

Message:

changes from CVS not merged previously

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@158 be4846ae-f051-483a-831f-b64e7d08527f

File:

• vbtol/source/vbtol.cpp (modified) (4 diffs)

vbtol/source/vbtol.cpp

@@ -27 +27 @@
 
 #include "VButils.h"
-
-class BList;
-
-static BList VB_stack;
 
 /*
@@ -85 +81 @@
 }
 
-static void VB_concat(BList* head, BList* tail)
-{
-  if (head->Cdr()) {
-    VB_concat(head->Cdr(), tail);
-  }
-  else {
-    head->PutCdr(tail);
-  }
-}
-
 int VBTol_EvalExpr(char * expr, short* nerror, short* nwarning)
 {
@@ -143 +129 @@
  * addr - the address of a Visual Basic function that will catch all the Tol output
  * vmode - VerboseMode
+ * initlib - if it's non zero the InitLibrary will be loaded
  */
 //---------------------------------------------------------------------------
-void __declspec(dllexport) CALLBACK TolInit(long addr, BSTR vmode)
+void __declspec(dllexport) CALLBACK TolInit(long addr, BSTR vmode, short initlib)
 //---------------------------------------------------------------------------
 {
@@ -158 +145 @@
   InitTolKernel(0, str_vmode);
 
-  LoadInitLibrary(NULL);
+  if (initlib)
+    LoadInitLibrary(NULL);
 }