ltdl_win32.c

Go to the documentation of this file.

//      Contains all prototypes for driver functions.
//
//  Copyright (C) 2008  Werner Smekal
//
//  This file is part of PLplot.
//
//  PLplot is free software; you can redistribute it and/or modify
//  it under the terms of the GNU Library General Public License as published
//  by the Free Software Foundation; either version 2 of the License, or
//  (at your option) any later version.
//
//  PLplot is distributed in the hope that it will be useful,
//  but WITHOUT ANY WARRANTY; without even the implied warranty of
//  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
//  GNU Library General Public License for more details.
//
//  You should have received a copy of the GNU Library General Public License
//  along with PLplot; if not, write to the Free Software
//  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
//
//


#include <windows.h>
#include <stdlib.h>
#include "ltdl_win32.h"
#include "plplot.h"

// (static) pointer to the last handle, which contains a pointer
// to a possible previous handle
lt_dlhandle lastHandle = NULL;

// buffer for error messages
char errortext[512];


void lt_dlinit( void )
{
    lastHandle = NULL;
}


void lt_dlexit( void )
{
    lt_dlhandle prev;

    while ( lastHandle != NULL )
    {
        if ( lastHandle->hinstLib )
            FreeLibrary( lastHandle->hinstLib );
        prev = lastHandle->previousHandle;
        free( lastHandle );
        lastHandle = prev;
    }
}


lt_dlhandle lt_dlopenext( char* dllname )
{
    lt_dlhandle dlhandle = (lt_dlhandle) malloc( sizeof ( struct __dlhandle ) );
    memset( dlhandle, '\0', sizeof ( struct __dlhandle ) );

    dlhandle->hinstLib = LoadLibraryA( dllname );
    if ( !dlhandle->hinstLib )
    {
        free( dlhandle );
        return NULL;
    }

    dlhandle->previousHandle = lastHandle;
    lastHandle = dlhandle;

    return dlhandle;
}


PLCHAR_VECTOR lt_dlerror()
{
    strncpy( errortext, "No error information", 512 );

    return errortext;
}


void* lt_dlsym( lt_dlhandle dlhandle, PLCHAR_VECTOR symbol )
{
    if ( dlhandle->hinstLib )
    {
#ifdef __BORLANDC__
        unsigned int bufferLength = strlen( symbol ) + 2;
        char         * buffer     = (char *) malloc( bufferLength );
        void         * retPointer;

        buffer[0] = '_';
        strncpy( &buffer[1], symbol, bufferLength - 2 );
        buffer[bufferLength - 1] = '\0';
        retPointer = GetProcAddress( dlhandle->hinstLib, buffer );
        free( buffer );
        return retPointer;
#else
        return GetProcAddress( dlhandle->hinstLib, symbol );
#endif
    }
    else
        return NULL;
}

int lt_dlmakeresident( lt_dlhandle handle )
{
    return 0;
}