Changeset 44cc5fc in tol

Timestamp:

Oct 15, 2015, 8:54:49 AM (11 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

d0e76cc

Parents:

db5c687

Message:

refs #1866, nuevas funciones para definir las carga dinámica de dll que deben estar cargadas antes de cargar la dll principal de un paquete:

  // miembro del paquete
  Set _.preload = TolPackage::TolPlatform::DefinePreload( ? );

  // a ejecutar en StartAction
  TolPackage::TolPlatform::PreloadLibraries( _.preload );

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

File:

• tol/stdlib/TolPackage/TolPlatform.tol (modified) (1 diff)

tol/stdlib/TolPackage/TolPlatform.tol

@@ -86 +86 @@
     })
   };
+  
+  /*
+    This function must be invoked while building the package, similar to this:
+    
+    Set _.preload = TolPackage::TolPlatform::DefinePreload( ? );
+  */
+  ////////////////////////////////////////////////////////////////////////////
+  Set DefinePreload( Real void )
+  ////////////////////////////////////////////////////////////////////////////  
+  {
+    Text preloadFile = GetAbsolutePath("./") + ObtainDllFolder( ? ) + "/preload.tol";
+    Set If( FileExist( preloadFile ), Include( preloadFile ), Copy( Empty ) )
+  };
+
+    /*
+    This function must be invoked from the StartAction, similar to this:
+    
+    TolPackage::TolPlatform::PreloadLibraries( _.preload );
+  */
+  ////////////////////////////////////////////////////////////////////////////
+  Real PreloadLibraries( Set preload )
+  ////////////////////////////////////////////////////////////////////////////  
+  {
+    Text dir = GetAbsolutePath("./") + ObtainDllFolder( ? );
+    Real Group( "And", EvalSet( preload, Real( Text name )
+      {
+        Real LoadDynLib( dir + "/" + name )
+      } ), 1 )
+  };
 
   ////////////////////////////////////////////////////////////////////////////