dlopen issue with a dll

10 More Discussions You Might Find Interesting

1. Programming

dlopen Linux vs. OSX

I've got a C++ program and some plugins ( shared objects ) that I have been developing for Linux. I was originally using and OSX machine to develop and test most of the code. I use dlopen to open the shared objects and then call methods from them. It behaves differently on Linux ( don't know the...

2. AIX

Coredump in _Init when used dlopen() on AIX 6.1

Hello, One of our Customer is getting Coredump when our application is trying to load a library(one of our products library) using dlopen() on AIX 6.1. Our application and our shared library are built on AIX 5.3 machine using xlC compiler. we have tried executing the same application on...

3. Programming

Linux: dlopen fails to find symbols

I've attached a tar.gz containing three tests to demonstrate the problem I'm having. Within the tar are two shared libraries, two test applications, and a Makefile that builds the three tests. The shared libaries are libshlib1.so and libshlib2.so. Both export a function, libFunc, which takes...

4. Programming

Dynamic library load with dlopen

Hi, I created two library libsum.so and libproduct.so. In the libproduct.so is defined function "product" that use function "sum" defined in libsum.so. So libproduct depends on libsum. In main function I called product function by a dlopen request. Unfortunaly, when I execute program I have an...

5. Solaris

dlopen() on dolaris

Dear experts, please help #include <stdio.h> #include <dlfcn.h> #include <link.h> #include <iostream.h> #include<stdlib.h> #include<errno.h> void main() { printf("\n in the main\n"); void *handle; handle = dlopen("my.so", RTLD_LAZY); if( handle ==...

6. Programming

dlopen help

//foo.c #include<stdio.h> int pen(int a) { printf("%d",a); } $cc -c foo.c $ls -shared -o libfoo.so foo.o ///////////now libfoo.so formed //i have already designed libfoo.so //main.c #include<stdio.h> #include <dlfcn.h> int main() {

7. Programming

resolve_symbols: loader error: dlopen:

when i try to run an executable i got the following error message: resolve_symbols: loader error: dlopen: what does this error mean and what should be done to avoid this? with regards

8. Programming

compile error while using dlopen

Hi unix lovers, I am getting error while compile a function which uses dlopen. My code is I am getting error as follows Am I missing something? I think I am missing a lot :-) I am using solaris. Thanks in advance, -Ashish

9. Programming

default location of libs in dlopen

Hi Where is the default location of libs to search, when we specify any lib in dlopen function. And if we want to specify a custom location, how will we do it? thanks.

10. Programming

dlopen failed!

I can open my so file successfully by calling dlopen directly in my main function. But if I fork a child process, and call dlopen in child process, it failed! I don't know why. Following is my code: #include <stdio.h> #include <errno.h> #include <dlfcn.h> void childFunc(void) { void...

LEARN ABOUT DEBIAN

wx::loader

Wx::Loader(3pm) 					User Contributed Perl Documentation					   Wx::Loader(3pm)

NAME

       Wx::Loader - using custom dll loaders with Wx

SYNOPSIS

	 #---------------------------------------
	 # For Packagers
	 #---------------------------------------

	 # the order of these use()s is important
	 use MyCustomWxLoader;
	 use Wx;

	 or .....

	 use threads;
	 use threads::shared;
	 use MyCustomLoader;
	 use Wx;

	 or - Wx::Perl::Splashfast special case

	 use MyCustomWxLoader;
	 use Wx::Perl::SplashFast ("./logo.jpg",5000);
	 use Wx;

	 ............. meanwhile in MyCustomWxLoader.pm

	 package MyCustomWxLoader;
	 require Wx::Mini;
	 our @ISA = qw( Wx::Loader::Standard );

	 $Wx::wx_binary_loader = __PACKAGE__;
	 ...... or
	 $Wx::wx_binary_loader = __PACKAGE__->new;

	 #-----------------------------------------
	 # For binary distributions
	 #-----------------------------------------

	 # Provide a custom Wx::Loader::Custom
	 # to be loaded by Wx::Mini

	 package Wx::Loader::Custom
	 our @ISA = qw( Wx::Loader::Standard );

	 # be polite if another loader is already in place

	 $Wx::wx_binary_loader = __PACKAGE__ if !$Wx::wx_binary_loader;
	 ...... or
	 $Wx::wx_binary_loader = __PACKAGE__->new() if !$Wx::wx_binary_loader;

