Changeset d72f0e5 in tol

Timestamp:

Nov 29, 2010, 8:56:46 AM (16 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

1121f7d

Parents:

4969b6e

Message:

Fixes #956

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

File:

• tol/LoadDynLib/LoadDynLib.cpp (modified) (2 diffs)

tol/LoadDynLib/LoadDynLib.cpp

@@ -33 +33 @@
 #include <tol/tol_blanguag.h>
 #include <tol/tol_btxtgra.h>
+#include <tol/tol_bdatgra.h>
 #include <tol/tol_bdir.h>
 
@@ -74 +75 @@
 {
   return(new BGraContensP<BNameBlock>("", new BNameBlock));
+}
+
+  //--------------------------------------------------------------------
+  DeclareContensClass(BDat, BDatTemporary, BDatLoadDynLib);
+  DefExtOpr(1, BDatLoadDynLib, "LoadDynLib", 1, 2, "Text Text",
+  "(Text libraryPath [, Text libraryName])",
+  I2("Link a dynamic library without TOL built-in functios.",
+     "Enlaca una librería dinámica sin funciones TOL nativas."),
+     BOperClassify::Statistic_);
+  void BDatLoadDynLib::CalcContens()
+//--------------------------------------------------------------------
+{
+  if(CheckNonDeclarativeAction("LoadDynLib")) { return; }
+  BText& libraryPath = Text(Arg(1));
+  BText libraryName = GetFilePrefix(libraryPath);  
+  if(Arg(2))
+  {
+    libraryName = Text(Arg(2));
+  }
+//Std(BText("\nTRACE BLoadDynLib::Evaluator 1 libraryPath=")+libraryPath);
+//Std(BText("\nTRACE BLoadDynLib::Evaluator 2 libraryName=")+libraryName);
+  BUserNameBlock* unb = NULL;
+
+  lt_dlhandle handleLib;
+
+  // abro la DynLib
+  handleLib = lt_dlopen( libraryPath );
+  if ( !handleLib ) 
+  {
+  //Std(BText("\nTRACE BLoadDynLib::Evaluator 3 lt_dlerror='")+lt_dlerror()+"'");
+    BText reason( lt_dlerror( ) );
+    Error(BText("[LoadDynLib(\"")+libraryPath+"\")]"+" \n"
+    "  lt_dlopen error:'"+reason+"'");
+    contens_ = false;
+  } 
+  else
+  {
+    contens_ = true;
+  }
 }