DESCRIPTION

       If you are providing binary distributions of Wx or packaging Wx applications to run on machines without Perl (PAR, PerlApp),you may need to
       override dll loading methods. Providing a custom wx_binary_loader package allows you to do this.

Binary Distributions
       A binary distribution my provide alternative sources and loading methods for the wxWidgets dlls. It achieves this by providing a
       Wx::Loader::Custom module in the distribution

	 package Wx::Loader::Custom
	 our @ISA = qw( Wx::Loader::Standard );

	 # be polite if another loader is already in place

	 $Wx::wx_binary_loader = __PACKAGE__ if !$Wx::wx_binary_loader;
	 ...... or
	 $Wx::wx_binary_loader = __PACKAGE__->new() if !$Wx::wx_binary_loader;

	 # remember that Wx.pm has not necessarily been loaded so only
	 # Wx::Mini is available

Perl Application Packagers
	 Applications that package perl scripts to run on machines without
	 Perl (PAR, PerlApp etc) can override dll loading methods if necessary
	 by loading a custom package before wx

	 package MyCustomWxLoader;
	 require Wx::Mini;
	 our @ISA = qw( Wx::Loader::Standard );

	 $Wx::wx_binary_loader = __PACKAGE__;
	 ...... or
	 $Wx::wx_binary_loader = __PACKAGE__->new;

	 # remember that Wx.pm has not necessarily been loaded so only
	 # Wx::Mini is available

METHODS

	 The following methods may be provided by custom loaders to override the
	 default behaviour

   loader_info
	 should return an information string about the loader and MUST be provided.
	 The default loader has

	 sub loader_info { 'Standard Distribution'; }

	 so any custom loader should return something different

	 e.g.

	 sub loader_info { "Mark's Broken Distribution - it's all my fault"; }

   set_binary_path
	 allows setting a custom path for the wxWidgets libraries.

	 sub set_binary_path {
	   my $class_or_object = shift;

	   ... work out binary path

	   return $newbinarypath; # method MUST return a path
	 }

   load_dll
	 Is called to load wxWidgets plugin dlls using a key for the $Wx::dlls hash
	 ( see Wx::Mini )

	 sub load_dll {
	   my ($class_or_object, $dllkey) = @_;
	   ..... load dll - or maybe not
	 }

	 the default loader does nothing - dependencies are loaded automatically
	 and determined by the standard methods of the os:

	 an example of pre loading a known dependency

	 sub load_dll {
	   return if $^O !~ /^(mswin|linux)/i;
	   local $ENV{PATH} = $Wx::wx_path . ';' . $ENV{PATH} if $Wx::wx_path;
	   return unless exists $Wx::dlls->{$_[1]} && $Wx::dlls->{$_[1]};
	   my $dll = $Wx::dlls->{$_[1]};
	   $dll = $Wx::wx_path . '/' . $dll if $Wx::wx_path;
	   Wx::_load_plugin( $dll );
	 }

   unload_dll
	 Is called ONCE from within an END block
	 A custom loader may choose, for example to unload any dlls it has loaded

	 sub unload_dll {
	   my $class_or_object = shift;

	   ... carry out END actions
	 }

	 The default unload_dll is a noop ( sub unload_dll {} )

   external_set_load
	 A deprecated method of replacing the load function for plugins
	 A custom loader may override this to prevent a legacy loader replacing
	 the loading methods.

   external_set_unload
	 A deprecated method of replacing the unload function for plugins
	 A custom loader may override this to prevent a legacy loader replacing
	 the unloading methods.

   boot_overload
	 For binary distributions and packaged applications, normal shared
	 library loading semantics may not work. A custom loader may provide
	 this method to use in place of, or to supplement the standard XS load
	 of Wx.dll (Wx.so).

	 The method MUST return true or false, depending on whether it has
	 loaded Wx.dll (Wx.so).

	 For example, to load the core wxWidgets dlls before Wx is loaded

	 sub boot_overload {
	   shift;
	   require DynaLoader;
	   for my $dll ( qw( base core adv ) ) {
	     next unless exists $Wx::dlls->{$dll} && $Wx::dlls->{$dll};
	     my $file = ( $Wx::wx_path ) ? $Wx::wx_path . '/' . $Wx::dlls->{$dll} : $Wx::dlls->{$dll};
	     my $libref = DynaLoader::dl_load_file($file, 0);
	     push(@DynaLoader::dl_librefs,$libref) if $libref;

	     # Dynaloader should take care of unloading

	   }

	   #------------ IMPORTANT ----------
	   return 0; # we have not loaded Wx
	   #---------------------------------
	 }

	 Some packagers extract dlls at runtime, and then may attempt to remove them
	 at application close. This may fail for Wx. For example, on MSWin the directory
	 cleanup fails whilst on Linux the application will seg-fault on exit.
	 Packagers may avoid this by loading Wx.dll( Wx.so) from a non standard location
	 ( perhaps a separate binary distribution of wx dlls ) that is not removed at
	 application exit.

	 For example

	 sub boot_overload {
	   my $class = shift
	   require DynaLoader;
	   for my $dll ( qw( base core adv ) ) {
	     next unless exists $Wx::dlls->{$dll} && $Wx::dlls->{$dll};
	     my $file = ( $Wx::wx_path ) ? $Wx::wx_path . '/' . $Wx::dlls->{$dll} : $Wx::dlls->{$dll};
	     my $libref = DynaLoader::dl_load_file($file, 0);
	     push(@DynaLoader::dl_librefs,$libref) if $libref;

	     # Dynaloader should take care of unloading

	   }

	   package
	      DynaLoader;

	   my $file = $class->get_the_location_to_wx_xs_module;

	   #------------------------------------------
	   # From XSLoader
	   #------------------------------------------

	   my $module  = 'Wx';

	   my $boots = "$module::bootstrap";
	   my $bootname = "boot_$module";
	   $bootname =~ s/W/_/g;
	   @DynaLoader::dl_require_symbols = ($bootname);
	   my $boot_symbol_ref;

	   my $libref = dl_load_file($file, 0) or do {
	       require Carp;
	       Carp::croak("Can't load '$file' for module $module: " . dl_error());
	   };
	   push(@DynaLoader::dl_librefs,$libref);  # record loaded object

	   my @unresolved = dl_undef_symbols();
	   if (@unresolved) {
	       require Carp;
	       Carp::carp("Undefined symbols present after loading $file: @unresolved
");
	   }

	   $boot_symbol_ref = dl_find_symbol($libref, $bootname) or do {
	       require Carp;
	       Carp::croak("Can't find '$bootname' symbol in $file
");
	   };

	   push(@DynaLoader::dl_modules, $module); # record loaded module

	   my $xs = dl_install_xsub($boots, $boot_symbol_ref, $file);

	   push(@DynaLoader::dl_shared_objects, $file); # record files loaded

	   #------------ IMPORTANT ----------
	   return 1; # we have loaded Wx
	   #---------------------------------
       }

Full Custom Loader Example
	 ################################################
	 # Custom loader for Wx distribution from
	 # http://www.wxperl.co.uk/repository
	 #
	 ################################################

	 package Wx::Loader::Custom;
	 use strict;
	 use warnings;

	 our @ISA = qw( Wx::Loader::Standard );

	 $Wx::wx_binary_loader = __PACKAGE__ if !$Wx::wx_binary_loader;

	 sub loader_info { 'Linux PPM Distribution from http://www.wxperl.co.uk/repository'; }

	 sub boot_overload {
	     shift;
	     require DynaLoader;
	     for my $dll ( qw( base core adv ) ) {
	       next unless exists $Wx::dlls->{$dll} && $Wx::dlls->{$dll};
	       my $file = ( $Wx::wx_path ) ? $Wx::wx_path . '/' . $Wx::dlls->{$dll} : $Wx::dlls->{$dll};
	       my $libref = DynaLoader::dl_load_file($file, 0);
	       push(@DynaLoader::dl_librefs,$libref) if $libref;

	       # Dynaloader should take care of unloading
	     }
	    return 0;
	 }

	 # Allow legacy packaging call to override our load method

	 my( $load_fun ) = ( &_load_dll );

	 sub _load_dll {
	     return unless exists $Wx::dlls->{$_[0]} && $Wx::dlls->{$_[0]};
	     my $dll = $Wx::dlls->{$_[0]};
	     $dll = $Wx::wx_path . '/' . $dll if $Wx::wx_path;
	     return Wx::_load_plugin( $dll );
	 }

	 sub external_set_load { $load_fun = $_[1] }

	 sub load_dll {
	   shift;
	   goto &$load_fun;
	 }

perl v5.14.2							    2010-02-06							   Wx::Loader(3pm)

Solaris